uot;~/.pil/history" (mapc prinl (history
into "~/.pil/rc". Instead of "~/.pil/history" you can use any other name (for
example, I keep separate histories per directory).
Thanks! It solves my problem!
Regards.
--
Laurent ARTAUD (laurent.art...@free.fr)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
” isn’t saved nor read anymore?
Regards.
--
Laurent ARTAUD
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
subject one
isn’t interested in is the big advantage I find to the list! :-)
Regards.
--
Laurent ARTAUD
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
" as an example in order for it to work any month
of the year…
Regards.
--
Laurent ARTAUD (laurent.art...@free.fr)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
possible…
It kinds of makes things easier because it reduces the risk of “losing a
corner”…
Thanks for sharing!
--
Laurent ARTAUD (laurent.art...@free.fr)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
allow:
- remote control/code update (just add/configure the correct communication
device on the PC, start pil +, and hack away!);
- offloading of heavy computation (again, either to another PilCMU, or a PC);
- …
Regards,
--
Laurent ARTAUD
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject
t, after tests, I realized that I didn't need to 'link'
the result of the 'rot', but '(format (pack (rot SN)))'...
Regards.
--
Laurent ARTAUD
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
th SN))
(link (rot SN))
(println SN) ) ) ) )
: (all-rotations 123)
(3 1 2)
(2 3 1)
(1 2 3)
-> ((1 2 3) (1 2 3) (1 2 3))
I can't understand why I do not get the same result as the println.
Did I (yet again) miss-balance the parenthesis? If so, I can't see where...
T
have NEVER thought to use stat's output
formating option to this end!
I'm not worthy (yet?)
Thanks for sharing this!
Regards,
--
Laurent ARTAUD (laurent.art...@free.fr)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
irectly:
(in (list "stat" "-c" "%f %s %u %g %h %i %X %Y %Z" Path)
(make
(link (hex (till " "))
(do 8
(link (read)) ) ) ) )
Thanks for this! I intended to replace the call to (multimap) when I discovered
that I had only one (hex) to call...
Regards,
--
Laurent ARTAUD (laurent.art...@free.fr)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
end
lea E (A D_NAME) # Pointer to name entry
cmp X Nil # flg?
while eq # Yes
Cheers,
- Alex
Thanks for the quick fix!
--
Laurent ARTAUD (laurent.art...@free.fr)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
(if (= S_IFDIR (& S_IFDIR (car "Data")))
(recurse Path) ) ) ) ) ) ) )
By the way, if anyone know what lib to use for (native) to make a lstat syscall
so I can replace the stat shell call, I'd be very grateful: I can't find where
it is! (contrary to what I thought, it is NOT in libc...)
Thanks in advance.
Regards,
--
Laurent ARTAUD (laurent.art...@free.fr)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
ive call.
Is it possible?
Yes. This should be possible with 'struct'.
Thanks! It works perfectly!
Regards,
--
Laurent ARTAUD (laurent.art...@free.fr)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Le 21/08/2012 20:37, Laurent Artaud a écrit :
- I don't know what 'compress2' does with multibyte UTF-8 chars, but
in any case it is better to use (size inBuf) instead of (length
inBuf)
Well...
It took the error message I got when I worked on the uncompr
ibraries, you don't need to pass the full path. Thus,
instead of (native "/usr/lib/libz.so" ..) you can simply write
(native "libz.so" ..)
- I don't know what 'compress2' does with multibyte UTF-8 chars, but
in any case it is better to use (size inBuf) instead of (length
inBuf)
Thanks for everything!
Regards,
--
Laurent ARTAUD (laurent.art...@free.fr)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
inBuf # *source
inBufSize # sourceLen
level ) # level
(head destLen dest) )
)
)
)
## : (Zcompress2 "" Z_BEST_SP
p) '(+Backup)
'name (stamp)
'startDT (stamp)
'basePath RootPath
'hostName (host "localhost") )
(put *DB 'currentBackup Obj1)
(commit)
# now, walk the path
(let Dir RootPath
(recur (Dir)
(for F (dir Dir)
(let Path (pack Dir "/" F)
(addFile Obj1 Path)
# note: change this test: it considers a link to a dir as
a dir!
(if (=T (car (info Path)))
(recurse Path) ) ) ) ) )
(commit)
(count (tree 'backups '+File)) ) )
: (bench (backup "/home"))
0.460 sec
-> 7125
Cheers,
- Alex
Thanks for your time!
Regards,
--
Laurent ARTAUD
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
(addFile obj1 Path)
# note: change this test: it considers a link to a dir as a
dir!
(if (=T (car (info Path)))
(recurse Path) ) ) ) ) )
(length (get obj1 'files)) ) )
Thanks for your time.
Regards,
--
Laurent ARTAUD
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
arbage collector
-> 2
: (show objContainer)
!? (val "X")
{2} -- Bad ID # Object is gone
{2} ?
Please consider that I'm very new to picolisp (and to lisp more
generally) so I may make basic mistakes.
No problem! :)
I knew it was a basic mistake ;-)
Thanks again.
--
Laurent ARTAUD (laurent.art...@free.fr)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
olisp (and to lisp more generally) so I
may make basic mistakes.
Regards,
--
Laurent ARTAUD
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
ality, ...), then I don't think you should include the reference
in a paper book.
Regards,
--
Laurent ARTAUD
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Hello Laurent Artaud :-)
You are now subscribed
--
Laurent ARTAUD (laurent.art...@free.fr)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
22 matches
Mail list logo