VolksForth/st/STRINGS.FB
2017-04-24 00:25:49 +02:00

1 line
12 KiB
Plaintext
Raw Blame History

\\ *** Strings *** 13oct86we Dieses File enth„lt einige Grundworte zur Stringverarbeitung, vor allem ein SEARCH f<>r den Editor. Ebenfalls sind Worte zur Umwandlung von counted Strings (Forth) in 0-terminated Strings, wie sie z.B. vom Betriebssystem oft benutzt werden, vorhanden. Beim SEARCH entscheidet die Variable CAPS , ob Grož- und Kleinschreibung unterschieden wird oder nicht. Ist CAPS ON, so werden grože und kleine Buchstaben gefunden, die Suche dau- ert allerdings l„nger. c>0" wandelt einen String mit f<>hrendem Countbyte in einen mit 0 abgschlossenen, wie er vom Betriebssystem oft gebraucht wird. 0>c" arbeitet umgekehrt. \ String Functions Loadscreen 25may86we 1 4 +thru \ -text 13oct86we Variable caps caps off Code -text ( addr0 len addr1 -- n ) SP )+ D6 move D6 reg) A1 lea SP )+ D0 move 0= IF SP ) clr Next THEN 1 D0 subq SP )+ D6 move D6 reg) A0 lea Label comp .b A0 )+ A1 )+ cmpm comp D0 dbne .w D0 clr .b A0 -) D0 move A1 -) D0 sub .w D0 ext D0 SP -) move Next end-code Label >upper ( D3 -> D3 ) .b Ascii a D3 cmpi >= IF Ascii z D3 cmpi <= IF bl D3 subi THEN THEN rts \ -capstext compare 13oct86we | Code -capstext ( addr0 len addr1 -- n ) SP )+ D6 move D6 reg) A1 lea SP )+ D0 move 0= IF SP ) clr Next THEN 1 D0 subq SP )+ D6 move D6 reg) A0 lea Label capscomp .b A0 )+ D3 move >upper bsr D3 D1 move A1 )+ D3 move >upper bsr D3 D2 move D1 D2 cmp capscomp D0 dbne .w D1 clr .b A0 -) D3 move >upper bsr D3 D1 move A1 -) D3 move >upper bsr D3 D2 move .b D2 D1 sub .w D1 SP -) move Next end-code : compare ( addr0 len addr1 -- n ) caps @ IF -capstext ELSE -text THEN ; \ search delete insert 10aug86we : search ( text textlen buf buflen -- offset flag ) over >r 2 pick - 3 pick c@ >r BEGIN caps @ 0= IF r@ scan THEN ?dup WHILE >r >r 2dup r@ compare 0= IF 2drop r> rdrop rdrop r> - true exit THEN r> r> 1 /string REPEAT -rot 2drop rdrop r> - false ; : delete ( buffer size count -- ) over min >r r@ - ( left over ) dup 0> IF 2dup swap dup r@ + -rot swap cmove THEN + r> bl fill ; : insert ( string length buffer size -- ) rot over min >r r@ - over dup r@ + rot cmove> r> cmove ; \ String operators 13oct86we Variable $sum \ pointer to stringsum : $add ( addr len -- ) dup >r $sum @ count + swap move $sum @ dup c@ r> + swap c! ; : c>0" ( addr -- ) count >r dup 1- under r@ cmove r> + 0 swap c! ; : 0>c" ( addr -- ) dup >r true false scan nip negate 1- r@ dup 1+ 2 pick cmove> r> c! ; : ,0" Ascii " parse 1+ here over allot place 0 c, align ; restrict : 0" state @ IF compile (" ,0" compile 1+ exit THEN here 1+ ,0" ; immediate \ -text 13oct86we ist CAPS on, wird beim Suchen nicht auf Grož- Kleinschreibung geachtet. addr0 und addr1 sind die Adressen von zwei counted strings, len die Anzahl der Zeichen, die verglichen werden sollen. n liefert die Differenz der beiden ersten nicht <20>bereinstimmenden Zeichen Ist n=0, sind beide Strings gleich. wandelt das Zeichen im Register D3 in den entsprechenden Grož- buchstaben. \ -capstext compare 13oct86we wie -text, jedoch wird beim Vergleich nicht nach Grož- und Klein schreibung unterschieden. Dieser Vergleich erfordert erheblich mehr Zeit und sollte daher nur in Sonderf„llen benutzt werden. wie -text, in Abh„ngigkeit von der Variablen caps wird -text oder -capstext ausgef<65>hrt. \ search delete insert 13oct86we Im Text ab Adresse text wird in der L„nge textlen nach dem String buf mit L„nge buflen gesucht. Zur<75>ckgeliefert wird ein Offset in den durchsuchten Text an die Stelle, an der der String gefunden wurde sowie ein Flag. Ist flag wahr, wurde der String gefunden, sonst nicht. search ber<65>cksichtigt die Variable caps bei der Suche. Im Buffer der L„nge size werden count Zeichen entfernt. Der Rest des Buffers wird 'heruntergezogen'. Der string ab Adresse string und der L„nge length wird in den Buffer mit der Gr”že size eingef<65>gt. \ String operators 13oct86we Ein pointer auf die Adresse des Strings, zu dem ein anderer hinzugef<65>gt werden soll. $ADD h„ngt den String ab addr und der L„nge len an den String in $sum an. Der Count wird dabei addiert. wandelt den counted String ab addr in einen 0-terminated String. wandelt den 0-terminated String ab addr in einen counted String. Die L„nge der Strings bleibt gleich (Countbyte statt 0). legt einen counted und mit 0 abgeschlossenen String im Dictionary ab. aufrufendes Wort f<>r ,0"; kompiliert zus„tzlich (". 0" ist statesmart.