source: project/release/4/linenoise/trunk/linenoise.scm @ 20683

Last change on this file since 20683 was 20683, checked in by ckeen, 8 years ago

linenoise: get rid of easyffi and use chicken core's foreign

File size: 612 bytes
Line 
1(module linenoise 
2  (linenoise
3   history-add
4   set-history-length!
5   save-history-to-file
6   load-history-from-file)
7
8  (import chicken scheme)
9  (import foreign)
10
11  (foreign-declare  "#include \"linenoise-src.c\"")
12
13  (define history-add (foreign-lambda int linenoiseHistoryAdd c-string))
14  (define set-history-length! (foreign-lambda int linenoiseHistorySetMaxLen int))
15  (define load-history-from-file (foreign-lambda int linenoiseHistoryLoad c-string))
16  (define save-history-to-file (foreign-lambda int linenoiseHistorySave c-string))
17  (define linenoise (foreign-lambda  c-string linenoise c-string)))
Note: See TracBrowser for help on using the repository browser.