代码搜索结果

# 30dec07abu # (c) Software Lab. Alexander Burger # *Top *Gui *Get *Form *Event *Lock # "*Cnt" "*Lst" "*App" "*Err" "*Post2" "*Stat" "*Ix" "*Chart" "*Cho" (allow (path "@img/") T) (push1 '*JS (allow

# 29oct07abu # (c) Software Lab. Alexander Burger ### Unit Tests ### # /path/to/p dbg.l lib/test.l (test T (pool (tmp "db"))) (load "test/src/main.l" "test/src/apply.l" "test/src/flow.l"

# 27nov07abu # (c) Software Lab. Alexander Burger # *Home *Gate *Host *Port *Port1 *Http1 *Chunked # *Sock *Agent *MPartLim *MPartEnd # *Post *Url *Timeout *SesId *ConId # *Cookies "*Cookies" (defau

# 26jul07abu # (c) Software Lab. Alexander Burger # Exit on error (de *Err (prinl *Pid " ! " (stamp) " [" *Adr " " (host *Adr) "] " *Agent) (show This) (for "X" '(*Gate *Agent *Host *Port *U

# 10dec07abu # (c) Software Lab. Alexander Burger # *NoLint (de noLint (X V) (if V (push1 '*NoLint (cons X V)) (or (memq X *NoLint) (push '*NoLint X)) ) ) (de global? (S) (or

# 21jan07abu # (c) Software Lab. Alexander Burger # "*F" "*Lst" "*X" "*K" (de edit @ (let *Dbg NIL (setq "*F" (tmp '"edit")) (catch NIL ("edit" (rest)) ) ) ) (de "edit" ("Ls

# 27nov07abu # (c) Software Lab. Alexander Burger # *Login *Users *Perms ### Login ### (de login (Nm Pw) (ifn (setq *Login (db 'nm '+User Nm 'pw Pw)) (msg *Pid " ? " Nm) (msg *Pid " *

# 16nov07abu # (c) Software Lab. Alexander Burger (de gcc (S L . @) (out (tmp S ".c") (chdir '@ (prinl "#include \"" (pwd) "/src/pico.h\"")) (here "/**/") ) ~(case *OS (("Linu

# 11may07abu # (c) Software Lab. Alexander Burger # (xmlrpc "localhost" 8080 "foo.bar" 'int 41 'string "abc" ..) (de xmlrpc (Host Port Meth . @) (let? Sock (connect Host Port) (let Xml (tmp

# 10nov04abu # (c) Software Lab. Alexander Burger # *InND # Generate long random number (de longRand (N) (use (R D) (while (=0 (setq R (abs (rand))))) (until (> R N) (unless