make.scm

   1 #! /bin/sh
   2 # -*- scheme -*-
   3 exec ${GUILE-guile} --no-auto-compile -L . -L guile -C . -C guile -s "$0" ${1+"$@"}
   4 !#
   5
   6 (use-modules (srfi srfi-26)
   7              (guix shell-utils))
   8
   9 ;; FIXME: .go dependencies
  10 ;; workaround: always update .go before calculating hashes
  11 ;;(use-modules ((mes make) #:select (sytem**)))
  12 (define %scm-files
  13   '("guix/make.scm"
  14     "guix/records.scm"
  15     "guix/shell-utils.scm"
  16     "language/c99/compiler.scm"
  17     "language/c99/info.scm"
  18     "mes/as-i386.scm"
  19     "mes/as.scm"
  20     "mes/bytevectors.scm"
  21     "mes/elf.scm"
  22     "mes/guile.scm"
  23     "mes/M1.scm"))
  24 (define %go-files (map (compose (cut string-append <> ".go") (cut string-drop-right <> 4)) %scm-files))
  25 (setenv "srcdir" ".")
  26 (setenv "host" %host-type)
  27 (with-directory-excursion "guile"
  28   (apply system* `("guile"
  29                    "--no-auto-compile"
  30                    "-L" "."
  31                    "-C" "."
  32                    "-s"
  33                    "../build-aux/compile-all.scm"
  34                    ,@%scm-files)))
  35
  36 (use-modules (srfi srfi-1)
  37              (ice-9 curried-definitions)
  38              (ice-9 match)
  39              (guix make))
  40
  41 (add-target (bin.mescc "stage0/exit-42.c" #:libc #f))
  42 (add-target (check "stage0/exit-42.0-guile" #:signal 11))  ; FIXME: segfault
  43
  44 (add-target (cpp.mescc "mlibc/mini-libc-mes.c"))
  45 (add-target (compile.mescc "mlibc/mini-libc-mes.c"))
  46
  47 (add-target (bin.mescc "stage0/exit-42.c" #:libc mini-libc-mes.E))
  48 (add-target (check "stage0/exit-42.mini-guile" #:exit 42))
  49
  50 (add-target (cpp.mescc "mlibc/libc-mes.c"))
  51 (add-target (compile.mescc "mlibc/libc-mes.c"))
  52
  53 (add-target (bin.mescc "stage0/exit-42.c"))
  54 (add-target (check "stage0/exit-42.guile" #:exit 42))
  55
  56 (define* (add-scaffold-test name #:key (exit 0) (libc libc-mes.E))
  57   (add-target (bin.gcc (string-append "scaffold/tests/" name ".c") #:libc #f))
  58   (add-target (check (string-append "scaffold/tests/" name ".mlibc-gcc") #:exit exit))
  59
  60   (add-target (bin.mescc (string-append "scaffold/tests/" name ".c") #:libc libc))
  61   (add-target (check (string-append "scaffold/tests/" name "." (cond ((not libc) "0-")
  62                                                                      ((eq? libc mini-libc-mes.E) "mini-")
  63                                                                      (else "")) "guile") #:exit exit)))
  64
  65 (add-scaffold-test "t" #:libc mini-libc-mes.E)
  66 ;;(add-scaffold-test "t" #:libc libc-mes+tcc.E)
  67
  68 ;; tests/00: exit, functions without libc
  69 (add-scaffold-test "00-exit-0" #:libc #f)
  70 (add-scaffold-test "01-return-0" #:libc #f)
  71 (add-scaffold-test "02-return-1" #:libc #f #:exit 1)
  72 (add-scaffold-test "03-call" #:libc #f)
  73 (add-scaffold-test "04-call-0" #:libc #f)
  74 (add-scaffold-test "05-call-1" #:libc #f #:exit 1)
  75 (add-scaffold-test "06-call-!1" #:libc #f)
  76
  77 (add-target (group "check-scaffold-tests/0" #:dependencies (filter (target-prefix? "check-scaffold/tests/0") %targets)))
  78
  79 ;; tests/10: control without libc
  80 (for-each
  81  (cut add-scaffold-test <> #:libc #f)
  82  '("10-if-0"
  83    "11-if-1"
  84    "12-if-=="
  85    "13-if-!="
  86    "14-if-goto"
  87    "15-if-!f"
  88    "16-if-t"))
  89
  90 (add-target (group "check-scaffold-tests/1" #:dependencies (filter (target-prefix? "check-scaffold/tests/1") %targets)))
  91
  92 ;; tests/20: loop without libc
  93 (for-each
  94  (cut add-scaffold-test <> #:libc #f)
  95  '("20-while"
  96    "21-char[]"
  97    "22-while-char[]"
  98    "23-pointer"))
  99
 100 (add-target (group "check-scaffold-tests/2" #:dependencies (filter (target-prefix? "check-scaffold/tests/2") %targets)))
 101
 102 ;; tests/30: call, compare: mini-libc-mes.c
 103 (for-each
 104  (cut add-scaffold-test <> #:libc mini-libc-mes.E)
 105  '("30-strlen"
 106    "31-eputs"
 107    "32-compare"
 108    "33-and-or"
 109    "34-pre-post"
 110    "35-compare-char"
 111    "36-compare-arithmetic"
 112    "37-compare-assign"
 113    "38-compare-call"))
 114
 115 (add-target (group "check-scaffold-tests/3" #:dependencies (filter (target-prefix? "check-scaffold/tests/3") %targets)))
 116
 117 ;; tests/40: control: mini-libc-mes.c
 118 (for-each
 119  (cut add-scaffold-test <> #:libc mini-libc-mes.E)
 120  '("40-if-else"
 121    "41-?"
 122    "42-goto-label"
 123    "43-for-do-while"
 124    "44-switch"
 125    "45-void-call"))
 126
 127 (add-target (group "check-scaffold-tests/4" #:dependencies (filter (target-prefix? "check-scaffold/tests/4") %targets)))
 128
 129 ;; tests/50: libc-mes.c
 130 (for-each
 131  add-scaffold-test
 132  '("50-assert"
 133    "51-strcmp"
 134    "52-itoa"
 135    "54-argv"))
 136
 137 (add-target (group "check-scaffold-tests/5" #:dependencies (filter (target-prefix? "check-scaffold/tests/5") %targets)))
 138
 139 ;; tests/60: building up to scaffold/m.c, scaffold/micro-mes.c
 140 (for-each
 141  add-scaffold-test
 142  '("60-math"
 143    "61-array"
 144    "63-struct-cell"
 145    "64-make-cell"
 146    "65-read"))
 147
 148 (add-target (group "check-scaffold-tests/6" #:dependencies (filter (target-prefix? "check-scaffold/tests/6") %targets)))
 149
 150 ;; tests/70: and beyond src/mes.c -- building up to 8cc.c, pcc.c, tcc.c, libguile/eval.c
 151 (for-each
 152  add-scaffold-test
 153  '("70-printf"
 154    "71-struct-array"
 155    "72-typedef-struct-def"
 156    "73-union"
 157    "74-multi-line-string"
 158    "75-struct-union"
 159    "76-pointer-arithmetic"
 160    "77-pointer-assign"
 161    "78-union-struct"
 162    "79-int-array"
 163    "7a-struct-char-array"
 164    "7b-struct-int-array"
 165    "7c-dynarray"
 166    "7d-cast-char"
 167    "7e-struct-array-access"
 168    "7f-struct-pointer-arithmetic"
 169    "7g-struct-byte-word-field"
 170    "7h-struct-assign"
 171    "7i-struct-struct"))
 172
 173 (add-target (group "check-scaffold-tests/7" #:dependencies (filter (target-prefix? "check-scaffold/tests/7") %targets)))
 174
 175 (add-target (group "check-scaffold-tests" #:dependencies (filter (target-prefix? "check-scaffold/tests") %targets)))
 176
 177 (add-target (cpp.mescc "mlibc/libc-mes+tcc.c"))
 178 (add-target (compile.mescc "mlibc/libc-mes+tcc.c"))
 179
 180 (define* (add-tcc-test name)
 181   (add-target (bin.gcc (string-append "scaffold/tinycc/" name ".c") #:libc #f #:includes '("scaffold/tinycc")))
 182   (add-target (check (string-append "scaffold/tinycc/" name ".mlibc-gcc") #:baseline (string-append "scaffold/tinycc/" name ".expect")))
 183
 184   (add-target (bin.mescc (string-append "scaffold/tinycc/" name ".c") #:includes '("scaffold/tinycc")))
 185   (add-target (check (string-append "scaffold/tinycc/" name ".guile") #:baseline (string-append "scaffold/tinycc/" name ".expect"))))
 186 (map
 187  add-tcc-test
 188  '("00_assignment"
 189    "01_comment"
 190    "02_printf"
 191    "03_struct"
 192    "04_for"
 193    "05_array"
 194    "06_case"
 195    "07_function"
 196    "08_while"
 197    "09_do_while"
 198
 199    "10_pointer"
 200    "11_precedence"
 201    "12_hashdefine"
 202    "13_integer_literals"
 203    "14_if"
 204    "15_recursion"
 205    "16_nesting"
 206    "17_enum"
 207    "18_include"
 208    "19_pointer_arithmetic"
 209
 210    "20_pointer_comparison"
 211    "21_char_array"
 212    ;;"22_floating_point"       ; float
 213    ;;"23_type_coercion"        ; float
 214    ;;"24_math_library"         ; float
 215    "25_quicksort"
 216    ;;"27_sizeof"               ; float
 217    ;;"28_strings"              ; TODO: strncpy strchr strrchr memset memcpy memcmp
 218    "29_array_address"
 219
 220    ;;"30_hanoi"                ; fails with GCC
 221    "31_args"
 222    ;;"32_led"                  ; unsupported: (decl (decl-spec-list (stor-spec (static)) (type-spec (fixed-type "int"))) (init-declr-list (init-declr (array-of (ident "d") (p-expr (fixed "32"))))))
 223    ;;"34_array_assignment"     ; fails with GCC
 224    "33_ternary_op"
 225    "35_sizeof"
 226    ;;"36_array_initialisers"   ; unspported: (decl (decl-spec-list (type-spec (fixed-type "int"))) (init-declr-list (init-declr (array-of (ident "Array") (p-expr (fixed "10"))) (initzer (initzer-list (initzer (p-expr (fixed "12"))) (initzer (p-expr (fixed "34"))) (initzer (p-expr (fixed "56"))) (initzer (p-expr (fixed "78"))) (initzer (p-expr (fixed "90"))) (initzer (p-expr (fixed "123"))) (initzer (p-expr (fixed "456"))) (initzer (p-expr (fixed "789"))) (initzer (p-expr (fixed "8642"))) (initzer (p-expr (fixed "9753"))))))))
 227    ;; "37_sprintf"             ; integer formatting unsupported
 228    ;;"38_multiple_array_index" ; unspported: (decl (decl-spec-list (type-spec (fixed-type "int"))) (init-declr-list (init-declr (array-of (array-of (ident "a") (p-expr (fixed "4"))) (p-expr (fixed "4"))))))
 229    ;;"39_typedef"              ; unsupported: (decl (decl-spec-list (stor-spec (typedef)) (type-spec (typename "MyFunStruct"))) (init-declr-list (init-declr (ptr-declr (pointer) (ident "MoreFunThanEver")))))
 230
 231    ;;"40_stdio"                ; f* functions
 232    "41_hashif"
 233    ;;"42_function_pointer"     ; f* functions
 234    "43_void_param"
 235    "44_scoped_declarations"
 236    ;; "45_empty_for"           ; unsupported
 237    ;;"46_grep"                 ; f* functions
 238    "47_switch_return"
 239    "48_nested_break"
 240    ;;"49_bracket_evaluation"   ; float
 241
 242    "50_logical_second_arg"
 243    ;;"51_static"               ; unsupported: (decl (decl-spec-list (stor-spec (static)) (type-spec (fixed-type "int"))) (init-declr-list (init-declr (ident "fred") (initzer (p-expr (fixed "1234"))))))
 244    ;;"52_unnamed_enum"         ; unsupported: (decl (decl-spec-list (stor-spec (typedef)) (type-spec (enum-def (enum-def-list (enum-defn (ident "e")) (enum-defn (ident "f")) (enum-defn (ident "g")))))) (init-declr-list (init-declr (ident "h"))))
 245    "54_goto"
 246    ;;"55_lshift_type"          ; unsigned
 247    ))
 248
 249 (add-target (group "check-scaffold-tinycc" #:dependencies (filter (target-prefix? "check-scaffold/tinycc") %targets)))
 250
 251 ;;(add-target (group "check-scaffold" #:dependencies (filter (target-prefix? "check-scaffold") %targets)))
 252
 253 (add-target (bin.gcc "scaffold/main.c"))
 254 (add-target (check "scaffold/main.gcc" #:exit 42))
 255
 256 (add-target (bin.gcc "scaffold/main.c" #:libc #f))
 257 (add-target (check "scaffold/main.mlibc-gcc" #:exit 42))
 258
 259 (add-target (bin.mescc "scaffold/main.c" #:libc mini-libc-mes.E))
 260 (add-target (check "scaffold/main.mini-guile" #:exit 42))
 261
 262 (add-target (bin.mescc "scaffold/main.c"))
 263 (add-target (check "scaffold/main.guile" #:exit 42))
 264
 265
 266 (add-target (bin.gcc "scaffold/hello.c"))
 267 (add-target (check "scaffold/hello.gcc" #:exit 42))
 268
 269 (add-target (bin.gcc "scaffold/hello.c" #:libc #f))
 270 (add-target (check "scaffold/hello.mlibc-gcc" #:exit 42))
 271
 272 (add-target (bin.mescc "scaffold/hello.c" #:libc mini-libc-mes.E))
 273 (add-target (check "scaffold/hello.mini-guile" #:exit 42))
 274
 275 (add-target (bin.mescc "scaffold/hello.c"))
 276 (add-target (check "scaffold/hello.guile" #:exit 42))
 277
 278
 279 (add-target (bin.gcc "scaffold/m.c"))
 280 (add-target (check "scaffold/m.gcc" #:exit 255))
 281
 282 (add-target (bin.gcc "scaffold/m.c" #:libc #f))
 283 (add-target (check "scaffold/m.mlibc-gcc" #:exit 255))
 284
 285 (add-target (bin.mescc "scaffold/m.c"))
 286 (add-target (check "scaffold/m.guile" #:exit 255))
 287
 288 (add-target (bin.gcc "scaffold/micro-mes.c" #:libc #f))
 289 (add-target (check "scaffold/micro-mes.mlibc-gcc" #:exit 6)) ; arg1 arg2 arg3 arg4 arg5
 290
 291 (add-target (bin.mescc "scaffold/micro-mes.c"))
 292 (add-target (check "scaffold/micro-mes.guile" #:exit 6)) ; arg1 arg2 arg3 arg4 arg5
 293
 294 (add-target (group "check-scaffold" #:dependencies (filter (target-prefix? "check-scaffold") %targets)))
 295
 296 (define snarf-bases
 297   '("gc" "lib" "math" "mes" "posix" "reader" "vector"))
 298
 299 (define bla
 300   `(,@(map (cut string-append "src/" <> ".c") snarf-bases)
 301     ,@(map (cut string-append "src/" <> ".mes.h") snarf-bases)
 302     ,@(map (cut string-append "src/" <> ".mes.i") snarf-bases)
 303     ,@(map (cut string-append "src/" <> ".mes.environment.i") snarf-bases)))
 304
 305 (define gcc-snarf-targets
 306   (list
 307    (add-target (snarf "src/gc.c" #:mes? #f))
 308    (add-target (snarf "src/lib.c" #:mes? #f))
 309    (add-target (snarf "src/math.c" #:mes? #f))
 310    (add-target (snarf "src/mes.c" #:mes? #f))
 311    (add-target (snarf "src/posix.c" #:mes? #f))
 312    (add-target (snarf "src/reader.c" #:mes? #f))
 313    (add-target (snarf "src/vector.c" #:mes? #f))))
 314
 315 (define mes-snarf-targets
 316   (list
 317    (add-target (snarf "src/gc.c"))
 318    (add-target (snarf "src/lib.c" #:mes? #t))
 319    (add-target (snarf "src/math.c" #:mes? #t))
 320    (add-target (snarf "src/mes.c" #:mes? #t))
 321    (add-target (snarf "src/posix.c" #:mes? #t))
 322    (add-target (snarf "src/reader.c" #:mes? #t))
 323    (add-target (snarf "src/vector.c" #:mes? #t))))
 324
 325 (add-target (bin.gcc "src/mes.c" #:dependencies gcc-snarf-targets
 326                      #:defines `("FIXED_PRIMITIVES=1"
 327                                  "MES_FULL=1"
 328                                  "POSIX=1"
 329                                  ,(string-append "VERSION=\"" %version "\"")
 330                                  ,(string-append "MODULEDIR=\"" (string-append %prefix (if (string-null? %prefix) "" "/") %moduledir "/") "\"")
 331                                  ,(string-append "PREFIX=\"" %prefix "\""))
 332                      #:includes '("src")))
 333
 334 (add-target (bin.gcc "src/mes.c" #:libc #f
 335                      #:dependencies mes-snarf-targets
 336                      #:defines `("FIXED_PRIMITIVES=1"
 337                                  "MES_FULL=1"
 338                                  ,(string-append "VERSION=\"" %version "\"")
 339                                  ,(string-append "MODULEDIR=\"" (string-append %prefix (if (string-null? %prefix) "" "/") "/" %moduledir "/") "\"")
 340                                  ,(string-append "PREFIX=\"" %prefix "\""))
 341                      #:includes '("src")))
 342
 343 (add-target (bin.mescc "src/mes.c" #:dependencies mes-snarf-targets
 344                        #:defines `("FIXED_PRIMITIVES=1"
 345                                    "MES_FULL=1"
 346                                    ,(string-append "VERSION=\"" %version "\"")
 347                                    ,(string-append "MODULEDIR=\"" (string-append %prefix (if (string-null? %prefix) "" "/") %moduledir "/") "\"")
 348                                    ,(string-append "PREFIX=\"" %prefix "\""))
 349                        #:includes '("src")))
 350
 351 (define mes-tests
 352   '("tests/read.test"
 353     "tests/base.test"
 354     "tests/closure.test"
 355     "tests/quasiquote.test"
 356     "tests/let.test"
 357     "tests/scm.test"
 358     "tests/display.test"
 359     "tests/cwv.test"
 360     "tests/math.test"
 361     "tests/vector.test"
 362     "tests/srfi-1.test"
 363     "tests/srfi-13.test"
 364     "tests/srfi-14.test"
 365     "tests/optargs.test"
 366     "tests/fluids.test"
 367     "tests/catch.test"
 368     "tests/psyntax.test"
 369     "tests/pmatch.test"
 370     "tests/let-syntax.test"
 371     "tests/guile.test"
 372     "tests/record.test"
 373     ;;sloooowwww
 374     ;;"tests/match.test"
 375     ;;"tests/peg.test"
 376     ))
 377
 378 (define (add-mes.gcc-test o)
 379   (add-target (target (file-name o)))
 380   (add-target (check o #:dependencies (list (get-target "src/mes.mlibc-gcc")))))
 381
 382 (define (add-mes.guile-test o)
 383   (add-target (target (file-name o)))
 384   (add-target (check o #:dependencies (list (get-target "src/mes.guile")))))
 385
 386 ;; takes long, and should always pass if...
 387 ;;(for-each add-mes.gcc-test mes-tests)
 388
 389 ;; ...mes.guile passes :-)
 390 (for-each add-mes.guile-test mes-tests)
 391
 392 ;; FIXME: run tests/base.test
 393 (setenv "MES" "src/mes.guile")
 394
 395 (add-target (install "guile/mescc.scm" #:dir "bin" #:substitutes #t))
 396 (add-target (install "scripts/mescc.mes" #:dir "bin" #:substitutes #t))
 397 (add-target (install "scripts/repl.mes" #:dir "bin" #:substitutes #t))
 398 (define bootstrap? #f)
 399 (if bootstrap?
 400     (add-target (install "src/mes.mes" #:dir "bin" #:installed-name "mes"))
 401     (add-target (install "src/mes.guile" #:dir "bin" #:installed-name "mes")))
 402
 403 (define* ((install-dir #:key dir) name)
 404   (add-target (install name  #:dir (string-append dir "/" (dirname name)))))
 405
 406 (add-target (install "module/mes/base-0.mes" #:dir (string-append %moduledir "/mes") #:substitutes #t))
 407 (add-target (install "module/language/c99/compiler.mes" #:dir (string-append %moduledir "/language/c99") #:substitutes #t))
 408
 409 (define %module-dir "share/mes")
 410 (for-each
 411  (lambda (f)
 412    ((install-dir #:dir (string-append %module-dir)) f))
 413  '("module/language/c99/compiler.mes"
 414    "module/language/c99/compiler.scm"
 415    "module/language/c99/info.mes"
 416    "module/language/c99/info.scm"
 417    "module/language/paren.mes"
 418    "module/mes/M1.mes"
 419    "module/mes/M1.scm"
 420    "module/mes/as-i386.mes"
 421    "module/mes/as-i386.scm"
 422    "module/mes/as.mes"
 423    "module/mes/as.scm"
 424    ;;"module/mes/base-0.mes"
 425    "module/mes/base.mes"
 426    "module/mes/bytevectors.mes"
 427    "module/mes/bytevectors.scm"
 428    "module/mes/catch.mes"
 429    "module/mes/display.mes"
 430    "module/mes/elf.mes"
 431    "module/mes/elf.scm"
 432    "module/mes/fluids.mes"
 433    "module/mes/getopt-long.mes"
 434    "module/mes/getopt-long.scm"
 435    "module/mes/guile.mes"
 436    "module/mes/lalr.mes"
 437    "module/mes/lalr.scm"
 438    "module/mes/let.mes"
 439    "module/mes/match.mes"
 440    "module/mes/match.scm"
 441    "module/mes/optargs.mes"
 442    "module/mes/optargs.scm"
 443    "module/mes/peg.mes"
 444    "module/mes/peg/cache.scm"
 445    "module/mes/peg/codegen.scm"
 446    "module/mes/peg/simplify-tree.scm"
 447    "module/mes/peg/string-peg.scm"
 448    "module/mes/peg/using-parsers.scm"
 449    "module/mes/pmatch.mes"
 450    "module/mes/pmatch.scm"
 451    "module/mes/posix.mes"
 452    "module/mes/pretty-print.mes"
 453    "module/mes/pretty-print.scm"
 454    "module/mes/psyntax-0.mes"
 455    "module/mes/psyntax-1.mes"
 456    "module/mes/psyntax.mes"
 457    "module/mes/psyntax.pp"
 458    "module/mes/psyntax.ss"
 459    "module/mes/quasiquote.mes"
 460    "module/mes/quasisyntax.mes"
 461    "module/mes/quasisyntax.scm"
 462    "module/mes/read-0.mes"
 463    "module/mes/record-0.mes"
 464    "module/mes/record.mes"
 465    "module/mes/repl.mes"
 466    "module/mes/scm.mes"
 467    "module/mes/syntax.mes"
 468    "module/mes/syntax.scm"
 469    "module/mes/test.mes"
 470    "module/mes/tiny-0.mes"
 471    "module/mes/type-0.mes"
 472    "module/nyacc/lalr.mes"
 473    "module/nyacc/lang/c99/cpp.mes"
 474    "module/nyacc/lang/c99/parser.mes"
 475    "module/nyacc/lang/calc/parser.mes"
 476    "module/nyacc/lang/util.mes"
 477    "module/nyacc/lex.mes"
 478    "module/nyacc/parse.mes"
 479    "module/nyacc/util.mes"
 480    "module/rnrs/arithmetic/bitwise.mes"
 481    "module/srfi/srfi-0.mes"
 482    "module/srfi/srfi-1.mes"
 483    "module/srfi/srfi-1.scm"
 484    "module/srfi/srfi-13.mes"
 485    "module/srfi/srfi-14.mes"
 486    "module/srfi/srfi-16.mes"
 487    "module/srfi/srfi-16.scm"
 488    "module/srfi/srfi-26.mes"
 489    "module/srfi/srfi-26.scm"
 490    "module/srfi/srfi-43.mes"
 491    "module/srfi/srfi-9-psyntax.mes"
 492    "module/srfi/srfi-9.mes"
 493    "module/srfi/srfi-9.scm"
 494    "module/sxml/xpath.mes"
 495    "module/sxml/xpath.scm"))
 496
 497 (define* ((install-guile-dir #:key dir) name)
 498   (add-target (install (string-append "guile/" name) #:dir (string-append dir "/" (dirname name)))))
 499
 500 (for-each
 501  (lambda (f)
 502    ((install-guile-dir #:dir (string-append %guiledir)) f))
 503  %scm-files)
 504
 505 (for-each
 506  (lambda (f)
 507    ((install-guile-dir #:dir (string-append %godir)) f))
 508  %go-files)
 509
 510 (add-target (install "mlibc/libc-mes.E" #:dir "lib"))
 511 (add-target (install "mlibc/libc-mes.M1" #:dir "lib"))
 512 (add-target (install "mlibc/libc-mes+tcc.E" #:dir "lib"))
 513 (add-target (install "mlibc/libc-mes+tcc.M1" #:dir "lib"))
 514 (add-target (install "mlibc/mini-libc-mes.E" #:dir "lib"))
 515 (add-target (install "mlibc/mini-libc-mes.M1" #:dir "lib"))
 516
 517 (for-each
 518  (lambda (f)
 519    ((install-dir #:dir "share/") f))
 520  '("mlibc/include/alloca.h"
 521    "mlibc/include/assert.h"
 522    "mlibc/include/ctype.h"
 523    "mlibc/include/dlfcn.h"
 524    "mlibc/include/errno.h"
 525    "mlibc/include/fcntl.h"
 526    "mlibc/include/features.h"
 527    "mlibc/include/inttypes.h"
 528    "mlibc/include/libgen.h"
 529    "mlibc/include/limits.h"
 530    "mlibc/include/locale.h"
 531    "mlibc/include/math.h"
 532    "mlibc/include/mlibc.h"
 533    "mlibc/include/setjmp.h"
 534    "mlibc/include/signal.h"
 535    "mlibc/include/stdarg.h"
 536    "mlibc/include/stdbool.h"
 537    "mlibc/include/stdint.h"
 538    "mlibc/include/stdio.h"
 539    "mlibc/include/stdlib.h"
 540    "mlibc/include/stdnoreturn.h"
 541    "mlibc/include/string.h"
 542    "mlibc/include/strings.h"
 543    "mlibc/include/sys/cdefs.h"
 544    "mlibc/include/sys/mman.h"
 545    "mlibc/include/sys/stat.h"
 546    "mlibc/include/sys/time.h"
 547    "mlibc/include/sys/timeb.h"
 548    "mlibc/include/sys/types.h"
 549    "mlibc/include/sys/ucontext.h"
 550    "mlibc/include/sys/wait.h"
 551    "mlibc/include/time.h"
 552    "mlibc/include/unistd.h"))
 553
 554 (for-each
 555  (compose add-target (cut install <> #:dir "share/doc/mes"))
 556  '("AUTHORS"
 557    ;;"ChangeLog"
 558    "COPYING"
 559    "HACKING"
 560    "INSTALL"
 561    "NEWS"
 562    "README"
 563    "doc/ANNOUNCE-0.9"))
 564
 565 (add-target (install "doc/fosdem/fosdem.pdf" #:dir "share/doc/mes"))
 566
 567 (define (main args)
 568   (cond ((member "all-go" args) #t)
 569         ((member "clean-go" args) (map delete-file (filter file-exists? %go-files)))
 570         ((member "clean" args) (clean))
 571         ((member "list" args) (display (string-join (map target-file-name %targets) "\n" 'suffix)))
 572         ((member "help" args) (format #t "Usage: ./make.scm [TARGET]...
 573
 574 Targets:
 575     all
 576     all-go
 577     check
 578     clean
 579     clean-go
 580     help~a
 581     install
 582     list
 583 "
 584                                       (string-join (filter (negate (cut string-index <> #\/)) (map target-file-name %targets)) "\n    " 'prefix)))
 585         (else
 586          (let ((targets (match args
 587                           (() (filter (negate check-target?) %targets))
 588                           ((? (cut member "all" <>)) (filter (conjoin (negate install-target?)
 589                                                                       (negate check-target?))
 590                                                              %targets))
 591                           ((? (cut member "check" <>)) (filter check-target? %targets))
 592                           ((? (cut member "install" <>)) (filter install-target? %targets))
 593                           (_ (filter-map (cut get-target <>) args)))))
 594            (for-each build targets)
 595            ;;((@@ (mes make) store) #:print 0)
 596            (exit %status)))))
 597
 598 (main (cdr (command-line)))