From: Camm Maguire Date: Sun, 13 Nov 2022 12:55:14 +0000 (+0000) Subject: X-Git-Tag: archive/raspbian/2.6.13-5+rpi1^2^2~2 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=0918e09c0bdad1abf956349a9baa0bf5d2be8401;p=gcl.git TODO: Put a short summary on the line above and replace this paragraph with a longer explanation of this change. Complete the meta-information with other relevant fields (see below for details). To make it easier, the information below has been extracted from the changelog. Adjust it or drop it. gcl (2.6.12-128) unstable; urgency=medium * Version_2.6.13pre128 Gbp-Pq: Name Version_2_6_13pre128 --- diff --git a/ChangeLog b/ChangeLog index 69c2b722..8907521c 100755 --- a/ChangeLog +++ b/ChangeLog @@ -115,13 +115,13 @@ * /cvsroot/gcl/gcl/ChangeLog: *** empty log message *** * /cvsroot/gcl/gcl/unixport/makefile: - Added DESTDIR to makefiles to support installing under arbitrary subdir; good 'clean' targets; correct building in absense of tcl/tk + Added DESTDIR to makefiles to support installing under arbitrary subdir; good 'clean' targets; correct building in absence of tcl/tk * /cvsroot/gcl/gcl/gcl-tk/makefile: Add gcl-tk/demos/index.lsp to clean target * /cvsroot/gcl/gcl/o/makefile, /cvsroot/gcl/gcl/elisp/makefile, /cvsroot/gcl/gcl/info/makefile, /cvsroot/gcl/gcl/makefile: - Added DESTDIR to makefiles to support installing under arbitrary subdir; good 'clean' targets; correct building in absense of tcl/tk + Added DESTDIR to makefiles to support installing under arbitrary subdir; good 'clean' targets; correct building in absence of tcl/tk * /cvsroot/gcl/gcl/configure, /cvsroot/gcl/gcl/configure.in, /cvsroot/gcl/gcl/elisp/makefile: changes to configure.in and elisp/makefile to handle emacs not being present diff --git a/ChangeLog.old b/ChangeLog.old index 6ff4e877..c8aebd95 100755 --- a/ChangeLog.old +++ b/ChangeLog.old @@ -8,7 +8,7 @@ * Added DESTDIR to makefiles to support installing under arbitrary subdir * good 'clean' targets - * correct building in absense of tcl/tk + * correct building in absence of tcl/tk 2001-12-18 David Billinghurst diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp index cf1a831e..4146be69 100644 --- a/ansi-tests/ansi-aux.lsp +++ b/ansi-tests/ansi-aux.lsp @@ -961,10 +961,10 @@ the condition to go uncaught if it cannot be classified." (format t "Found element of ~S not in ~S: ~S~%" tp tp2 x) t)) - (condition (c) (format t "Error ~S occured: ~S~%" + (condition (c) (format t "Error ~S occurred: ~S~%" c tp2) t))))) - (condition (c) (format t "Error ~S occured: ~S~%" c tp) + (condition (c) (format t "Error ~S occurred: ~S~%" c tp) 1)))))))) (defun even-size-p (a) diff --git a/configure b/configure index fdd6fa07..93d3f74f 100755 --- a/configure +++ b/configure @@ -1446,8 +1446,8 @@ Optional Features: --enable-emacsdir=XXXX will manually specify the location for elisp files --enable-xgcl=yes will compile in support for XGCL --enable-dlopen uses dlopen for loading objects, which can then not be retained in saved images - --enable-statsysbfd uses a static sytem bfd library for loading and relocationing object files - --enable-dynsysbfd uses a dynamic shared sytem bfd library for loading and relocationing object files + --enable-statsysbfd uses a static system bfd library for loading and relocating object files + --enable-dynsysbfd uses a dynamic shared system bfd library for loading and relocating object files --enable-custreloc uses custom gcl code if available for loading and relocationing object files --enable-debug builds gcl with -g in CFLAGS to enable running under gdb --enable-static will link your GCL against static as opposed to shared system libraries @@ -8522,7 +8522,9 @@ fi if test "$enable_readline" != "no" ; then for ac_header in readline/readline.h do : - ac_fn_c_check_header_compile "$LINENO" "readline/readline.h" "ac_cv_header_readline_readline_h" "$ac_includes_default" + ac_fn_c_check_header_compile "$LINENO" "readline/readline.h" "ac_cv_header_readline_readline_h" "#include + +" if test "x$ac_cv_header_readline_readline_h" = xyes then : printf "%s\n" "#define HAVE_READLINE_READLINE_H 1" >>confdefs.h @@ -8654,7 +8656,122 @@ printf "%s\n" "#define HAVE_RL_COMPENTRY_FUNC_T 1" >>confdefs.h fi - TLIBS="$TLIBS -lreadline" #some machines don't link this, e.g. Slackware + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION" >&5 +printf %s "checking RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION... " >&6; } + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + #include + extern Function *rl_completion_entry_function __attribute__((weak)); + +int +main (void) +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO" +then : + +printf "%s\n" "#define RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION 1" >>confdefs.h + + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T" >&5 +printf %s "checking RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T... " >&6; } + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + #include + extern rl_compentry_func_t *rl_completion_entry_function __attribute__((weak)); + +int +main (void) +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO" +then : + +printf "%s\n" "#define RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T 1" >>confdefs.h + + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } + as_fn_error $? "Unknown rl_completion_entry_function return type" "$LINENO" 5 +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext + + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking RL_READLINE_NAME_TYPE_CHAR" >&5 +printf %s "checking RL_READLINE_NAME_TYPE_CHAR... " >&6; } + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + #include + extern char *rl_readline_name __attribute__((weak)); + +int +main (void) +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO" +then : + +printf "%s\n" "#define RL_READLINE_NAME_TYPE_CHAR 1" >>confdefs.h + + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking RL_READLINE_NAME_TYPE_CONST_CHAR" >&5 +printf %s "checking RL_READLINE_NAME_TYPE_CONST_CHAR... " >&6; } + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + + #include + extern const char *rl_readline_name __attribute__((weak)); + +int +main (void) +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO" +then : + +printf "%s\n" "#define RL_READLINE_NAME_TYPE_CONST_CHAR 1" >>confdefs.h + + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } + as_fn_error $? "Unknown rl_readline_name return type" "$LINENO" 5 +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext + TLIBS="$TLIBS -lreadline" #some machines don't link this, e.g. Slackware RL_OBJS=gcl_readline.o fi diff --git a/configure.in b/configure.in index e81c78f0..c57f72b1 100644 --- a/configure.in +++ b/configure.in @@ -1,5 +1,5 @@ AC_INIT -AC_PREREQ([2.71]) +AC_PREREQ([2.69]) AC_CONFIG_HEADERS([h/gclincl.h]) VERSION=`cat majvers`.`cat minvers` @@ -119,9 +119,9 @@ AC_ARG_ENABLE([xgcl],[ --enable-xgcl=yes will compile in support for XGCL],,[en AC_ARG_ENABLE([dlopen],[ --enable-dlopen uses dlopen for loading objects, which can then not be retained in saved images], ,[enable_dlopen=$def_dlopen]) -AC_ARG_ENABLE([statsysbfd],[ --enable-statsysbfd uses a static sytem bfd library for loading and relocationing object files], +AC_ARG_ENABLE([statsysbfd],[ --enable-statsysbfd uses a static system bfd library for loading and relocating object files], ,[enable_statsysbfd=$def_statsysbfd]) -AC_ARG_ENABLE([dynsysbfd],[ --enable-dynsysbfd uses a dynamic shared sytem bfd library for loading and relocationing object files], +AC_ARG_ENABLE([dynsysbfd],[ --enable-dynsysbfd uses a dynamic shared system bfd library for loading and relocating object files], ,[enable_dynsysbfd=no]) AC_ARG_ENABLE([custreloc],[ --enable-custreloc uses custom gcl code if available for loading and relocationing object files], ,[enable_custreloc=$def_custreloc]) @@ -1749,8 +1749,56 @@ if test "$enable_readline" != "no" ; then AC_CHECK_LIB([readline],[rl_completion_matches], [AC_DEFINE(HAVE_DECL_RL_COMPLETION_MATCHES,1,[have readline completion matches]) AC_DEFINE(HAVE_RL_COMPENTRY_FUNC_T,1,[have readline completion matches])]) - TLIBS="$TLIBS -lreadline" #some machines don't link this, e.g. Slackware - RL_OBJS=gcl_readline.o])) + AC_MSG_CHECKING([RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION]) + AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM( + [[ + #include + extern Function *rl_completion_entry_function __attribute__((weak)); + ]], + [[]])], + [AC_DEFINE(RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION,1,[rl_completion_entry_function returns type Function]) + AC_MSG_RESULT([yes])], + [AC_MSG_RESULT([no]) + AC_MSG_CHECKING([RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T]) + AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM( + [[ + #include + extern rl_compentry_func_t *rl_completion_entry_function __attribute__((weak)); + ]], + [[]])], + [AC_DEFINE(RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T,1,[rl_completion_entry_function returns type rl_compentry_func_t]) + AC_MSG_RESULT([yes])], + [AC_MSG_RESULT([no]) + AC_MSG_ERROR([Unknown rl_completion_entry_function return type])])]) + + AC_MSG_CHECKING([RL_READLINE_NAME_TYPE_CHAR]) + AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM( + [[ + #include + extern char *rl_readline_name __attribute__((weak)); + ]], + [[]])], + [AC_DEFINE(RL_READLINE_NAME_TYPE_CHAR,1,[rl_readline_name returns type char]) + AC_MSG_RESULT([yes])], + [AC_MSG_RESULT([no]) + AC_MSG_CHECKING([RL_READLINE_NAME_TYPE_CONST_CHAR]) + AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM( + [[ + #include + extern const char *rl_readline_name __attribute__((weak)); + ]], + [[]])], + [AC_DEFINE(RL_READLINE_NAME_TYPE_CONST_CHAR,1,[rl_readline_name returns type const char]) + AC_MSG_RESULT([yes])], + [AC_MSG_RESULT([no]) + AC_MSG_ERROR([Unknown rl_readline_name return type])])]) + TLIBS="$TLIBS -lreadline" #some machines don't link this, e.g. Slackware + RL_OBJS=gcl_readline.o]), + [],[AC_INCLUDES_DEFAULT([#include ])]) fi AC_SUBST(RL_OBJS) diff --git a/git.tag b/git.tag index f4a20189..c4b575de 100644 --- a/git.tag +++ b/git.tag @@ -1,2 +1,2 @@ -"Version_2_6_13pre126" +"Version_2_6_13pre128" diff --git a/h/386-macosx.defs b/h/386-macosx.defs index e740f47f..779d7289 100644 --- a/h/386-macosx.defs +++ b/h/386-macosx.defs @@ -30,6 +30,6 @@ INITFORM = (si::build-symbol-table) # This is Apple's libtool, completely unrelated to GNU libtool. # Other plateforms define this to be `ar rs`. # This appears to be no longer necessary on Panther. -ARRS = libtool -static -o +ARRS = /usr/bin/libtool -static -o FINAL_CFLAGS := `echo $(FINAL_CFLAGS) | sed -e 's:-g::g'` diff --git a/h/gclincl.h.in b/h/gclincl.h.in index 989258ff..6d415995 100644 --- a/h/gclincl.h.in +++ b/h/gclincl.h.in @@ -342,6 +342,18 @@ /* readline is editline */ #undef READLINE_IS_EDITLINE +/* rl_completion_entry_function returns type Function */ +#undef RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION + +/* rl_completion_entry_function returns type rl_compentry_func_t */ +#undef RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T + +/* rl_readline_name returns type char */ +#undef RL_READLINE_NAME_TYPE_CHAR + +/* rl_readline_name returns type const char */ +#undef RL_READLINE_NAME_TYPE_CONST_CHAR + /* asm string to set the stack pointer */ #undef SET_STACK_POINTER diff --git a/h/protoize.h b/h/protoize.h index 0da4c4ad..ac4689d5 100644 --- a/h/protoize.h +++ b/h/protoize.h @@ -1764,6 +1764,9 @@ gcl_isnormal_float(float); int gcl_isnan(object); +int +gcl_is_not_finite(object); + object find_init_name1(char *,unsigned); diff --git a/info/gcl-tk.info-1 b/info/gcl-tk.info-1 index c51e639a..56f63214 100644 --- a/info/gcl-tk.info-1 +++ b/info/gcl-tk.info-1 @@ -330,7 +330,7 @@ of the other up to equal. 1.4.3 Control Function Return Values ------------------------------------ -The control funcions (*note Control::) do not return a value or wait +The control functions (*note Control::) do not return a value or wait unless requested to do so, using the ':return' keyword. The types and method of specification are the same as for the Widget Functions in the previous section. diff --git a/info/gcl-tk/Return-Values.html b/info/gcl-tk/Return-Values.html index 421695b1..2a120f21 100644 --- a/info/gcl-tk/Return-Values.html +++ b/info/gcl-tk/Return-Values.html @@ -142,7 +142,7 @@ functions one of the other up to equal.

1.4.3 Control Function Return Values

-

The control funcions (see Control) do not return a value +

The control functions (see Control) do not return a value or wait unless requested to do so, using the :return keyword. The types and method of specification are the same as for the Widget Functions in the previous section. diff --git a/info/general.texi b/info/general.texi index 4532dca8..e58b3a32 100755 --- a/info/general.texi +++ b/info/general.texi @@ -277,7 +277,7 @@ functions one of the other up to equal. @subsection Control Function Return Values -The @i{control} funcions (@pxref{Control}) do not return a value +The @i{control} functions (@pxref{Control}) do not return a value or wait unless requested to do so, using the @code{:return} keyword. The types and method of specification are the same as for the Widget Functions in the previous section. diff --git a/ltmain.sh b/ltmain.sh index 742703be..c2383bb5 100644 --- a/ltmain.sh +++ b/ltmain.sh @@ -2824,7 +2824,7 @@ EOF fi done else - # Error occured in the first compile. Let's try to salvage the situation: + # Error occurred in the first compile. Let's try to salvage the situation: # Compile a seperate program for each library. for i in $deplibs; do name="`expr $i : '-l\(.*\)'`" diff --git a/o/num_co.c b/o/num_co.c index e4dd7339..11240f6b 100755 --- a/o/num_co.c +++ b/o/num_co.c @@ -112,7 +112,18 @@ gcl_isnan(object x) { } +int +gcl_is_not_finite(object x) { + switch(type_of(x)) { + case t_shortfloat: + return !ISFINITE(sf(x)); + case t_longfloat: + return !ISFINITE(lf(x)); + default: + return 0; + } +} static void integer_decode_double(double d, int *hp, int *lp, int *ep, int *sp) diff --git a/o/num_sfun.c b/o/num_sfun.c index 958de2b5..a4c51927 100755 --- a/o/num_sfun.c +++ b/o/num_sfun.c @@ -116,6 +116,9 @@ number_big_iexpt(object x,object y,fixnum ly,fixnum j) { static inline object number_zero_expt(object x,bool promote_short_p) { + if (gcl_is_not_finite(x))/*FIXME, better place?*/ + return number_exp(number_times(number_nlog(x),small_fixnum(0))); + switch (type_of(x)) { case t_fixnum: case t_bignum: @@ -180,7 +183,7 @@ number_ump_expt(object x,object y) { static inline object number_log_expt(object x,object y) { - return number_zerop(y) ? number_zero_expt(y,type_of(x)==t_longfloat) : number_exp(number_times(number_nlog(x),y)); + return number_zerop(y) ? number_zero_expt(x,type_of(x)==t_longfloat) : number_exp(number_times(number_nlog(x),y)); } static inline object diff --git a/o/prelink.c b/o/prelink.c index ab01e528..5456d6f8 100644 --- a/o/prelink.c +++ b/o/prelink.c @@ -8,18 +8,23 @@ extern FILE *stderr __attribute__((weak)); extern FILE *stdout __attribute__((weak)); #ifdef USE_READLINE -#ifdef READLINE_IS_EDITLINE -#define MY_RL_VERSION 0x0600 + +#if defined(RL_COMPLETION_ENTRY_FUNCTION_TYPE_FUNCTION) +extern Function *rl_completion_entry_function __attribute__((weak)); +#elif defined(RL_COMPLETION_ENTRY_FUNCTION_TYPE_RL_COMPENTRY_FUNC_T) +extern rl_compentry_func_t *rl_completion_entry_function __attribute__((weak)); #else -#define MY_RL_VERSION RL_READLINE_VERSION +#error Unknown rl_completion_entry_function return type #endif -#if MY_RL_VERSION < 0x0600 -extern Function *rl_completion_entry_function __attribute__((weak)); + +#if defined(RL_READLINE_NAME_TYPE_CHAR) extern char *rl_readline_name __attribute__((weak)); -#else -extern rl_compentry_func_t *rl_completion_entry_function __attribute__((weak)); +#elif defined(RL_READLINE_NAME_TYPE_CONST_CHAR) extern const char *rl_readline_name __attribute__((weak)); +#else +#error Unknown rl_readline_name return type #endif + #endif #endif diff --git a/o/usig.c b/o/usig.c index 3495d318..5dde514a 100755 --- a/o/usig.c +++ b/o/usig.c @@ -261,9 +261,9 @@ DEF_ORDINARY("FLOATING-POINT-ERROR",sSfloating_point_error,SI,""); static void sigpipe(void) { - gcl_signal(SIGPIPE, sigpipe); - perror(""); - FEerror("Broken pipe", 0); + unblock_signals(SIGPIPE,SIGPIPE); + perror(""); + FEerror("Broken pipe", 0); } void diff --git a/pcl/impl/xerox/pcl-env.lisp b/pcl/impl/xerox/pcl-env.lisp index 7bf4b476..4cf7c26a 100644 --- a/pcl/impl/xerox/pcl-env.lisp +++ b/pcl/impl/xerox/pcl-env.lisp @@ -43,7 +43,7 @@ (il:defprint 'il:compiled-closure 'il:print-closure)) (defun il:print-closure (x &optional stream depth) - ;; See the IRM, section 25.3.3. Unfortunatly, that documentation is + ;; See the IRM, section 25.3.3. Unfortunately, that documentation is ;; not correct. In particular, it makes no mention of the third argument. (cond ((not (funcallable-instance-p x)) ;; IL:\CCLOSURE.DEFPRINT is the orginal system function for diff --git a/pcl/impl/xerox/xerox-low.lisp b/pcl/impl/xerox/xerox-low.lisp index 861884a5..741d595b 100644 --- a/pcl/impl/xerox/xerox-low.lisp +++ b/pcl/impl/xerox/xerox-low.lisp @@ -80,7 +80,7 @@ ) (defun %print-std-instance (instance &optional stream depth) - ;; See the IRM, section 25.3.3. Unfortunatly, that documentation is + ;; See the IRM, section 25.3.3. Unfortunately, that documentation is ;; not correct. In particular, it makes no mention of the third argument. (cond ((streamp stream) ;; Use the standard PCL printing method, then return T to tell diff --git a/pcl/notes/get-pcl.text b/pcl/notes/get-pcl.text index e743744d..472f4141 100644 --- a/pcl/notes/get-pcl.text +++ b/pcl/notes/get-pcl.text @@ -113,7 +113,7 @@ distribution. For people who can't FTP from Internet (Arpanet) hosts, but who have mail access to the BITNET, there exists a way to get the PCL files using -the BITFTP service provided by Princeton Univerity. If you know exactly +the BITFTP service provided by Princeton University. If you know exactly where to find the files that interest you, this is quite easy. In particular, you have to know: diff --git a/readme b/readme index d855cba2..87221953 100644 --- a/readme +++ b/readme @@ -3,7 +3,7 @@ Description of GCL (GNU Common Lisp) system. OVERVIEW: The GCL system contains C and Lisp source files to build a Common Lisp -sytem. The original KCL system was written by Taiichi Yuasa and +system. The original KCL system was written by Taiichi Yuasa and Masami Hagiya in 1984. The AKCL system work was begun in 1987 by William Schelter and continued through 1994. A number of people have contributed ports and pieces. The file doc/contributors lists some of diff --git a/xbin/spp.c b/xbin/spp.c index e23afcee..2e3e76c5 100755 --- a/xbin/spp.c +++ b/xbin/spp.c @@ -2,7 +2,7 @@ /* * spp.c - * Extracts the symbol table from an HP-UX excutable file + * Extracts the symbol table from an HP-UX executable file * to be used in a later pass of the linker. (ld does not * support the -A option.) */ diff --git a/xgcl-2/Events.c b/xgcl-2/Events.c index 82fd8238..ad4a48f8 100644 --- a/xgcl-2/Events.c +++ b/xgcl-2/Events.c @@ -24,7 +24,7 @@ #include #include -/********* XKeyEvent funcions *****/ +/********* XKeyEvent functions *****/ long make_XKeyEvent (){ return ((long) calloc(1, sizeof(XKeyEvent))); @@ -226,7 +226,7 @@ int j; } -/********* XButtonEvent funcions *****/ +/********* XButtonEvent functions *****/ long make_XButtonEvent (){ return ((long) calloc(1, sizeof(XButtonEvent))); @@ -428,7 +428,7 @@ int j; } -/********* XMotionEvent funcions *****/ +/********* XMotionEvent functions *****/ long make_XMotionEvent (){ return ((long) calloc(1, sizeof(XMotionEvent))); @@ -630,7 +630,7 @@ int j; } -/********* XCrossingEvent funcions *****/ +/********* XCrossingEvent functions *****/ long make_XCrossingEvent (){ return ((long) calloc(1, sizeof(XCrossingEvent))); @@ -858,7 +858,7 @@ int j; } -/********* XFocusChangeEvent funcions *****/ +/********* XFocusChangeEvent functions *****/ long make_XFocusChangeEvent (){ return ((long) calloc(1, sizeof(XFocusChangeEvent))); @@ -956,7 +956,7 @@ int j; } -/********* XKeymapEvent funcions *****/ +/********* XKeymapEvent functions *****/ long make_XKeymapEvent (){ return ((long) calloc(1, sizeof(XKeymapEvent))); @@ -1033,7 +1033,7 @@ int j; } -/********* XExposeEvent funcions *****/ +/********* XExposeEvent functions *****/ long make_XExposeEvent (){ return ((long) calloc(1, sizeof(XExposeEvent))); @@ -1170,7 +1170,7 @@ int j; } -/********* XGraphicsExposeEvent funcions *****/ +/********* XGraphicsExposeEvent functions *****/ long make_XGraphicsExposeEvent (){ return ((long) calloc(1, sizeof(XGraphicsExposeEvent))); @@ -1333,7 +1333,7 @@ int j; } -/********* XNoExposeEvent funcions *****/ +/********* XNoExposeEvent functions *****/ long make_XNoExposeEvent (){ return ((long) calloc(1, sizeof(XNoExposeEvent))); @@ -1431,7 +1431,7 @@ int j; } -/********* XVisibilityEvent funcions *****/ +/********* XVisibilityEvent functions *****/ long make_XVisibilityEvent (){ return ((long) calloc(1, sizeof(XVisibilityEvent))); @@ -1516,7 +1516,7 @@ int j; } -/********* XCreateWindowEvent funcions *****/ +/********* XCreateWindowEvent functions *****/ long make_XCreateWindowEvent (){ return ((long) calloc(1, sizeof(XCreateWindowEvent))); @@ -1679,7 +1679,7 @@ int j; } -/********* XDestroyWindowEvent funcions *****/ +/********* XDestroyWindowEvent functions *****/ long make_XDestroyWindowEvent (){ return ((long) calloc(1, sizeof(XDestroyWindowEvent))); @@ -1764,7 +1764,7 @@ int j; } -/********* XUnmapEvent funcions *****/ +/********* XUnmapEvent functions *****/ long make_XUnmapEvent (){ return ((long) calloc(1, sizeof(XUnmapEvent))); @@ -1862,7 +1862,7 @@ int j; } -/********* XMapEvent funcions *****/ +/********* XMapEvent functions *****/ long make_XMapEvent (){ return ((long) calloc(1, sizeof(XMapEvent))); @@ -1960,7 +1960,7 @@ int j; } -/********* XMapRequestEvent funcions *****/ +/********* XMapRequestEvent functions *****/ long make_XMapRequestEvent (){ return ((long) calloc(1, sizeof(XMapRequestEvent))); @@ -2045,7 +2045,7 @@ int j; } -/********* XReparentEvent funcions *****/ +/********* XReparentEvent functions *****/ long make_XReparentEvent (){ return ((long) calloc(1, sizeof(XReparentEvent))); @@ -2182,7 +2182,7 @@ int j; } -/********* XConfigureEvent funcions *****/ +/********* XConfigureEvent functions *****/ long make_XConfigureEvent (){ return ((long) calloc(1, sizeof(XConfigureEvent))); @@ -2358,7 +2358,7 @@ int j; } -/********* XGravityEvent funcions *****/ +/********* XGravityEvent functions *****/ long make_XGravityEvent (){ return ((long) calloc(1, sizeof(XGravityEvent))); @@ -2469,7 +2469,7 @@ int j; } -/********* XResizeRequestEvent funcions *****/ +/********* XResizeRequestEvent functions *****/ long make_XResizeRequestEvent (){ return ((long) calloc(1, sizeof(XResizeRequestEvent))); @@ -2567,7 +2567,7 @@ int j; } -/********* XConfigureRequestEvent funcions *****/ +/********* XConfigureRequestEvent functions *****/ long make_XConfigureRequestEvent (){ return ((long) calloc(1, sizeof(XConfigureRequestEvent))); @@ -2756,7 +2756,7 @@ int j; } -/********* XCirculateEvent funcions *****/ +/********* XCirculateEvent functions *****/ long make_XCirculateEvent (){ return ((long) calloc(1, sizeof(XCirculateEvent))); @@ -2854,7 +2854,7 @@ int j; } -/********* XCirculateRequestEvent funcions *****/ +/********* XCirculateRequestEvent functions *****/ long make_XCirculateRequestEvent (){ return ((long) calloc(1, sizeof(XCirculateRequestEvent))); @@ -2952,7 +2952,7 @@ int j; } -/********* XPropertyEvent funcions *****/ +/********* XPropertyEvent functions *****/ long make_XPropertyEvent (){ return ((long) calloc(1, sizeof(XPropertyEvent))); @@ -3063,7 +3063,7 @@ int j; } -/********* XSelectionClearEvent funcions *****/ +/********* XSelectionClearEvent functions *****/ long make_XSelectionClearEvent (){ return ((long) calloc(1, sizeof(XSelectionClearEvent))); @@ -3161,7 +3161,7 @@ int j; } -/********* XSelectionRequestEvent funcions *****/ +/********* XSelectionRequestEvent functions *****/ long make_XSelectionRequestEvent (){ return ((long) calloc(1, sizeof(XSelectionRequestEvent))); @@ -3298,7 +3298,7 @@ int j; } -/********* XSelectionEvent funcions *****/ +/********* XSelectionEvent functions *****/ long make_XSelectionEvent (){ return ((long) calloc(1, sizeof(XSelectionEvent))); @@ -3422,7 +3422,7 @@ int j; } -/********* XColormapEvent funcions *****/ +/********* XColormapEvent functions *****/ long make_XColormapEvent (){ return ((long) calloc(1, sizeof(XColormapEvent))); @@ -3533,7 +3533,7 @@ int j; } -/********* XClientMessageEvent funcions *****/ +/********* XClientMessageEvent functions *****/ long make_XClientMessageEvent (){ return ((long) calloc(1, sizeof(XClientMessageEvent))); @@ -3632,7 +3632,7 @@ int j; } -/********* XMappingEvent funcions *****/ +/********* XMappingEvent functions *****/ long make_XMappingEvent (){ return ((long) calloc(1, sizeof(XMappingEvent))); @@ -3743,7 +3743,7 @@ int j; } -/********* XErrorEvent funcions *****/ +/********* XErrorEvent functions *****/ long make_XErrorEvent (){ return ((long) calloc(1, sizeof(XErrorEvent))); @@ -3841,7 +3841,7 @@ int j; } -/********* XAnyEvent funcions *****/ +/********* XAnyEvent functions *****/ long make_XAnyEvent (){ return ((long) calloc(1, sizeof(XAnyEvent))); @@ -3913,7 +3913,7 @@ int j; } -/********* XEvent funcions *****/ +/********* XEvent functions *****/ long make_XEvent (){ return ((long) calloc(1, sizeof(XEvent))); diff --git a/xgcl-2/XStruct-2.c b/xgcl-2/XStruct-2.c index 7d1e30ef..91ae800e 100644 --- a/xgcl-2/XStruct-2.c +++ b/xgcl-2/XStruct-2.c @@ -22,7 +22,7 @@ ; See the file dec.copyright for details. */ -/********* _XQEvent funcions *****/ +/********* _XQEvent functions *****/ #define NEED_EVENTS #include #include @@ -60,7 +60,7 @@ long j; } -/********* XCharStruct funcions *****/ +/********* XCharStruct functions *****/ long make_XCharStruct (){ return ((long) calloc(1, sizeof(XCharStruct))); @@ -145,7 +145,7 @@ int j; } -/********* XFontProp funcions *****/ +/********* XFontProp functions *****/ long make_XFontProp (){ return ((long) calloc(1, sizeof(XFontProp))); @@ -178,7 +178,7 @@ int j; } -/********* XFontStruct funcions *****/ +/********* XFontStruct functions *****/ long make_XFontStruct (){ return ((long) calloc(1, sizeof(XFontStruct))); @@ -390,7 +390,7 @@ long j; } -/********* XTextItem funcions *****/ +/********* XTextItem functions *****/ long make_XTextItem (){ return ((long) calloc(1, sizeof(XTextItem))); @@ -449,7 +449,7 @@ long j; } -/********* XChar2b funcions *****/ +/********* XChar2b functions *****/ long make_XChar2b (){ return ((long) calloc(1, sizeof(XChar2b))); @@ -482,7 +482,7 @@ char j; } -/********* XTextItem16 funcions *****/ +/********* XTextItem16 functions *****/ long make_XTextItem16 (){ return ((long) calloc(1, sizeof(XTextItem16))); @@ -541,7 +541,7 @@ long j; } -/********* XEDataObject funcions *****/ +/********* XEDataObject functions *****/ long make_XEDataObject (){ return ((long) calloc(1, sizeof(XEDataObject))); @@ -613,7 +613,7 @@ GC j; } -/********* XSizeHints funcions *****/ +/********* XSizeHints functions *****/ long make_XSizeHints (){ return ((long) calloc(1, sizeof(XSizeHints))); @@ -856,7 +856,7 @@ int j; } -/********* XWMHints funcions *****/ +/********* XWMHints functions *****/ long make_XWMHints (){ return ((long) calloc(1, sizeof(XWMHints))); @@ -980,7 +980,7 @@ int j; } -/********* XTextProperty funcions *****/ +/********* XTextProperty functions *****/ long make_XTextProperty (){ return ((long) calloc(1, sizeof(XTextProperty))); @@ -1039,7 +1039,7 @@ long j; } -/********* XIconSize funcions *****/ +/********* XIconSize functions *****/ long make_XIconSize (){ return ((long) calloc(1, sizeof(XIconSize))); @@ -1124,7 +1124,7 @@ int j; } -/********* XClassHint funcions *****/ +/********* XClassHint functions *****/ long make_XClassHint (){ return ((long) calloc(1, sizeof(XClassHint))); @@ -1157,7 +1157,7 @@ long j; } -/********* XComposeStatus funcions *****/ +/********* XComposeStatus functions *****/ long make_XComposeStatus (){ return ((long) calloc(1, sizeof(XComposeStatus))); @@ -1190,7 +1190,7 @@ long j; } -/********* XVisualInfo funcions *****/ +/********* XVisualInfo functions *****/ long make_XVisualInfo (){ return ((long) calloc(1, sizeof(XVisualInfo))); @@ -1327,7 +1327,7 @@ long j; } -/********* XStandardColormap funcions *****/ +/********* XStandardColormap functions *****/ long make_XStandardColormap (){ return ((long) calloc(1, sizeof(XStandardColormap))); diff --git a/xgcl-2/XStruct-4.c b/xgcl-2/XStruct-4.c index f4d44d4b..6d6e17ed 100644 --- a/xgcl-2/XStruct-4.c +++ b/xgcl-2/XStruct-4.c @@ -27,7 +27,7 @@ #include -/********* XExtCodes funcions *****/ +/********* XExtCodes functions *****/ long make_XExtCodes (){ return ((long) calloc(1, sizeof(XExtCodes))); @@ -86,7 +86,7 @@ int j; } -/********* XPixmapFormatValues funcions *****/ +/********* XPixmapFormatValues functions *****/ long make_XPixmapFormatValues (){ return ((long) calloc(1, sizeof(XPixmapFormatValues))); @@ -132,7 +132,7 @@ int j; } -/********* XGCValues funcions *****/ +/********* XGCValues functions *****/ long make_XGCValues (){ return ((long) calloc(1, sizeof(XGCValues))); @@ -438,7 +438,7 @@ int j; } -/********* GC funcions ***** +/********* GC functions ***** int make_GC (){ GC i; @@ -525,7 +525,7 @@ int j; */ -/********* Visual funcions *****/ +/********* Visual functions *****/ long make_Visual (){ return ((long) calloc(1, sizeof(Visual))); @@ -636,7 +636,7 @@ long j; } -/********* Depth funcions *****/ +/********* Depth functions *****/ long make_Depth (){ return ((long) calloc(1, sizeof(Depth))); @@ -682,7 +682,7 @@ int j; } -/********* Screen funcions *****/ +/********* Screen functions *****/ long make_Screen (){ return ((long) calloc(1, sizeof(Screen))); @@ -949,7 +949,7 @@ long j; } -/********* ScreenFormat funcions *****/ +/********* ScreenFormat functions *****/ long make_ScreenFormat (){ return ((long) calloc(1, sizeof(ScreenFormat))); @@ -1008,7 +1008,7 @@ long j; } -/********* XSetWindowAttributes funcions *****/ +/********* XSetWindowAttributes functions *****/ long make_XSetWindowAttributes (){ return ((long) calloc(1, sizeof(XSetWindowAttributes))); @@ -1210,7 +1210,7 @@ int j; } -/********* XWindowAttributes funcions *****/ +/********* XWindowAttributes functions *****/ long make_XWindowAttributes (){ return ((long) calloc(1, sizeof(XWindowAttributes))); @@ -1516,7 +1516,7 @@ int j; } -/********* XHostAddress funcions *****/ +/********* XHostAddress functions *****/ long make_XHostAddress (){ return ((long) calloc(1, sizeof(XHostAddress))); @@ -1562,7 +1562,7 @@ int j; } -/********* XImage funcions *****/ +/********* XImage functions *****/ long make_XImage (){ return ((long) calloc(1, sizeof(XImage))); @@ -1777,7 +1777,7 @@ int j; } -/********* XWindowChanges funcions *****/ +/********* XWindowChanges functions *****/ long make_XWindowChanges (){ return ((long) calloc(1, sizeof(XWindowChanges))); @@ -1875,7 +1875,7 @@ int j; } -/********* XColor funcions *****/ +/********* XColor functions *****/ long make_XColor (){ return ((long) calloc(1, sizeof(XColor))); @@ -1960,7 +1960,7 @@ int j; } -/********* XSegment funcions *****/ +/********* XSegment functions *****/ long make_XSegment (){ return ((long) calloc(1, sizeof(XSegment))); @@ -2019,7 +2019,7 @@ int j; } -/********* XPoint funcions *****/ +/********* XPoint functions *****/ long make_XPoint (){ return ((long) calloc(1, sizeof(XPoint))); @@ -2052,7 +2052,7 @@ int j; } -/********* XRectangle funcions *****/ +/********* XRectangle functions *****/ long make_XRectangle (){ return ((long) calloc(1, sizeof(XRectangle))); @@ -2111,7 +2111,7 @@ int j; } -/********* XArc funcions *****/ +/********* XArc functions *****/ long make_XArc (){ return ((long) calloc(1, sizeof(XArc))); @@ -2196,7 +2196,7 @@ int j; } -/********* XKeyboardControl funcions *****/ +/********* XKeyboardControl functions *****/ long make_XKeyboardControl (){ return ((long) calloc(1, sizeof(XKeyboardControl))); @@ -2307,7 +2307,7 @@ int j; } -/********* XKeyboardState funcions *****/ +/********* XKeyboardState functions *****/ long make_XKeyboardState (){ return ((long) calloc(1, sizeof(XKeyboardState))); @@ -2405,7 +2405,7 @@ int j; } -/********* XTimeCoord funcions *****/ +/********* XTimeCoord functions *****/ long make_XTimeCoord (){ return ((long) calloc(1, sizeof(XTimeCoord))); @@ -2451,7 +2451,7 @@ int j; } -/********* XModifierKeymap funcions *****/ +/********* XModifierKeymap functions *****/ long make_XModifierKeymap (){ return ((long) calloc(1, sizeof(XModifierKeymap))); diff --git a/xgcl-2/Xakcl.paper b/xgcl-2/Xakcl.paper index 95993080..945c5331 100644 --- a/xgcl-2/Xakcl.paper +++ b/xgcl-2/Xakcl.paper @@ -77,7 +77,7 @@ capabilities and the ease of lisp programming. It is assumed that the reader is familiar with Lisp, and has some passing knowledge of C. Also familiarity with the Xwindows library routines and programming conventions would be helpful but is -not requiered. All X functions in Xakcl begins with the letter 'X' , +not required. All X functions in Xakcl begin with the letter 'X' , unless otherwise mentioned. The Syntax and names of Xakcl functions are kept as closely to the X library functions as possible, so that a user of the Xwindows' C libary will have no trouble in learning how to @@ -94,8 +94,8 @@ A. Getting Started. - In order to start using graphics in Xakcl, a few initilization -must take place. These initilization correspond to Xwindows call to + In order to start using graphics in Xakcl, a few initializations +must take place. These initializations correspond to Xwindows call to get the root window, the display, the current screen, the Graphics Context and other properties needed by X. The use of these features will be described further in later sections. @@ -134,7 +134,7 @@ II. The Default Screen and the Root Window The next steps in getting started is to get the desired screen (usually the default screen), and the root window. These two operations -are similiar to getting a display and is straight forward. Use the +are similar to getting a display and is straight forward. Use the commands: @@ -243,7 +243,7 @@ B. Creating and Using Windows I. Creating a Window - To create windows in lisp two functions are avaialable, + To create windows in lisp two functions are available, XCreateWindow and XCreateSimpleWindow. Even though XCreateWindow is a more expansive function, for most applications XCreateSimpleWindow will do. Below is an example of the use of XCreateSimpleWindow. @@ -277,7 +277,7 @@ the screen. The user can tell the manager how to control different aspects of a window or drawable by passing to the window manager size hints. This is done by first creating a structure know as the Xsizehints. Below are examples of creating an instance of this -structure, and it's initilization. +structure, and it's initialization. @@ -461,7 +461,7 @@ pixel-color. this informaion can be extracted with (Xcolor-pixel pixel-xcolor). XAllocNamedColo also expects a colormap (the default colormap will do), a display, and a String specifying the color (for a list of colors see the file rgb.txt in /usr/lib/X11). Thus the -following funciton will cause all drawings to be done the specify +following function will cause all drawings to be done the specified color. (Xsetforeground display GC (Xcolor-pixel pixel-xcolor)) @@ -505,7 +505,7 @@ valid font is found, will set it in the graphics context. (format t "~%can't open font ~a" a-string)) First the font is loaded with XloadQueryFont. This function -expects the display and a string whcih specifies the font (for +expects the display and a string which specifies the font (for complete font information see the directories /usr/lib/X11/fonts). After loading the font must be set in the specified graphics context. XSetFont expects the font id. This id resides in the XFontStruct @@ -517,7 +517,7 @@ iv. XSetFunction Xwindows draws by applying bit operations on the pixel vlaues on the screen along with a mask that it creates called the plan_mask. Most often only the pixel already on the screen is manipulated. This -defualt logical operation is GXcopy (which is the default). However +default logical operation is GXcopy (which is the default). However to perform moer complicated operations such as drawing 'ghost' images (drawing and erasing images with out affecting drawings in the background) other functions could be used. These functions are @@ -584,13 +584,13 @@ are the positions. In this case 'window' is the destination drawable. Thus with the specification in the GC, a line on a specified with will be drawn. Its cap style will also be drawn accordingly. As in other drawing request. the display must be specified and a call to Xflush -must be made in order to request that the X server proccess the +must be made in order to request that the X server process the request. II. Drawing Rectangles - Drawing Recatangles is similiar to drawing lines. The only + Drawing Rectangles is similar to drawing lines. The only difference is that the size of the recatangle must be specified. @@ -605,7 +605,7 @@ The function expects the x and y position and the width and height. II. Drawing Arcs. Arcs can form enclosed areas such as elipses or cirlces or -they coould be a curved line. The funcion XDrawArc will draw arcs. +they could be a curved line. The function XDrawArc will draw arcs. (XdrawArc *default-display* a-window *default-GC* 100 100 10 10 0 (* 360 64)) @@ -631,7 +631,7 @@ III. Drawing Text With the font loaded in the Graphics Context as shown in Section C, several functions can be called in order to draw text. Only XDrawString will be dicussed here, but the other functions are -similiar. +similar. (XDrawString *default-display* a-window *default-GC* 10 15 (get-c-string "hello") 4) (Xflush *default-display*) @@ -676,7 +676,7 @@ position text precisely on the screen. E. Handling Events So far only request to the X server to do output on the screen -have been discussed. X also has a means of getting infomation about +have been discussed. X also has a means of getting information about what is inputed by a user as well. The inputs can range from moving or clicking the mouse to keys being pressed on the keyboard. The input also encompases events like a window being uncovered or exposed @@ -700,7 +700,7 @@ the file X.lsp or X.h). After Specifiying the input, all events that occur in that will go on the event queue. The event queue is a queue of what events -have occured, the first one being on top. The client can both get +have occurred, the first one being on top. The client can both get information form the queue and manipulate the queue. II. Getting Information form the Event Queue @@ -718,7 +718,7 @@ description. XNextEvent is the most commonly used function, even though the other functions can be useful as well. Only the call to -XNextEvent will be discribed because the other functions are similiar +XNextEvent will be described because the other functions are similar to XNextEvent. The following functions will get an event from the queue and retrieve the type of the event along with the window that it occurs in. @@ -733,7 +733,7 @@ can occur. In order to handle an event the appropriate structure must be assessed. For example, if the PointerMotion event needs to be handled than the *default-event* must be assessed as a XMotionEvent structure. Below is an example of getting the x and y position of the -pointer when a PointerMotion Event has occured, and the pointer is in +pointer when a PointerMotion Event has occurred, and the pointer is in the correct window. (if (and (eql type MotionNotify) @@ -751,7 +751,7 @@ III. Manipulating the Event Queue For most applications the client will never have to change the event queue, besides removing events of the top or the queue, however -sometimes the queue needs to be cleared by the client. The funciton +sometimes the queue needs to be cleared by the client. The function XSync can be used to do this. For example: (Xsync *default-display* 1) @@ -765,11 +765,11 @@ XSync can be used to do this. For example: With the commands demonstarted in this tutorial, most applications can be managed. Windows can be created, and graphics operations can be performed. For more complex applications a widget -set can be created similiar to the X Intrinsics library and the Athena +set can be created similar to the X Intrinsics library and the Athena Widget Set. For a lisp like implementation of widgets and an advance aplications see the GWM application, in the GWM Manual by Colas Nahaboo. GWM is a generic window manager, that is similar to Xakcl. -It supports objects that are similiar to Widgets in most C Xwindows +It supports objects that are similar to Widgets in most C Xwindows libraries. diff --git a/xgcl-2/gcl_XStruct_l_3.lsp b/xgcl-2/gcl_XStruct_l_3.lsp index e8eebf7b..17191889 100644 --- a/xgcl-2/gcl_XStruct_l_3.lsp +++ b/xgcl-2/gcl_XStruct_l_3.lsp @@ -25,7 +25,7 @@ -;;;;;; XExtCodes funcions ;;;;;; +;;;;;; XExtCodes functions ;;;;;; (defentry make-XExtCodes () ( fixnum "make_XExtCodes" )) (defentry XExtCodes-first_error (fixnum) ( fixnum "XExtCodes_first_error" )) @@ -38,7 +38,7 @@ (defentry set-XExtCodes-extension (fixnum fixnum) ( void "set_XExtCodes_extension" )) -;;;;;; XPixmapFormatValues funcions ;;;;;; +;;;;;; XPixmapFormatValues functions ;;;;;; (defentry make-XPixmapFormatValues () ( fixnum "make_XPixmapFormatValues" )) (defentry XPixmapFormatValues-scanline_pad (fixnum) ( fixnum "XPixmapFormatValues_scanline_pad" )) @@ -49,7 +49,7 @@ (defentry set-XPixmapFormatValues-depth (fixnum fixnum) ( void "set_XPixmapFormatValues_depth" )) -;;;;;; XGCValues funcions ;;;;;; +;;;;;; XGCValues functions ;;;;;; (defentry make-XGCValues () ( fixnum "make_XGCValues" )) (defentry XGCValues-dashes (fixnum) ( char "XGCValues_dashes" )) @@ -100,7 +100,7 @@ (defentry set-XGCValues-function (fixnum fixnum) ( void "set_XGCValues_function" )) -;;;;;; *GC funcions ;;;;;; +;;;;;; *GC functions ;;;;;; ;;(defentry make-*GC () ( fixnum "make_*GC" )) ;;(defentry *GC-values (fixnum) ( fixnum "*GC_values" )) @@ -117,7 +117,7 @@ ;;(defentry set-*GC-ext_data (fixnum fixnum) ( void "set_*GC_ext_data" )) -;;;;;; Visual funcions ;;;;;; +;;;;;; Visual functions ;;;;;; (defentry make-Visual () ( fixnum "make_Visual" )) (defentry Visual-map_entries (fixnum) ( fixnum "Visual_map_entries" )) @@ -138,7 +138,7 @@ (defentry set-Visual-ext_data (fixnum fixnum) ( void "set_Visual_ext_data" )) -;;;;;; Depth funcions ;;;;;; +;;;;;; Depth functions ;;;;;; (defentry make-Depth () ( fixnum "make_Depth" )) (defentry Depth-visuals (fixnum) ( fixnum "Depth_visuals" )) @@ -149,7 +149,7 @@ (defentry set-Depth-depth (fixnum fixnum) ( void "set_Depth_depth" )) -;;;;;; Screen funcions ;;;;;; +;;;;;; Screen functions ;;;;;; (defentry make-Screen () ( fixnum "make_Screen" )) (defentry Screen-root_input_mask (fixnum) ( fixnum "Screen_root_input_mask" )) @@ -194,7 +194,7 @@ (defentry set-Screen-ext_data (fixnum fixnum) ( void "set_Screen_ext_data" )) -;;;;;; ScreenFormat funcions ;;;;;; +;;;;;; ScreenFormat functions ;;;;;; (defentry make-ScreenFormat () ( fixnum "make_ScreenFormat" )) (defentry ScreenFormat-scanline_pad (fixnum) ( fixnum "ScreenFormat_scanline_pad" )) @@ -207,7 +207,7 @@ (defentry set-ScreenFormat-ext_data (fixnum fixnum) ( void "set_ScreenFormat_ext_data" )) -;;;;;; XSetWindowAttributes funcions ;;;;;; +;;;;;; XSetWindowAttributes functions ;;;;;; (defentry make-XSetWindowAttributes () ( fixnum "make_XSetWindowAttributes" )) (defentry XSetWindowAttributes-cursor (fixnum) ( fixnum "XSetWindowAttributes_cursor" )) @@ -242,7 +242,7 @@ (defentry set-XSetWindowAttributes-background_pixmap (fixnum fixnum) ( void "set_XSetWindowAttributes_background_pixmap" )) -;;;;;; XWindowAttributes funcions ;;;;;; +;;;;;; XWindowAttributes functions ;;;;;; (defentry make-XWindowAttributes () ( fixnum "make_XWindowAttributes" )) (defentry XWindowAttributes-screen (fixnum) ( fixnum "XWindowAttributes_screen" )) @@ -293,7 +293,7 @@ (defentry set-XWindowAttributes-x (fixnum fixnum) ( void "set_XWindowAttributes_x" )) -;;;;;; XHostAddress funcions ;;;;;; +;;;;;; XHostAddress functions ;;;;;; (defentry make-XHostAddress () ( fixnum "make_XHostAddress" )) (defentry XHostAddress-address (fixnum) ( fixnum "XHostAddress_address" )) @@ -304,7 +304,7 @@ (defentry set-XHostAddress-family (fixnum fixnum) ( void "set_XHostAddress_family" )) -;;;;;; XImage funcions ;;;;;; +;;;;;; XImage functions ;;;;;; (defentry make-XImage () ( fixnum "make_XImage" )) ;;(defentry XImage-f (fixnum) ( fixnum "XImage_f" )) @@ -343,7 +343,7 @@ (defentry set-XImage-width (fixnum fixnum) ( void "set_XImage_width" )) -;;;;;; XWindowChanges funcions ;;;;;; +;;;;;; XWindowChanges functions ;;;;;; (defentry make-XWindowChanges () ( fixnum "make_XWindowChanges" )) (defentry XWindowChanges-stack_mode (fixnum) ( fixnum "XWindowChanges_stack_mode" )) @@ -362,7 +362,7 @@ (defentry set-XWindowChanges-x (fixnum fixnum) ( void "set_XWindowChanges_x" )) -;;;;;; XColor funcions ;;;;;; +;;;;;; XColor functions ;;;;;; (defentry make-XColor () ( fixnum "make_XColor" )) (defentry XColor-pad (fixnum) ( char "XColor_pad" )) @@ -379,7 +379,7 @@ (defentry set-XColor-pixel (fixnum fixnum) ( void "set_XColor_pixel" )) -;;;;;; XSegment funcions ;;;;;; +;;;;;; XSegment functions ;;;;;; (defentry make-XSegment () ( fixnum "make_XSegment" )) (defentry XSegment-y2 (fixnum) ( fixnum "XSegment_y2" )) @@ -392,7 +392,7 @@ (defentry set-XSegment-x1 (fixnum fixnum) ( void "set_XSegment_x1" )) -;;;;;; XPoint funcions ;;;;;; +;;;;;; XPoint functions ;;;;;; (defentry make-XPoint () ( fixnum "make_XPoint" )) (defentry XPoint-y (fixnum) ( fixnum "XPoint_y" )) @@ -401,7 +401,7 @@ (defentry set-XPoint-x (fixnum fixnum) ( void "set_XPoint_x" )) -;;;;;; XRectangle funcions ;;;;;; +;;;;;; XRectangle functions ;;;;;; (defentry make-XRectangle () ( fixnum "make_XRectangle" )) (defentry XRectangle-height (fixnum) ( fixnum "XRectangle_height" )) @@ -414,7 +414,7 @@ (defentry set-XRectangle-x (fixnum fixnum) ( void "set_XRectangle_x" )) -;;;;;; XArc funcions ;;;;;; +;;;;;; XArc functions ;;;;;; (defentry make-XArc () ( fixnum "make_XArc" )) (defentry XArc-angle2 (fixnum) ( fixnum "XArc_angle2" )) @@ -431,7 +431,7 @@ (defentry set-XArc-x (fixnum fixnum) ( void "set_XArc_x" )) -;;;;;; XKeyboardControl funcions ;;;;;; +;;;;;; XKeyboardControl functions ;;;;;; (defentry make-XKeyboardControl () ( fixnum "make_XKeyboardControl" )) (defentry XKeyboardControl-auto_repeat_mode (fixnum) ( fixnum "XKeyboardControl_auto_repeat_mode" )) @@ -452,7 +452,7 @@ (defentry set-XKeyboardControl-key_click_percent (fixnum fixnum) ( void "set_XKeyboardControl_key_click_percent" )) -;;;;;; XKeyboardState funcions ;;;;;; +;;;;;; XKeyboardState functions ;;;;;; (defentry make-XKeyboardState () ( fixnum "make_XKeyboardState" )) (defentry XKeyboardState-auto_repeats (fixnum) ( fixnum "XKeyboardState_auto_repeats" )) @@ -471,7 +471,7 @@ (defentry set-XKeyboardState-key_click_percent (fixnum fixnum) ( void "set_XKeyboardState_key_click_percent" )) -;;;;;; XTimeCoord funcions ;;;;;; +;;;;;; XTimeCoord functions ;;;;;; (defentry make-XTimeCoord () ( fixnum "make_XTimeCoord" )) (defentry XTimeCoord-y (fixnum) ( fixnum "XTimeCoord_y" )) @@ -482,7 +482,7 @@ (defentry set-XTimeCoord-time (fixnum fixnum) ( void "set_XTimeCoord_time" )) -;;;;;; XModifierKeymap funcions ;;;;;; +;;;;;; XModifierKeymap functions ;;;;;; (defentry make-XModifierKeymap () ( fixnum "make_XModifierKeymap" )) (defentry XModifierKeymap-modifiermap (fixnum) ( fixnum "XModifierKeymap_modifiermap" )) diff --git a/xgcl-2/gcl_Xakcl.example.lsp b/xgcl-2/gcl_Xakcl.example.lsp index 975c5a62..06bbd055 100644 --- a/xgcl-2/gcl_Xakcl.example.lsp +++ b/xgcl-2/gcl_Xakcl.example.lsp @@ -136,8 +136,8 @@ ;;;;;;;;;;;;;;;;;;;;;; ;;this function tracks the mouse. when the mouse button is pressed a ;;line is drawn from the previous position to the current position. -;;this funciton also shows a way of handling exposure events. the -;;positions are remebered in order to redraw the contents of the window +;;this function also shows a way of handling exposure events. The +;;positions are remembered in order to redraw the contents of the window ;;when it is exposed. this function handles events in two windows, the ;;quit window and the draw window. there is an example of setting the ;;input for a window. the draw window can have button press events, @@ -272,7 +272,7 @@ ;;this function draws a ghst line by setting the X function to GXXor. and the ;;foreground color to th logxor of the back and foreground pixel ;;this function actually changes the graphics context. and does not change it back -;;to use the ghost method and switch back to regular drawing. set the funciton +;;to use the ghost method and switch back to regular drawing. set the function ;;back to GXcopy and the foregorund pixel appropriately (defun do-ghost-line-1 (a-window) diff --git a/xgcl-2/gcl_Xinit.lsp b/xgcl-2/gcl_Xinit.lsp index 597744fd..c6cc66f3 100644 --- a/xgcl-2/gcl_Xinit.lsp +++ b/xgcl-2/gcl_Xinit.lsp @@ -30,10 +30,10 @@ ;;a C struct in X starts with a 'make' followed by the structure name. all ;;functions involved in getting a field of a C struct strats with the ;;name of the C struct followed by the name of the field. the -;;parameters it excepts is the varaible contaning the structure. all +;;parameters it excepts is the variable contaning the structure. all ;;functions to set a field of a C struct starts with 'set' followed by ;;the C struct name followed by the field name. these functions accept -;;as parameter, the varaible containing the struct and the value to be +;;as parameter, the variable containing the struct and the value to be ;;put in the field. ;;;; @@ -82,7 +82,7 @@ ;;;;;;;;;;;;;;;;;;;;;; -;;this function initializes all varaibles needed by most applications. +;;this function initializes all variables needed by most applications. ;;it uses all defaults which is inherited from the root window, and ;;screen. diff --git a/xgcl-2/gcl_Xstruct.lsp b/xgcl-2/gcl_Xstruct.lsp index d8dd1d1c..9ee3cc47 100644 --- a/xgcl-2/gcl_Xstruct.lsp +++ b/xgcl-2/gcl_Xstruct.lsp @@ -25,7 +25,7 @@ -;;;;;; _XQEvent funcions ;;;;;; +;;;;;; _XQEvent functions ;;;;;; (defentry make-_XQEvent () ( fixnum "make__XQEvent" )) (defentry _XQEvent-event (fixnum) ( fixnum "_XQEvent_event" )) @@ -34,7 +34,7 @@ (defentry set-_XQEvent-next (fixnum fixnum) ( void "set__XQEvent_next" )) -;;;;;; XCharStruct funcions ;;;;;; +;;;;;; XCharStruct functions ;;;;;; (defentry make-XCharStruct () ( fixnum "make_XCharStruct" )) (defentry XCharStruct-attributes (fixnum) ( fixnum "XCharStruct_attributes" )) @@ -51,7 +51,7 @@ (defentry set-XCharStruct-lbearing (fixnum fixnum) ( void "set_XCharStruct_lbearing" )) -;;;;;; XFontProp funcions ;;;;;; +;;;;;; XFontProp functions ;;;;;; (defentry make-XFontProp () ( fixnum "make_XFontProp" )) (defentry XFontProp-card32 (fixnum) ( fixnum "XFontProp_card32" )) @@ -60,7 +60,7 @@ (defentry set-XFontProp-name (fixnum fixnum) ( void "set_XFontProp_name" )) -;;;;;; XFontStruct funcions ;;;;;; +;;;;;; XFontStruct functions ;;;;;; (defentry make-XFontStruct () ( fixnum "make_XFontStruct" )) (defentry XFontStruct-descent (fixnum) ( fixnum "XFontStruct_descent" )) @@ -97,7 +97,7 @@ (defentry set-XFontStruct-ext_data (fixnum fixnum) ( void "set_XFontStruct_ext_data" )) -;;;;;; XTextItem funcions ;;;;;; +;;;;;; XTextItem functions ;;;;;; (defentry make-XTextItem () ( fixnum "make_XTextItem" )) (defentry XTextItem-font (fixnum) ( fixnum "XTextItem_font" )) @@ -110,7 +110,7 @@ (defentry set-XTextItem-chars (fixnum fixnum) ( void "set_XTextItem_chars" )) -;;;;;; XChar2b funcions ;;;;;; +;;;;;; XChar2b functions ;;;;;; (defentry make-XChar2b () ( fixnum "make_XChar2b" )) (defentry XChar2b-byte2 (fixnum) ( char "XChar2b_byte2" )) @@ -119,7 +119,7 @@ (defentry set-XChar2b-byte1 (fixnum char) ( void "set_XChar2b_byte1" )) -;;;;;; XTextItem16 funcions ;;;;;; +;;;;;; XTextItem16 functions ;;;;;; (defentry make-XTextItem16 () ( fixnum "make_XTextItem16" )) (defentry XTextItem16-font (fixnum) ( fixnum "XTextItem16_font" )) @@ -132,7 +132,7 @@ (defentry set-XTextItem16-chars (fixnum fixnum) ( void "set_XTextItem16_chars" )) -;;;;;; XEDataObject funcions ;;;;;; +;;;;;; XEDataObject functions ;;;;;; (defentry make-XEDataObject () ( fixnum "make_XEDataObject" )) (defentry XEDataObject-font (fixnum) ( fixnum "XEDataObject_font" )) @@ -147,7 +147,7 @@ (defentry set-XEDataObject-gc (fixnum fixnum) ( void "set_XEDataObject_gc" )) -;;;;;; XSizeHints funcions ;;;;;; +;;;;;; XSizeHints functions ;;;;;; (defentry make-XSizeHints () ( fixnum "make_XSizeHints" )) (defentry XSizeHints-win_gravity (fixnum) ( fixnum "XSizeHints_win_gravity" )) @@ -190,7 +190,7 @@ (defentry set-XSizeHints-flags (fixnum fixnum) ( void "set_XSizeHints_flags" )) -;;;;;; XWMHints funcions ;;;;;; +;;;;;; XWMHints functions ;;;;;; (defentry make-XWMHints () ( fixnum "make_XWMHints" )) (defentry XWMHints-window_group (fixnum) ( fixnum "XWMHints_window_group" )) @@ -213,7 +213,7 @@ (defentry set-XWMHints-flags (fixnum fixnum) ( void "set_XWMHints_flags" )) -;;;;;; XTextProperty funcions ;;;;;; +;;;;;; XTextProperty functions ;;;;;; (defentry make-XTextProperty () ( fixnum "make_XTextProperty" )) (defentry XTextProperty-nitems (fixnum) ( fixnum "XTextProperty_nitems" )) @@ -226,7 +226,7 @@ (defentry set-XTextProperty-value (fixnum fixnum) ( void "set_XTextProperty_value" )) -;;;;;; XIconSize funcions ;;;;;; +;;;;;; XIconSize functions ;;;;;; (defentry make-XIconSize () ( fixnum "make_XIconSize" )) (defentry XIconSize-height_inc (fixnum) ( fixnum "XIconSize_height_inc" )) @@ -243,7 +243,7 @@ (defentry set-XIconSize-min_width (fixnum fixnum) ( void "set_XIconSize_min_width" )) -;;;;;; XClassHint funcions ;;;;;; +;;;;;; XClassHint functions ;;;;;; (defentry make-XClassHint () ( fixnum "make_XClassHint" )) (defentry XClassHint-res_class (fixnum) ( fixnum "XClassHint_res_class" )) @@ -252,7 +252,7 @@ (defentry set-XClassHint-res_name (fixnum fixnum) ( void "set_XClassHint_res_name" )) -;;;;;; XComposeStatus funcions ;;;;;; +;;;;;; XComposeStatus functions ;;;;;; (defentry make-XComposeStatus () ( fixnum "make_XComposeStatus" )) (defentry XComposeStatus-chars_matched (fixnum) ( fixnum "XComposeStatus_chars_matched" )) @@ -261,7 +261,7 @@ (defentry set-XComposeStatus-compose_ptr (fixnum fixnum) ( void "set_XComposeStatus_compose_ptr" )) -;;;;;; XVisualInfo funcions ;;;;;; +;;;;;; XVisualInfo functions ;;;;;; (defentry make-XVisualInfo () ( fixnum "make_XVisualInfo" )) (defentry XVisualInfo-bits_per_rgb (fixnum) ( fixnum "XVisualInfo_bits_per_rgb" )) @@ -286,7 +286,7 @@ (defentry set-XVisualInfo-visual (fixnum fixnum) ( void "set_XVisualInfo_visual" )) -;;;;;; XStandardColormap funcions ;;;;;; +;;;;;; XStandardColormap functions ;;;;;; (defentry make-XStandardColormap () ( fixnum "make_XStandardColormap" )) (defentry XStandardColormap-killid (fixnum) ( fixnum "XStandardColormap_killid" )) diff --git a/xgcl-2/gcl_defentry_events.lsp b/xgcl-2/gcl_defentry_events.lsp index a561d02b..c586fd34 100644 --- a/xgcl-2/gcl_defentry_events.lsp +++ b/xgcl-2/gcl_defentry_events.lsp @@ -23,7 +23,7 @@ ; See the file dec.copyright for details. -;;;;;; XKeyEvent funcions ;;;;;; +;;;;;; XKeyEvent functions ;;;;;; (defentry make-XKeyEvent () ( fixnum "make_XKeyEvent" )) (defentry XKeyEvent-same_screen (fixnum) ( fixnum "XKeyEvent_same_screen" )) @@ -58,7 +58,7 @@ (defentry set-XKeyEvent-type (fixnum fixnum) ( void "set_XKeyEvent_type" )) -;;;;;; XButtonEvent funcions ;;;;;; +;;;;;; XButtonEvent functions ;;;;;; (defentry make-XButtonEvent () ( fixnum "make_XButtonEvent" )) (defentry XButtonEvent-same_screen (fixnum) ( fixnum "XButtonEvent_same_screen" )) @@ -93,7 +93,7 @@ (defentry set-XButtonEvent-type (fixnum fixnum) ( void "set_XButtonEvent_type" )) -;;;;;; XMotionEvent funcions ;;;;;; +;;;;;; XMotionEvent functions ;;;;;; (defentry make-XMotionEvent () ( fixnum "make_XMotionEvent" )) (defentry XMotionEvent-same_screen (fixnum) ( fixnum "XMotionEvent_same_screen" )) @@ -128,7 +128,7 @@ (defentry set-XMotionEvent-type (fixnum fixnum) ( void "set_XMotionEvent_type" )) -;;;;;; XCrossingEvent funcions ;;;;;; +;;;;;; XCrossingEvent functions ;;;;;; (defentry make-XCrossingEvent () ( fixnum "make_XCrossingEvent" )) (defentry XCrossingEvent-state (fixnum) ( fixnum "XCrossingEvent_state" )) @@ -167,7 +167,7 @@ (defentry set-XCrossingEvent-type (fixnum fixnum) ( void "set_XCrossingEvent_type" )) -;;;;;; XFocusChangeEvent funcions ;;;;;; +;;;;;; XFocusChangeEvent functions ;;;;;; (defentry make-XFocusChangeEvent () ( fixnum "make_XFocusChangeEvent" )) (defentry XFocusChangeEvent-detail (fixnum) ( fixnum "XFocusChangeEvent_detail" )) @@ -186,7 +186,7 @@ (defentry set-XFocusChangeEvent-type (fixnum fixnum) ( void "set_XFocusChangeEvent_type" )) -;;;;;; XKeymapEvent funcions ;;;;;; +;;;;;; XKeymapEvent functions ;;;;;; (defentry make-XKeymapEvent () ( fixnum "make_XKeymapEvent" )) ;;(defentry XKeymapEvent-key_vector[32] (fixnum) ( char "XKeymapEvent_key_vector[32]" )) @@ -203,7 +203,7 @@ (defentry set-XKeymapEvent-type (fixnum fixnum) ( void "set_XKeymapEvent_type" )) -;;;;;; XExposeEvent funcions ;;;;;; +;;;;;; XExposeEvent functions ;;;;;; (defentry make-XExposeEvent () ( fixnum "make_XExposeEvent" )) (defentry XExposeEvent-count (fixnum) ( fixnum "XExposeEvent_count" )) @@ -228,7 +228,7 @@ (defentry set-XExposeEvent-type (fixnum fixnum) ( void "set_XExposeEvent_type" )) -;;;;;; XGraphicsExposeEvent funcions ;;;;;; +;;;;;; XGraphicsExposeEvent functions ;;;;;; (defentry make-XGraphicsExposeEvent () ( fixnum "make_XGraphicsExposeEvent" )) (defentry XGraphicsExposeEvent-minor_code (fixnum) ( fixnum "XGraphicsExposeEvent_minor_code" )) @@ -257,7 +257,7 @@ (defentry set-XGraphicsExposeEvent-type (fixnum fixnum) ( void "set_XGraphicsExposeEvent_type" )) -;;;;;; XNoExposeEvent funcions ;;;;;; +;;;;;; XNoExposeEvent functions ;;;;;; (defentry make-XNoExposeEvent () ( fixnum "make_XNoExposeEvent" )) (defentry XNoExposeEvent-minor_code (fixnum) ( fixnum "XNoExposeEvent_minor_code" )) @@ -276,7 +276,7 @@ (defentry set-XNoExposeEvent-type (fixnum fixnum) ( void "set_XNoExposeEvent_type" )) -;;;;;; XVisibilityEvent funcions ;;;;;; +;;;;;; XVisibilityEvent functions ;;;;;; (defentry make-XVisibilityEvent () ( fixnum "make_XVisibilityEvent" )) (defentry XVisibilityEvent-state (fixnum) ( fixnum "XVisibilityEvent_state" )) @@ -293,7 +293,7 @@ (defentry set-XVisibilityEvent-type (fixnum fixnum) ( void "set_XVisibilityEvent_type" )) -;;;;;; XCreateWindowEvent funcions ;;;;;; +;;;;;; XCreateWindowEvent functions ;;;;;; (defentry make-XCreateWindowEvent () ( fixnum "make_XCreateWindowEvent" )) (defentry XCreateWindowEvent-override_redirect (fixnum) ( fixnum "XCreateWindowEvent_override_redirect" )) @@ -322,7 +322,7 @@ (defentry set-XCreateWindowEvent-type (fixnum fixnum) ( void "set_XCreateWindowEvent_type" )) -;;;;;; XDestroyWindowEvent funcions ;;;;;; +;;;;;; XDestroyWindowEvent functions ;;;;;; (defentry make-XDestroyWindowEvent () ( fixnum "make_XDestroyWindowEvent" )) (defentry XDestroyWindowEvent-window (fixnum) ( fixnum "XDestroyWindowEvent_window" )) @@ -339,7 +339,7 @@ (defentry set-XDestroyWindowEvent-type (fixnum fixnum) ( void "set_XDestroyWindowEvent_type" )) -;;;;;; XUnmapEvent funcions ;;;;;; +;;;;;; XUnmapEvent functions ;;;;;; (defentry make-XUnmapEvent () ( fixnum "make_XUnmapEvent" )) (defentry XUnmapEvent-from_configure (fixnum) ( fixnum "XUnmapEvent_from_configure" )) @@ -358,7 +358,7 @@ (defentry set-XUnmapEvent-type (fixnum fixnum) ( void "set_XUnmapEvent_type" )) -;;;;;; XMapEvent funcions ;;;;;; +;;;;;; XMapEvent functions ;;;;;; (defentry make-XMapEvent () ( fixnum "make_XMapEvent" )) (defentry XMapEvent-override_redirect (fixnum) ( fixnum "XMapEvent_override_redirect" )) @@ -377,7 +377,7 @@ (defentry set-XMapEvent-type (fixnum fixnum) ( void "set_XMapEvent_type" )) -;;;;;; XMapRequestEvent funcions ;;;;;; +;;;;;; XMapRequestEvent functions ;;;;;; (defentry make-XMapRequestEvent () ( fixnum "make_XMapRequestEvent" )) (defentry XMapRequestEvent-window (fixnum) ( fixnum "XMapRequestEvent_window" )) @@ -394,7 +394,7 @@ (defentry set-XMapRequestEvent-type (fixnum fixnum) ( void "set_XMapRequestEvent_type" )) -;;;;;; XReparentEvent funcions ;;;;;; +;;;;;; XReparentEvent functions ;;;;;; (defentry make-XReparentEvent () ( fixnum "make_XReparentEvent" )) (defentry XReparentEvent-override_redirect (fixnum) ( fixnum "XReparentEvent_override_redirect" )) @@ -419,7 +419,7 @@ (defentry set-XReparentEvent-type (fixnum fixnum) ( void "set_XReparentEvent_type" )) -;;;;;; XConfigureEvent funcions ;;;;;; +;;;;;; XConfigureEvent functions ;;;;;; (defentry make-XConfigureEvent () ( fixnum "make_XConfigureEvent" )) (defentry XConfigureEvent-override_redirect (fixnum) ( fixnum "XConfigureEvent_override_redirect" )) @@ -450,7 +450,7 @@ (defentry set-XConfigureEvent-type (fixnum fixnum) ( void "set_XConfigureEvent_type" )) -;;;;;; XGravityEvent funcions ;;;;;; +;;;;;; XGravityEvent functions ;;;;;; (defentry make-XGravityEvent () ( fixnum "make_XGravityEvent" )) (defentry XGravityEvent-y (fixnum) ( fixnum "XGravityEvent_y" )) @@ -471,7 +471,7 @@ (defentry set-XGravityEvent-type (fixnum fixnum) ( void "set_XGravityEvent_type" )) -;;;;;; XResizeRequestEvent funcions ;;;;;; +;;;;;; XResizeRequestEvent functions ;;;;;; (defentry make-XResizeRequestEvent () ( fixnum "make_XResizeRequestEvent" )) (defentry XResizeRequestEvent-height (fixnum) ( fixnum "XResizeRequestEvent_height" )) @@ -490,7 +490,7 @@ (defentry set-XResizeRequestEvent-type (fixnum fixnum) ( void "set_XResizeRequestEvent_type" )) -;;;;;; XConfigureRequestEvent funcions ;;;;;; +;;;;;; XConfigureRequestEvent functions ;;;;;; (defentry make-XConfigureRequestEvent () ( fixnum "make_XConfigureRequestEvent" )) (defentry XConfigureRequestEvent-value_mask (fixnum) ( fixnum "XConfigureRequestEvent_value_mask" )) @@ -523,7 +523,7 @@ (defentry set-XConfigureRequestEvent-type (fixnum fixnum) ( void "set_XConfigureRequestEvent_type" )) -;;;;;; XCirculateEvent funcions ;;;;;; +;;;;;; XCirculateEvent functions ;;;;;; (defentry make-XCirculateEvent () ( fixnum "make_XCirculateEvent" )) (defentry XCirculateEvent-place (fixnum) ( fixnum "XCirculateEvent_place" )) @@ -542,7 +542,7 @@ (defentry set-XCirculateEvent-type (fixnum fixnum) ( void "set_XCirculateEvent_type" )) -;;;;;; XCirculateRequestEvent funcions ;;;;;; +;;;;;; XCirculateRequestEvent functions ;;;;;; (defentry make-XCirculateRequestEvent () ( fixnum "make_XCirculateRequestEvent" )) (defentry XCirculateRequestEvent-place (fixnum) ( fixnum "XCirculateRequestEvent_place" )) @@ -561,7 +561,7 @@ (defentry set-XCirculateRequestEvent-type (fixnum fixnum) ( void "set_XCirculateRequestEvent_type" )) -;;;;;; XPropertyEvent funcions ;;;;;; +;;;;;; XPropertyEvent functions ;;;;;; (defentry make-XPropertyEvent () ( fixnum "make_XPropertyEvent" )) (defentry XPropertyEvent-state (fixnum) ( fixnum "XPropertyEvent_state" )) @@ -582,7 +582,7 @@ (defentry set-XPropertyEvent-type (fixnum fixnum) ( void "set_XPropertyEvent_type" )) -;;;;;; XSelectionClearEvent funcions ;;;;;; +;;;;;; XSelectionClearEvent functions ;;;;;; (defentry make-XSelectionClearEvent () ( fixnum "make_XSelectionClearEvent" )) (defentry XSelectionClearEvent-time (fixnum) ( fixnum "XSelectionClearEvent_time" )) @@ -601,7 +601,7 @@ (defentry set-XSelectionClearEvent-type (fixnum fixnum) ( void "set_XSelectionClearEvent_type" )) -;;;;;; XSelectionRequestEvent funcions ;;;;;; +;;;;;; XSelectionRequestEvent functions ;;;;;; (defentry make-XSelectionRequestEvent () ( fixnum "make_XSelectionRequestEvent" )) (defentry XSelectionRequestEvent-time (fixnum) ( fixnum "XSelectionRequestEvent_time" )) @@ -626,7 +626,7 @@ (defentry set-XSelectionRequestEvent-type (fixnum fixnum) ( void "set_XSelectionRequestEvent_type" )) -;;;;;; XSelectionEvent funcions ;;;;;; +;;;;;; XSelectionEvent functions ;;;;;; (defentry make-XSelectionEvent () ( fixnum "make_XSelectionEvent" )) (defentry XSelectionEvent-time (fixnum) ( fixnum "XSelectionEvent_time" )) @@ -649,7 +649,7 @@ (defentry set-XSelectionEvent-type (fixnum fixnum) ( void "set_XSelectionEvent_type" )) -;;;;;; XColormapEvent funcions ;;;;;; +;;;;;; XColormapEvent functions ;;;;;; (defentry make-XColormapEvent () ( fixnum "make_XColormapEvent" )) (defentry XColormapEvent-state (fixnum) ( fixnum "XColormapEvent_state" )) @@ -670,7 +670,7 @@ (defentry set-XColormapEvent-type (fixnum fixnum) ( void "set_XColormapEvent_type" )) -;;;;;; XClientMessageEvent funcions ;;;;;; +;;;;;; XClientMessageEvent functions ;;;;;; (defentry make-XClientMessageEvent () ( fixnum "make_XClientMessageEvent" )) (defentry XClientMessageEvent-format (fixnum) ( fixnum "XClientMessageEvent_format" )) @@ -689,7 +689,7 @@ (defentry set-XClientMessageEvent-type (fixnum fixnum) ( void "set_XClientMessageEvent_type" )) -;;;;;; XMappingEvent funcions ;;;;;; +;;;;;; XMappingEvent functions ;;;;;; (defentry make-XMappingEvent () ( fixnum "make_XMappingEvent" )) (defentry XMappingEvent-count (fixnum) ( fixnum "XMappingEvent_count" )) @@ -710,7 +710,7 @@ (defentry set-XMappingEvent-type (fixnum fixnum) ( void "set_XMappingEvent_type" )) -;;;;;; XErrorEvent funcions ;;;;;; +;;;;;; XErrorEvent functions ;;;;;; (defentry make-XErrorEvent () ( fixnum "make_XErrorEvent" )) (defentry XErrorEvent-minor_code (fixnum) ( char "XErrorEvent_minor_code" )) @@ -729,7 +729,7 @@ (defentry set-XErrorEvent-type (fixnum fixnum) ( void "set_XErrorEvent_type" )) -;;;;;; XAnyEvent funcions ;;;;;; +;;;;;; XAnyEvent functions ;;;;;; (defentry make-XAnyEvent () ( fixnum "make_XAnyEvent" )) (defentry XAnyEvent-window (fixnum) ( fixnum "XAnyEvent_window" )) @@ -744,7 +744,7 @@ (defentry set-XAnyEvent-type (fixnum fixnum) ( void "set_XAnyEvent_type" )) -;;;;;; XEvent funcions ;;;;;; +;;;;;; XEvent functions ;;;;;; (defentry make-XEvent () ( fixnum "make_XEvent" )) ;;(defentry XEvent-pad[24] (fixnum) ( fixnum "XEvent_pad[24]" )) diff --git a/xgcl-2/gcl_keysymdef.lsp b/xgcl-2/gcl_keysymdef.lsp index a9d492f1..5dbf050f 100644 --- a/xgcl-2/gcl_keysymdef.lsp +++ b/xgcl-2/gcl_keysymdef.lsp @@ -133,7 +133,7 @@ ;; - ; Auxilliary Functions; note the duplicate definitions for left and right + ; Auxiliary Functions; note the duplicate definitions for left and right ; function keys; Sun keyboards and a few other manufactures have such ; function key groups on the left and/or right sides of the keyboard. ; We've not found a keyboard with more than 35 function keys total.