← Back to branch summary

~extension-hackers/globalmenu-extension/3.5

« back to all changes in this revision

Viewing changes to build/unix/vms/install.com

  • Committer: Chris Coulson
  • Date: 2011-08-05 17:37:02 UTC
  • Revision ID: chrisccoulson@ubuntu.com-20110805173702-n11ykbt0tdp5u07q
Refresh build system from FIREFOX_6_0b5_BUILD1

Show diffs side-by-side

added added

removed removed

Lines of Context:
build/unix/vms/install.com
1
 
$! Command file to install/deinstall Mozilla image.
2
 
$! This command file must exist in the root Mozilla directory (where the main
3
 
$! images and shareables reside).
4
 
$!
5
 
$! P1 = INSTALL command to use.
6
 
$!      Default is "ADD /OPEN /HEADER_RESIDENT /SHARE"
7
 
$!      To remove previously installed images pass REMOVE as P1.
8
 
$!
9
 
$ saved_dir = f$environment("default")
10
 
$!
11
 
$ if p1 .eqs. "" then p1 = "add /open /head /share"
12
 
$ me = f$envir("procedure")
13
 
$ here = f$parse(me,,,"device") + f$parse(me,,,"directory")
14
 
$!
15
 
$! Main image(s).
16
 
$!
17
 
$ call do_many "''p1'" "''here'*-bin."
18
 
$!
19
 
$! All the .so files in the main directory.
20
 
$!
21
 
$ call do_many "''p1'" "''here'*.so"
22
 
$!
23
 
$! All the .so files in the components directory.
24
 
$!
25
 
$ set default 'here'
26
 
$ set default [.components]
27
 
$ me = f$envir("default")
28
 
$ here = f$parse(me,,,"device") + f$parse(me,,,"directory")
29
 
$ call do_many "''p1'" "''here'*.so"
30
 
$!
31
 
$ set default 'saved_dir'
32
 
$ exit
33
 
$!
34
 
$do_one:
35
 
$ subroutine
36
 
$ write sys$output "Doing ",p2
37
 
$ install 'p1' 'p2'
38
 
$ endsubroutine
39
 
$!
40
 
$!
41
 
$do_many:
42
 
$ subroutine
43
 
$loop:
44
 
$ f=f$search(p2)
45
 
$ if f .nes. ""
46
 
$ then
47
 
$   v=f$parse(f,,,"version")
48
 
$   f=f-v
49
 
$   call do_one "''p1'" "''f'"
50
 
$   goto loop
51
 
$ endif
52
 
$ endsubroutine