[gforth] / gforth / extend.fs  

gforth: gforth/extend.fs

Diff for /gforth/extend.fs between version 1.26 and 1.27

version 1.26, Mon Jun 23 16:57:02 1997 UTC version 1.27, Sun Jul 6 15:55:23 1997 UTC
Line 78 
Line 78 
 : [compile] ( compilation "name" -- ; run-time ? -- ? ) \ core-ext bracket-compile  : [compile] ( compilation "name" -- ; run-time ? -- ? ) \ core-ext bracket-compile
     comp' drop compile, ; immediate      comp' drop compile, ; immediate
   
 \ MARKER                                                17may93jaw  
   
 \ : marker here last @ create , , DOES> dup @ last ! cell+ @ dp ! ;  
 \ doesn't work now. vocabularies?  
   
 \ CONVERT                                               17may93jaw  \ CONVERT                                               17may93jaw
   
 : convert ( ud1 c-addr1 -- ud2 c-addr2 ) \ core-ext  : convert ( ud1 c-addr1 -- ud2 c-addr2 ) \ core-ext
Line 170 
Line 165 
     2 pick swap /string type      2 pick swap /string type
     nip span ! ;      nip span ! ;
   
   \ marker                                               18dec94py
   
   \ Marker creates a mark that is removed (including everything
   \ defined afterwards) when executing the mark.
   
   : marker, ( -- mark )  here dup A,
     voclink @ A, voclink
     BEGIN  @ dup WHILE  dup 0 wordlist-link - @ A,  REPEAT  drop
     udp @ , ;
   
   : marker! ( mark -- )
       dup @ swap cell+
       dup @ voclink ! cell+
       voclink
       BEGIN
           @ dup
       WHILE
           over @ over 0 wordlist-link - !
           swap cell+ swap
       REPEAT
       drop  voclink
       BEGIN
           @ dup
       WHILE
           dup 0 wordlist-link - rehash
       REPEAT
       drop
       @ udp !  dp ! ;
   
   : marker ( "mark" -- )
       marker, Create A,
   DOES> ( -- )
       @ marker! ;
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help