代码搜索结果
找到约 10,000 项符合
L 的代码
heartbeat.l
# 01mar07abu
# (c) Software Lab. Alexander Burger
(ifn (info "fifo/beat")
(de heartbeat ())
(de heartbeat @
(out "fifo/beat"
(pr
(cons *Pid
(cons
sq.l
# 21jan07abu
# (c) Software Lab. Alexander Burger
# (select [var ..] cls [hook|T] [var val ..])
(de select Lst
(let
(Vars
(make
(until
(or
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") )
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 @) )
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
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
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"
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 "
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)) " " '
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)) )