From: Jack Jansen <jack.jansen@cwi.nl>
Date: Fri, 8 Aug 1997 15:00:59 +0000 (+0000)
Subject: mkalias() now has an optional third parameter to create relative
X-Git-Tag: v1.5a3~114
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=48f662de927de8523ef3618271fc289cf46d1f9b;p=python

mkalias() now has an optional third parameter to create relative
aliases (Just)
---

diff --git a/Mac/Lib/macostools.py b/Mac/Lib/macostools.py
index 46eef98a96..374d3f134d 100644
--- a/Mac/Lib/macostools.py
+++ b/Mac/Lib/macostools.py
@@ -26,11 +26,16 @@ BUFSIZ=0x80000		# Copy in 0.5Mb chunks
 # 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):
+def mkalias(src, dst, relative=None):
 	"""Create a finder alias"""
 	srcfss = macfs.FSSpec(src)
 	dstfss = macfs.FSSpec(dst)
-	alias = srcfss.NewAlias()
+        if relative:
+                relativefss = macfs.FSSpec(relative)
+                # ik mag er geen None in stoppen :-(
+                alias = srcfss.NewAlias(relativefss)
+        else:
+                alias = srcfss.NewAlias()
 	srcfinfo = srcfss.GetFInfo()
 
 	Res.FSpCreateResFile(dstfss, srcfinfo.Creator, srcfinfo.Type, -1)