Changeset 10 in project


Ignore:
Timestamp:
11/07/05 06:48:20 (15 years ago)
Author:
felix winkelmann
Message:

more eggs, some fixes

Files:
32 added
1 deleted
14 edited

Legend:

Unmodified
Added
Removed
  • egg-post-commit.scm

    r9 r10  
    138138            (and (file-exists? mf)
    139139                 (begin
    140                    (print* f #\space)
     140                   ;(print* f #\space)
    141141                   (cons (string->symbol f) (car (read-file mf))) ) ) ) ) )
    142142   (cddr (directory ".") ) ) )          ; skip "." and ".."
  • futures/doc.scm

    r3 r10  
    66     (description (p "A straightforward implementation of \"futures\" for concurrent evaluation of expressions."))
    77     (author (url "mailto:felix@call-with-current-continuation.org" "Felix"))
    8      (history (version "1.0" "Initial release"))
     8     (history
     9      (version "1.1" "Thomas Chust added some missing functions")
     10      (version "1.0" "Initial release"))
    911     
    1012     (usage)
     
    3133           " or when the future executed to completion, then " (tt "force") " will return the result(s) of"
    3234           " the future expression.")
    33         (p "If the argument is not a future, then the usual semantics of " (tt "force") " apply.") ) ) )
     35        (p "If the argument is not a future, then the usual semantics of " (tt "force") " apply.") )
     36
     37       (procedure
     38        "(future-complete? FUTURE)"
     39        (p "Returns " (tt "#t") " if the future has completed execution, or if an exception occurred"
     40           " during its evaluation, or " (tt "#f") " otherwise.") )
     41
     42       (procedure
     43        "(future-failed? FUTURE)"
     44        (p "Returns " (tt "#t") " if an exception occurred during evaluation of the future or " (tt "#f") " otherwise.") )
     45
     46       (procedure
     47        "(future-condition FUTURE)"
     48        (p "Returns the error-condition if an exception occurred during evaluation of the future or " (tt "#f")
     49           " if the future is still executing or executed without an error.") ) ) )
    3450
    3551     (license
  • futures/futures-base.scm

    r3 r10  
    55(declare
    66  (fixnum)
    7   (export future:make-future future? force) )
     7  (export future:make-future future? force future-condition future-failed? future-complete? future-thread) )
    88
    9 (define-record future results exn failed? %complete? thread)
     9(define-record future results condition failed? complete? thread)
    1010
    1111(define (future:make-future thunk)
     
    1515               (handle-exceptions ex
    1616                   (begin
    17                      (future-exn-set! f ex)
     17                     (future-condition-set! f ex)
    1818                     (future-failed?-set! f #t) )
    1919                 (future-results-set! f (receive (thunk))) )
    20                (future-%complete?-set! f #t) ) ) ) )
     20               (future-complete?-set! f #t) ) ) ) )
    2121    (future-thread-set! f t)
    2222    (thread-start! t)
     
    2828      (if (future? f)
    2929          (let loop ()
    30             (cond ((future-failed? f) (raise (future-exn f)))
    31                   ((future-%complete? f) (apply values (future-results f)))
     30            (cond ((future-failed? f) (raise (future-condition f)))
     31                  ((future-complete? f) (apply values (future-results f)))
    3232                  (else
    3333                   (thread-join! (future-thread f))
  • futures/futures.html

    r7 r10  
    127127<h3>Version</h3>
    128128<ul>
     129<li>1.1 Thomas Chust added some missing functions</li>
    129130<li>1.0 Initial release</li></ul></div>
    130131<div class="section">
     
    160161<tt>force</tt> will return the result(s) of the future expression.</p>
    161162<p>If the argument is not a future, then the usual semantics of
    162 <tt>force</tt> apply.</p></dd></dl></div>
     163<tt>force</tt> apply.</p></dd>
     164<dt class="definition">
     165<strong>procedure:</strong> (future-complete? FUTURE)</dt>
     166<dd>
     167<p>Returns
     168<tt>#t</tt> if the future has completed execution, or if an exception occurred during its evaluation, or
     169<tt>#f</tt> otherwise.</p></dd>
     170<dt class="definition">
     171<strong>procedure:</strong> (future-failed? FUTURE)</dt>
     172<dd>
     173<p>Returns
     174<tt>#t</tt> if an exception occurred during evaluation of the future or
     175<tt>#f</tt> otherwise.</p></dd>
     176<dt class="definition">
     177<strong>procedure:</strong> (future-condition FUTURE)</dt>
     178<dd>
     179<p>Returns the error-condition if an exception occurred during evaluation of the future or
     180<tt>#f</tt> if the future is still executing or executed without an error.</p></dd></dl></div>
    163181<div class="section">
    164182<h3>License</h3>
  • futures/futures.setup

    r3 r10  
    22(install-extension
    33 'futures '("futures.scm" "futures-base.so" "futures.html")
    4  '((syntax) (documentation "futures.html") (require-at-runtime futures-base)))
     4 '((syntax) (documentation "futures.html") (version 1.1) (require-at-runtime futures-base)))
  • json/json.scm

    r8 r10  
    2929;;
    3030
    31 (module json (json-read json-write)
     31(require-extension packrat)
     32
     33(import packrat)
     34
     35(declare (export json-read json-write))
    3236
    3337  (define (hashtable->vector ht)
    3438    (list->vector (hash-table->alist ht)) )
    35 
    36   (define (vector->hashtable v)
    37     (alist->hash-table (vector->list v)))
    3839
    3940  (define json-write
     
    7879              (number? x)) (write x p))
    7980         ((boolean? x) (display (if x "true" "false") p))
    80          ((void? x) (display "null" p))
     81         ((eq? x (void)) (display "null" p))
    8182         (else (error "Invalid JSON object in json-write" x))))
    8283
     
    189190        (read-any (if (pair? maybe-port) (car maybe-port) (current-input-port))))))
    190191
    191 )
  • json/json.setup

    r8 r10  
    11(compile -R syntax-case json.scm -s -O2 -d1)
    2 (install-extension 'json '("json.html" "json.so") '((documentation "json.html")))
     2(install-extension 'json '("json.html" "json.so") '((version 1.0) (documentation "json.html")))
  • kanren/doc.scm

    r9 r10  
    99
    1010     (history
     11      (version "4.501" "Added missing file (`kanren-term.scm') [Thanks to Benedikt Rosenau]")
    1112      (version "4.50" "Initial release"))
    1213
  • kanren/kanren.html

    r9 r10  
    126126<h3>Version</h3>
    127127<ul>
     128<li>4.501 Added missing file (`kanren-term.scm') [Thanks to Benedikt Rosenau]</li>
    128129<li>4.50 Initial release</li></ul></div>
    129130<div class="section">
  • kanren/kanren.meta

    r9 r10  
    88 (author "Oleg Kiselyov and Dan Friedman")
    99 (files "kanren.setup" "kanren.scm" "kanren.html" "chicken-specific.scm"
    10         "kanren-runtime.scm"
     10        "kanren-runtime.scm" "kanren-term.scm"
    1111        "mini-kanren.setup" "mini-kanren.scm" "mini-kanren-runtime.scm") )
  • levenshtein/levenshtein-eggdoc.scm

    r1 r10  
    4949                (description (p "Provides Levenshtein edit distance operations."))
    5050                (author (url "mailto:klovett@pacbell.net" "Kon Lovett"))
    51                 (history (version "1.0" "Initial release"))
     51                (history
     52                 (version "1.1" "Requirement for srfi-43 was wrong [Thanks to Benedikt Rosenau]")
     53                 (version "1.0" "Initial release"))
    5254
    5355                (requires
     
    5557                        extras
    5658                        (url "syntax-case.html" "syntax-case")
    57                         (url "http://srfi.schemers.org/srfi-1/srfi-1.html" "srfi-1")
    58                         (url "http://srfi.schemers.org/srfi-43/srfi-43.html" "srfi-43")
    59                         (url "http://srfi.schemers.org/srfi-47/srfi-47.html" "srfi-47"))
     59                        srfi-1
     60                        (url "vector-lib.html" "vector-lib")
     61                        (url "srfi-47.html" "srfi-47"))
    6062
    6163                (usage)
  • levenshtein/levenshtein.html

    r1 r10  
    127127<h3>Version</h3>
    128128<ul>
     129<li>1.1 Requirement for srfi-43 was wrong [Thanks to Benedikt Rosenau]</li>
    129130<li>1.0 Initial release</li></ul></div>
    130131<div class="section">
     
    135136<li>
    136137<a href="syntax-case.html">syntax-case</a></li>
     138<li>srfi-1</li>
    137139<li>
    138 <a href="http://srfi.schemers.org/srfi-1/srfi-1.html">srfi-1</a></li>
     140<a href="vector-lib.html">vector-lib</a></li>
    139141<li>
    140 <a href="http://srfi.schemers.org/srfi-43/srfi-43.html">srfi-43</a></li>
    141 <li>
    142 <a href="http://srfi.schemers.org/srfi-47/srfi-47.html">srfi-47</a></li></ul></div>
     142<a href="srfi-47.html">srfi-47</a></li></ul></div>
    143143<div class="section">
    144144<h3>Usage</h3>
  • levenshtein/levenshtein.meta

    r1 r10  
    55 (author "Kon Lovett")
    66 (egg "levenshtein.egg")
    7  (needs srfi-43 srfi-47 syntax-case)
     7 (needs vector-lib srfi-47 syntax-case)
    88 (license "BSD")
    99 (files "levenshtein-c_str-mat.scm"
  • packrat/packrat.setup

    r8 r10  
    11(compile packrat.scm -s -O2 -d1 -R syntax-case)
    2 (install-extension 'packrat '("packrat.scm" "packrat.html" "packrat.so") '((documentation "packrat.html")))
     2(install-extension 'packrat '("packrat.scm" "packrat.html" "packrat.so") '((documentation "packrat.html") (version 1.0)))
Note: See TracChangeset for help on using the changeset viewer.