Menu
▾
▴
clisp-cvs Digest, Vol 20, Issue 11
|
From: <cli...@li...> - 2007-12-05 16:06: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 weak.d, 1.6, 1.7 unixaux.d, 1.56, 1.57 time.d, 1.57, 1.58 stream.d, 1.593, 1.594 spvw_memfile.d, 1.115, 1.116 spvw_allocate.d, 1.26, 1.27 sfloat.d, 1.15, 1.16 sequence.d, 1.107, 1.108 record.d, 1.118, 1.119 realrand.d, 1.8, 1.9 rational.d, 1.9, 1.10 pathname.d, 1.404, 1.405 package.d, 1.109, 1.110 list.d, 1.77, 1.78 io.d, 1.316, 1.317 intsqrt.d, 1.21, 1.22 intread.d, 1.11, 1.12 intprint.d, 1.6, 1.7 intgcd.d, 1.17, 1.18 intdiv.d, 1.20, 1.21 int2adic.d, 1.9, 1.10 ffloat.d, 1.17, 1.18 eval.d, 1.225, 1.226 encoding.d, 1.144, 1.145 charstrg.d, 1.135, 1.136 arisparc64.d, 1.5, 1.6 arisparc.d, 1.7, 1.8 arilev0.d, 1.21, 1.22 ChangeLog, 1.5826, 1.5827 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Wed, 05 Dec 2007 16:06:35 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src weak.d, 1.6, 1.7 unixaux.d, 1.56, 1.57 time.d, 1.57, 1.58 stream.d, 1.593, 1.594 spvw_memfile.d, 1.115, 1.116 spvw_allocate.d, 1.26, 1.27 sfloat.d, 1.15, 1.16 sequence.d, 1.107, 1.108 record.d, 1.118, 1.119 realrand.d, 1.8, 1.9 rational.d, 1.9, 1.10 pathname.d, 1.404, 1.405 package.d, 1.109, 1.110 list.d, 1.77, 1.78 io.d, 1.316, 1.317 intsqrt.d, 1.21, 1.22 intread.d, 1.11, 1.12 intprint.d, 1.6, 1.7 intgcd.d, 1.17, 1.18 intdiv.d, 1.20, 1.21 int2adic.d, 1.9, 1.10 ffloat.d, 1.17, 1.18 eval.d, 1.225, 1.226 encoding.d, 1.144, 1.145 charstrg.d, 1.135, 1.136 arisparc64.d, 1.5, 1.6 arisparc.d, 1.7, 1.8 arilev0.d, 1.21, 1.22 ChangeLog, 1.5826, 1.5827 To: cli...@li... Message-ID: <E1I...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv27139/src Modified Files: weak.d unixaux.d time.d stream.d spvw_memfile.d spvw_allocate.d sfloat.d sequence.d record.d realrand.d rational.d pathname.d package.d list.d io.d intsqrt.d intread.d intprint.d intgcd.d intdiv.d int2adic.d ffloat.d eval.d encoding.d charstrg.d arisparc64.d arisparc.d arilev0.d ChangeLog Log Message: rurban: <31_ergebnis> (ergebnis -> result) Index: spvw_memfile.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw_memfile.d,v retrieving revision 1.115 retrieving revision 1.116 diff -u -d -r1.115 -r1.116 --- spvw_memfile.d 5 Dec 2007 15:28:45 -0000 1.115 +++ spvw_memfile.d 5 Dec 2007 16:06:30 -0000 1.116 @@ -215,15 +215,15 @@ #define WRITE(buf,len) \ do { \ begin_system_call(); \ - { var ssize_t ergebnis = full_write(handle,(void*)buf,len); \ - if (ergebnis != (ssize_t)(len)) { \ + { var ssize_t result = full_write(handle,(void*)buf,len); \ + if (result != (ssize_t)(len)) { \ end_system_call(); \ builtin_stream_close(&STACK_0,0); \ - if (ergebnis<0) /* error occurred? */ \ + if (result<0) /* error occurred? */ \ { OS_file_error(TheStream(STACK_0)->strm_file_truename); } \ /* FILE-ERROR slot PATHNAME */ \ pushSTACK(TheStream(STACK_0)->strm_file_truename); \ - error(file_error,GETTEXT("disk full")); \ + error(file_error,GETTEXT("disk full")); \ } \ } \ end_system_call(); \ @@ -492,10 +492,10 @@ #if defined(HAVE_MMAP) /* else, page_alignment is = 1, anyway */ { /* put alignment into practice: */ begin_system_call(); - var off_t ergebnis = lseek(handle,0,SEEK_CUR); /* fetch file-position */ + var off_t result = lseek(handle,0,SEEK_CUR); /* fetch file-position */ end_system_call(); - if (ergebnis<0) { builtin_stream_close(&STACK_0,0); OS_file_error(TheStream(STACK_0)->strm_file_truename); } /* error? */ - WRITE_page_alignment(ergebnis); + if (result<0) { builtin_stream_close(&STACK_0,0); OS_file_error(TheStream(STACK_0)->strm_file_truename); } /* error? */ + WRITE_page_alignment(result); } #endif #endif @@ -961,10 +961,10 @@ #define READ(buf,len) \ do { \ begin_system_call(); \ - { var ssize_t ergebnis = full_read(handle,(void*)buf,len); \ + { var ssize_t result = full_read(handle,(void*)buf,len); \ end_system_call(); \ - if (ergebnis<0) ABORT_SYS; \ - if (ergebnis != (ssize_t)(len)) ABORT_INI; \ + if (result<0) ABORT_SYS; \ + if (result != (ssize_t)(len)) ABORT_INI; \ inc_file_offset(len); \ } \ } while(0) Index: weak.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/weak.d,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- weak.d 26 Nov 2007 16:42:17 -0000 1.6 +++ weak.d 5 Dec 2007 16:06:30 -0000 1.7 @@ -861,7 +861,7 @@ # > *(stackptr+1): die Testfunktion # > *(stackptr+3): das zu vergleichende Item # > x: Argument -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up_test (const gcv_object_t* stackptr, object x) { # nach CLTL S. 247 ein (funcall testfun item x) ausführen: @@ -888,7 +888,7 @@ # > *(stackptr+0): die Testfunktion # > *(stackptr+3): das zu vergleichende Item # > x: Argument -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up_test_not (const gcv_object_t* stackptr, object x) { # nach CLTL S. 247 ein (not (funcall testfun item x)) ausführen: Index: time.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/time.d,v retrieving revision 1.57 retrieving revision 1.58 diff -u -d -r1.57 -r1.58 --- time.d 1 Dec 2007 23:26:40 -0000 1.57 +++ time.d 5 Dec 2007 16:06:30 -0000 1.58 @@ -204,7 +204,7 @@ /* Returns the real time counter. get_real_time() - < internal_time_t* ergebnis: absolute time */ + < internal_time_t* result: absolute time */ global void get_real_time (internal_time_t* it) { GetSystemTimeAsFileTime(it); } @@ -708,9 +708,9 @@ { /* select erlaubt eine wunderschöne Implementation von usleep(): */ var struct timeval timeout; /* Zeitintervall */ timeout.tv_sec = seconds; timeout.tv_usec = useconds; - var int ergebnis; - ergebnis = select(FD_SETSIZE,NULL,NULL,NULL,&timeout); - if ((ergebnis<0) && !(errno==EINTR)) { OS_error(); } + var int result; + result = select(FD_SETSIZE,NULL,NULL,NULL,&timeout); + if ((result<0) && !(errno==EINTR)) { OS_error(); } } #else if (seconds>0) { sleep(seconds); } Index: intdiv.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/intdiv.d,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- intdiv.d 28 Nov 2007 16:25:31 -0000 1.20 +++ intdiv.d 5 Dec 2007 16:06:32 -0000 1.21 @@ -389,7 +389,7 @@ # Bei y=0 Error. Die Division muss aufgehen, sonst Error. # I_I_exquopos_I(x,y) # > x,y: Integers >=0 -# < ergebnis: Quotient x/y, ein Integer >=0 +# < result: Quotient x/y, ein Integer >=0 # can trigger GC local object I_I_exquopos_I (object x, object y); # Methode: @@ -415,7 +415,7 @@ # Bei y=0 Error. Die Division muss aufgehen, sonst Error. # I_I_exquo_I(x,y) # > x,y: Integers -# < ergebnis: Quotient x/y, ein Integer +# < result: Quotient x/y, ein Integer # can trigger GC local object I_I_exquo_I (object x, object y); # Methode: Index: intgcd.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/intgcd.d,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- intgcd.d 28 Nov 2007 16:25:31 -0000 1.17 +++ intgcd.d 5 Dec 2007 16:06:32 -0000 1.18 @@ -3,7 +3,7 @@ # Liefert den ggT zweier Integers. # I_I_gcd_I(a,b) # > a,b: zwei Integers -# < ergebnis: (gcd a b), ein Integer >=0 +# < result: (gcd a b), ein Integer >=0 # can trigger GC local maygc object I_I_gcd_I (object a, object b); #define GCD_ALGO 3 # 1: binär, 2: Schulmethode, 3: Lehmer @@ -48,7 +48,7 @@ # Liefert den ggT zweier Langworte. # UV_UV_gcd_UV(a,b) # > uintV a,b: zwei Langworte >0 -# < ergebnis: (gcd a b), ein Langwort >0 +# < result: (gcd a b), ein Langwort >0 #if GCD_ALGO==2 # nur dann brauchen wir's local uintV UV_UV_gcd_UV (uintV a, uintV b); # binäre Methode: @@ -1275,7 +1275,7 @@ # Liefert das kgV zweier Integers. # I_I_lcm_I(a,b) # > a,b: zwei Integers -# < ergebnis: (lcm a b), ein Integer >=0 +# < result: (lcm a b), ein Integer >=0 # can trigger GC local maygc object I_I_lcm_I (object a, object b) { Index: sequence.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/sequence.d,v retrieving revision 1.107 retrieving revision 1.108 diff -u -d -r1.107 -r1.108 --- sequence.d 3 Dec 2007 16:09:09 -0000 1.107 +++ sequence.d 5 Dec 2007 16:06:31 -0000 1.108 @@ -274,7 +274,7 @@ # UP: liefert den Typdescriptor einer Sequence # get_seq_type(seq) # > seq: eine Sequence -# < ergebnis: Typdescriptor oder NIL +# < result: Typdescriptor oder NIL local object get_seq_type (object seq) { var object name; if (listp(seq)) name = S(list); # Typ LIST @@ -332,7 +332,7 @@ /* UP: return the type descriptor for the sequence, or report an error get_valid_seq_type(seq) > seq: a Sequence - < ergebnis: Typdescriptor */ + < result: Typdescriptor */ local object get_valid_seq_type (object seq) { var object typdescr = get_seq_type(seq); /* find type descriptor */ @@ -448,7 +448,7 @@ # increment(var) # > var: alter Wert # < var: neuer Wert -# < ergebnis: neuer Wert +# < result: neuer Wert # can trigger GC #define increment(var) (var = I_1_plus_I(var)) # var := (1+ var) @@ -456,7 +456,7 @@ # decrement(var) # > var: alter Wert # < var: neuer Wert -# < ergebnis: neuer Wert +# < result: neuer Wert # can trigger GC #define decrement(var) (var = I_minus1_plus_I(var)) # var := (1- var) @@ -1352,7 +1352,7 @@ # < 1 Wert: wie von fun beim Hinausspringen vorgegeben, oder default. # < STACK: aufgeräumt (= args_pointer beim Einsprung) # can trigger GC - typedef bool seq_boolop_fun (object pred_ergebnis); + typedef bool seq_boolop_fun (object pred_result); local maygc Values seq_boolop (seq_boolop_fun* boolop_fun, gcv_object_t* args_pointer, gcv_object_t* rest_args_pointer, @@ -1434,7 +1434,7 @@ } # Hilfsfunktion für MAP: - local bool boolop_nothing (object pred_ergebnis) + local bool boolop_nothing (object pred_result) { return false; # nie vorzeitig zurückkehren } @@ -1692,12 +1692,12 @@ } # Hilfsfunktion für SOME: - local bool boolop_some (object pred_ergebnis) + local bool boolop_some (object pred_result) { - if (nullp(pred_ergebnis)) # Funktionsergebnis abtesten + if (nullp(pred_result)) # Funktionsergebnis abtesten return false; # =NIL -> weitersuchen else { - value1 = pred_ergebnis; # /=NIL -> dies als Wert + value1 = pred_result; # /=NIL -> dies als Wert return true; } } @@ -1709,11 +1709,11 @@ } # Hilfsfunktion für EVERY: -local bool boolop_every (object pred_ergebnis) { - if (!(nullp(pred_ergebnis))) { /* chech function return value */ +local bool boolop_every (object pred_result) { + if (!(nullp(pred_result))) { /* chech function return value */ return false; /* /=NIL -> proceed with search */ } else { - value1 = pred_ergebnis; /* =NIL -> return this (= NIL) */ + value1 = pred_result; /* =NIL -> return this (= NIL) */ return true; } } @@ -1725,8 +1725,8 @@ } # Hilfsfunktion für NOTANY: -local bool boolop_notany (object pred_ergebnis) { - if (nullp(pred_ergebnis)) { /* chech function return value */ +local bool boolop_notany (object pred_result) { + if (nullp(pred_result)) { /* chech function return value */ return false; /* =NIL -> proceed with search */ } else { value1 = NIL; /* /=NIL -> return NIL */ @@ -1741,8 +1741,8 @@ } # Hilfsfunktion für NOTEVERY: -local bool boolop_notevery (object pred_ergebnis) { - if (!(nullp(pred_ergebnis))) { /* chech function return value */ +local bool boolop_notevery (object pred_result) { + if (!(nullp(pred_result))) { /* chech function return value */ return false; /* /=NIL -> proceed with search */ } else { value1 = T; /* =NIL -> return T */ @@ -2046,7 +2046,7 @@ # > *(stackptr-5): die Testfunktion # > *(stackptr+1): das zu vergleichende Item # > x: Argument -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up_test (const gcv_object_t* stackptr, object x) { @@ -2062,7 +2062,7 @@ # > *(stackptr-6): die Testfunktion # > *(stackptr+1): das zu vergleichende Item # > x: Argument -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up_test_not (const gcv_object_t* stackptr, object x) { @@ -2077,7 +2077,7 @@ # up_if(stackptr,x) # > *(stackptr+1): das Testprädikat # > x: Argument -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up_if (const gcv_object_t* stackptr, object x) { @@ -2090,7 +2090,7 @@ # up_if_not(stackptr,x) # > *(stackptr+1): das Testprädikat # > x: Argument -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up_if_not (const gcv_object_t* stackptr, object x) { @@ -2353,7 +2353,7 @@ # > STACK_0: Bit-Vektor bv, # > bvl: Länge des Bit-Vektors (= end - start), # > dl: Anzahl der im Bit-Vektor gesetzten Bits, -# < ergebnis: Ergebnis +# < result: Ergebnis # can trigger GC local maygc object remove_help (gcv_object_t* stackptr, uintV bvl, uintV dl) { @@ -2469,7 +2469,7 @@ # > STACK_0: Bit-Vektor bv, # > bvl: Länge des Bit-Vektors (= end - start), # > dl: Anzahl der im Bit-Vektor gesetzten Bits, -# < ergebnis: Ergebnis +# < result: Ergebnis # can trigger GC local maygc object delete_help (gcv_object_t* stackptr, uintV bvl, uintV dl) { @@ -2785,7 +2785,7 @@ # up2_test(stackptr,x,y) # > *(stackptr-5): die Testfunktion # > x,y: Argumente -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up2_test (const gcv_object_t* stackptr, object x, object y) { @@ -2800,7 +2800,7 @@ # up2_test_not(stackptr,x,y) # > *(stackptr-6): die Testfunktion # > x,y: Argumente -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up2_test_not (const gcv_object_t* stackptr, object x, object y) { @@ -3463,7 +3463,7 @@ # > STACK_0: Bit-Vektor bv, # > bvl: Länge des Bit-Vektors (= end - start), # > dl: Anzahl der im Bit-Vektor gesetzten Bits, -# < ergebnis: Ergebnis +# < result: Ergebnis # can trigger GC local maygc object substitute_help (gcv_object_t* stackptr, uintV bvl, uintV dl) { @@ -3702,7 +3702,7 @@ # > STACK_0: Bit-Vektor bv, # > bvl: Länge des Bit-Vektors (= end - start), # > dl: Anzahl der im Bit-Vektor gesetzten Bits, -# < ergebnis: Ergebnis +# < result: Ergebnis # can trigger GC local maygc object nsubstitute_fe_help (gcv_object_t* stackptr, uintV bvl, uintV dl) { @@ -4772,7 +4772,7 @@ # > k # > stackptr: Pointer in den Stack: # sequence, predicate [stackptr], key, start, end, typdescr, seq2 -# < ergebnis: Pointer nach den k Elementen +# < result: Pointer nach den k Elementen # can trigger GC local maygc object sort_part (object pointer_left, object k, gcv_object_t* stackptr) { Index: arisparc.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/arisparc.d,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- arisparc.d 10 Mar 2004 21:29:09 -0000 1.7 +++ arisparc.d 5 Dec 2007 16:06:32 -0000 1.8 @@ -63,7 +63,7 @@ #define MULU32_INLINE 1 # 1: mulu32-Aufrufe inline in die Schleifen # extern uint32 mulu16_ (uint16 arg1, uint16 arg2); -# ergebnis := arg1*arg2. +# result := arg1*arg2. C(mulu16_:) # Input in %o0,%o1, Output in %o0 #ifdef sparcv8 umul %o0,%o1,%o0 @@ -149,7 +149,7 @@ #endif # extern uint32 mulu32_unchecked (uint32 x, uint32 y); -# ergebnis := arg1*arg2 < 2^32. +# result := arg1*arg2 < 2^32. C(mulu32_unchecked:) # Input in %o0,%o1, Output in %o0 #ifdef sparcv8 umul %o0,%o1,%o0 Index: list.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/list.d,v retrieving revision 1.77 retrieving revision 1.78 diff -u -d -r1.77 -r1.78 --- list.d 4 Dec 2007 15:47:03 -0000 1.77 +++ list.d 5 Dec 2007 16:06:32 -0000 1.78 @@ -20,7 +20,7 @@ # UP: Kopiert eine Liste # copy_list(list) # > list: Liste -# < ergebnis: Kopie der Liste +# < result: Kopie der Liste # can trigger GC global maygc object copy_list (object old_list) { # Methode: (copy-list l) = (mapcar #'identity l), mapcar vorwärts @@ -55,7 +55,7 @@ # UP: Dreht eine Liste konstruktiv um. # reverse(list) # > list: Liste (x1 ... xm) -# < ergebnis: umgedrehte Liste (xm ... x1) +# < result: umgedrehte Liste (xm ... x1) # can trigger GC global maygc object reverse (object list) { pushSTACK(list); pushSTACK(NIL); @@ -109,7 +109,7 @@ # make_list(len) # > STACK_0: Initialisierungswert für die Elemente # > uintL len: gewünschte Listenlänge -# < ergebnis: Liste mit len Elementen +# < result: Liste mit len Elementen # can trigger GC global maygc object make_list (uintL len) { pushSTACK(NIL); @@ -125,7 +125,7 @@ # UP: Dreht eine Liste destruktiv um. # nreverse(list) # > list: Liste (x1 ... xm) -# < ergebnis: Liste (xm ... x1), EQ zur alten +# < result: Liste (xm ... x1), EQ zur alten global object nreverse (object list) { # Algorithm: # (lambda (L) @@ -171,7 +171,7 @@ # nreconc(list,obj) # > list: Liste # > obj: Objekt -# < ergebnis: (nreconc A0 A1) +# < result: (nreconc A0 A1) global object nreconc (object list, object obj) { if (!endp(list)) { # (atom L) -> L var object list3 = Cdr(list); # L3 := (cdr L) @@ -209,7 +209,7 @@ # Entferne aus der Liste list alle Elemente, die EQ zu obj sind. # > obj: zu streichendes Element # > list: Liste -# < ergebnis: modifizierte Liste +# < result: modifizierte Liste global object deleteq (object list, object obj) { var object list1 = list; var object list2 = list; @@ -412,7 +412,7 @@ # up2_test(stackptr,arg1,arg2) # > *(stackptr+1): die Testfunktion # > arg1,arg2: Argumente -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up2_test (const gcv_object_t* stackptr, object arg1, object arg2) { var object fun = *(stackptr STACKop 1); @@ -431,7 +431,7 @@ # up2_test_not(stackptr,arg1,arg2) # > *(stackptr+0): die Testfunktion # > arg1,arg2: Argumente -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up2_test_not (const gcv_object_t* stackptr, object arg1, object arg2) { pushSTACK(arg1); pushSTACK(arg2); funcall(*(stackptr STACKop 0),2); @@ -481,7 +481,7 @@ # > A5: Adresse einer Testfunktion, die arg1 und arg2 vergleicht und dabei auf # die :TEST/:TEST-NOT-Argumente in *(stackptr+1).L bzw. # *(stackprt+0).L zugreifen kann. -# < ergebnis: true, falls gleich, false sonst +# < result: true, falls gleich, false sonst # can trigger GC local maygc bool tree_equal (const gcv_object_t* stackptr, up2_function_t up2_fun, object arg1, object arg2) { @@ -896,7 +896,7 @@ # listof(len) # > uintC len: gewünschte Listenlänge # > auf STACK: len Objekte, erstes zuoberst -# < ergebnis: Liste dieser Objekte +# < result: Liste dieser Objekte # Erhöht STACK # changes STACK, can trigger GC global maygc object listof (uintC len) { @@ -1003,7 +1003,7 @@ # UP: Kopiert eine Aliste # copy_alist(alist) # > alist: Aliste -# < ergebnis: Kopie der Aliste +# < result: Kopie der Aliste # can trigger GC local maygc object copy_alist (object alist) { # Algorithm: @@ -1268,7 +1268,7 @@ # > *(stackptr+1): die Testfunktion # > *(stackptr+3): das zu vergleichende Item # > x: Argument -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up_test (const gcv_object_t* stackptr, object x) { # nach CLTL S. 247 ein (funcall testfun item x) ausführen: @@ -1292,7 +1292,7 @@ # > *(stackptr+0): die Testfunktion # > *(stackptr+3): das zu vergleichende Item # > x: Argument -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up_test_not (const gcv_object_t* stackptr, object x) { # nach CLTL S. 247 ein (not (funcall testfun item x)) ausführen: @@ -1306,7 +1306,7 @@ # up_if(stackptr,x) # > *(stackptr+1): das Testprädikat # > x: Argument -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up_if (const gcv_object_t* stackptr, object x) { # nach CLTL S. 247 ein (funcall predicate x) ausführen: @@ -1318,7 +1318,7 @@ # up_if_not(stackptr,x) # > *(stackptr+1): das Testprädikat # > x: Argument -# < ergebnis: true falls der Test erfüllt ist, false sonst +# < result: true falls der Test erfüllt ist, false sonst # can trigger GC local maygc bool up_if_not (const gcv_object_t* stackptr, object x) { # nach CLTL S. 247 ein (not (funcall predicate x)) ausführen: @@ -1398,7 +1398,7 @@ # > up_fun: TESTFUN = Adresse der Testfunktion, # wird selbem stackptr und mit (KEY x) als Argument angesprungen. # Sie liefert true, falls der Test erfüllt ist, false sonst. -# < ergebnis: (evtl. neuer) Baum +# < result: (evtl. neuer) Baum # can trigger GC local maygc object subst (object tree, gcv_object_t* stackptr, up_function_t up_fun) { # erst (KEY tree) berechnen und TESTFUN aufrufen: @@ -1468,7 +1468,7 @@ # > up_fun: TESTFUN = Adresse der Testfunktion, # wird selbem stackptr und mit (KEY x) als Argument angesprungen. # Sie liefert true, falls der Test erfüllt ist, false sonst. -# < ergebnis: Baum +# < result: Baum # can trigger GC local maygc object nsubst (object tree, gcv_object_t* stackptr, up_function_t up_fun) { # erst (KEY tree) berechnen und TESTFUN aufrufen: @@ -1583,7 +1583,7 @@ # > tree: Baum # > stackptr: *(stackptr-1) = KEY, *(stackptr+3) = ALIST, # *(stackptr-2) ist frei für (KEY x) -# < ergebnis: (evtl. neuer) Baum +# < result: (evtl. neuer) Baum # can trigger GC local maygc object sublis (object tree, gcv_object_t* stackptr) { # erst (KEY tree) berechnen und ASSOC aufrufen: @@ -1646,7 +1646,7 @@ # > tree: Baum # > stackptr: *(stackptr-1) = KEY, *(stackptr+3) = ALIST, # *(stackptr-2) ist frei für (KEY x) -# < ergebnis: Baum +# < result: Baum # can trigger GC local maygc object nsublis (object tree, gcv_object_t* stackptr) { # erst (KEY tree) berechnen und ASSOC aufrufen: @@ -1725,7 +1725,7 @@ # > up_fun: TESTFUN = Adresse der Testfunktion, # wird selbem stackptr und mit (KEY x) als Argument angesprungen. # Sie liefert true, falls der Test erfüllt ist, false sonst. -# < ergebnis: Listenrest +# < result: Listenrest # can trigger GC local maygc object member (object list, gcv_object_t* stackptr, up_function_t up_fun) { while (!endp(list)) { @@ -1894,7 +1894,7 @@ # > up_fun: TESTFUN = Adresse der Testfunktion, wird für alle Listenelemente # (u . v) mit selbem stackptr und mit (KEY u) als Argument angesprungen. # Sie liefert true, falls der Test erfüllt ist, false sonst. -# < ergebnis: Listenelement (ein Cons) oder NIL +# < result: Listenelement (ein Cons) oder NIL # can trigger GC local maygc object assoc (object alist, gcv_object_t* stackptr, up_function_t up_fun) { @@ -1952,7 +1952,7 @@ # > up_fun: TESTFUN = Adresse der Testfunktion, wird für alle Listenelemente # (u . v) mit selbem stackptr und mit (KEY v) als Argument angesprungen. # Sie liefert true, falls der Test erfüllt ist, false sonst. -# < ergebnis: Listenelement (ein Cons) oder NIL +# < result: Listenelement (ein Cons) oder NIL # can trigger GC local maygc object rassoc (object alist, gcv_object_t* stackptr, up_function_t up_fun) @@ -2038,7 +2038,7 @@ elt_up(seq,index) > seq > index - < ergebnis: list element at this index */ + < result: list element at this index */ local object elt_up (object seq, object index) { var object l = seq; var object n = Fixnum_0; Index: sfloat.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/sfloat.d,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- sfloat.d 5 Dec 2007 15:40:31 -0000 1.15 +++ sfloat.d 5 Dec 2007 16:06:31 -0000 1.16 @@ -34,12 +34,12 @@ } # Einpacken eines Short-Float: -# encode_SF(sign,exp,mant, ergebnis=); +# encode_SF(sign,exp,mant, result=); # liefert ein Short-Float. # > signean sign: Vorzeichen, 0 für +, -1 für negativ. # > sintWL exp: Exponent # > uintL mant: Mantisse, sollte >= 2^SF_mant_len und < 2^(SF_mant_len+1) sein. -# < object ergebnis: ein Short-Float +# < object result: ein Short-Float # Der Exponent wird auf Ãberlauf/Unterlauf getestet. #define encode_SF(sign,exp,mant, res_assignment) \ { \ Index: ffloat.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/ffloat.d,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- ffloat.d 5 Dec 2007 15:40:31 -0000 1.17 +++ ffloat.d 5 Dec 2007 16:06:32 -0000 1.18 @@ -22,12 +22,12 @@ } # Einpacken eines Single-Float: -# encode_FF(sign,exp,mant, ergebnis=); +# encode_FF(sign,exp,mant, result=); # liefert ein Single-Float. # > signean sign: Vorzeichen, 0 für +, -1 für negativ. # > sintWL exp: Exponent # > uintL mant: Mantisse, sollte >= 2^FF_mant_len und < 2^(FF_mant_len+1) sein. -# < object ergebnis: ein Single-Float +# < object result: ein Single-Float # Der Exponent wird auf Ãberlauf/Unterlauf getestet. # can trigger GC #define encode_FF(sign,exp,mant, res_assignment) \ @@ -74,7 +74,7 @@ # maybe_underflow: Ergebnis sehr klein und /=0, liefert IEEE-Null # maybe_divide_0: Ergebnis unbestimmt, liefert IEEE-Infinity # maybe_nan: Ergebnis unbestimmt, liefert IEEE-NaN - #define float_to_FF(expr,ergebnis_assignment,maybe_overflow,maybe_subnormal,maybe_underflow,maybe_divide_0,maybe_nan) \ + #define float_to_FF(expr,result_assignment,maybe_overflow,maybe_subnormal,maybe_underflow,maybe_divide_0,maybe_nan) \ { \ var ffloatjanus _erg; _erg.machine_float = (expr); \ if ((_erg.eksplicit & ((uint32)bit(FF_exp_len+FF_mant_len)-bit(FF_mant_len))) == 0) { # e=0 ? \ @@ -85,7 +85,7 @@ ) { \ error_underflow(); # subnormal oder noch kleiner-> Underflow \ } else { \ - ergebnis_assignment FF_0; # +/- 0.0 -> 0.0 \ + result_assignment FF_0; # +/- 0.0 -> 0.0 \ } \ } elif ((maybe_overflow || maybe_divide_0) \ && (((~_erg.eksplicit) & ((uint32)bit(FF_exp_len+FF_mant_len)-bit(FF_mant_len))) == 0) # e=255 ? \ @@ -101,7 +101,7 @@ error_overflow(); # Infinity, Overflow \ } \ } else { \ - ergebnis_assignment allocate_ffloat(_erg.eksplicit); \ + result_assignment allocate_ffloat(_erg.eksplicit); \ } \ } #endif Index: spvw_allocate.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/spvw_allocate.d,v retrieving revision 1.26 retrieving revision 1.27 diff -u -d -r1.26 -r1.27 --- spvw_allocate.d 26 Nov 2007 16:42:16 -0000 1.26 +++ spvw_allocate.d 5 Dec 2007 16:06:30 -0000 1.27 @@ -244,9 +244,9 @@ mapstart &= -map_pagesize; #endif begin_system_call(); - var int ergebnis = zeromap((void*)mapstart,needed_limit - mapstart); + var int result = zeromap((void*)mapstart,needed_limit - mapstart); end_system_call(); - if (ergebnis >= 0) + if (result >= 0) goto sufficient; fprintf(stderr,GETTEXTL("Trying to make room through a GC...")); fputs("\n",stderr); @@ -304,9 +304,9 @@ # allocate new memory: if (needed_limit >= mem.varobjects.heap_limit) { # avoid crossover begin_system_call(); - var int ergebnis = zeromap((void*)needed_limit,heapptr->heap_limit - needed_limit); + var int result = zeromap((void*)needed_limit,heapptr->heap_limit - needed_limit); end_system_call(); - if (ergebnis >= 0) + if (result >= 0) goto sufficient; fprintf(stderr,GETTEXTL("Trying to make room through a GC...")); fputs("\n",stderr); @@ -389,9 +389,9 @@ mapstart &= -map_pagesize; #endif begin_system_call(); - var int ergebnis = zeromap((void*)mapstart,needed_limit - mapstart); + var int result = zeromap((void*)mapstart,needed_limit - mapstart); end_system_call(); - if (ergebnis >= 0) + if (result >= 0) goto sufficient; fprintf(stderr,GETTEXTL("Trying to make room through a GC...")); fputs("\n",stderr); Index: int2adic.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/int2adic.d,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- int2adic.d 1 Dec 2007 23:26:41 -0000 1.9 +++ int2adic.d 5 Dec 2007 16:06:32 -0000 1.10 @@ -3,7 +3,7 @@ # Multipliziert zwei Zahlen mod 2^intDsize. # D_D_mult2adic_D(a,b) # > uintD a,b: Zahlen mod 2^intDsize -# < ergebnis: Zahl c mod 2^intDsize mit c == a*b mod 2^intDsize +# < result: Zahl c mod 2^intDsize mit c == a*b mod 2^intDsize local uintD D_D_mult2adic_D (uintD a, uintD b); #if HAVE_DD #define D_D_mult2adic_D(a,b) lowD(muluD((uintD)(a),(uintD)(b))) @@ -30,7 +30,7 @@ # D_UL_expt_D(x,y) # > uintD x: Zahl mod 2^intDsize # > uintL y: Exponent >0 -# < uintD ergebnis: x^y mod 2^intDsize +# < uintD result: x^y mod 2^intDsize local uintD D_UL_expt_D (uintD x, uintL y); # Methode: # a:=x, b:=y, c:=1. [a^b*c bleibt invariant, = x^y.] @@ -65,7 +65,7 @@ # D_D_div2adic_D(a,b) # > uintD a: Zahl mod 2^intDsize # > uintD b: ungerade Zahl mod 2^intDsize -# < ergebnis: Zahl c mod 2^intDsize mit b*c == a mod 2^intDsize +# < result: Zahl c mod 2^intDsize mit b*c == a mod 2^intDsize local uintD D_D_div2adic_D (uintD a, uintD b); # Methode: # Konstruiere c Bit für Bit. Index: intread.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/intread.d,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- intread.d 11 Dec 2004 14:16:18 -0000 1.11 +++ intread.d 5 Dec 2007 16:06:32 -0000 1.12 @@ -5,7 +5,7 @@ # > base: Stellenwertsystem-Basis, >=2, <=36 # > MSBptr/len/..: Ziffernfolge, bestehend aus Punkten (werden überlesen) # und Ziffern/Buchstaben mit Wert < base. -# < ergebnis: der dargestellte Integer >=0 +# < result: der dargestellte Integer >=0 # can trigger GC local maygc object DIGITS_to_I (const chart* MSBptr, uintL len, uintD base) { Index: arilev0.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/arilev0.d,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- arilev0.d 5 Dec 2007 15:59:08 -0000 1.21 +++ arilev0.d 5 Dec 2007 16:06:32 -0000 1.22 @@ -4,7 +4,7 @@ # Vorzeichen einer 32-Bit-Zahl bestimmen # sign_of_sint32(value) # > value: eine 32-Bit-Zahl -# < sint16 ergebnis: 0 falls value>=0, -1 falls value<0. +# < sint16 result: 0 falls value>=0, -1 falls value<0. extern sint16 sign_of_sint32 (sint32 value); # im 68000-Assembler (Input D0.L, Output D0.W): # SWAP D0 # Vorzeichen nach Bit 15 schieben @@ -13,13 +13,13 @@ #if defined(GNU) && defined(MC680X0) && !defined(NO_ASM) #define sign_of_sint32(value) \ ({var sint32 __value = (value); \ - var sint16 __ergebnis; \ + var sint16 __result; \ __asm__ ("\ swap %0; \ extl %0; \ swap %0 \ - " : "=d" (__ergebnis) : "0" (__value)); \ - __ergebnis; \ + " : "=d" (__result) : "0" (__value)); \ + __result; \ }) #elif defined(SPARC64) #define sign_of_sint32(value) (((sint64)(sint32)(value)) >> 63) @@ -32,7 +32,7 @@ # Vorzeichen einer 16-Bit-Zahl bestimmen # sign_of_sint16(value) # > value: eine 16-Bit-Zahl -# < sint16 ergebnis: 0 falls value>=0, -1 falls value<0. +# < sint16 result: 0 falls value>=0, -1 falls value<0. extern sint16 sign_of_sint16 (sint16 value); # im 68000-Assembler (Input D0.W, Output D0.W): # EXT.L D0 # Vorzeichen nach Bit 31..16 kopieren @@ -40,12 +40,12 @@ #if defined(GNU) && defined(MC680X0) && !defined(NO_ASM) #define sign_of_sint16(value) \ ({var sint16 __value = (value); \ - var sint16 __ergebnis; \ + var sint16 __result; \ __asm__ ("\ extl %0; \ swap %0 \ - " : "=d" (__ergebnis) : "0" (__value)); \ - __ergebnis; \ + " : "=d" (__result) : "0" (__value)); \ + __result; \ }) #elif defined(SPARC64) #define sign_of_sint16(value) (((sint64)(sint16)(value)) >> 63) @@ -64,11 +64,11 @@ #if defined(MC680X0) && !defined(NO_ASM) #define high16(value) \ ({var uint32 __value = (value); \ - var uint16 __ergebnis; \ + var uint16 __result; \ __asm__ ("\ swap %0 \ - " : "=d" (__ergebnis) : "0" (__value)); \ - __ergebnis; \ + " : "=d" (__result) : "0" (__value)); \ + __result; \ }) #endif #endif @@ -92,12 +92,12 @@ #define highlow32(high,low) \ ({var uint16 __high = (high); \ var uint16 __low = (low); \ - var uint32 __ergebnis; \ + var uint32 __result; \ __asm__ __volatile__ ("\ swap %0; \ movew %2,%0 \ - " : "=&d" (__ergebnis) : "0" (__high), "g" (__low)); \ - __ergebnis; \ + " : "=&d" (__result) : "0" (__high), "g" (__low)); \ + __result; \ }) #endif #endif @@ -117,12 +117,12 @@ #if defined(MC680X0) && !defined(NO_ASM) #define highlow32_0(high) \ ({var uint16 __high = (high); \ - var uint32 __ergebnis; \ + var uint32 __result; \ __asm__ __volatile__ ("\ swap %0; \ clrw %0 \ - " : "=d" (__ergebnis) : "0" (__high)); \ - __ergebnis; \ + " : "=d" (__result) : "0" (__high)); \ + __result; \ }) #endif #endif @@ -158,7 +158,7 @@ # Multipliziert zwei 16-Bit-Zahlen miteinander und liefert eine 32-Bit-Zahl: # mulu16(arg1,arg2) # > arg1, arg2 : zwei 16-Bit-Zahlen -# < ergebnis: eine 32-Bit-Zahl +# < result: eine 32-Bit-Zahl extern uint32 mulu16 (uint16 arg1, uint16 arg2); # in 68000-Assembler (Input D0.W, D1.W, Output D0.L): # MULU D1,D0 @@ -390,7 +390,7 @@ # Multipliziert zwei 32-Bit-Zahlen miteinander und liefert eine 32-Bit-Zahl: # mulu32_unchecked(arg1,arg2) # > arg1, arg2 : zwei 32-Bit-Zahlen -# < ergebnis : eine 32-Bit-Zahl +# < result : eine 32-Bit-Zahl # Es wird vorausgesetzt, dass arg1*arg2 < 2^32. #if (defined(GNU) && defined(MC680X0) && !defined(MC680Y0)) extern uint32 mulu32_unchecked (uint32 x, uint32 y); @@ -435,7 +435,7 @@ # Multipliziert zwei 32-Bit-Zahlen miteinander und liefert eine 64-Bit-Zahl: # mulu32_64(arg1,arg2) # > arg1, arg2 : zwei 32-Bit-Zahlen -# < ergebnis : eine 64-Bit-Zahl +# < result : eine 64-Bit-Zahl extern_C uint64 mulu32_64 (uint32 arg1, uint32 arg2); #if defined(GNU) || defined(INTEL) #if defined(I80386) && !defined(NO_ASM) Index: realrand.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/realrand.d,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- realrand.d 28 Nov 2007 16:25:32 -0000 1.8 +++ realrand.d 5 Dec 2007 16:06:31 -0000 1.9 @@ -7,7 +7,7 @@ # random_L(randomstate) liefert eine neue Zufallszahl. # > randomstate: ein Random-State, wird verändert -# < ergebnis: eine 32-Bit-Zufallszahl +# < result: eine 32-Bit-Zufallszahl local uint32 random_L (object randomstate) { var object seed = # letzte Zahl, ein Simple-Bit-Vektor mit 64 Bits Index: package.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/package.d,v retrieving revision 1.109 retrieving revision 1.110 diff -u -d -r1.109 -r1.110 --- package.d 30 Nov 2007 15:14:34 -0000 1.109 +++ package.d 5 Dec 2007 16:06:32 -0000 1.110 @@ -754,9 +754,9 @@ can trigger GC */ global maygc uintBWL intern (object string, bool invert, object pack, object* sym_) { { - var sintBWL ergebnis = find_symbol(string,invert,pack,sym_); /* search */ - if (!(ergebnis==0)) - return ergebnis & 3; /* found -> finished */ + var sintBWL result = find_symbol(string,invert,pack,sym_); /* search */ + if (!(result==0)) + return result & 3; /* found -> finished */ } pushSTACK(pack); /* save package */ if (pack_locked_p(pack)) { Index: intprint.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/intprint.d,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- intprint.d 27 Oct 2003 12:42:55 -0000 1.6 +++ intprint.d 5 Dec 2007 16:06:32 -0000 1.7 @@ -170,11 +170,11 @@ } # Wandelt eine UDS in ein Stellensystem um. -# UDS_to_DIGITS(MSDptr,len,base, &ergebnis); +# UDS_to_DIGITS(MSDptr,len,base, &result); # > MSDptr/len/..: eine UDS # > base: Stellensystem-Basis, 2 <= base <= 36. -# > ergebnis.LSBptr: darunter ist mindestens digits_need(len) Zeichen Platz -# < ergebnis: fertige Folge MSBptr/len/LSBptr von Ziffern +# > result.LSBptr: darunter ist mindestens digits_need(len) Zeichen Platz +# < result: fertige Folge MSBptr/len/LSBptr von Ziffern # Die UDS MSDptr/len/.. wird zerstört. typedef struct { chart* MSBptr; uintL len; chart* LSBptr; } DIGITS; local void UDS_to_DIGITS (uintD* MSDptr, uintC len, uintD base, DIGITS* erg); Index: record.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/record.d,v retrieving revision 1.118 retrieving revision 1.119 diff -u -d -r1.118 -r1.119 --- record.d 27 Nov 2007 17:56:31 -0000 1.118 +++ record.d 5 Dec 2007 16:06:31 -0000 1.119 @@ -276,7 +276,7 @@ (SYS::GENERIC-FUNCTION-EFFECTIVE-METHOD-FUNCTION generic-function) returns a function, which delivers the effective methods, so that (APPLY generic-function arguments) - == (APPLY (APPLY ergebnis arguments) arguments) . + == (APPLY (APPLY result arguments) arguments) . */ /* (SYS::CLOSURE-NAME closure) returns the name of a closure. */ @@ -599,7 +599,7 @@ /* (SYS::GENERIC-FUNCTION-EFFECTIVE-METHOD-FUNCTION generic-function) returns a function, which delivers the effective methods, so that (APPLY generic-function arguments) - == (APPLY (APPLY ergebnis arguments) arguments) . + == (APPLY (APPLY result arguments) arguments) . is used for CALL-NEXT-METHOD; can assume that the generic-function has already been called, i.e. that the dispatch has already been installed. */ Index: rational.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/rational.d,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- rational.d 5 Dec 2007 15:40:31 -0000 1.9 +++ rational.d 5 Dec 2007 16:06:31 -0000 1.10 @@ -754,7 +754,7 @@ # ist. # RA_sqrtp(x) # > x: eine rationale Zahl >=0 -# < ergebnis: exakte Wurzel (sqrt x) falls x Quadrat, nullobj sonst +# < result: exakte Wurzel (sqrt x) falls x Quadrat, nullobj sonst # can trigger GC local maygc object RA_sqrtp (object x); # Methode: @@ -788,7 +788,7 @@ # RA_rootp(x,n) # > x: eine rationale Zahl >=0 # > n: ein Integer >0 -# < ergebnis: exakte n-te Wurzel (expt x (/ n)) falls eine n-te Potenz, nullobj sonst +# < result: exakte n-te Wurzel (expt x (/ n)) falls eine n-te Potenz, nullobj sonst # can trigger GC local maygc object RA_rootp (object x, object n); # Methode: Index: unixaux.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/unixaux.d,v retrieving revision 1.56 retrieving revision 1.57 diff -u -d -r1.56 -r1.57 --- unixaux.d 18 Dec 2005 17:10:22 -0000 1.56 +++ unixaux.d 5 Dec 2007 16:06:30 -0000 1.57 @@ -707,9 +707,9 @@ WIFSTOPPED(status) == ((status & 0xFF) == 0177) WEXITSTATUS(status) == ((status & 0xFF00) >> 8) */ loop { - var int ergebnis = waitpid(child,&status,0); - if (ergebnis != child) { - if (ergebnis<0) { + var int result = waitpid(child,&status,0); + if (result != child) { + if (result<0) { if (errno==EINTR) continue; #ifdef ECHILD Index: io.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/io.d,v retrieving revision 1.316 retrieving revision 1.317 diff -u -d -r1.316 -r1.317 --- io.d 5 Dec 2007 15:59:08 -0000 1.316 +++ io.d 5 Dec 2007 16:06:32 -0000 1.317 @@ -879,7 +879,7 @@ # UP: fetches the value of *READ-BASE* # get_read_base() -# < uintL ergebnis: >=2, <=36 +# < uintL result: >=2, <=36 #define get_read_base() get_base(S(read_base)) @@ -2179,10 +2179,10 @@ # and bind SYS::*READ-PRESERVE-WHITESPACE* to NIL: dynamic_bind(S(read_preserve_whitespace),NIL); # and read Objekt: - var object ergebnis = read_internal(stream_); + var object result = read_internal(stream_); dynamic_unbind(S(read_preserve_whitespace)); dynamic_unbind(S(read_recursive_p)); - return ergebnis; + return result; } } @@ -2208,11 +2208,11 @@ # can trigger GC local maygc object read_recursive_no_dot (const gcv_object_t* stream_) { # call READ recursively: - var object ergebnis = read_recursive(stream_); + var object result = read_recursive(stream_); # and report Error at ".": - if (eq(ergebnis,dot_value)) + if (eq(result,dot_value)) error_dot(*stream_); - return ergebnis; + return result; } /* error-message due to an invalid value of an internal variable */ @@ -2358,19 +2358,19 @@ dynamic_bind(S(read_line_number),lineno); if (terminal_read_open_object_bind) dynamic_bind(S(terminal_read_open_object),S(list)); - var object ergebnis; + var object result; # possibly bind SYS::*READ-RECURSIVE-P* to T, first: if (!nullpSv(read_recursive_p)) { /* recursive? */ - ergebnis = read_delimited_list_recursive(stream_,endch,ifdotted); + result = read_delimited_list_recursive(stream_,endch,ifdotted); } else { # no -> bind SYS::*READ-RECURSIVE-P* to T: dynamic_bind(S(read_recursive_p),T); - ergebnis = read_delimited_list_recursive(stream_,endch,ifdotted); + result = read_delimited_list_recursive(stream_,endch,ifdotted); dynamic_unbind(S(read_recursive_p)); } # ANSI CL spec of *READ-SUPPRESS* says that if *READ-SUPPRESS* is true, # READ-DELIMITED-LIST must return NIL. if (!nullpSv(read_suppress)) /* *READ-SUPPRESS* /= NIL ? */ - ergebnis = NIL; + result = NIL; if (terminal_read_open_object_bind) dynamic_unbind(S(terminal_read_open_object)); dynamic_unbind(S(read_line_number)); @@ -2378,7 +2378,7 @@ if (STACK != STACKbefore) /* verify if Stack is cleaned up */ abort(); /* if not --> go to Debugger */ #endif - return ergebnis; + return result; } # then the more special Function: local maygc object read_delimited_list_recursive (const gcv_object_t* stream_, @@ -4060,9 +4060,9 @@ error(reader_error,GETTEXT("~S from ~S: bad ~S")); } STACK_0 = Car(args); # save Simple-Bit-Vector - var object ergebnis = allocate_random_state(); # new Random-State - The_Random_state(ergebnis)->random_state_seed = popSTACK(); # fill - VALUES1(ergebnis); skipSTACK(2); return; + var object result = allocate_random_state(); # new Random-State + The_Random_state(result)->random_state_seed = popSTACK(); # fill + VALUES1(result); skipSTACK(2); return; } if (eq(name,S(pathname))) { # Symbol PATHNAME ? # yes -> treat specially, no Structure: Index: pathname.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/pathname.d,v retrieving revision 1.404 retrieving revision 1.405 diff -u -d -r1.404 -r1.405 --- pathname.d 27 Nov 2007 17:56:30 -0000 1.404 +++ pathname.d 5 Dec 2007 16:06:31 -0000 1.405 @@ -6533,7 +6533,7 @@ if (eq(namestring,nullobj)) /* path to the file does not exist, and :IF-DOES-NOT-EXIST = unbound or NIL */ - goto ergebnis_NIL; + goto result_NIL; /* stack layout: Pathname, Truename. check filename and get the handle: */ pushSTACK(namestring); /* save */ @@ -6550,7 +6550,7 @@ goto error_notfound; if (if_not_exists==IF_DOES_NOT_EXIST_UNBOUND || if_not_exists==IF_DOES_NOT_EXIST_NIL) - goto ergebnis_NIL; + goto result_NIL; /* :CREATE -> create the file using open and close: */ with_sstring_0(namestring,O(pathname_encoding),namestring_asciz, { create_new_file(namestring_asciz); @@ -6569,7 +6569,7 @@ if (!result) { /* :IF-DOES-NOT-EXIST decides: */ if (if_not_exists==IF_DOES_NOT_EXIST_NIL) - goto ergebnis_NIL; + goto result_NIL; else /* UNBOUND or :ERROR -> Error */ goto error_notfound; } @@ -6598,7 +6598,7 @@ case IF_EXISTS_ERROR: goto error_exists; case IF_EXISTS_NIL: - goto ergebnis_NIL; + goto result_NIL; case IF_EXISTS_RENAME: case IF_EXISTS_RENAME_AND_DELETE: create_backup_file(namestring_asciz, if_exists==IF_EXISTS_RENAME_AND_DELETE); @@ -6616,7 +6616,7 @@ || if_not_exists==IF_DOES_NOT_EXIST_ERROR) goto error_notfound; if (if_not_exists==IF_DOES_NOT_EXIST_NIL) - goto ergebnis_NIL; + goto result_NIL; /* :CREATE */ } /* open file: @@ -6649,7 +6649,7 @@ skipSTACK(4); return stream; }} - ergebnis_NIL: /* return NIL */ + result_NIL: /* return NIL */ skipSTACK(6); /* forget both Pathnames and three arguments */ return NIL; } Index: stream.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/stream.d,v retrieving revision 1.593 retrieving revision 1.594 diff -u -d -r1.593 -r1.594 --- stream.d 5 Dec 2007 15:54:03 -0000 1.593 +++ stream.d 5 Dec 2007 16:06:30 -0000 1.594 @@ -1352,9 +1352,9 @@ var object stream = *stream_; var object symbol = TheStream(stream)->strm_synonym_symbol; pushSTACK(get_synonym_stream(symbol)); - var object ergebnis = read_char(&STACK_0); + var object result = read_char(&STACK_0); skipSTACK(1); - return ergebnis; + return result; } # PEEK-CHAR - Pseudo-Function for Synonym-Streams: @@ -1363,9 +1363,9 @@ var object stream = *stream_; var object symbol = TheStream(stream)->strm_synonym_symbol; pushSTACK(get_synonym_stream(symbol)); - var object ergebnis = peek_char(&STACK_0); + var object result = peek_char(&STACK_0); skipSTACK(1); - return ergebnis; + return result; } # READ-CHAR-ARRAY - Pseudo-Function for Synonym-Streams: Index: encoding.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/encoding.d,v retrieving revision 1.144 retrieving revision 1.145 diff -u -d -r1.144 -r1.145 --- encoding.d 26 Nov 2007 16:42:10 -0000 1.144 +++ encoding.d 5 Dec 2007 16:06:32 -0000 1.145 @@ -2244,7 +2244,7 @@ > object obj: String > object encoding: Encoding < return: simple-bit-vector with the bytes<==characters and a NULL at the end - < TheAsciz(ergebnis): address of the byte sequence contain therein + < TheAsciz(result): address of the byte sequence contain therein can trigger GC */ #ifdef UNICODE global maygc object string_to_asciz (object obj, object encoding) { Index: eval.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/eval.d,v retrieving revision 1.225 retrieving revision 1.226 diff -u -d -r1.225 -r1.226 --- eval.d 5 Dec 2007 15:40:31 -0000 1.225 +++ eval.d 5 Dec 2007 16:06:32 -0000 1.226 @@ -2760,7 +2760,7 @@ # which is #<UNBOUND>, if it is still to be supplied with) # > rest_args_pointer: Pointer to the remaining Arguments in the STACK # < STACK: set correctly -# < ergebnis: closure +# < result: closure # changes STACK # can trigger GC local maygc object match_cclosure_key (object closure, uintL argcount, gcv_object_t* key_args_pointer, gcv_object_t* rest_args_pointer) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5826 retrieving revision 1.5827 diff -u -d -r1.5826 -r1.5827 --- ChangeLog 5 Dec 2007 15:59:08 -0000 1.5826 +++ ChangeLog 5 Dec 2007 16:06:32 -0000 1.5827 @@ -1,5 +1,12 @@ 2007-12-04 Reini Urban <ru...@x-...> + <31_ergebnis> + * arilev0.d, arisparc.d, arisparc64.d, charstrg.d, encoding.d: + * eval.d, ffloat.d, int2adic.d, intdiv.d, intgcd.d, intprint.d: + * intread.d, intsqrt.d, io.d, list.d, package.d, pathname.d: + * rational.d, realrand.d, record.d, sequence.d, sfloat.d: + * spvw_allocate.d, spvw_memfile.d, stream.d, time.d, unixaux.d: + * weak.d: ergebnis -> result <30_wert> * intelem.d: rename local var and arg wert,_wert,wert_* to value,_value,value_* Index: arisparc64.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/arisparc64.d,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- arisparc64.d 11 May 2004 20:00:39 -0000 1.5 +++ arisparc64.d 5 Dec 2007 16:06:32 -0000 1.6 @@ -67,7 +67,7 @@ #define COUNTER_LOOPS (LOOP_TYPE==2) # extern uint32 mulu16_ (uint16 arg1, uint16 arg2); -# ergebnis := arg1*arg2. +# result := arg1*arg2. C(mulu16_:) # Input in %o0,%o1, Output in %o0 umul %o0,%o1,%o2 retl @@ -82,7 +82,7 @@ _ srl %o2,0,%o0 # extern uint32 mulu32_unchecked (uint32 x, uint32 y); -# ergebnis := arg1*arg2 < 2^32. +# result := arg1*arg2 < 2^32. C(mulu32_unchecked:) # Input in %o0,%o1, Output in %o0 umul %o0,%o1,%o2 retl Index: charstrg.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/charstrg.d,v retrieving revision 1.135 retrieving revision 1.136 diff -u -d -r1.135 -r1.136 --- charstrg.d 4 Dec 2007 15:50:34 -0000 1.135 +++ charstrg.d 5 Dec 2007 16:06:32 -0000 1.136 @@ -939,7 +939,7 @@ /* UP: converts a string into a Simple-String. coerce_ss(obj) > obj: Lisp-object, should be a string. - < ergebnis: Simple-String with the same characters + < result: Simple-String with the same characters can trigger GC */ global maygc object coerce_ss (object obj) { start: @@ -2610,7 +2610,7 @@ > arg1: here are the addressed characters in string1 > arg2: here are the addressed characters in string2 < arg1.index: location of the first difference i string1 - < ergebnis: 0 if equal, + < result: 0 if equal, -1 if string1 is genuinely lesser than string2, +1 if string1 is genuinely bigger than string2. */ local signean string_comp (stringarg* arg1, const stringarg* arg2) { @@ -3376,7 +3376,7 @@ /* UP: converts a string into uppercase letters string_upcase(string) > string: string - < ergebnis: new normal-simple-string, in uppercase letters + < result: new normal-simple-string, in uppercase letters can trigger GC */ global maygc object string_upcase (object string) { string = copy_string_normal(string); /* copy and turn into a normal-simple-string */ Index: intsqrt.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/intsqrt.d,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- intsqrt.d 5 Dec 2007 15:40:31 -0000 1.21 +++ intsqrt.d 5 Dec 2007 16:06:32 -0000 1.22 @@ -4,7 +4,7 @@ # liefert eine 16-Bit-Wurzel. # UL_sqrt_UW(x) # > uintL x : Radikand, >=0, <2^32 -# < uintWL ergebnis : Wurzel, >=0, <2^16 +# < uintWL result : Wurzel, >=0, <2^16 local uintWL UL_sqrt_UW (uintL x); # Methode: # x=0 -> y=0, fertig. @@ -60,7 +60,7 @@ # liefert eine 32-Bit-Wurzel. # UL2_sqrt_UL(x1,x0) # > uintL2 x = x1*2^32+x0 : Radikand, >=0, <2^64 -# < uintL ergebnis : Wurzel, >=0, <2^32 +# < uintL result : Wurzel, >=0, <2^32 local uintL UL2_sqrt_UL (uintL x1, uintL x0); # Methode: # x=0 -> y=0, fertig. @@ -399,7 +399,7 @@ # I_isqrt_I(x) # > x: an Integer >=0 # < STACK_0: (isqrt x) -# < ergebnis: true falls x Quadratzahl, false sonst +# < result: true falls x Quadratzahl, false sonst # erniedrigt STACK um 1 # can trigger GC local maygc bool I_isqrt_I (object x) @@ -422,7 +422,7 @@ # Stellt fest, ob ein Integer >=0 eine Quadratzahl ist. # I_sqrtp(x) # > x: ein Integer >=0 -# < ergebnis: Integer (sqrt x) falls x Quadratzahl, nullobj sonst +# < result: Integer (sqrt x) falls x Quadratzahl, nullobj sonst # can trigger GC local maygc object I_sqrtp (object x); # Methode: @@ -451,7 +451,7 @@ # I_rootp(x,n) # > x: ein Integer >=0 # > n: ein Integer >0 -# < ergebnis: Integer (expt x (/ n)) falls x eine n-te Potenz, nullobj sonst +# < result: Integer (expt x (/ n)) falls x eine n-te Potenz, nullobj sonst # can trigger GC local maygc object I_rootp (object x, object n1); # Methode: ------------------------------ ------------------------------------------------------------------------- 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 20, Issue 11 ***************************************** |