Thanks for your 2 cents worth, Alex -- and for 'picolisp-json' , which
the code uses, and which is really great . Now I don't need NodeJS !
I agree, that particular code was a 1st working version horrible
"quick and dirty" coded version, a much better version is attached.
But the point of
Yes, but please mention something about '(script ...) in the
main 'ref' "Invocation" Section. It took me a long time to find!
On 06/08/2023, Alexander Burger wrote:
> On Sun, Aug 06, 2023 at 07:20:40AM +0100, Jason Vas Dias wrote:
>> Wow ! I've just figured out the best exe
Wow ! I've just figured out the best execve(2) Shebang line for pil scripts:
$ cat myscript.l
#!/usr/bin/pil -script (car (nth (argv) 1)) (nth (argv) 2)
(let (ars (car (rest)))
(prinl (car (nth (file) 2)) " ARGS: " (sym ars))
)
(bye)
$ chmod +x myscript.l
$ ./myscript.l
myscript.l
Much better (final) version.
L_RT.l
Description: Binary data
Anyway , cut a long story short, this is the fixed script, thanks to
help from Alexander & Mike - sorry for misdirecting some reply emails
to the list .
Primarily, an un-quoted symbol should have been quoted, and
a '(list ...)' should have been a '(cons ...)' .
These are the sort of problems
Loop is now as you suggested, same problem :
(let ( ... r NIL)
...
(for r (idx ratr)
(when (and (bool r) (lst? r))
(let
( (k . v) r )
(case k
(( "dst" "gateway" "dev" "metric" ))
(T
(out 1 (prin (pack k ":" v
cx,(%rsi)
0x00444913 <+115>: mov%rbx,(%r12)
0x00444917 <+119>: mov%rbx,%rcx
0x0044491a <+122>: mov%rdx,%rbx
0x0044491d <+125>: mov0x8(%rdx),%rsi
=> 0x00444921 <+129>: mov0x8(%rsi),%rdx
s directly to the list.
>
> ☺/ A!ex
>
>
> On Tue, Aug 01, 2023 at 10:34:48PM +0100, Jason Vas Dias wrote:
>>
>> Good day -
>>
>> Why, without a final '+' argument, does the attached program coredump,
>> when with a final '+' argument (enabli
ts).
Is this allowed ? The documentation suggests so IMHO.
Then, if so, there does appear to be a problem with interaction
of 'idx' and the '+' debugging mode that results in this coredump
&| the coredump causing problem not being detected.
Best Regards,
Jason
On 02/08/2023, Jason Vas Dias
pil
development team - it is one that has got me foxed & don't have time
to investigate it in depth .
Best Regards,
Jason
On 02/08/2023, tankf33...@disroot.org wrote:
> On 02-08-2023 03:03, Jason Vas Dias wrote:
>> Here's an improved version of that program,
>
>
> $ pil L
ach time, and does NOT run the risk of making the
database inaccessable on some kind of internal failure as seems
to be happening whenever I try to use '(solve ...) .
Some clarification from the expert on this would be
MUCH APPRECIATED!
Thank you, despite some niggles picoLisp is my favorite
scripting
result usable in same
process by '(for x (res)(...)) soon ?
Else I guess the best long-term fix IS to use SQLite3 / SolidDB / DB2
instead.
On 10/05/2022, Jason Vas Dias wrote:
> Actually, it appears to be after the first time I call '(for x (qry)(...))
> where 'qry is a function that
olve ...) stops working - why ?
I guess picoLisp's DB is kind of a work-in-progress / unfinished idea ?
On 10/05/2022, Jason Vas Dias wrote:
> I am also finding that when I run a function that calls '(solve ...) ,
> it works the first few times, but after a few calls, it stops
work OK, and then
they start returning NIL - why ?
Any help would be much appreciated.
On 10/05/2022, Jason Vas Dias wrote:
> Good day -
>
> I'd still love to hear some explanation about how
> the global '(pico~args)' symbol gets blown out
> by a function parameter named
# >= Abi
o have a build time >= Blt
o have a modification time >= Mtm
but the above query always returns NIL , I think because
many APKs do not specify any 'maxSdkVersion', so get
'AB<' set to 0 :
I want to define a piLog Predicate that says:
(or ( (=0 @APK AB<) (range @AB<
Good day Alex, picoLisp list -
Why does declaring a parameter named 'args', in a function that does
NOT use the '(args)' call, break things severely ?
I had a function that does NOT use the built-in 'args, but which
declared a parameter named 'args :
(de a ( fun data args )
Many thanks for most informative replies !
OK, I agree, leave 'struct and 'native as they are -
maybe / perhaps with ONLY the addition of:
o Interpretation of a 'struct descriptor value of '( NIL . sz )'
or '( F . sz ) ( Fill / Fix ( since 'P and 'I are taken)) ?
meaning PAD of size
Thanks Alex -
But I have to respectfully disagree - 'struct' should know
that if its current offset is 10, and it next needs to layout
a 4-byte integer, it should insert 2 pad bytes to begin
the integer at offset 12 - the same as it should know
in the 'struct tm' case, that if it has
Much thanks for your most informative reply, Alex -
But the main point I was trying to make is that this behaviour
is just plain wrong IMHO :
: (struct Ptr '( P W I ) '(1 . 8) '(2 . 2) '(3 . 4))
-> (1 2 3)
: (struct Ptr '( B . 32 ))
-> (1 0 0 0 0 0 0 0 2 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0
So finally I got llvm-9.0.1 built on CentOS-7, and installed under
/usr/local, with $PATH set to /usr/local/bin:/usr/bin and
LD_LIBRARY_PATH set to /usr/local/lib, only to discover that
a more recent version of readline-devel is required:
$ make
clang -w -D_OS='"Linux"' -D_CPU='"x86_64"'
t back to where I started from and reproduce the error, even
after 'make clean' .
So hence here is patch to Makefile to fix these issues - please
let me know best setting of $(MIN_LLVM_VERSION_RE) for this updated
Makefile.
Thanks & Best Regards,
Jason Vas Dias
Software Engineer, West Cork, I
t back to where I started from and reproduce the error, even
after 'make clean' .
So hence here is patch to Makefile to fix these issues - please
let me know best setting of $(MIN_LLVM_VERSION_RE) for this updated
Makefile.
Thanks & Best Regards,
Jason Vas Dias
Software Engineer, We
Hello Jason Vas Dias :-)
You are now subscribed
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Hello Jason Vas Dias :-)
You are now subscribed
subscribe
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
24 matches
Mail list logo