class KNOTFIO |
---|
const Header:STR:="#_Knot_Data_Ver.2.0_1996_KDM_#"; |
---|
.. 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' |