Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1204/apps/Setup
Modified Files:
dtop_lnk.f
Log Message:
Jos: Adapted for the new string:
Note: My toolset has still an old string: some adjustments are still needed.
Index: dtop_lnk.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/dtop_lnk.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** dtop_lnk.f 5 May 2005 09:43:27 -0000 1.2
--- dtop_lnk.f 14 Oct 2005 17:33:03 -0000 1.3
***************
*** 33,45 ****
; immediate
- \ Format string: [count-allocated count-string string 0] The "0" is not counted
- : string: ( compile-time: len - ) ( run-time: - adr-counted-string )
- create th fc over < \ max 252 char
- abort" String out off range ! " \ map:
- here swap 3 + dup allot swap c! \ max-char. counted string
- does> 1+ ;
-
- 250 constant /tmp /tmp string: tmp$
-
: c>unicode! ( dest char - dest+2 ) over w! 2 chars + ;
--- 33,36 ----
***************
*** 62,65 ****
--- 53,58 ----
[THEN]
+ string: tmp$
+
[UNDEFINED] zCount [IF]
: zCount ( a1 -- a2 len )
***************
*** 177,179 ****
[then]
! |
