File Operators(work in progress)

KEY:
D: Dyadic; M: Monadic; N: Niladic

Operators
Commentary    Op Name Code Result
Commentary N #FILE File Object #FILE =>f; f %** $; File[I133R1C1:P]N:;FC:
Commentary M #FILE File Object '<1>---------' $;
'test.txt'#file =>f %** $;
'<2>---------' $;
'path:\only\'#file =>f %** $;
'<3>---------' $;
'dir\test.txt'#file =>f %** $;
'<4>---------' $;
'disk:\d1\d1a\test.txt'#file =>f %** $;
'<5>---------' $;
'bad\::\form/test.txt'#file =>f %** $;
<1>---------
File[S24R2C1:P]N:test.txt;FC:
<2>---------
File[S73R2C1:P]N:;FC:path:\only\
<3>---------
File[S122R2C1:P]N:test.txt;FC:dir\
<4>---------
File[S173R2C1:P]
  N:test.txt;FC:disk:\d1\d1a\
<5>---------
File[S224R2C1:P]
  N:test.txt;FC:bad\::\form\
Commentary D #FILE File Object $$ 'c:\live'#fc =>fc;
'x:\test'#fc =>fc;
'test.txt'#file fc =>f; f %**$;
File[S224R3C1:P]N:
  test.txt;FC:x:\test\
Commentary   Stream Ops Stream Ops 'c:\glee\website\bases'#fc =>fc;
'GBONU.htm'#file fc =>f;
f @->>&'Operators' ;f ->>$;
Operators; Numeric</TITLE>
Commentary D Hex Look Hex Look 'c:\glee'#fc =>fb;
'website\bases'#fc =>fw;
'gbofile.htm'#file(fb,fw) =>f;
f[_5..20+(f `->>&"gbofile")]:hex $;
R>..'gbofile.htm'#file(fb,
53002666666626762266662662
2EDA772F69C5E84D7369C5862C

Methods and Properties
Commentary  Prop Code Result
  :create
:destroy
'c:\glee\user\testfile.txt'#file =>f;
'<1> '(f:create) $;
'<2> '(f:props) $;
'<3> '(#false =>[:ro]f )$;
'<4> '(f:destroy) $;
'<5> '(f:props) $;
<1> 1
<2> D[R]; PPos[1]; B[Y]; E[Y]; Pos[1]; NE[0];O[W];Hnd[1864];RO[N]
<3> 0
<4> 1
<5> D[X]; PPos[0]; B[Y]; E[Y]; Pos[0]; NE[0];O[C];Hnd[0];RO[Y]
  :bof    
  :eof    
  :ext    
Commentary :fc "<1>---------"$;
'c:\glee\website\bases'#fc =>fc;
'gbfld.htm' #file fc =>f; f:fc $;
f[0..18+ (f `->>&'field')] $;
"<2>---------"$;
'c:\glee\website\comments'=>[:fc]f;
'GCFLD.htm'=>[:name]f; f:name $;
f[0..23+(f `->>&'field')] $;
<1>---------
c:\glee\website\bases\
Field Base</TITLE>
<2>---------
GCFLD.htm
Field: Comments</TITLE>
  :fname    
Commentary :name 'c:\glee\website\comments'#fc =>fc;
"<1>---------"$;
'GCActivity.htm'#file fc =>f;
f:name $; (f[1..25+142]) $;
"<2>---------"$;
'GCFLD.htm'=>[:name]f;
f:name $; (f[1..25+142]) $;
<1>---------
GCActivity
<TITLE>Activity Comments<
<2>---------
GCFLD
<TITLE>Field: Comments</T
Commentary :props 'c:\glee\website\bases'#fc =>fc;
'gbfld.htm' #file fc =>f;
f:props$;f @->> 2000; f:props $;
<1>------
D[X]; PPos[0]; B[Y]; E[N]; Pos[0]; NE[8249]
<2>------
D[X]; PPos[0]; B[N]; E[N]; Pos[2000]; NE[8249]
  :size 'c:\glee\website\bases'#fc =>fc;
'gbfld.htm' #file fc =>f;
f:size $;
8249