artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc: Support -dumpmachine.

Browse source 
* scripts/mescc.in (parse-opts): Support -dumpmachine.
This commit is contained in:
Jan Nieuwenhuizen 2018-11-08 22:41:20 +01:00
parent 3d528b0257
commit 21887b9a8e
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 16 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
scripts/mescc.in
View file

@ -78,6 +78,7 @@ fi
(compile (single-char #\S))
(define (single-char #\D) (value #t))
(debug-info (single-char #\g))
(dumpmachine (single-char #\d))
(help (single-char #\h))
(include (single-char #\I) (value #t))
(library-dir (single-char #\L) (value #t))
@ -88,19 +89,27 @@ fi
(version (single-char #\V))
(verbose (single-char #\v))
(write (single-char #\w) (value #t))))
(single-dash-options '("-dumpmachine"))
(args (map (lambda (o)
(if (member o single-dash-options) (string-append "-" o)
o))
args))
(options (getopt-long args option-spec))
(help? (option-ref options 'help #f))
(files (option-ref options '() '()))
(usage? (and (not help?) (null? files)))
(version? (option-ref options 'version #f)))
(or
(and version?
(format (current-output-port) "mescc (GNU Mes) ~a\n" %version))
(cond ((option-ref options 'dumpmachine #f)
(display "x86-mes")
(exit 0))
(version? (format #t "mescc (GNU Mes) ~a\n" %version) (exit 0))
(else
(and (or help? usage?)
(format (or (and usage? (current-error-port)) (current-output-port)) "\
Usage: mescc [OPTION]... FILE...
--align align globals
-c preprocess, compile and assemble only; do not link
-dumpmachine display the compiler's target processor
--base-address=ADRRESS
use BaseAddress ADDRESS [0x1000000]
-D DEFINE[=VALUE] define DEFINE [VALUE=1]
@ -123,7 +132,7 @@ Environment variables:
NYACC_TRACE=1 show Nyacc progress
")
(exit (or (and usage? 2) 0)))
options)))
options))))
(define (main args)
(let* ((options (parse-opts args))