From ca1042d3d05e5e9b2b5094b04197c96ec3b34bfe Mon Sep 17 00:00:00 2001 From: "Charles.Forsyth" Date: Wed, 16 Jan 2008 01:19:38 +0000 Subject: 20080116-0125 --- module/factotum.m | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'module/factotum.m') diff --git a/module/factotum.m b/module/factotum.m index 6dd98d93..85165ebd 100644 --- a/module/factotum.m +++ b/module/factotum.m @@ -33,4 +33,23 @@ Factotum: module dump: fn(a: array of byte): string; setdebug: fn(i: int); + + Aattr, Aval, Aquery: con iota; + + Attr: adt { + tag: int; + name: string; + val: string; + + text: fn(a: self ref Attr): string; + }; + + parseattrs: fn(s: string): list of ref Attr; + copyattrs: fn(l: list of ref Attr): list of ref Attr; + delattr: fn(l: list of ref Attr, n: string): list of ref Attr; + takeattrs: fn(l: list of ref Attr, names: list of string): list of ref Attr; + findattr: fn(l: list of ref Attr, n: string): ref Attr; + findattrval: fn(l: list of ref Attr, n: string): string; + publicattrs: fn(l: list of ref Attr): list of ref Attr; + attrtext: fn(l: list of ref Attr): string; }; -- cgit v1.2.3