File: gawk_ident.com

package info (click to toggle)
gawk 1%3A4.1.1%2Bdfsg-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 15,604 kB
  • ctags: 5,728
  • sloc: ansic: 47,935; sh: 12,995; awk: 10,263; yacc: 5,815; makefile: 2,279; sed: 121
file content (21 lines) | stat: -rw-r--r-- 667 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
$! gawk_ident.com - Append ident with version to gawk.
$!
$!
$ open/read cfgh config.h
$cfgh_loop:
$ read/end=cfgh_loop_end cfgh line_in
$ key1 = f$element(0, " ", line_in)
$ if key1 .nes. "#define" then goto cfgh_loop
$ key2 = f$element(1, " ", line_in)
$ if key2 .nes. "VERSION" then goto cfgh_loop
$ version_string = f$element(2, " ", line_in) - """" - """"
$ ver_major = f$element(0, ".", version_string)
$ ver_minor = f$element(1, ".", version_string)
$ REL = ver_major + "." + ver_minor
$ PATCHLVL = f$element(2, ".", version_string)
$cfgh_loop_end:
$ close cfgh
$!
$ open/append Fopt gawk.opt
$ write Fopt "identification=""V''REL'.''PATCHLVL'"""
$ close Fopt