The GNU Modula-2 front end to GCC

gm2-libs-iso/pth

DEFINITION MODULE FOR "C" pth ;

(*
    Description: provides the absolute minimal interface to the libpth
                 necessary for COROUTINES, rtInt.
*)

FROM SYSTEM IMPORT ADDRESS ;

TYPE

   proc       = PROCEDURE (ADDRESS) ;

   size_t     = CARDINAL ;

   pth_uctx_t = ADDRESS ;



PROCEDURE pth_select (p1: INTEGER;
                      p2: ADDRESS;
                      p3: ADDRESS;
                      p4: ADDRESS;
                      p5: ADDRESS) : INTEGER ;


PROCEDURE pth_uctx_create (p: ADDRESS) : INTEGER ;


PROCEDURE pth_uctx_make (p1: pth_uctx_t;
                         p2: ADDRESS;
                         p3: size_t;
                         p4: ADDRESS;
                         p5: proc;
                         p6: ADDRESS;
                         p7: pth_uctx_t) : INTEGER;


PROCEDURE pth_uctx_save (p1: pth_uctx_t) : INTEGER ;


PROCEDURE pth_uctx_switch (p1: pth_uctx_t; p2: pth_uctx_t) : INTEGER ;


PROCEDURE pth_init () : INTEGER ;


END pth.