Changeset 2868 in project


Ignore:
Timestamp:
01/15/07 19:12:06 (14 years ago)
Author:
felix winkelmann
Message:

doc updates, chicken update

Files:
1 deleted
27 edited

Legend:

Unmodified
Added
Removed
  • chicken/ANNOUNCE

    r2710 r2868  
    8989  Currently available:
    9090
    91   F-operator ajax alexpander amb aquaterm args asxt autoload array-lib
    92   awk base64 bb binary-parse blas bloom-filter box c3 cairo charconv
    93   codewalk coerce complex content-type cookie crc crypt crypt3 csv
    94   datatype debug defstruct dissector doctype dollar dpfw easyffi
    95   eggdoc environments epeg estraier expat ezxdisp fastcgi format
    96   format-modular fp ftp futures g2 gdbm generalised-case generator
    97   gettext glut gmp hashes honu hostinfo html-plots html-stream
    98   htmlprag http http-server-form-posts iconv imlib2 inline irc iset
    99   japi javahack job-worker jni json kanren lalr lazy-ffi levenshtein
    100   lightning lirc-client locale logging lookup-table loop loopy-loop
    101   macosx magic mailbox make man mapm match-action matchable matcher
    102   mathh md5 meroon message-digest mime metakit metaphone misc-extn
    103   miscmacros mistie modds modules mole mpd-client mysql nbstdin
    104   ncurses numbers octave objc object-apply oblist openal opengl
    105   openssl orders packedobjects packrat pcap perfect-hash phoghorn
    106   pipeline pmatch pop3 postgresql ppi procedure-surface prometheus
    107   proplist protobj pty q-lang qt r6rs-libraries readline records
    108   regex-case remote-launch remote-mailbox rfc3339 rfc822 rgraph ripemd
    109   rlimit rpc rss s11n sandbox sassy schelog scheme-dissect sdl sedna
    110   sfio sha1 sha2 silex simple-macros slib smtp softscheme spiffy
    111   spiffy-utils spread sql sqlite sqlite3 sqlite3-tinyclos
    112   srfi-4-comprehensions srfi-19 srfi-25 srfi-27 srfi-29 srfi-37
    113   srfi-38 srfi-40 srfi-42 srfi-45 srfi-47 srfi-57 srfi-60 srfi-66
    114   srfi-78 srfi-85 srfi-95 ssax stack stream-base64 stream-cgi
    115   stream-ext stream-flash stream-flash-tree-map stream-htpasswd
    116   stream-httplog stream-ldif stream-parser stream-sections stream-wiki
    117   structures suspension svn-client svn-post-commit-hooks sx sxml-match
    118   sxml-tools sxml-transforms sxpath synch syntactic-closures
    119   syntax-case tar tabexpand tagged-begin test-infrastructure tcc
    120   tcp-server tcp6 testeez tiger-hash tinyclos tk udp unix-sockets uri
    121   url utf8 uuid-lib uuid-ossp vector-lib web-scheme wt-tree xlib xmi
    122   xml-rpc xosd xxexpr z3
     91  ajax alexpander amb aquaterm args asxt autoload array-lib awk base64
     92  bb binary-parse blas bloom-filter box c3 cairo charconv codewalk
     93  coerce complex content-type cookie crc crypt crypt3 csv datatype
     94  debug defstruct dissector doctype dollar dpfw easyffi eggdoc
     95  environments epeg estraier expat ezxdisp F-operator fancypants
     96  fastcgi format format-modular fp ftp futures g2 gdbm
     97  generalised-case generator gettext glut gmp hashes honu hostinfo
     98  html-plots html-stream htmlprag http http-server-form-posts iconv
     99  imlib2 inline irc iset japi javahack job-worker jni json kanren lalr
     100  lazy-ffi levenshtein lightning lirc-client locale logging
     101  lookup-table loop loopy-loop macosx magic mailbox make man mapm
     102  match-action matchable matcher mathh md5 meroon message-digest mime
     103  metakit metaphone misc-extn miscmacros mistie modds modules mole
     104  mpd-client mysql nbstdin ncurses numbers octave objc object-apply
     105  oblist openal opengl openssl orders packedobjects packrat pcap
     106  perfect-hash phoghorn pipeline pmatch pop3 postgresql ppi
     107  procedure-surface prometheus proplist protobj pty q-lang qt
     108  r6rs-libraries readline records regex-case remote-launch
     109  remote-mailbox rfc3339 rfc822 rgraph ripemd rlimit rpc rss s11n
     110  sandbox sassy schelog scheme-dissect sdl sedna sfio sha1 sha2 silex
     111  simple-macros slib smtp softscheme spiffy spiffy-utils spread sql
     112  sqlite sqlite3 sqlite3-tinyclos sqlora srfi-4-comprehensions srfi-19
     113  srfi-25 srfi-27 srfi-29 srfi-37 srfi-38 srfi-40 srfi-42 srfi-45
     114  srfi-47 srfi-57 srfi-60 srfi-66 srfi-78 srfi-85 srfi-95 ssax stack
     115  stream-base64 stream-cgi stream-ext stream-flash
     116  stream-flash-tree-map stream-htpasswd stream-httplog stream-ldif
     117  stream-parser stream-sections stream-wiki structures suspension
     118  svn-client svn-post-commit-hooks sx sxml-match sxml-tools
     119  sxml-transforms sxpath synch syntactic-closures syntax-case tar
     120  tabexpand tagged-begin test-infrastructure tcc tcp-server tcp6
     121  testeez tiger-hash tinyclos tk udp unix-sockets uri url utf8
     122  uuid-lib uuid-ossp vector-lib web-scheme wt-tree xlib xmi xml-rpc
     123  xosd xxexpr z3
    123124
    124125
  • chicken/CMakeLists.txt

    r2769 r2868  
    618618  pcre.exports
    619619  posixunix.c
    620   posixunix.exports
     620  posix.exports
    621621  posixwin.c
    622   posixwin.exports
    623622  pregexp.c
    624623  pregexp.exports
     
    13081307LIBRARY_SCM_TO_C_EXPORTS(pcre regex-common)
    13091308UNSAFE_LIBRARY_SCM_TO_C(pcre regex-common)
    1310 LIBRARY_SCM_TO_C_EXPORTS(posixunix)
     1309
     1310# posixunix.scm and posixwin.scm both generate a file called posix.exports.
     1311# Thus there is a file collision.  In principle the files should export the same
     1312# functions, but in practice, Windows often lags behind Unix development.
     1313# The quick 'n' dirty solution is to compile both at the same time and just
     1314# take the results of the 2nd compilation as the correct results.  We make
     1315# the Windows version of posix.exports the "correct" results because it is
     1316# more likely to be missing stuff.  Thus it'll break someone's code at
     1317# compile time and we'll know there's a problem.
     1318#
     1319# If this quick 'n' dirty approach is deemed insufficient, then the contents
     1320# of the posix.exports files need to be sorted and compared, to ensure
     1321# that they are indeed identical.  The sorting could be done with CMake,
     1322# but sorted output from Chicken itself would be better.  It would be more
     1323# readable and allow Autoconf to generate the same output.
     1324
     1325# Only posixwin.scm is responsible for posix.exports.
     1326# posixunix.scm emits it anyways, but posixwin.scm will re-emit it.
     1327# Side effect: posixwin.c is compiled every time posixunix.c is compiled.
     1328# If we had a command line option to suppress the emit code, we could avoid this.
     1329
     1330ADD_CUSTOM_COMMAND(
     1331  OUTPUT ${CMAKE_CURRENT_BINARY_DIR}/posixunix.c
     1332  MAIN_DEPENDENCY ${Chicken_SOURCE_DIR}/posixunix.scm
     1333  COMMAND ${CURRENT_CHICKEN} ${Chicken_SOURCE_DIR}/posixunix.scm -output-file ${CMAKE_CURRENT_BINARY_DIR}/posixunix.c -explicit-use ${CHICKEN_FLAGS}
     1334  COMMENT "Compiling ${Chicken_SOURCE_DIR}/posixunix.scm to ${CMAKE_CURRENT_BINARY_DIR}/posixwin.c"
     1335)
     1336ADD_CUSTOM_COMMAND(
     1337  OUTPUT ${CMAKE_CURRENT_BINARY_DIR}/posixwin.c ${CMAKE_CURRENT_BINARY_DIR}/posix.exports
     1338  MAIN_DEPENDENCY ${Chicken_SOURCE_DIR}/posixwin.scm
     1339  COMMAND ${CURRENT_CHICKEN} ${Chicken_SOURCE_DIR}/posixwin.scm -output-file ${CMAKE_CURRENT_BINARY_DIR}/posixwin.c -explicit-use ${CHICKEN_FLAGS}
     1340  COMMENT "Compiling ${Chicken_SOURCE_DIR}/posixwin.scm to ${CMAKE_CURRENT_BINARY_DIR}/posixwin.c Exporting ${CMAKE_CURRENT_BINARY_DIR}/posix.exports"
     1341)
     1342# Unsafe libraries don't emit anything.
    13111343UNSAFE_LIBRARY_SCM_TO_C(posixunix)
    1312 LIBRARY_SCM_TO_C_EXPORTS(posixwin)
    13131344UNSAFE_LIBRARY_SCM_TO_C(posixwin)
     1345
    13141346LIBRARY_SCM_TO_C_EXPORTS(pregexp regex-common)
    13151347UNSAFE_LIBRARY_SCM_TO_C(pregexp regex-common)
  • chicken/Makefile.am

    r2710 r2868  
    243243
    244244if IS_MINGW
    245 posixexports = posixwin.exports
    246245chickenlibsources += posixwin.c
    247246chickenulibsources += uposixwin.c
    248247else
    249 posixexports = posixunix.exports
    250248chickenlibsources += posixunix.c
    251249chickenulibsources += uposixunix.c
     
    282280  srfi-13.exports srfi-14.exports srfi-18.exports utils.exports extras.exports \
    283281  eval.exports tcp.exports regex.exports posix.exports lolevel.exports scheduler.exports
    284 
    285 posix.exports: $(posixexports)
    286         cp $(posixexports) posix.exports
    287282
    288283regex.exports: $(regexexports)
  • chicken/README

    r2794 r2868  
    33  (c)2000-2003 Felix L. Winkelmann
    44
    5   Version 2.513
     5  Version 2.515
    66
    77
  • chicken/build.scm

    r2794 r2868  
    1 (define-constant +build-version+ "2.513")
     1(define-constant +build-version+ "2.515")
  • chicken/buildversion

    r2794 r2868  
    1 2.513
     12.515
  • chicken/chicken-config-cmake.h.in

    r1928 r2868  
    66#define C_USE_C_DEFAULTS 1
    77
    8 /* HAVE_* variables are either "1" or "".  Use a trailing "0" in substitutions
    9 so that we always are working with a number.  We'll either get "#if 0"
    10 or "#if 10", which looks funny, but it works. */
     8/* HAVE_* variables are either "1" or "".
     9 CMake will automatically place an #undef HAVE_* comment
     10 or the proper definition of the HAVE_* preprocessor variable
     11 into the chicken-config.h file according to the content (empty or not)
     12 of the HAVE_* variable
     13*/
    1114
    12 #if @HAVE_ALLOCA_H@0
    13 #define HAVE_ALLOCA_H @HAVE_ALLOCA_H@
    14 #endif
    1515
    16 #if @HAVE_ALLOCA@0
    17 #define HAVE_ALLOCA @HAVE_ALLOCA@
    18 #endif
     16#cmakedefine HAVE_ALLOCA_H @HAVE_ALLOCA_H@
    1917
    20 #if @HAVE_CRT_EXTERNS_H@0
    21 #define HAVE_CRT_EXTERNS_H @HAVE_CRT_EXTERNS_H@
    22 #endif
     18#cmakedefine HAVE_ALLOCA @HAVE_ALLOCA@
    2319
    24 #if @HAVE_DIRECT_H@0
    25 #define HAVE_DIRECT_H @HAVE_DIRECT_H@
    26 #endif
     20#cmakedefine HAVE_CRT_EXTERNS_H @HAVE_CRT_EXTERNS_H@
    2721
    28 #if @HAVE_GCVT@0
    29 #define HAVE_GCVT @HAVE_GCVT@
    30 #endif
     22#cmakedefine HAVE_DIRECT_H @HAVE_DIRECT_H@
    3123
    32 #if @HAVE_GRP_H@0
    33 #define HAVE_GRP_H @HAVE_GRP_H@
    34 #endif
     24#cmakedefine HAVE_GCVT @HAVE_GCVT@
    3525
    36 #if @HAVE_STDINT_H@0
    37 #define HAVE_STDINT_H @HAVE_STDINT_H@
    38 #endif
     26#cmakedefine HAVE_GRP_H @HAVE_GRP_H@
    3927
    40 #if @HAVE_SYSEXITS_H@0
    41 #define HAVE_SYSEXITS_H @HAVE_SYSEXITS_H@
    42 #endif
     28#cmakedefine HAVE_STDINT_H @HAVE_STDINT_H@
    4329
    44 #if @HAVE_DLFCN_H@0
    45 #define HAVE_DLFCN_H @HAVE_DLFCN_H@1
    46 #endif
     30#cmakedefine HAVE_SYSEXITS_H @HAVE_SYSEXITS_H@
    4731
    48 #if @HAVE_DL_H@0
    49 #define HAVE_DL_H @HAVE_DL_H@
    50 #endif
     32#cmakedefine HAVE_DLFCN_H @HAVE_DLFCN_H@
    5133
    52 #if @HAVE_FFI_H@0
    53 #define HAVE_FFI_H @HAVE_FFI_H@1
    54 #endif
     34#cmakedefine HAVE_DL_H @HAVE_DL_H@
    5535
    56 #if @HAVE_WINDOWS_H@0
    57 #define HAVE_WINDOWS_H @HAVE_WINDOWS_H@
    58 #endif
     36#cmakedefine HAVE_FFI_H @HAVE_FFI_H@
    5937
    60 #if @HAVE_LOADLIBRARY@0
    61 #define HAVE_LOADLIBRARY @HAVE_LOADLIBRARY@
    62 #endif
     38#cmakedefine HAVE_WINDOWS_H @HAVE_WINDOWS_H@
    6339
    64 #if @HAVE_GETPROCADDRESS@0
    65 #define HAVE_GETPROCADDRESS @HAVE_GETPROCADDRESS@1
    66 #endif
     40#cmakedefine HAVE_LOADLIBRARY @HAVE_LOADLIBRARY@
    6741
    68 #if @HAVE_WINSOCK2_H@0
    69 #define HAVE_WINSOCK2_H @HAVE_WINSOCK2_H@
    70 #endif
     42#cmakedefine HAVE_GETPROCADDRESS @HAVE_GETPROCADDRESS@
    7143
    72 #if @HAVE_WS2TCPIP_H@0
    73 #define HAVE_WS2TCPIP_H @HAVE_WS2TCPIP_H@
    74 #endif
     44#cmakedefine HAVE_WINSOCK2_H @HAVE_WINSOCK2_H@
     45
     46#cmakedefine HAVE_WS2TCPIP_H @HAVE_WS2TCPIP_H@
  • chicken/chicken-more-macros.scm

    r2776 r2868  
    118118       [reverse reverse] )
    119119   (lambda (filename)
    120      `(begin
    121         ,@(with-input-from-file (##sys#resolve-include-filename filename #t)
    122             (lambda ()
    123               (do ([x (read) (read)]
    124                    [xs '() (cons x xs)] )
    125                   ((eof-object? x)
    126                    (reverse xs))) ) ) ) ) ) )
     120     (let ((path (##sys#resolve-include-filename filename #t)))
     121       (when (load-verbose) (print "; including " path " ..."))
     122       `(begin
     123          ,@(with-input-from-file path
     124              (lambda ()
     125                (do ([x (read) (read)]
     126                     [xs '() (cons x xs)] )
     127                    ((eof-object? x)
     128                     (reverse xs))) ) ) ) ) ) ) )
    127129
    128130(##sys#register-macro
  • chicken/chicken-setup.scm

    r2798 r2868  
    301301                     (date (and (file-exists? s2)
    302302                                (file-modification-time s2))))
    303 
    304303                (when (setup-verbose-flag)
    305304                  (printf "make: ~achecking ~a~%" indent s2))
    306 
    307305                (if line
    308306                    (let ((deps (cadr line)))
     
    856854    (fold
    857855     (lambda (r reqs)
    858        (let ((node (assq r *repository-tree*)))
    859          (cond (node (append (requirements (cdddr node)) (list (car node)) reqs))
    860                ((memq r ##sys#core-library-modules) reqs)
    861                (else (error "Broken dependencies: extension does not exist" r) ) ) ) )
     856       (cond ((symbol? r)
     857              (let ((node (assq r *repository-tree*)))
     858                (cond (node (append (requirements (cdddr node)) (list (car node)) reqs))
     859                      ((memq r ##sys#core-library-modules) reqs)
     860                      (else (error "Broken dependencies: extension does not exist" r) ) ) ) )
     861             (else
     862              (when (setup-verbose-flag)
     863                (print "Testing system:")
     864                (pp r) )
     865              (let ((f (eval r)))
     866              (when (setup-verbose-flag)
     867                (print "\t-> " f) )
     868              (requirements f) ) ) ) )
    862869     '()
    863870     reqs) )
  • chicken/compiler.scm

    r2776 r2868  
    570570                            file-requirements 'syntax-requirements (cut lset-union eq? <> ids)
    571571                            (lambda () ids) )
    572                            (let ([rs (##sys#lookup-runtime-requirements ids)])
    573                              (hash-table-update!
    574                               file-requirements 'runtime-requirements (cut lset-union eq? <> rs)
    575                               (lambda () rs))
    576                              (walk
    577                               (if (null? rs)
    578                                   '(##core#undefined)
    579                                   `(##sys#require ,@(map (lambda (x) `',x) rs)) )
    580                               ae me dest) ) ) )
     572                           '(##core#undefined) ) )
    581573
    582574                        ((##core#require-extension)
     
    11261118          (set! compressed-literals-initializer (third spec)) ) )
    11271119       ((emit-exports)
    1128         (if (null? (cdr spec))
    1129             (quit "invalid `emit-exports' declaration" spec)
    1130             (set! export-file-name (cadr spec)) ) )
     1120        (cond ((null? (cdr spec))
     1121               (quit "invalid `emit-exports' declaration" spec) )
     1122              ((not export-file-name) (set! export-file-name (cadr spec))) ) )
    11311123       ((emit-external-prototypes-first)
    11321124        (set! external-protos-first #t) )
  • chicken/configure.in

    r2443 r2868  
    337337
    338338boot_exports="eval.exports extras.exports library.exports lolevel.exports \
    339   pcre.exports posixunix.exports posixwin.exports pregexp.exports \
     339  pcre.exports posix.exports pregexp.exports \
    340340  regexunix.exports scheduler.exports srfi-1.exports srfi-4.exports \
    341341  srfi-13.exports srfi-18.exports tcp.exports utils.exports"
  • chicken/csc.1

    r1016 r2868  
    3131
    3232.TP
     33.B CSC_OPTIONS
     34Can hold default options that should be passed to every invocation of
     35.B csc
     36
     37.TP
    3338.B CHICKEN_PREFIX
    3439An alternative installation prefix, where the Scheme-to-C translator
  • chicken/csc.scm

    r2794 r2868  
    473473
    474474    -v -k -fixnum-arithmetic -optimize
     475
     476  The contents of the environment variable CSC_OPTIONS are implicitly
     477  passed to every invocation of `csc'.
    475478"
    476479) )
     
    875878   (append
    876879    (if staticexts (nth-value 0 (static-extension-info)) '())
    877     (if (or static static-libs)
    878         (if gui gui-library-files library-files)
    879         (if gui gui-shared-library-files shared-library-files) ) ) ) )
     880    (cons
     881     (if (or static static-libs) extra-libraries extra-shared-libraries)
     882     (if (or static static-libs)
     883         (if gui gui-library-files library-files)
     884         (if gui gui-shared-library-files shared-library-files) ) ) ) ) )
    880885
    881886
     
    928933;;; Run it:
    929934
    930 (run (command-line-arguments))
     935(run (append (string-split (or (getenv "CSC_OPTIONS") ""))
     936             (command-line-arguments)) )
  • chicken/eval.scm

    r2794 r2868  
    14271427              [else
    14281428               (let ([info (##sys#extension-information id 'require-extension)])
    1429                  (cond [info
    1430                         (values
    1431                          (if (or (assq 'syntax info) (assq 'require-at-runtime info))
    1432                              `(##core#require-for-syntax ',id)
    1433                              (begin
    1434                                (add-req id)
    1435                                `(##sys#require ',id) ) )
    1436                          #t) ]
    1437                        [else
     1429                 (cond (info
     1430                        (let ((s (assq 'syntax info))
     1431                              (rr (assq 'require-at-runtime info)) )
     1432                          (when s (add-req id))
     1433                          (values
     1434                           `(begin
     1435                              ,@(if s `((##core#require-for-syntax ',id)) '())
     1436                              ,@(if (and (not rr) s)
     1437                                   '()
     1438                                   `((##sys#require
     1439                                      ,@(map (lambda (id) `',id)
     1440                                             (cond (rr (cdr rr))
     1441                                                   (else (list id)) ) ) ) ) ) )
     1442                           #t) ) )
     1443                       (else
    14381444                        (add-req id)
    1439                         (values `(##sys#require ',id) #f)] ) ) ] ) )
     1445                        (values `(##sys#require ',id) #f)) ) ) ] ) )
    14401446      (if (and (pair? id) (symbol? (car id)))
    14411447          (let ([a (assq (##sys#slot id 0) ##sys#extension-specifiers)])
  • chicken/library.scm

    r2794 r2868  
    27772777(define (##sys#user-print-hook x readable port)
    27782778  (let* ([type (##sys#slot x 0)]
    2779          [typename (if (eq? 'record type) (##sys#slot (##sys#slot x 1) 1) type)]
    2780          [a (assq typename ##sys#record-printers)] )
     2779         [a (assq type ##sys#record-printers)] )
    27812780    (cond [a ((##sys#slot a 1) x port)]
    27822781          [else
  • chicken/lolevel.scm

    r2776 r2868  
    4646#ifndef C_NONUNIX
    4747# include <sys/mman.h>
    48 #endif
    49 #if defined(__i386__) && !defined(C_NONUNIX) && !defined(__CYGWIN__)
    50 # define C_valloc(n)               valloc(n)
    51 #elif defined(__i386__) || defined(_M_IX86)
    52 # define C_valloc(n)               malloc(n)
    53 #else
    54 # define C_valloc(n)               NULL
    5548#endif
    5649
     
    413406       (foreign-lambda* scheme-object ((int size))
    414407         "char *bv;
    415            if((bv = (char *)malloc(size + 3 + sizeof(C_header))) == NULL) return(C_SCHEME_FALSE);
     408           if((bv = (char *)C_malloc(size + 3 + sizeof(C_header))) == NULL) return(C_SCHEME_FALSE);
    416409           bv = (char *)C_align((C_word)bv);
    417410           ((C_SCHEME_BLOCK *)bv)->header = C_BYTEVECTOR_TYPE | size;
  • chicken/posixunix.scm

    r2794 r2868  
    400400    (define-macro (##sys#check-byte-vector . _) '(##core#undefined)) ) ]
    401401 [else
    402   (declare (emit-exports "posixunix.exports")) ] )
     402  (declare (emit-exports "posix.exports")) ] )
    403403
    404404(register-feature! 'posix)
     
    11631163(define errno/exist _eexist)
    11641164(define errno/wouldblock _ewouldblock)
     1165
     1166(define errno/2big 0)
     1167(define errno/deadlk 0)
     1168(define errno/dom 0)
     1169(define errno/fbig 0)
     1170(define errno/ilseq 0)
     1171(define errno/mlink 0)
     1172(define errno/nametoolong 0)
     1173(define errno/nfile 0)
     1174(define errno/nodev 0)
     1175(define errno/nolck 0)
     1176(define errno/nosys 0)
     1177(define errno/notempty 0)
     1178(define errno/notty 0)
     1179(define errno/nxio 0)
     1180(define errno/range 0)
     1181(define errno/xdev 0)
    11651182
    11661183(cond-expand
  • chicken/posixwin.scm

    r2798 r2868  
    789789    (define-macro (##sys#check-byte-vector . _) '(##core#undefined)) ) ]
    790790 [else
    791   (declare (emit-exports "posixwin.exports"))] )
     791  (declare (emit-exports "posix.exports"))] )
    792792
    793793(register-feature! 'posix)
     
    949949  (vector _stat_st_ino _stat_st_mode _stat_st_nlink
    950950          _stat_st_uid _stat_st_gid _stat_st_size
    951           _stat_st_atime _stat_st_ctime _stat_st_mtime) )
     951          _stat_st_atime _stat_st_ctime _stat_st_mtime
     952          0 0 0 0) )
    952953
    953954(define (file-size f) (##sys#stat f) _stat_st_size)
     
    16691670                        [(pproc f) (loop rest (action f r))]
    16701671                        [else (loop rest r)] ) ) ) ) ) ) ) ) )
     1672
     1673;;; unimplemented stuff:
     1674
     1675(define-macro (define-unimplemented name)
     1676  `(define (,name . _)
     1677     (error ',name (##core#immutable '"this function is not available on this platform")) ) )
     1678
     1679(define-unimplemented change-file-owner)
     1680(define-unimplemented create-fifo)
     1681(define-unimplemented create-session)
     1682(define-unimplemented create-symbolic-link)
     1683(define-unimplemented current-effective-group-id)
     1684(define-unimplemented current-effective-user-id)
     1685(define-unimplemented current-group-id)
     1686(define-unimplemented current-user-id)
     1687(define-unimplemented map-file-to-memory)
     1688(define-unimplemented file-link)
     1689(define-unimplemented file-lock)
     1690(define-unimplemented file-lock/blocking)
     1691(define-unimplemented file-select)
     1692(define-unimplemented file-test-lock)
     1693(define-unimplemented file-truncate)
     1694(define-unimplemented file-unlock)
     1695(define-unimplemented get-groups)
     1696(define-unimplemented group-information)
     1697(define-unimplemented initialize-groups)
     1698(define-unimplemented local-timezone-abbreviation)
     1699(define-unimplemented memory-mapped-file-pointer)
     1700(define-unimplemented parent-process-id)
     1701(define-unimplemented process-fork)
     1702(define-unimplemented process-group-id)
     1703(define-unimplemented process-signal)
     1704(define-unimplemented read-symbolic-link)
     1705(define-unimplemented set-alarm!)
     1706(define-unimplemented set-group-id!)
     1707(define-unimplemented set-groups!)
     1708(define-unimplemented set-process-group-id!)
     1709(define-unimplemented set-root-directory!)
     1710(define-unimplemented set-signal-handler!)
     1711(define-unimplemented set-signal-mask!)
     1712(define-unimplemented set-user-id!)
     1713(define-unimplemented signal-handler)
     1714(define-unimplemented signal-mask)
     1715(define-unimplemented signal-mask!)
     1716(define-unimplemented signal-masked?)
     1717(define-unimplemented signals-list)
     1718(define-unimplemented signal-unmask!)
     1719(define-unimplemented terminal-name)
     1720(define-unimplemented terminal-port?)
     1721(define-unimplemented unmap-file-from-memory)
     1722(define-unimplemented user-information)
     1723(define-unimplemented utc-time->seconds)
     1724
     1725(define errno/wouldblock 0)
     1726
     1727(define (fifo? _) #f)
     1728(define (memory-mapped-file? _) #f)
     1729
     1730(define map/anonymous 0)
     1731(define map/file 0)
     1732(define map/fixed 0)
     1733(define map/private 0)
     1734(define map/shared 0)
     1735(define open/fsync 0)
     1736(define open/noctty 0)
     1737(define open/nonblock 0)
     1738(define open/sync 0)
     1739(define perm/isgid 0)
     1740(define perm/isuid 0)
     1741(define perm/isvtx 0)
     1742(define prot/exec 0)
     1743(define prot/none 0)
     1744(define prot/read 0)
     1745(define prot/write 0)
     1746(define signal/abrt 0)
     1747(define signal/alrm 0)
     1748(define signal/chld 0)
     1749(define signal/cont 0)
     1750(define signal/fpe 0)
     1751(define signal/hup 0)
     1752(define signal/ill 0)
     1753(define signal/int 0)
     1754(define signal/io 0)
     1755(define signal/kill 0)
     1756(define signal/pipe 0)
     1757(define signal/prof 0)
     1758(define signal/quit 0)
     1759(define signal/segv 0)
     1760(define signal/stop 0)
     1761(define signal/term 0)
     1762(define signal/trap 0)
     1763(define signal/tstp 0)
     1764(define signal/urg 0)
     1765(define signal/usr1 0)
     1766(define signal/usr2 0)
     1767(define signal/vtalrm 0)
     1768(define signal/winch 0)
     1769(define signal/xcpu 0)
     1770(define signal/xfsz 0)
  • chicken/runtime.c

    r2794 r2868  
    624624
    625625  /* Allocate temporary stack: */
    626   if((C_temporary_stack_limit = (C_word *)malloc(TEMPORARY_STACK_SIZE * sizeof(C_word))) == NULL)
     626  if((C_temporary_stack_limit = (C_word *)C_malloc(TEMPORARY_STACK_SIZE * sizeof(C_word))) == NULL)
    627627    return 0;
    628628 
     
    631631 
    632632  /* Allocate mutation stack: */
    633   mutation_stack_bottom = (C_word **)malloc(DEFAULT_MUTATION_STACK_SIZE * sizeof(C_word *));
     633  mutation_stack_bottom = (C_word **)C_malloc(DEFAULT_MUTATION_STACK_SIZE * sizeof(C_word *));
    634634
    635635  if(mutation_stack_bottom == NULL) return 0;
     
    73367336  C_char *eptr, *eptr2;
    73377337  double fn;
    7338 #ifdef __CYGWIN__
     7338#if defined(__CYGWIN__) || defined(__MINGW32__)
    73397339  int len = C_strlen(str);
    73407340
  • chicken/site/index.html

    r2615 r2868  
    151151<!-- <a href="http://www.call-with-current-continuation.org/chicken-2.5-win32-msvc.zip">chicken-2.5-win32-msvc.zip</a> (Windows x86 binaries)<br> -->
    152152
    153 <!--
    154 Latest development snapshot: <a href="http://www.call-with-current-continuation.org/chicken-2.5rc1.tar.gz">chicken-2.5rc1.tar.gz</a>
     153Latest development snapshot: <a href="http://www.call-with-current-continuation.org/chicken-2.514.tar.gz">chicken-2.514.tar.gz</a>
    155154and <a href="http://www.call-with-current-continuation.org/ChangeLog.txt">(Change log)</a>
    156 -->
    157155
    158156</p>
  • chicken/site/tarballs/index.html

    r2710 r2868  
    147147<p><a href="uuid-1.5.1.tar.gz">uuid-1.5.1.tar.gz</a>
    148148<p><a href="xosd-2.2.12.tar.gz">xosd-2.2.12.tar.gz</a>
     149<p><a href="fltk-1.1.7-source.tar.gz">fltk-1.1.7-source.tar.gz</a>
    149150
    150151</div>
  • chicken/srfi-18.scm

    r2776 r2868  
    282282    (##sys#add-to-ready-queue thread) ) )
    283283
    284 (define thread-sleep!
    285   (lambda (tm)
    286     (unless tm (##sys#signal-hook #:type-error 'thread-sleep! "invalid timeout argument" tm))
     284(define thread-sleep!)
     285(define thread-sleep!/ms)
     286
     287(let ()
     288  (define (sleep limit loc)
    287289    (##sys#call-with-current-continuation
    288290     (lambda (return)
    289        (let ([limit (##sys#compute-time-limit tm)]
    290              [ct ##sys#current-thread] )
     291       (let ((ct ##sys#current-thread))
    291292         (##sys#setslot ct 1 (lambda () (return (##core#undefined))))
    292293         (##sys#thread-block-for-timeout! ct limit)
    293          (##sys#schedule) ) ) ) ) )
     294         (##sys#schedule) ) ) ) )
     295  (set! thread-sleep!
     296    (lambda (tm)
     297      (unless tm (##sys#signal-hook #:type-error 'thread-sleep! "invalid timeout argument" tm))
     298      (sleep (##sys#compute-time-limit tm)) ) )
     299  (set! thread-sleep!/ms
     300    (lambda (ms)
     301      (##sys#check-exact ms 'thread-sleep!/ms)
     302      (sleep (fx+ (##sys#fudge 16) ms)) ) ) )
    294303
    295304
  • chicken/support.scm

    r2776 r2868  
    756756    (with-output-to-file file
    757757      (lambda ()
    758         (##sys#hash-table-for-each
    759          (lambda (sym plist)
    760            (when (and (assq 'global plist)
    761                       (assq 'assigned plist)
    762                       (or (and export-list (memq sym export-list))
    763                           (not (memq sym block-globals)) ) )
    764              (write sym)
    765              (newline) ) )
    766          db) ) ) ) )
     758        (let ((exports '()))
     759          (##sys#hash-table-for-each
     760           (lambda (sym plist)
     761             (when (and (assq 'global plist)
     762                        (assq 'assigned plist)
     763                        (or (and export-list (memq sym export-list))
     764                            (not (memq sym block-globals)) ) )
     765               (set! exports (cons sym exports)) ) )
     766           db)
     767          (for-each
     768           (lambda (s)
     769             (write s)
     770             (newline) )
     771           (sort exports
     772                 (lambda (s1 s2)
     773                   (string<? (##sys#slot s1 1) (##sys#slot s2 1)))) ) ) ) ) ) )
    767774
    768775(define (dump-undefined-globals db)
  • chicken/utils.scm

    r2776 r2868  
    3636(declare
    3737  (unit utils)
    38   (uses regex extras eval)
     38  (uses regex extras)
    3939  (usual-integrations)
    4040  (fixnum)
  • egg-post-commit

    r2798 r2868  
    113113                   " is placed at a location for which you don't have write permissions, then run "
    114114                   (code "chicken-setup") "as root. You can obtain the repository location by running "
    115                    (code "chicken-setup -repository") ".")
     115                   (pre "
     116$ chicken-setup -repository
     117") )
    116118                (p "If you only want to download the extension and install it later, pass the "
    117119                   (code "-fetch") "option to " (code "chicken-setup") ":"
  • wiki/Acknowledgements

    r2808 r2868  
    33== Acknowledgements
    44
    5 Many thanks to
    6 Nico Amtsberg, William Annis, Marc Baily, Peter Barabas, Jonah Beckford, Arto Bendiken, Peter Bex, Jean-François Bignolles, Dave Bodenstab,
    7 Fabian Böhlke, T. Kurt Bond,
    8 Ashley Bone, Dominique Boucher,
    9 Terence Brannon, Roy Bryant, Adam Buchbinder, Ingo Büngener, Hans Bulfone, Category 5, Taylor Campbell, Franklin Chen,
    10 Thomas Chust, Gian Paolo Ciceri,
    11 John Cowan, Grzegorz Chrupa&#322;a,
    12 James Crippen, Tollef Fog Heen, Alejandro Forero Cuervo, Linh Dang,
    13 Brian Denheyer, dgym, Chris Double, Jarod Eells, Petter Egesund, Steve Elkins, Daniel B. Faken, WIll Farr, Graham Fawcett, Fizzie, Kimura Fuyuki,
    14 Tony Garnock-Jones, Martin Gasbichler,
    15 Joey Gibson,
    16 Johannes Grødem, Damian Gryski, Mario Domenech Goulart, Andreas Gustafsson, Sven Hartrumpf,
    17 Jun-ichiro itojun Hagino, Matthias Heiler, Karl M. Hegbloom, William P. Heinemann, Bill Hoffman, Bruce Hoult, Hans Hübner,
    18 Markus Hülsmann, Goetz Isenmann,
    19 David Janssens, Christian Jaeger, Dale Jordan, Valentin Kamyshenko, Daishi Kato, Peter Keller, Brad Kind,
    20 Ron Kneusel, Matthias Koeppe, Krysztof Kowa&#322;czyk, Todd R. Kueny Sr, Goran Krampe, Micky Latowicki, John Lenz, Kirill Lisovsky,
    21 Kon Lovett, Dennis Marti, Charles Martin, Bob McIsaac, Alain Mellan,
    22 Eric Merrit, Perry Metzger,
    23 Scott G. Miller, Mikael, Bruce Mitchener, Chris Moline,
    24 Eric E. Moore, Julian Morrison, Dan Muresan, Lars Nilsson, Ian Oversby, o.t., Gene Pavlovsky, Levi Pearson, Nicolas Pelletier, Carlos Pita,
    25 Pupeno, Davide Puricelli, Doug Quale,
    26 Eric Raible, Joel Reymont, Andreas Rottman, David Rush, Lars Rustemeier, Oskar Schirmer, Burton Samograd,
    27 Reed Sheridan, Ronald Schröder,
    28 Spencer Schumann, Alex Shinn, Shmul, Jeffrey B. Siegal, Andrey Sidorenko, Michele Simionato, Volker Stolz, Dorai Sitaram,
    29 Robert Skeels, Jason Songhurst, Clifford Stein, Sunnan, Zbigniew Szadkowski, Mike Thomas, Christian Tismer,
    30 Andre van Tonder, John Tobey, Henrik Tramberend,
    31 Vladimir Tsichevsky,
    32 Neil van Dyke, Sander Vesik, Panagiotis Vossos, Shawn Wagner, Peter Wang,
    33 Ed Watkeys, Thomas Weidner, Goeran Weinholt, Matthew Welland, Joerg Wittenberger, Peter Wright, Mark Wutka,
    34 Richard Zidlicky and Houman Zolfaghari for bug-fixes, tips and suggestions.
     5Many thanks to Nico Amtsberg, William Annis, Marc Baily, Peter
     6Barabas, Jonah Beckford, Arto Bendiken, Peter Bex, Jean-François
     7Bignolles, Dave Bodenstab, Fabian Böhlke, T. Kurt Bond, Ashley Bone,
     8Dominique Boucher, Terence Brannon, Roy Bryant, Adam Buchbinder, Hans
     9Bulfone, Category 5, Taylor Campbell, Franklin Chen, Thomas Chust,
     10Gian Paolo Ciceri, John Cowan, Grzegorz Chrupa&#322;a, James Crippen,
     11Tollef Fog Heen, Alejandro Forero Cuervo, Linh Dang, Brian Denheyer,
     12dgym, Chris Double, Jarod Eells, Petter Egesund, Steve Elkins, Daniel
     13B. Faken, WIll Farr, Graham Fawcett, Fizzie, Kimura Fuyuki, Tony
     14Garnock-Jones, Martin Gasbichler, Joey Gibson, Stephen C. Gilardi,
     15Joshua Griffith, Johannes Grødem, Damian Gryski, Mario Domenech
     16Goulart, Andreas Gustafsson, Sven Hartrumpf, Jun-ichiro itojun Hagino,
     17Matthias Heiler, Karl M. Hegbloom, William P. Heinemann, Bill Hoffman,
     18Bruce Hoult, Hans Hübner, Markus Hülsmann, Goetz Isenmann, David
     19Janssens, Christian Jaeger, Dale Jordan, Valentin Kamyshenko, Daishi
     20Kato, Peter Keller, Brad Kind, Ron Kneusel, Matthias Koeppe, Krysztof
     21Kowa&#322;czyk, Todd R. Kueny Sr, Goran Krampe, Micky Latowicki, John
     22Lenz, Kirill Lisovsky, Kon Lovett, Dennis Marti, Charles Martin, Bob
     23McIsaac, Alain Mellan, Eric Merrit, Perry Metzger, Scott G. Miller,
     24Mikael, Bruce Mitchener, Chris Moline, Eric E. Moore, Julian Morrison,
     25Dan Muresan, Lars Nilsson, Ian Oversby, o.t., Gene Pavlovsky, Levi
     26Pearson, Nicolas Pelletier, Carlos Pita, Pupeno, Davide Puricelli,
     27Doug Quale, Eric Raible, Joel Reymont, Andreas Rottman, David Rush,
     28Lars Rustemeier, Daniel Sadilek, Oskar Schirmer, Burton Samograd, Reed
     29Sheridan, Ronald Schröder, Spencer Schumann, Alex Shinn, Shmul,
     30Jeffrey B. Siegal, Andrey Sidorenko, Michele Simionato, Volker Stolz,
     31Dorai Sitaram, Robert Skeels, Jason Songhurst, Clifford Stein, Sunnan,
     32Zbigniew Szadkowski, Mike Thomas, Christian Tismer, Andre van Tonder,
     33John Tobey, Henrik Tramberend, Vladimir Tsichevsky, Neil van Dyke,
     34Sander Vesik, Panagiotis Vossos, Shawn Wagner, Peter Wang, Ed Watkeys,
     35Thomas Weidner, Goeran Weinholt, Matthew Welland, Joerg Wittenberger,
     36Peter Wright, Mark Wutka, Richard Zidlicky and Houman Zolfaghari for
     37bug-fixes, tips and suggestions.
    3538
    3639Special thanks to Brandon van Every for contributing the [[http://www.cmake.org|CMake]] support and for helping
  • wiki/Unit posix

    r2840 r2868  
    327327 [procedure] (file-stat FILE [LINK])
    328328
    329 Returns a 9-element vector with the following contents: inode-number, mode (as with {{file-permissions}}),
    330 number of hard links, uid of owner (as with {{file-owner}}), gid of owner, size (as with
    331 {{file-size}}) and access-, change- and modification-time (as with {{file-access-time}},
    332 {{file-change-time}} and {{file-modification-time}}).
    333 If the optional argument {{LINK}} is given and not {{#f}}, then the file-statistics vector will be resolved for symbolic links (otherwise symbolic links are not resolved).
     329Returns a 13-element vector with the following contents: inode-number,
     330mode (as with {{file-permissions}}), number of hard links, uid of
     331owner (as with {{file-owner}}), gid of owner, size (as with
     332{{file-size}}) and access-, change- and modification-time (as with
     333{{file-access-time}}, {{file-change-time}} and
     334{{file-modification-time}}, device id, device type (for special file
     335inode, blocksize and blocks allocated.  On Windows systems the last 4
     336values are undefined.  If the optional argument {{LINK}} is given and
     337not {{#f}}, then the file-statistics vector will be resolved for
     338symbolic links (otherwise symbolic links are not resolved).
    334339
    335340==== file-position
Note: See TracChangeset for help on using the changeset viewer.