1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
|
/*
* New xlisp_path code by Dominic Mazzoni
*
* There is now a function provided to set the xlisp_path.
* This is particularly useful for external programs
* (e.g. Audacity, or a Nyquist GUI) that have their own
* mechanism of setting/finding the path. If xlisp_path
* is NULL, the old platform-specific methods are still
* used.
*/
/* CHANGE LOG
*
* 24-dec-05 RBD
* Made ';' a valid path separator for every system (to work
* around a windows installer limitation)
*
* 22-jul-07 RBD
* Added get_user_id()
*
* 9-jan-08 RBD
* Added find-in-xlisp-path as XLISP primitive
*/
#include <string.h>
#include "switches.h"
#include "xlisp.h"
static char *g_xlisp_path = NULL;
void set_xlisp_path(const char *p)
{
if (g_xlisp_path) {
free(g_xlisp_path);
g_xlisp_path = NULL;
}
if (p) {
g_xlisp_path = malloc(strlen(p)+1);
strcpy(g_xlisp_path, p);
}
}
#ifdef UNIX
const char *unix_return_xlisp_path()
{
char *paths = getenv("XLISPPATH");
if (!paths || !*paths) {
char msg[512];
sprintf(msg, "\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n",
"Warning: XLISP failed to find XLISPPATH in the environment.",
"If you are using Nyquist, probably you should cd to the",
"nyquist directory and type:",
" setenv XLISPPATH `pwd`/runtime:`pwd`/lib",
"or set XLISPPATH in your .login or .cshrc file.",
"If you use the bash shell, try:",
" XLISPPATH=`pwd`/runtime:`pwd`/lib; export XLISPPATH");
errputstr(msg);
}
return paths;
}
#endif
#ifdef WINDOWS
#include "winfun.h"
const char *windows_return_xlisp_path()
{
#define paths_max 1024
static char paths[paths_max];
get_xlisp_path(paths, paths_max);
/* make sure we got paths, and the list is not empty */
if (!paths[0]) {
sprintf(paths, "\n%s\n%s\n%s\n",
"Warning: XLISP failed to find XLISPPATH in the Registry.",
"You should follow the installation instructions. Enter an",
"empty string if you really want no search path.");
errputstr(paths);
}
return paths;
}
#endif
#ifdef MACINTOSH
const char *mac_return_xlisp_path()
{
#define paths_max 1024
static char paths[paths_max];
int prefs_found = false;
get_xlisp_path(paths, paths_max, &prefs_found);
if (!paths[0]) {
if (prefs_found) {
sprintf(paths, "\n%s\n%s\n%s\n",
"Warning: XLISP failed to find XLISPPATH in XLisp Preferences.",
"You should probably delete XLisp Preferences and let XLisp",
"create a new one for you.");
}
else {
sprintf(paths, "\n%s\n%s\n%s\n%s\n%s\n",
"Warning: XLISP failed to find XLisp Preferences.",
"You should manually locate and load the file runtime:init.lsp",
"Nyquist will create an XLisp Preferences file to automatically",
"find the file next time. You may edit XLisp Preferences to add",
"additional search paths, using a comma as separator.");
}
errputstr(paths);
}
return paths;
}
const char *get_user_id()
{
// not implemented for MACINTOSH (OS 9), just use "nyquist"
return "nyquist";
}
#endif
const char *return_xlisp_path()
{
if (g_xlisp_path)
return g_xlisp_path;
#ifdef WINDOWS
return windows_return_xlisp_path();
#endif
#ifdef MACINTOSH
return mac_return_xlisp_path();
#endif
#ifdef UNIX
return unix_return_xlisp_path();
#endif
}
char *g_xlptemp = NULL;
// find_in_xlisp_path -- find fname or fname.lsp by searching XLISP_PATH
//
// NOTE: this module owns the string. The string is valid
// until the next call to find_in_xlisp_path()
//
const char *find_in_xlisp_path(const char *fname)
{
const char *paths = return_xlisp_path();
if (!paths)
return NULL;
while (paths && *paths) {
FILE *fp;
const char *start;
int len;
/* skip over separator */
while (*paths == os_sepchar || *paths == ';') paths++;
/* find next directory */
start = paths;
while (*paths && (*paths != os_sepchar && *paths != ';'))
paths++;
if (g_xlptemp) {
free(g_xlptemp);
g_xlptemp = NULL;
}
len = paths - start;
g_xlptemp = malloc(len + strlen(fname) + 10);
memcpy(g_xlptemp, start, len);
if (len == 0)
continue;
/* add "/" if needed */
if (g_xlptemp[len-1] != os_pathchar)
g_xlptemp[len++] = os_pathchar;
/* append the file name */
memcpy(&g_xlptemp[len], fname, strlen(fname));
len += strlen(fname);
g_xlptemp[len] = 0;
/* printf("Attempting to open %s, start is %s\n", g_xlptemp, start); */
fp = osaopen(g_xlptemp, "r");
if (!fp) {
/* try appending the .lsp extension */
if (needsextension(g_xlptemp)) {
strcat(g_xlptemp, ".lsp");
fp = osaopen(g_xlptemp, "r");
if (!fp) {
g_xlptemp[strlen(g_xlptemp) - 4] = 0; /* remove .lsp */
}
}
}
if (fp) {
fclose(fp);
#ifdef MACINTOSH
/* We found the file ok, call setup_preferences to create
* XLisp Preferences file (this only happens if previous
* attempt to find the file failed
*/
setup_preferences(g_xlptemp);
#endif
return g_xlptemp;
}
}
/* It wasn't found */
return NULL;
}
/* xfind_in_xlisp_path -- search XLISPPATH for file, return full path */
LVAL xfind_in_xlisp_path()
{
LVAL string = xlgastring();
const char *path = (const char *) getstring(string);
xllastarg();
path = find_in_xlisp_path(path);
return (path ? cvstring(path) : NULL);
}
|
