Annotation of embedaddon/curl/packages/vms/stage_curl_install.com, revision 1.1.1.1
1.1 misho 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 - 2020, 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: $!
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>