| #! /bin/sh -e |
| |
| # |
| # COPYRIGHT |
| # The gcobc program is in public domain. |
| # If it breaks then you get to keep both pieces. |
| # |
| # This file emulates the GnuCOBOL cobc compiler to a limited degree. |
| # For options that can be "mapped" (see migration-guide.1), it accepts |
| # cobc options, changing them to the gcobol equivalents. Options not |
| # recognized by the script are passed verbatim to gcobol, which will |
| # reject them unless of course they are gcobol options. |
| # |
| # User-defined variables, and their defaults: |
| # |
| # Variable Default Effect |
| # echo none If defined, echo the gcobol command |
| # gcobcx none Produce verbose messages |
| # gcobol ./gcobol Name of the gcobol binary |
| # GCOBCUDF PREFIX/share/cobol/udf/ Location of UDFs to be prepended to input |
| # |
| # By default, this script includes all files in $GCOBCUDF. To defeat |
| # that behavior, use GCOBCUDF=none. |
| # |
| # A list of supported options is produced with "gcobc -HELP". |
| # |
| ## Maintainer note. In modifying this file, the following may make |
| ## your life easier: |
| ## |
| ## - To force the script to exit, either set exit_status to 1, or call |
| ## the error function. |
| ## - As handled options are added, add them to the HELP here-doc. |
| ## - The compiler can produce only one kind of output. In this |
| ## script, that's known by $mode. Options that affect the type of |
| ## output set the mode variable. Everything else is appended to the |
| ## opts variable. |
| ## |
| ## - -fPIC is added to the command line if $mode is "-shared". That |
| ## option applies only to "certain machines", per the gcc info |
| ## manual. For this script to be portable across machines, -fPIC |
| ## would have to be set more judiciously. |
| |
| if [ "$COBCPY" ] |
| then |
| copydir="-I$COBCPY" |
| fi |
| |
| if [ "$COB_COPY_DIR" ] |
| then |
| copydir="-I$COB_COPY_DIR" |
| fi |
| |
| # TODO: this file likely needs to query gcobol for its shared path instead |
| udf_default="${0%/*}/../share/gcobol/udf" |
| if [ ! -d "$udfdir" ] |
| then |
| # the one above is the installed one from the packages this one was previously used |
| udf_default="${0%/*}/../share/cobol/udf" |
| fi |
| udfdir="${GCOBCUDF:-$udf_default}" |
| |
| if [ -d "$udfdir" ] |
| then |
| for F in "$udfdir"/* |
| do |
| if [ -f "$F" ] |
| then |
| includes="$includes -include $F " |
| fi |
| done |
| else |
| if [ "${GCOBCUDF:-none}" != "none" ] |
| then |
| echo warning: no such directory: "'$GCOBCUDF'" |
| fi |
| fi |
| |
| exit_status=0 |
| skip_arg= |
| opts="$copydir $includes" |
| mode=-shared |
| |
| incomparable="has no comparable gcobol option" |
| |
| if [ "${gcobcx:-0}" -gt 1 ] |
| then |
| set -x |
| fi |
| |
| error() { |
| echo "error: $1" >&2 |
| exit_status=1 |
| } |
| warn() { |
| echo "warning: $1 ignored" >&2 |
| } |
| ignore_arg() { |
| warn "$1" |
| skip_arg="$1" |
| } |
| no_warn() { :; } # silence is golden |
| |
| help() { |
| cat<<EOF |
| $0 recognizes the following GnuCOBOL cobc output mode options: |
| -b, -c, -m, -S, -x |
| $0 recognizes the following GnuCOBOL cobc compilation options: |
| -C |
| -d, --debug |
| -D |
| -A |
| -Q |
| -E |
| -g |
| --coverage |
| -ext |
| -fec=exception-name, -fno-ec=exception-name |
| -fformat |
| --fixed |
| -F, --free |
| -fimplicit-init |
| -h, --help |
| -save-temps= |
| -save-temps |
| -std=mvs -std=mvs-strict |
| -std=mf -std=mf-strict |
| -std=cobol85 -std=cobol2002 -std=cobol2014 |
| Options that are the same in gcobol and cobc are passed through verbatim. |
| Options that have no analog in gcobol produce a warning message. |
| To produce this message, use -HELP. |
| To see the constructed cobc command-line, use -echo. |
| To override the default cobc, set the "cobc" environment variable. |
| By default, gcobc invokes the gcobol the same directory the gcobc resides. |
| To override, set the gcobol environment variable. |
| EOF |
| } |
| |
| dialect="mf gnu" |
| out_set="" |
| first="" |
| |
| # |
| # Iterate over the command-line tokens. We can't use getopts here |
| # because it's not designed for single-dash words (e.g. -shared). |
| # |
| for opt in "$@" |
| do |
| if [ "$skip_arg" ] |
| then |
| skip_arg= |
| continue |
| fi |
| |
| if [ "$pending_arg" ] |
| then |
| case $pending_arg in |
| -o) output_name="$opt" # capture named output file |
| ;; |
| esac |
| |
| opts="$opts $pending_arg$opt" |
| pending_arg= |
| continue |
| fi |
| |
| case $opt in |
| |
| # pass next parameter to GCC |
| -A) |
| pending_arg=" " |
| ;; |
| |
| # pass next parameter to linker |
| -Q) |
| pending_arg=-Wl, |
| ;; |
| |
| -b) mode="-shared" |
| ;; |
| -c) mode="-c" |
| ;; |
| --conf=*) warn "$opt" |
| ;; |
| -C) error "$opt $incomparable" |
| ;; |
| -d | -debug | --debug) opts="$opts -fcobol-exceptions=EC-ALL" |
| warn "$opt implies -fstack-check:" |
| ;; |
| # define for preprocessor, note: -D* is directly passed |
| -D) |
| pending_arg=$opt |
| ;; |
| -E) opts="$opts $opt -fsyntax-only" |
| ;; |
| -echo) echo="echo" |
| ;; |
| |
| -fec=* | -fno-ec=*) |
| opt="$(echo "$opt" | sed -E 's/-f(no-)?ec=/-f\1cobol-exceptions=EC-/g')" |
| opts="$opts $opt" |
| ;; |
| -ext) |
| pending_arg="$opt " |
| ;; |
| -ext=*) opts="$opts $(echo "$opt" | sed 's/-ext=/-copyext ./')" |
| ;; |
| # A.3 Compiler options |
| -fsign=*) warn "$opt" ;; |
| -ffold-copy=*) warn "$opt" ;; |
| -ffold-call=*) warn "$opt" ;; |
| -fmax-errors=*) warn "$opt" ;; |
| -fintrinsics=*) warn "$opt" ;; |
| -fdump=*) warn "$opt" ;; |
| -fcallfh=*) warn "$opt" ;; |
| -fsqlschema=*) warn "$opt" ;; |
| -fsql) warn "$opt" ;; |
| -fno-recursive-check) no_warn "$opt" ;; |
| -fstack-extended) warn "$opt" ;; |
| -fno-remove-unreachable) no_warn "$opt" ;; |
| -finline-intrinsic) warn "$opt" ;; |
| -ftrace) warn "$opt" ;; |
| -ftraceall) warn "$opt" ;; |
| -fsymtab) warn "$opt" ;; |
| # -fsyntax-only is identical |
| -fdebugging-line) warn "$opt" ;; |
| -fsource-location) warn "$opt" ;; |
| -fstack-check) warn "$opt" ;; |
| -fsection-exit-check) warn "$opt" ;; |
| -fimplicit-goback-check) warn "$opt" ;; |
| -fwrite-after) warn "$opt" ;; |
| -fmfcomment) warn "$opt" ;; |
| -facucomment) warn "$opt" ;; |
| -fno-trunc) no_warn "$opt" ;; |
| -fsingle-quote) warn "$opt" ;; |
| -foptional-file) warn "$opt" ;; |
| -fstatic-call | -fno-static-call) |
| opts="$opts $opt" |
| static_used="x" |
| ;; |
| -fno-gen-c-decl-static-call) no_warn "$opt" ;; |
| -fmf-files) warn "$opt" ;; |
| -ffile-format=*) warn "$opt" ;; |
| -fno-theaders) no_warn "$opt" ;; |
| -fno-tsource) no_warn "$opt" ;; |
| -fno-tmessages) no_warn "$opt" ;; |
| -ftsymbols) warn "$opt" ;; |
| -fdatamap) warn "$opt" ;; |
| -fno-diagnostics-show-option) no_warn "$opt" ;; |
| -fibmcomp) warn "$opt" ;; |
| -fno-ibmcomp) no_warn "$opt" ;; |
| |
| # A.4 Compiler dialect configuration options |
| -fname=*) warn "$opt" ;; |
| -freserved-words=*) warn "$opt" ;; |
| -ftab-width=*) warn "$opt" ;; |
| -ftext-column=*) warn "$opt" ;; |
| -fpic-length=*) warn "$opt" ;; |
| -fword-length=*) warn "$opt" ;; |
| -fliteral-length=*) warn "$opt" ;; |
| -fnumeric-literal-length=*) warn "$opt" ;; |
| -fdefaultbyte=*) warn "$opt" ;; |
| -falign-record=*) warn "$opt" ;; |
| -fkeycompress=*) warn "$opt" ;; |
| -falign-opt) warn "$opt" ;; |
| -fbinary-size=*) warn "$opt" ;; |
| -fbinary-byteorder=*) warn "$opt" ;; |
| -fassign-clause=*) warn "$opt" ;; |
| -fscreen-section-rules=*) warn "$opt" ;; |
| -fdpc-in-data=*) warn "$opt" ;; |
| -ffilename-mapping) warn "$opt" ;; |
| -fpretty-display) warn "$opt" ;; |
| -fbinary-truncate | -fno-binary-truncate) warn "$opt" ;; |
| -fcomplex-odo) warn "$opt" ;; |
| -fodoslide) warn "$opt" ;; |
| -findirect-redefines) warn "$opt" ;; |
| -flarger-redefines-ok) warn "$opt" ;; |
| -frelax-syntax-checks) warn "$opt" ;; |
| -fref-mod-zero-length) warn "$opt" ;; |
| -frelax-level-hierarchy) warn "$opt" ;; |
| -flocal-implies-recursive) warn "$opt" ;; |
| -fsticky-linkage) warn "$opt" ;; |
| -fmove-ibm) warn "$opt" ;; |
| -fperform-osvs) warn "$opt" ;; |
| -farithmetic-osvs) warn "$opt" ;; |
| -fconstant-folding) warn "$opt" ;; |
| -fhostsign) warn "$opt" ;; |
| -fprogram-name-redefinition) warn "$opt" ;; |
| -faccept-update) warn "$opt" ;; |
| -faccept-auto) warn "$opt" ;; |
| -fconsole-is-crt) warn "$opt" ;; |
| -fno-echo-means-secure) no_warn "$opt" ;; |
| -fline-col-zero-default) warn "$opt" ;; |
| -freport-column-plus) warn "$opt" ;; |
| -fdisplay-special-fig-consts) warn "$opt" ;; |
| -fbinary-comp-1) warn "$opt" ;; |
| -fnumeric-pointer) warn "$opt" ;; |
| -fmove-non-numeric-lit-to-numeric-is-zero) warn "$opt" ;; |
| -fimplicit-assign-dynamic-var) warn "$opt" ;; |
| -fcomment-paragraphs=*) warn "$opt" ;; |
| -fmemory-size-clause=*) warn "$opt" ;; |
| -fmultiple-file-tape-clause=*) warn "$opt" ;; |
| -flabel-records-clause=*) warn "$opt" ;; |
| -fvalue-of-clause=*) warn "$opt" ;; |
| -fdata-records-clause=*) warn "$opt" ;; |
| -ftop-level-occurs-clause=*) warn "$opt" ;; |
| -fsame-as-clause=*) warn "$opt" ;; |
| -ftype-to-clause=*) warn "$opt" ;; |
| -fusage-type=*) warn "$opt" ;; |
| -fsynchronized-clause=*) warn "$opt" ;; |
| -fsync-left-right=*) warn "$opt" ;; |
| -fspecial-names-clause=*) warn "$opt" ;; |
| -fgoto-statement-without-name=*) warn "$opt" ;; |
| -fstop-literal-statement=*) warn "$opt" ;; |
| -fstop-identifier-statement=*) warn "$opt" ;; |
| -fdebugging-mode=*) warn "$opt" ;; |
| -fuse-for-debugging=*) warn "$opt" ;; |
| -fpadding-character-clause=*) warn "$opt" ;; |
| -fnext-sentence-phrase=*) warn "$opt" ;; |
| -flisting-statements=*) warn "$opt" ;; |
| -ftitle-statement=*) warn "$opt" ;; |
| -fentry-statement=*) warn "$opt" ;; |
| -fmove-noninteger-to-alphanumeric=*) warn "$opt" ;; |
| -foccurs-max-length-without-subscript) warn "$opt" ;; |
| -flength-in-data-division) warn "$opt" ;; |
| -fmove-figurative-constant-to-numeric=*) warn "$opt" ;; |
| -fmove-figurative-space-to-numeric=*) warn "$opt" ;; |
| -fmove-figurative-quote-to-numeric=*) warn "$opt" ;; |
| -fodo-without-to=*) warn "$opt" ;; |
| -fodo-last-varlen=*) warn "$opt" ;; |
| -fsection-segments=*) warn "$opt" ;; |
| -falter-statement=*) warn "$opt" ;; |
| -fcall-overflow=*) warn "$opt" ;; |
| -fnumeric-boolean=*) warn "$opt" ;; |
| -fhexadecimal-boolean=*) warn "$opt" ;; |
| -fnational-literals=*) warn "$opt" ;; |
| -fhexadecimal-national-literals=*) warn "$opt" ;; |
| -fnational-character-literals=*) warn "$opt" ;; |
| -fhp-octal-literals=*) warn "$opt" ;; |
| -facu-literals=*) warn "$opt" ;; |
| -fword-continuation=*) warn "$opt" ;; |
| -fnot-exception-before-exception=*) warn "$opt" ;; |
| -faccept-display-extensions=*) warn "$opt" ;; |
| -frenames-uncommon-levels=*) warn "$opt" ;; |
| -fsymbolic-constant=*) warn "$opt" ;; |
| -fconstant-78=*) warn "$opt" ;; |
| -fconstant-01=*) warn "$opt" ;; |
| -fperform-varying-without-by=*) warn "$opt" ;; |
| -freference-out-of-declaratives=*) warn "$opt" ;; |
| -freference-bounds-check=*) warn "$opt" ;; |
| -fprogram-prototypes=*) warn "$opt" ;; |
| -fcall-convention-mnemonic=*) warn "$opt" ;; |
| -fcall-convention-linkage=*) warn "$opt" ;; |
| -fnumeric-value-for-edited-item=*) warn "$opt" ;; |
| -fincorrect-conf-sec-order=*) warn "$opt" ;; |
| -fdefine-constant-directive=*) warn "$opt" ;; |
| -ffree-redefines-position=*) warn "$opt" ;; |
| -frecords-mismatch-record-clause=*) warn "$opt" ;; |
| -frecord-delimiter=*) warn "$opt" ;; |
| -fsequential-delimiters=*) warn "$opt" ;; |
| -frecord-delim-with-fixed-recs=*) warn "$opt" ;; |
| -frecord-sequential-advancing=*) warn "$opt" ;; |
| -fmissing-statement=*) warn "$opt" ;; |
| -fzero-length-literals=*) warn "$opt" ;; |
| -fxml-generate-extra-phrases=*) warn "$opt" ;; |
| -fcontinue-after=*) warn "$opt" ;; |
| -fgoto-entry=*) warn "$opt" ;; |
| -fdepending-on-not-fixed=*) warn "$opt" ;; |
| -fbinary-sync-clause=*) warn "$opt" ;; |
| -fnonnumeric-with-numeric-group-usage=*) warn "$opt" ;; |
| -fassign-variable=*) warn "$opt" ;; |
| -fassign-using-variable=*) warn "$opt" ;; |
| -fassign-ext-dyn=*) warn "$opt" ;; |
| -fassign-disk-from=*) warn "$opt" ;; |
| -fvsam-status=*) warn "$opt" ;; |
| -fself-call-recursive=*) warn "$opt" ;; |
| |
| # TODO: create a temporary COBOL file with COBOL-WORDS directives |
| # and force-include it |
| -fnot-reserved=*) warn "$opt" ;; |
| -freserved=*) warn "$opt" ;; |
| -fnot-register=*) warn "$opt" ;; |
| -fregister=*) warn "$opt" ;; |
| |
| -fformat=auto) ;; # gcobol and gnucobol default |
| |
| -fixed | --fixed | -fformat=fixed | -fformat=variable | -fformat=xcard) |
| # note: variable + xcard are only _more similar_ to fixed than free, |
| # (with changing right-column to 250/255, which isn't supported in gcobol, yet) |
| opts="$opts -ffixed-form" |
| ;; |
| |
| -F | -free | --free | -fformat=free | -fformat=*) |
| # note: "all other formats" are only _more similar_ to free than fixed |
| opts="$opts -ffree-form" |
| ;; |
| -h | --help) opts="$opts --help" |
| ;; |
| |
| -HELP) help && exit |
| ;; |
| -i | --info) warn "$opt" |
| ;; |
| |
| # -I |
| -fimplicit-init) warn "$opt" |
| ;; |
| -j | -job) warn "$opt" |
| ;; |
| -K) ignore_arg "$opt" |
| ;; |
| -K*) warn "$opt" |
| ;; |
| # -l |
| # -L |
| --list*) warn "$opt" |
| ;; |
| -m) mode="-shared" |
| ;; |
| # -main |
| # -nomain |
| |
| -o) pending_arg=$opt |
| ;; |
| -o*) output_name=$opt ## non-empty means do not infer |
| opts="$opts $opt" |
| ;; |
| |
| # -O0, -Ox |
| -O | -O2 | -Os) warn "$opt" |
| ;; |
| -S) mode="$opt" |
| ;; |
| -save-temps=*) opt="$(echo "$opt" | sed -E 's/^.+=//')" |
| export GCOBOL_TEMPDIR="$opt" |
| ;; |
| -save-temps) export GCOBOL_TEMPDIR="${PWD:-$(pwd)}" |
| ;; |
| # -shared is identical |
| |
| -std=mvs | -std=mvs-strict | -std=ibm | -std=ibm-strict) dialect=ibm |
| ;; |
| -std=mf | -std=mf-strict) dialect=mf |
| ;; |
| # GnuCOBOL's default and GCC's dialect for GnuCOBOL |
| -std=default) dialect=gnu |
| ;; |
| # GCC COBOL targets COBOL2024 "mostly backward to COBOL85" |
| -std=cobol*) dialect="" |
| ;; |
| -std=*) |
| dialect="" |
| warn "$opt (unkown dialect)" |
| ;; |
| -P | -P=* | -X | --Xref) |
| warn "$opt (no listing)" |
| ;; |
| -t | -T) |
| # note: -P has an _optional_ arg, so we leave it above |
| ignore_arg "$opt (no listing)" |
| ;; |
| -q | --brief) warn "$opt" |
| ;; |
| -v | --verbose) opts="$opts -V" |
| ;; |
| # note: we want -dumpversion to be passed to gcc |
| -V | --version | -version) opts="$opts --version" |
| ;; |
| # pass through, strangely -Wall is not supported |
| -w | -W | -Wextra) opts="$opts $opt" |
| ;; |
| -Wno-*) no_warn "$opt" |
| ;; |
| |
| -W*) ignore_arg "$opt" |
| ;; |
| |
| -x) mode= |
| ;; |
| |
| -) output_name=a.out # nonnull to prevent overriding gcc default |
| opts="$opts /dev/stdin" |
| ;; |
| |
| # First file name argument is default output filename. |
| *) if [ -z "$output_name" -a -e "$opt" ] |
| then |
| output_name=$(basename "${opt%.*}") |
| case $mode in |
| -c) output_name="$output_name".o |
| ;; |
| -shared) |
| output_name="$output_name".so |
| opts="$opts -fPIC" |
| ;; |
| esac |
| opts="$opts -o $output_name" |
| fi |
| opts="$opts $opt" # pass through |
| ;; |
| esac |
| done |
| |
| # cobc default: |
| if [ "$static_used" = "" ] |
| then |
| opts="$opts -fno-static-call"; |
| fi |
| |
| if [ "$exit_status" -gt 0 ] |
| then |
| exit $exit_status |
| fi |
| |
| # To override the default gcobol, set the "gcobol" environment variable. |
| gcobol="${gcobol:-${0%/*}/gcobol}" |
| |
| if [ "$dialect" ] |
| then |
| dialect=$(echo $dialect | sed -E 's/[[:alnum:]]+/-dialect &/g') |
| fi |
| |
| if [ "$echo" ] |
| then |
| echo $gcobol $mode $opts |
| exit |
| fi |
| |
| if [ "$gcobcx" ] |
| then |
| set -x |
| fi |
| |
| exec $gcobol $mode $dialect $opts |
