From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Fri, 22 Dec 2006 20:52:35 +0000 Subject: 20060303-partial --- module/alphabet/abctypes.m | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 module/alphabet/abctypes.m (limited to 'module/alphabet/abctypes.m') diff --git a/module/alphabet/abctypes.m b/module/alphabet/abctypes.m new file mode 100644 index 00000000..0acacfdc --- /dev/null +++ b/module/alphabet/abctypes.m @@ -0,0 +1,23 @@ +# warning: autogenerated code; don't bother to change this, change mktypeset.b or abc.b instead +Abctypes: module { + PATH: con "/dis/alphabet/abctypes.dis"; + Abccvt: adt { + values: ref Extvalues->Values[ref Abc->Value]; + + int2ext: fn(cvt: self ref Abccvt, v: ref Abc->Value): ref Alphabet->Value; + ext2int: fn(cvt: self ref Abccvt, ev: ref Alphabet->Value): ref Abc->Value; + dup: fn(cvt: self ref Abccvt, ev: ref Alphabet->Value): ref Alphabet->Value; + free: fn(cvt: self ref Abccvt, ev: ref Alphabet->Value, used: int); + }; + + proxy: fn(): chan of ref Proxy->Typescmd[ref Alphabet->Value]; + proxy0: fn(): ( + chan of ref Proxy->Typescmd[ref Alphabet->Value], + chan of (string, chan of ref Proxy->Typescmd[ref Abc->Value]), + ref Abccvt + ); +}; + +Abcsubtypes: module { + proxy: fn(): chan of ref Proxy->Typescmd[ref Abc->Value]; +}; -- cgit v1.2.3