Changeset 14413 in project


Ignore:
Timestamp:
04/24/09 07:49:03 (11 years ago)
Author:
Ivan Raikov
Message:

html-form ported to Chicken 4

Location:
release/4/html-form
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/html-form/trunk/html-form.scm

    r12782 r14413  
     1;;
     2;;
     3;; Directed graph in adjacency list format.
     4;; Based on code from MLRISC
     5;;
     6;; Copyright 2007-2009 Ivan Raikov and the Okinawa Institute of Science and Technology.
     7;;
     8;;
     9;; This program is free software: you can redistribute it and/or
     10;; modify it under the terms of the GNU General Public License as
     11;; published by the Free Software Foundation, either version 3 of the
     12;; License, or (at your option) any later version.
     13;;
     14;; This program is distributed in the hope that it will be useful, but
     15;; WITHOUT ANY WARRANTY; without even the implied warranty of
     16;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
     17;; General Public License for more details.
     18;;
     19;; A full copy of the GPL license can be found at
     20;; <http://www.gnu.org/licenses/>.
    121
    2 (require-extension srfi-1)
    3 (require-extension srfi-13)
     22(module html-form
    423
     24 (html-form)
     25                   
     26 (import scheme chicken )
    527
    6 (define-extension html-form)
    7 
    8 
    9 (declare (export html-form))
     28 (require-extension srfi-1 srfi-13 )
    1029
    1130(define nl (list->string (list #\newline)))
     
    123142             ,(if rel `(rel ,rel) `()))))
    124143
     144)
  • release/4/html-form/trunk/html-form.setup

    r12782 r14413  
    11; -*- Hen -*-
    2 
    3 (define has-exports? (string>=? (chicken-version) "2.310"))
    42
    53(define (dynld-name fn)         
    64  (make-pathname #f fn ##sys#load-dynamic-extension))   
    75
    8 (compile -O2 -d0 -s
    9          ,@(if has-exports? '(-check-imports -emit-exports html-form.exports) '())
    10          html-form.scm)
     6(compile -O2 -d0 -s html-form.scm -j html-form)
     7(compile -O2 -d0 -s html-form.import.scm)
    118
    129(install-extension
     
    1613
    1714  ; Files to install for your extension:
    18   `(,(dynld-name "html-form")
    19     ,@(if has-exports? '("html-form.exports") (list)) )
     15  `(,(dynld-name "html-form") ,(dynld-name "html-form.import") )
    2016
    2117  ; Assoc list with properties for your extension:
    22   '((version 1.0)
    23     (documentation "html-form.html")
    24     ,@(if has-exports? `((exports "html-form.exports")) (list)) ))
    25 
     18  '((version 1.1)
     19    (documentation "html-form.html")))
    2620
    2721;; From setup-header.scm by Kon Lovett
Note: See TracChangeset for help on using the changeset viewer.