share/awk/noassign.awk

# noassign.awk --- library file to avoid the need for a
# special option that disables command-line assignments
#
# Arnold Robbins, arnold@skeeve.com, Public Domain
# October 1999

function disable_assigns(argc, argv,    i)
{
    for (i = 1; i < argc; i++)
        if (argv[i] ~ /^[A-Za-z_][A-Za-z_0-9]*=.*/)
            argv[i] = ("./" argv[i])
}

BEGIN {
    if (No_command_assign)
        disable_assigns(ARGC, ARGV)
}
Revision:	1046
Committed:	Mon Aug 29 13:19:38 2016 UTC (9 years, 2 months ago) by alloc
File size:	422 byte(s)
Log Message:	Daodan: Added Windows MinGW and build batch file
#	Content
1	# noassign.awk --- library file to avoid the need for a
2	# special option that disables command-line assignments
3	#
4	# Arnold Robbins, arnold@skeeve.com, Public Domain
5	# October 1999
6
7	function disable_assigns(argc, argv, i)
8	{
9	for (i = 1; i < argc; i++)
10	if (argv[i] ~ /^[A-Za-z_][A-Za-z_0-9]=./)
11	argv[i] = ("./" argv[i])
12	}
13
14	BEGIN {
15	if (No_command_assign)
16	disable_assigns(ARGC, ARGV)
17	}