1# $MawkId: reg4.awk,v 1.9 2016/09/05 17:06:35 tom Exp $ 2# Test-script for MAWK 3############################################################################### 4# copyright 2009,2016 Thomas E. Dickey 5# 6# This is a source file for mawk, an implementation of 7# the AWK programming language. 8# 9# Mawk is distributed without warranty under the terms of 10# the GNU General Public License, version 2, 1991. 11############################################################################### 12{ 13 if ($0 ~/^[-+()0-9.,$%\/'"]*$/) 14 { 15 print ("reg4.1<<:",$0,">>") 16 } 17 if ($0 ~/^[]+()0-9.,$%\/'"-]*$/) 18 { 19 print ("reg4.2<<:",$0,">>") 20 } 21 if ($0 ~/^[^]+()0-9.,$%\/'"-]*$/) 22 { 23 print ("reg4.3<<:",$0,">>") 24 } 25 if ($0 ~/^[[+(){}0-9.,$%\/'"-]*$/) 26 { 27 print ("reg4.4<<:",$0,">>") 28 } 29 if ($0 ~/^[^[+(){}0-9.,$%\/'"-]*$/) 30 { 31 print ("reg4.5<<:",$0,">>") 32 } 33} 34