Restoring Dropped Components In APL+WIN File 
Author Message
 Restoring Dropped Components In APL+WIN File

Does anyone have a utility to restore dropped components in an APL+WIN
SF file? (Don't ask why I need this :} )

Tim



Sun, 12 Feb 2006 05:45:35 GMT  
 Restoring Dropped Components In APL+WIN File
Found the solution myself!

I took a copy of files A and called it B. Then I dropped the 30
components of file B. After opening them with []xfntie, the []fsize of
the file A was

1 31 77508 0 0

For B the data was

31 31 76012 0 74956

Next I read the files in using []NREAD into a and b respectively. Now

(rho)a
77508

and

(rho)b
77508

and WHERE a?b gave

1 21 22 23 25 26 33 34 35

So I looked at

1+[]av(iota)a[(iota)36]

1 0 0 0 31 0 0 0 1 0 0 0 238 60 119 44 1 0 0 0 149 217 119 44 196 46 1
0 0 0 0 0 0 0 0 0

and

1+[]av (iota) [(iota)b]

31 0 0 0 31 0 0 0 1 0 0 0 238 60 119 44 1 0 0 0 91 196 125 44 236 40 1
0 0 0 0 0 204 36 1 0

I then looked at

256 256 256?77508
1 46 196

256 256 256?76012
1 40 236

256 256 256?74956
1 36 204

So it became obvious to chance changing the 31 in b[1] to  []av[2] and
b[33 34 35] to av[1] then write b to a new file C. When I opened C
with []xfntie all was well as []fsize was

1 31 76012 0 0

and it read all my data perfectly well negating the need to change
b[25 26 27] to av[1+236 40 1]

However, I rewrote all components to a new file to make sure.

regards

Tim



Wed, 15 Feb 2006 15:04:31 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. New fast query facility for apl component files

2. File loaded drop downs won't load...

3. Drop combo - restore to blank condition

4. APL+WIN and APL tutorials for CPCUG

5. Working DOS Files with APL Win 3.0

6. APL+DOS to APL+WIN migration aid

7. Migrating APL+DOS to APL+WIN

8. Paradox and APL*PLUS II (Or APL+WIN) and Memo Fields

9. Win application experience with Win+APL?

10. Save to file/restore from file - Lisp structures

11. APL Objects: DCOs (Dyalog Component Objects)

12. File locking in Win 95/Win NT

 

 
Powered by phpBB® Forum Software