MARKER from FORGET 
Author Message
 MARKER from FORGET

CREATE Forget-Text  120 chars ALLOT

: Forget-Name              ( str len -- )
    S" FORGET " Forget-Text PLACE
    31 MIN  Forget-Text APPEND
    Forget-Text COUNT EVALUATE ;

: MARKER                   ( "name" -- )
    BL WORD COUNT ( str len)
    S" : "                Forget-Text PLACE   \  :
    2dup                  Forget-Text APPEND  \  : name
    S"  S"" "             Forget-Text APPEND  \  : name S"
                          Forget-Text APPEND  \  : name S" name
    S" "" Forget-Name ; " Forget-Text APPEND  \  : name S" name"      
                                              \  ... Forget-Name ;                                  

    Forget-Text COUNT EVALUATE ; IMMEDIATE

\\  Test.

marker --oops--
: whatever ;
adds
--oops--
adds
marker --oops--
adds



Mon, 04 Apr 2005 06:24:04 GMT  
 MARKER from FORGET

Quote:

> CREATE Forget-Text  120 chars ALLOT

> : Forget-Name              ( str len -- )
>     S" FORGET " Forget-Text PLACE
>     31 MIN  Forget-Text APPEND
>     Forget-Text COUNT EVALUATE ;

> : MARKER                   ( "name" -- )
>     BL WORD COUNT ( str len)
>     S" : "                Forget-Text PLACE   \  :
>     2dup                  Forget-Text APPEND  \  : name
>     S"  S"" "             Forget-Text APPEND  \  : name S"
>                           Forget-Text APPEND  \  : name S" name
>     S" "" Forget-Name ; " Forget-Text APPEND  \  : name S" name"
>                                               \  ... Forget-Name ;

>     Forget-Text COUNT EVALUATE ; IMMEDIATE

Do you think this is sufficient for ANS?

Quote:
>6.2.1850 MARKER
>Restore all dictionary allocation and search order pointers to the
>state they had just prior to the definition of name. Remove the
>definition of name and all subsequent definitions. Restoration of any
>structures still existing that could refer to deleted definitions or
>deallocated data space is not necessarily provided. No other contextual
>information such as numeric base is affected.

In particular, I think you need to provide a means for restoring search
order and CURRENT.


Mon, 04 Apr 2005 21:01:07 GMT  
 MARKER from FORGET

Quote:

> Do you think this is sufficient for ANS?
> In particular, I think you need to provide a means for restoring search
> order and CURRENT.

I do not think this is sufficient for ANS.

MARKER was introduced because of serious problems with FORGET.

The above definition _might_ work if FORGET were ruthless enough.

It might be OK without vocabularies.

I posted it because of a request by Michael Gassanenko so I could
observe the reaction.

I think MARKER needs ANEW to work properly.

Thanks for your response.  I should have signed the original posting as
Neil Bawd to disassociate Wil Baden from it.

--
Neil Bawd  Goat Hill  California



Mon, 04 Apr 2005 22:23:53 GMT  
 
 [ 3 post ] 

 Relevant Pages 

1. How do MARKER and FORGET work with the search-order wordset?

2. How do MARKER and FORGET work with the search-order wordset?

3. EOF marker?

4. End Of File Marker

5. How to Remove EOF Marker chr(26) from Alternate file

6. Handy Marker Browse Report Limiter

7. fork: the ultimate MARKER

8. Need help creating a VI to move the CF marker 10% of the span

9. How do u apply cursors or markers on to charts

10. End of File marker

11. MARKER

12. MARKER

 

 
Powered by phpBB® Forum Software