Changeset 5 in project


Ignore:
Timestamp:
11/02/05 23:12:35 (15 years ago)
Author:
felix winkelmann
Message:

fixed in commit script, slight changes in s11n

Files:
1 added
6 edited

Legend:

Unmodified
Added
Removed
  • README

    r4 r5  
    9595    raw extension-identifier, the same that you would use in a `require-extension'
    9696    form.
     97
     98You should provide a HTML file with documentation, if possible using Zbigniew
     99Szadkowski's `eggdoc' extension (see http://www.call-with-current-continuation.org/eggs/eggdoc).
     100If named `EXTENSION-NAME.html', then it will be automatically uploaded to call/cc.org.
     101
     102
     103Many thanks for conttributing!
  • egg-post-commit.scm

    r4 r5  
    142142
    143143(define (upload . files)
    144   (let ([ftp (ftp:connect "www.call-with-current-continuation.org" username password #f)])
     144  (let ([ftp (ftp:connect "www.call-with-current-continuation.org" username password)])
     145    (define (out fname)
     146      (let* ([p (ftp:open-output-file ftp (pathname-strip-directory fname))]
     147             [s (file-size fname)]
     148             [fd (file-open fname open/read)]
     149             [data (first (file-read fd s))] )
     150        (print fname " ...")
     151        (display data p)
     152        (close-output-port p) ) )
    145153    (ftp:set-type! ftp 'binary)
    146     (for-each
    147      (lambda (fname)
    148        (let* ([p (ftp:open-output-file ftp (make-pathname "eggs" fname))]
    149               [s (file-size fname)]
    150               [fd (file-open fname open/read)]
    151               [data (first (file-read fd s))] )
    152          (display data p)
    153          (close-output-port p) ) )
    154      files)
     154    (ftp:change-directory ftp "eggs")
     155    (for-each out files)
    155156    (ftp:disconnect ftp) ) )
    156157
     
    159160  (set! eggs (read-egg-list))
    160161  (print "(" (length eggs) ")")
    161   (for-each
    162    (lambda (eggname)
    163      (print "Reading meta-information...")
    164      (let* ((meta (car (read-file (make-pathname eggname eggname "meta"))))
    165             (egg (or (alist-ref 'egg meta)
    166                      (alist-ref 'file meta)
    167                      (error "no `egg' or `file' property in meta info" meta)))
    168             (files (alist-ref 'files meta)) )
    169        (pp meta)
    170        (print "Creating egg...")
    171        (when files
    172          (change-directory eggname)
    173          (system* "tar cfz ../~a.egg ~a" (car egg) (string-intersperse files))
    174          (change-directory "..") ) ) )
    175    eggnames)
    176   (print "Creating index page...")
    177   (with-output-to-file "index.html"
    178     (cut sxml->xml (make-egg-index-page)) )
    179   (print "Creating repository file...")
    180   (with-output-to-file "repository"
    181     (cut pp (map (lambda (info)
    182                    `(,(car info) ()
    183                      ,(car (or (alist-ref 'egg (cdr info))
    184                                (alist-ref 'file (cdr info))
    185                                (error "no `egg' or `file' property" info) ) )
    186                      ,@(let ([needs (assq 'needs (cdr info))])
    187                          (if needs
    188                              (cdr needs)
    189                              '() ) ) ) )
    190                  eggs) ) )
    191   (print "Uploading files...")
    192   (upload (car egg) "index.html" "repository")
    193   (print "Finished.") )
     162  (let ((eggfiles '()))
     163    (for-each
     164     (lambda (eggname)
     165       (print "Reading meta-information...")
     166       (let* ((meta (car (read-file (make-pathname eggname eggname "meta"))))
     167              (egg (or (alist-ref 'egg meta)
     168                       (alist-ref 'file meta)
     169                       (error "no `egg' or `file' property in meta info" meta)))
     170              (files (alist-ref 'files meta)) )
     171         (pp meta)
     172         (print "Creating egg...")
     173         (when files
     174           (change-directory eggname)
     175           (system* "tar cfz ../~a ~a" (car egg) (string-intersperse files))
     176           (change-directory "..") )
     177         (let ((hfile (make-pathname eggname eggname "html")))
     178           (when (file-exists? hfile)
     179             (set! eggfiles (cons hfile eggfiles))))
     180         (set! eggfiles (cons (car egg) eggfiles)) ) )
     181     eggnames)
     182    (print "Creating index page...")
     183    (with-output-to-file "index.html"
     184      (cut sxml->xml (make-egg-index-page)) )
     185    (print "Creating repository file...")
     186    (with-output-to-file "repository"
     187      (cut pp (map (lambda (info)
     188                     `(,(car info) ()
     189                       ,(car (or (alist-ref 'egg (cdr info))
     190                                 (alist-ref 'file (cdr info))
     191                                 (error "no `egg' or `file' property" info) ) )
     192                       ,@(let ([needs (assq 'needs (cdr info))])
     193                           (if needs
     194                               (cdr needs)
     195                               '() ) ) ) )
     196                   eggs) ) )
     197    (print "Uploading files...")
     198    (apply upload "index.html" "repository"  (reverse eggfiles))
     199    (print "Finished.") ) )
    194200
    195201(define (build-archive name)
  • futures/futures.meta

    r3 r5  
    11;;; futures.meta -*- Hen -*-
    22((egg "futures.egg")
    3  (synopsis "Cocurrent evaluation of expressions")
     3 (synopsis "Concurrent evaluation of expressions")
    44 (license "BSD")
    55 (category lang-exts)
     6 (files "futures.scm" "futures-base.scm" "futures.html" "futures.setup")
    67 (author "<a href=\"mailto:felix@call-with-current-continuation.org\">felix</a>"))
  • s11n/constants.scm

    r4 r5  
    11;;;; constants.scm
    2 
    3 (define-constant +version+ "1.0")
    42
    53(define-constant void-tag 0)
  • s11n/doc.scm

    r4 r5  
    3232
    3333     (history
    34       (version "1.0" "Initial release"))
     34      (version "0.1" "Initial release"))
    3535
    3636     (usage)
     
    6161                     " to the value of " (tt "(current-input-port)") ". The deserialized object is returned.") ) ) )
    6262     
    63      (examples
    64       (p "%%EXAMPLES%%") )
    6563     (section "License" (pre ,license)))))
    6664
  • s11n/s11n.html

    r4 r5  
    127127<h3>Version</h3>
    128128<ul>
    129 <li>1.0 Initial release</li></ul></div>
     129<li>0.1 Initial release</li></ul></div>
    130130<div class="section">
    131131<h3>Usage</h3>
     
    139139<p>To enable serialization of procedures and continuations, CHICKEN has to be built with the
    140140<tt>--enable-procedure-tables</tt> configuration option. In particular, any compiled module that is referenced in serialized data has to be compiled with a CHICKEN version that has procedure tables enabled.</p>
     141<p>CHICKEN version 2.207 or higher is required to use this extension.</p>
    141142<dl>
    142143<dt class="definition">
    143 <strong>procedure:</strong> (serialize X [PORT])</dt>
     144<strong>procedure:</strong> (serialize X [PORT [SERIALIZER]])</dt>
    144145<dd>
    145146<p>Writes a binary representation of
    146147<tt>X</tt> into
    147148<tt>PORT</tt> which defaults to the value of
    148 <tt>(current-output-port)</tt>.</p></dd>
     149<tt>(current-output-port)</tt>. If the serialization is unable to handle some object, the procedure
     150<tt>SERIALIZER</tt> is invoked with that object as it's sole argument. The procedure should either signal an error or return a placeholder object that is to be serialized instead. If no serializer is specified, an error will be signalled.</p></dd>
    149151<dt class="definition">
    150152<strong>procedure:</strong> (deserialize [PORT])</dt>
     
    153155<tt>PORT</tt> which defaults to the value of
    154156<tt>(current-input-port)</tt>. The deserialized object is returned.</p></dd></dl></div>
    155 <div class="section">
    156 <h3>Examples</h3>
    157 <div id="examples">
    158 <p>%%EXAMPLES%%</p></div></div>
    159157<div class="section">
    160158<h3>License</h3>
Note: See TracChangeset for help on using the changeset viewer.