picolisp

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

tcc.l (774B)

      1 # 21jan07abu
      2 # (c) Software Lab. Alexander Burger
      3 
      4 # use the Tiny C Compiler http://fabrice.bellard.free.fr/tcc
      5 (de tcc (S L . @)
      6    (out (tmp S ".c")
      7       (chdir '@ (prinl "#include <pico.h>"))
      8       (here "/**/") )
      9    (apply call L 'tcc "-shared" "-rdynamic"
     10       (pack "-I" (dospath "/usr/include"))
     11       (pack "-I" (dospath (path "@/src")))
     12       "-falign-functions" "-fomit-frame-pointer"
     13       "-W" "-Wimplicit" "-Wreturn-type" "-Wunused" "-Wformat"
     14       "-Wuninitialized" "-Wstrict-prototypes" "-pipe"
     15       "-D_GNU_SOURCE" "-D_FILE_OFFSET_BITS=64" "-DNOWAIT"
     16       "-o" (tmp S ".dll") (tmp S ".c")
     17       (dospath (path "@/bin/picolisp.def")))
     18    (while (args)
     19       (def (next) (def (tmp S ': (arg)))) ) )
     20 
     21 (de dospath (p)
     22    (in '("cygpath" "-m" p) (line T)) )