- if (error != noErr && error != fnfErr) return;
-
- /* Create a temporary file to save to first. */
- error = FindFolder(puttyVRefNum, kTemporaryFolderType, kCreateFolder,
- &tmpVRefNum, &tmpDirID);
- if (error != noErr) return;
- error = FSMakeFSSpec(tmpVRefNum, tmpDirID, "\pPuTTY Random Seed",
- &tmpfile);
- if (error != noErr && error != fnfErr) return;
- if (error == noErr) {
- error = FSpDelete(&tmpfile);
- if (error != noErr) return;
- }
- error = FSpCreate(&tmpfile, PUTTY_CREATOR, SEED_TYPE, smRoman);
- if (error != noErr) return;
-
- if (FSpOpenDF(&tmpfile, fsWrPerm, &refnum) != noErr) goto fail;
-
- if (FSWrite(refnum, &count, data) != noErr) goto fail2;
- if (FSClose(refnum) != noErr) goto fail;
-
- if (FSpExchangeFiles(&tmpfile, &dstfile) != noErr) goto fail;
- if (FSpDelete(&tmpfile) != noErr) return;
+ if (error == fnfErr) {
+ /* Set up standard resources */
+ FSpCreateResFile(&dstfile, INTERNAL_CREATOR, SEED_TYPE, smRoman);
+ refnum = FSpOpenResFile(&dstfile, fsWrPerm);
+ if (ResError() == noErr) {
+ copy_resource('STR ', -16397);
+ CloseResFile(refnum);
+ }
+ } else if (error != noErr) return;
+
+ if (FSpOpenDF(&dstfile, fsWrPerm, &refnum) != noErr) return;
+ FSWrite(refnum, &count, data);
+ FSClose(refnum);