 $!
 $         obj_file = f$extract (0, f$length (next_src) - 1, next_src) + "obj"
 $         plibsys_objs = plibsys_objs + "''obj_file',"
+$         purge 'obj_file'
 $!
 $         goto src_loop
 $     endif

$! --------------
$!
$ 'vo_c' "Creating object library..."
$ library/CREATE/INSERT/REPLACE /LIST=PLIBSYS.LIST PLIBSYS.OLB 'plibsys_objs'
$ library/COMPRESS PLIBSYS.OLB
$ purge PLIBSYS.OLB
$!
$ 'vo_c' "Creating shared library..."
$ link/SHAREABLE=PLIBSYS.EXE /MAP=PLIBSYS.MAP 'cc_link_params' 'plibsys_objs', [-]plibsys.opt/OPTION
$!
$! Testing area
$! ------------

$          cxxlink 'next_test'.obj,'objdir'plibsys_link.opt/OPTION /THREADS_ENABLE
$!
$         @[-]deltree CXX_REPOSITORY
$         purge 'next_test'.obj
$         purge 'next_test'.exe
$ next_test:
$         test_counter = test_counter + 1
$         goto test_loop
