getver.awk

来自「一个两碟控制的VCD的代码,两碟之间的转动及连续播放,已大量生产的CODE.」· AWK 代码 · 共 18 行

# SCCSID @(#)getver.awk	1.1 11/24/97
#
# Get versions of all files used to make current target
#
BEGIN {
    printf("#\n# Copyright 1996, ESS Technology, Inc.\n"); 
    printf("# SCCSID %%%s%% %%%s%%\n#\n", "W", "G");
}
{
    tmp = index($0, "@(#)");			# Position of @(#)
    meat = substr($0, tmp, length($0) - tmp);	# @(#) to the end of line
    split(meat, fields);			# Split the line into fields
    filename = substr(fields[1], 5, length(fields[1]) - 4);
    version  = fields[2];
    if (index(version, ".") != 0)		# Ignore those without version
	printf("sccs get -r%s %s\n", version, filename);
}