Mercurial > cpython-lru_cache-weakref

annotate Mac/Python/macgetpath.c @ 13547:db963a615bc9 legacy-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ANSIfication step 2: make sure all needed prototypes are available, and all needed header files included.
author Jack Jansen <jack.jansen@cwi.nl>
date Tue, 11 Jul 2000 21:16:03 +0000
parents e367ad3ea59a
children dc17ef1a7613
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5079
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
1 /***********************************************************
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
2 Copyright 1991-1997 by Stichting Mathematisch Centrum, Amsterdam,
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
3 The Netherlands.
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
4
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
5 All Rights Reserved
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
6
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
7 Permission to use, copy, modify, and distribute this software and its
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
8 documentation for any purpose and without fee is hereby granted,
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
9 provided that the above copyright notice appear in all copies and that
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
10 both that copyright notice and this permission notice appear in
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
11 supporting documentation, and that the names of Stichting Mathematisch
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
12 Centrum or CWI or Corporation for National Research Initiatives or
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
13 CNRI not be used in advertising or publicity pertaining to
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
14 distribution of the software without specific, written prior
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
15 permission.
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
16
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
17 While CWI is the initial source for this software, a modified version
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
18 is made available by the Corporation for National Research Initiatives
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
19 (CNRI) at the Internet address ftp://ftp.python.org.
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
20
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
21 STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
22 REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
23 MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
24 CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
25 DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
26 PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
27 TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
28 PERFORMANCE OF THIS SOFTWARE.
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
29
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
30 ******************************************************************/
d6b292a33cfe Added/updated copyright notices
Jack Jansen <jack.jansen@cwi.nl>
parents: 4523
diff changeset
31
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
32 #include "Python.h"
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
33 #include "osdefs.h"
4228
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
34 #include "macglue.h"
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
35 #include "pythonresources.h"
13547
db963a615bc9 ANSIfication step 2: make sure all needed prototypes are available, and all needed
Jack Jansen <jack.jansen@cwi.nl>
parents: 12446
diff changeset
36 #ifdef HAVE_UNISTD_H
db963a615bc9 ANSIfication step 2: make sure all needed prototypes are available, and all needed
Jack Jansen <jack.jansen@cwi.nl>
parents: 12446
diff changeset
37 #include <unistd.h>
db963a615bc9 ANSIfication step 2: make sure all needed prototypes are available, and all needed
Jack Jansen <jack.jansen@cwi.nl>
parents: 12446
diff changeset
38 #endif
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
39
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
40
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
41 /* Return the initial python search path. This is called once from
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
42 ** initsys() to initialize sys.path.
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
43 **
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
44 ** If USE_BUILTIN_PATH is defined the path defined here is used
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
45 ** (after prepending the python home dir to each item).
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
46 ** If it is not defined the path is gotten from a resource in the
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
47 ** Preferences file.
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
48 **
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
49 ** XXXX This code needs cleaning up. The routines here have moved
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
50 ** around quite a bit, and they're pretty messy for that reason.
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
51 */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
52
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
53 #include <Files.h>
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
54 #include <Aliases.h>
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
55 #include <Folders.h>
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
56 #include <Resources.h>
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
57 #include <TextUtils.h>
3057
24af8eab7b76 Fixed to work on 68K (could be yet another optimizer bug or something)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3054
diff changeset
58 #include <Dialogs.h>
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
59
12281
51c0c3b6d919 Started on GUSI2 and threading support.
Jack Jansen <jack.jansen@cwi.nl>
parents: 10072
diff changeset
60 #ifdef USE_GUSI1
4228
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
61 #include <GUSI.h>
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
62 #endif
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
63
13547
db963a615bc9 ANSIfication step 2: make sure all needed prototypes are available, and all needed
Jack Jansen <jack.jansen@cwi.nl>
parents: 12446
diff changeset
64 #ifndef USE_BUILTIN_PATH
db963a615bc9 ANSIfication step 2: make sure all needed prototypes are available, and all needed
Jack Jansen <jack.jansen@cwi.nl>
parents: 12446
diff changeset
65 staticforward char *PyMac_GetPythonPath();
db963a615bc9 ANSIfication step 2: make sure all needed prototypes are available, and all needed
Jack Jansen <jack.jansen@cwi.nl>
parents: 12446
diff changeset
66 #endif
db963a615bc9 ANSIfication step 2: make sure all needed prototypes are available, and all needed
Jack Jansen <jack.jansen@cwi.nl>
parents: 12446
diff changeset
67
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
68 #define PYTHONPATH "\
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
69 :\n\
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
70 :Lib\n\
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
71 :Lib:stdwin\n\
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
72 :Lib:test\n\
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
73 :Lib:mac"
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
74
8666
6245b819bdd8 If the preference filename resource is empty don't try to open or
Jack Jansen <jack.jansen@cwi.nl>
parents: 8247
diff changeset
75 static int
4442
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
76 getpreffilefss(FSSpec *fssp)
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
77 {
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
78 static int diditbefore=0;
8666
6245b819bdd8 If the preference filename resource is empty don't try to open or
Jack Jansen <jack.jansen@cwi.nl>
parents: 8247
diff changeset
79 static int rv = 1;
4442
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
80 static FSSpec fss;
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
81 short prefdirRefNum;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
82 long prefdirDirID;
10072
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
83 long pyprefdirDirID;
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
84 Handle namehandle;
10072
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
85 OSErr err;
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
86
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
87 if ( !diditbefore ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
88 if ( (namehandle=GetNamedResource('STR ', PREFFILENAME_NAME)) == NULL ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
89 (void)StopAlert(NOPREFNAME_ID, NULL);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
90 exit(1);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
91 }
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
92
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
93 if ( **namehandle == '\0' ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
94 /* Empty string means don't use preferences file */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
95 rv = 0;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
96 } else {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
97 /* There is a filename, construct the fsspec */
10072
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
98 if ( FindFolder(kOnSystemDisk, 'pref', kDontCreateFolder, &prefdirRefNum,
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
99 &prefdirDirID) != noErr ) {
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
100 /* Something wrong with preferences folder */
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
101 (void)StopAlert(NOPREFDIR_ID, NULL);
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
102 exit(1);
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
103 }
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
104 /* make fsspec for the "Python" folder inside the prefs folder */
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
105 err = FSMakeFSSpec(prefdirRefNum, prefdirDirID, "\pPython", &fss);
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
106 if (err == fnfErr) {
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
107 /* it doesn't exist: create it */
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
108 err = FSpDirCreate(&fss, smSystemScript, &pyprefdirDirID);
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
109 } else {
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
110 /* it does exist, now find out the dirID of the Python prefs folder, brrr. */
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
111 CInfoPBRec info;
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
112 info.dirInfo.ioVRefNum = fss.vRefNum;
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
113 info.dirInfo.ioDrDirID = fss.parID;
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
114 info.dirInfo.ioNamePtr = fss.name;
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
115 info.dirInfo.ioFDirIndex = 0;
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
116 info.dirInfo.ioACUser = 0;
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
117 err = PBGetCatInfo(&info, 0);
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
118 if (err == noErr) {
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
119 pyprefdirDirID = info.dirInfo.ioDrDirID;
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
120 }
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
121 }
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
122 if (err != noErr) {
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
123 (void)StopAlert(NOPREFDIR_ID, NULL);
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
124 exit(1);
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
125 }
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
126 HLock(namehandle);
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
127 err = FSMakeFSSpec(fss.vRefNum, pyprefdirDirID, (unsigned char *)*namehandle, &fss);
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
128 HUnlock(namehandle);
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
129 if (err != noErr && err != fnfErr) {
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
130 (void)StopAlert(NOPREFDIR_ID, NULL);
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
131 exit(1);
ecebcd84df37 put the preferences file in a folder called "Python" inside the prefs folder, just like the IDE does -- jvr
Just van Rossum <just@lettererror.com>
parents: 8788
diff changeset
132 }
8666
6245b819bdd8 If the preference filename resource is empty don't try to open or
Jack Jansen <jack.jansen@cwi.nl>
parents: 8247
diff changeset
133 }
4442
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
134 ReleaseResource(namehandle);
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
135 diditbefore = 1;
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
136 }
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
137 *fssp = fss;
8666
6245b819bdd8 If the preference filename resource is empty don't try to open or
Jack Jansen <jack.jansen@cwi.nl>
parents: 8247
diff changeset
138 return rv;
4442
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
139 }
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
140
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
141 char *
3750
a22438e94fe9 Old names changed to Py_GetCopyright, etc.
Jack Jansen <jack.jansen@cwi.nl>
parents: 3485
diff changeset
142 Py_GetPath()
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
143 {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
144 /* Modified by Jack to do something a bit more sensible:
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
145 ** - Prepend the python home-directory (which is obtained from a Preferences
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
146 ** resource)
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
147 ** - Add :
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
148 */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
149 static char *pythonpath;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
150 char *p, *endp;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
151 int newlen;
4442
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
152 char *curwd;
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
153
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
154 if ( pythonpath ) return pythonpath;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
155 #ifndef USE_BUILTIN_PATH
4442
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
156 if ( pythonpath = PyMac_GetPythonPath() )
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
157 return pythonpath;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
158 printf("Warning: No pythonpath resource found, using builtin default\n");
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
159 #endif
4442
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
160 curwd = PyMac_GetPythonDir();
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
161 p = PYTHONPATH;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
162 endp = p;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
163 pythonpath = malloc(2);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
164 if ( pythonpath == NULL ) return PYTHONPATH;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
165 strcpy(pythonpath, ":");
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
166 while (*endp) {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
167 endp = strchr(p, '\n');
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
168 if ( endp == NULL )
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
169 endp = p + strlen(p);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
170 newlen = strlen(pythonpath) + 1 + strlen(curwd) + (endp-p);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
171 pythonpath = realloc(pythonpath, newlen+1);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
172 if ( pythonpath == NULL ) return PYTHONPATH;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
173 strcat(pythonpath, "\n");
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
174 if ( *p == ':' ) {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
175 p++;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
176 strcat(pythonpath, curwd);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
177 strncat(pythonpath, p, (endp-p));
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
178 newlen--; /* Ok, ok, we've allocated one byte too much */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
179 } else {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
180 /* We've allocated too much in this case */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
181 newlen -= strlen(curwd);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
182 pythonpath = realloc(pythonpath, newlen+1);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
183 if ( pythonpath == NULL ) return PYTHONPATH;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
184 strncat(pythonpath, p, (endp-p));
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
185 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
186 pythonpath[newlen] = '\0';
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
187 p = endp + 1;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
188 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
189 return pythonpath;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
190 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
191
4442
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
192
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
193 /*
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
194 ** Open/create the Python Preferences file, return the handle
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
195 */
12446
e367ad3ea59a Made the GUSI options work again with GUSI 2.
Jack Jansen <jack.jansen@cwi.nl>
parents: 12281
diff changeset
196 short
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
197 PyMac_OpenPrefFile()
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
198 {
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
199 AliasHandle handle;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
200 FSSpec dirspec;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
201 short prefrh;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
202 OSErr err;
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
203
8666
6245b819bdd8 If the preference filename resource is empty don't try to open or
Jack Jansen <jack.jansen@cwi.nl>
parents: 8247
diff changeset
204 if ( !getpreffilefss(&dirspec))
6245b819bdd8 If the preference filename resource is empty don't try to open or
Jack Jansen <jack.jansen@cwi.nl>
parents: 8247
diff changeset
205 return -1;
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
206 prefrh = FSpOpenResFile(&dirspec, fsRdWrShPerm);
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
207 if ( prefrh < 0 ) {
4442
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
208 #if 0
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
209 action = CautionAlert(NOPREFFILE_ID, NULL);
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
210 if ( action == NOPREFFILE_NO )
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
211 exit(1);
4442
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
212 #endif
3410
022474ac2451 Changed MacOS creator code from PYTH to Pyth
Jack Jansen <jack.jansen@cwi.nl>
parents: 3057
diff changeset
213 FSpCreateResFile(&dirspec, 'Pyth', 'pref', 0);
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
214 prefrh = FSpOpenResFile(&dirspec, fsRdWrShPerm);
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
215 if ( prefrh == -1 ) {
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
216 /* This "cannot happen":-) */
3057
24af8eab7b76 Fixed to work on 68K (could be yet another optimizer bug or something)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3054
diff changeset
217 printf("Cannot create preferences file, error %d\n", ResError());
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
218 exit(1);
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
219 }
4523
4d0681f7cf6b Got rid of nfullpath in favor of PyMac_GetFullPath (which was pretty
Jack Jansen <jack.jansen@cwi.nl>
parents: 4442
diff changeset
220 if ( (err=PyMac_init_process_location()) != 0 ) {
4d0681f7cf6b Got rid of nfullpath in favor of PyMac_GetFullPath (which was pretty
Jack Jansen <jack.jansen@cwi.nl>
parents: 4442
diff changeset
221 printf("Cannot get application location, error %d\n", err);
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
222 exit(1);
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
223 }
4523
4d0681f7cf6b Got rid of nfullpath in favor of PyMac_GetFullPath (which was pretty
Jack Jansen <jack.jansen@cwi.nl>
parents: 4442
diff changeset
224 dirspec = PyMac_ApplicationFSSpec;
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
225 dirspec.name[0] = 0;
3057
24af8eab7b76 Fixed to work on 68K (could be yet another optimizer bug or something)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3054
diff changeset
226 if ((err=NewAlias(NULL, &dirspec, &handle)) != 0 ) {
24af8eab7b76 Fixed to work on 68K (could be yet another optimizer bug or something)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3054
diff changeset
227 printf("Cannot make alias to application directory, error %d\n", err);
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
228 exit(1);
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
229 }
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
230 AddResource((Handle)handle, 'alis', PYTHONHOME_ID, "\p");
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
231 UpdateResFile(prefrh);
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
232
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
233 } else {
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
234 UseResFile(prefrh);
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
235 }
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
236 return prefrh;
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
237 }
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
238
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
239 /*
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
240 ** Return the name of the Python directory
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
241 */
6278
2984416a1b2b The preference resource now has a version number
Jack Jansen <jack.jansen@cwi.nl>
parents: 5079
diff changeset
242 char *
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
243 PyMac_GetPythonDir()
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
244 {
4442
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
245 static int diditbefore = 0;
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
246 static char name[256] = {':', '\0'};
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
247 AliasHandle handle;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
248 FSSpec dirspec;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
249 Boolean modified = 0;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
250 short oldrh, prefrh = -1, homerh;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
251
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
252 if ( diditbefore )
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
253 return name;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
254
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
255 oldrh = CurResFile();
4228
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
256
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
257 /* First look for an override in the application file */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
258 UseResFile(PyMac_AppRefNum);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
259 handle = (AliasHandle)Get1Resource('alis', PYTHONHOMEOVERRIDE_ID);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
260 UseResFile(oldrh);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
261 if ( handle != NULL ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
262 homerh = PyMac_AppRefNum;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
263 } else {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
264 /* Try to open preferences file in the preferences folder. */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
265 prefrh = PyMac_OpenPrefFile();
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
266 handle = (AliasHandle)Get1Resource('alis', PYTHONHOME_ID);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
267 if ( handle == NULL ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
268 /* (void)StopAlert(BADPREFFILE_ID, NULL); */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
269 diditbefore=1;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
270 return ":";
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
271 }
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
272 homerh = prefrh;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
273 }
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
274 /* It exists. Resolve it (possibly updating it) */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
275 if ( ResolveAlias(NULL, handle, &dirspec, &modified) != noErr ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
276 (void)StopAlert(BADPREFFILE_ID, NULL);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
277 diditbefore=1;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
278 return ":";
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
279 }
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
280 if ( modified ) {
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
281 ChangedResource((Handle)handle);
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
282 UpdateResFile(homerh);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
283 }
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
284 if ( prefrh != -1 ) CloseResFile(prefrh);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
285 UseResFile(oldrh);
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
286
4523
4d0681f7cf6b Got rid of nfullpath in favor of PyMac_GetFullPath (which was pretty
Jack Jansen <jack.jansen@cwi.nl>
parents: 4442
diff changeset
287 if ( PyMac_GetFullPath(&dirspec, name) == 0 ) {
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
288 strcat(name, ":");
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
289 } else {
3054
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
290 /* If all fails, we return the current directory */
2cb1416010b3 Python will now attempt (again) to create at least a minimal
Jack Jansen <jack.jansen@cwi.nl>
parents: 2984
diff changeset
291 printf("Python home dir exists but I cannot find the pathname!!\n");
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
292 name[0] = 0;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
293 (void)getwd(name);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
294 }
4442
0549e3428d57 - Get preference filename from a resource
Jack Jansen <jack.jansen@cwi.nl>
parents: 4238
diff changeset
295 diditbefore = 1;
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
296 return name;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
297 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
298
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
299 #ifndef USE_BUILTIN_PATH
6278
2984416a1b2b The preference resource now has a version number
Jack Jansen <jack.jansen@cwi.nl>
parents: 5079
diff changeset
300 char *
13547
db963a615bc9 ANSIfication step 2: make sure all needed prototypes are available, and all needed
Jack Jansen <jack.jansen@cwi.nl>
parents: 12446
diff changeset
301 PyMac_GetPythonPath(void)
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
302 {
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
303 short oldrh, prefrh = -1;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
304 char *rv;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
305 int i, newlen;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
306 Str255 pathitem;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
307 int resource_id;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
308 OSErr err;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
309 Handle h;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
310
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
311 oldrh = CurResFile();
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
312 /*
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
313 ** This is a bit tricky. We check here whether the application file
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
314 ** contains an override. This is to forestall us finding another STR# resource
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
315 ** with "our" id and using that for path initialization
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
316 */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
317 UseResFile(PyMac_AppRefNum);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
318 SetResLoad(0);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
319 if ( (h=Get1Resource('STR#', PYTHONPATHOVERRIDE_ID)) ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
320 ReleaseResource(h);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
321 resource_id = PYTHONPATHOVERRIDE_ID;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
322 } else {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
323 resource_id = PYTHONPATH_ID;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
324 }
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
325 SetResLoad(1);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
326 UseResFile(oldrh);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
327
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
328 /* Open the preferences file only if there is no override */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
329 if ( resource_id != PYTHONPATHOVERRIDE_ID )
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
330 prefrh = PyMac_OpenPrefFile();
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
331 /* At this point, we may or may not have the preferences file open, and it
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
332 ** may or may not contain a sys.path STR# resource. We don't care, if it doesn't
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
333 ** exist we use the one from the application (the default).
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
334 ** We put an initial '\n' in front of the path that we don't return to the caller
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
335 */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
336 if( (rv = malloc(2)) == NULL )
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
337 goto out;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
338 strcpy(rv, "\n");
4205
c7994008378d Check that our override pythonpath is actually coming from the
Jack Jansen <jack.jansen@cwi.nl>
parents: 3750
diff changeset
339
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
340 for(i=1; ; i++) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
341 GetIndString(pathitem, resource_id, i);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
342 if( pathitem[0] == 0 )
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
343 break;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
344 if ( pathitem[0] >= 9 && strncmp((char *)pathitem+1, "$(PYTHON)", 9) == 0 ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
345 /* We have to put the directory in place */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
346 char *dir = PyMac_GetPythonDir();
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
347
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
348 newlen = strlen(rv) + strlen(dir) + (pathitem[0]-9) + 2;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
349 if( (rv=realloc(rv, newlen)) == NULL)
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
350 goto out;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
351 strcat(rv, dir);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
352 /* Skip a colon at the beginning of the item */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
353 if ( pathitem[0] > 9 && pathitem[1+9] == ':' ) {
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
354 memcpy(rv+strlen(rv), pathitem+1+10, pathitem[0]-10);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
355 newlen--;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
356 } else {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
357 memcpy(rv+strlen(rv), pathitem+1+9, pathitem[0]-9);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
358 }
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
359 rv[newlen-2] = '\n';
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
360 rv[newlen-1] = 0;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
361 } else if ( pathitem[0] >= 14 && strncmp((char *)pathitem+1, "$(APPLICATION)", 14) == 0 ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
362 /* This is the application itself */
3485
61f19a7b1ff1 Added support for override preferences
Jack Jansen <jack.jansen@cwi.nl>
parents: 3422
diff changeset
363
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
364 if ( (err=PyMac_init_process_location()) != 0 ) {
4523
4d0681f7cf6b Got rid of nfullpath in favor of PyMac_GetFullPath (which was pretty
Jack Jansen <jack.jansen@cwi.nl>
parents: 4442
diff changeset
365 printf("Cannot get application location, error %d\n", err);
3485
61f19a7b1ff1 Added support for override preferences
Jack Jansen <jack.jansen@cwi.nl>
parents: 3422
diff changeset
366 exit(1);
61f19a7b1ff1 Added support for override preferences
Jack Jansen <jack.jansen@cwi.nl>
parents: 3422
diff changeset
367 }
4523
4d0681f7cf6b Got rid of nfullpath in favor of PyMac_GetFullPath (which was pretty
Jack Jansen <jack.jansen@cwi.nl>
parents: 4442
diff changeset
368
4d0681f7cf6b Got rid of nfullpath in favor of PyMac_GetFullPath (which was pretty
Jack Jansen <jack.jansen@cwi.nl>
parents: 4442
diff changeset
369 newlen = strlen(rv) + strlen(PyMac_ApplicationPath) + 2;
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
370 if( (rv=realloc(rv, newlen)) == NULL)
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
371 goto out;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
372 strcpy(rv+strlen(rv), PyMac_ApplicationPath);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
373 rv[newlen-2] = '\n';
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
374 rv[newlen-1] = 0;
3485
61f19a7b1ff1 Added support for override preferences
Jack Jansen <jack.jansen@cwi.nl>
parents: 3422
diff changeset
375
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
376 } else {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
377 /* Use as-is */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
378 newlen = strlen(rv) + (pathitem[0]) + 2;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
379 if( (rv=realloc(rv, newlen)) == NULL)
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
380 goto out;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
381 memcpy(rv+strlen(rv), pathitem+1, pathitem[0]);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
382 rv[newlen-2] = '\n';
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
383 rv[newlen-1] = 0;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
384 }
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
385 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
386 if( strlen(rv) == 1) {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
387 free(rv);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
388 rv = NULL;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
389 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
390 if ( rv ) {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
391 rv[strlen(rv)-1] = 0;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
392 rv++;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
393 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
394 out:
4228
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
395 if ( prefrh != -1) CloseResFile(prefrh);
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
396 UseResFile(oldrh);
2984
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
397 return rv;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
398 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
399 #endif /* !USE_BUILTIN_PATH */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
400
3411
14991c4331df Store default startup options in preference file or
Jack Jansen <jack.jansen@cwi.nl>
parents: 3410
diff changeset
401 void
4238
6c86d9136c09 - Put all options in a struct
Jack Jansen <jack.jansen@cwi.nl>
parents: 4228
diff changeset
402 PyMac_PreferenceOptions(PyMac_PrefRecord *pr)
3411
14991c4331df Store default startup options in preference file or
Jack Jansen <jack.jansen@cwi.nl>
parents: 3410
diff changeset
403 {
4228
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
404 short oldrh, prefrh = -1;
3411
14991c4331df Store default startup options in preference file or
Jack Jansen <jack.jansen@cwi.nl>
parents: 3410
diff changeset
405 Handle handle;
14991c4331df Store default startup options in preference file or
Jack Jansen <jack.jansen@cwi.nl>
parents: 3410
diff changeset
406 int size;
6278
2984416a1b2b The preference resource now has a version number
Jack Jansen <jack.jansen@cwi.nl>
parents: 5079
diff changeset
407 PyMac_PrefRecord *p;
2984416a1b2b The preference resource now has a version number
Jack Jansen <jack.jansen@cwi.nl>
parents: 5079
diff changeset
408 int action;
3411
14991c4331df Store default startup options in preference file or
Jack Jansen <jack.jansen@cwi.nl>
parents: 3410
diff changeset
409
14991c4331df Store default startup options in preference file or
Jack Jansen <jack.jansen@cwi.nl>
parents: 3410
diff changeset
410
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
411 oldrh = CurResFile();
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
412
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
413 /* Attempt to load overrides from application */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
414 UseResFile(PyMac_AppRefNum);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
415 handle = Get1Resource('Popt', PYTHONOPTIONSOVERRIDE_ID);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
416 UseResFile(oldrh);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
417
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
418 /* Otherwise get options from prefs file or any other open resource file */
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
419 if ( handle == NULL ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
420 prefrh = PyMac_OpenPrefFile();
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
421 handle = GetResource('Popt', PYTHONOPTIONS_ID);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
422 }
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
423 if ( handle == NULL ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
424 return;
4228
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
425 }
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
426 HLock(handle);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
427 size = GetHandleSize(handle);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
428 p = (PyMac_PrefRecord *)*handle;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
429 if ( p->version == POPT_VERSION_CURRENT && size == sizeof(PyMac_PrefRecord) ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
430 *pr = *p;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
431 } else {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
432 action = CautionAlert(BADPREFERENCES_ID, NULL);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
433 if ( action == BADPREF_DELETE ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
434 OSErr err;
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
435
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
436 RemoveResource(handle);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
437 if ( (err=ResError()) ) printf("RemoveResource: %d\n", err);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
438 if ( prefrh != -1 ) {
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
439 UpdateResFile(prefrh);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
440 if ( (err=ResError()) ) printf("UpdateResFile: %d\n", err);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
441 }
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
442 } else if ( action == BADPREF_QUIT )
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
443 exit(1);
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
444 }
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
445 HUnlock(handle);
3411
14991c4331df Store default startup options in preference file or
Jack Jansen <jack.jansen@cwi.nl>
parents: 3410
diff changeset
446
4228
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
447 if ( prefrh != -1) CloseResFile(prefrh);
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
448 UseResFile(oldrh);
3411
14991c4331df Store default startup options in preference file or
Jack Jansen <jack.jansen@cwi.nl>
parents: 3410
diff changeset
449 }
4228
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
450
12281
51c0c3b6d919 Started on GUSI2 and threading support.
Jack Jansen <jack.jansen@cwi.nl>
parents: 10072
diff changeset
451 #ifdef USE_GUSI1
4228
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
452 void
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
453 PyMac_SetGUSIOptions()
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
454 {
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
455 Handle h;
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
456 short oldrh, prefrh = -1;
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
457
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
458 oldrh = CurResFile();
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
459
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
460 /* Try override from the application resource fork */
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
461 UseResFile(PyMac_AppRefNum);
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
462 h = Get1Resource('GU\267I', GUSIOPTIONSOVERRIDE_ID);
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
463 UseResFile(oldrh);
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
464
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
465 /* If that didn't work try nonoverride from anywhere */
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
466 if ( h == NULL ) {
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
467 prefrh = PyMac_OpenPrefFile();
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
468 h = GetResource('GU\267I', GUSIOPTIONS_ID);
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
469 }
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
470 if ( h ) GUSILoadConfiguration(h);
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
471 if ( prefrh != -1) CloseResFile(prefrh);
8788
d642e6748d12 Re-indented properly (Just).
Jack Jansen <jack.jansen@cwi.nl>
parents: 8666
diff changeset
472 UseResFile(oldrh);
4228
84444ea3f5f6 - Rationalized override preferences support, by remembering
Jack Jansen <jack.jansen@cwi.nl>
parents: 4205
diff changeset
473 }
12446
e367ad3ea59a Made the GUSI options work again with GUSI 2.
Jack Jansen <jack.jansen@cwi.nl>
parents: 12281
diff changeset
474 #endif /* USE_GUSI1 */