5 Cent tip for today [ Ncurses ]
Posted: Mon Mar 15, 2004 8:25 pm
;;;
;;; 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)
;;; 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)