;;;
;;; newlisp ncurses example
;;;
(set 'buffer "newlisp * ncurses How simple can it get :) press a key!")
;;; import functions from ncurses lib
(set 'ncfuncs '( "initscr" "box" "newwin" "endwin" "delwin" "wgetch" "wrefresh" "mvwprintw" ))
(define (import-ncurses) (dolist (x ncfuncs ) (import "/lib/libncurses.so.5" x)))
;;; Newlisp-Ncurses
(import-ncurses)
(initscr)
(set 'window (newwin 3 80 0 0 ))
(box window 0 0)
(mvwprintw window 1 1 buffer )
(wrefresh window)
(wgetch window)
(delwin window)
(endwin)
;;; exit
(exit)
Actualy what amazes me the most is that the return from the lib-call 'window
here is directly a pointer, the need for 'get-float 'get-integer is not needed :-)
Norman.
Wonderful Norman, your ncurses example is amazing!
About 'get-integer', 'get-float' etc.: you only need those when the return value from your 'C' function is a pointer to those. As some of the curses functions take and return pointers you can receive and feed them back directly.
You can even retrieve structure members when structure pointers come back using those get-xxxx functions and adding offsets to the pointers (see mysql.lsp).
Lutz
Ooooffff! I overlooked this one. Thanks Normann! This one WILL come in handy. I wonder how difficult it would be to make a newlisp editor in newlisp using ncurses?
Eddie
Hello Eddier,
Actualy i Tried once building an editor under linux, you have to be patient ;-)
Ncurses comes with lot of routines and the trick is to pick the right one... But it
should be possible there newlisp handles lib-calls very nicely...
How does the foreign function interface treat C-preprocessor macros? Some `functions' in the ncurses library, such as getyx, are really macros and would screw up for example the simple ffi of Clisp. (The backdoor is then to write wrapper code in C and link it against the Clisp library.)
Klaus Schilling
Both FFI flavors in newLISP - the simple and the libffi based - will not import macros. But on the BSD manual page for getcurx on OSX its says "All of these interfaces are provided as macros and functions". But instead of getyx use getcurx and getcury on the ncurses lib.