108 lines
3.0 KiB
Python
108 lines
3.0 KiB
Python
# This python script creates Finder aliases for all the
|
|
# dynamically-loaded modules that "live in" in a single
|
|
# shared library.
|
|
# It needs a fully functional non-dynamic python to work
|
|
# (since it creates aliases to stuff it needs itself),
|
|
# you should probably drag it onto your non-dynamic python.
|
|
#
|
|
# If you compare it to MkPluginAliases.as it also serves
|
|
# as a comparison between python and AppleScript:-)
|
|
#
|
|
# Jack Jansen, CWI, August 1995
|
|
|
|
import os
|
|
import macfs
|
|
import sys
|
|
|
|
try:
|
|
import Res
|
|
except ImportError:
|
|
print """
|
|
Res module not found, which probably means that you are trying
|
|
to execute this script with a dynamically-linked python. This will
|
|
not work, since the whole point of the script is to create aliases
|
|
for dynamically-linked python to use. Do one of the following:
|
|
- Run this script using a non-dynamic python
|
|
- Use MkPluginAliases.as (an AppleScript)
|
|
- Create the aliases by hand (see the source for a list)."""
|
|
sys.exit(1)
|
|
|
|
import EasyDialogs
|
|
|
|
goals = [
|
|
("mactcp.slb", "mactcpmodules.slb"),
|
|
("macdnr.slb", "mactcpmodules.slb"),
|
|
("AE.slb", "toolboxmodules.slb"),
|
|
("Ctl.slb", "toolboxmodules.slb"),
|
|
("Dlg.slb", "toolboxmodules.slb"),
|
|
("Evt.slb", "toolboxmodules.slb"),
|
|
("Menu.slb", "toolboxmodules.slb"),
|
|
("Qd.slb", "toolboxmodules.slb"),
|
|
("Res.slb", "toolboxmodules.slb"),
|
|
("Snd.slb", "toolboxmodules.slb"),
|
|
("Win.slb", "toolboxmodules.slb"),
|
|
("imgcolormap.slb", "imgmodules.slb"),
|
|
("imgformat.slb", "imgmodules.slb"),
|
|
("imggif.slb", "imgmodules.slb"),
|
|
("imgjpeg.slb", "imgmodules.slb"),
|
|
("imgop.slb", "imgmodules.slb"),
|
|
("imgpgm.slb", "imgmodules.slb"),
|
|
("imgppm.slb", "imgmodules.slb"),
|
|
("imgtiff.slb", "imgmodules.slb")
|
|
]
|
|
|
|
#
|
|
# Not guaranteed to be correct or stay correct (Apple doesn't tell you
|
|
# how to do this), but it seems to work.
|
|
#
|
|
def mkalias(src, dst):
|
|
"""Create a finder alias"""
|
|
srcfss = macfs.FSSpec(src)
|
|
dstfss = macfs.FSSpec(dst)
|
|
alias = srcfss.NewAlias()
|
|
srcfinfo = srcfss.GetFInfo()
|
|
|
|
Res.FSpCreateResFile(dstfss, srcfinfo.Creator, srcfinfo.Type, -1)
|
|
h = Res.FSpOpenResFile(dstfss, 3)
|
|
resource = Res.Resource(alias.data)
|
|
resource.AddResource('alis', 0, '')
|
|
Res.CloseResFile(h)
|
|
|
|
dstfinfo = dstfss.GetFInfo()
|
|
dstfinfo.Flags = dstfinfo.Flags|0x8000 # Alias flag
|
|
dstfss.SetFInfo(dstfinfo)
|
|
|
|
def main():
|
|
# Ask the user for the plugins directory
|
|
dir, ok = macfs.GetDirectory()
|
|
if not ok: sys.exit(0)
|
|
os.chdir(dir.as_pathname())
|
|
|
|
# Remove old .slb aliases and collect a list of .slb files
|
|
if EasyDialogs.AskYesNoCancel('Proceed with removing old aliases?') <= 0:
|
|
sys.exit(0)
|
|
LibFiles = []
|
|
allfiles = os.listdir(':')
|
|
for f in allfiles:
|
|
if f[-4:] == '.slb':
|
|
finfo = macfs.FSSpec(f).GetFInfo()
|
|
if finfo.Flags & 0x8000:
|
|
os.unlink(f)
|
|
else:
|
|
LibFiles.append(f)
|
|
|
|
print LibFiles
|
|
# Create the new aliases.
|
|
if EasyDialogs.AskYesNoCancel('Proceed with creating new ones?') <= 0:
|
|
sys.exit(0)
|
|
for dst, src in goals:
|
|
if src in LibFiles:
|
|
mkalias(src, dst)
|
|
else:
|
|
EasyDialogs.Message(dst+' not created: '+src+' not found')
|
|
|
|
EasyDialogs.Message('All done!')
|
|
|
|
if __name__ == '__main__':
|
|
main()
|