1Brutusext: module 2{ 3 # More tags, needed by Cook 4 SGML, Text, Par, Extension, Float, Special: con Brutus->NTAG + iota; 5 6 # Output formats 7 FLatex, FLatexProc, FLatexBook, FLatexPart, FLatexSlides, FLatexPaper, FHtml: con iota; 8 9 # Cook element 10 Celem: adt 11 { 12 tag: int; 13 s: string; 14 contents: cyclic ref Celem; 15 parent: cyclic ref Celem; 16 next: cyclic ref Celem; 17 prev: cyclic ref Celem; 18 }; 19 20 21 init: fn(sys: Sys, draw: Draw, bufio: Bufio, tk: Tk, tkclient: Tkclient); 22 create: fn(parent: string, t: ref Tk->Toplevel, name, args: string): string; 23 cook: fn(parent: string, fmt: int, args: string) : (ref Celem, string); 24}; 25