32 lines
661 B
C
32 lines
661 B
C
/* SUBPROC.C */
|
|
|
|
#include <p_std.h>
|
|
#include <p_gen.h>
|
|
#include <p_math.h>
|
|
#include <epoc.h>
|
|
#include "subproc.h"
|
|
|
|
GLREF_C TEXT *DatCommandPtr;
|
|
|
|
|
|
GLDEF_C INT main(VOID)
|
|
{
|
|
TEXT *pb;
|
|
SUBPROC_CL *pcl;
|
|
UWORD answer;
|
|
WORD logstat;
|
|
|
|
pb=DatCommandPtr+p_slen(DatCommandPtr)+1;
|
|
if (*pb!=sizeof(SUBPROC_CL))
|
|
return(E_GEN_ARG);
|
|
pcl=(SUBPROC_CL *)(pb+1);
|
|
if (!p_logona(pcl->pid,&logstat))
|
|
{
|
|
answer=(UWORD)(p_randl(&pcl->data)%(2*60*32));
|
|
p_sleept(answer);
|
|
if (logstat<0)
|
|
p_pcpyto(pcl->pid,pcl->poff,&answer,sizeof(UWORD));
|
|
}
|
|
return(0);
|
|
}
|