OpenVMS Source Code Demos

basic_calling_c_demo

$	set on
$	say :== write sys$output
$	say "-i-script: ",f$environment("PROCEDURE")
$	if p1 .eqs. ""
$	then
$		say "-e-no P1 provided"
$		dir BASIC_CALLING_C_DEMO*.bas/col=1
$		say "-i-exiting script"
$		exit
$	else
$	say "-i-param:",p1
$	endif
$	say "-i-compiling BAS"
$ 	bas	BASIC_CALLING_C_DEMO'p1'
$	say "-i-compiling C"
$	cc	BASIC_CALLING_C_DEMO'p1'_PART2
$	say "-i-linking"
$ 	link	BASIC_CALLING_C_DEMO'p1'		,	-
		BASIC_CALLING_C_DEMO'p1'_PART2
$ say "-i-now run BASIC_CALLING_C_DEMO",p1

---

Back to Home
Neil Rieck
Waterloo, Ontario, Canada.