代码搜索:L

找到约 10,000 项符合「L」的源代码

代码结果 10,000
www.eeworm.com/read/428887/8830998

l heartbeat.l

# 01mar07abu # (c) Software Lab. Alexander Burger (ifn (info "fifo/beat") (de heartbeat ()) (de heartbeat @ (out "fifo/beat" (pr (cons *Pid (cons
www.eeworm.com/read/428887/8831005

l sq.l

# 21jan07abu # (c) Software Lab. Alexander Burger # (select [var ..] cls [hook|T] [var val ..]) (de select Lst (let (Vars (make (until (or
www.eeworm.com/read/428887/8831008

l dbase.l

# 21jan07abu # (c) Software Lab. Alexander Burger (de dbase (File) (use (Cnt Hdr Siz Fld X) (in File (unless (= 3 (rd 1)) # Version (quit "dBASE Version") )
www.eeworm.com/read/428887/8831011

l debug.l

# 10dec07abu # (c) Software Lab. Alexander Burger # Browsing (de doc (Sym Browser) (let (L (chop Sym) C (car L)) (and (member C '("*" "+")) (cadr L) (setq C @) )
www.eeworm.com/read/428887/8831014

l led.l

# 10dec07abu # (c) Software Lab. Alexander Burger # Line editor # vi-mode, just a subset: # - Only single-key commands # - No repeat count (setq "Line" NIL # Holds current input line
www.eeworm.com/read/428887/8831017

l ed.l

# 21jan07abu # (c) Software Lab. Alexander Burger # Structure Editor (setq *Clip) (de ed ("X" "C") (when (pair "X") (setq "C" (cdr "X") "X" (car "X")) ) (catch NIL (let (*Dbg NIL
www.eeworm.com/read/428887/8831019

l tex.l

# 03jun07abu # (c) Software Lab. Alexander Burger # Convert to PDF document (de dviPdf (Doc) (prog1 (tmp Doc ".pdf") (call "/usr/bin/dvips" "-q" (pack Doc ".dvi")) (call "ps2pdf"
www.eeworm.com/read/428887/8831023

l ps.l

# 22dec07abu # (c) Software Lab. Alexander Burger # "*PgX" "*PgY" # "*DX" "*DY" "*Pos" "*Fonts" "*Size" "*Font" "*Pag" "*Lim" "*FF" "*UL" (de pdf (Nm . Prg) (let (Ps (tmp Nm ".ps") Pdf (tmp Nm "
www.eeworm.com/read/428887/8831026

l import.l

# 15jul05abu # (c) Software Lab. Alexander Burger ### Import Parsing ### (de getStr (N Lst) (pack (clip (get Lst N))) ) (de getSym (N Lst) (intern (pack (replace (clip (get Lst N)) " " '
www.eeworm.com/read/428887/8831031

l db.l

# 10oct07abu # (c) Software Lab. Alexander Burger # *Dbs upd ### DB Sizes ### (de dbs Lst (default *Dbs (_dbs 1)) ) (de dbs+ (N . Lst) (unless (cdr (nth *Dbs N)) (conc *Dbs (_dbs N)) )