1
0
mirror of https://github.com/moparisthebest/curl synced 2024-08-13 17:03:50 -04:00
curl/packages/vms/stage_curl_install.com
John Malmberg 0994d737c8 Building_vms_pcsi_kit
These are the files needed to build VMS distribution packages known as
PCSI kits.

Also minor update to the existing files, mainly to the documentation and
file clean up code.
2013-08-07 12:16:08 +02:00

178 lines
5.9 KiB
Plaintext

$! File: stage_curl_install.com
$!
$! $Id$
$!
$! This updates or removes the GNV$CURL.EXE and related files for the
$! new_gnu:[*...] directory tree for running the self tests.
$!
$! The files installed/removed are:
$! [usr.bin]gnv$curl.exe
$! [usr.bin]curl-config.
$! [usr.lib]gnv$libcurl.exe
$! [usr.bin]curl. hard link for [usr.bin]gnv$curl.exe
$! [usr.include.curl]curl.h
$! [usr.include.curl]curlbuild.h
$! [usr.include.curl]curlrules.h
$! [usr.include.curl]curlver.h
$! [usr.include.curl]easy.h
$! [usr.include.curl]mprintf.h
$! [usr.include.curl]multi.h
$! [usr.include.curl]stdcheaders.h
$! [usr.include.curl]typecheck-gcc.h
$! [usr.lib.pkgconfig]libcurl.pc
$! [usr.share.man.man1]curl-config.1
$! [usr.share.man.man1]curl.1
$! [usr.share.man.man3]curl*.3
$! [usr.share.man.man3]libcurl*.3
$! Future: A symbolic link to the release notes?
$!
$! Copyright 2012, John Malmberg
$!
$! Permission to use, copy, modify, and/or distribute this software for any
$! purpose with or without fee is hereby granted, provided that the above
$! copyright notice and this permission notice appear in all copies.
$!
$! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
$! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
$! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
$! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
$! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
$! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
$! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
$!
$!
$! 20-Aug-2012 J. Malmberg
$!
$!===========================================================================
$!
$ 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
$!
$!
$! If the first parameter begins with "r" or "R" then this is to
$! remove the files instead of installing them.
$ remove_filesq = f$edit(p1, "upcase,trim")
$ remove_filesq = f$extract(0, 1, remove_filesq)
$ remove_files = 0
$ if remove_filesq .eqs. "R" then remove_files = 1
$!
$!
$! If we are staging files, make sure that the libcurl.pc and curl-config
$! files are present.
$ if remove_files .eq. 0
$ then
$ if f$search("[--]libcurl.pc") .eqs. ""
$ then
$ @build_libcurl_pc.com
$ endif
$ if f$search("[--]curl-config") .eqs. ""
$ then
$ @build_curl-config_script.com
$ endif
$ endif
$!
$!
$! Dest dirs
$!------------------
$ dest_dirs1 = "[usr],[usr.bin],[usr.include],[usr.include.curl]"
$ dest_dirs2 = ",[usr.bin],[usr.lib.pkgconfig],[usr.share]"
$ dest_dirs3 = ",[usr.share.man],[usr.share.man.man1],[usr.share.man.man3]"
$ dest_dirs = dest_dirs1 + dest_dirs2 + dest_dirs3
$!
$!
$! Alias links needed.
$!-------------------------
$ source_curl = "gnv$curl.exe"
$ dest_curl = "[bin]gnv$curl.exe"
$ curl_links = "[bin]curl."
$ new_gnu = "new_gnu:"
$!
$!
$! Create the directories if they do not exist
$!---------------------------------------------
$ i = 0
$curl_dir_loop:
$ this_dir = f$element(i, ",", dest_dirs)
$ i = i + 1
$ if this_dir .eqs. "" then goto curl_dir_loop
$ if this_dir .eqs. "," then goto curl_dir_loop_end
$! Just create the directories, do not delete them.
$! --------------------------------------------------
$ if remove_files .eq. 0
$ then
$ create/dir 'new_gnu''this_dir'/prot=(o:rwed)
$ endif
$ goto curl_dir_loop
$curl_dir_loop_end:
$!
$!
$! Need to add in the executable file
$!-----------------------------------
$ if remove_files .eq. 0
$ then
$ copy [--.src]curl.exe 'new_gnu'[usr.bin]gnv$curl.exe/prot=w:re
$ copy [--]curl-config. 'new_gnu'[usr.bin]curl-config./prot=w:re
$ copy sys$disk:[]gnv$libcurl.exe 'new_gnu'[usr.lib]gnv$libcurl.exe/prot=w:re
$ endif
$!
$ if remove_files .eq. 0
$ then
$ set file/enter='new_gnu'[bin]curl. 'new_gnu'[usr.bin]gnv$curl.exe
$ else
$ file = "''new_gnu'[bin]curl."
$ if f$search(file) .nes. "" then set file/remove 'file';*
$ endif
$!
$!
$ if remove_files .eq. 0
$ then
$ copy [--.include.curl]curl.h 'new_gnu'[usr.include.curl]curl.h
$ copy [--.include.curl]curlbuild.h -
'new_gnu'[usr.include.curl]curlbuild.h
$ copy [--.include.curl]curlrules.h -
'new_gnu'[usr.include.curl]curlrules.h
$ copy [--.include.curl]curlver.h -
'new_gnu'[usr.include.curl]curlver.h
$ copy [--.include.curl]easy.h -
'new_gnu'[usr.include.curl]easy.h
$ copy [--.include.curl]mprintf.h -
'new_gnu'[usr.include.curl]mprintf.h
$ copy [--.include.curl]multi.h -
'new_gnu'[usr.include.curl]multi.h
$ copy [--.include.curl]stdcheaders.h -
'new_gnu'[usr.include.curl]stdcheaders.h
$ copy [--.include.curl]typecheck-gcc.h -
'new_gnu'[usr.include.curl]typecheck-gcc.h
$ copy [--]libcurl.pc 'new_gnu'[usr.lib.pkgconfig]libcurl.pc
$!
$ copy [--.docs]curl-config.1 'new_gnu'[usr.share.man.man1]curl-config.1
$ copy [--.docs]curl.1 'new_gnu'[usr.share.man.man1]curl.1
$!
$ copy [--.docs.libcurl]*.3 -
'new_gnu'[usr.share.man.man3]*.3
$!
$ else
$ file = "''new_gnu'[usr.bin]curl-config."
$ if f$search(file) .nes. "" then delete 'file';*
$ file = "''new_gnu'[usr.bin]gnv$curl.exe"
$ if f$search(file) .nes. "" then delete 'file';*
$ file = "''new_gnu'[usr.lib]gnv$libcurl.exe"
$ if f$search(file) .nes. "" then delete 'file';*
$ file = "''new_gnu'[usr.include.curl]*.h"
$ if f$search(file) .nes. "" then delete 'file';*
$ file = "''new_gnu'[usr.share.man.man1]curl-config.1"
$ if f$search(file) .nes. "" then delete 'file';*
$ file = "''new_gnu'[usr.share.man.man1]curl.1"
$ if f$search(file) .nes. "" then delete 'file';*
$ file = "''new_gnu'[usr.share.man.man3]curl*.3"
$ if f$search(file) .nes. "" then delete 'file';*
$ file = "''new_gnu'[usr.share.man.man3]libcurl*.3"
$ if f$search(file) .nes. "" then delete 'file';*
$ endif
$!