blob: a1be8bb7b3a32835e46d89cc0b467e1e5418f6c0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
implement Stob;
include "sys.m";
include "convcs.m";
sys : Sys;
init(nil : string) : string
{
sys = load Sys Sys->PATH;
return nil;
}
stob(nil : Convcs->State, str : string) : (Convcs->State, array of byte)
{
return (nil, array of byte str);
}
|
