$ CallerVerify = 'f$verify(0)
$!
$! Copyright 2004 Hewlett-Packard Development Company, L.P.
$!
$! Confidential computer software. Valid license from HP required for
$! possession, use or copying. Consistent with FAR 12.211 and 12.212,
$! Commercial Computer Software, Computer Software Documentation, and
$! Technical Data for Commercial Items are licensed to the U.S. Government
$! under vendor's standard commercial license.
$!
$! The sw.cxx module contains the routines behind the Stopwatch class.
$! It also creates an object of Stopwatch class which serves as a global
$! Stopwatch class and defines reference to this object through which the
$! user can access it.
$!
$ write sys$output "Compiling SW.CXX"
$ cxx/define=BUILDING_SHAREABLE sw.cxx
$!
$! The shareable image consists of the sw.cxx module and a linker options
$! file which defines the interface into the shareable image.
$!
$ write sys$output "Linking SW_SHR.EXE shareable image"
$ if f$getsy("arch_name") .eqs. "Alpha"
$ then
$   cxxlink/share=sw_shr.exe sw.obj, sw_shr_alpha.opt/opt
$ else
$   if f$getsy("arch_name") .eqs. "IA64"
$   then
$     link/share/exe=sw_shr.exe sw.obj, sw_shr_ia64.opt/opt
$   else
$     write sys$output "Unknown platform, exiting..."
$     unused = f$verify(CallerVerify)
$     exit
$   endif
$ endif
$!
$! The test phase
$!
$ define/nolog sw_shr sys$disk:[]sw_shr.exe
$!
$ write sys$output "Compiling SW_TEST module"
$ cxx sw_test.cxx
$! 
$ write sys$output "Linking SW_TEST image"
$ cxxlink sw_test.obj, sys$input:/opt
sw_shr/share
$!
$ unused = f$verify(CallerVerify)
$ exit