Changeset 1612 in project


Ignore:
Timestamp:
08/30/06 20:23:51 (14 years ago)
Author:
felix winkelmann
Message:

added pty, small fix to ncurses

Files:
6 added
7 edited

Legend:

Unmodified
Added
Removed
  • chicken/README

    r1404 r1612  
    171171
    172172    benchmarks/                 contains several benchmarks
    173     distribution/               various distribution scripts
    174     misc/                       miscellaneous stuff
    175173
    176174    hen.el                      an emacs mode for editing Scheme programs, by Linh Dang
  • chicken/chicken-setup.scm

    r1404 r1612  
    6767static void create_directory(char *pathname) {}
    6868#endif
     69
     70#ifndef C_TARGET_CC
     71# define C_TARGET_CC  C_INSTALL_CC
     72#endif
     73
     74#ifndef C_TARGET_CXX
     75# define C_TARGET_CXX  C_INSTALL_CXX
     76#endif
    6977<#
    7078
     
    94102      (foreign-value "C_INSTALL_BIN_HOME" c-string) ) )
    95103
    96 (define *cc* (foreign-value "C_INSTALL_CC" c-string))
     104(define *cc* (foreign-value "C_TARGET_CC" c-string))
     105(define *cxx* (foreign-value "C_TARGET_CXX" c-string))
    97106
    98107(define *windows*
     
    468477
    469478(define (compute-tmpdir fname)
    470   (string-append fname ".dir") )
     479  (if (string=? "egg-dir" (pathname-extension fname))
     480      fname
     481      (string-append fname "-dir") ) )
    471482
    472483(define (chdir dir)
     
    482493      (run (,*remove-command* ,(quotewrap *temporary-directory*))) )) )
    483494
    484 (define (unpack filename)
     495(define (unpack/enter filename)
    485496  (define (testgz fn)
    486497    (with-input-from-file fn
     
    634645        (create-directory dir) ) ) )
    635646
    636 (define (test-compile code #!key (cflags "") (ldflags "") (verb (setup-verbose-flag)) (compile-only #f))
     647(define (test-compile code #!key c++ (cc (if c++ *cxx* *cc*)) (cflags "") (ldflags "") (verb (setup-verbose-flag)) (compile-only #f))
    637648  (let* ((fname (create-temporary-file "c"))
    638649         (oname (pathname-replace-extension fname "o"))
     
    641652              (system
    642653               (let ((cmd (sprintf "~A ~A ~A ~A ~A ~A ~A"
    643                                    *cc*
     654                                   cc
    644655                                   (if compile-only "-c" "")
    645656                                   cflags
     
    805816      (cond ((and df (with-ext filename "setup")) => run-setup-script)
    806817            ((and df (with-ext filename "scm")) => simple-install)
    807             ((and df (with-ext filename "egg")) =>
     818            ((and df (or (with-ext filename "egg") (with-ext filename "egg-dir"))) =>
    808819             (lambda (f)
    809                (unpack f)
     820               (unpack/enter f)
    810821               (loop (pathname-replace-extension f "setup"))
    811822               (rmtmpdir) ) )
  • chicken/library.scm

    r1404 r1612  
    36143614                ;; Skips all characters until #\}
    36153615                (let ([c (##sys#read-char-0 port)])
    3616                   (cond [(eof-object? c) (err)]
     3616                  (cond [(eof-object? c)
     3617                         (##sys#read-error port "unexpected end of file - unterminated `#{...}' item in `here' string literal") ]
    36173618                        [(not (char=? #\} c)) (loop)] ) ) ) )
    36183619        form))
    36193620    (lambda (char port)
    3620       (define (err) (##sys#read-error port "unexpected end of file - unterminated string literal"))
    36213621      (cond [(not (char=? #\< char)) (old char port)]
    36223622            [else
     
    36293629                      [f #f] )
    36303630                  (do ([ln (readln port) (readln port)])
    3631                       ((or (eof-object? ln) (string=? end ln)) (get-output-string str))
     3631                      ((or (eof-object? ln) (string=? end ln))
     3632                       (when (eof-object? ln)
     3633                         (##sys#read-warning port "unterminated `here' string literal") )
     3634                       (get-output-string str) )
    36323635                    (if f
    36333636                        (##sys#write-char-0 #\newline str)
     
    36443647                  (let loop [(lst '())]
    36453648                    (let ([c (##sys#read-char-0 port)])
    3646                       (when (eof-object? c) (err))
    36473649                      (case c
    3648                         [(#\newline)
     3650                        [(#\newline #!eof)
    36493651                         (let ([s (get/clear-str)])
    3650                            (cond [(string=? end s)
     3652                           (cond [(or (eof-object? c) (string=? end s))
     3653                                  (when (eof-object? c)
     3654                                    (##sys#read-warning port "unterminated `here' string literal") )
    36513655                                  `(##sys#print-to-string
    36523656                                    ;;Can't just use `(list ,@lst) because of 126 argument apply limit
  • ncurses/ncurses.html

    r1403 r1612  
    1515<h3>Version:</h3>
    1616<ul>
     17<li>1.8
     18Fixed bug introduced by last change [Thanks to Benedikt Rosenau]
    1719<li>1.7
    1820Uses externalized easyffi extension
  • ncurses/ncurses.scm

    r1403 r1612  
    400400#define KEY_MOUSE       0631            /* Mouse event has occurred */
    401401#define KEY_RESIZE      0632            /* Terminal resize event */
    402 EOf
     402EOF
    403403)
    404404
  • sandbox/sandbox.html

    r344 r1612  
    112112<br>Should an error occur during the execution of EXPRESSION, a composite condition of the original
    113113error condition and a condition of the kind <code>sandbox</code> will be signalled.
     114<br>Note that de-allocation is not tracked, only allocation.
    114115</dd>
    115116
  • wiki/chicken-setup

    r1590 r1612  
    1212loading compiled code at runtime is supported. Currently this are
    1313most UNIX-compatible platforms that provide the {{libdl}} functionality
    14 like Linux, Solaris, BSD or Mac OS X.
     14like Linux, Solaris, BSD, Mac OS X and Windows using Cygwin.
    1515Windows with the Microsoft tools is partially supported.
    1616
     
    213213==== test-compile
    214214
    215  [procedure] (test-compile CODE #!key cflags ldflags compile-only)
     215 [procedure] (test-compile CODE #!key cc cflags ldflags compile-only c++)
    216216
    217217Returns {{#t}} if the C code in {{CODE}} compiles and links successfully, or {{#f}} otherwise.
    218 The keyword parameters {{cflags}} and {{ldflags}} accept additional compilation and
    219 linking flags. If {{compile-only}} is true, then no linking step takes place.
     218The keyword parameters {{cc}} (compiler name, defaults to the C compiler used to build this system),
     219{{cflags}} and {{ldflags}} accept additional compilation and
     220linking options. If {{compile-only}} is true, then no linking step takes place.
     221If the keyword argument {{c++}} is given and true, then the code will be compiled in C++ mode.
    220222
    221223
Note: See TracChangeset for help on using the changeset viewer.