Jitsi screen sharing issues
Hi all, During last PilCon I repeatedly lost shared screen after several seconds of connection (or little more). Helped reconnection only. The same behavior on Linux+Chrome and MacOS+(Chrome or Safari). Maybe anyone knows how to solve such issue or some workaround? Best regards, Mansur Mamkin -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
PicoLisp mirror on github
Hi all! I've extended my previous script that handled https://bitbucket.org/mmamkin/picolisp/ Now we have also git-repository at https://github.com/picolisp/picolisp https://software-lab.de/picoLisp.tgz is checked four times a day and new commits are created when it has changed Best regards, Mansur Mamkin -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: Future of PicoLisp?
Hi all! About certbot: See also other tools: https://www.metachris.com/2015/12/comparison-of-10-acme-lets-encrypt-clients/ I've seen acmetool in action (written in Golang, so it requires no dependencies). I see there is a tool, written even in Bash Best regards, Mansur --skipped-- >> And let's make sure said landing page is served over HTTPS. It's 2017. > >Yes, yes, I know ;) In fact, it is on my todo list since half a year. > >I want to use Let's Encrypt, as I already do on another server. However, the >picolisp.com server is currently a mix of Wheezy, Jessie and Stretch, and >whatever I tried to get the certbot running resulted in a storm of Python >package mismatch error messages. No way .. I gave up, and decided to wait until >Debian Stretch is stable and thus available from my provider. > >♪♫ Alex >-- >UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
PicoLisp repository at Bitbucket.org
Hi all,
I've cloned tankfeeder's repository at Bitbucket and installed small
pil-application that checks http://software-lab.de/picoLisp.tgz for
changes and commits to the repo.
Repository address is https://bitbucket.org/mmamkin/picolisp
I plan to maintain it while I have VPS :).
Also we could install there some auto building scripts to provide fresh
deb-package. I would appreciate any ideas and help
Source code is listed below. Comments are welcome
Best regards,
Mansur Mamkin
# Example of 'app' user crontab entry:
# 10 0,6,12,18 * * * ./pil pilrepo/main.l -updaterepo -bye \
# 2>&1 >> log/pilrepo
#
# Setup:
# 1) clone your remote hg repository into ~/pilrepo/picoLisp/
# 2) provide SSH key to remote repository
(setq
*Root "pilrepo/"
*Repo (pack *Root "picoLisp/")
*TgzUrl "http://software-lab.de/picoLisp.tgz;
*Tgz (pack *Root "picoLisp.tgz")
*Curl (list 'curl '-z *Tgz '-o *Tgz '-w "%{http_code}" '--silent
*TgzUrl) )
(de updaterepo ()
(and
(_download)
(_extract)
(_commit)
(_push) ) )
# TODO: email me
(de _alert ()
NIL )
(de log @
(out NIL
(prinl (stamp) " PID: " *Pid " [INFO] " (pass text)) ) )
(de logerr @
(out NIL
(prinl (stamp) " PID: " *Pid " [ERROR] " (pass text)) ) )
(de _download ()
(log "Downloading @1..." *TgzUrl)
(case (in *Curl (read))
(200 (log "200 OK [@2 bytes]" (car (info Tgz))) T)
(304 (log "304 Not modified") NIL)
(T (logerr "@1 download failed" @) (_alert) NIL) ) )
(de _extract ()
(ifn (call 'tar '-x '-z '-C *Root '-f *Tgz)
(nil (logerr "'@1' extraction failed" *Tgz))
T ) )
(de _commit ()
(load (pack *Repo "src64/version.l"))
(let Msg (glue "." *Version)
(if (call 'hg 'commit '--cwd *Repo '-A '-m Msg)
(t (log "hg commit -m '@1'" Msg))
(nil (logerr "hg commit -m '@1' failed" Msg)) ) ) )
(de _push ()
(if (call 'hg '--cwd *Repo 'push)
(t (log "hg push succeeded"))
(nil (logerr "hg push failed")) ) )
# vi:et:ts=3:sw=3
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
PicoLisp repository at Bitbucket.org
Hi all,
I've cloned tankfeeder's repository at Bitbucket and installed small
pil-application that
checks http://software-lab.de/picoLisp.tgz for changes and commits to
the repo.
Repository address is https://bitbucket.org/mmamkin/picolisp
I plan to maintain it while I have VPS :).
Also we could install there some auto building scripts to provide fresh
deb-package,
I would appreciate any ideas and help
Source code is listed below. Comments are welcome
Best regards,
Mansur Mamkin
# Example of 'app' user crontab entry:
# 10 0,6,12,18 * * * ./pil pilrepo/main.l -updaterepo -bye 2>&1 >>
log/pilrepo
# setup:
# 1) clone your remote hg repository into ~/pilrepo/picoLisp/
# 2) provide SSH key to remote repository
(setq
*Root "pilrepo/"
*Repo (pack *Root "picoLisp/")
*TgzUrl "http://software-lab.de/picoLisp.tgz;
*Tgz (pack *Root "picoLisp.tgz")
*Curl (list 'curl '-z *Tgz '-o *Tgz '-w "%{http_code}" '--silent
*TgzUrl) )
(de updaterepo ()
(and
(_download)
(_extract)
(_commit)
(_push) ) )
# TODO: email me
(de _alert ()
NIL )
(de log @
(out NIL
(prinl (stamp) " PID: " *Pid " [INFO] " (pass text)) ) )
(de logerr @
(out NIL
(prinl (stamp) " PID: " *Pid " [ERROR] " (pass text)) ) )
(de _download ()
(log "Downloading @1..." *TgzUrl)
(case (in *Curl (read))
(200 (log "200 OK [@2 bytes]" (car (info Tgz))) T)
(304 (log "304 Not modified") NIL)
(T (logerr "@1 download failed" @) (_alert) NIL) ) )
(de _extract ()
(ifn (call 'tar '-x '-z '-C *Root '-f *Tgz)
(nil (logerr "'@1' extraction failed" *Tgz))
T ) )
(de _commit ()
(load (pack *Repo "src64/version.l"))
(let Msg (glue "." *Version)
(if (call 'hg 'commit '--cwd *Repo '-A '-m Msg)
(t (log "hg commit -m '@1'" Msg))
(nil (logerr "hg commit -m '@1' failed" Msg)) ) ) )
(de _push ()
(if (call 'hg '--cwd *Repo 'push)
(t (log "hg push succeeded"))
(nil (logerr "hg push failed")) ) )
# vi:et:ts=3:sw=3
(setq
*Root "pilrepo/"
*Repo (pack *Root "picoLisp/")
*TgzUrl "http://software-lab.de/picoLisp.tgz;
*Tgz (pack *Root "picoLisp.tgz")
*Curl (list 'curl '-z *Tgz '-o *Tgz '-w "%{http_code}" '--silent
*TgzUrl) )
# TODO: email me
(de _alert ()
NIL )
(de _download ()
(log "Downloading @1..." *TgzUrl)
(case (in *Curl (read))
(200 (log "200 OK [@2 bytes]" (car (info Tgz))) T)
(304 (log "304 Not modified") NIL)
(T (logerr "@1 download failed" @) (_alert) NIL) ) )
(de _extract ()
(ifn (call 'tar '-x '-z '-C *Root '-f *Tgz)
(nil (logerr "'@1' extraction failed" *Tgz))
T ) )
(de log @
(out NIL
(prinl (stamp) " PID: " *Pid " [INFO] " (pass text)) ) )
(de logerr @
(out NIL
(prinl (stamp) " PID: " *Pid " [ERROR] " (pass text)) ) )
(de _commit ()
(load (pack *Repo "src64/version.l"))
(let Msg (glue "." *Version)
(if (call 'hg 'commit '--cwd *Repo '-A '-m Msg)
(t (log "hg commit -m '@1'" Msg))
(nil (logerr "hg commit -m '@1' failed" Msg)) ) ) )
PicoLisp repository at Bitbucket.org
Hi all,
I've cloned tankfeeder's repository at Bitbucket and installed small
pil-application that
checks http://software-lab.de/picoLisp.tgz for changes and commits to the
repo.
Repository address is https://bitbucket.org/mmamkin/picolisp
Application source code is attached. Comments are welcome
Best regards,
Mansur Mamkin
(setq
*Root "pilrepo/"
*Repo (pack *Root "picoLisp/")
*TgzUrl "http://software-lab.de/picoLisp.tgz;
*Tgz (pack *Root "picoLisp.tgz")
*Curl (list 'curl '-z *Tgz '-o *Tgz '-w "%{http_code}" '--silent *TgzUrl) )
# TODO: email me
(de _alert ()
NIL )
(de _download ()
(log "Downloading @1..." *TgzUrl)
(case (in *Curl (read))
(200 (log "200 OK [@2 bytes]" (car (info Tgz))) T)
(304 (log "304 Not modified") NIL)
(T (logerr "@1 download failed" @) (_alert) NIL) ) )
(de _extract ()
(ifn (call 'tar '-x '-z '-C *Root '-f *Tgz)
(nil (logerr "'@1' extraction failed" *Tgz))
T ) )
(de log @
(out NIL
(prinl (stamp) " PID: " *Pid " [INFO] " (pass text)) ) )
(de logerr @
Re: Steps to reproduce strange behaviour with "till" and end-of-line
Hi Alexander,
I've just found this:
https://tools.ietf.org/html/rfc7230#section-3.2
3.2. Header Fields
Each header field consists of a case-insensitive field name followed
by a colon (":"), optional leading whitespace, the field value, and
optional trailing whitespace.
If we follow the RFC, so yes, it should be better to handle header names
case-insensitive way. Also see "optional leading whitespace" and
"optional trailing whitespace" :(
Best regards,
Mansur
13.05.2016 21:54, Alexander Burger пишет:
Hi Mansur,
as discussed just now in IRC, the problem is located. It results from
'_htHead' getting out of sync because of the missing space in
"X-Test:Test".
I changed @lib/http.l to handle it more gracefully ;)
♪♫ Alex
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: New article about bin/ssl
Hi all! I've fixed the article a little. "-" before file and key causes the parameter to be treated as a plain string instead of a file name. The string with leading hypen stripped will be sent instead of file content. No escaping is supported by the program itself. Thank you looks great! Question: "-" before *file* argument cause filename to be treated as string What does it mean when filename is handled as String? What kind of string? Is escaping supported? How is it treated, when its without -? I hope you clearify this in the wiki. Am 23.11.2015 08:13 schrieb "Mansur Mamkin" <mmam...@mail.ru <mailto:mmam...@mail.ru>>: Hi all! I've written article about using bin/ssl, but haven't yet linked it anywhere, you can found it here: http://picolisp.com/wiki/?ssl I ask Alex to link it to convenient place. Also, I would be glad if someone can review and check for grammar mistakes. Best regards, Mansur -- UNSUBSCRIBE: mailto:picolisp@software-lab.de <mailto:picolisp@software-lab.de>?subject=Unsubscribe -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
New article about bin/ssl
Hi all! I've written article about using bin/ssl, but haven't yet linked it anywhere, you can found it here: http://picolisp.com/wiki/?ssl I ask Alex to link it to convenient place. Also, I would be glad if someone can review and check for grammar mistakes. Best regards, Mansur -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: Updated kerberos library
Sorry for late responce. I've looked into fresh sources of Lighttpd, seems that patch hasn't been merged into http_auth.c at all. As for your question about licenses, I think you can do anything with all code in my library with no restriction. I'm too lazy to deal with writing licenses, I haven't seen any license in that patch too Best regards, Mansur Mamkin 26.10.2015 16:20, Alexander Williams пишет: This is really great, thanks! Although I'm personally not a fan of including C deps which are detached from upstream. Is there an alternative to using the supplied C code? Has the patch been merged into /mod_auth_kerb/? If yes, could I just use that shared lib instead? AW On Fri, Oct 23, 2015 at 12:03 PM, Mansur Mamkin <mmam...@mail.ru <mailto:mmam...@mail.ru>> wrote: Hi all, I've uploaded updated Kerberos authentication library to the Wiki. This library helps you to add SSO (Single Sign On) to your PicoLisp applications in Windows AD domain. That means your domain users don't need to enter login and password in the applications. Current version makes things slightly simpler, just several steps: * Set up kerberos environment * define 'krblogin' function similar to standard 'login' function * (load "kerbauth/kerbauth.l") * (krbinit "/path/myhost.keytab" "HTTP/myhost.example@example.com <mailto:myhost.example@example.com>") * add HTML link to "!krbneg" URL See README for detailed instructions Link: http://picolisp.com/wiki/?kerbauth -- UNSUBSCRIBE: mailto:picolisp@software-lab.de <mailto:picolisp@software-lab.de>?subject=Unsubscribe -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Updated kerberos library
Hi all, I've uploaded updated Kerberos authentication library to the Wiki. This library helps you to add SSO (Single Sign On) to your PicoLisp applications in Windows AD domain. That means your domain users don't need to enter login and password in the applications. Current version makes things slightly simpler, just several steps: * Set up kerberos environment * define 'krblogin' function similar to standard 'login' function * (load "kerbauth/kerbauth.l") * (krbinit "/path/myhost.keytab" "HTTP/myhost.example@example.com") * add HTML link to "!krbneg" URL See README for detailed instructions Link: http://picolisp.com/wiki/?kerbauth -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
New article - Installing local wiki with Kerberos authentication
Hi all! I'm happy to announce a litle article: Installing local wiki with Kerberos authentication http://picolisp.com/wiki/?localwikikerberos Best regards, Mansur Mamkin -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: A pragmatic solution to using arrays in picolisp
I support the last idea about that isn't necessary to touch core language, and if someone needs array support, it could be implemented the same way as e.g. ext and ht libraries. Best regards, Mansur --- skipped --- I don't think it's necessary to add arrays to the core language however, given a sufficiently featured array library, picolisp's FFI interface can be used to provide a nice abstraction above it. This is similar to how numeric arrays are used in Python with the numpy package. Functions are provided to copy data into and out of arrays from lists, dictionaries, or files, and the actual operations on the arrays are carried out by a native C library (and often third party libraries like blas/lapack). The arrays themselves are just opaque pointers to corrected sized and memory ordered malloc'ed regions. --- skipped --- -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: A Minimal PicoLisp DB/GUI Application
Hi Alex! That's great, thanks! Best regards, Mansur 12.01.2015 12:34, Alexander Burger пишет: Hi all, perhaps this is useful: A Minimal PicoLisp DB/GUI Application http://picolisp.com/wiki/?minDbGui ♪♫ Alex -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
About mail delivery from mail listing
Hi all, I saw that some mail listings have sequential numbering in mail subject. If some letter was not received, the hole in numbering is immediately evident. Best regards, Mansur And by the way, I receive mail from the list without problems now. It seems it was something with the mail system here at UiO; I had moved my PicoLisp inbox from local to server, but I hadn't updated my filter accordingly. ;-) Good to know. Unfortunately, there are still list members who don't receive the mails reliably. It would be good to have some rules or suggestions about how to handle this. ♪♫ Alex -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
translation A Radical Approach to Application Development into
Hi all, If there is a Russian speakers, welcome to http://notabenoid.com/book/39472 We began to translate A Radical Approach to Application Development into Russian, so any help is appreciated. Best regards, Mansur -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
tex to pdf and cyrillic text
ALT--PqdoetPd1364072482 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: base64 IEhpIEFsZXgsCkkndmUgdGVzdGVkIGNvbnZlcnRpbmcgdGV4LWZpbGUsIGdlbmVyYXRlZCBieSB0 aGUgd2lraSB0byBwZGYgb24gbXkgaG9tZSBVYnVudHUgCldoZW4gSSBoYXZlIGN5cmlsbGljIHRl eHQsIG9ubHkgYWRkaW5nIHRoZXNlIHN0cmluZ3MgcmVzdWx0cyB0byB2YWxpZCBwZGY6CsKgClx1 c2VwYWNrYWdlW3V0Zjhde2lucHV0ZW5jfQpcdXNlcGFja2FnZVtlbmdsaXNoLHJ1c3NpYW5de2Jh YmVsfQpcdXNlcGFja2FnZXtjbWFwfQoKVGhhdCB3YXMganVzdCBmb3IgaW5mbywgYmVjYXVzZSBJ IGN1cnJlbnRseSBkb24ndCB3YW50IHRvIGluc3RhbGwgYSBsb3Qgb2YgcGFja2FnZXMgaW50byBt eSBGcmVlQlNEL05hbm9CU0QgYm94IDopIEJlc3QgcmVnYXJkcywgCk1hbnN1csKg ALT--PqdoetPd1364072482 Content-Type: text/html; charset=utf-8 Content-Transfer-Encoding: base64 CjxIVE1MPjxCT0RZPkhpIEFsZXgsPGJyPkkndmUgdGVzdGVkIGNvbnZlcnRpbmcgdGV4LWZpbGUs IGdlbmVyYXRlZCBieSB0aGUgd2lraSB0byBwZGYgb24gbXkgaG9tZSBVYnVudHUgPGJyPldoZW4g SSBoYXZlIGN5cmlsbGljIHRleHQsIG9ubHkgYWRkaW5nIHRoZXNlIHN0cmluZ3MgcmVzdWx0cyB0 byB2YWxpZCBwZGY6PGJyPiZuYnNwOzxicj48cD5cdXNlcGFja2FnZVt1dGY4XXtpbnB1dGVuY308 YnI+XHVzZXBhY2thZ2VbZW5nbGlzaCxydXNzaWFuXXtiYWJlbH08YnI+XHVzZXBhY2thZ2V7Y21h cH08YnI+PGJyPlRoYXQgd2FzIGp1c3QgZm9yIGluZm8sIGJlY2F1c2UgSSBjdXJyZW50bHkgZG9u J3Qgd2FudCB0byBpbnN0YWxsIGEgbG90IG9mIHBhY2thZ2VzIGludG8gbXkgRnJlZUJTRC9OYW5v QlNEIGJveCA6KTwvcD5CZXN0IHJlZ2FyZHMsIDxicj5NYW5zdXImbmJzcDs8L0JPRFk+PC9IVE1M Pgo= ALT--PqdoetPd1364072482-- -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
tex to pdf and cyrillic text
Hi Alex,
Sorry, my previous letter was not plain text
I've tested converting tex-file, generated by the wiki to pdf on my home Ubuntu
When I have cyrillic text, only adding these strings results to valid pdf:
\usepackage[utf8]{inputenc}
\usepackage[english,russian]{babel}
\usepackage{cmap}
That was just for info, because I currently don't want to install a lot of
packages into my FreeBSD/NanoBSD box :)
Best regards,
Mansur
Checking pil on FreeBSD
Hi Alex! Finally I touched my FreeBSD installation to check last changes in pil. When I got last sources from code.google.com, I noticed absence of x86-64.freeBsd.code.l and x86-64.freeBsd.defs.l in the mercurial repository. Other things work fine. Best regards, Mansur -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: Trouble with httpGate and FreeBSD 9.1 [So
Hi Alex, I've just tested app/main.l + httpGate with fresh development release, it works fine. My patches to httpGate and ssl: # diff -u httpGate.c.orig httpGate.c --- httpGate.c.orig 2012-03-20 12:46:41.0 +0600 +++ httpGate.c 2013-01-27 22:16:09.0 +0600 @@ -2,6 +2,7 @@ * (c) Software Lab. Alexander Burger */ +#include sys/socket.h #include stdio.h #include stdlib.h #include unistd.h @@ -15,6 +16,7 @@ #include sys/stat.h #include netdb.h #include arpa/inet.h +#include netinet/in.h #include openssl/pem.h #include openssl/ssl.h # diff -u ssl.c.orig ssl.c --- ssl.c.orig 2011-10-22 20:29:48.0 +0600 +++ ssl.c 2013-01-27 22:13:04.0 +0600 @@ -2,6 +2,7 @@ * (c) Software Lab. Alexander Burger */ +#include sys/socket.h #include stdio.h #include stdlib.h #include unistd.h Best regards, Mansur Hi all, finally, after hours of tracing and debugging, Mansur and I could locate the problem! We found that the socket was unexpectedly in non-blocking mode, causing the read operation to return nonsense data. It resulted from the fact that new sockets returned from accept() in BSD inherit the flags from the parent socket. From the man page: On Linux, the new socket returned by accept() does not inherit file status flags such as O_NONBLOCK and O_ASYNC from the listening socket. This behavior differs from the canonical BSD sockets implementation. Portable programs should not rely on inheritance or noninheritance of file status flags and always explicitly set all required flags on the socket returned from accept(). Because PicoLisp temporarily sets the socket to non-blocking before calling accept(), this was inherited to the new socket on FreeBSD (but not on Linux). Released a new version (3.1.1.10) to the repo, and -- as ever -- to http://software-lab.de/picoLisp.tgz ♪♫ Alex -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe --
Re[2]: Trouble with httpGate and FreeBSD 9.1
Hi Alex, First of all, I'd like to ask you which version of 'httpGate' you are using. Is it the latest one, with the source date 20mar12 (i.e. picoLisp-3.1.0 or newer)? Yes, the source date is: 20mar12abu Best regards, Mansur PԔ � j)mX��� ��zV�u�.n7�
Re[3]: Trouble with httpGate and FreeBSD 9.1
Hi again, Maybe it's possible to use SO_RCVLOWAT/SO_SNDLOWAT socket options? Or maybe server side should do some reassembly (with a little timeouts to prevent DoS attacks) to get whole line of the request Just IMHO.
Re[2]: Trouble with httpGate and FreeBSD 9.1
Hi Mansur, Maybe it's possible to use SO_RCVLOWAT/SO_SNDLOWAT socket options? As far as I understand it, this should not be necessary (see below). Or maybe server side should do some reassembly (with a little timeouts to prevent DoS attacks) to get whole line of the request Yes, this is what the change from Mar 20th does. It is the new function rdLine(), which reads from the socket until at least a full line is received. It does so on the _receiving_ side of httpGate, i.e. on the way from the browser to httpGate. But your description seems to refer to the _sending_ side of httpGate. Right. There is no special handling on the sending side, i.e. from httpGate to the PicoLisp process, because here plain TCP (without SSL encryption) is used and thus the 'line' function should be safe to receive the complete line. 2) with httpGate ! L - (G E T /) If I understand correctly, (line) immediatly returns first TCP packet value. I'm not expert in TCP/IP programming, maybe reason is FreeBSD itself? As I understand it, 'line' should not be concerned about TCP packets. These are on a lower level. PicoLisp reads from a socket, and should receive either correct data or EOF, but never partial data. It is a principle of TCP to handle this. I can not agree with this. TCP guarantees only : - data arrives in-order - data has minimal error (i.e. correctness) - duplicate data is discarded - lost/discarded packets are resent At the moment of calling (line) it's highly possible that there is no whole line in receive TCP buffer, and then application will get only arrived part of the request line and eof. See also tcpdump listing in some of my prevous letters, which shows that pil server gets GET / piece, responds with 400 Bad request and after that arrives the large rest of the request. So taking into account the principles of TCP stream that's perfectly legal situation. So I must say I have no clue at the moment ... Do you have an idea how to further debug this? Currently I think that pil server needs to do something to wait until more data arrived. Maybe at the lisp level (in http function) or with socket options. Best regards, Mansur
Re: picoLisp on FreeBSD 9.1 x64
Hi Alex, new testing release works fine, thanks! Notes for FreeBSD x86-64 users: For building 64bit version you will need working picolisp interpreter (e.g. 32bit one or java version) or asm-files, you can get them here: http://dl.dropbox.com/u/54259642/picoLisp/picoLisp-FreeBSD-x86-64.tgz As I know, /usr/include/ is not 32bit-aware on 64bit FreeBSD installation, so for building of 32bit interpreter on these systems you will need 32-bit jail or include-directory tree from 32bit system. So easiest way I see for those who has not java installed is extracting asm-files from picoLisp-FreeBSD-x86-64.tgz into src64/ and doing: cd src64 gmake Best regards, Mansur Hi Mansur, I've found the solution :) One should use -rdynamic for LD_MAIN too. ... So, now all tests passed with OK. Great! Alex, I will send you my files soon. Many thanks! I've received them, and made a new release with your changes. Everybody having FreeBSD is invited for testing! As I understand, it's not possible to send them as attachment to mailing list Strange. Attachments to the mailing list used to work in other cases ... ♪♫ Alex -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe PԔ � j)mX��� ��zV�u�.n7�
Re: picoLisp on FreeBSD 9.1 x64
Hi! That's my inattention. I've found the solution :) One should use -rdynamic for LD_MAIN too. Without this e.g. dlopen(lib/ht) fails with Undefined symbol 'Nil' error So, now all tests passed with OK. Alex, I will send you my files soon. As I understand, it's not possible to send them as attachment to mailing list Best regards, Mansur Суббота, 5 января 2013, 18:06 +01:00 от Alexander Burger a...@software-lab.de: Hi Mansur, I tried different options, also without stripping, but with no success. Perhaps someone can help to write small assembly program with shared library for test dlopen/dlsym calls? What did you use for the 'LD-SHARED' linker options? The Makefile of 'pil32' uses -shared -export-dynamic for FreeBSD (in addition to -m32 which obviously doesn't make sense here). Perhaps this works for 64-bits too? An assembly program is probably not so helpful. Does FreeBSD have the 'ltrace' utility? If so, you could do $ ltrace bin/picolisp 2xxx : (ht:Prin 123) and then look into 'xxx' for something like dlopen(lib/ht, 257)= 0x011700f0 dlsym(0x011700f0, Prin)= 0x7fe3f3f9f222 I use 'gdb' in such cases to single-step through the program, but that's not what I would really recommend ;-) ♪♫ Alex -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: picoLisp on FreeBSD 9.1 x64
--e1eimUmj-ZHXgwhzIGfT8Jy1h:1357366514 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: base64 SGkgYWxsLApJIHRyaWVkIGRpZmZlcmVudCBvcHRpb25zLCBhbHNvIHdpdGhvdXQgc3RyaXBwaW5n LCBidXQgd2l0aCBubyBzdWNjZXNzLgpQZXJoYXBzIHNvbWVvbmUgY2FuIGhlbHAgdG8gd3JpdGUg c21hbGwgdGVzdCBhc3NlbWJseSBwcm9ncmFtIHdpdGggc2hhcmVkIGxpYnJhcnkgYW5kIGRsb3Bl bi9kbHN5bSBjYWxscz8KSSBhbSBhbHNvIGdvaW5nIHRvIHRyeSA6KQpCdHcgSSd2ZSBhdHRhY2hl ZCBmaWxlcywgd2hpY2ggSSBmb3Jnb3QgdG8gYWRkIGluIG9uZSBvZiB0aGUgcHJldmlvdXMgbGV0 dGVycwoKQmVzdCByZWdhcmRzLCAKTWFuc3VyIAoKCtCf0Y/RgtC90LjRhtCwLCAgNCDRj9C90LLQ sNGA0Y8gMjAxMywgMTQ6MzUgKzAxOjAwINC+0YIgSm9yZ2UgQWNlcmVkYSA8amFjZXJlZGFAZ21h aWwuY29tPjoKPiBPbiBGcmksIEphbiA0LCAyMDEzIGF0IDEyOjU2IFBNLCBBbGV4YW5kZXIgQnVy Z2VyIDxhYnVAc29mdHdhcmUtbGFiLmRlPiB3cm90ZToKPiA+IEhpIE1hbnN1ciwKPiA+Cj4gPj4g SSd2ZSBnb3Qgd29ya2luZyBwaWwgeDY0IG9uIEJTRC4gQWxsIHRlc3RzIGFyZSBwYXNzZWQsCj4g Pgo+ID4gR3JlYXQhIENvbmdyYXR1bGF0aW9ucyA6KQo+ID4KPiA+Cj4gPj4gYnV0IHdpdGggImV4 dCIgYW5kICJodCI6Cj4gPj4gW3Rlc3Qvc3JjL2V4dC5sOjVdICE/IChleHQ6U254ICJQaWNvTGlz cCBpcyBub3QgQ29tbW9uIExpc3AiKQo+ID4+IGV4dDpTbnggLS0gVW5kZWZpbmVkCj4gPj4gLi4u Cj4gPj4gW3Rlc3Qvc3JjL2h0Lmw6NV0gIT8gKGh0OlByaW4gIjE8Mj4zJsOkw7bDvDxpPsOEw5bD nMOfIikKPiA+PiBodDpQcmluIC0tIFVuZGVmaW5lZAo+ID4KPiA+IEkgc3VzcGVjdCB0aGF0IHRo aXMgaXMgYSBwcm9ibGVtIG9mIHRoZSAnTEQtU0hBUkVEJyB2YWx1ZSBpbgo+ID4gInNyYzY0L01h a2VmaWxlIi4gVGhlIGxpYnJhcmllcyAibGliL2V4dCIgYW5kICJsaWIvaHQiIG1heSBiZSBjcmVh dGVkCj4gPiB3cm9uZ2x5LCBzbyB0aGF0IHRoZXkgYXJlIGVpdGhlciBub3QgcmVjb2duaXplZCBi eSBkbG9wZW4oKSwgb3IgdGhlCj4gPiBzeW1ib2xzIGFyZSBub3QgZm91bmQgYnkgZGxzeW0oKS4K PiAKPiBQZXJoYXBzIGl0J3MgdGhlIHNhbWUgcHJvYmxlbSBJIGV4cGVyaWVuY2VkIHVuZGVyIERh cndpbi4gVHJ5IGNoYW5naW5nCj4gdGhlICdTVFJJUD1zdHJpcCcgbGluZSB0byAnU1RSSVA9ZWNo bycgYW5kIHNlZSBpZiB0aGF0IGZpeGVzIHRoZQo+IHByb2JsZW0uIFRoZW4gaXQgc2hvdWxkIGp1 c3QgYmUgYSBtYXR0ZXIgb2YgZmluZGluZyB0aGUgcmlnaHQgc3RyaXAKPiBmbGFncyBmb3IgeW91 ciBwbGF0Zm9ybS4KPiAKPiAKPiAKPiA+Cj4gPiDimarimasgQWxleAo+ID4gLS0KPiA+IFVOU1VC U0NSSUJFOiBtYWlsdG86cGljb2xpc3BAc29mdHdhcmUtbGFiLmRlP3N1YmplY3Q9VW5zdWJzY3Jp YmUKPiAtLQo+IFVOU1VCU0NSSUJFOiBtYWlsdG86cGljb2xpc3BAc29mdHdhcmUtbGFiLmRlP3N1 YmplY3Q9VW5zdWJzY3JpYmUKPiA= --e1eimUmj-ZHXgwhzIGfT8Jy1h:1357366514 Content-Type: application/octet-stream; name==?UTF-8?B?YnNkLWZpbGVzLnRneg==?= Content-Disposition: attachment Content-Transfer-Encoding: base64 H4sIAO9h5lAAA+1YbXObRhDu1+pXbO02lWJLPl6EHbfxGAOSmSJQAVl2v1AicMJEFirg2En/fPcQ HCelTWfcSTvpsKOJtM/u7e3b7Z3zKo8kcbAOi8Wbrz4XEUIUWQb6jbT7TchQGIIgkmNBVogsSkAE SRCkr4B8No84us+LMENXsjQtPqX38CaOl5+Q7wb3hVC/34d1skitJF8P0ix5fZRni6NVXAwWX4tE EPoC6YsEBOmUDPEzqGtG4IAohHQODg7Y+u2lYh8/kgDkxSkRTyXlo6Xn59BXDhU4UA5P4Py8Ax3Y T1aL5X0Uw49oJno1eHPGY2G2Do8SugHiB1u6FEXRjiB/nx/l6eLtZgXax1oXyQLepUkEydrIsm64 eg/x4yEs3oQZPM978HsHkGIUUdieWdYh7JlT+C6nYJqd4q+9Q8jxU2Ql0sV/V2mv90Pnvy7mE+jx ROkr8uA2i+OLPBos0igefKrNn0LN+ReOh4T/LkkkQ2lz/iVJlIb0/IvDY/Ivn/9/aucLPf/7ILy4 C98LpLMPH9JVsniL5yl5my7D5PxD+mqFZyq7P0Nhd9EDL70tHsIsBit8NQB1GT+GqyjO4OI+ex1n HdTy3udFfAd34SJL806XthN8X56PQAXSo2drES6XEATl0QHYh3FcQBhFWZznkN5W2t9TzWUEKnTV HtWy0jCCd+HyPqaSLC46W9a1pxinpjWq5RUpBrWKH3Z22I/iW5wsZ8Hc81V/5nUfez/iwDzrBvPA tH1k4Rl26/Fxb0vVmU4NnSqiKpXiz7MN2z87eg61NUhuYZ2lC+pbkuM4SdfrOILnR8zY3BxV1sqd 6b7MEXj5Ethmva0l5thWrc2a7SXfcEvg2TPYkRHOjG+4EzTERcxUeyz1D8lt5bUXjHA5zWXjc1NC D8xeXQ06gu9zKsPegQv4tZsuCtijedrblPBuvQvTtd1ud7OU5ZxmYJP8nY6gbiWvV+Fy168qMU9w rPLgIxe+qVyg2fxz6V/FRGFsgFXZbUyFUC5eRR+FVMTZHQbllceojKeq0JOD2XGW6n54LJreh3fJ aVycFvlL6TR/eCl9ibdbS39HO/c/Hv/8M97/f/r+l0WiVPe/KBBZwX6U5eNh+/7/N2gfjFWUhCu8 hDr7Fp76eZpFefIh7uwrMp0C5Y3Z6ca/3YNhO4btg9irWLwCXZBr7kLVR/Ci5tSxatogDRmvaYaH f0bU/NScGiAxU5pj267hGT4M0SBum67j1dHtYlUsNxpO4OqObd3QgVoBc7cEhF6jMXeZd06guYaK 9oQGMa41C0QinzDEd2e2BgIRZQapeHfZOtQ6o2Bs+COdbTMKvJKvrY70QLMc49rQqAp6nhdRUiXs YoZ3zi+8eRp2gDDn1kS9nqr+pWXYLDZqYgWw920QlD/Xe40gvS9qAf7kJVipWoI/qYS6Ey0xixsd 17f0wFJ/aXJWImPLuVAxL0Ol9J9L+shytJ+aKlmBf4NVEwnj55eGrSHSaOArwfWh0aBhnTBuamIi lYr1DOMnmkymXQLazOVy7eoWetDwc5fyEuNnNuXFrVpZnNwreZmXW2hvq5gUELeBedOpJeLMbVBY h9iOfVFmhmsa7wb7SJGrDgiLKiJ8M9HRVgfoBxNHN1hCkMf+MOBY5BR8c2KAzJYE5mjig4IjkYd0 E7OkSCebDYvkLs43Qn/iNRlGJpiV9giHeJsdNivxWZGk9Vp8UZiOB3Idl4Y7WeqYrdYCq+RZurRA 05rtTHyOoKyO7mqCE4AJr8pdhePaEc1TdZfOiOrUlA+2KkBzrGq+6dhN6yGEZQh8rnvU4FK1dctw m/5Rg4nqcdVEgPrrNQk3x4GODUE4Hh+FrMEoP6uKy219OZvyKiY3BJGdea4AEtkCRJC4BeWwYx1F w7PcCQhyA9DUgzBsAO3S0puTRgEHdxVecPnAV3aTT2rD8xHgQvV9TK8o8IAzaw4rjcQBkXMLX8de mXMsyEOYVE08tx3M9JhlYD7Dua9qRjkDaeniZbwo2DSkJ7psgqox68ZDgcb1YUC7Q27YSwcP/gkn 1tWbppIUcGy+s4MbQ3XLDNEhl2QbXA9sdVIeMPrHaPlfP1Vze1hTbH28EyZNLSmmj12E6o1UOlO8 KecqIqZt+AqwxvYcnHO4FANVhkN2x3l4Axkzz1B1vbkWzenUdXwnMKdXCsgCQ6+U4Eop7y+xLmG5 S0BXo5t0bsp1tLaJjX196Xg+vUuGDUqDdY2fdbYddYtaQJd5h5ELRurE5K7LEps6Lt/K9mZ7VgbK mPbIAXZjqmZtR24Quml5M3BadCmNgVWswpojjYBtXPvlqPuvX0EttdRSSy211FJLLbXUUksttdRS S/9f+gNmm3yjACgAAA== --e1eimUmj-ZHXgwhzIGfT8Jy1h:1357366514-- -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: picoLisp on FreeBSD 9.1 x64
Hi all, I tried different options, also without stripping, but with no success. Perhaps someone can help to write small assembly program with shared library for test dlopen/dlsym calls? Best regards, Mansur Hi Mansur, I've got working pil x64 on BSD. All tests are passed, Great! Congratulations :) but with ext and ht: [test/src/ext.l:5] !? (ext:Snx PicoLisp is not Common Lisp) ext:Snx -- Undefined ... [test/src/ht.l:5] !? (ht:Prin 123äöüiÄÖÜß) ht:Prin -- Undefined I suspect that this is a problem of the 'LD-SHARED' value in src64/Makefile. The libraries lib/ext and lib/ht may be created wrongly, so that they are either not recognized by dlopen(), or the symbols are not found by dlsym(). ♪♫ Alex PԔ � j)mX��� ��zV�u�.n7�
Re: picoLisp on FreeBSD 9.1 x64
Hi Alex, I've got working pil x64 on BSD. All tests are passed, but with ext and ht: [test/src/ext.l:5] !? (ext:Snx PicoLisp is not Common Lisp) ext:Snx -- Undefined ? ... The same with ht: [test/src/ht.l:5] !? (ht:Prin 123äöüiÄÖÜß) ht:Prin -- Undefined # ls -l src64/x86-64* -rw-r--r-- 1 root wheel 425208 Jan 3 22:42 src64/x86-64.freeBsd.base.o -rw-r--r-- 1 root wheel 842406 Jan 3 22:42 src64/x86-64.freeBsd.base.s -rw-r--r-- 1 root wheel3704 Jan 3 22:42 src64/x86-64.freeBsd.ext.o -rw-r--r-- 1 root wheel5991 Jan 3 22:42 src64/x86-64.freeBsd.ext.s -rw-r--r-- 1 root wheel 14712 Jan 3 22:42 src64/x86-64.freeBsd.ht.o -rw-r--r-- 1 root wheel 17878 Jan 3 22:42 src64/x86-64.freeBsd.ht.s # ls -l lib/ht lib/ext -rwxr-xr-x 1 root wheel 6864 Jan 3 22:42 lib/ext -rwxr-xr-x 1 root wheel 13984 Jan 3 22:42 lib/ht I've attached archive with .code and .def files for bsd Best regards, Mansur
Re[2]: picoLisp on FreeBSD 9.1 x64
OK, so I made 32bit jail by this instructions:
http://www.gundersen.net/32bit-jail-on-64bit-freebsd/
and rebuilt pil. Now all seems goes well. Now I need to get working IPv6
address inside a jail, but I should go now :)
Вторник, 1 января 2013, 11:23 +01:00 от Alexander Burger
a...@software-lab.de:
Hi Mansur,
I found this:
http://lists.freebsd.org/pipermail/freebsd-questions/2010-August/220250.html
Maybe the problem is with system headers, that are not 32bit aware on
FreeBSD x64
Indeed. This describes quite well the possible reason of the problems.
Btw, what about x64 version of picoLisp on FreeBSD? Is this possible
and how I can help with it?
Good idea! We should try to get pil64 running then.
If the architecture is x86-64, we just need to extend src64/Makefile a
little (i.e. add a clause for 'FreeBSD', similar to the 'SunOS' stuff),
and create two new files
src64/sys/x86-64.freeBsd.defs.l
src64/sys/x86-64.freeBsd.code.l
The defs.l file can be generated pretty easily now, because since the
'emu' version we have a C-Programm 'src64/sysdefs' which prints most of
its contents ('emu' simply includes the standard output of that
program).
The code.l might be more difficult. It holds a set of stub functions
which are system dependent, and which can be found by compiling and
disassembling test programs in C, or perhaps by looking at the proper
macro expansions in the system's include files. So here some detective
work is necessary ;-)
♪♫ Alex
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re[2]: picoLisp on FreeBSD 9.1 x64
Hi all! I tried to build x64 version of pil on FreeBSD, but I ended up with the following errors: root@proto:/root/picoLisp/src64 # gmake x86-64.freeBsd.base.o: In function `giveupX': (.text+0x459): undefined reference to `stderr' x86-64.freeBsd.base.o: In function `execErrS': (.text+0x496): undefined reference to `stderr' x86-64.freeBsd.base.o: In function `.38': (.text+0x8c3): undefined reference to `stderr' x86-64.freeBsd.base.o: In function `.341': (.text+0x35d6): undefined reference to `stdin' x86-64.freeBsd.base.o: In function `.341': (.text+0x3607): undefined reference to `stdout' x86-64.freeBsd.base.o: In function `.341': (.text+0x3638): undefined reference to `stderr' x86-64.freeBsd.base.o: In function `.3140': (.text+0x1a8ea): undefined reference to `stderr' x86-64.freeBsd.base.o: In function `ignLog': (.text+0x1ab85): undefined reference to `stderr' x86-64.freeBsd.base.o: In function `errno_A': (.text+0x1d5e1): undefined reference to `___errno' x86-64.freeBsd.base.o: In function `errnoC': (.text+0x1d5f1): undefined reference to `___errno' gmake: *** [../bin/picolisp] Error 1 I added following lines In Makefile: ... ifeq ($(MAKECMDGOALS), x86-64.freeBsd) UNAME = FreeBSD MACHINE = x86_64 ... ifeq ($(UNAME), FreeBSD) --OS = FreeBSD --SYS = .freeBsd --FMT = .s --ARCH = x86-64 --AS = as --64 --LD-MAIN = -lc -lm --LD-SHARED = -m64 -shared --STRIP = strip endif I don't know how to change x86-64.freeBsd.code.l I found this in man errno: extern int * __error(); #define errno (* __error()) Best regards, Mansur
Re: picoLisp on FreeBSD 9.1 x64
ALT--LDu1Tujb1357058193 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: base64 CkhpIGFnYWluIQpmcm9twqBzeXMvd2FpdC5oOgoKI2RlZmluZT5fV1NUQVRVUyh4KTwtLS0+KF9X X0lOVCh4KSAmIDAxNzcpCiNkZWZpbmU+X1dTVE9QUEVEPC0tLS0tPjAxNzc8LS0+PC0tLS0tLT4v KiBfV1NUQVRVUyBpZiBwcm9jZXNzIGlzIHN0b3BwZWQgKi8KI2RlZmluZT5XSUZTVE9QUEVEKHgp PC0+KF9XU1RBVFVTKHgpID09IF9XU1RPUFBFRCkKI2RlZmluZT5XU1RPUFNJRyh4KTwtLS0+KF9X X0lOVCh4KSA+PiA4KQojZGVmaW5lPldJRlNJR05BTEVEKHgpPD4oX1dTVEFUVVMoeCkgIT0gX1dT VE9QUEVEICYmIF9XU1RBVFVTKHgpICE9IDApCiNkZWZpbmU+V1RFUk1TSUcoeCk8LS0tPihfV1NU QVRVUyh4KSkKI2RlZmluZT5XSUZFWElURUQoeCk8LS0+KF9XU1RBVFVTKHgpID09IDApCiNkZWZp bmU+V0VYSVRTVEFUVVMoeCk8PihfV19JTlQoeCkgPj4gOCkKI2RlZmluZT5XSUZDT05USU5VRUQo eCk+KHggPT0gMHgxMyk8LS0tPi8qIDB4MTMgPT0gU0lHQ09OVCAqLwoKCg== ALT--LDu1Tujb1357058193 Content-Type: text/html; charset=utf-8 Content-Transfer-Encoding: base64 CjxIVE1MPjxCT0RZPjxwPkhpIGFnYWluITxicj5mcm9tJm5ic3A7c3lzL3dhaXQuaDo8YnI+PGJy PiNkZWZpbmUmZ3Q7X1dTVEFUVVMoeCkmbHQ7LS0tJmd0OyhfV19JTlQoeCkgJmFtcDsgMDE3Nyk8 YnI+I2RlZmluZSZndDtfV1NUT1BQRUQmbHQ7LS0tLS0mZ3Q7MDE3NyZsdDstLSZndDsmbHQ7LS0t LS0tJmd0Oy8qIF9XU1RBVFVTIGlmIHByb2Nlc3MgaXMgc3RvcHBlZCAqLzxicj4jZGVmaW5lJmd0 O1dJRlNUT1BQRUQoeCkmbHQ7LSZndDsoX1dTVEFUVVMoeCkgPT0gX1dTVE9QUEVEKTxicj4jZGVm aW5lJmd0O1dTVE9QU0lHKHgpJmx0Oy0tLSZndDsoX1dfSU5UKHgpICZndDsmZ3Q7IDgpPGJyPiNk ZWZpbmUmZ3Q7V0lGU0lHTkFMRUQoeCkmbHQ7Jmd0OyhfV1NUQVRVUyh4KSAhPSBfV1NUT1BQRUQg JmFtcDsmYW1wOyBfV1NUQVRVUyh4KSAhPSAwKTxicj4jZGVmaW5lJmd0O1dURVJNU0lHKHgpJmx0 Oy0tLSZndDsoX1dTVEFUVVMoeCkpPGJyPiNkZWZpbmUmZ3Q7V0lGRVhJVEVEKHgpJmx0Oy0tJmd0 OyhfV1NUQVRVUyh4KSA9PSAwKTxicj4jZGVmaW5lJmd0O1dFWElUU1RBVFVTKHgpJmx0OyZndDso X1dfSU5UKHgpICZndDsmZ3Q7IDgpPGJyPiNkZWZpbmUmZ3Q7V0lGQ09OVElOVUVEKHgpJmd0Oyh4 ID09IDB4MTMpJmx0Oy0tLSZndDsvKiAweDEzID09IFNJR0NPTlQgKi88YnI+PGJyPjwvcD48YnI+ PHN0eWxlIHR5cGU9InRleHQvY3NzIj48L3N0eWxlPjwvQk9EWT48L0hUTUw+Cg== ALT--LDu1Tujb1357058193-- -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
picoLisp on FreeBSD 9.1 x64
Hi! Happy New year to all! I've just tried picoLisp with fresh installed FreeBSD 9.1 x64 That is NanoBSD on flash with ZFS on HDD. Build of 32bit pil is successful with a little #include patch concerning IPv6, but I get runtime errors: # ./dbg [/root/.pil/history:1] File lock: Invalid argument ? # ./pil app/main.l -main -go DB write: Invalid argument # ls -l db/app/ total 361 -rw-r--r-- 1 root wheel 2885162388670120960 Jan 1 11:57 1 --- Look at file size: -rw-r--r-- 1 root wheel0 Jan 1 11:57 2 ? [root@proto ~/picoLisp]# ldd bin/picolisp bin/picolisp: libc.so.7 = /usr/lib32/libc.so.7 (0x28098000) libm.so.5 = /usr/lib32/libm.so.5 (0x281b1000) Any ideas? Best regards, Mansur PԔ � j)mX��� ��zV�u�.n7�
Re: Download-Files corrupted ?
# fetch http://software-lab.de/picoLisp-3.1.1.tgz; picoLisp-3.1.1.tgz100% of 847 kB 668 kBps # md5 picoLisp-3.1.1.tgz MD5 (picoLisp-3.1.1.tgz) = 0efcca8a067004fd7c0e7852e3657ca6 All right :) Hi Answart, tar -vxf picoLisp-3.1.1.tgz tar: This does not look like a tar archive ... This is very strange. So I just downloaded $ wget http://software-lab.de/picoLisp-3.1.1.tgz and it looks all right. I could extract the contents, and also did a byte-compare with the locally stored version. Is it possible that your file(s) got corrupted during download? Or did you download them from another source? $ md5sum picoLisp-3.1.1.tgz 0efcca8a067004fd7c0e7852e3657ca6 picoLisp-3.1.1.tgz ... skipped -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: A little report about kerberos authentication
Hi all! I'm glad to share fresh-prepared kerbauth library (README included in the tarball): http://picolisp.com/5000/!wiki?kerbauth Comments and questions are welcome. Best regards, Mansur Mamkin -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Error: http -- Tag not found
Hi all! While improving and testing kerberos authentication, now I get strange error when I'm going to http:/wiki-session-url?*ID=$krblogin !? (throw http) http -- Tag not found The code is: # (unless (setq *Url (ht:Pack @U)) (setq *Url (car *Home) @U (cdr *Home)) ) (out S (ifn (or (n== *ID 'krblogin) *KrbPrinc) (! http401)) # -- added code (cond ((match '(- @X . h t m l) @U) # (de http401 () (httpStat 401 Unauthorized WWW-Authenticate: Negotiate) (throw http) ) # -- error occurs here Best regards, Mansur Mamkin
question about forms and +JS actions
Hi All! I have simple search form (see below) and there is one dropdown box in the form with list of predefined search filters. Is it possible to change values of other fields or even initiate search when occurs 'onchange' event of dropdown box? Should I use additional javascript code to do it? Best regards, Mansur (de choIncident (Dst) (diaform '(Dst) (grid --. ID (gui 'id '(+Focus +Var +NumField) '*IncId 10) (searchButton '(prog (off *IncST) (cond ((= *IncFilter Created today) (setq *IncDate (date)) ) ((= *IncFilter Active) (setq *IncST '(0 . 2)) ) ) (init (: home query))) ) Date (gui 'dt '(+Var +DateField) '*IncDate 20) (resetButton '(id dt (flt . All) query)) Filter (gui 'flt '(+Var +Init +TextField) '*IncFilter All '(All Created today Active)) ) (gui 'query '(+QueryChart) (cho) '(goal (quote @ID *IncId @DT *IncDate @ST *IncST (select (@@) ((id +Incid @ID) (d +Incid @DT) (stat +Incid @ST)) (same @ID @@ id) (same @DT @@ d) (range @ST @@ stat) ) ) ) 3 ... -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: question about forms and +JS actions
Great! This is exactly what I need, thanks again! Currently I tried to use +Set, but missed +Chg. On 06.04.2012 16:44, Alexander Burger wrote: On Fri, Apr 06, 2012 at 12:34:23PM +0200, Alexander Burger wrote: ... '((Str) # Change function (set (: home id) (someId)) # Set two other fields (set (: dt) (date)) (init (: home query)) # and initiate the search Str )# Return the value '(All Created today Active) ) ... Opps, (: dt) must be (: home dt) of course. -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
non-existent external symbols
Hi All!
Is it normal, that 64bit pil shows such errors (I didn't try it with 32bit):
: (isa '+Bin '{73})
- {73}
: (isa '+Bin '{7})
- NIL
: (isa '+Bin '{11}) # deliberately trying non-existent external symbol
DB read: Invalid argument
: (ext? '{11})
23799 SIG-11
Best regards,
Mansur
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Segfault on Linux Mint 12 x64
Hi Alex!
I have Linux Mint 12 x64 (based on Ubuntu) on my laptop + picoLisp x64
ver. 3.0.9.4 (testing release)
gcc version 4.6.1 (Ubuntu/Linaro 4.6.1-9ubuntu3)
I get segfault when I run ./dbg, then enter (traceAll) or (ht:Prin )
I tried strace:
--- (traceAll) ---
.. skipped ...
write(1, \n, 1) = 1
open(lib/ext, O_RDONLY) = 3
read(3,
\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0\0\1\0\0\0P\t\0\0\0\0\0\0..., 832)
= 832
fstat(3, {st_mode=S_IFREG|0775, st_size=6304, ...}) = 0
getcwd(/home/mtm/picoLisp, 128) = 19
mmap(NULL, 2101624, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 3,
0) = 0x7f46b011b000
mprotect(0x7f46b011c000, 2093056, PROT_NONE) = 0
mmap(0x7f46b031b000, 8192, PROT_READ|PROT_WRITE,
MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 3, 0) = 0x7f46b031b000
close(3)= 0
--- SIGSEGV (Segmentation fault) @ 0 (0) ---
Process 2893 detached
-
--- (ht:Prin ) ---
.. skipped ...
open(lib/ht, O_RDONLY)= 3
read(3,
\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0\0\1\0\0\0\360\21\0\0\0\0\0\0...,
832) = 832
fstat(3, {st_mode=S_IFREG|0775, st_size=18608, ...}) = 0
getcwd(/home/mtm/picoLisp, 128) = 19
mmap(NULL, 2113920, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 3,
0) = 0x7fab3867
mprotect(0x7fab38672000, 2097152, PROT_NONE) = 0
mmap(0x7fab38872000, 12288, PROT_READ|PROT_WRITE,
MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 3, 0x2000) = 0x7fab38872000
close(3)= 0
--- SIGSEGV (Segmentation fault) @ 0 (0) ---
Process 2884 detached
-
The same version of PL works fine on CentOS 6.2 x64,
so maybe that's not PL issue.
If you have no idea about it at the moment, there is no big trouble, I
can just migrate to CentOS.
Regards,
Mansur
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: Bug in the wiki?
Hi Alex! Thanks, all right with idForm. Now I see another strange behaviour. My steps (CentOS 6.2 x64): yum update yum install gcc gcc-c++ glibc-devel.i686 openssl-devel file cd /opt wget http://software-lab.de/picoLisp.tgz; tar xzf picoLisp.tgz wget http://software-lab.de/wiki.tgz; tar -C picoLisp -xzf wiki.tgz wget http://software-lab.de/socialshareprivacy.tgz; \ tar -C picoLisp -xzf socialshareprivacy.tgz mkdir -p /usr/share/javascript/jquery wget -O \ /usr/share/javascript/jquery/jquery.js \ https://ajax.googleapis.com/ajax/libs/jquery/ cd /opt/picoLisp/src make picolisp tools gate cd /opt/picoLisp/src64 make picolisp cd /opt/picoLisp ./pil wiki/main.l -main -go + Then I load http://wiki.mysite:5000 in Firefox, log in (admin:admin), navigate to Articles Essays in the left menu. I see New document 'Articles', This document doesn't exist yet. Seems ok. I press Create document, fill the body and summary, save the document and now I see that created page and Edit link on the top of it. Ok. But when I try to navigate to Articles Essays, I see This document doesn't exist yet again. The same happens with other links in the left menu. What I'm doing wrong? Best regards, Mansur Hi all, idForm -- Undefined ? While this was not really a bug in the Wiki, there _was_ another bug. José Romero triggered it unintentionally yesterday, and I could easily reproduce it. It crashed the Wiki when you tried to delete a Document (via the Delete button), because of a bug in the recently-introduced text indexing. I fixed it, and uploaded a new wiki.tgz. @Mansur: In case you downloaded your wiki.tgz earlier than 13:02 UTC today, please fetch it once more. Cheers, - Alex -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: just a big THANK YOU
Hi all! I subscribe to wishes of Edwin, Thanks for Picolisp and merry christmas! was browsing thru the rosetta code examples. not to mention all the docs and written materials made available freely via the web. to everyone who has made picolisp what it is today, THANK YOU so much! have a merry christmas y'all! cheers! /e -- UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
Re: Announce: ErsatzLisp (Java PicoLisp)
I've just tried it on my Windows 7 (64bit) with JRE 1.6.0_22 (32bit) It works fine, the only thing is java is not in my PATH, so I needed to write full path to java.exe :) C:\Program Files (x86)\Java\jre6\bin\java.exe -DPID=42 -jar picolisp.jar lib.l On Wed, Nov 17, 2010 at 07:58:20PM +0100, Alexander Burger wrote: java -DPID=42 -jar picolisp.jar -on *Dbg lib.l Further simplified now: The (on *Dbg) moved to lib.l. Thus java -DPID=42 -jar picolisp.jar lib.l is enough now. Cheers, - Alex -- UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
inheritance of db relations
Hi all!
I have such definitions:
(class +DEnt +Entity) #Ancestor for project data classes
(rel id (+Key +String))
(rel dsc (+Idx +String))
(class +Folder +DEnt)
..
(setq +User '(+DEnt))
(extend +User)
(rel nam (+String))# Full Name
..
Now I try to use iter, scan and collect:
: (collect 'id '+Folder)
- ({47} {32} {40} {31} {6})
Seems OK
: (scan (tree 'id '+Folder))
- NIL
: (iter (tree 'id '+Folder))
- NIL
Why NILs here?
Then I tried with my ancestor class
: (iter (tree 'id '+DEnt))
{47}
{32}
{40}
{31}
{6}
- {10}
Then I put USER1 to id of '+User object
: (collect 'nm '+User)
- ({20} {26} {25} {30})
: (put! '{20} 'id USER1)
- USER1
: (scan (tree 'id '+DEnt))
PROJARCHIV {47}
PROJCOMMUN {32}
PROJPERSPEC {40}
ROOT {31}
USER1 {20}
USERS {6}
- {10}
: (put! '{26} 'id USER1)
- USER1
#I think it should produce error Not unique ?
: (scan (tree 'id '+DEnt))
PROJARCHIV {47}
PROJCOMMUN {32}
PROJPERSPEC {40}
ROOT {31}
USER1 {20}
USERS {6}
- {10}
#Index tree rests the same
So, do these results mean I should not use relation inheritance or is it
bug?
Best regards,
Mansur
--
UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
Re: wiki password
Hi all! I'm fully agree with Alex, in this active discussion about passwords they sometimes forget about data itself :) ... But here we were talking about storing plain text passwords in a protected database, which would get compromised only if the whole database got into evil hands, which in turn has to be avoided for more important reasons than just the passwords (in the general case). Cheers, - Alex -- UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
Re: where are the values of CAR and CDR stored?
Hi all! Look at http://www.software-lab.de/doc/ref.html#vm Hi Santiago, thank you for this. i should have been clearer in my question. how is, say, a symbol, stored using cells?. -- UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
Re: PL vs. BSD License
Hi all, Hi all, as this discussion popped up recently and in the past, and will surely pop up in the future: What do you think if PicoLisp were released under the BSD license instead of GPL? Why not? It would be great to see PicoLisp under BDS license -- UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
Re: PL vs. BSD License
Hi all, Hi all, as this discussion popped up recently and in the past, and will surely pop up in the future: What do you think if PicoLisp were released under the BSD license instead of GPL? Why not? It would be great to see PicoLisp under BDS license Oops, sorry, I mean BSD -- UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
Fwd: Re: Cygwin 1.7.5: Problem with dlopen and relative path
Thu, 29 Apr 2010 15:04:47 +0200 Corinna Vinschen corinna-cyg...@cygwin.com: On Apr 29 12:39, Mansur Mamkin wrote: Hello, As I see in source of dlfcn.cc, dlopen() should override LoadLibrary's automatic adding of a .dll suffix, but it's behaving strangely I have such files: /home/me/project/myexe.exe /home/me/project/lib1.dll /home/me/project/subdir/lib2.dll /home/me/project/subdir/lib3 (without .dll) My current directory is /home/me/project/ I try to use dlopen() in myexe.exe with relative path: 1) dlopen(subdir/lib2) - NOT FOUND (If this OK, then why failed dlopen(subdir/lib3)?) This one is correct. 2) dlopen(subdir/lib3) - NOT FOUND (why?) I couldn't reproduce this one, but... 3) dlopen(subdir/lib2.dll) - SUCCESS (works fine) 4) dlopen(lib1) - SUCCESS (why it didn't override LoadLibrary's adding .dll ?) ...this one is a bug. I fixed that in CVS. Thanks, Corinna -- Corinna Vinschen Please, send mails regarding Cygwin to Cygwin Project Co-Leader cygwin AT cygwin DOT com Red Hat -- UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
Re[3]: Fwd: Cygwin 1.7.5: Problem with dlopen and relative path
Hi Alex, Yes, I think we should stay with the #ifdef patch for a while The case with dlopen(lib1) seems not to be used, but I checked it just in case Best regards, Mansur Hi Mansur, thanks for the info! /home/me/project/myexe.exe /home/me/project/lib1.dll /home/me/project/subdir/lib2.dll /home/me/project/subdir/lib3 (without .dll) ... 1) dlopen(subdir/lib2) - NOT FOUND (If this OK, then why failed dlopen(subdir/lib3)?) This one is correct. Hmm, too bad. This is the situation we have in PicoLisp, right? We try to open, say, lib/ht, and the file is lib/ht.dll. So this will probably not be changed by Cygwin in the future, and we must keep the #ifdef patch. 4) dlopen(lib1) - SUCCESS (why it didn't override LoadLibrary's adding .dll ?) ...this one is a bug. I fixed that in CVS. This doesn't apply to us, right? Cheers, - Alex -- UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe -- UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
Re: ht:Pack is where?
Hello,
It seems Cygwin behaves differently depending on whether dlopen argument
contains path to file or filename only.
If there is file name only and it is without dot, then Cygwin implicitly adds
.dll to file name,
but when there is a slash, Cygwin does not add .dll anymore.
Try this temporarily solution (tested with last Cygwin release and v.3.0.2 of
Picolisp):
--- main.c.old 2010-03-17 19:21:10.0 +0500
+++ main.c 2010-04-21 10:43:30.426257300 +0600
@@ -651,14 +651,14 @@
*p++ = '\0';
{
int n = Home? strlen(Home) : 0;
- char buf[n + strlen(nm) + 4 + 1];
+ char buf[n + strlen(nm) + 4 + 4 + 1];
if (strchr(nm,'/'))
strcpy(buf, nm);
else {
if (n)
memcpy(buf, Home, n);
- strcpy(buf + n, lib/), strcpy(buf + n + 4, nm);
+ strcpy(buf + n, lib/), strcpy(buf + n + 4, nm), strcpy(buf + n + 4
+ strlen(nm), .dll);
}
if (!(h = dlopen(buf, RTLD_LAZY | RTLD_GLOBAL)) || !(h = dlsym(h,p)))
return NO;
Just downloaded and installed picoLisp-3.0.2
I get an error ...
bash-3.2$ ./dbg lib/http.l lib/xhtml.l lib/form.l -'server 8080 project.l'
!? (ht:Pack @U)
ht:Pack -- Undefined
Huh ... where is it actually defined?
And in what way does it differ from 'pack'?
/o
--
--
Olle Olsson ol...@sics.se Tel: +46 8 633 15 19 Fax: +46 8 751 72 30
[Svenska W3C-kontoret: ol...@w3.org]
SICS [Swedish Institute of Computer Science]
Box 1263
SE - 164 29 Kista
Sweden
--
--
UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
--
UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
Re[2]: Wiki at home.picolisp.com
Hi all! Alex, IMHO there is no need to switch on locale selection at the moment Best Regards, Mansur So what is the general opinion? Should I put back in the locale selection? This would imply, however, that we also must prepare translations in all languages for the wiki-specific texts. -- UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
suggestion to change in Makefile
Hi all, what do you think about to do small modification in the Makefile I propose this because of link error on my Linux box (AltLinux Desktop). As I undestood, this is because of using --as-needed linker flag as default on that Linux. So AltLinux team suggests to put -llib arguments after obj-files as this is more standard-compliant (see also http://www.gentoo.org/proj/en/qa/asneeded.xml) So, my try for Linux: --- OS = Linux - PICOLISP-FLAGS = -m32 -rdynamic -lc -lm -ldl + PICOLISP-FLAGS = -m32 -rdynamic DYNAMIC-LIB-FLAGS = -m32 -shared -export-dynamic + LIBS = -lc -lm -ldl STRIP = strip .. $(bin)/picolisp: $(picoFiles:.c=.o) mkdir -p $(bin) $(lib) - gcc -o $(bin)/picolisp$(exe) $(PICOLISP-FLAGS) $(picoFiles:.c=.o) + gcc -o $(bin)/picolisp$(exe) $(PICOLISP-FLAGS) $(picoFiles:.c=.o) $(LIBS) $(STRIP) $(bin)/picolisp$(exe) --- -- UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
Re[2]: picolisp reader dot handling inconsistency
Hi Alex! I think the historical solution, where '.' was a plain meta-character, was the most consistent one. The dot was simply not allowed within internal symbols. Tt was only the representation of fixed point numbers that broke it. I agree with this :) -- UNSUBSCRIBE: mailto:picol...@software-lab.de?subject=unsubscribe
