[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]
[0024]
[0025]
[0026]
[0027]
[0028]
[0029]
[0030]
[0031]
[0032]
[0033]
[0034]
[0035]
[0036]
[0037]
[0038]
[0039]
[0040]
[0041]
[0042]
[0043]
[0044]
[0045]
[0046]
[0047]
[0048]
[0049]
[0050]
[0051]
[0052]
[0053]
[0054]
[0055]
[0056]
[0057]
[0058]
[0059]
[0060]
[0061]
[0062]
[0063]
[0064]
[0065]
[0066]
[0067]
[0068]
[0069]
[0070]
[0071]
[0072]
[0073]
[0074]
[0075]
[0076]
[0077]
[0078]
[0079]
[0080]
[0081]
[0082]
[0083]
[0084]
[0085]
[0086]
[0087]
[0088]
[0089]
[0090]
[0091]
[0092]
[0093]

$!-----------------------------------------------------------------'f$verify(0)
$! SECHAN.COM
$!
$! Copyright (C) 1996-2021 Mark G.Daniel.
$!
$! Licensed under the Apache License, Version 2.0 (the "License");
$! you may not use this file except in compliance with the License.
$! You may obtain a copy of the License at
$!
$!    http://www.apache.org/licenses/LICENSE-2.0
$!
$! Unless required by applicable law or agreed to in writing, software
$! distributed under the License is distributed on an "AS IS" BASIS,
$! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
$! See the License for the specific language governing permissions and
$! limitations under the License.
$!
$! Make sure that the SECHAN.EXE utility is available.
$!
$! 07-NOV-2009  MGD  v10 logical naming schema
$! 01-NOV-2002  MGD  initial
$!-----------------------------------------------------------------------------
$!
$ if f$trnlnm("INSTALL$DBUG") .nes. "" then set verify
$ ss$_abort = 44
$ say = "write sys$output"
$ delete = "delete"
$ if f$type(sechan) then delete/symbol sechan
$ if f$type(sechan) then delete/symbol/global sechan
$ arch_name = f$edit(f$getsyi("arch_name"),"upcase")
$ if arch_name .eqs. "ALPHA" then arch_name = "AXP"
$ vms_version = f$integer(f$extract(1,1,f$getsyi("version"))) * 10 +-
                f$integer(f$extract(3,1,f$getsyi("version")))
$ if vms_version .ge. 72 then set process /parse=traditional
$ on controly then exit ss$_abort
$!
$ if f$search("wasd_exe:sechan.exe") .eqs. ""
$ then
$!
$    if f$search("wasd_root:[src.utils]build_sechan.com") .eqs. ""
$    then
$       type sys$input
                 ******************************************
                 *  SECHAN UTILITY SOURCE CODE NOT FOUND  *
                 ******************************************

This procedure requires the use of the SECHAN utility.  This does not appear
to be available as WASD_EXE:SECHAN.EXE and the source code does not appear to
be in WASD_ROOT:[SRC.UTILS].  This must be installed before continuing.

$       exit ss$_abort
$    endif
$    type sys$input
                        *****************************
                        *  BUILDING SECHAN UTILITY  *
                        *****************************

This procedure requires the use of the SECHAN utility.  This does not appear to
be available as WASD_EXE:SECHAN.EXE and must be built before continuing.
$    current_default = f$environment("default")
$    set default wasd_root:[src.utils]
$    set noon
$    if f$search("wasd_root:[src.utils.obj_''arch_name']sechan.obj") .eqs. ""
$    then
$       @build_sechan
$    else
$       @build_sechan link
$    endif
$    set on
$    set default 'current_default'
$    say ""
$    read sys$command response /prompt="Press RETURN to continue: "
$    say ""
$!
$ endif
$!
$ if f$search("wasd_exe:sechan.exe") .eqs. ""
$ then
$    type sys$input
                  ****************************************
                  *  SECHAN UTILITY STILL NOT AVAILABLE  *
                  ****************************************

This procedure requires the use of the SECHAN utility.  This does not appear to
be available as WASD_EXE:SECHAN.EXE even after an attempted build.  This utility
must be installed before continuing.

$    exit ss$_abort
$ endif
$!
$ sechan == "$WASD_EXE:SECHAN"
$!
$!-----------------------------------------------------------------------------