代码搜索结果

# 30dec07abu # (c) Software Lab. Alexander Burger # *JS *Style *Menu *Tab *ID (mapc allow '(*Menu *Tab *ID)) (default *Menu 0 *Tab 1) (de htPrin (Prg Ofs) (default Ofs 1) (for X Prg (

# 25jun07abu # (c) Software Lab. Alexander Burger # *Rule (de be CL (with (car CL) (if (== *Rule This) (=: T (conc (: T) (cons (cdr CL)))) (=: T (cons (cdr CL)))

# 25mar07abu # (c) Software Lab. Alexander Burger # Check or write header (de xml? (Flg) (if Flg (prinl "") (skip) (prog1 (head

# 15may07abu # (c) Software Lab. Alexander Burger # *Profile (de _prf? (Lst) (and (pair Lst) (== 'tick (caadr Lst))) ) (de _prf (Lst) (when (pair Lst) (if (_prf? Lst) (prog1

# 21oct07abu # (c) Software Lab. Alexander Burger ### DB Garbage Collection ### (de dbgc () (markExt *DB) (let Cnt 0 (finally (mark 0) (for (F . @) (or *Dbs (2)) (for

# 29jun07abu # (c) Software Lab. Alexander Burger ### Concurrent DB Garbage Collector ### # *DbgcDly *DbgcPid (default *DbgcDly 64) (if (fork) (setq *DbgcPid @) (wait 60000) (undef 'upd)

# 17sep02abu # (c) Software Lab. Alexander Burger # Easter date (de easter (Year) (unless (

# 13oct06abu # (c) Software Lab. Alexander Burger # *Boss (unless *Boss (call 'mkdir "-p" "fifo") (call 'mkfifo (setq *Boss (pack "fifo/boss" *Pid))) (hear (open *Boss)) ) (push1 '*Fork '(

# 26may06abu # (c) Software Lab. Alexander Burger (de zahlwort (N) (cond ((not N)) ((=0 N) "null") ((lt0 N) (pack "minus " (zahlw (- N)))) (T (zahlw N)) ) ) (de zahlw (N F

# 14aug07abu # (c) Software Lab. Alexander Burger # *Prune (de root (Tree) (cond ((not Tree) (val *DB)) ((atom Tree) (val Tree)) ((ext? (cdr Tree)) (get @ (car Tree))) ((a