← Back to branch summary

~peter-pearse/ubuntu/natty/unzip/prop001

« back to all changes in this revision

Viewing changes to vms/find_bzip2_lib.com

  • Committer: Bazaar Package Importer
  • Author(s): Santiago Vila
  • Date: 2009-05-08 20:02:40 UTC
  • mfrom: (1.1.2 upstream)
  • mto: This revision was merged to the branch mainline in revision 18.
  • Revision ID: james.westby@ubuntu.com-20090508200240-7l4gypruop5863bd
http://bugs.debian.org/496989
http://bugs.debian.org/197427
http://bugs.debian.org/312886
http://bugs.debian.org/426798
http://bugs.debian.org/441997
http://bugs.debian.org/478791
* New upstream release. Closes: #496989.
* Enabled new Unicode support. Closes: #197427. This may or may not work
  for your already created zipfiles, but it's not a bug unless they were
  created using the Unicode feature present in zip 3.0.
* Built using DATE_FORMAT=DF_YMD so that unzip -l show dates in ISO format,
  as that's the only available one which makes sense. Closes: #312886.
* Enabled new bzip2 support. Closes: #426798.
* Exit code for zipgrep should now be the right one. Closes: #441997.
* The reason why a file may not be created is now shown. Closes: #478791.
* Summary of changes in this version not being the debian/* files:
- Manpages in section 1, not 1L.
- Branding patch. UnZip by Debian. Original by Info-ZIP.
- Always #include <unistd.h>. Debian GNU/kFreeBSD needs it.

Show diffs side-by-side

added added

removed removed

Lines of Context:
vms/find_bzip2_lib.com
 
1
$!                                              28 December 2006.  SMS.
 
2
$!
 
3
$! Info-ZIP VMS accessory procedure.
 
4
$!
 
5
$! Find the BZIP2 object library under P1, starting in the [.'P2']
 
6
$! destination directory.  (We assume, initially, that the BZIP2
 
7
$! directory has a destination directory structure like ours.)
 
8
$!
 
9
$! Set the P4 logical name to the directory where it was found.
 
10
$! P5 and P6 may be used for qualifiers on the DEFINE command.
 
11
$!
 
12
$ bz_orig = p1
 
13
$ dest = p2
 
14
$ libbz2 = p3
 
15
$!
 
16
$! Remove any trailing colon, to allow logical name translation.
 
17
$!
 
18
$ bz_dev_dir = ""
 
19
$ bz_base = bz_orig
 
20
$ if (f$extract( (f$length( bz_base)- 1), 1, bz_base) .eqs. ":")
 
21
$ then
 
22
$     bz_base = bz_base- ":"
 
23
$ endif
 
24
$!
 
25
$ bz_base_eqv = f$trnlnm( bz_base)
 
26
$ if (bz_base_eqv .nes. "")
 
27
$ then
 
28
$     bz_orig = bz_base_eqv
 
29
$     bz_base = bz_base_eqv
 
30
$ endif
 
31
$ bz_base = bz_base- "]"
 
32
$!
 
33
$! Candidate 1 = the actual analogue destination directory.
 
34
$!
 
35
$ bz_dev_dir_cand = bz_base+ "."+ dest+ "]"
 
36
$ lib_cand = bz_dev_dir_cand+ libbz2
 
37
$ if (f$search( lib_cand) .nes. "")
 
38
$ then
 
39
$     bz_dev_dir = bz_dev_dir_cand
 
40
$ else
 
41
$!
 
42
$!     Candidate 2 = the actual analogue destination directory + "L".
 
43
$!
 
44
$     bz_dev_dir_cand = bz_base+ "."+ dest+ "L]"
 
45
$     lib_cand = bz_dev_dir_cand+ libbz2
 
46
$     if (f$search( lib_cand) .nes. "")
 
47
$     then
 
48
$         bz_dev_dir = bz_dev_dir_cand
 
49
$     else
 
50
$!
 
51
$!         Candidate 3 = the actual user-specified directory.
 
52
$!
 
53
$         bz_dev_dir_cand = bz_orig
 
54
$         lib_cand = bz_dev_dir_cand+ libbz2
 
55
$         if (f$search( lib_cand) .nes. "")
 
56
$         then
 
57
$             bz_dev_dir = bz_dev_dir_cand
 
58
$         endif
 
59
$     endif
 
60
$ endif
 
61
$!
 
62
$ if (bz_dev_dir .nes. "")
 
63
$ then
 
64
$     if (p4 .eqs. "")
 
65
$     then
 
66
$         write sys$output bz_dev_dir
 
67
$     else
 
68
$         define 'p5' 'p4' 'bz_dev_dir' 'p6'
 
69
$     endif
 
70
$ endif
 
71
$!