/[cl-screen]/cl-screen/aliens.lisp
ViewVC logotype

Contents of /cl-screen/aliens.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Tue May 15 21:53:01 2007 UTC (6 years, 11 months ago) by jconnors
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +1 -0 lines
Committing for version 0.9.
1 (in-package :cl-screen)
2
3 (define-foreign-library libslang
4 (:unix (:or "libslang.so.1" "libslang.so"))
5 (t (:default "libslang")))
6
7 (use-foreign-library libslang)
8
9
10 ;;; SLtt functions
11
12 (defcfun ("SLtt_get_terminfo" sltt-get-terminfo) :void)
13 (defcvar ("SLtt_Use_Ansi_Colors" sltt-use-ansi-colors) :int)
14 (defcvar ("SLtt_Screen_Rows" sltt-screen-rows) :int)
15 (defcvar ("SLtt_Screen_Cols" sltt-screen-cols) :int)
16 (defcfun ("SLtt_set_color" sltt-set-color) :void (obj :int) (name :string) (fg :string) (bg :string))
17 (defcfun ("SLtt_get_screen_size" sltt-get-screen-size) :void)
18 (defcfun ("SLtt_tgetstr" sltt-tgetstr) :string (char :string))
19 (defcfun ("SLtt_beep" sltt-beep) :void)
20 (defcfun ("SLtt_set_cursor_visibility" sltt-set-cursor-visibility) :int (flag :int))
21
22 ;;; SLkp functions
23
24 (defcfun ("SLkp_init" slkp-init) :int)
25 (defcfun ("SLkp_define_keysym" slkp-define-keysym) :int (key :string) (sym :unsigned-int))
26 (defcfun ("SLkp_getkey" slkp-getkey) :int)
27
28 ;;; SLang functions
29
30 (defcfun ("SLang_init_tty" slang-init-tty) :void (abort-char-code :int) (flow-control :int) (output-processing :int))
31 (defcfun ("SLang_input_pending" slang-input-pending) :int (time :int))
32 (defcfun ("SLang_reset_tty" slang-reset-tty) :void)
33 (defcfun ("SLang_getkey" slang-getkey) :uint)
34 (defcfun ("SLang_process_keystring" slang-process-keystring) :string (keystring :string))
35 (defcfun ("SLang_ungetkey" slang-unget-key) :void (ch :uchar))
36 (defcfun ("SLang_flush_input" slang-flush-input) :void)
37 (defcvar ("SLKeyBoard_Quit" sl-keyboard-quit) :int)
38
39 ;;; SLsmg functions
40
41 (defcfun ("SLsmg_init_smg" slsmg-init-smg) :int)
42 (defcfun ("SLsmg_cls" slsmg-cls) :void)
43 (defcfun ("SLsmg_gotorc" slsmg-gotorc) :void (row :int) (col :int))
44 (defcfun ("SLsmg_write_char" slsmg-write-char) :void (ch :char))
45 (defcfun ("SLsmg_write_string" slsmg-write-string) :void (string :string))
46 (defcfun ("SLsmg_refresh" slsmg-refresh) :void)
47 (defcfun ("SLsmg_reset_smg" slsmg-reset-smg) :void)
48 (defcfun ("SLsmg_draw_hline" slsmg-draw-hline) :void (len :unsigned-int))
49 (defcfun ("SLsmg_draw_vline" slsmg-draw-vline) :void (len :int))
50 (defcfun ("SLsmg_set_char_set" slsmg-set-char-set) :void (set :int))
51 (defcfun ("SLsmg_erase_eol" slsmg-erase-eol) :void)
52 (defcfun ("SLsmg_erase_eos" slsmg-erase-eos) :void)
53 (defcfun ("SLsmg_set_color" slsmg-set-color) :void (obj :int))
54 (defcfun ("SLsmg_reinit_smg" slsmg-reinit-smg) :void)
55 (defcfun ("SLsmg_get_column" slsmg-get-column) :int)
56 (defcfun ("SLsmg_get_row" slsmg-get-row) :int)

  ViewVC Help
Powered by ViewVC 1.1.5