GNU APL crash

[Paul Rockwell]

Environment: SVN 1754, macOS 14.3.1, M1 Mac mini (Apple Silicon)

While attempting to run Blake McBride's APL Editor https://github.com/blakemcbride/APLEditor I encounter the following:

      E∆Edit ''

 

At all prompts you can type 'end' to exit or backup to the previous question.

You can often type 'help' to get help.

 

Enter your edit command?  add

[0]   foobar a

[1]   

Enter your edit command?  list

Enter the line numbers you wish to list, or [a,b,r]?  all

token:               'RETURN_EXEC' at /Volumes/MyPassport/paulrockwell/Documents/Build/GNU_APL/src/Command.cc:617

token.get_Class():   'TC_RETURN' at /Volumes/MyPassport/paulrockwell/Documents/Build/GNU_APL/src/Command.cc:617

token.get_tag():     '0x520A000D' at /Volumes/MyPassport/paulrockwell/Documents/Build/GNU_APL/src/Command.cc:617

*** useless apl.lines (no CXXFLAGS=-rdynamic -gdwarf-2)

----------------------------------------

-- Stack trace at /Volumes/MyPassport/paulrockwell/Documents/Build/GNU_APL/src/Command.cc:617

----------------------------------------

0x1001ad9a0 main

0x1000a9bc0  Workspace::immediate_execution(bool)

0x10011ec84   Command::process_line()

0x10011eec8    Command::process_line(UCS_string&, std::__1::basic_ostream<char, std::__1::char_traits<char>>*)

0x10012268c     Command::do_APL_expression(UCS_string&)

0x100137b40      Command::finish_context()

========================================

========================================

Process exited with status 0

It's not clear what statement in the set of functions is being executed at this point that throws the error.

I'm also finding that the main editor E∆Edit function won't execute properly after immediately copying it from another workspace.

It throws a SYNTAX ERROR on a very simple assignment statement in this case. 

Opening the function with the standard editor and displaying it allows the function to run.

 

      )clear

CLEAR WS

      )copy EDITOR

SAVED 2024-02-20 20:11:19 (GMT-6)

      )fns

E∆          E∆Add       E∆Ail       E∆CJ        E∆CS    E∆Change    E∆Clear

E∆Copy      E∆Ctit      E∆DIV       E∆Delete    E∆EHN   E∆ER        E∆Ealn

E∆Edit      E∆EditLine  E∆Eoi       E∆Erase     E∆Find  E∆Get       E∆LJ

E∆LP        E∆LPH       E∆Lck       E∆List      E∆Move  E∆New       E∆O

E∆Omega     E∆PI        E∆Parse     E∆Pic       E∆Pim   E∆Pin       E∆Piv

E∆RND       E∆RS        E∆Replace   E∆Revert    E∆SS    E∆Save      E∆Screen

E∆VI        E∆Vck

      E∆Edit ''

SYNTAX ERROR+

E∆Edit[10]  orig←Mat

            ^   ^

      )reset

      ∇E∆Edit[⎕]

    ∇

[0]   E∆Edit fun;Mat;qq;fn;bv;orig;Cms;Pad;Delim;⎕IO;⎕PW                                 

[1]    ⎕PW←200

[2]    ⎕IO←1

[3]    Delim←,'∵'

[4]    Cms←''

[5]    Pad←'  '

[6]    →(0≠⍴,fun)/EN0

[7]    Mat←0 0⍴''

[8]    →EN5

[9]    EN0:→(0=1↑⍴Mat←⎕CR fun)/ER1

[10]   EN5:orig←Mat

[11]   ' '

[12]   'At all prompts you can type ''end'' to exit or backup to the previous question.'

[13]   'You can often type ''help'' to get help.'

[14]   ' '

[15]   qq←   'add       =  to add; insert; or write over a line,'

[16]   qq←qq,'edit      =  to modify an existing line,'

[17]   qq←qq,'delete    =  to delete a group of lines,'

[18]   qq←qq,'move      =  to move lines from one place to another,'

[19]   qq←qq,'copy      =  to copy lines from one place to another,'

[20]   qq←qq,'find      =  to find a character string,'

[21]   qq←qq,'replace   =  to search and replace a character string,'

[22]   qq←qq,'screen    =  to search and list your function a screen at a time,'

[23]   qq←qq,'list      =  to scroll the contents of your function on your screen,'

[24]   qq←qq,'new       =  to erase the entire function,'

[25]   qq←qq,'save      =  save function definition,'

[26]   qq←qq,'original  =  revert back to original definition,'

[27]   qq←qq,'get       =  get a different function to edit'

[28]   qq←','E∆Parse qq

[29]   fn←'E∆Add,E∆Change,E∆Delete,E∆Move,E∆Copy,E∆Find,E∆Replace,E∆Screen,E∆List,E∆New,E∆Save,E∆Revert,E∆Get'

[30]   fn←','E∆Parse fn

[31]   EN1:→(2↑bv←qq E∆Pim'Enter your edit command')/END,EN1

[32]   ⍎,(2↓bv)⌿fn

[33]   →EN1

[34]   END:→(∨/(⍴Mat)≠⍴orig)/EN4

[35]   →(∧/∧/Mat=orig)/0

[36]   EN4:→('yn'E∆Pic'Function has been modified; leave anyway')/(3⍴EN4),0,EN1

[37]   EN2:→(0∊⍴Mat)/EN3

[38]   →('yn'E∆Pic'Do you wish to return to your original text')/(3⍴EN2),0,EN3

[39]   EN3: →0

[40]   ER1:E∆ER'Function ',fun,' does not exist.'

    ∇

[41] ∇

      E∆Edit ''

 

At all prompts you can type 'end' to exit or backup to the previous question.

You can often type 'help' to get help.

- Paul Rockwell