Changeset 13360 in project


Ignore:
Timestamp:
02/19/09 23:28:37 (11 years ago)
Author:
sjamaan
Message:

Add txpath and sxpath libraries, that are built on top of sxpath-lolevel

Location:
release/4/sxpath
Files:
3 added
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/sxpath/chicken/sxpath-lolevel.scm

    r13359 r13360  
    123123(require-library srfi-13 srfi-1)
    124124
    125 (import (only srfi-13 string-prefix? string-index-right)
    126         (only srfi-1 filter))
    127 
    128 (define string-rindex string-index-right)
    129 
    130 (define nl (string #\newline))
    131 (define -- sub1)
    132 (define inc add1)
    133 
    134 ; like cout << arguments << args
    135 ; where argument can be any Scheme object. If it's a procedure
    136 ; (without args) it's executed rather than printed (like newline)
    137 (define (cout . args)
    138   (for-each (lambda (x)
    139               (if (procedure? x) (x) (display x)))
    140             args))
    141 
    142 (define (cerr . args)
    143   (for-each (lambda (x)
    144               (if (procedure? x) (x (current-error-port)) (display x (current-error-port))))
    145             args))
     125(import (only srfi-1 filter))
    146126
    147127;; There's no real danger of hygiene breakage because the macros here
     
    153133     (define-syntax (macro-name exp rename compare)
    154134       (apply (lambda args body ...) (cdr exp))))))
     135
    155136
    156137;; A bit big to include this here, but we don't want a dependency on
     
    188169                      (cons quoted-char (loop (inc to) new-to))))))))))))
    189170
     171(include "chicken/common.scm")
     172
    190173(include "sxml-tools/sxml-tools.scm")
    191174;; We need the sxpathlib because sxml-tools makes use of a few of its
  • release/4/sxpath/sxpath.setup

    r13359 r13360  
    1 (compile -s -O2 chicken/sxpath-lolevel.scm -j sxpath-lolevel)
     1(compile -s -O2 -o "sxpath-lolevel.so" chicken/sxpath-lolevel.scm -j sxpath-lolevel)
    22(compile -s -O2 sxpath-lolevel.import.scm)
    33
     
    88    (documentation "sxpath.html")))
    99
    10 #|
    11 (compile -s -O2 -d0 chicken/sxpath.scm -j sxpath)
     10(compile -s -O2 -d0 -o "txpath.so" chicken/txpath.scm -j txpath)
     11(compile -s -O2 -d0 txpath.import.scm)
     12
     13(install-extension 'txpath
     14  `("txpath.so"
     15    "txpath.import.so" )
     16  `((version 0.1)
     17    (documentation "sxpath.html")))
     18
     19(compile -s -O2 -d0 -o "sxpath.so" chicken/sxpath.scm -j sxpath)
    1220(compile -s -O2 -d0 sxpath.import.scm)
    1321
     
    1523  `("sxpath.so"
    1624    "sxpath.import.so" )
    17   `((version 1.3)
     25  `((version 0.1)
    1826    (documentation "sxpath.html")))
    19 |#
Note: See TracChangeset for help on using the changeset viewer.