Mercurial > hgrepos > Python2 > PyMuPDF

comparison mupdf-source/thirdparty/curl/packages/vms/compare_curl_source.com @ 2:b50eed0cc0ef upstream

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ADD: MuPDF v1.26.7: the MuPDF source as downloaded by a default build of PyMuPDF 1.26.4. The directory name has changed: no version number in the expanded directory now.
author Franz Glasner <fzglas.hg@dom66.de>
date Mon, 15 Sep 2025 11:43:07 +0200
parents
children
comparison
equal deleted inserted replaced
1:1d09e1dec1d9 2:b50eed0cc0ef
1 $! Compare_curl_source.com
2 $!
3 $! $Id$
4 $!
5 $! This procedure compares the files in two directories and reports the
6 $! differences. It is customized for the vmsports repository layout.
7 $!
8 $! It needs to be customized to the local site directories.
9 $!
10 $! This is used by me for these purposes:
11 $! 1. Compare the original source of a project with an existing
12 $! VMS port.
13 $! 2. Compare the checked out repository of a project with the
14 $! the local working copy to make sure they are in sync.
15 $! 3. Keep a copy directory up to date. The third is needed by
16 $! me because VMS Backup can create a saveset of files from a
17 $! NFS mounted volume.
18 $!
19 $! First the files in the original source directory which is assumed to be
20 $! under source codde control are compared with the copy directory.
21 $!
22 $! Then the files are are only in the copy directory are listed.
23 $!
24 $! The result will five diagnostics about of files:
25 $! 1. Files that are not generation 1.
26 $! 2. Files missing in the copy directory.
27 $! 3. Files in the copy directory not in the source directory.
28 $! 4. Files different from the source directory.
29 $! 5. Files that VMS DIFF can not process.
30 $!
31 $! This needs to be run on an ODS-5 volume.
32 $!
33 $! If UPDATE is given as a second parameter, files missing or different in the
34 $! copy directory will be updated.
35 $!
36 $! By default:
37 $! The directory src_root:[project_name] will be translated to something like
38 $! DISK:[dir.dir.reference.project_name] and this will be used
39 $! to calculate DISK:[dir.dir.vms_source.project_name] for the VMS specific
40 $! source directory.
41 $!
42 $! The copy directory is vms_root:[project_name]
43 $! The UPDATE parameter is ignored.
44 $!
45 $! This setting is used to make sure that the working vms directory
46 $! and the repository checkout directory have the same contents.
47 $!
48 $! If P1 is "SRCBCK" then this
49 $! The source directory tree is: src_root:[project_name]
50 $! The copy directory is src_root1:[project_name]
51 $!
52 $! src_root1:[project_name] is used by me to work around that VMS backup will
53 $! not use NFS as a source directory so I need to make a copy.
54 $!
55 $! This is to make sure that the backup save set for the unmodified
56 $! source is up to date.
57 $!
58 $! If your repository checkout is not on an NFS mounted volume, you do not
59 $! need to use this option or have the logical name src_root1 defined.
60 $!
61 $! If P1 is "VMSBCK" then this changes the two directories:
62 $! The source directory is vms_root:[project_name]
63 $! The copy directory is vms_root1:[project_name]
64 $!
65 $! vms_root:[project_name] is where I do the VMS specific edits.
66 $! vms_root1:[project_name] is used by me to work around that VMS backup will
67 $! not use NFS as a source directory so I need to make a copy.
68 $!
69 $! This is to make sure that the backup save set for the unmodified
70 $! source is up to date.
71 $!
72 $! Copyright 2011, John Malmberg
73 $!
74 $! Permission to use, copy, modify, and/or distribute this software for any
75 $! purpose with or without fee is hereby granted, provided that the above
76 $! copyright notice and this permission notice appear in all copies.
77 $!
78 $! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
79 $! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
80 $! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
81 $! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
82 $! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
83 $! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
84 $! OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
85 $!
86 $! 18-Aug-2011 J. Malmberg
87 $!==========================================================================
88 $!
89 $! Update missing/changed files.
90 $ update_file = 0
91 $ if (p2 .eqs. "UPDATE")
92 $ then
93 $ update_file = 1
94 $ endif
95 $!
96 $ myproc = f$environment("PROCEDURE")
97 $ myprocdir = f$parse(myproc,,,"DIRECTORY") - "[" - "]" - "<" - ">"
98 $ myprocdir = f$edit(myprocdir, "LOWERCASE")
99 $ mydefault = f$environment("DEFAULT")
100 $ mydir = f$parse(mydefault,,,"DIRECTORY")
101 $ mydir = f$edit(mydir, "LOWERCASE")
102 $ odelim = f$extract(0, 1, mydir)
103 $ mydir = mydir - "[" - "]" - "<" - ">"
104 $ mydev = f$parse(mydefault,,,"DEVICE")
105 $!
106 $ ref = ""
107 $ if P1 .eqs. ""
108 $ then
109 $ ref_base_dir = myprocdir
110 $ wrk_base_dir = mydir
111 $ update_file = 0
112 $ resultd = f$parse("src_root:",,,,"NO_CONCEAL")
113 $ resultd = f$edit(resultd, "LOWERCASE")
114 $ resultd = resultd - "][" - "><" - ".;" - ".."
115 $ resultd_len = f$length(resultd) - 1
116 $ delim = f$extract(resultd_len, 1, resultd)
117 $ ref_root_base = mydir + delim
118 $ resultd = resultd - ref_root_base - "reference." + "vms_source."
119 $ ref = resultd + ref_base_dir
120 $ wrk = "VMS_ROOT:" + odelim + wrk_base_dir
121 $ resultd_len = f$length(resultd) - 1
122 $ resultd = f$extract(0, resultd_len, resultd) + delim
123 $ ref_root_dir = f$parse(resultd,,,"DIRECTORY")
124 $ ref_root_dir = f$edit(ref_root_dir, "LOWERCASE")
125 $ ref_root_dir = ref_root_dir - "[" - "]"
126 $ ref_base_dir = ref_root_dir + "." + ref_base_dir
127 $ endif
128 $!
129 $ if p1 .eqs. "SRCBCK"
130 $ then
131 $ ref_base_dir = "curl"
132 $ wrk_base_dir = "curl"
133 $ ref = "src_root:[" + ref_base_dir
134 $ wrk = "src_root1:[" + wrk_base_dir
135 $ if update_file
136 $ then
137 $ if f$search("src_root1:[000000]curl.dir") .eqs. ""
138 $ then
139 $ create/dir/prot=o:rwed src_root1:[curl]
140 $ endif
141 $ endif
142 $ endif
143 $!
144 $!
145 $ if p1 .eqs. "VMSBCK"
146 $ then
147 $ ref_base_dir = "curl"
148 $ wrk_base_dir = "curl"
149 $ ref = "vms_root:[" + ref_base_dir
150 $ wrk = "vms_root1:[" + wrk_base_dir
151 $ if update_file
152 $ then
153 $ if f$search("vms_root1:[000000]curl.dir") .eqs. ""
154 $ then
155 $ create/dir/prot=o:rwed vms_root1:[curl]
156 $ endif
157 $ endif
158 $ endif
159 $!
160 $!
161 $ if ref .eqs. ""
162 $ then
163 $ write sys$output "Unknown compare type specified!"
164 $ exit 44
165 $ endif
166 $!
167 $!
168 $! Future - check the device types involved for the
169 $! the syntax to check.
170 $ ODS2_SYNTAX = 0
171 $ NFS_MANGLE = 0
172 $ PWRK_MANGLE = 0
173 $!
174 $ vax = f$getsyi("HW_MODEL") .lt. 1024
175 $ if vax
176 $ then
177 $ ODS2_SYNTAX = 1
178 $ endif
179 $!
180 $ report_missing = 1
181 $!
182 $ if .not. ODS2_SYNTAX
183 $ then
184 $ set proc/parse=extended
185 $ endif
186 $!
187 $loop:
188 $ ref_spec = f$search("''ref'...]*.*;",1)
189 $ if ref_spec .eqs. "" then goto loop_end
190 $!
191 $ ref_dev = f$parse(ref_spec,,,"DEVICE")
192 $ ref_dir = f$parse(ref_spec,,,"DIRECTORY")
193 $ ref_dir = f$edit(ref_dir, "LOWERCASE")
194 $ ref_name = f$parse(ref_spec,,,"NAME")
195 $ ref_type = f$parse(ref_spec,,,"TYPE")
196 $!
197 $!
198 $ rel_path = ref_dir - "[" - ref_base_dir
199 $! rel_path_len = f$length(rel_path) - 1
200 $! delim = f$extract(rel_path_len, 1, rel_path)
201 $! rel_path = rel_path - ".]" - ".>" - "]" - ">"
202 $! rel_path = rel_path + delim
203 $!
204 $ if ODS2_SYNTAX
205 $ then
206 $! if rel_path .eqs. ".examples.scripts^.noah]"
207 $! then
208 $! rel_path = ".examples.scripts_noah]"
209 $! endif
210 $! if rel_path .eqs. ".examples.scripts^.v2]"
211 $! then
212 $! rel_path = ".examples.scripts_v2]"
213 $! endif
214 $ endif
215 $!
216 $ wrk_path = wrk + rel_path
217 $!
218 $ ref_name_type = ref_name + ref_type
219 $!
220 $ if ODS2_SYNTAX
221 $ then
222 $ endif
223 $!
224 $ wrk_spec = wrk_path + ref_name_type
225 $!
226 $!
227 $ wrk_chk = f$search(wrk_spec, 0)
228 $ if wrk_chk .eqs. ""
229 $ then
230 $ if report_missing
231 $ then
232 $ write sys$output "''wrk_spec' is missing"
233 $ endif
234 $ if update_file
235 $ then
236 $ copy/log 'ref_spec' 'wrk_spec'
237 $ endif
238 $ goto loop
239 $ endif
240 $!
241 $ wrk_name = f$parse(wrk_spec,,,"NAME")
242 $ wrk_type = f$parse(wrk_spec,,,"TYPE")
243 $ wrk_fname = wrk_name + wrk_type"
244 $ ref_fname = ref_name + ref_type
245 $!
246 $ if ref_fname .nes. wrk_fname
247 $ then
248 $ write sys$output "''wrk_spc' wrong name, should be ""''ref_fname'"""
249 $ endif
250 $!
251 $ ref_type = f$edit(ref_type, "UPCASE")
252 $ if ref_type .eqs. ".DIR" then goto loop
253 $!
254 $ if ODS2_SYNTAX
255 $ then
256 $ ref_fname = f$edit(ref_fname, "LOWERCASE")
257 $ endif
258 $!
259 $! These files are in the wrong format for VMS diff, and we don't change them.
260 $ ref_skip = 0
261 $ if ref_type .eqs. ".PDF" then ref_skip = 1
262 $ if ref_type .eqs. ".HTML" then ref_skip = 1
263 $ if ref_type .eqs. ".HQX" then ref_skip = 1
264 $ if ref_type .eqs. ".P12" then ref_skip = 1
265 $ if ref_type .eqs. "."
266 $ then
267 $ if f$locate("test", ref_fname) .eq. 0 then ref_skip = 1
268 $ if ref_fname .eqs. "configure." then ref_skip = 1
269 $ endif
270 $ if ref_fname .eqs. "MACINSTALL.TXT" then ref_skip = 1
271 $ if ref_fname .eqs. "$macinstall.txt" then ref_skip = 1
272 $ if ref_fname .eqs. "curl.mcp$5nxml$5nsit$5nhqx" then ref_skip = 1
273 $ if ref_fname .eqs. "curl_GUSIConfig.cpp" then ref_skip = 1
274 $ if ref_fname .eqs. "curl_$gusic$onfig.cpp" then ref_skip = 1
275 $ if ref_fname .eqs. "macos_main.cpp" then ref_skip = 1
276 $!
277 $!
278 $ if ref_skip .ne. 0
279 $ then
280 $ if report_missing
281 $ then
282 $ write sys$output "Skipping diff of ''ref_fname'"
283 $ endif
284 $ goto loop
285 $ endif
286 $!
287 $!
288 $ wrk_ver = f$parse(wrk_chk,,,"VERSION")
289 $ if wrk_ver .nes. ";1"
290 $ then
291 $ write sys$output "Version for ''wrk_spec' is not 1"
292 $ endif
293 $ set noon
294 $ diff/out=nl: 'wrk_spec' 'ref_spec'
295 $ if $severity .nes. "1"
296 $ then
297 $ write sys$output "''wrk_spec' is different from ''ref_spec'"
298 $ if update_file
299 $ then
300 $ delete 'wrk_spec';*
301 $ copy/log 'ref_spec' 'wrk_spec'
302 $ endif
303 $ endif
304 $ set on
305 $
306 $!
307 $ goto loop
308 $loop_end:
309 $!
310 $!
311 $missing_loop:
312 $! For missing loop, check the latest generation.
313 $ ref_spec = f$search("''wrk'...]*.*;")
314 $ if ref_spec .eqs. "" then goto missing_loop_end
315 $!
316 $ ref_dev = f$parse(ref_spec,,,"DEVICE")
317 $ ref_dir = f$parse(ref_spec,,,"DIRECTORY")
318 $ ref_dir = f$edit(ref_dir, "LOWERCASE")
319 $ ref_name = f$parse(ref_spec,,,"NAME")
320 $ ref_type = f$parse(ref_spec,,,"TYPE")
321 $ ref_name_type = ref_name + ref_type
322 $!
323 $ rel_path = ref_dir - "[" - wrk_base_dir
324 $!
325 $!
326 $ wrk_path = ref + rel_path
327 $ wrk_spec = wrk_path + ref_name + ref_type
328 $ wrk_name = f$parse(wrk_spec,,,"NAME")
329 $ wrk_type = f$parse(wrk_spec,,,"TYPE")
330 $!
331 $ wrk_fname = wrk_name + wrk_type"
332 $ ref_fname = ref_name + ref_type
333 $!
334 $ wrk_skip = 0
335 $ ref_utype = f$edit(ref_type,"UPCASE")
336 $ ref_ufname = f$edit(ref_fname,"UPCASE")
337 $!
338 $ if wrk_skip .eq. 0
339 $ then
340 $ wrk_chk = f$search(wrk_spec, 0)
341 $ if wrk_chk .eqs. ""
342 $ then
343 $ if report_missing
344 $ then
345 $ write sys$output "''wrk_spec' is missing"
346 $ endif
347 $ goto missing_loop
348 $ endif
349 $ else
350 $ goto missing_loop
351 $ endif
352 $!
353 $ if ref_fname .nes. wrk_fname
354 $ then
355 $ write sys$output "''wrk_spc' wrong name, should be ""''ref_fname'"""
356 $ endif
357 $!
358 $ if ref_utype .eqs. ".DIR" then goto missing_loop
359 $!
360 $ wrk_ver = f$parse(wrk_chk,,,"VERSION")
361 $ if wrk_ver .nes. ";1"
362 $ then
363 $ write sys$output "Version for ''wrk_spec' is not 1"
364 $ endif
365 $!
366 $ goto missing_loop
367 $!
368 $!
369 $missing_loop_end:
370 $!
371 $exit