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