cgen/cgen-sim.scm

   1 ; Simulator generator entry point.
   2 ; This is invoked to build: arch.h, cpu-<cpu>.h, memops.h, semops.h, decode.h,
   3 ; decode.c, defs.h, extract.c, semantics.c, ops.c, model.c, mainloop.in.
   4 ;
   5 ; memops.h, semops.h, ops.c, mainloop.in are either deprecated or wip.
   6 ;
   7 ; Copyright (C) 2000, 2009 Red Hat, Inc.
   8 ; This file is part of CGEN.
   9 ;
  10 ; This is a standalone script, we don't load anything until we parse the
  11 ; -s argument (keeps reliance off of environment variables, etc.).
  12
  13 ; Load the various support routines.
  14
  15 (define (load-files srcdir)
  16   (load (string-append srcdir "/read.scm"))
  17   (load (string-append srcdir "/utils-sim.scm"))
  18   (load (string-append srcdir "/sim.scm"))
  19   (load (string-append srcdir "/sim-arch.scm"))
  20   (load (string-append srcdir "/sim-cpu.scm"))
  21   (load (string-append srcdir "/sim-model.scm"))
  22   (load (string-append srcdir "/sim-decode.scm"))
  23 )
  24
  25 (define sim-arguments
  26   (list
  27    (list "-A" "file" "generate arch.h in <file>"
  28          #f
  29          (lambda (arg) (file-write arg cgen-arch.h)))
  30    (list "-B" "file" "generate arch.c in <file>"
  31          #f
  32          (lambda (arg) (file-write arg cgen-arch.c)))
  33    (list "-C" "file" "generate cpu-<cpu>.h in <file>"
  34          #f
  35          (lambda (arg) (file-write arg cgen-cpu.h)))
  36    (list "-U" "file" "generate cpu-<cpu>.c in <file>"
  37          #f
  38          (lambda (arg) (file-write arg cgen-cpu.c)))
  39    (list "-N" "file" "generate cpu-all.h in <file>"
  40          #f
  41          (lambda (arg) (file-write arg cgen-cpuall.h)))
  42    (list "-F" "file" "generate memops.h in <file>"
  43          #f
  44          (lambda (arg) (file-write arg cgen-mem-ops.h)))
  45    (list "-G" "file" "generate defs.h in <file>"
  46          #f
  47          (lambda (arg) (file-write arg cgen-defs.h)))
  48    (list "-P" "file" "generate semops.h in <file>"
  49          #f
  50          (lambda (arg) (file-write arg cgen-sem-ops.h)))
  51    (list "-T" "file" "generate decode.h in <file>"
  52          #f
  53          (lambda (arg) (file-write arg cgen-decode.h)))
  54    (list "-D" "file" "generate decode.c in <file>"
  55          #f
  56          (lambda (arg) (file-write arg cgen-decode.c)))
  57    (list "-E" "file" "generate extract.c in <file>"
  58          #f
  59          (lambda (arg) (file-write arg cgen-extract.c)))
  60    (list "-R" "file" "generate read.c in <file>"
  61          #f
  62          (lambda (arg) (file-write arg cgen-read.c)))
  63    (list "-W" "file" "generate write.c in <file>"
  64          #f
  65          (lambda (arg) (file-write arg cgen-write.c)))
  66    (list "-S" "file" "generate semantics.c in <file>"
  67          #f
  68          (lambda (arg) (file-write arg cgen-semantics.c)))
  69    (list "-X" "file" "generate sem-switch.c in <file>"
  70          #f
  71          (lambda (arg) (file-write arg cgen-sem-switch.c)))
  72    (list "-O" "file" "generate ops.c in <file>"
  73          #f
  74          (lambda (arg) (file-write arg cgen-ops.c)))
  75    (list "-M" "file" "generate model.c in <file>"
  76          #f
  77          (lambda (arg) (file-write arg cgen-model.c)))
  78    (list "-L" "file" "generate mainloop.in in <file>"
  79          #f
  80          (lambda (arg) (file-write arg cgen-mainloop.in)))
  81    )
  82 )
  83
  84 ; Kept global so it's available to the other .scm files.
  85 (define srcdir ".")
  86
  87 ; Scan argv for -s srcdir.
  88 ; We can't process any other args until we find the cgen source dir.
  89 ; The result is srcdir.
  90 ; We assume "-s" isn't the argument to another option.  Unwise, yes.
  91 ; Alternatives are to require it to be the first argument or at least preceed
  92 ; any option with a "-s" argument, or to put knowledge of the common argument
  93 ; set and common argument parsing code in every top level file.
  94
  95 (define (find-srcdir argv)
  96   (let loop ((argv argv))
  97     (if (null? argv)
  98         (error "`-s srcdir' not present, can't load cgen"))
  99     (if (string=? "-s" (car argv))
 100         (begin
 101           (if (null? (cdr argv))
 102               (error "missing srcdir arg to `-s'"))
 103           (cadr argv))
 104         (loop (cdr argv))))
 105 )
 106
 107 ; Main routine, parses options and calls generators.
 108
 109 (define (cgen-sim argv)
 110   (let ()
 111
 112     ; Find and set srcdir, then load all Scheme code.
 113     ; Drop the first argument, it is the script name (i.e. argv[0]).
 114     (set! srcdir (find-srcdir (cdr argv)))
 115     (set! %load-path (cons srcdir %load-path))
 116     (load-files srcdir)
 117
 118     (display-argv argv)
 119
 120     (cgen #:argv argv
 121           #:app-name "sim"
 122           #:arg-spec sim-arguments
 123           #:init sim-init!
 124           #:finish sim-finish!
 125           #:analyze sim-analyze!)
 126     )
 127 )
 128
 129 (cgen-sim (program-arguments))