This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Code Select (while true (print ".") (sleep 1000))
There is exactly one of the points of common newlisp critique from CL party: we have no macros. What is called "macro" in newlisp is called f-expr in most other lisps. I myself have found newlisp good enough for me, but there is a sad true here: no "before execution" time macro transformer.
Code Select > f
(lambda-macro ()
(letn ((_default '((a nil) (b 20) (c nil))) (_arglist (args)) (_offset-nil (find
': _arglist))
(_offset-len
(if _offset-nil
_offset-nil
(length _arglist)))
(_pos-default (0 _offset-len _default))
(_pos-arglist (0 _offset-len _arglist))
(_key-arglist (_offset-len _arglist)))
(map set (map first _default) (map last _default))
(map set (map first _pos-default) (map eval _pos-arglist))
(if (!= (% (length _key-arglist) 3) 0)
(throw 'error))
(dolist (_triple (explode _key-arglist 3))
(local (_tag _key _val)
(map set '(_tag _key _val) _triple)
(if (!= _tag ':)
(throw error))
(set _key (eval _val))))
(begin
(list a b c))))
Code Select ; usage for directly load:
; (module:load-store "http://en.feautec.pp.ru/store/libs/funlib.lsp"
; "http://en.feautec.pp.ru/store/libs/xmlstream.lsp"
; .....)
;
; usage for once time loading - one file may be requested from many modules
: and it will be loaded only once:
; (module:depend "http://en.feautec.pp.ru/store/libs/funlib.lsp")
;
(context 'module)
; configuration of cache path relative to HOME
(set 'libpath "newlisp/cache")
; prepare the local cache
(define (prepare-space)
(set 'libdir (env "HOME"))
(dolist (l (parse libpath "/"))
(write-buffer libdir (string "/" l))
(unless (directory? libdir)
(begin
(print "creating local folder: " libdir "...")
(if (make-dir libdir) (println "done.")
(begin
(println "error.")
(throw-error (string "cant't create: " libdir))))))))
; if module doesn't exists in the local cache, then download it
; finally, load module from the local cache
(define (load-store)
(prepare-space)
(doargs (l)
(let (f (string libdir "/" (last (parse l "/"))))
(unless (file? f)
(begin
(println "downloading " l " into " libdir)
(if (starts-with "ERR: " (set 's (get-url l)))
(throw-error s)
(write-file f s))))
(load f))))
(set 'loaded '())
; load module once through (load-store)
; remember module in 'loaded runtime list
(define (depend path)
(unless (find path loaded)
(begin
(load-store path)
(push path loaded))))
(context 'MAIN)
Code Select deb http://en.feautec.pp.ru/debian/ gusty main
deb-src http://en.feautec.pp.ru/debian/ etch main
Code Select $ ln -s "." test
$ newlisp
> (directory "test")
true