cpython-lru_cache-weakref: Mac/Python/macgetpath.c annotate

annotate Mac/Python/macgetpath.c @ 3410:022474ac2451 legacy-trunk

Changed MacOS creator code from PYTH to Pyth

author	Jack Jansen <jack.jansen@cwi.nl>
date	Wed, 21 Feb 1996 15:36:26 +0000
parents	24af8eab7b76
children	14991c4331df

rev	line source
2984 4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1 #include "Python.h"
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	2 #include "osdefs.h"
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	3
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	4 #include "pythonresources.h"
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	5
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	6
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	7 /* 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	8 ** 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	9 **
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	10 ** 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	11 ** (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	12 ** 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	13 ** Preferences file.
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	14 **
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	15 ** 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	16 ** 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	17 */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	18
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	19 #include <Files.h>
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	20 #include <Aliases.h>
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	21 #include <Folders.h>
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	22 #include <Resources.h>
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	23 #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	24 #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	25
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	26 #define PYTHONPATH "\
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	27 :\n\
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	28 :Lib\n\
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	29 :Lib:stdwin\n\
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	30 :Lib:test\n\
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	31 :Lib:mac"
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	32
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	33
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	34 char *
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	35 getpythonpath()
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	36 {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	37 /* 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	38 ** - 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	39 ** resource)
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	40 ** - Add :
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	41 */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	42 static char *pythonpath;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	43 char *curwd;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	44 char p, endp;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	45 int newlen;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	46 extern char *PyMac_GetPythonDir();
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	47 #ifndef USE_BUILTIN_PATH
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	48 extern char *PyMac_GetPythonPath();
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	49 #endif
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	50
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	51 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	52 curwd = PyMac_GetPythonDir();
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	53 #ifndef USE_BUILTIN_PATH
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	54 if ( pythonpath = PyMac_GetPythonPath(curwd) )
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	55 return pythonpath;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	56 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	57 #endif
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	58 p = PYTHONPATH;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	59 endp = p;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	60 pythonpath = malloc(2);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	61 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	62 strcpy(pythonpath, ":");
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	63 while (*endp) {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	64 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	65 if ( endp == NULL )
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	66 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	67 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	68 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	69 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	70 strcat(pythonpath, "\n");
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	71 if ( *p == ':' ) {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	72 p++;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	73 strcat(pythonpath, curwd);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	74 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	75 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	76 } else {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	77 /* 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	78 newlen -= strlen(curwd);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	79 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	80 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	81 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	82 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	83 pythonpath[newlen] = '\0';
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	84 p = endp + 1;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	85 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	86 return pythonpath;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	87 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	88
3054 2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	89 /*
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	90 ** 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	91 */
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	92 short
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	93 PyMac_OpenPrefFile()
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	94 {
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	95 AliasHandle handle;
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	96 FSSpec dirspec;
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	97 short prefrh;
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	98 short prefdirRefNum;
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	99 long prefdirDirID;
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	100 short action;
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	101 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	102
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	103 if ( FindFolder(kOnSystemDisk, 'pref', kDontCreateFolder, &prefdirRefNum,
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	104 &prefdirDirID) != noErr ) {
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	105 /* Something wrong with preferences folder */
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	106 (void)StopAlert(NOPREFDIR_ID, NULL);
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	107 exit(1);
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	108 }
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	109
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	110 (void)FSMakeFSSpec(prefdirRefNum, prefdirDirID, "\pPython Preferences", &dirspec);
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	111 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	112 if ( prefrh < 0 ) {
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	113 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	114 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	115 exit(1);
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	116
3410 022474ac2451 Changed MacOS creator code from PYTH to Pyth Jack Jansen <jack.jansen@cwi.nl> parents: 3057 diff changeset	117 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	118 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	119 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	120 /* 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	121 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	122 exit(1);
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	123 }
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	124 if ( (err=PyMac_process_location(&dirspec)) != 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	125 printf("Cannot get FSSpec for application, 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	126 exit(1);
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	127 }
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	128 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	129 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	130 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	131 exit(1);
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	132 }
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	133 AddResource((Handle)handle, 'alis', PYTHONHOME_ID, "\p");
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	134 UpdateResFile(prefrh);
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	135
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	136 } else {
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	137 UseResFile(prefrh);
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	138 }
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	139 return prefrh;
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	140 }
2984 4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	141
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	142 /*
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	143 ** 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	144 */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	145 char *
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	146 PyMac_GetPythonDir()
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	147 {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	148 static char name[256];
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	149 AliasHandle handle;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	150 FSSpec dirspec;
3054 2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	151 Boolean modified = 0;
2984 4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	152 short oldrh, prefrh;
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 /*
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	155 ** Remember old resource file and try to open preferences file
3054 2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	156 ** in the preferences folder.
2984 4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	157 */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	158 oldrh = CurResFile();
3054 2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	159 prefrh = PyMac_OpenPrefFile();
2984 4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	160 /* So, we've opened our preferences file, we hope. Look for the alias */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	161 handle = (AliasHandle)Get1Resource('alis', PYTHONHOME_ID);
3054 2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	162 if ( handle == NULL ) {
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	163 (void)StopAlert(BADPREFFILE_ID, NULL);
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	164 exit(1);
2984 4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	165 }
3054 2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	166 /* It exists. Resolve it (possibly updating it) */
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	167 if ( ResolveAlias(NULL, handle, &dirspec, &modified) != noErr ) {
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	168 (void)StopAlert(BADPREFFILE_ID, NULL);
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	169 exit(1);
2984 4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	170 }
3054 2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	171 if ( modified ) {
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	172 ChangedResource((Handle)handle);
2984 4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	173 UpdateResFile(prefrh);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	174 }
3054 2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	175 CloseResFile(prefrh);
2984 4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	176 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	177
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	178 if ( nfullpath(&dirspec, name) == 0 ) {
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	179 strcat(name, ":");
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	180 } else {
2cb1416010b3 Python will now attempt (again) to create at least a minimal Jack Jansen <jack.jansen@cwi.nl> parents: 2984 diff changeset	181 /* 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	182 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	183 name[0] = 0;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	184 (void)getwd(name);
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 return name;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	187 }
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 #ifndef USE_BUILTIN_PATH
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	190 char *
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	191 PyMac_GetPythonPath(dir)
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	192 char *dir;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	193 {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	194 FSSpec dirspec;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	195 short oldrh, prefrh = -1;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	196 short prefdirRefNum;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	197 long prefdirDirID;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	198 char *rv;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	199 int i, newlen;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	200 Str255 pathitem;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	201
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	202 /*
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	203 ** Remember old resource file and try to open preferences file
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	204 ** in the preferences folder.
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	205 */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	206 oldrh = CurResFile();
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	207 if ( FindFolder(kOnSystemDisk, 'pref', kDontCreateFolder, &prefdirRefNum,
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	208 &prefdirDirID) == noErr ) {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	209 (void)FSMakeFSSpec(prefdirRefNum, prefdirDirID, "\pPython Preferences", &dirspec);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	210 prefrh = FSpOpenResFile(&dirspec, fsRdWrShPerm);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	211 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	212 /* At this point, we may or may not have the preferences file open, and it
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	213 ** may or may not contain a sys.path STR# resource. We don't care, if it doesn't
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	214 ** exist we use the one from the application (the default).
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	215 ** We put an initial '\n' in front of the path that we don't return to the caller
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	216 */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	217 if( (rv = malloc(2)) == NULL )
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	218 goto out;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	219 strcpy(rv, "\n");
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	220 for(i=1; ; i++) {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	221 GetIndString(pathitem, PYTHONPATH_ID, i);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	222 if( pathitem[0] == 0 )
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	223 break;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	224 if ( pathitem[0] >= 9 && strncmp((char *)pathitem+1, "$(PYTHON)", 9) == 0 ) {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	225 /* We have to put the directory in place */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	226 newlen = strlen(rv) + strlen(dir) + (pathitem[0]-9) + 2;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	227 if( (rv=realloc(rv, newlen)) == NULL)
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	228 goto out;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	229 strcat(rv, dir);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	230 /* Skip a colon at the beginning of the item */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	231 if ( pathitem[0] > 9 && pathitem[1+9] == ':' ) {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	232 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	233 newlen--;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	234 } else {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	235 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	236 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	237 rv[newlen-2] = '\n';
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	238 rv[newlen-1] = 0;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	239 } else {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	240 /* Use as-is */
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	241 newlen = strlen(rv) + (pathitem[0]) + 2;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	242 if( (rv=realloc(rv, newlen)) == NULL)
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	243 goto out;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	244 memcpy(rv+strlen(rv), pathitem+1, pathitem[0]);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	245 rv[newlen-2] = '\n';
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	246 rv[newlen-1] = 0;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	247 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	248 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	249 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	250 free(rv);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	251 rv = NULL;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	252 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	253 if ( rv ) {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	254 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	255 rv++;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	256 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	257 out:
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	258 if ( prefrh ) {
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	259 CloseResFile(prefrh);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	260 UseResFile(oldrh);
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	261 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	262 return rv;
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	263 }
4c1d80953950 macgetpath - sys.path setting code factored out of config.c and Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	264 #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	265

Mercurial > cpython-lru_cache-weakref

annotate Mac/Python/macgetpath.c @ 3410:022474ac2451 legacy-trunk