picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

import.l (592B)

      1 # 15jul05abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 ### Import Parsing ###
      5 (de getStr (N Lst)
      6    (pack (clip (get Lst N))) )
      7 
      8 (de getSym (N Lst)
      9    (intern
     10       (pack (replace (clip (get Lst N)) " " '_)) ) )
     11 
     12 (de getStrLst (N Lst)
     13    (mapcar pack (split (clip (get Lst N)) " ")) )
     14 
     15 (de getSymLst (N Lst)
     16    (mapcar
     17       '((L) (intern (pack L)))
     18       (split (clip (get Lst N)) " ") ) )
     19 
     20 (de getNum (N Lst)
     21    (format (getStr N Lst)) )
     22 
     23 (de getFlt (P N Lst)
     24    (format (getStr N Lst) P *Sep0 *Sep3) )
     25 
     26 (de getDat (L Lst)
     27    (date
     28       (mapcar
     29          '((N) (getNum N Lst))
     30          L ) ) )