e3c5b245 |
1 | /* $Id: macstore.c,v 1.14 2003/02/01 15:44:08 ben Exp $ */ |
d082ac49 |
2 | |
3 | /* |
4 | * macstore.c: Macintosh-specific impementation of the interface |
5 | * defined in storage.h |
6 | */ |
7 | |
8 | #include <MacTypes.h> |
9 | #include <Folders.h> |
10 | #include <Memory.h> |
11 | #include <Resources.h> |
12 | #include <TextUtils.h> |
13 | |
b537dd42 |
14 | #include <stdio.h> |
d082ac49 |
15 | #include <string.h> |
16 | |
17 | #include "putty.h" |
18 | #include "storage.h" |
ce283213 |
19 | #include "mac.h" |
1d4cb74b |
20 | #include "macresid.h" |
d082ac49 |
21 | |
d082ac49 |
22 | |
d082ac49 |
23 | OSErr FSpGetDirID(FSSpec *f, long *idp, Boolean makeit); |
24 | |
25 | /* |
26 | * We store each session as a file in the "PuTTY" sub-directory of the |
27 | * preferences folder. Each (key,value) pair is stored as a resource. |
28 | */ |
29 | |
0c4b7799 |
30 | OSErr get_putty_dir(Boolean makeit, short *pVRefNum, long *pDirID) |
31 | { |
d082ac49 |
32 | OSErr error = noErr; |
33 | short prefVRefNum; |
0c4b7799 |
34 | FSSpec puttydir; |
35 | long prefDirID, puttyDirID; |
d082ac49 |
36 | |
37 | error = FindFolder(kOnSystemDisk, kPreferencesFolderType, makeit, |
38 | &prefVRefNum, &prefDirID); |
39 | if (error != noErr) goto out; |
40 | |
41 | error = FSMakeFSSpec(prefVRefNum, prefDirID, "\pPuTTY", &puttydir); |
42 | if (error != noErr && error != fnfErr) goto out; |
43 | error = FSpGetDirID(&puttydir, &puttyDirID, makeit); |
44 | if (error != noErr) goto out; |
45 | |
0c4b7799 |
46 | *pVRefNum = prefVRefNum; |
47 | *pDirID = puttyDirID; |
48 | |
49 | out: |
50 | return error; |
51 | } |
52 | |
53 | OSErr get_session_dir(Boolean makeit, short *pVRefNum, long *pDirID) { |
54 | OSErr error = noErr; |
55 | short puttyVRefNum; |
56 | FSSpec sessdir; |
57 | long puttyDirID, sessDirID; |
58 | |
59 | error = get_putty_dir(makeit, &puttyVRefNum, &puttyDirID); |
60 | if (error != noErr) goto out; |
61 | error = FSMakeFSSpec(puttyVRefNum, puttyDirID, "\pSaved Sessions", |
d082ac49 |
62 | &sessdir); |
63 | if (error != noErr && error != fnfErr) goto out; |
64 | error = FSpGetDirID(&sessdir, &sessDirID, makeit); |
65 | if (error != noErr) goto out; |
66 | |
0c4b7799 |
67 | *pVRefNum = puttyVRefNum; |
d082ac49 |
68 | *pDirID = sessDirID; |
69 | |
70 | out: |
71 | return error; |
72 | } |
73 | |
74 | OSErr FSpGetDirID(FSSpec *f, long *idp, Boolean makeit) { |
75 | CInfoPBRec pb; |
76 | OSErr error = noErr; |
77 | |
78 | pb.dirInfo.ioNamePtr = f->name; |
79 | pb.dirInfo.ioVRefNum = f->vRefNum; |
80 | pb.dirInfo.ioDrDirID = f->parID; |
81 | pb.dirInfo.ioFDirIndex = 0; |
82 | error = PBGetCatInfoSync(&pb); |
83 | if (error == fnfErr && makeit) |
84 | return FSpDirCreate(f, smSystemScript, idp); |
85 | if (error != noErr) goto out; |
86 | if ((pb.dirInfo.ioFlAttrib & ioDirMask) == 0) { |
87 | error = dirNFErr; |
88 | goto out; |
89 | } |
90 | *idp = pb.dirInfo.ioDrDirID; |
91 | |
92 | out: |
93 | return error; |
94 | } |
95 | |
1d4cb74b |
96 | /* Copy a resource into the current resource file */ |
97 | static OSErr copy_resource(ResType restype, short resid) |
98 | { |
99 | Handle h; |
100 | Str255 resname; |
101 | |
1d4cb74b |
102 | h = GetResource(restype, resid); |
103 | if (h != NULL) { |
104 | GetResInfo(h, &resid, &restype, resname); |
105 | DetachResource(h); |
106 | AddResource(h, restype, resid, resname); |
107 | if (ResError() == noErr) |
108 | WriteResource(h); |
109 | } |
1d4cb74b |
110 | return ResError(); |
111 | } |
112 | |
d082ac49 |
113 | struct write_settings { |
114 | int fd; |
115 | FSSpec tmpfile; |
116 | FSSpec dstfile; |
117 | }; |
118 | |
f5d2d791 |
119 | void *open_settings_w(char const *sessionname) { |
b537dd42 |
120 | short sessVRefNum; |
121 | long sessDirID; |
d082ac49 |
122 | OSErr error; |
123 | Str255 psessionname; |
b537dd42 |
124 | FSSpec dstfile; |
d082ac49 |
125 | |
d082ac49 |
126 | error = get_session_dir(kCreateFolder, &sessVRefNum, &sessDirID); |
b537dd42 |
127 | if (error != noErr) return NULL; |
d082ac49 |
128 | |
129 | c2pstrcpy(psessionname, sessionname); |
b537dd42 |
130 | error = FSMakeFSSpec(sessVRefNum, sessDirID, psessionname, &dstfile); |
d082ac49 |
131 | if (error == fnfErr) { |
b537dd42 |
132 | FSpCreateResFile(&dstfile, PUTTY_CREATOR, SESS_TYPE, smSystemScript); |
133 | if ((error = ResError()) != noErr) return NULL; |
134 | } else if (error != noErr) return NULL; |
135 | |
136 | return open_settings_w_fsp(&dstfile); |
137 | } |
138 | |
139 | /* |
140 | * NB: Destination file must exist. |
141 | */ |
142 | void *open_settings_w_fsp(FSSpec *dstfile) |
143 | { |
144 | short tmpVRefNum; |
145 | long tmpDirID; |
146 | struct write_settings *ws; |
147 | OSErr error; |
148 | Str255 tmpname; |
149 | |
150 | ws = smalloc(sizeof *ws); |
151 | ws->dstfile = *dstfile; |
d082ac49 |
152 | |
153 | /* Create a temporary file to save to first. */ |
b537dd42 |
154 | error = FindFolder(ws->dstfile.vRefNum, kTemporaryFolderType, |
155 | kCreateFolder, &tmpVRefNum, &tmpDirID); |
d082ac49 |
156 | if (error != noErr) goto out; |
b537dd42 |
157 | c2pstrcpy(tmpname, tmpnam(NULL)); |
158 | error = FSMakeFSSpec(tmpVRefNum, tmpDirID, tmpname, &ws->tmpfile); |
d082ac49 |
159 | if (error != noErr && error != fnfErr) goto out; |
160 | if (error == noErr) { |
161 | error = FSpDelete(&ws->tmpfile); |
162 | if (error != noErr) goto out; |
163 | } |
164 | FSpCreateResFile(&ws->tmpfile, PUTTY_CREATOR, SESS_TYPE, smSystemScript); |
165 | if ((error = ResError()) != noErr) goto out; |
166 | |
167 | ws->fd = FSpOpenResFile(&ws->tmpfile, fsWrPerm); |
168 | if (ws->fd == -1) {error = ResError(); goto out;} |
169 | |
1d4cb74b |
170 | /* Set up standard resources. Doesn't matter if these fail. */ |
171 | copy_resource('STR ', -16396); |
172 | copy_resource('TMPL', TMPL_Int); |
173 | |
d082ac49 |
174 | return ws; |
175 | |
176 | out: |
177 | safefree(ws); |
178 | fatalbox("Failed to open session for write (%d)", error); |
179 | } |
180 | |
f5d2d791 |
181 | void write_setting_s(void *handle, char const *key, char const *value) { |
d082ac49 |
182 | int fd = *(int *)handle; |
183 | Handle h; |
184 | int id; |
803efcdf |
185 | OSErr error; |
d082ac49 |
186 | |
187 | UseResFile(fd); |
188 | if (ResError() != noErr) |
189 | fatalbox("Failed to open saved session (%d)", ResError()); |
190 | |
191 | error = PtrToHand(value, &h, strlen(value)); |
192 | if (error != noErr) |
193 | fatalbox("Failed to allocate memory"); |
194 | /* Put the data in a resource. */ |
195 | id = Unique1ID(FOUR_CHAR_CODE('TEXT')); |
196 | if (ResError() != noErr) |
197 | fatalbox("Failed to get ID for resource %s (%d)", key, ResError()); |
198 | addresource(h, FOUR_CHAR_CODE('TEXT'), id, key); |
199 | if (ResError() != noErr) |
200 | fatalbox("Failed to add resource %s (%d)", key, ResError()); |
201 | } |
202 | |
f5d2d791 |
203 | void write_setting_i(void *handle, char const *key, int value) { |
d082ac49 |
204 | int fd = *(int *)handle; |
205 | Handle h; |
206 | int id; |
207 | OSErr error; |
208 | |
209 | UseResFile(fd); |
210 | if (ResError() != noErr) |
211 | fatalbox("Failed to open saved session (%d)", ResError()); |
212 | |
213 | /* XXX assume all systems have the same "int" format */ |
214 | error = PtrToHand(&value, &h, sizeof(int)); |
215 | if (error != noErr) |
216 | fatalbox("Failed to allocate memory (%d)", error); |
217 | |
218 | /* Put the data in a resource. */ |
219 | id = Unique1ID(FOUR_CHAR_CODE('Int ')); |
220 | if (ResError() != noErr) |
221 | fatalbox("Failed to get ID for resource %s (%d)", key, ResError()); |
222 | addresource(h, FOUR_CHAR_CODE('Int '), id, key); |
223 | if (ResError() != noErr) |
224 | fatalbox("Failed to add resource %s (%d)", key, ResError()); |
225 | } |
226 | |
227 | void close_settings_w(void *handle) { |
228 | struct write_settings *ws = handle; |
229 | OSErr error; |
230 | |
231 | CloseResFile(ws->fd); |
232 | if ((error = ResError()) != noErr) |
233 | goto out; |
234 | error = FSpExchangeFiles(&ws->tmpfile, &ws->dstfile); |
235 | if (error != noErr) goto out; |
236 | error = FSpDelete(&ws->tmpfile); |
237 | if (error != noErr) goto out; |
238 | return; |
239 | |
240 | out: |
241 | fatalbox("Close of saved session failed (%d)", error); |
242 | safefree(handle); |
243 | } |
244 | |
f5d2d791 |
245 | void *open_settings_r(char const *sessionname) |
ce283213 |
246 | { |
d082ac49 |
247 | short sessVRefNum; |
248 | long sessDirID; |
249 | FSSpec sessfile; |
250 | OSErr error; |
251 | Str255 psessionname; |
d082ac49 |
252 | |
253 | error = get_session_dir(kDontCreateFolder, &sessVRefNum, &sessDirID); |
254 | |
255 | c2pstrcpy(psessionname, sessionname); |
256 | error = FSMakeFSSpec(sessVRefNum, sessDirID, psessionname, &sessfile); |
257 | if (error != noErr) goto out; |
ce283213 |
258 | return open_settings_r_fsp(&sessfile); |
259 | |
260 | out: |
261 | return NULL; |
262 | } |
263 | |
264 | void *open_settings_r_fsp(FSSpec *sessfile) |
265 | { |
266 | OSErr error; |
267 | int fd; |
268 | int *handle; |
269 | |
270 | fd = FSpOpenResFile(sessfile, fsRdPerm); |
d082ac49 |
271 | if (fd == 0) {error = ResError(); goto out;} |
272 | |
273 | handle = safemalloc(sizeof *handle); |
274 | *handle = fd; |
275 | return handle; |
276 | |
277 | out: |
278 | return NULL; |
279 | } |
280 | |
f5d2d791 |
281 | char *read_setting_s(void *handle, char const *key, char *buffer, int buflen) { |
d082ac49 |
282 | int fd; |
283 | Handle h; |
086efcde |
284 | size_t len; |
d082ac49 |
285 | |
286 | if (handle == NULL) goto out; |
287 | fd = *(int *)handle; |
288 | UseResFile(fd); |
289 | if (ResError() != noErr) goto out; |
290 | h = get1namedresource(FOUR_CHAR_CODE('TEXT'), key); |
291 | if (h == NULL) goto out; |
292 | |
086efcde |
293 | len = GetHandleSize(h); |
294 | if (len + 1 > buflen) goto out; |
295 | memcpy(buffer, *h, len); |
296 | buffer[len] = '\0'; |
297 | |
d082ac49 |
298 | ReleaseResource(h); |
299 | if (ResError() != noErr) goto out; |
300 | return buffer; |
301 | |
302 | out: |
303 | return NULL; |
304 | } |
305 | |
f5d2d791 |
306 | int read_setting_i(void *handle, char const *key, int defvalue) { |
d082ac49 |
307 | int fd; |
308 | Handle h; |
d082ac49 |
309 | int value; |
310 | |
311 | if (handle == NULL) goto out; |
312 | fd = *(int *)handle; |
313 | UseResFile(fd); |
314 | if (ResError() != noErr) goto out; |
315 | h = get1namedresource(FOUR_CHAR_CODE('Int '), key); |
316 | if (h == NULL) goto out; |
317 | value = *(int *)*h; |
318 | ReleaseResource(h); |
319 | if (ResError() != noErr) goto out; |
320 | return value; |
321 | |
322 | out: |
323 | return defvalue; |
324 | } |
325 | |
9a30e26b |
326 | int read_setting_fontspec(void *handle, const char *name, FontSpec *result) |
327 | { |
328 | char *settingname; |
329 | FontSpec ret; |
e3c5b245 |
330 | char tmp[256]; |
9a30e26b |
331 | |
e3c5b245 |
332 | if (!read_setting_s(handle, name, tmp, sizeof(tmp))) |
9a30e26b |
333 | return 0; |
e3c5b245 |
334 | c2pstrcpy(ret.name, tmp); |
335 | settingname = dupcat(name, "Face", NULL); |
336 | ret.face = read_setting_i(handle, settingname, 0); |
9a30e26b |
337 | sfree(settingname); |
9a30e26b |
338 | settingname = dupcat(name, "Height", NULL); |
e3c5b245 |
339 | ret.size = read_setting_i(handle, settingname, 0); |
9a30e26b |
340 | sfree(settingname); |
e3c5b245 |
341 | if (ret.size == 0) return 0; |
9a30e26b |
342 | *result = ret; |
343 | return 1; |
344 | } |
345 | |
346 | void write_setting_fontspec(void *handle, const char *name, FontSpec font) |
347 | { |
348 | char *settingname; |
e3c5b245 |
349 | char tmp[256]; |
9a30e26b |
350 | |
e3c5b245 |
351 | p2cstrcpy(tmp, font.name); |
352 | write_setting_s(handle, name, tmp); |
353 | settingname = dupcat(name, "Face", NULL); |
354 | write_setting_i(handle, settingname, font.face); |
9a30e26b |
355 | sfree(settingname); |
e3c5b245 |
356 | settingname = dupcat(name, "Size", NULL); |
357 | write_setting_i(handle, settingname, font.size); |
9a30e26b |
358 | sfree(settingname); |
359 | } |
360 | |
361 | int read_setting_filename(void *handle, const char *name, Filename *result) |
362 | { |
363 | return !!read_setting_s(handle, name, result->path, sizeof(result->path)); |
364 | } |
365 | |
366 | void write_setting_filename(void *handle, const char *name, Filename result) |
367 | { |
368 | write_setting_s(handle, name, result.path); |
369 | } |
370 | |
d082ac49 |
371 | void close_settings_r(void *handle) { |
372 | int fd; |
373 | |
374 | if (handle == NULL) return; |
375 | fd = *(int *)handle; |
376 | CloseResFile(fd); |
377 | if (ResError() != noErr) |
378 | fatalbox("Close of saved session failed (%d)", ResError()); |
379 | safefree(handle); |
380 | } |
381 | |
f5d2d791 |
382 | void del_settings(char const *sessionname) { |
d082ac49 |
383 | OSErr error; |
384 | FSSpec sessfile; |
385 | short sessVRefNum; |
386 | long sessDirID; |
387 | Str255 psessionname; |
388 | |
389 | error = get_session_dir(kDontCreateFolder, &sessVRefNum, &sessDirID); |
390 | |
391 | c2pstrcpy(psessionname, sessionname); |
392 | error = FSMakeFSSpec(sessVRefNum, sessDirID, psessionname, &sessfile); |
393 | if (error != noErr) goto out; |
394 | |
395 | error = FSpDelete(&sessfile); |
396 | return; |
397 | out: |
398 | fatalbox("Delete session failed (%d)", error); |
399 | } |
400 | |
401 | struct enum_settings_state { |
402 | short vRefNum; |
403 | long dirID; |
404 | int index; |
405 | }; |
406 | |
407 | void *enum_settings_start(void) { |
408 | OSErr error; |
409 | struct enum_settings_state *state; |
410 | |
411 | state = safemalloc(sizeof(*state)); |
412 | error = get_session_dir(kDontCreateFolder, &state->vRefNum, &state->dirID); |
413 | if (error != noErr) { |
414 | safefree(state); |
415 | return NULL; |
416 | } |
417 | state->index = 1; |
418 | return state; |
419 | } |
420 | |
421 | char *enum_settings_next(void *handle, char *buffer, int buflen) { |
422 | struct enum_settings_state *e = handle; |
423 | CInfoPBRec pb; |
424 | OSErr error = noErr; |
425 | Str255 name; |
426 | |
427 | if (e == NULL) return NULL; |
428 | do { |
429 | pb.hFileInfo.ioNamePtr = name; |
430 | pb.hFileInfo.ioVRefNum = e->vRefNum; |
431 | pb.hFileInfo.ioDirID = e->dirID; |
432 | pb.hFileInfo.ioFDirIndex = e->index++; |
433 | error = PBGetCatInfoSync(&pb); |
434 | if (error != noErr) return NULL; |
435 | } while (!((pb.hFileInfo.ioFlAttrib & ioDirMask) == 0 && |
436 | pb.hFileInfo.ioFlFndrInfo.fdCreator == PUTTY_CREATOR && |
437 | pb.hFileInfo.ioFlFndrInfo.fdType == SESS_TYPE && |
438 | name[0] < buflen)); |
439 | |
440 | p2cstrcpy(buffer, name); |
441 | return buffer; |
442 | } |
443 | |
444 | void enum_settings_finish(void *handle) { |
445 | |
446 | safefree(handle); |
447 | } |
448 | |
0c4b7799 |
449 | #define SEED_SIZE 512 |
450 | |
451 | void read_random_seed(noise_consumer_t consumer) |
452 | { |
453 | short puttyVRefNum; |
454 | long puttyDirID; |
455 | OSErr error; |
456 | char buf[SEED_SIZE]; |
457 | short refnum; |
458 | long count = SEED_SIZE; |
459 | |
460 | if (get_putty_dir(kDontCreateFolder, &puttyVRefNum, &puttyDirID) != noErr) |
461 | return; |
462 | if (HOpenDF(puttyVRefNum, puttyDirID, "\pPuTTY Random Seed", fsRdPerm, |
463 | &refnum) != noErr) |
464 | return; |
465 | error = FSRead(refnum, &count, buf); |
466 | if (error != noErr && error != eofErr) |
467 | return; |
468 | (*consumer)(buf, count); |
469 | FSClose(refnum); |
470 | } |
471 | |
604379f1 |
472 | /* |
473 | * We don't bother with the usual FSpExchangeFiles dance here because |
474 | * it doesn't really matter if the old random seed gets lost. |
475 | */ |
0c4b7799 |
476 | void write_random_seed(void *data, int len) |
477 | { |
604379f1 |
478 | short puttyVRefNum; |
479 | long puttyDirID; |
0c4b7799 |
480 | OSErr error; |
604379f1 |
481 | FSSpec dstfile; |
0c4b7799 |
482 | short refnum; |
483 | long count = len; |
484 | |
485 | if (get_putty_dir(kCreateFolder, &puttyVRefNum, &puttyDirID) != noErr) |
486 | return; |
487 | |
488 | error = FSMakeFSSpec(puttyVRefNum, puttyDirID, "\pPuTTY Random Seed", |
489 | &dstfile); |
1d4cb74b |
490 | if (error == fnfErr) { |
491 | /* Set up standard resources */ |
492 | FSpCreateResFile(&dstfile, INTERNAL_CREATOR, SEED_TYPE, smRoman); |
493 | refnum = FSpOpenResFile(&dstfile, fsWrPerm); |
494 | if (ResError() == noErr) { |
495 | copy_resource('STR ', -16397); |
496 | CloseResFile(refnum); |
497 | } |
498 | } else if (error != noErr) return; |
0c4b7799 |
499 | |
604379f1 |
500 | if (FSpOpenDF(&dstfile, fsWrPerm, &refnum) != noErr) return; |
604379f1 |
501 | FSWrite(refnum, &count, data); |
0c4b7799 |
502 | FSClose(refnum); |
1d4cb74b |
503 | |
604379f1 |
504 | return; |
0c4b7799 |
505 | } |
d082ac49 |
506 | |
507 | /* |
508 | * Emacs magic: |
509 | * Local Variables: |
510 | * c-file-style: "simon" |
511 | * End: |
512 | */ |