Skip to content

More on APL Packages

From: A.J. Brown, 1 February 1993

Vector 9:4, page 122

development practice programming techniques

Transcribed from the printed issue; not yet reviewed. Read it in the PDF of the issue, page 122

I read with interest the article from Nicholas Small in Vector 9.3 (page 100).

The same problem had occurred to me some time ago, using APL*PLUS II. My solution was to write the attached utility. The reasons for the name are now lost in the mists of time, but this function is now an integral part of all my workspaces.

    ∇ ∆ex;∆∆∆A;Z
[1]   ⍝ 921124
[2]    ⎕WINDOW← 0 0 25 80 ⋄ ⎕TCFF
[3]   ⍝ Delete any programs not needed
[4]    ⎕EX '⍙p⍙ ∆unpost ∆find h PROG DISPLAY PACKVR UNPACKVR ORDLOC
        RELABEL STORAGE'
[5]   ⍝ ∆∆ex - matrix containing list of variables NOT to be deleted
        (must contain ∆∆ex)
[6]    Z←⎕EX(~+/∆∆∆A∧.=⍉∆∆ex)⌿∆∆∆A←((1↑⍴∆∆∆A),¯1↑⍴∆∆ex)↑∆∆∆A←⎕NL 2
[7]    ⎕FUNTIE ⎕FNUMS
[8]    0 ⎕INBUF ')SIC'
[9]    ¯1 ⎕INBUF 13
[10]   ¯1 ⎕INBUF ')SAVE'
[11]   ¯1 ⎕INBUF 13
[12]   ¯1 ⎕INBUF 'START'
    ∇

A.J. Brown, Cygnus Enterprises Limited