path: root/test/profile11.ok

@load "filefuncs"	# get file functions

# comments/for.awk
BEGIN {
	for (i = 1; i <= 10; i++) {
		print i
	}
	for (i = 1; i <= 10; i++) {	# comment 0
		print i
	}
	for (i = 1; 	# comment 1a
		i <= 10; i++) {
		print i
	}
	for (i = 1; i <= 10; 	# comment 2a
		i++) {
		print i
	}
	for (i = 1; 	# comment 1b
		i <= 10; 	# comment 2b
		i++) {
		print i
	}
	for (i = 1; 	# comment 1c
		i <= 10; 	# comment 2c
		i++) {	# comment 3c
		print i
	}
}

# comments/for0.awk
BEGIN {
	for (iggy in foo) {
		# comment 5
		
		# comment 6
	}
}

# comments/for1.awk
BEGIN {
	for (iggy in foo) {
		# comment 1
		
		# comment 2
		print iggy
	}
	for (iggy in foo) {
		# comment 3
		
		# comment 4
		print iggy
	}
	for (iggy in foo) {
		# comment 5
		
		# comment 6
	}
}

# comments/for2.awk
BEGIN {
	for (;;) {
		print i
	}
	for (;;) {	# comment 0
		print i
	}
	for (; 	# comment 1a
		; ) {
		print i
	}
	for (; ; 	# comment 2a
		) {
		print i
	}
	for (; 	# comment 1b
		; 	# comment 2b
		) {
		print i
	}
	for (; 	# comment 1c
		; 	# comment 2c
		) {	# comment 3c
		print i
	}
}

# comments/for_del.awk
BEGIN {
	for (iggy in foo) {
		delete foo[iggy]
	}
}

# comments/do.awk
BEGIN {
	do {	# DO comment
		# LBRACE comment
		# block comment
		print 42
	} while (0)	# WHILE comment
	# rbrace comment
}

# comments/do2.awk
BEGIN {
	do {	# DO comment
		# LBRACE comment
		# block comment
		print 42
	} while (0)	# rbrace comment
}

# comments2/do.awk
BEGIN {
	do {	# do comment
		# lbrace comment
		# block comment
		print 42
	} while (1)	# while comment
	# rbace EOL comment
	# rbrace block comment
}

# comments2/if.awk
BEGIN {
	if (a) {
		# IF comment
		print "foo"	# print comment
	}
	if (a) {	# lbrace comment
		# IF comment 2
		print "bar"
	} else {
		# ELSE comment
		print "baz"
	}
}

# comments/if0.awk
BEGIN {
	if (a) {
		# nothing
	} else {
		print "b"
	}
}

# comments/switch.awk
BEGIN {
	a = 5
	switch (a) {
	# switch EOL comment
	
	# switch block comment
	
	# lbrace EOL comment
	
	# lbrace block comment
	case 5:	# comment after case
		print "five!"
		break
		# block comment after case
	default:	# comment after default
		print "default"	# print comment
		break
	}
	# rbrace EOL comment
	# rbrace block comment
}

# comments2/switch.awk
BEGIN {
	a = 5
	switch (a) {
	# switch EOL comment
	
	# switch block comment
	
	# lbrace EOL comment
	
	# lbrace block comment
	case 5:
		print "five!"
		break
		# block comment after case
	}
	# rbrace EOL comment
	# rbrace block comment
}

# comments2/switch0.awk
BEGIN {
	a = 5
	switch (a) {
	case 5:	# case comment
		print "five!"
		break
	default:	# default comment
		print "default"
		break
	}
}

# comments2/switch1.awk
BEGIN {
	a = 5
	switch (a) {
	case 5:
		# case comment
		print "five!"
		break
	default:	# default comment
		print "default"
		break
	}
}

# comments2/while.awk
BEGIN {
	while (1) {
		# while comment
		# lbrace comment
		# block comment
		print 42
	}
}

# comments2/while2.awk
BEGIN {
	while (1) {
		# while comment
		# lbrace comment
		# block comment
	}
}

BEGIN {
	callme(1, # 1 comment
		2, # 2 comment
		3)
}

# comments/load.awk
BEGIN {
	stat("/etc/passwd", data)
	for (i in data) {
		print i, data[i]
	}
}

# comments/andor.awk
BEGIN {
	if (a && # and comment
		 b || # or comment
		 c) {
		print "foo"
	}
}

# comments/qmcol-qm.awk
BEGIN {
	a = 1 ? # qm comment
		   2 : 3
	print a
}

# comments/qmcol-colon.awk
BEGIN {
	a = 1 ? 2 : # colon comment
		   3
	print a
}

# comments/qmcolboth.awk
BEGIN {
	a = 1 ? # qm comment
		   2 : # colon comment
		   3
	print a
}

# test beginning of line block comments (com2.awk)
BEGIN {
	print "hi"	# comment 1
	# comment 2
	print "there"
	if (foo) {
		print "hello"	# comment 3
		# comment 4
		print "world"
	}
}

# comments/exp.awk
# range comment
# range comment 2

# range comment b

# range comment c
/foo/, /bar/ {
	print 
}


# comments2/f.awk
function bar(p1, p2)
{
	print "foo"
}

# rbrace eol bar

# rbrace block bar

# comments2/function.awk

# comment

# comment before braces
function baz(p1, p2)
{
	# lbrace eol
	# lbrace block
	print "foo"
}

# rbrace EOL comment funnyhaha

# rbrace block comment funnyhaha

# comments/callcoma.awk
function callme(a, b, c)
{
	printf "a = %s, b = %s, c = %s\n", # format comment
		a, # a2 comment
		b, # b2 comment
		c
}

# rbrace eol baz

# rbrace block baz

# comments/function.awk

# param comment 1

# param comment 2

# Comment between header and body
function funny(param1, param2, param3, param4)
{
	# lbrace EOL comment
	# lbrace block comment
	print "funny"
}

# rbrace EOL comment funny

# rbrace block comment funny

# comments/function2.awk
function funnyhaha(param1, param2, param3, param4)
{
	# lbrace EOL comment
	# lbrace block comment
	print "funny"
}