Changeset 15288 in project for release/4/php-s11n/trunk/php-s11n.scm


Ignore:
Timestamp:
07/31/09 08:03:48 (11 years ago)
Author:
felix winkelmann
Message:

ported to chicken 4 (thanks to Christian Kellermann)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/php-s11n/trunk/php-s11n.scm

    r9970 r15288  
    2121;; IN THE SOFTWARE.
    2222
    23 (require-extension srfi-1 srfi-69 regex)
    24 
    25 #+chicken
    26 (eval-when (compile)
    27   (declare
    28     (export php-serialize
    29             php-unserialize
    30             php-s11n-writer
    31             php-s11n-reader
    32             php-s11n-array-reader
    33             php-s11n-object-reader
    34             php-s11n-write
    35             php-s11n-read
    36             php-s11n-read-null
    37             php-s11n-read-boolean
    38             php-s11n-read-integer
    39             php-s11n-read-float
    40             php-s11n-read-string
    41             php-s11n-read-array
    42             php-s11n-read-array/alist
    43             php-s11n-read-array/hash-table
    44             php-s11n-read-object)))
     23(module php-s11n
     24  ( php-serialize
     25    php-unserialize
     26    php-s11n-writer
     27    php-s11n-reader
     28    php-s11n-array-reader
     29    php-s11n-object-reader
     30    php-s11n-write
     31    php-s11n-read
     32    php-s11n-read-null
     33    php-s11n-read-boolean
     34    php-s11n-read-integer
     35    php-s11n-read-float
     36    php-s11n-read-string
     37    php-s11n-read-array
     38    php-s11n-read-array/alist
     39    php-s11n-read-array/hash-table
     40    php-s11n-read-object)
     41
     42(import chicken scheme)
     43(use data-structures extras ports srfi-1 srfi-69 regex)
    4544
    4645;;;; Exported parameters
     
    229228        ((keyword? value) (->array-key (keyword->string value)))
    230229        ((symbol? value) (->array-key (symbol->string value)))
    231         (else (->array-key (->string value)))))
     230        (else (->array-key (->string value))))) )
Note: See TracChangeset for help on using the changeset viewer.