noassign.awk 422 B

1234567891011121314151617
  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. function disable_assigns(argc, argv, i)
  7. {
  8. for (i = 1; i < argc; i++)
  9. if (argv[i] ~ /^[a-zA-Z_][a-zA-Z0-9_]*=.*/)
  10. argv[i] = ("./" argv[i])
  11. }
  12. BEGIN {
  13. if (No_command_assign)
  14. disable_assigns(ARGC, ARGV)
  15. }