Changeset 36891 in project


Ignore:
Timestamp:
11/24/18 18:48:53 (3 weeks ago)
Author:
syn
Message:

hyde: Make compatible with CHICKEN 5

Location:
release/4/hyde/trunk
Files:
1 added
4 edited

Legend:

Unmodified
Added
Removed
  • release/4/hyde/trunk/hyde-atom.scm

    r31867 r36891  
    1 (module hyde-atom
     1(include "backwards-compatible-module")
     2
     3(backwards-compatible-module (hyde atom)
    24
    35(translate-atom)
    46
    5 (import chicken scheme)
    6 (use hyde atom rfc3339 posix extras srfi-1)
     7(import scheme)
     8
     9(cond-expand
     10  (chicken-4
     11   (import chicken)
     12   (use hyde atom rfc3339 posix extras srfi-1))
     13  (chicken-5
     14   (import (chicken base)
     15           (chicken format)
     16           (chicken time posix)
     17           (srfi 1)
     18           hyde
     19           atom
     20           rfc3339)))
    721
    822(define $ (environment-ref (page-eval-env) '$))
  • release/4/hyde/trunk/hyde-cmd.scm

    r31856 r36891  
    1 #!/usr/bin/csi -ns
    2 
    3 (use chicken-syntax hyde matchable)
     1(cond-expand
     2  (chicken-4
     3   (use chicken-syntax hyde matchable))
     4  (chicken-5
     5   (import (chicken process-context)
     6           hyde
     7           matchable)))
    48
    59(define usage #<<END
  • release/4/hyde/trunk/hyde-page-eval-env.scm

    r31843 r36891  
    1 (module hyde-page-eval-env
     1(include "backwards-compatible-module")
     2
     3(backwards-compatible-module (hyde page-eval-env)
    24
    35(make-page-eval-env
     
    911 current-page-eval-env)
    1012
    11 (import chicken scheme)
    12 (use srfi-69)
     13(import scheme)
     14
     15(cond-expand
     16  (chicken-4
     17   (import chicken)
     18   (use srfi-69))
     19  (chicken-5
     20   (import (chicken base)
     21           (chicken irregex)
     22           (srfi 69))))
    1323
    1424(define-record-type page-eval-env
     
    4757            (lambda (name val)
    4858              (list name
    49                     `(hyde-page-eval-env#environment-ref
    50                       (hyde-page-eval-env#current-page-eval-env)
    51                       ',name))))
     59                    (cond-expand
     60                      (chicken-4
     61                       `(hyde-page-eval-env#environment-ref
     62                         (hyde-page-eval-env#current-page-eval-env)
     63                         ',name))
     64                      (chicken-5
     65                       `(hyde.page-eval-env#environment-ref
     66                         (hyde.page-eval-env#current-page-eval-env)
     67                         ',name))))))
    5268           exp))))
    5369
  • release/4/hyde/trunk/hyde.scm

    r36888 r36891  
    1 (module hyde
     1(include "backwards-compatible-module")
     2
     3(backwards-compatible-module hyde
    24
    35(load-hyde-file
     
    4749 translate-svnwiki)
    4850
    49 (import chicken scheme)
    50 (require-extension regex)
    51 (import irregex)
    52 
    53 (use files
    54      data-structures
    55      extras
    56      srfi-1
    57      ports
    58      srfi-13
    59      utils
    60      posix
    61      sxml-transforms
    62      doctype
    63      matchable
    64      scss
    65      spiffy
    66      srfi-18
    67      colorize
    68      intarweb
    69      uri-common
    70      svnwiki-sxml
    71      defstruct
    72      sxpath
    73      html-parser)
    74 
    75 (use hyde-page-eval-env)
    76 (reexport (except hyde-page-eval-env current-page-eval-env))
     51(import scheme)
     52
     53(cond-expand
     54  (chicken-4
     55   (import chicken)
     56   (require-extension regex)
     57   (import irregex)
     58
     59   (use files
     60        data-structures
     61        extras
     62        srfi-1
     63        ports
     64        srfi-13
     65        utils
     66        posix
     67        sxml-transforms
     68        doctype
     69        matchable
     70        scss
     71        spiffy
     72        srfi-18
     73        colorize
     74        intarweb
     75        uri-common
     76        svnwiki-sxml
     77        defstruct
     78        sxpath
     79        html-parser
     80        hyde-page-eval-env)
     81
     82   (reexport (except hyde-page-eval-env current-page-eval-env))
     83   (define copy-file file-copy)
     84   (define read-list read-file))
     85  (chicken-5
     86   (import (chicken base)
     87           (chicken string)
     88           (chicken irregex)
     89           (chicken condition)
     90           (chicken format)
     91           (chicken port)
     92           (chicken file)
     93           (chicken file posix)
     94           (chicken process)
     95           (chicken pathname)
     96           (chicken io)
     97           (chicken module)
     98           (srfi 1)
     99           (srfi 13)
     100           (srfi 18)
     101           sxml-transforms
     102           doctype
     103           matchable
     104           scss
     105           spiffy
     106           colorize
     107           intarweb
     108           uri-common
     109           svnwiki-sxml
     110           defstruct
     111           sxpath
     112           html-parser
     113           (hyde page-eval-env))
     114   (reexport (except (hyde page-eval-env) current-page-eval-env))))
     115
     116
    77117
    78118(defstruct page source-path path (vars '()) reader writer type)
     
    408448                                 source-path: source-path
    409449                                 path: (make-access-path path)
    410                                  reader: (lambda () (read-all path))
    411                                  writer: (lambda () (file-copy path (make-output-path path) #t))))))))
     450                                 reader: (lambda () (call-with-input-file path read-list))
     451                                 writer: (lambda () (copy-file path (make-output-path path) #t))))))))
    412452
    413453(define (print-page-paths page)
     
    459499
    460500(define (translate-sxml)
    461   (output-xml (map (lambda (e) (environment-eval e (page-eval-env))) (read-file))
     501  (output-xml (map (lambda (e) (environment-eval e (page-eval-env))) (read-list))
    462502              (list sxml-colorize-rules sxml-conversion-rules)))
    463503
Note: See TracChangeset for help on using the changeset viewer.