ref: 6042bb8adffe111049edfcb8b2eb1ad84814ed69
dir: /module/rfc822.m/
RFC822: module
{
PATH: con "/dis/lib/rfc822.dis";
init: fn(b: Bufio);
# TO DO: multipart ...
# token values reserved to represent a word and a quoted string
Word, QString: con 1+iota;
Maxrequest: con 16*1024; # more than enough for anything sensible
Rfclex: adt {
fd: ref Bufio->Iobuf; # open on a single line
wordval: string; # text if Word or QString
tok: int; # last token seen
eof: int; # end of file (ignore subsequent ungetc)
seen: list of (int, string); # pushback
mk: fn(a: array of byte): ref Rfclex;
getc: fn(p: self ref Rfclex): int;
ungetc: fn(p: self ref Rfclex);
lex: fn(p: self ref Rfclex): int;
unlex: fn(p: self ref Rfclex);
skipws: fn(p: self ref Rfclex): int;
line: fn(p: self ref Rfclex): string;
};
readheaders: fn(fd: ref Bufio->Iobuf, limit: int): array of (string, array of byte);
parseparams: fn(ps: ref Rfclex): list of (string, string);
parsecontent: fn(ps: ref Rfclex, multipart: int, head: list of ref Content): list of ref Content;
mimefields: fn(ps: ref Rfclex): list of (string, list of (string, string));
# TO DO: parse addresses
quotable: fn(s: string): int;
quote: fn(s: string): string;
# convert an epoch time into http-formatted text
sec2date: fn(secs: int): string;
# convert a date in http text format to seconds from epoch
date2sec: fn(s: string): int;
# current time
now: fn(): int;
# current time as a string
time: fn(): string;
#
# mime-related things
#
Content: adt{
generic: string;
specific: string;
params: list of (string, string);
mk: fn(generic: string, specific: string, params: list of (string, string)): ref Content;
check: fn(c: self ref Content, oks: list of ref Content): int;
text: fn(c: self ref Content): string;
};
suffixclass: fn(name: string): (ref Content, ref Content);
dataclass: fn(a: array of byte): (ref Content, ref Content);
};