Interactively create a distribution from a sourcetree.
Not yet fully tested.
diff --git a/Mac/scripts/MkDistr.py b/Mac/scripts/MkDistr.py
new file mode 100644
index 0000000..deda71b
--- /dev/null
+++ b/Mac/scripts/MkDistr.py
@@ -0,0 +1,280 @@
+#
+# Interactively decide what to distribute
+#
+# The distribution type is signalled by a letter. The currently
+# defined letters are:
+# p PPC normal distribution
+# P PPC development distribution
+# m 68K normal distribution
+# M 68K development distribution
+#
+# The exclude file signals files to always exclude,
+# The pattern file records are of the form
+# ('pm', '*.c')
+# This excludes all files ending in .c for normal distributions.
+#
+# The include file signals files and directories to include.
+# Records are of the form
+# ('pPmM', 'Lib')
+# This includes the Lib dir in all distributions
+# ('pPmM', 'Tools:bgen:AE:AppleEvents.py', 'Lib:MacToolbox:AppleEvents.py')
+# This includes the specified file, putting it in the given place.
+#
+from MkDistr_ui import *
+import fnmatch
+import regex
+import os
+import sys
+import macfs
+import macostools
+
+SyntaxError='Include/exclude file syntax error'
+
+class Matcher:
+ """Include/exclude database, common code"""
+
+ def __init__(self, type, filename):
+ self.type = type
+ self.filename = filename
+ self.rawdata = []
+ self.parse(filename)
+ self.rawdata.sort()
+ self.rebuild()
+ self.modified = 0
+
+ def parse(self, dbfile):
+ try:
+ fp = open(dbfile)
+ except IOError:
+ return
+ data = fp.readlines()
+ fp.close()
+ for d in data:
+ d = d[:-1]
+ if not d or d[0] == '#': continue
+ pat = self.parseline(d)
+ self.rawdata.append(pat)
+
+ def parseline(self, line):
+ try:
+ data = eval(line)
+ except:
+ raise SyntaxError, line
+ if type(data) <> type(()) or len(data) not in (2,3):
+ raise SyntaxError, line
+ if len(data) == 2:
+ data = data + ('',)
+ return data
+
+ def save(self):
+ fp = open(self.filename, 'w')
+ for d in self.rawdata:
+ fp.write(`d`+'\n')
+ self.modified = 0
+
+ def add(self, value):
+ if len(value) == 2:
+ value = value + ('',)
+ self.rawdata.append(value)
+ self.rebuild1(value)
+ self.modified = 1
+
+ def delete(self, value):
+ key = value
+ for i in range(len(self.rawdata)):
+ if self.rawdata[i][1] == key:
+ del self.rawdata[i]
+ self.unrebuild1(i, key)
+ self.modified = 1
+ return
+ print 'Not found!', key
+
+ def getall(self):
+ return map(lambda x: x[1], self.rawdata)
+
+ def get(self, value):
+ for t, src, dst in self.rawdata:
+ if src == value:
+ return t, src, dst
+ print 'Not found!', value
+
+ def is_modified(self):
+ return self.modified
+
+class IncMatcher(Matcher):
+ """Include filename database and matching engine"""
+
+ def rebuild(self):
+ self.idict = {}
+ self.edict = {}
+ for v in self.rawdata:
+ self.rebuild1(v)
+
+ def rebuild1(self, (tp, src, dst)):
+ if self.type in tp:
+ if dst == '':
+ dst = src
+ self.idict[src] = dst
+ else:
+ self.edict[src] = ''
+
+ def unrebuild1(self, num, src):
+ if self.idict.has_key(src):
+ del self.idict[src]
+ else:
+ del self.edict[src]
+
+ def match(self, patharg):
+ removed = []
+ # First check the include directory
+ path = patharg
+ while 1:
+ if self.idict.has_key(path):
+ # We know of this path (or initial piece of path)
+ dstpath = self.idict[path]
+ # We do want it distributed. Tack on the tail.
+ while removed:
+ dstpath = os.path.join(dstpath, removed[0])
+ removed = removed[1:]
+ # Finally, if the resultant string ends in a separator
+ # tack on our input filename
+ if dstpath[-1] == os.sep:
+ dir, file = os.path.split(path)
+ dstpath = os.path.join(dstpath, path)
+ return dstpath
+ path, lastcomp = os.path.split(path)
+ if not path:
+ break
+ removed[0:0] = [lastcomp]
+ # Next check the exclude directory
+ path = patharg
+ while 1:
+ if self.edict.has_key(path):
+ return ''
+ path, lastcomp = os.path.split(path)
+ if not path:
+ break
+ removed[0:0] = [lastcomp]
+ return None
+
+ def checksourcetree(self):
+ rv = []
+ for name in self.idict.keys():
+ if not os.path.exists(name):
+ rv.append(name)
+ return rv
+
+class ExcMatcher(Matcher):
+ """Exclude pattern database and matching engine"""
+
+ def rebuild(self):
+ self.relist = []
+ for v in self.rawdata:
+ self.rebuild1(v)
+
+ def rebuild1(self, (tp, src, dst)):
+ if self.type in tp:
+ pat = fnmatch.translate(src)
+ self.relist.append(regex.compile(pat))
+ else:
+ self.relist.append(None)
+
+ def unrebuild1(self, num, src):
+ del self.relist[num]
+
+ def match(self, path):
+ comps = os.path.split(path)
+ file = comps[-1]
+ for pat in self.relist:
+ if pat and pat.match(file) == len(file):
+ return 1
+ return 0
+
+
+class Main:
+ """The main program glueing it all together"""
+
+ def __init__(self):
+ InitUI()
+ fss, ok = macfs.GetDirectory('Source directory:')
+ if not ok:
+ sys.exit(0)
+ os.chdir(fss.as_pathname())
+ self.typedist = GetType()
+ print 'TYPE', self.typedist
+ self.inc = IncMatcher(self.typedist, '(MkDistr.include)')
+ self.exc = ExcMatcher(self.typedist, '(MkDistr.exclude)')
+ self.ui = MkDistrUI(self)
+ self.ui.mainloop()
+
+ def check(self):
+ return self.checkdir(':', 1)
+
+ def checkdir(self, path, istop):
+ files = os.listdir(path)
+ rv = []
+ todo = []
+ for f in files:
+ if self.exc.match(f):
+ continue
+ fullname = os.path.join(path, f)
+ if self.inc.match(fullname) == None:
+ if os.path.isdir(fullname):
+ todo.append(fullname)
+ else:
+ rv.append(fullname)
+ for d in todo:
+ if len(rv) > 100:
+ if istop:
+ rv.append('... and more ...')
+ return rv
+ rv = rv + self.checkdir(d, 0)
+ return rv
+
+ def run(self, destprefix):
+ missing = self.inc.checksourcetree()
+ if missing:
+ print '==== Missing source files ===='
+ for i in missing:
+ print i
+ print '==== Fix and retry ===='
+ return
+ if not self.rundir(':', destprefix, 0):
+ return
+ self.rundir(':', destprefix, 1)
+
+ def rundir(self, path, destprefix, doit):
+ files = os.listdir(path)
+ todo = []
+ rv = 1
+ for f in files:
+ if self.exc.match(f):
+ continue
+ fullname = os.path.join(path, f)
+ if os.path.isdir(fullname):
+ todo.append(fullname)
+ else:
+ dest = self.inc.match(fullname)
+ if dest == None:
+ print 'Not yet resolved:', fullname
+ rv = 0
+ if dest:
+ if doit:
+ print 'COPY ', fullname
+ print ' -> ', os.path.join(destprefix, dest)
+ macostools.copy(fullname, os.path.join(destprefix, dest), 1)
+ for d in todo:
+ if not self.rundir(d, destprefix, doit):
+ rv = 0
+ return rv
+
+ def save(self):
+ self.inc.save()
+ self.exc.save()
+
+ def is_modified(self):
+ return self.inc.is_modified() or self.exc.is_modified()
+
+if __name__ == '__main__':
+ Main()
+
diff --git a/Mac/scripts/MkDistr.rsrc.hqx b/Mac/scripts/MkDistr.rsrc.hqx
new file mode 100644
index 0000000..b8c4478
--- /dev/null
+++ b/Mac/scripts/MkDistr.rsrc.hqx
@@ -0,0 +1,31 @@
+(This file may be decompressed with BinHex 4.0)
+
+:$%eV4'PcG()ZFR0bB`"bFh*M8P0&4!%!N!F&SINN!*!%!3!!!!5[!!!$V`!!!2)8
+T8SJ&+9+%"5P5rJ6'6!)%!!!#"!!!!J3!!!)%!!!#!a0Dd4TFh4b,R*cFQ0b!J!!
+!(*cFQ058d9%!3$rN!3!!(*cFQ058d9%!3$rN!3!N"+XA"N$!*!'"D(rq"rrrJ!I
+rrm!(rrrJ"rrrm!IrrrJ(rrrm"rrrrJIrrri(rrrq"rrrrJIrrri(rrrq"rrrrJI
+rrri(rrrq"rrrrJIrrri(rrrq"rrrrJIrrri(rrrq"rrrrJIrrri(rrrq"rrrrJI
+rrri(rrrq"rrrrJIrrri(rrrq"rrrrJIrrri!!!!&3"F!$i!rJ'K!!8"!!%!N!8#
+!*!&&3"F!$i!rJ'K!!8"!!%!N!8#!3#3"-`!#!#3"B)")J#@!9`%!Np,!*!&JJ!+
+!*B!4!3'3f&ZBf9X!*!&C!$F!(B"@`8'8fpeFQ0P!*!&8!$F!')"@`8,8&"$)'4P
+GQ9XEh!!N!C3!'i!BJ$B"3Sf1%XJ3QPZBA*j!*!&C!"Z!(B!f!8+8&"$)'*TEQ&b
+H3#3"43!EJ!M!9B3#89NDA3J9'9iG&X!N!88!!S!*!"KL!K3BA4dCA*Z1J#3"9!!
+#J"J!'+)#d9iBfaeC'8JD@ik!*!%p!!+!*!&JJ%L!*B"A!3#6dX!N!@#!!S!PJ"%
+"!C$B@jMC@`!N!9N!0`!GJ&E"3C6Eh9bBf8!N!93!0`!BJ&E"3Y38%-JC'9fC@a[
+F!#3"P!!EJ"L!0J&#MBi5b"#D@jKFRN!N!9N!'i!GJ$B"3T38%-JBQPZBA*j!*!&
+&!"Z!#-"9K!*4@4TG#"8CAKd@`#3"6)!EJ""!9F3!*!'&!!+!#3!BBJ(8fpeFQ0P
+1Jm!N!8b!!S!3J"KL!a%CA0dD@jKG'P[EMS!N!93!!S!B!"LL!Y*EQ0XG@4P)'PZ
+1Q`!!!!9!#J!+!%k!F3!!!%!!3#3"3)#!*!%&3!S!#J"1J(%!!!"!!%!N!8#!`#3
+"%i!!`#3"3S!#J$G!Bi!N!I`!33""!'2"!C%C@aPG'8!N!A`!'i""!$j"!G&C'Pd
+,LiZ!*!'m!!+!33!BJ3'3@4N,LiZ!!!!&3"`!'i!k`&E!!!"!!%!N!8#"!#3"+)!
+"!#3"4i!&!!`!13'#dCeE'`JFfpeFQ0PG!#3"6)!&!"%!13'$e"33b"NCACPE'p`
+E@9ZG1F!N!9'!"3!@!$N"Jmf1%XJBQPZBA*j,@pZE(RR!*!&@J!8!'`!j!B28&"$
+)'*TEQ&bH5e[EQajj`#3"3S!#J!D!1D)(P4jF'8JEfBJC'PcG(*TBR9dD@pZ)(4[
+)'*eD@aN1J!!!'i!"!#3"3S!#J$G!Bi!N!I`!6B""3'-"!T%DA0dFQPLGA4P!*!&
+m!$5!33",J3+3fKPBfXJG(*PC3#3"I!!#J%%!')%#NPZBfaeC'8Z,Li!N!A`!'i"
+"!$'"!G&H'0XG@4P!!!!!3!!!!5[!!!$V`!!!2)!cC58%83!!!!F!+B!!84-6dF!
+"!!54%P86!!%!%i#!*!)cC0`!J%!$`!!!"N!cC0i!J)!(J!!!IS!cC0X!J-!)`!!
+!K-!cC0S!J3!1J!!!Ri!cC0N!J$rr`!!!3)!N!3#!Irr!!!!-J#3"!)#rrm!!!-p
+!-f52!)$rrm!!!)X!*!%!J6rr`!!!TF!N!315@jME(9NC5"ND@&XEfF14AKME(9N
+C5"ND@&XEfF%6@&TEKC*EQ0XG@4P,f9iBfaeC'8JGfPZC'ph%84TFh4bD@*eG'P[
+EL"dHA"PJqX:
diff --git a/Mac/scripts/MkDistr_ui.py b/Mac/scripts/MkDistr_ui.py
new file mode 100644
index 0000000..f9192f5
--- /dev/null
+++ b/Mac/scripts/MkDistr_ui.py
@@ -0,0 +1,346 @@
+#
+# MkDistr - User Interface.
+#
+# Jack Jansen, CWI, August 1995
+#
+# XXXX To be done (requires mods of FrameWork and toolbox interfaces too):
+# - Give dialogs titles (need dlg->win conversion)
+# - Place dialogs better (???)
+# - <return> as <ok>
+# - big box around ok button
+# - window-close crashes on reopen (why?)
+# - Box around lists (???)
+# - Change cursor while busy (need cursor support in Qd)
+#
+import Res
+import Dlg
+import Ctl
+import List
+import Win
+import Qd
+from FrameWork import *
+import EasyDialogs
+import macfs
+
+# Resource IDs
+ID_MAIN = 514
+MAIN_LIST=1
+MAIN_MKDISTR=2
+MAIN_CHECK=3
+MAIN_INCLUDE=4
+MAIN_EXCLUDE=5
+
+ID_INCEXC=515
+INCEXC_DELETE=2
+INCEXC_CHANGE=3
+INCEXC_ADD=4
+
+ID_INCLUDE=512
+ID_EXCLUDE=513
+DLG_OK=1
+DLG_CANCEL=2
+DLG_FULL=3
+DLG_PPCDEV=4
+DLG_68K=5
+DLG_PPC=6
+DLG_BUTTONS=[DLG_FULL, DLG_PPCDEV, DLG_68K, DLG_PPC]
+DLG_LETTERS=['S', 'P', 'm', 'p']
+DLG_SRCPATH=7
+DLG_DSTPATH=8
+
+ID_DTYPE=516
+
+class EditDialogWindow(DialogWindow):
+ """Include/exclude editor (modeless dialog window)"""
+
+ def open(self, id, (type, src, dst), callback, cancelrv):
+ self.id = id
+ if id == ID_INCLUDE:
+ title = "Include file dialog"
+ else:
+ title = "Exclude pattern dialog"
+ #self.wid.as_Window().SetWTitle(title)
+ self.callback = callback
+ self.cancelrv = cancelrv
+ DialogWindow.open(self, id)
+ tp, h, rect = self.wid.GetDialogItem(DLG_SRCPATH)
+ Dlg.SetDialogItemText(h, src)
+ if id == ID_INCLUDE:
+ tp, h, rect = self.wid.GetDialogItem(DLG_DSTPATH)
+ Dlg.SetDialogItemText(h, dst)
+ for b in range(len(DLG_BUTTONS)):
+ if type == None or DLG_LETTERS[b] in type:
+ self.setbutton(DLG_BUTTONS[b], 1)
+
+ def setbutton(self, num, value):
+ tp, h, rect = self.wid.GetDialogItem(num)
+ h.as_Control().SetControlValue(value)
+
+ def getbutton(self, num):
+ tp, h, rect = self.wid.GetDialogItem(num)
+ return h.as_Control().GetControlValue()
+
+ def do_itemhit(self, item, event):
+ if item in (DLG_OK, DLG_CANCEL):
+ self.done(item)
+ elif item in DLG_BUTTONS:
+ v = self.getbutton(item)
+ self.setbutton(item, (not v))
+ # else it is not interesting
+
+ def done(self, item):
+ if item == DLG_OK:
+ distlist = ''
+ for i in range(len(DLG_BUTTONS)):
+ if self.getbutton(DLG_BUTTONS[i]):
+ distlist = distlist + DLG_LETTERS[i]
+ tp, h, rect = self.wid.GetDialogItem(DLG_SRCPATH)
+ src = Dlg.GetDialogItemText(h)
+ if self.id == ID_INCLUDE:
+ tp, h, rect = self.wid.GetDialogItem(DLG_DSTPATH)
+ dst = Dlg.GetDialogItemText(h)
+ rv = (distlist, src, dst)
+ else:
+ rv = (distlist, src)
+ else:
+ rv = self.cancelrv
+ self.close()
+ self.callback((item==DLG_OK), rv)
+
+class ListWindow(DialogWindow):
+ """A dialog window containing a list as its main item"""
+
+ def open(self, id, contents):
+ self.id = id
+ DialogWindow.open(self, id)
+ tp, h, rect = self.wid.GetDialogItem(MAIN_LIST)
+ rect2 = rect[0], rect[1], rect[2]-16, rect[3]-16 # Scroll bar space
+ self.list = List.LNew(rect2, (0, 0, 1, len(contents)), (0,0), 0, self.wid,
+ 0, 1, 1, 1)
+ self.setlist(contents)
+
+ def setlist(self, contents):
+ self.list.LDelRow(0, 0)
+ self.list.LSetDrawingMode(0)
+ if contents:
+ self.list.LAddRow(len(contents), 0)
+ for i in range(len(contents)):
+ self.list.LSetCell(contents[i], (0, i))
+ self.list.LSetDrawingMode(1)
+ self.list.LUpdate()
+
+ def additem(self, item):
+ where = self.list.LAddRow(1, 0)
+ self.list.LSetCell(item, (0, where))
+
+ def delgetitem(self, item):
+ data = self.list.LGetCell(1000, (0, item))
+ self.list.LDelRow(1, item)
+ return data
+
+ def do_listhit(self, event):
+ (what, message, when, where, modifiers) = event
+ Qd.SetPort(self.wid)
+ where = Qd.GlobalToLocal(where)
+ if self.list.LClick(where, modifiers):
+ self.do_dclick(self.delgetselection())
+
+ def delgetselection(self):
+ items = []
+ point = (0,0)
+ while 1:
+ ok, point = self.list.LGetSelect(1, point)
+ if not ok:
+ break
+ items.append(point[1])
+ point = point[0], point[1]+1
+ values = []
+ items.reverse()
+ for i in items:
+ values.append(self.delgetitem(i))
+ return values
+
+ def do_rawupdate(self, window, event):
+ self.list.LUpdate()
+
+ def do_close(self):
+ self.close()
+
+ def close(self):
+ del self.list
+ DialogWindow.close(self)
+
+ def mycb_add(self, ok, item):
+ if item:
+ self.additem(item[1])
+ self.cb_add(item)
+
+class MainListWindow(ListWindow):
+ """The main window"""
+
+ def open(self, id, cb_check, cb_run, cb_add):
+ ListWindow.open(self, id, [])
+ title = "MkDistr: Unresolved files"
+ #self.wid.as_Window().SetWTitle(title)
+ self.cb_run = cb_run
+ self.cb_check = cb_check
+ self.cb_add = cb_add
+
+ def do_itemhit(self, item, event):
+ if item == MAIN_LIST:
+ self.do_listhit(event)
+ if item == MAIN_MKDISTR:
+ fss, ok = macfs.StandardPutFile('Destination folder:')
+ if not ok:
+ return
+ self.cb_run(fss.as_pathname())
+ if item == MAIN_CHECK:
+ list = self.cb_check()
+ self.setlist(list)
+ if item == MAIN_INCLUDE:
+ self.do_dclick(self.delgetselection())
+ if item == MAIN_EXCLUDE:
+ for i in self.delgetselection():
+ self.cb_add(('', i, ''))
+
+ def do_dclick(self, list):
+ if not list:
+ list = ['']
+ for l in list:
+ w = EditDialogWindow(self.parent)
+ w.open(ID_INCLUDE, (None, l, ''), self.mycb_add, None)
+
+ def mycb_add(self, ok, item):
+ if item:
+ self.cb_add(item)
+
+class IncListWindow(ListWindow):
+ """An include/exclude window"""
+ def open(self, id, editid, contents, cb_add, cb_del, cb_get):
+ ListWindow.open(self, id, contents)
+ if editid == ID_INCLUDE:
+ title = "MkDistr: files to include"
+ else:
+ title = "MkDistr: patterns to exclude"
+ #self.wid.as_Window().SetWTitle(title)
+ self.editid = editid
+ self.cb_add = cb_add
+ self.cb_del = cb_del
+ self.cb_get = cb_get
+
+ def do_itemhit(self, item, event):
+ if item == MAIN_LIST:
+ self.do_listhit(event)
+ if item == INCEXC_DELETE:
+ old = self.delgetselection()
+ for i in old:
+ self.cb_del(i)
+ if item == INCEXC_CHANGE:
+ self.do_dclick(self.delgetselection())
+ if item == INCEXC_ADD:
+ w = EditDialogWindow(self.parent)
+ w.open(self.editid, (None, '', ''), self.mycb_add, None)
+
+ def do_dclick(self, list):
+ if not list:
+ list = ['']
+ for l in list:
+ old = self.cb_get(l)
+ self.cb_del(l)
+ w = EditDialogWindow(self.parent)
+ w.open(self.editid, old, self.mycb_add, old)
+
+class MkDistrUI(Application):
+ def __init__(self, main):
+ self.main = main
+ Application.__init__(self)
+ self.mwin = MainListWindow(self)
+ self.mwin.open(ID_MAIN, self.main.check, self.main.run, self.main.inc.add)
+ self.iwin = None
+ self.ewin = None
+
+ def makeusermenus(self):
+ self.filemenu = m = Menu(self.menubar, "File")
+ self.includeitem = MenuItem(m, "Show Include window", "", self.showinc)
+ self.excludeitem = MenuItem(m, "Show Exclude window", "", self.showexc)
+ self.saveitem = MenuItem(m, "Save databases", "S", self.save)
+ self.quititem = MenuItem(m, "Quit", "Q", self.quit)
+
+ def quit(self, *args):
+ if self.main.is_modified():
+ rv = EasyDialogs.AskYesNoCancel('Database modified. Save?', -1)
+ if rv == -1:
+ return
+ if rv == 1:
+ self.main.save()
+ raise self
+
+ def save(self, *args):
+ self.main.save()
+
+ def showinc(self, *args):
+ if self.iwin:
+ if self._windows.has_key(self.iwin):
+ self.iwin.close()
+ del self.iwin
+ self.iwin = IncListWindow(self)
+ self.iwin.open(ID_INCEXC, ID_INCLUDE, self.main.inc.getall(), self.main.inc.add,
+ self.main.inc.delete, self.main.inc.get)
+
+ def showexc(self, *args):
+ if self.ewin:
+ if self._windows.has_key(self.ewin):
+ self.ewin.close()
+ del self.ewin
+ self.ewin = IncListWindow(self)
+ self.ewin.open(ID_INCEXC, ID_EXCLUDE, self.main.exc.getall(), self.main.exc.add,
+ self.main.exc.delete, self.main.exc.get)
+
+ def do_about(self, id, item, window, event):
+ EasyDialogs.Message("Test the MkDistr user interface.")
+
+def GetType():
+ """Ask user for distribution type"""
+ d = Dlg.GetNewDialog(ID_DTYPE, -1)
+ while 1:
+ rv = ModalDialog(None)
+ if rv >= 1 and rv <= 4:
+ return DLG_LETTERS[rv-1]
+
+def InitUI():
+ """Initialize stuff needed by UI (a resource file)"""
+ Res.OpenResFile('MkDistr.rsrc')
+
+class _testerhelp:
+ def __init__(self, which):
+ self.which = which
+
+ def get(self):
+ return [self.which+'-one', self.which+'-two']
+
+ def add(self, value):
+ if value:
+ print 'ADD', self.which, value
+
+ def delete(self, value):
+ print 'DEL', self.which, value
+
+class _test:
+ def __init__(self):
+ import sys
+ Res.OpenResFile('MkDistr.rsrc')
+ self.inc = _testerhelp('include')
+ self.exc = _testerhelp('exclude')
+ self.ui = MkDistrUI(self)
+ self.ui.mainloop()
+ sys.exit(1)
+
+ def check(self):
+ print 'CHECK'
+ return ['rv1', 'rv2']
+
+ def run(self):
+ print 'RUN'
+
+if __name__ == '__main__':
+ _test()