packages/vms/stage_curl_install.com

   1 $! File: stage_curl_install.com
   2 $!
   3 $! $Id$
   4 $!
   5 $! This updates or removes the GNV$CURL.EXE and related files for the
   6 $! new_gnu:[*...] directory tree for running the self tests.
   7 $!
   8 $! The files installed/removed are:
   9 $!     [usr.bin]gnv$curl.exe
  10 $!     [usr.bin]curl-config.
  11 $!     [usr.lib]gnv$libcurl.exe
  12 $!     [usr.bin]curl. hard link for [usr.bin]gnv$curl.exe
  13 $!     [usr.include.curl]curl.h
  14 $!     [usr.include.curl]curlver.h
  15 $!     [usr.include.curl]easy.h
  16 $!     [usr.include.curl]mprintf.h
  17 $!     [usr.include.curl]multi.h
  18 $!     [usr.include.curl]stdcheaders.h
  19 $!     [usr.include.curl]typecheck-gcc.h
  20 $!     [usr.lib.pkgconfig]libcurl.pc
  21 $!     [usr.share.man.man1]curl-config.1
  22 $!     [usr.share.man.man1]curl.1
  23 $!     [usr.share.man.man3]curl*.3
  24 $!     [usr.share.man.man3]libcurl*.3
  25 $! Future: A symbolic link to the release notes?
  26 $!
  27 $! Copyright 2012, John Malmberg
  28 $!
  29 $! Permission to use, copy, modify, and/or distribute this software for any
  30 $! purpose with or without fee is hereby granted, provided that the above
  31 $! copyright notice and this permission notice appear in all copies.
  32 $!
  33 $! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  34 $! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  35 $! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  36 $! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  37 $! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  38 $! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
  39 $! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  40 $!
  41 $!
  42 $! 20-Aug-2012  J. Malmberg
  43 $!
  44 $!===========================================================================
  45 $!
  46 $ arch_type = f$getsyi("ARCH_NAME")
  47 $ arch_code = f$extract(0, 1, arch_type)
  48 $!
  49 $ if arch_code .nes. "V"
  50 $ then
  51 $   set proc/parse=extended
  52 $ endif
  53 $!
  54 $!
  55 $! If the first parameter begins with "r" or "R" then this is to
  56 $! remove the files instead of installing them.
  57 $ remove_filesq = f$edit(p1, "upcase,trim")
  58 $ remove_filesq = f$extract(0, 1, remove_filesq)
  59 $ remove_files = 0
  60 $ if remove_filesq .eqs. "R" then remove_files = 1
  61 $!
  62 $!
  63 $! If we are staging files, make sure that the libcurl.pc and curl-config
  64 $! files are present.
  65 $ if remove_files .eq. 0
  66 $ then
  67 $   if f$search("[--]libcurl.pc") .eqs. ""
  68 $   then
  69 $       @build_libcurl_pc.com
  70 $   endif
  71 $   if f$search("[--]curl-config") .eqs. ""
  72 $   then
  73 $       @build_curl-config_script.com
  74 $   endif
  75 $ endif
  76 $!
  77 $!
  78 $! Dest dirs
  79 $!------------------
  80 $ dest_dirs1 = "[usr],[usr.bin],[usr.include],[usr.include.curl]"
  81 $ dest_dirs2 = ",[usr.bin],[usr.lib.pkgconfig],[usr.share]"
  82 $ dest_dirs3 = ",[usr.share.man],[usr.share.man.man1],[usr.share.man.man3]"
  83 $ dest_dirs = dest_dirs1 + dest_dirs2 + dest_dirs3
  84 $!
  85 $!
  86 $!   Alias links needed.
  87 $!-------------------------
  88 $ source_curl = "gnv$curl.exe"
  89 $ dest_curl = "[bin]gnv$curl.exe"
  90 $ curl_links = "[bin]curl."
  91 $ new_gnu = "new_gnu:"
  92 $!
  93 $!
  94 $! Create the directories if they do not exist
  95 $!---------------------------------------------
  96 $ i = 0
  97 $curl_dir_loop:
  98 $   this_dir = f$element(i, ",", dest_dirs)
  99 $   i = i + 1
 100 $   if this_dir .eqs. "" then goto curl_dir_loop
 101 $   if this_dir .eqs. "," then goto curl_dir_loop_end
 102 $!  Just create the directories, do not delete them.
 103 $!  --------------------------------------------------
 104 $   if remove_files .eq. 0
 105 $   then
 106 $       create/dir 'new_gnu''this_dir'/prot=(o:rwed)
 107 $   endif
 108 $   goto curl_dir_loop
 109 $curl_dir_loop_end:
 110 $!
 111 $!
 112 $! Need to add in the executable file
 113 $!-----------------------------------
 114 $ if remove_files .eq. 0
 115 $ then
 116 $   copy [--.src]curl.exe 'new_gnu'[usr.bin]gnv$curl.exe/prot=w:re
 117 $   copy [--]curl-config. 'new_gnu'[usr.bin]curl-config./prot=w:re
 118 $   copy sys$disk:[]gnv$libcurl.exe 'new_gnu'[usr.lib]gnv$libcurl.exe/prot=w:re
 119 $ endif
 120 $!
 121 $ if remove_files .eq. 0
 122 $ then
 123 $   set file/enter='new_gnu'[bin]curl. 'new_gnu'[usr.bin]gnv$curl.exe
 124 $ else
 125 $   file = "''new_gnu'[bin]curl."
 126 $   if f$search(file) .nes. "" then set file/remove 'file';*
 127 $ endif
 128 $!
 129 $!
 130 $ if remove_files .eq. 0
 131 $ then
 132 $   copy [--.include.curl]curl.h 'new_gnu'[usr.include.curl]curl.h
 133 $   copy [--.include.curl]system.h -
 134          'new_gnu'[usr.include.curl]system.h
 135 $   copy [--.include.curl]curlver.h -
 136          'new_gnu'[usr.include.curl]curlver.h
 137 $   copy [--.include.curl]easy.h -
 138          'new_gnu'[usr.include.curl]easy.h
 139 $   copy [--.include.curl]mprintf.h -
 140          'new_gnu'[usr.include.curl]mprintf.h
 141 $   copy [--.include.curl]multi.h -
 142          'new_gnu'[usr.include.curl]multi.h
 143 $   copy [--.include.curl]stdcheaders.h -
 144          'new_gnu'[usr.include.curl]stdcheaders.h
 145 $   copy [--.include.curl]typecheck-gcc.h -
 146          'new_gnu'[usr.include.curl]typecheck-gcc.h
 147 $   copy [--]libcurl.pc 'new_gnu'[usr.lib.pkgconfig]libcurl.pc
 148 $!
 149 $   copy [--.docs]curl-config.1 'new_gnu'[usr.share.man.man1]curl-config.1
 150 $   copy [--.docs]curl.1 'new_gnu'[usr.share.man.man1]curl.1
 151 $!
 152 $   copy [--.docs.libcurl]*.3 -
 153          'new_gnu'[usr.share.man.man3]*.3
 154 $!
 155 $ else
 156 $   file = "''new_gnu'[usr.bin]curl-config."
 157 $   if f$search(file) .nes. "" then delete 'file';*
 158 $   file = "''new_gnu'[usr.bin]gnv$curl.exe"
 159 $   if f$search(file) .nes. "" then delete 'file';*
 160 $   file = "''new_gnu'[usr.lib]gnv$libcurl.exe"
 161 $   if f$search(file) .nes. "" then delete 'file';*
 162 $   file = "''new_gnu'[usr.include.curl]*.h"
 163 $   if f$search(file) .nes. "" then delete 'file';*
 164 $   file = "''new_gnu'[usr.share.man.man1]curl-config.1"
 165 $   if f$search(file) .nes. "" then delete 'file';*
 166 $   file = "''new_gnu'[usr.share.man.man1]curl.1"
 167 $   if f$search(file) .nes. "" then delete 'file';*
 168 $   file = "''new_gnu'[usr.share.man.man3]curl*.3"
 169 $   if f$search(file) .nes. "" then delete 'file';*
 170 $   file = "''new_gnu'[usr.share.man.man3]libcurl*.3"
 171 $   if f$search(file) .nes. "" then delete 'file';*
 172 $ endif
 173 $!