Much better than yesterday. It work like a charm. Not completely tested through.
Feel free to improve.
Xtian.
------- copy from here -------
)sic
)erase edit
∇skipwrite edit funct;fd;lines;fs_name;z;r;SaveTTY
fs_name←18 ⎕cr funct ⍝ The file name in the
filesystem
⍝ ---------------------------------------------------------------------------
⍝ Check if it is a request to reedit the previous written file in filesystem
⍝ very usefull in case of a syntax error while ⎕fx 'ing the function ...
⍝ ---------------------------------------------------------------------------
→(2=⎕nc 'skipwrite')/SkipWrite ⍝ If a left arg then
skip write to the file
lines←{(⎕ucs 10),⍨(∼⌽∧\⌽⍵=' ')/⍵} ¨ ⊂[⎕io+1] ⎕cr funct ⍝ The lines of the
function
⍝ --------------------------------------------------
⍝ write the contents of this "funct" into the file
⍝ --------------------------------------------------
→(0>fd← "w" ⎕FIO[3] fs_name)/Error ⍝ Open for writing
⊣ {⍵ ⎕FIO[23] fd} ¨ lines ⍝ write all lines
⊣ ⎕FIO[4] fd ⍝ Close the file
⍝ ------------------
--------------------------------
⍝ Now do the actual edition ...
⍝ --------------------------------------------------
SkipWrite:
SaveTTY←⎕IO⊃⍎')HOST stty -g'
⊣⍎')HOST >/dev/tty stty sane'⊣⍎')HOST >/dev/tty ','/usr/bin/vi',' ',fs_name
⊣⍎')HOST >/dev/tty stty ',SaveTTY
⍝ ----------------
⍝ and try ⎕fx it
⍝ ----------------
→(0≠"r" ⎕fio[31] fs_name)/Error ⍝ Can not read file ?
→ Error
z←⎕fio[26] fs_name ⍝ First pass, read the
whole file
lines←⍳+/((↑"\n")=z) ⍝ Compute the iota for
each line
z←(⍴lines)⍴⍬ ⍝ Preallocate "z" to
the right size
fd←⎕fio[3] fs_name ⍝ Open the file
⊣ {⊣z[⍵]←⊂19 ⎕cr ⎕ucs ¯1↓⎕fio[8] fd} ⍤0 lines ⍝ Put each line in the
preallocated "z"
⊣ ⎕fio[4] fd ⋄ →Fix ⍝ Close the file and
⎕FX it
Error: ⎕ES ∊'Error on file "',fs_name,
'": ',⎕fio[2] | ⎕fio[1] ''
Fix: r←⎕fx z
⍝
----------------------------------------------------------------------------------------
⍝ Well, if "r" is an integer then it is a syntax error, if it is a string then
it succeed.
⍝
----------------------------------------------------------------------------------------
⍝
→(0=↑0⍴r)/Syntax ⍝ A number → then a
systax error
Ok: ⎕←∊ "Function '" (r) ("' saved.") ⋄ →0 ⍝ Probably a
succesfull save or a rename.
⍝ ----------------------------------
⍝ We get here on errors while saving
⍝ ----------------------------------
Syntax: 9 ⎕cr "Beware that you can not edit a running function or a suspended function on the
stack, try )sic before launching \"edit\"."
∊ "Error at line:" (z) ("( Use: 1 edit '" funct "' ) to have a chance to fix it
without having to reenter all your latest modifications.")
∇
------- up to here -------
