$!Last Modified:   5-MAY-1988 11:52:30.36
$ v = f$verify(1)
$ status = 1
$ on error then goto error
$ define sys cx0:[ecs.c]/nolog
$ define out [gilbertd.arc.vsrc.c]  ! ewsub:[arc]
$ define in  [gilbertd.arc.vsrc.c]   ! ewsub:[arc]
$ set def in
$!
$ libr/cre arc.olb
$!
$! cc :== cc/list/debug=all/opt
$ cc :== cc/opt/nolist/nodeb
$ call ccompile arc
$ call ccompile arcadd
$ call ccompile arccode
$ call ccompile arccvt
$ call ccompile arcdel
$ call ccompile arcdir
$ call ccompile arcdos
$ call ccompile arcext
$ call ccompile arcio
$ call ccompile arclst
$ call ccompile arclzw
$ call ccompile arcmatch
$ call ccompile arcmisc
$ call ccompile arcpack
$ call ccompile arcrun
$! call ccompile arcs
$ call ccompile arcsq
$ call ccompile arcsvc
$ call ccompile arctst
$ call ccompile arcunp
$ call ccompile arcusq
$ call ccompile arcvax
$ call ccompile squash
$ goto exit
$!
$!
$!
$ccompile: subroutine
$ set noon
$ cc 'p1'
$ if $severity.ge.2 then goto cexit
$ library/replace out:arc 'p1'.obj
$ if $severity.ge.2 then goto cexit
$ delete/nolog 'p1'.obj;*
$cexit:
$ exit $status
$ endsubroutine
$!
$!
$!
$error:
$ write sys$output "Fatal error"
$ status = $status
$ goto exit
$!
$!
$!
$exit:
$ v = f$verify(v)
$ exit status