class KNOTFIO




Public


Constants
const Header:STR:="#_Knot_Data_Ver.2.0_1996_KDM_#";

Features
.. Included as ReadKnotN
.. Included as ReadKnotNS
end;
if ~ reply then #OUT+"Bad code in Braid word.\n"; end;
dataNum:INT:=1;
**** See definition module "KnotVar" .
return reply;
inStream.seek_from_front(pos);
**** end; SLength; return reply; else msFIO.ClearError(inStream); msFIO.Close(inStream); ErrorMessage('The file cannot open.',''); return false; end; return true; end ReadKnotNVer1;
end;
loop
**** read lines until 'endcode'
**** History.put; reply:=ReadKnotSVer1(inStream); msFIO.Close(inStream); if ~ reply then History.back; else UpdateCross:=true; end; SLength; return reply; else msFIO.ClearError(inStream); msFIO.Close(inStream); ErrorMessage('The file cannot open.',''); return false; end; return true; end ReadKnotNVer1;
#OUT+"File cannot open.\n";
if ~ reply then #OUT+"Failed in WriteBraid.\n"; end;
WriteKnotS(Knot:KNOT, outS:$OSTREAM, writeHeader,writeDate:BOOL, memo:STR):BOOL
if ~ BRAID_CNV::Knot2BraidWord(Knot,out wordStr) then
if reply then Knot.shiftToInside; end;
loop
**** read lines until 'endcode'
loop
**** read lines until 'endcode'

The Sather Home Page