implement Pipes;include "sys.m"; sys: Sys; FD, pipe, print: import sys;include "draw.m";Pipes: module{ init: fn(ctx: ref Draw->Context, args: list of string);};init(ctx: ref Draw->Context, args: list of string){ sys = load Sys Sys->PATH; # Create an array of file descriptors. This must have a pre-determined size. descs := array[2] of ref FD; f1 := pipe(descs); if (f1 != 0) { sys->fprint(sys->fildes(2), "Failed to created pipe.\n"); exit; } print("Pipe created successfully.\n");}
implement Pipes;
include "sys.m";
sys: Sys;
FD, pipe, print: import sys;
include "draw.m";
Pipes: module
{
init: fn(ctx: ref Draw->Context, args: list of string);
};
init(ctx: ref Draw->Context, args: list of string)
{
sys = load Sys Sys->PATH;
# Create an array of file descriptors. This must have a pre-determined size.
descs := array[2] of ref FD;
f1 := pipe(descs);
if (f1 != 0) {
sys->fprint(sys->fildes(2), "Failed to created pipe.\n");
exit;
}
print("Pipe created successfully.\n");
}