Re: Users-prolog Digest, Vol 61, Issue 6

WRT fork...

duit:-  
dsignL([1,2,3,6,18]),
writeline([29,32,71]),
load_ddb,!,
retractall(curr_admin(_)),
prolog_pid(PID),
repeat,
left_fork(PID),
save_ddb,
headr0("\n      Read ID"),
user_input("    ID Number or Admin User:\n\n    ",10,SelS),
duit2(SelS),fail.
.
.
.



left_fork(_):-child_pid(_),!.
left_fork(PPID):-!,fork_prolog(CPID),lefrK(PPID,CPID).

kilkid:- retract(child_pid(CPID)),!,send_signal(CPID,'SIGKILL'),wait(CPID,_),!.
kilkid:-!.

lefrK(PPID,0):-!, do_child(PPID).
lefrK(_,CPID):-!,assertz(child_pid(CPID)),!.

do_child(PPID):-
rsignL([1,2,3,6,18]),
        assertz(parnt_pid(PPID)),
        cleanup_OldDBS,
%       prolog_pid(PID),
current_output(COS),
        repeat,
        date_time(dt(Yer,Mon,Day,Hr,Min,Sec)), Now is Hr*60*60 + Min*60 + Sec,
%terror('/tmp/chil.err',Now),
        chek2set_scrn_clr(Now),
%       write(PID), write('. '),
        outp_dt_line([Yer,Mon,Day,Hr,Min,Sec]),
        flush_output(COS),
        sleep(2),fail.


Dhu



On Mon, 28 Apr 2008 12:00:29 -0400
[email protected] wrote:

> Send Users-prolog mailing list submissions to
> 	[email protected]
> 
> To subscribe or unsubscribe via the World Wide Web, visit
> 	http://lists.gnu.org/mailman/listinfo/users-prolog
> or, via email, send a message with subject or body 'help' to
> 	[email protected]
> 
> You can reach the person managing the list at
> 	[email protected]
> 
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of Users-prolog digest..."
> 
> 
> Today's Topics:
> 
>    1. fork_prolog example (Ferreira Maurizio)
>    2. Re: Quintus to Gnu Prolog conversion
>       ([email protected])
> 
> 
> ----------------------------------------------------------------------
> 
> Message: 1
> Date: Mon, 28 Apr 2008 14:50:56 +0200
> From: "Ferreira Maurizio" <[email protected]>
> Subject: fork_prolog example
> To: <[email protected]>
> Message-ID:
> 	<[email protected]>
> Content-Type: text/plain;	charset="us-ascii"
> 
> Any example about using fork_prolog ?
> With this function, can I start a parallel thread ?
> if so, how? 
> and how can I start a thread on a given predicate ?
> Regards.
> Maurizio.
> 
> 
> 
> 
> ------------------------------
> 
> Message: 2
> Date: Mon, 28 Apr 2008 11:00:36 -0400 (EDT)
> From: [email protected]
> Subject: Re: Quintus to Gnu Prolog conversion
> To: Thierry Martinez <[email protected]>
> Cc: [email protected]
> Message-ID: <[email protected]>
> Content-Type: TEXT/PLAIN; charset=US-ASCII; format=flowed
> 
> 
> Dear Tierry,
> 
> Many thanks for your suggestion. The result is below:
> 
> C:\RAPPORT\gnutesting>gplc -v lexsemact.pl
> Prolog compiler (GNU Prolog) 1.3.0
> By Daniel Diaz
> Copyright (C) 1999-2007 Daniel Diaz
> GNU Prolog comes with ABSOLUTELY NO WARRANTY.
> You may redistribute copies of GNU Prolog
> under the terms of the GNU General Public License.
> For more information about these matters, see the files named COPYING.
> 
> Path used: c:\gnu-prolog
> 
> *** Compiling
> 
> --- file: lexsemact.pl
> pl2wam -o C:\Documents and Settings\pauline\Local Settings\Temp\gplc2.wam 
> lexsem
> act.pl
> input file already specified (and)
> compilation failed
> deleting temporary files before exit
> delete C:\Documents and Settings\pauline\Local Settings\Temp\gplc2.wam
> 
> C:\RAPPORT\gnutesting>gplc -v prep530.pl
> Prolog compiler (GNU Prolog) 1.3.0
> By Daniel Diaz
> Copyright (C) 1999-2007 Daniel Diaz
> GNU Prolog comes with ABSOLUTELY NO WARRANTY.
> You may redistribute copies of GNU Prolog
> under the terms of the GNU General Public License.
> For more information about these matters, see the files named COPYING.
> 
> Path used: c:\gnu-prolog
> 
> *** Compiling
> 
> --- file: prep530.pl
> pl2wam -o C:\Documents and Settings\pauline\Local Settings\Temp\gplc2.wam 
> prep53
> 0.pl
> input file already specified (and)
> compilation failed
> deleting temporary files before exit
> delete C:\Documents and Settings\pauline\Local Settings\Temp\gplc2.wam
> 
> Pauline
> On Thu, 24 Apr 2008, Thierry Martinez wrote:
> 
> > Pauline Kra:
> >> C:\RAPPORT\gnutesting>gplc prep530.pl
> >> input file already specified (and)
> >> compilation failed
> >>
> >> C:\RAPPORT\gnutesting>gplc lexsemact.pl
> >> input file already specified (and)
> >> compilation failed
> >
> > You can try "gplc -v prep530.pl" and "gplc -v lexsemact.pl" instead.
> > Perhaps the output of these two commands may help us to understand
> > this error.
> >
> > -- 
> > Thierry.
> >
> 
> 
> 
> 
> ------------------------------
> 
> _______________________________________________
> Users-prolog mailing list
> [email protected]
> http://lists.gnu.org/mailman/listinfo/users-prolog
> 
> 
> End of Users-prolog Digest, Vol 61, Issue 6
> *******************************************
>