$! This procedure requires the foreign command EACHLINE from dcl.openvms.org.
$
$	delete *.for;*,*.mar;*,*.c;*,*.obj;*,*.olb;*/NoLog
$	write sys$output "Extracting modules"
$	pipe lib/list merlib.tlb | search sys$pipe " "/match=nor/skip=1 | -
	eachline mod "lib merlib.tlb /extr='mod'/out='mod'.for"
$	rename mac_*.for *.mar
$	rename trim.for trim.c
$	set NoOn
$	write sys$output "Building FORTRAN programs."
$	pipe dir/nohead/notrail *.for | eachline mod "fortran 'mod'"
$	write sys$output "Building MACRO programs."
$	pipe dir/nohead/notrail *.mar | eachline mod "macro 'mod'"
$	write sys$output "Building C program."
$	cc trim.c
$	write sys$output "Building object library."
$	library /create merlib.olb/object *.obj