Changeset 14278 in project


Ignore:
Timestamp:
04/17/09 09:19:39 (11 years ago)
Author:
Alex Shinn
Message:

pty for chicken 4

Location:
release/4/pty
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/pty/pty.scm

    r2759 r14278  
    88  (fixnum-arithmetic)
    99  (no-bound-checks)
    10   (no-procedure-checks)
    11   (export fcntl-ref fcntl-set! file-select-one file-read/maybe
    12           open-file-io/non-blocking process-alive?
    13           open-pty open-pty-process login-tty
    14           with-pty-process-io call-with-pty-process-io) )
     10  (no-procedure-checks))
     11
     12(require-library posix)
    1513
    1614#+(and unix (not macosx)) (foreign-declare "#include <pty.h>\n")
     
    2220(foreign-declare "#include <sys/wait.h>\n")
    2321
    24 (require-extension posix)
     22(module pty
     23  (fcntl-ref fcntl-set! file-select-one file-read/maybe
     24   open-file-io/non-blocking process-alive?
     25   open-pty open-pty-process login-tty
     26   with-pty-process-io call-with-pty-process-io)
     27
     28(import scheme chicken data-structures ports posix)
    2529
    2630;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
    250254         o))
    251255
     256)
  • release/4/pty/pty.setup

    r2762 r14278  
    1 (define has-exports? (string>=? (chicken-version) "2.310"))
    21
    32#+(and unix (not macosx))
    4 (compile -shared -O2
    5   ,@(if has-exports? '(-check-imports -emit-exports pty.exports) '())
    6   -lutil pty.scm)
     3(compile -shared -O2 -j pty -lutil pty.scm)
    74#+macosx
    8 (compile -shared -O2
    9   ,@(if has-exports? '(-check-imports -emit-exports pty.exports) '())
    10   pty.scm)
     5(compile -shared -O2 -j pty pty.scm)
     6
     7(compile -shared -O2 pty.import.scm)
    118
    129(install-extension 'pty
    13   '("pty.so" "pty.html")
    14   `((version 1.1)
    15     ,@(if has-exports? `((exports "pty.exports")) '())
    16     (documentation "pty.html")))
     10  '("pty.so" "pty.import.so" "pty.html")
     11  '((version 1.2) (documentation "pty.html")))
Note: See TracChangeset for help on using the changeset viewer.