代码搜索结果
找到约 10,000 项符合
L 的代码
user.l
# 09sep07abu
# (c) Software Lab. Alexander Burger
(must "User Administration" UserAdmin)
(menu
(ifn *ID
(prog
( NIL ,"Select" " " ,"User")
(form 'dialog (choDlg T ,"Us
lib.l
# 18jul07abu
# (c) Software Lab. Alexander Burger
### PDF-Print ###
(dm (ps> . +Ord) ()
(a4)
(font (12 . "Helvetica"))
(eps "img/7fach.eps" 340 150 75)
(window 380 120 120 30
(font
main.l
# 24oct07abu
# (c) Software <mark>L</mark>ab. A<mark>l</mark>exander Burger
(a<mark>l</mark><mark>l</mark>owed ("app/" "img/")
"@start" "@stop" "favicon.ico" "<mark>l</mark>ib.css" "@psh" )
(<mark>l</mark>oad "<mark>l</mark>ib/http.<mark>l</mark>" "<mark>l</mark>ib/xhtm<mark>l</mark>.<mark>l</mark>" "<mark>l</mark>ib/form.<mark>l</mark>" "<mark>l</mark>ib/ps.<mark>l</mark>" "<mark>l</mark>ib/ ...
sales.l
# 25jun07abu
# (c) Software Lab. Alexander Burger
(must "Sales" Report)
(menu
( NIL ,"Sales")
(form NIL
( "-.-"
,"Date" NIL
(prog
(gui '(+Var +Dat
gui.l
# 28dec07abu
# (c) Software Lab. Alexander Burger
### GUI ###
(de menu Prg
(action
(html 0 "Pico App" *Css NIL
( '(id . menu)
(
(,"Home" "@star
init.l
# 25jun07abu
# (c) Software Lab. Alexander Burger
### Role ###
(obj ((+Role) nm "Administration") perm `*Perms)
(obj ((+Role) nm "Accounting") perm (Customer Item Order Report Delete))
(obj ((+Role)
ord.l
# 29dec07abu
# (c) Software Lab. Alexander Burger
(must "Order" Order)
(menu
(ifn *ID
(prog
( NIL ,"Select" " " ,"Order")
(form 'dialog (choOrd T)) )
( NIL ,
rgb.l
# 02sep99abu
# (c) Software Lab. Alexander Burger
(de rgb (R G B . S)
(def S (+ B (* G 256) (* R 65536))) )
# Color Constant Definitions from "/usr/lib/X11/rgb.txt"
(rgb 0 0 0 . Black)
(rgb
lib.l
# 15dec04abu
# (c) Software Lab. Alexander Burger
(setq *Scl 6) # Keep in sync with `SCL' in "src/z3d.c"
(load "lib/simul.l")
(load "simul/rgb.l")
# Unity Matrix
(setq
*UMat (1.0 0.0 0.0 0.0 1
ttt.l
# 15may07abu
# (c) Software Lab. Alexander Burger
# *Board
(load "lib/simul.l")
(de display ()
(for Y (3 2 1)
(prinl " +---+---+---+")
(prin " " Y)
(for X (1 2 3)
(p