diff options
Diffstat (limited to 'Build/source/texk/web2c/omegaware/odvitype.ch')
-rw-r--r-- | Build/source/texk/web2c/omegaware/odvitype.ch | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/Build/source/texk/web2c/omegaware/odvitype.ch b/Build/source/texk/web2c/omegaware/odvitype.ch index 02cd626cddf..7af82f33c8a 100644 --- a/Build/source/texk/web2c/omegaware/odvitype.ch +++ b/Build/source/texk/web2c/omegaware/odvitype.ch @@ -36,6 +36,13 @@ \def\title{DVI$\,$\lowercase{type} changes for C} @z +@x [1] Define my_name +@d banner=='This is ODVItype, Version 1.5' {printed when the program starts} +@y +@d my_name=='odvitype' +@d banner=='This is ODVItype, Version 1.5' {printed when the program starts} +@z + % [3] Specify the output file to simplify web2c, and don't print the % banner until later. @x @@ -55,7 +62,7 @@ procedure initialize; {this procedure gets things started properly} procedure initialize; {this procedure gets things started properly} var i:integer; {loop index for initializations} begin - kpse_set_program_name (argv[0], nil); + kpse_set_program_name (argv[0], my_name); parse_arguments; print (banner); print_ln (version_string); @@ -616,7 +623,7 @@ begin {End of arguments; we exit the loop below.} ; end else if getopt_return_val = "?" then begin - usage ('odvitype'); + usage (my_name); end else if argument_is ('help') then begin usage_help (ODVITYPE_HELP, nil); @@ -649,8 +656,8 @@ begin {Now |optind| is the index of first non-option on the command line.} if (optind + 1 <> argc) then begin - write_ln (stderr, 'odvitype: Need exactly one file argument.'); - usage ('odvitype'); + write_ln (stderr, my_name, ': Need exactly one file argument.'); + usage (my_name); end; dvi_name := extend_filename (cmdline (optind), 'dvi'); end; @@ -710,7 +717,7 @@ while optarg[m] do begin end else if optarg[m] = "." then begin incr (k); if k >= 10 then begin - write_ln (stderr, 'odvitype: More than ten count registers specified.'); + write_ln (stderr, my_name, ': More than ten count registers specified.'); uexit (1); end; incr (m); @@ -718,7 +725,7 @@ while optarg[m] do begin end else begin start_count[k] := strtol (optarg + m, address_of (end_num), 10); if end_num = optarg + m then begin - write_ln (stderr, 'odvitype: -page-start values must be numeric or *.'); + write_ln (stderr, my_name, ': -page-start values must be numeric or *.'); uexit (1); end; start_there[k] := true; |