Path: csiph.com!usenet.pasdenom.info!aioe.org!.POSTED!not-for-mail
From: "Rod Pemberton" <dont_use_email@xnothavet.cqm>
Newsgroups: comp.lang.forth
Subject: Re: how do you take all data in memory and write to disk for restoring state later?
Date: Thu, 20 Mar 2014 18:27:30 -0400
Organization: Aioe.org NNTP Server
Lines: 59
Message-ID: <op.xc1kn4vb6zenlw@localhost>
References: <1d0c008e-66c7-4b77-a424-01f77879f8d5@googlegroups.com> <bdd6abe6-b24a-4bdf-b54b-48600f0d4ed0@googlegroups.com> <alpine.BSF.2.00.1403201321210.25718@yoko.controlq.com>
NNTP-Posting-Host: CNsg4fVcCsvs3UaOgZtQCw.user.speranza.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii; format=flowed; delsp=yes
Content-Transfer-Encoding: 7bit
X-Complaints-To: abuse@aioe.org
User-Agent: Opera Mail/12.16 (Linux)
X-Notice: Filtered by postfilter v. 0.8.2
Xref: csiph.com comp.lang.forth:29103

On Thu, 20 Mar 2014 13:29:49 -0400, <Spam@controlq.com> wrote:
> On Thu, 20 Mar 2014, Mark Wills wrote:
>>  On Friday, 14 March 2014 09:06:23 UTC, gavino_himself  wrote:

>>> how do you take all data in memory and write to disk for
>>> restoring state later? in forth?
>>
>> : shit ( -- )
>>  read_shit
>>  do_shit
>>  write_shit ;
>>
>> That's how you do it.
>>
>
> Sorry, Mark.  Gavino is an experimental test program I left running some
> time ago, and seems to have gotten away on me.
>
> : Gavino ( -- )
>    begin
>      get_random 2 mod if say_stupid_stuff else ask_dumb_question then
>      ignore_response
>      get_random duration go_away_for
>    again ;
>
> I guess given the amount of time it has been running, it can be
> considered a virus ... so if you find it ... KILL it!
>

Except, it's been alive so long now, it must be more like a ghost in the
machine.  Someone must've attempted to kill it by now.  Apparently, it
simply respawns, perhaps like so...

: remove_Gavino
   ...
   ...
   ...
   Gavino \ tail call ghost in the machine
;

: find_Gavinos
   get_first_process
   begin
     dup 0= if exit then
     dup is_Gavino if kill_Gavino remove_Gavino else drop then
     get_next_process
   again
;

: Gavino_virus_scan ( -- )
   find_Gavinos
;

The virus scan would never terminate, infinite loop, perpetual respawn ...

Or, maybe someone thought POSTPONE Gavino meant something else.


Rod Pemberton