Changeset 7832 in project


Ignore:
Timestamp:
01/22/08 01:32:20 (12 years ago)
Author:
Kon Lovett
Message:

Mods for chicken compat, added exports/imports.

Location:
fmt
Files:
1 added
6 edited

Legend:

Unmodified
Added
Removed
  • fmt/fmt-c-chicken.scm

    r5294 r7832  
    44;; BSD-style license: http://synthcode.com/license.txt
    55
     6(use srfi-1 srfi-13)
    67(use fmt)
    78
  • fmt/fmt-chicken.scm

    r5294 r7832  
    44;; BSD-style license: http://synthcode.com/license.txt
    55
    6 (require-extension (srfi 1 6 13 69))
     6(use srfi-1 srfi-13 srfi-6 srfi-69)
     7(use numbers)
    78
    89(cond-expand
  • fmt/fmt-unicode-chicken.scm

    r4658 r7832  
    44;; BSD-style license: http://synthcode.com/license.txt
    55
     6(use srfi-4)
    67(use utf8-lolevel)
     8(use fmt)
    79
    810(cond-expand
  • fmt/fmt.meta

    r4994 r7832  
    77 (author "Alex Shinn")
    88 (doc-from-wiki)
     9 (needs numbers utf8)
    910 (files "fmt.setup"
    1011        "fmt-chicken.scm" "fmt.scm" "fmt-pretty.scm" "fmt-column.scm"
    1112        "fmt-c-chicken.scm" "fmt-c.scm"
    12         "fmt-color.scm"
     13        "fmt-color-chicken.scm" "fmt-color.scm"
    1314        "fmt-unicode-chicken.scm"))
  • fmt/fmt.scm

    r5294 r7832  
    99;;; string utilities
    1010
    11 (define (call-with-output-string proc)
    12   (let ((p (open-output-string)))
    13     (proc p)
    14     (get-output-string p)))
     11(cond-expand
     12 (chicken)
     13 (else
     14  (define (call-with-output-string proc)
     15    (let ((p (open-output-string)))
     16      (proc p)
     17      (get-output-string p))) ) )
    1518
    1619(define (write-to-string x)
     
    330333      (let ((sep (dsp (if (pair? o) (car o) ""))))
    331334        (cat sep (join fmt ls sep)))))
     335
    332336(define (join/suffix fmt ls . o)
    333337  (if (null? ls)
  • fmt/fmt.setup

    r5294 r7832  
    1 (compile fmt-chicken.scm -s -O2 -d0 -o fmt.so)
    2 (compile fmt-c-chicken.scm -s -O2 -d0 -o fmt-c.so)
    3 (compile fmt-color.scm -s -O2 -d0 -o fmt-color.so)
    4 (compile fmt-unicode-chicken.scm -s -O2 -d0 -o fmt-unicode.so)
     1
     2(define has-exports? (string>=? (chicken-version) "2.310"))
     3
     4(compile fmt-chicken.scm -s -O2 -d0 ,@(if has-exports? '(-check-imports -emit-exports fmt.exports) '()) -o fmt.so)
     5(compile fmt-c-chicken.scm -s -O2 -d0 ,@(if has-exports? '(-check-imports -emit-exports fmt-c.exports) '()) -o fmt-c.so)
     6(compile fmt-color-chicken.scm -s -O2 -d0 ,@(if has-exports? '(-check-imports -emit-exports fmt-color.exports) '()) -o fmt-color.so)
     7(compile fmt-unicode-chicken.scm -s -O2 -d0 ,@(if has-exports? '(-check-imports -emit-exports fmt-unicode.exports) '()) -o fmt-unicode.so)
     8
    59(install-extension
    610 'fmt
    711 '("fmt.so" "fmt-c.so" "fmt-color.so" "fmt-unicode.so")
    8  '((version 0.51)
    9    ))
     12 `((version 0.511)
     13         ,@(if has-exports? `((exports "fmt.exports" "fmt-c.exports" "fmt-color.exports" "fmt-unicode.exports")) '())) )
Note: See TracChangeset for help on using the changeset viewer.