Changeset 14325 in project


Ignore:
Timestamp:
04/21/09 11:42:21 (11 years ago)
Author:
felix winkelmann
Message:

ported to chicken 4, version is 1.98

Location:
release/4/readline
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/readline/readline.meta

    r12677 r14325  
    1 ;;; readline.meta -*- Hen -*-
     1;;; readline.meta -*- Scheme -*-
    22
    3 ((date "2008-03-23")
    4  (egg "readline.egg")
     3((egg "readline.egg")
    54 (synopsis "An interface to the GNU readline library")
    65 (category io)
     
    87 (license "GPL-2")
    98 (author "Tony Garnock-Jones")
    10  (files "readline.setup" "readline.scm" "readline.html" "readline-egg.c"))
     9 (files "readline.setup" "readline.scm" "readline-egg.c"))
  • release/4/readline/readline.scm

    r12677 r14325  
    8585
    8686(declare
    87  (usual-integrations)
    88 
    89  (uses posix)
    90 
    91  ;(export
    92  ;
     87 (usual-integrations))
     88
     89; hack around missing export from `chicken' in 4.0.1:
     90
     91(define ##readline#repl-prompt repl-prompt)
     92
     93(module readline
     94 
     95    (gnu-readline
     96     make-gnu-readline-port
     97     %gnu-readline-signal-cleanup
     98     gnu-readline-clear-history
     99     gnu-readline-read-history
     100     gnu-readline-write-history
     101     gnu-readline-append-history
     102     gnu-readline-truncate-history
     103     gnu-history-new-lines
     104     gnu-history-install-file-manager
     105 
     106     gnu-readline-parse-and-bind
     107     gnu-readline-set-bounce-ms
     108 
     109     gnu-readline-completions)
     110
     111  (import scheme chicken foreign ports data-structures)
     112
     113 (use posix)
     114
    93115 ; gnu-readline
    94116 ; make-gnu-readline-port
     
    108130 ; gnu-readline-completions
    109131 ; )
    110   )
    111132
    112133
     
    212233                                  (set! buffer
    213234                                        (let* ((prompt    (or prompt
    214                                                               ((repl-prompt))))
     235                                                              ((##readline#repl-prompt))))
    215236                                               (prompt2   (make-prompt2
    216237                                                              prompt)))
     
    404425
    405426
     427)
  • release/4/readline/readline.setup

    r10881 r14325  
    1717
    1818
    19 (define-macro (check-rllibs libs)
    20     `(and (condition-case (compile -s -o rlu-test rl-usable-test.scm ,@libs)
    21               (t ()    #f))
    22           '(,@libs)))
     19(define-syntax check-rllibs
     20  (syntax-rules ()
     21    ((_ (libs ...))
     22     (and (condition-case (compile -s -o rlu-test rl-usable-test.scm libs ...)
     23            (t ()    #f))
     24          '(libs ...)))))
    2325
    2426(define rl-extralib
     
    3941            ))))
    4042
    41 (compile -s -O2 -d0 -emit-exports readline.exports readline.scm ,@rl-extralib)
     43(compile -s -O2 readline.scm ,@rl-extralib)
    4244
    43 (compile -c -O2 -d0 -static-libs -static-extensions readline.scm
     45(compile -c -O2 -d0 -j readline readline.scm
    4446         -o readline-static.o -unit readline ,@rl-extralib)
     47
     48(compile -s -O2 -d0 readline.import.scm)
    4549
    4650
    4751(install-extension
    4852    'readline
    49     '("readline.so" "readline.html" "readline-static.o")
    50     `((version           1.97)
     53    '("readline.so" "readline.import.so" "readline-static.o")
     54    `((version           1.98)
    5155      (static            "readline-static.o")
    52       (static-options    ,(string-intersperse (map ->string rl-extralib) " "))
    53       (exports           "readline.exports")
    54       (documentation     "readline.html")))
     56      (static-options    ,(string-intersperse (map ->string rl-extralib) " "))))
    5557
Note: See TracChangeset for help on using the changeset viewer.