Changeset 14276 in project


Ignore:
Timestamp:
04/17/09 09:13:07 (11 years ago)
Author:
Alex Shinn
Message:

adding back in fmt-unicode

Location:
release/4/fmt/trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • release/4/fmt/trunk/fmt-unicode.scm

    r14174 r14276  
    11;;;; fmt-unicode-chicken.scm -- Unicode character width and ANSI escape support
    22;;
    3 ;; Copyright (c) 2006-2007 Alex Shinn.  All rights reserved.
     3;; Copyright (c) 2006-2009 Alex Shinn.  All rights reserved.
    44;; BSD-style license: http://synthcode.com/license.txt
    55
    6 (require-extension fmt) ; utf8-lolevel
     6(require-library srfi-4 fmt utf8-lolevel)
    77
    88(module
     
    1010 (unicode-char-width unicode-string-width fmt-unicode)
    1111
    12 (import scheme chicken fmt)
     12(import scheme chicken srfi-4 fmt utf8-lolevel)
    1313
    1414;; a condensed non-spacing mark range from UnicodeData.txt (chars with
  • release/4/fmt/trunk/fmt.meta

    r14174 r14276  
    88 (doc-from-wiki)
    99 (files "fmt.setup" "fmt.html"
    10         "fmt-chicken.scm" "fmt.scm" "fmt-pretty.scm" "fmt-column.scm"
    11         "fmt-c-chicken.scm" "fmt-c.scm"
    12         "fmt-color.scm" "fmt-color-chicken.scm"
    13         "fmt-unicode-chicken.scm"))
     10        "fmt.scm" "fmt.scm" "fmt-pretty.scm" "fmt-column.scm"
     11        "fmt-c.scm" "fmt-c.scm"
     12        "fmt-color.scm"
     13        "fmt-unicode.scm"))
  • release/4/fmt/trunk/fmt.setup

    r14174 r14276  
    55 'fmt
    66 '("fmt.so" "fmt.import.so")
    7  `((version 0.518) (documentation "fmt.html")))
     7 '((version 0.519) (documentation "fmt.html")))
    88
    99(compile -s -O2 -d0 -j fmt-c fmt-c.scm)
     
    1212 'fmt-c
    1313 '("fmt-c.so" "fmt-c.import.so")
    14  `((version 0.518) (documentation "fmt.html")))
     14 '((version 0.519) (documentation "fmt.html")))
    1515
    1616(compile -s -O2 -d0 -j fmt-color fmt-color.scm)
     
    1919 'fmt-color
    2020 '("fmt-color.so" "fmt-color.import.so")
    21  `((version 0.518) (documentation "fmt.html")))
     21 '((version 0.519) (documentation "fmt.html")))
    2222
    23 ;; (compile -s -O2 -f -d0 -j fmt-unicode fmt-unicode.scm)
    24 ;; (compile -s -O2 -d0 fmt-unicode.import.scm)
    25 ;; (install-extension
    26 ;; 'fmt-unicode
    27 ;; '("fmt-unicode.so" "fmt-unicode.import.so")
    28 ;;  `((version 0.518) (documentation "fmt.html")))
     23(compile -s -O2 -f -d0 -j fmt-unicode fmt-unicode.scm)
     24(compile -s -O2 -d0 fmt-unicode.import.scm)
     25(install-extension
     26 'fmt-unicode
     27 '("fmt-unicode.so" "fmt-unicode.import.so")
     28 '((version 0.519) (documentation "fmt.html")))
  • release/4/fmt/trunk/test-fmt-c.scm

    r14174 r14276  
    11
    22(cond-expand
    3  (chicken (use test fmt-c))
     3 (chicken (use test fmt fmt-c))
    44 (gauche
    55  (use gauche.test)
  • release/4/fmt/trunk/test-fmt.scm

    r14174 r14276  
    187187;; pretty printing
    188188
    189 (define-macro (test-pretty str)
    190   (let ((sexp (with-input-from-string str read)))
    191     `(test ,str (fmt #f (pretty ',sexp)))))
     189(define-syntax test-pretty
     190  (er-macro-transformer
     191   (lambda (expr rename compare)
     192     (let ((sexp (with-input-from-string (cadr expr) read)))
     193       `(,(rename 'test) ,(cadr expr)
     194         (,(rename 'fmt) #f (,(rename 'pretty) ',sexp)))))))
    192195
    193196(test-pretty "(foo bar)\n")
Note: See TracChangeset for help on using the changeset viewer.