demo1.g

This Source-Navigator, an IDE for C/C++/Fortran/Java/Tcl/PHP/Python and a host of other languages.

function start_hex()
	{
	return shell( "awk '{ printf( \"%x\\n\", $1 ) }'", async=T, suspend=F );
	}

function do_hex(ref hex_task)
	{
	# whenever hex_task->established do
		{
		print paste( "count = ", count )
		for ( i in 1:1000 )
			hex_task->stdin( i )

		hex_task->EOF()
		}

	whenever hex_task->stdout do
		{
		seen := seen + 1
		# print hex_task.stdout;
		}

	await only hex_task->done except hex_task->*;
	}

seen := 0

for ( count in 1:5 )
	{
	do_hex( start_hex() )
	}

print seen