Changeset 14546 in project


Ignore:
Timestamp:
05/07/09 08:19:49 (10 years ago)
Author:
Ivan Raikov
Message:

strictly-pretty ported to Chicken 4

Location:
release/4
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/digraph/trunk/digraph.setup

    r14334 r14546  
    11;;;; -*- Hen -*-
    2 
    3 (define has-exports? (string>=? (chicken-version) "2.310"))
    42
    53(define (dynld-name fn)         
  • release/4/strictly-pretty/trunk/strictly-pretty.meta

    r12060 r14546  
    1818 ; A list of eggs strictly-pretty depends on.
    1919
    20  (needs datatype syntax-case matchable)
     20 (needs datatype matchable)
    2121
    2222 (doc-from-wiki)
  • release/4/strictly-pretty/trunk/strictly-pretty.scm

    r12565 r14546  
    55;;
    66;; Adapted for Chicken Scheme by Ivan Raikov.
    7 ;; Copyright 2008 Ivan Raikov and the Okinawa Institute of Science and Technology
     7;; Copyright 2008-2009 Ivan Raikov and the Okinawa Institute of Science and Technology.
    88;;
    99;; This program is free software: you can redistribute it and/or
     
    2222;;
    2323
    24 (require-extension syntax-case)
    25 (require-extension matchable)
    26 (require-extension datatype)
    27 (require-extension srfi-1)
    28 
    29 (define-extension strictly-pretty)
    30 
    31 (declare (export doc? doc:cons doc:empty doc:empty? doc:text
    32                  doc:nest doc:break doc:break-with doc:group doc:concat
    33                  doc:binop doc:ifthen doc:list doc:block doc:letblk
    34                  doc:space doc:comma doc:connect
    35                  doc:display doc:format sdoc? sdoc->string))
    36 
     24(module strictly-pretty
     25
     26 (export doc? doc:cons doc:empty doc:empty? doc:text
     27         doc:nest doc:break doc:break-with doc:group doc:concat
     28         doc:binop doc:ifthen doc:list doc:block doc:letblk
     29         doc:space doc:comma doc:connect
     30         doc:display doc:format sdoc? sdoc->string)
     31                   
     32 (import scheme chicken data-structures extras )
     33
     34 (require-extension srfi-1 datatype matchable )
    3735
    3836(define (spaces n)  (list->string (list-tabulate n (lambda (x) #\space))))
     
    244242
    245243|#
     244)
  • release/4/strictly-pretty/trunk/strictly-pretty.setup

    r12565 r14546  
    11; -*- Hen -*-
    2 
    3 (define has-exports? (string>=? (chicken-version) "2.310"))
    42
    53(define (dynld-name fn)         
    64  (make-pathname #f fn ##sys#load-dynamic-extension))   
    75
    8 (compile  -O2 -d0 -s
    9          ,@(if has-exports? '(-check-imports -emit-exports strictly-pretty.exports) '())
    10          strictly-pretty.scm -lchicken -ldl -lm)
     6(compile  -O2 -d0 -s strictly-pretty.scm -j strictly-pretty)
     7(compile  -O2 -d0 -s strictly-pretty.import.scm )
    118
    129(install-extension
     
    1613
    1714  ; Files to install for your extension:
    18   `(,(dynld-name "strictly-pretty")
    19     ,@(if has-exports? '("strictly-pretty.exports") (list)) )
     15  `(,(dynld-name "strictly-pretty") ,(dynld-name "strictly-pretty.import") )
     16
    2017
    2118  ; Assoc list with properties for your extension:
    22   '((version 1.3)
     19  '((version 1.4)
    2320    (documentation "strictly-pretty.html")
    24     ,@(if has-exports? `((exports "strictly-pretty.exports")) (list)) ))
     21    ))
     22
Note: See TracChangeset for help on using the changeset viewer.