Jack,
the last few lines got a bit screwed up in the reader, I am guessing a
cut and paste problem.
I knew I had seen something about this, so I searched my emails and
Markus DeFreitas emailed me privately after he downloaded the document,
offering the following snippets:
so, with Marks permission suitable sought (albeit within this posting)
to allow me to cut and paste, I offer the following:
I've just started to implement some stuff based on your contribution
re: the importing and exporting of files from Cache 3 programmatically.
Just a couple of additions/errata:
1) this is how i intend to implemented the %GIF equivalent... the
problem was determining the globals contained within the .GOF before
importing it ( i just parse the header)
k ^%utility($j)
s IO=0
s header=$$header^%Wgr(File_":(""RU"")",7,0)
S globallist=$P(header,$C(22)_"#"_$C(1),2)
F L=1:1 D QUIT:global=""
.S global=$P(globallist,$C(19,94,1),L) QUIT:global=""
.s ^%utility($J,global)=""
s flag=$$main^%Wgr(File_":(""RU"")",7,"*",0,0,0)
2) the line: ( and watch the line wraps here)
Set GLO="" s GC=0 For G=1:1 Set GLO=$O(^%utility($J,GLO)) Quit:GLO="" i
$d(@GLO) s GC=GC+1,glist(GC)=GLO
has a error because it looks like it needs an extra space before the
i $d(@GLO)
it might need to have an extra space using some to
force the spaces... and also when i copy and paste, it screws up the
quotes (but that might be an internet explorer/studio font issue.)
one more thing, so far the import code for routines and globals (and
the exports too... but the export format isn't backwards compatible)
work fine on Cache 5.04, so i guess, its more handy than i thought.
so once again, I offer the original code ( pinched from someone else)
and now I offer some potential fixes (again pinched from someone else)
I can't spell "plagerise" but if I could, it would probably be
appropriate . . .
see if this bit helps. (and if it does, I will post the additions into
the document)
kev
