$! File: gawk_alias_setup.com
$!
$! The PCSI procedure needs a helper script to set up and remove aliases.
$!
$! If p1 starts with "R" then remove instead of install.
$!
$!
$! 02-Jan-2014  J. Malmberg - Gawk Version
$!
$!===========================================================================
$!
$ mode = "install"
$ code = f$extract(0, 1, p1)
$ if code .eqs. "R" .or. code .eqs. "r" then mode = "remove"
$!
$ arch_type = f$getsyi("ARCH_NAME")
$ arch_code = f$extract(0, 1, arch_type)
$!
$ if arch_code .nes. "V"
$ then
$   set proc/parse=extended
$ endif
$!
$!
$ call do_alias "gawk" "[usr.bin]"
$ call do_alias "gawk" "[usr.bin]" "awk"
$ call do_alias "gawk.1" "[usr.share.man.man1]" "awk.1"
$!
$ exit
$!!
$!
$do_alias: subroutine
$ if mode .eqs. "install"
$ then
$   call add_alias "''p1'" "''p2'" "''p3'" "''p4'"
$ else
$   call remove_alias "''p1'" "''p2'" "''p3'" "''p4'"
$ endif
$ exit
$ENDSUBROUTINE ! do_alias
$!
$!
$! P1 is the filename, p2 is the directory prefix,
$! p3 is the alias name if different than p1
$! p4 is the alias directory if different than p2
$add_alias: subroutine
$ if p3 .eqs. "" then p3 = p1
$ if p4 .eqs. "" then p4 = p2
$ ftype = f$element(1, ".", p1)
$ if ftype .eqs. "."
$ then
$    file = "gnv$gnu:''p2'gnv$''p1'.EXE"
$    alias = "gnv$gnu:''p4'''p3'."
$ else
$    file = "gnv$gnu:''p2'''p1'"
$    alias = "gnv$gnu:''p4'''p3'"
$ endif
$ if f$search(file) .nes. ""
$ then
$   fid = ""
$   mess = f$environment("message")
$   if f$search(alias) .nes. ""
$   then
$      on warn then goto fix_link
$      set message/nofac/nosev/noident/notext
$      fid = f$file_attributes(alias, "FID")
$   endif
$   goto fix_link_end
$fix_link:
$    set file/remove 'alias';
$fix_link_end:
$   set message'mess'
$   if f$search(alias) .eqs. ""
$   then
$       set file/enter='alias' 'file'
$   endif
$   alias1 = alias + "exe"
$   if (ftype .eqs. ".")
$   then
$     fid = ""
$     mess = f$environment("message")
$     if f$search(alias1) .nes. ""
$     then
$       on warn then goto fix_link1
$       set message/nofac/nosev/noident/notext
$       fid = f$file_attributes(alias1, "FID")
$     endif
$     goto fix_link_end1
$fix_link1:
$    set file/remove 'alias1';
$fix_link_end1:
$   set message'mess'
$     if (f$search(alias1) .eqs. "")
$     then
$       set file/enter='alias1' 'file'
$     endif
$   endif
$ endif
$ exit
$ENDSUBROUTINE ! add_alias
$!
$remove_alias: subroutine
$ if p3 .eqs. "" then p3 = p1
$ if p4 .eqs. "" then p4 = p2
$ ftype = f$element(1, ".", p1)
$ if ftype .eqs. "."
$ then
$   file = "gnv$gnu:''p2'gnv$''p1'.EXE"
$   alias = "gnv$gnu:''p4'''p3'."
$ else
$   file = "gnv$gnu:''p2'''p1'"
$   alias = "gnv$gnu:''p4'''p3'"
$ endif
$ file_fid = "No_file_fid"
$ if f$search(file) .nes. ""
$ then
$   fid = f$file_attributes(file, "FID")
$   if f$search(alias) .nes. ""
$   then
$       afid = f$file_attributes(alias, "FID")
$       if (afid .eqs. fid)
$       then
$           set file/remove 'alias';
$       endif
$   endif
$   alias1 = alias + "exe"
$   if (ftype .eqs. ".") .and. (f$search(alias1) .nes. "")
$   then
$       afid = f$file_attributes(alias1, "FID")
$       if (afid .eqs. fid)
$       then
$           set file/remove 'alias1';
$       endif
$   endif
$ endif
$ exit
$ENDSUBROUTINE ! remove_alias