WebSVN – Kolibri OS – Path Comparison – / – /programs/develop/SPForth/src/compiler/spf_words.f Rev 4866 and /programs/develop/SPForth/src/compiler/spf

Regard whitespace Rev 4866 → Rev 4867

 /programs/develop/SPForth/src/compiler/spf_words.f
 ,0 → 1,45
+( ¥ç âì á¯¨áª  á«®¢ á«®¢ àï - WORDS.
+  -¥§ ¢¨á¨¬ë¥ ®¯à¥¤¥«¥¨ï.
+  Copyright [C] 1992-1999 A.Cherezov ac@forth.org
+  à¥®¡à §®¢ ¨¥ ¨§ 16-à §àï¤®£® ¢ 32-à §àï¤ë© ª®¤ - 1995-96££
+  ¥¢¨§¨ï - á¥âï¡àì 1999
+)
+VARIABLE NNN
+: ?CR-BREAK ( NFA -- NFA TRUE | FALSE )
+  DUP
+  IF DUP ZCOUNT NIP AT-XY? DROP + SCR_WIDTH-S >
+     IF CR
+        NNN @
+        IF    -1 NNN +!  TRUE
+        ELSE  ." more?" CR 16 NNN !
+              KEY [CHAR] Q <> AND ?DUP 0<>
+        THEN
+     ELSE TRUE
+     THEN
+  THEN
+;
+: NLIST ( A -> )
+  @
+  CR W-CNT 0!  16 NNN !
+  BEGIN  ?CR-BREAK
+  WHILE
+    W-CNT 1+!
+    DUP ID. \ 9 EMIT
+        SPACE AT-XY? >R 8 / 1+ 8 * R> AT-XY
+    CDR
+  REPEAT KEY? IF KEY DROP THEN
+  CR CR ." Words: " W-CNT @ U. CR
+;
+: WORDS ( -- ) \ 94 TOOLS
+\ ¯¨á®ª ¨¬¥ ®¯à¥¤¥«¥¨© ¢ ¯¥à¢®¬ á¯¨áª¥ á«®¢ ¯®àï¤ª  ¯®¨áª . ®à¬ â § ¢¨á¨â
+\ ®â à¥ «¨§ æ¨¨.
+\ WORDS ¬®¦¥â ¡ëâì à¥ «¨§®¢  á ¨á¯®«ì§®¢ ¨¥¬ á«®¢ ä®à¬ â®£® ¯à¥®¡à §®¢ ¨ï
+\ ç¨á¥«. ®®â¢¥âáâ¢¥®, ® ¬®¦¥â ¨á¯®àâ¨âì ¯¥à¥¬¥é ¥¬ãî ®¡« áâì,
+\ ¨¤¥â¨ä¨æ¨àã¥¬ãî #>.
+  CONTEXT @ NLIST
+;