|
Packit |
575503 |
$! gawk_ident.com - Append ident with version to gawk.
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$ open/read cfgh config.h
|
|
Packit |
575503 |
$cfgh_loop:
|
|
Packit |
575503 |
$ read/end=cfgh_loop_end cfgh line_in
|
|
Packit |
575503 |
$ key1 = f$element(0, " ", line_in)
|
|
Packit |
575503 |
$ if key1 .nes. "#define" then goto cfgh_loop
|
|
Packit |
575503 |
$ key2 = f$element(1, " ", line_in)
|
|
Packit |
575503 |
$ if key2 .nes. "VERSION" then goto cfgh_loop
|
|
Packit |
575503 |
$ version_string = f$element(2, " ", line_in) - """" - """"
|
|
Packit |
575503 |
$ ver_major = f$element(0, ".", version_string)
|
|
Packit |
575503 |
$ ver_minor = f$element(1, ".", version_string)
|
|
Packit |
575503 |
$ REL = ver_major + "." + ver_minor
|
|
Packit |
575503 |
$ PATCHLVL = f$element(2, ".", version_string)
|
|
Packit |
575503 |
$cfgh_loop_end:
|
|
Packit |
575503 |
$ close cfgh
|
|
Packit |
575503 |
$!
|
|
Packit |
575503 |
$ open/append Fopt gawk.opt
|
|
Packit |
575503 |
$ write Fopt "identification=""V''REL'.''PATCHLVL'"""
|
|
Packit |
575503 |
$ close Fopt
|