annotate nt/installer/Wise/pre_wise.py @ 616:4f1c7a4ac1e6

[xemacs-hg @ 2001-06-11 07:47:11 by martinb] Revert to doing type-checking in DFC_* macros
author martinb
date Mon, 11 Jun 2001 07:47:20 +0000
parents 74fd4e045ea6
children a268de273009
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
1 import string
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
2 import re
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
3 import os
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
4 import types
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
5
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
6 infile=open("xemacs.tmpl","r")
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
7
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
8 import version
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
9 import dirs
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
10 import filelist
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
11 import packages
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
12
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
13 def letter(package):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
14 index = packages.all.index(package)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
15 if index>29:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
16 raise "WISE error: too many components"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
17 return chr(ord("A")+index)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
18
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
19 def letters(package_list):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
20 ret = ""
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
21 for p in package_list:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
22 ret = ret+letter(p)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
23 return ret
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
24
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
25 def describe(package):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
26 if package in packages.descriptions.keys():
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
27 return ": "+packages.descriptions[package]
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
28 else: return ""
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
29
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
30 def ifblock(var,val):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
31 return("item: If/While Statement\n Variable=%s\n Value=%s\n Flags=00001010\nend\n" % (var,val))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
32
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
33 def endblock():
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
34 return("item: End Block\nend\n")
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
35
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
36 def setvar(var,val):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
37 return("item: Set Variable\n Variable=%s\n Value=%s\n Flags=10000000\nend\n" % (string.upper(var), val))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
38
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
39 def default_letters_of_category(cat):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
40 val = ""
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
41 for p in packages.default:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
42 if packages.category_of_package(p) == cat:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
43 val = val + packages.letter_of_package(p)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
44 return val
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
45
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
46 def set_category_defaults():
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
47 ret = ""
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
48 for c in packages.category_names:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
49 ret = ret + setvar(c, default_letters_of_category(c))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
50 return ret
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
51
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
52 def do_category(cat):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
53 ret = ifblock("COMPONENTS", packages.letter_of_category(cat))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
54 for pkg in packages.packages_of_category(cat):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
55 ret = ret + ifblock(string.upper(cat),packages.letter_of_package(pkg))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
56 for f in files_of_package(pkg):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
57 ret = ret+install_pkg_file(f)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
58 ret = ret + endblock()
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
59 ret = ret + endblock()
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
60 return ret
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
61
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
62 def files_of_package(package):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
63 manifest_file = dirs.packages + "\\pkginfo\\MANIFEST." + package
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
64 manifest = open(manifest_file,"r")
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
65 lines = manifest.readlines()
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
66 lines = map(lambda s:s[:-1], lines)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
67 lines = map(lambda s:string.replace(s,'/','\\'), lines)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
68 return lines
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
69
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
70 def category_dialog(cat):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
71 npkg = len(packages.packages_of_category(cat))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
72 ret=""
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
73 ret=ret+" item: Dialog\n Title="+packages.category_descriptions[cat]+" Packages\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
74 ret=ret+" Width=210\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
75 ret=ret+" Height=%d\n" % (45+npkg*10)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
76 ret=ret+" Font Name=Helv\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
77 ret=ret+" Font Size=8\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
78 ret=ret+" item: Push Button\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
79 ret=ret+" Rectangle=107 %d 147 %d\n" % (5+npkg*10+2, 5+npkg*10+17)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
80 ret=ret+" Create Flags=01010000000000010000000000000001\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
81 ret=ret+" Text=OK\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
82 ret=ret+" end\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
83 ret=ret+" item: Push Button\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
84 ret=ret+" Rectangle=153 %d 193 %d\n" % (5+npkg*10+2, 5+npkg*10+17)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
85 ret=ret+" Variable=%s\n" % string.upper(cat)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
86 ret=ret+" Value=%%%s_SAVE%%\n" % string.upper(cat)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
87 ret=ret+" Create Flags=01010000000000010000000000000000\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
88 ret=ret+" Flags=0000000000000001\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
89 ret=ret+" Text=Cancel\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
90 ret=ret+" end\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
91 ret=ret+" item: Checkbox\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
92 ret=ret+" Rectangle=0 5 191 %d\n" % (10*npkg)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
93 ret=ret+" Variable=%s\n"%string.upper(cat)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
94 ret=ret+" Create Flags=01010000000000010000000000000011\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
95 ret=ret+" Flags=0000000000000010\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
96 for pkg in packages.packages_of_category(cat):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
97 ret = ret+" Text=%s: %s\n"%( pkg, packages.package_descriptions[pkg])
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
98 ret=ret+" Text=\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
99 ret=ret+" end\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
100 ret=ret+" end\n"
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
101 return ret
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
102
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
103 def src_path(src,name):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
104 return src + "\\" + name
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
105
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
106 def dst_path(dst,name):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
107 return "%MAINDIR%"+"\\"+dst+"\\" + name
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
108
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
109 def install_file(name,src,dst):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
110 return("item: Install File\n Source=%s\n Destination=%s\n Flags=0000000010000010\nend\n" % (src_path(src,name),dst_path(dst,name)))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
111
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
112 def install_pkg_file(name):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
113 return install_file(name,dirs.packages,dirs.pkg_dst)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
114
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
115 def do_package(package):
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
116 return ifblock("COMPONENTS",letter(package)) + \
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
117 string.join(map(install_pkg_file,files(package)),"")+ \
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
118 endblock()
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
119
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
120 for line in infile.readlines():
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
121 left=string.find(line,"<<<")
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
122 if left>=0:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
123 right=string.find(line,">>>")
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
124 expr=line[left+3:right]
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
125 val=eval(expr)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
126 if type(val)==types.StringType:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
127 print line[:left] + val + line[right+3:],
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
128 elif type(val)==types.ListType:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
129 for v in val:
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
130 print line[:left] + v + line[right+3:],
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
131 else: print line,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
132
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
133