[SWEXA.WRK]ENTER.COM_SRC

$       sav_vfy = 'f$verify(0)'
$ !++
$ !
$ !  DCL command procedure:
$ !     ENTER
$ !
$ !  Purpose:
$ !     Entry procedure for SysWorks component application.
$ !
$ !  Copyright:
$ !!    Copyright © 1996 - 2005 Corpita Pty Ltd
$ !     15 Bedford Street, Collingwood 3066, Australia
$ !
$ !  History:
$ !     28-Apr-2005 by SLJ
$ !         Add Ada support
$ !     01-Jul-2001 by SLJ
$ !         Add Java setup
$ !     27-Mar-1999 by SLJ
$ !         Add special qualifiers
$ !     02-Jul-1997 by SLJ
$ !         Add setup for non SysWorks site builds
$ !     27-Apr-1996 by SLJ
$ !         Add SWDEV
$ !     25-Mar-1996 by Simon L. Jackson
$ !         Initial version
$ !
$ !--
$
$ !  Chain these other applications
$       context application swrk /add
$       context application swadm /add
$       context application swdba /add
$       context application swdev /add
$
$ !  Add some context specific commands
$       chkdba :== search nis_run_dir:nis_database_job.log -w-,-e-,-f-,starting,continuing
$
$ !  Extend BUILD and COMPILE commands
$       sav_swdev_build_default_qualifiers :== 'swdev_build_default_qualifiers'
$       sav_swdev_compile_default_qualifiers :== 'swdev_compile_default_qualifiers'
$       arc_ltr = f$element(f$getsyi("arch_type")+0,"\","\V\A\I")
$       qal_def := /condition='arc_ltr'/cross_reference/initialize_handles/machine
$       swdev_build_default_qualifiers :== 'swdev_build_default_qualifiers''qal_def'
$       swdev_compile_default_qualifiers :== 'swdev_compile_default_qualifiers''qal_def'
$
$ !  Set Ada library
$       if f$trnlnm("ada$predefined") .nes. "" then -
            acs set library swexa_adalib_dir
$
$ !  Set Java context
$       sta_prc := sys$manager:java$141_setup.com
$       if f$search(sta_prc) .nes. ""
$         then
$           flg_log = 'flg_log+0
$           if flg_log then say "Using Java 1.4.1 setup"
$           if .not. flg_log then define/user sys$error nl:
$           if .not. flg_log then define/user sys$output nl:
$           @'sta_prc''qal_out'
$         endif
$
$       exit 1 + 0*f$verify(sav_vfy)