Hi,
thank you for this information about how )copy works.
since it was such a simple idea to get )copy working with libapl i went back to
my libapl with fpc (free pascal) coding to get it working there.
i was able to write a sinple file reading procedure in fpc to have a copy
procedure for my libapl with fpc
i'll leave writing the file reading code for libapl with c and libapl with
python to others
i wrote a freepascal library unit that allows everything i want to run with
libapl with fpc (especiall your apl_exec('rs←(a,¨b)⌷¨⊂ar'); code with no
problems so i was very surprised when demoing my code that the folloing simple
code runtime exceptions resulted
there are only 2 problem apl code locations for these errors
just to clarify these errors only occur (along with the ⎕pw divide by zero
error which i resolved in src/UCS_string.cc a few years ago with your help)
with libapl with fpc - the only problems with libapl c and python were the
)copy problem
-
libapl.pas +1 and 1+1 and (1 2 3)=1 2 3
An unhandled exception occurred at $B7639BE7:
EAccessViolation: Access violation
$B7639BE7
$B763A33A
$B76415DB
$B75A1C76
$B76448B4
$B7551D0C
$B75527E2
$B7551698
$080489EB main, line 86 of libapl.pas
gdb libapl
(gdb) run
Program received signal SIGSEGV, Segmentation fault.
Parallel_job_list<PJob_scalar_B, false>::start (loc=0xb7ef29a3
"ScalarFunction.cc:157", first_job=..., this=0x2c) at PJob.hh:261
261 /// set current job. CAUTION: jobs may be modified by the
(gdb) where
#0 0xb7e38be7 in Parallel_job_list<PJob_scalar_B, false>::start(PJob_scalar_B
const&, char const*)
(loc=0xb7ef29a3 "ScalarFunction.cc:157", first_job=..., this=0x2c) at
PJob.hh:261
#1 0xb7e38be7 in ScalarFunction::do_scalar_B(ErrorCode&, Value const&,
ErrorCode (Cell::*)(Cell*) const) const
(this=0xb7f81420 <Bif_F12_PLUS::_fun>, ec=@0xbfffefa8: E_NO_ERROR, B=...,
fun=<optimized out>) at ScalarFunction.cc:157
#2 0xb7e3933a in ScalarFunction::eval_scalar_B(Value const&, ErrorCode
(Cell::*)(Cell*) const) const
(this=0xb7f81420 <Bif_F12_PLUS::_fun>, B=..., fun=&virtual table offset
156) at ScalarFunction.cc:130
#3 0xb7e405db in Bif_F12_PLUS::eval_B(Value_P) const (this=0xb7f81420
<Bif_F12_PLUS::_fun>, B=...) at ScalarFunction.hh:800
#4 0xb7d9f364 in Prefix::reduce_MISC_F_B_() (this=0x80f3a68) at Prefix.cc:975
#5 0xb7da0c76 in Prefix::reduce_statements() (this=<optimized out>) at
Prefix.cc:706
#6 0xb7e438b4 in StateIndicator::run() (this=0x80f3448) at
StateIndicator.cc:357
#7 0xb7d5dcdb in Executable::execute_body() const (this=0x80ee5e0) at
Executable.cc:261
#8 0xb7d50d0c in Command::finish_context() () at Command.cc:343
#9 0xb7d517e2 in Command::do_APL_expression(UCS_string&) (line=...) at
Command.cc:331
#10 0xb7d50698 in Command::process_line(UCS_string&) (line=...) at
Command.cc:141
#11 0xb7ec298b in apl_exec(char const*) (line=0x809edca <_$LIBAPL$_Ld33+2> "")
at libapl.cc:363
#12 0x080489eb in main () at libapl.pas:86
-
libapl.pas a[⍳4]+.=b[⍳4] and a+.=b
An unhandled exception occurred at $B7512726:
EAccessViolation: Access violation
$B7512726
(gdb) run
Program received signal SIGSEGV, Segmentation fault.
0xb7d1a726 in Bif_OPER2_INNER::PF_scalar_inner_product (tctx=...) at
Bif_OPER2_INNER.cc:250
250 ShapeItem z = tctx.get_N() * slice_len;
(gdb) where
#0 0xb7d1a726 in Bif_OPER2_INNER::PF_scalar_inner_product(Thread_context&)
(tctx=...) at Bif_OPER2_INNER.cc:250
#1 0xb7d1c22d in Bif_OPER2_INNER::scalar_inner_product() const
(this=0xbffff058) at Bif_OPER2_INNER.cc:235
#2 0xb7d1c22d in Bif_OPER2_INNER::eval_ALRB(Value_P, Token&, Token&, Value_P)
const
(this=0xb7f74200 <Bif_OPER2_INNER::_fun>, A=..., _LO=..., _RO=..., B=...)
at Bif_OPER2_INNER.cc:141
#3 0xb7d5a939 in DerivedFunction::eval_AB(Value_P, Value_P) const
(this=0x80f3448, A=..., B=...) at DerivedFunction.cc:216
#4 0xb7d9e163 in Prefix::reduce_A_F_B_() (this=0x80f3a68) at Prefix.cc:1177
#5 0xb7da0c76 in Prefix::reduce_statements() (this=<optimized out>) at
Prefix.cc:706
#6 0xb7e438b4 in StateIndicator::run() (this=0x80f3448) at
StateIndicator.cc:357
#7 0xb7d5dcdb in Executable::execute_body() const (this=0x80ee510) at
Executable.cc:261
#8 0xb7d50d0c in Command::finish_context() () at Command.cc:343
#9 0xb7d517e2 in Command::do_APL_expression(UCS_string&) (line=...) at
Command.cc:331
#10 0xb7d50698 in Command::process_line(UCS_string&) (line=...) at
Command.cc:141
#11 0xb7ec298b in apl_exec(char const*) (line=0x809ede1 <_$LIBAPL$_Ld36+17> "")
at libapl.cc:363
#12 0x08048a60 in main () at libapl.pas:104
---
