DIRECTORYInterFile,TextEdit,RopeFrom,CIFS,File,IO,RopeEdit,RopeIO,RopeReader;GetInterFileImpl: CEDAR PROGRAMIMPORTS CIFS, RopeFrom, RopeEdit, RopeIO, RopeReader, TextEditEXPORTS InterFile =BEGIN OPEN InterFile;FromFileError: PUBLIC ERROR = CODE;FromFile: PUBLIC PROC [fileName: ROPE, start: Offset _ 0, len: Offset _ MaxLen]RETURNS [root: Ref] = {fh: CIFS.OpenFile = CIFS.Open[fileName, CIFS.read];file: File.Capability _ CIFS.GetFC[fh];root _ FromFileC[file,start,len];CIFS.Close[fh] };FromFileC: PUBLIC PROC [file: File.Capability, start: Offset _ 0, len: Offset _ MaxLen] RETURNS [Ref] = {RETURN [FromRope[RopeFrom.File[file,start,len]]] };FromStream: PUBLIC PROC [stream: IO.Handle, len: Offset _ MaxLen] RETURNS [Ref] = {RETURN [FromRope[RopeIO.GetRope[stream,len]]] };FromRope: PUBLIC PROC [rope: ROPE, start: Offset _ 0, len: Offset _ MaxLen] RETURNS [Ref] = {source: RopeReader.Ref _ RopeReader.Create[];RopeReader.SetPosition[source,RopeEdit.Substr[rope,start,len]];RETURN [Tree[source]] };Tree: PROC [source: RopeReader.Ref]RETURNS [root: Ref] = {RETURN [TextEdit.DocFromNode[TextEdit.FromRope[RopeReader.GetRope[source]]]] };StartGetFile: PUBLIC PROC = {};END.Current limited syntax for Tioga InterDoc files:node = '{ typename property* contents child* '}property = propname '= ( text | node )text = '< character* '>contents = ( text | run )* | otherrun = '{ looks text '}looks = "looks=" textother = varietyname '[ text ']child = node    Ž  -- GetInterFileImpl.Mesa-- written by Paxton.  January 1981-- last written by Paxton. August 24, 1982 10:40 am-- not implemented yetÊÝ  ˜ JšÏc™Jš#™#Jš3™3J˜ JšÏk	˜	J˜
J˜	J˜	Jšžœ˜J˜Jšžœ˜J˜	J˜J˜J˜ šœž˜Jšžœžœ2˜>Jšžœ˜—Jšžœžœ˜J˜ Jšœžœžœžœ˜#J˜ šÏnœžœžœžœ*˜OJšžœ˜Jšœžœžœžœ˜3Jšœžœ˜'J˜!Jšžœ˜J˜ —šŸ	œžœžœBžœ
˜iJšžœ-˜3J˜ —š
Ÿ
œžœžœ
žœžœ
˜SJšžœ*˜0J˜ —š
Ÿœžœžœžœ+žœ
˜]J˜-J˜?Jšžœ˜J˜ —šŸœžœ˜#Jšžœ˜Jš™JšžœI˜OJ˜ —šŸœžœžœ˜J˜J˜ —Jšžœ˜J˜ J˜0J˜ J˜/J˜&J˜J˜"J˜J˜J˜J˜J˜ J˜ — …—    â  M  