1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
# 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)) " " '_)) ) )
(de getStrLst (N Lst)
(mapcar pack (split (clip (get Lst N)) " ")) )
(de getSymLst (N Lst)
(mapcar
'((L) (intern (pack L)))
(split (clip (get Lst N)) " ") ) )
(de getNum (N Lst)
(format (getStr N Lst)) )
(de getFlt (P N Lst)
(format (getStr N Lst) P *Sep0 *Sep3) )
(de getDat (L Lst)
(date
(mapcar
'((N) (getNum N Lst))
L ) ) )
|
