Changeset 14600 in project


Ignore:
Timestamp:
05/12/09 06:29:09 (11 years ago)
Author:
Ivan Raikov
Message:

varsubst ported to Chicken 4

Location:
release/4/varsubst
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/varsubst/trunk/test.scm

    r11256 r14600  
    1 (use syntax-case matchable varsubst)
     1(use  srfi-1 matchable varsubst)
    22
    33(define (subst-term t subst k)
  • release/4/varsubst/trunk/varsubst.meta

    r11254 r14600  
    1 
    21;; -*- Hen -*-
    32
  • release/4/varsubst/trunk/varsubst.scm

    r12681 r14600  
    33;; Generalized variable substitution semantics.
    44;;
    5 ;; Copyright 2008 Ivan Raikov and the Okinawa Institute of Science and Technology
     5;; Copyright 2008-2009 Ivan Raikov and the Okinawa Institute of Science and Technology.
    66;;
    77;; This program is free software: you can redistribute it and/or
     
    2020
    2121
    22 (define-extension varsubst)
    2322
     23(module varsubst
    2424
    25 (require-extension srfi-1)
     25   (subst? subst-empty subst-empty?
     26           subst-includes? subst-lookup subst-extend
     27           subst-map subst-compose
     28           subst-driver)
     29
     30   (import scheme chicken data-structures srfi-1)
    2631
    2732(define subst? list?)
     
    7378                   (else (subst-term t subst k))))))
    7479     k)))
     80)
  • release/4/varsubst/trunk/varsubst.setup

    r12682 r14600  
    1 
    21;; -*- Hen -*-
    3 
    4 (define has-exports? (string>=? (chicken-version) "2.310"))
    52
    63(define (dynld-name fn)         
    74  (make-pathname #f fn ##sys#load-dynamic-extension))   
    85
    9 (compile -d2 -O -s -o ,(dynld-name "varsubst")
    10          ,@(if has-exports? '(-check-imports -emit-exports varsubst.exports) '())
    11          varsubst.scm)
     6(compile -d2 -O -s varsubst.scm -j varsubst)
     7(compile -d2 -O -s varsubst.import.scm)
     8
    129
    1310(install-extension
     
    1714
    1815  ; Files to install for your extension:
    19   `(,(dynld-name "varsubst") 
    20     ,@(if has-exports? '("varsubst.exports") (list)) )
     16  `(,(dynld-name "varsubst")  ,(dynld-name "varsubst.import")  )
    2117
    2218  ; Assoc list with properties for your extension:
    23   `((version 1.1)
    24     ,@(if has-exports? `((exports "varsubst.exports")) (list)) ))
     19  `((version 1.2)
     20    (documentation "varsubst.html")))
Note: See TracChangeset for help on using the changeset viewer.