source: project/fps/fps-base.scm @ 4202

Last change on this file since 4202 was 4202, checked in by Kon Lovett, 13 years ago

Added srfi-1 & regex rqrmnts. Note that compose & join are redefined!

File size: 1.3 KB
Line 
1;;;; fps-base.scm
2
3(use srfi-1) ;; for filter
4(use regex) ;; for string-split-fields
5
6(declare (compress-literals))
7
8(use syntax-case)
9(use records utils format-modular)
10
11(define (field-splitter rx) 
12  (lambda (str #!optional (start 0))
13    (string-split-fields rx str #t start) ) )
14
15(define (infix-splitter rx) 
16  (lambda (str #!optional (start 0))
17    (string-split-fields rx str #:infix start) ) )
18
19(define (suffix-splitter rx) 
20  (lambda (str #!optional (start 0))
21    (string-split-fields rx str #:suffix start) ) )
22
23(define char->ascii char->integer)
24(define ascii->char integer->char)
25
26(define (make-string-table) (make-hash-table string=?))
27(define table-ref (cut hash-table-ref/default <> <> #f))
28(define table-set! hash-table-set!)
29
30(include "conditionals")
31(include "defrec")
32(include "fps.type")
33(include "fps.color")
34(include "fps.util")
35(include "fps-global")
36(include "fps.glyph")
37(include "fps.comp")
38(include "fps.paint")
39(include "fps.map")
40(include "fps.afm")
41(include "fps.ask")
42(include "fps.show")
43(include "fps.mat")
44(include "fps.style")
45(include "fps.bitmap")
46(include "fps.options")
47(include "ps.path")
48(include "ps.misc")
49(include "exports")
50
51(define-record-printer (pt p port)
52  (format port "#<pt ~s/~s>" (pt:x p) (pt:y p)))
53
54(provide 'fps-base)
55(include "fps")
Note: See TracBrowser for help on using the repository browser.