build: add the SIBO SDK
This commit is contained in:
@@ -0,0 +1,31 @@
|
||||
/* 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);
|
||||
}
|
||||
Reference in New Issue
Block a user