bug-apl
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Importing an ASCII workspace with APLASCII


From: Rowan Cannaday
Subject: Importing an ASCII workspace with APLASCII
Date: Mon, 14 Sep 2020 21:49:40 +0000

Hello, I'm trying to import an APL2 workspace into GNU APL with APLASCII.

For context, the APLASCII program was described & previously obtainable here:
http://www.chilton.com/~jimw/a2apapr1.html
http://www.chilton.com/~jimw/a2apapr2.html
The FTP server seems to be down, and I have not emailed the sitehost. I can share the workspace in a separate email (unsure mailing list preferences on attachments).

Here is how I loaded the workspace and started the install:
```
$ apl
      )IN /path/to/APLASCII.ATF
      INSTALL
Working...

```

And here is the output of APserver
```
$ /usr/local/bin/APserver --path /tmp/GNU-APL/APserver -H -v
sizeof(Svar_DB_server) is 32
sizeof(Svar_record) is    328
sizeof(Svar_partner) is   28
/usr/local/bin/APserver: listening on abstract AF_UNIX socket '/tmp/GNU-APL/APserver'
/usr/local/bin/APserver: entering main loop...
/usr/local/bin/APserver: new connection: fd 1
<-- IS_REGISTERED_ID(1001, 0, 0)
<-- REGISTER_PROCESSOR(1001, 0, 0, 0, "apl")
/usr/local/bin/APserver: new connection: fd 4
<-- IS_REGISTERED_ID(1001, 0, 0)
<-- IS_REGISTERED_ID(1002, 0, 0)
<-- REGISTER_PROCESSOR(1002, 0, 0, 0, "apl")
/usr/local/bin/APserver: connection[4] closed by peer
erased fd 4 (Id 1002:0:0) from connected_procs
/usr/local/bin/APserver: closed fd 4 (1 remaining)
<-- IS_REGISTERED_ID(100, 1001, 0)
/usr/local/bin/APserver: new connection: fd 4
/usr/local/bin/APserver: new connection: fd 5
<-- REGISTER_PROCESSOR(100, 1001, 0, 0, "AP100")
<-- REGISTER_PROCESSOR(100, 1001, 0, 1, "AP100-EV")
<-- MATCH_OR_MAKE( 53 00 00 00 56 00 00 00 00 00 00 00 00 00 00 00 00..., 100, 1001, 0, 1001, 0, 0)
created new offer:
<-- READ_SVAR_RECORD(0x03e90001)
<-- READ_SVAR_RECORD(0x03e90001)
<-- READ_SVAR_RECORD(0x03e90001)
<-- FIND_OFFERING_ID(0x03e90001)
<-- GET_EVENTS(1001, 0, 0)
<-- MATCH_OR_MAKE( 53 00 00 00 56 00 00 00 00 00 00 00 00 00 00 00 00..., 1001, 0, 0, 100, 1001, 0)
found pending offer from 1001 SV key 0x3e90001
<-- GET_EVENTS(1001, 0, 0)
<-- SET_STATE(0x03e90001, 1, "AP100.cc:141")
set_state(used) on SV by 100 at AP100.cc:141
<-- CLEAR_ALL_EVENTS(1001, 0, 0)
<-- SET_CONTROL(0x03e90001, 2)
set_control(2) on SV by 100
<-- READ_SVAR_RECORD(0x03e90001)
<-- SET_STATE(0x03e90001, 1, "APmain.cc:336")
set_state(used) on SV by 100 at APmain.cc:336
<-- SET_CONTROL(0x03e90001, 10)
set_control(10) on SV by 1001
<-- READ_SVAR_RECORD(0x03e90001)
<-- READ_SVAR_RECORD(0x03e90001)
<-- MAY_SET(0x03e90001, 0)
<-- SET_STATE(0x03e90001, 0, "Prefix.cc:1678")
set_state(set) on SV by 1001 at Prefix.cc:1678
<-- ASSIGN_VALUE(0x03e90001,  00 00 20 20 00 00 00 20 00 00 00 00 04 01 00 00 00...)
<-- SET_STATE(0x03e90001, 1, "AP100.cc:68")
set_state(used) on SV by 100 at AP100.cc:68
<-- SVAR_ASSIGNED(0x03e90001, 0, "APmain.cc:412")
<-- READ_SVAR_RECORD(0x03e90001)
<-- MAY_USE(0x03e90001, 0)
<-- MAY_USE(0x03e90001, 1)
<-- MAY_USE(0x03e90001, 2)
<-- MAY_USE(0x03e90001, 3)
```

I have removed the rest of the output, it repeats "MAY_USE(0x03e90001, N)" where N is an incrementing integer in what seems like an endless loop.

I was wondering if somebody had familiarity with this workspace, or what might be causing this issue.

Thanks,
 - Rowan Cannaday

reply via email to

[Prev in Thread] Current Thread [Next in Thread]