From: <cli...@li...> - 2007-11-30 20:18:44
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/src predtype.d, 1.137, 1.138 package.d, 1.108, 1.109 lispbibl.d, 1.737, 1.738 lisparit.d, 1.86, 1.87 charstrg.d, 1.128, 1.129 ChangeLog, 1.5798, 1.5799 (Sam Steingold) 2. clisp/modules/clx/new-clx clx.f,2.101,2.102 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Fri, 30 Nov 2007 15:14:40 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src predtype.d, 1.137, 1.138 package.d, 1.108, 1.109 lispbibl.d, 1.737, 1.738 lisparit.d, 1.86, 1.87 charstrg.d, 1.128, 1.129 ChangeLog, 1.5798, 1.5799 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv31626/src Modified Files: predtype.d package.d lispbibl.d lisparit.d charstrg.d ChangeLog Log Message: rurban: 06_gleich2 string_gleich_inverted --> string_eq_inverted number_gleich --> number_equal Index: lisparit.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lisparit.d,v retrieving revision 1.86 retrieving revision 1.87 diff -u -d -r1.86 -r1.87 --- lisparit.d 29 Nov 2007 17:12:33 -0000 1.86 +++ lisparit.d 30 Nov 2007 15:14:35 -0000 1.87 @@ -15,11 +15,11 @@ /* UP: decides over number equality - number_gleich(x,y) + number_equal(x,y) > x,y: two numbers < result: true, if (= x y) */ -global bool number_gleich (object x, object y); -#define N_N_gleich number_gleich /* N_N_gleich is defined later */ +global bool number_equal (object x, object y); +#define N_N_gleich number_equal /* N_N_gleich is defined later */ /* arithmetics in general: */ Index: package.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/package.d,v retrieving revision 1.108 retrieving revision 1.109 diff -u -d -r1.108 -r1.109 --- package.d 29 Nov 2007 17:12:34 -0000 1.108 +++ package.d 30 Nov 2007 15:14:34 -0000 1.109 @@ -224,7 +224,7 @@ var object entry = TheSvector(Symtab_table(symtab))->data[index]; if (!listp(entry)) { /* entry is a single symbol */ /* first string and printname of the found symbol are equal ? */ - if ((invert ? string_gleich_inverted : string_eq) + if ((invert ? string_eq_inverted : string_eq) (string,Symbol_name(entry))) { if (sym_) { *sym_ = entry; } return true; @@ -234,7 +234,7 @@ } else { /* entry is a symbol-list */ while (consp(entry)) { /* first string and printname of the symbol are equal ? */ - if ((invert ? string_gleich_inverted : string_eq) + if ((invert ? string_eq_inverted : string_eq) (string,Symbol_name(Car(entry)))) goto found; entry = Cdr(entry); @@ -492,7 +492,7 @@ var object list = ThePackage(pack)->pack_shadowing_symbols; /* traverse shadowing-list: */ while (consp(list)) { - if ((invert ? string_gleich_inverted : string_eq) + if ((invert ? string_eq_inverted : string_eq) (string,Symbol_name(Car(list)))) goto found; list = Cdr(list); @@ -538,7 +538,7 @@ var object list = *listptr; /* list = *listptr traverses the shadowing-list */ while (consp(list)) { - if ((invert ? string_gleich_inverted : string_eq) + if ((invert ? string_eq_inverted : string_eq) (string,Symbol_name(Car(list)))) goto found; listptr = &Cdr(list); list = *listptr; Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5798 retrieving revision 1.5799 diff -u -d -r1.5798 -r1.5799 --- ChangeLog 29 Nov 2007 17:32:33 -0000 1.5798 +++ ChangeLog 30 Nov 2007 15:14:35 -0000 1.5799 @@ -1,7 +1,15 @@ +2007-11-29 Reini Urban <ru...@x-...> + + <06_gleich2> + * charstrg.d, lispbibl.d, package.d (string_gleich_inverted): + rename to string_eq_inverted + * lisparit.d, lispbibl.d, predtype.d (number_gleich): + rename to number_equal + 2007-11-29 Sam Steingold <sd...@gn...> * modules/clx/new-clx/clx.f, modules/clx/new-clx/clx.lisp: - rename DISPLAY-NOOP to the standatd NO-OPERATION + rename DISPLAY-NOOP to the standard NO-OPERATION 2007-11-28 Reini Urban <ru...@x-...> Index: lispbibl.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/lispbibl.d,v retrieving revision 1.737 retrieving revision 1.738 diff -u -d -r1.737 -r1.738 --- lispbibl.d 29 Nov 2007 17:12:33 -0000 1.737 +++ lispbibl.d 30 Nov 2007 15:14:35 -0000 1.738 @@ -13766,11 +13766,11 @@ /* is used by PACKAGE */ /* UP: compares two strings for equality modulo case-invert - string_gleich_inverted(string1,string2) + string_eq_inverted(string1,string2) > string1: string > string2: simple-string < result: /=0, if equal modulo case-invert */ -extern bool string_gleich_inverted (object string1, object string2); +extern bool string_eq_inverted (object string1, object string2); /* is used by PACKAGE */ /* UP: converts a string to opposite case @@ -16537,10 +16537,10 @@ # is used by IO # UP: decides whether two numbers are equal -# number_gleich(x,y) +# number_equal(x,y) # > x,y: two numbers # < result: true, if (= x y) holds -extern bool number_gleich (object x, object y); +extern bool number_equal (object x, object y); # is used by PREDTYPE # UP: Converts an object into a float of a given type Index: charstrg.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/charstrg.d,v retrieving revision 1.128 retrieving revision 1.129 diff -u -d -r1.128 -r1.129 --- charstrg.d 29 Nov 2007 17:12:32 -0000 1.128 +++ charstrg.d 30 Nov 2007 15:14:35 -0000 1.129 @@ -2073,11 +2073,11 @@ } /* UP: compares two strings for equality modulo case-invert - string_gleich_inverted(string1,string2) + string_eq_inverted(string1,string2) > string1: string > string2: simple-string < result: /=0, if equal modulo case-invert */ -global bool string_gleich_inverted (object string1, object string2) { +global bool string_eq_inverted (object string1, object string2) { var uintL len1; var uintL offset1; string1 = unpack_string_ro(string1,&len1,&offset1); Index: predtype.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/predtype.d,v retrieving revision 1.137 retrieving revision 1.138 diff -u -d -r1.137 -r1.138 --- predtype.d 27 Nov 2007 17:56:31 -0000 1.137 +++ predtype.d 30 Nov 2007 15:14:34 -0000 1.138 @@ -972,7 +972,7 @@ } else if (numberp(obj1)) { if (!numberp(obj2)) return false; /* compare numbers via = */ - return number_gleich(obj1,obj2); + return number_equal(obj1,obj2); } else { #ifdef TYPECODES switch (typecode(obj1)) ------------------------------ Message: 2 Date: Fri, 30 Nov 2007 17:52:20 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/modules/clx/new-clx clx.f,2.101,2.102 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/modules/clx/new-clx In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv2826/modules/clx/new-clx Modified Files: clx.f Log Message: Chapter 13 Resources; link to http://groups.google.com/group/comp.windows.x/browse_thread/thread/564dc7a3ad8ea211 Index: clx.f =================================================================== RCS file: /cvsroot/clisp/clisp/modules/clx/new-clx/clx.f,v retrieving revision 2.101 retrieving revision 2.102 diff -u -d -r2.101 -r2.102 --- clx.f 29 Nov 2007 17:32:34 -0000 2.101 +++ clx.f 30 Nov 2007 17:52:18 -0000 2.102 @@ -6624,7 +6624,7 @@ /* Resources are done in Lisp (code from MIT-CLX). This is not an ideal solution because it reduces interoperability with other X applications, but the Xlib Xresource.h is a mess: - -- no facilities to remove a resource + -- no facilities to remove a resource (http://groups.google.com/group/comp.windows.x/browse_thread/thread/564dc7a3ad8ea211) -- memory allocation complications (who allocates and releases strings?) */ ##if 0 /* helpers */ ------------------------------ ------------------------------------------------------------------------- SF.Net email is sponsored by: The Future of Linux Business White Paper from Novell. From the desktop to the data center, Linux is going mainstream. Let it simplify your IT future. http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4 ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 19, Issue 47 ***************************************** |