it seems not possible to use (share) with packed elements.
i.e.
(set 'flash (share))
(share flash (pack (dup "u" 10) (sequence 1 10)))
According to the docs (share) should work with any newlisp expression.
When forking processes and calling C-libs from these processes it would be nice to be able to set the (share) in the parent process without the neccessity to repack it in the child process.
Or do i miss something obvious here ?
Regards
Heiko
Perhaps you forgot to
> (set 'flash (share))
4419780608
> (share flash (pack (dup "u" 10) (sequence 1 10)))
" 01 00 02 00 03 00 04 00 05 00 06 00 07 00b 00t 00n 00"
> (unpack (dup "u" 10) (share flash))
(1 2 3 4 5 6 7 8 9 10)
>
The above works for me on macOS, Linux, FreeBSD and Windows.
Ps: also included a qa-specific-tests/qa-share in the newlisp-10.7.4.tgz source distribution here: http://www.newlisp.org/downloads/development/inprogress/
hm, i meant reading the (shared memory) from a C-lib.
i.e.
Parent <-> (share mem) <-> Forked child (calling the C-lib)
Parent:
(set 'flashMemory (share))
(share flashMemory (rand 0xFFFF 100))
Forked Child:
(emulavr_load_flash (pack (dup "u" 100) flashMemory))
C-lib prints rubbish numbers:
ubyte * emulavr_load_flash(ubyte * flash_prom) {
printf("EMULAVR FLASH intro: 0x%04X 0x%04Xn", flash_prom[0],flash_prom[1]);
}
In this changed example from newlisp-10.7.4/qa-specific-tests/qa-share
(set 'flash (share))
(share flash (pack (dup "u" 10) (sequence 1 10)))
(define (get-data adr)
(unpack (dup "u" 10) (share adr)))
(spawn 'X (get-data flash))
(sync 10)
(println X " = " (sequence 1 10))
(if (= X (sequence 1 10))
(println "test passed SUCCESSFUL")
(println "test passed with error"))
If your example tries to retrieve packed shared memory, it's wrong:
(pack (dup "u" 100) flashMemory)
the correct syntax would be:
(unpack (dup "u" 100) (share flashMemory))
if you