+
+ if (mac_gestalts.navsvers > 0) {
+ NavReplyRecord navr;
+ NavDialogOptions navopts;
+ NavTypeListHandle navtypes;
+ AEDesc defaultloc = { 'null', NULL };
+ AEDesc *navdefault = NULL;
+ short vol;
+ long dirid;
+ FSSpec fss;
+
+ if (NavGetDefaultDialogOptions(&navopts) != noErr) return;
+ /* XXX should we create sessions dir? */
+ if (get_session_dir(FALSE, &vol, &dirid) == noErr &&
+ FSMakeFSSpec(vol, dirid, NULL, &fss) == noErr &&
+ AECreateDesc(typeFSS, &fss, sizeof(fss), &defaultloc) == noErr)
+ navdefault = &defaultloc;
+ /* Can't meaningfully preview a saved session yet */
+ navopts.dialogOptionFlags &= ~kNavAllowPreviews;
+ navtypes = (NavTypeListHandle)GetResource('open', open_pTTY);
+ if (NavGetFile(navdefault, &navr, &navopts, NULL, NULL, NULL, navtypes,
+ NULL) == noErr && navr.validRecord)
+ mac_openlist(navr.selection);
+ NavDisposeReply(&navr);
+ if (navtypes != NULL)
+ ReleaseResource((Handle)navtypes);
+ }
+#if !TARGET_API_MAC_CARBON /* XXX Navigation Services */
+ else {
+ StandardFileReply sfr;
+ static const OSType sftypes[] = { 'Sess', 0, 0, 0 };
+
+ StandardGetFile(NULL, 1, sftypes, &sfr);
+ if (!sfr.sfGood) return;
+
+ mac_opensessionfrom(&sfr.sfFile);
+ /* XXX handle error */
+ }
+#endif
+}
+
+void mac_savesession(void)
+{
+ Session *s = mac_windowsession(FrontWindow());
+ void *sesshandle;
+
+ assert(s->hasfile);
+ sesshandle = open_settings_w_fsp(&s->savefile);
+ if (sesshandle == NULL) return; /* XXX report error */
+ save_open_settings(sesshandle, TRUE, &s->cfg);
+ close_settings_w(sesshandle);
+}
+
+void mac_savesessionas(void)
+{
+#if !TARGET_API_MAC_CARBON /* XXX Navigation Services */
+ Session *s = mac_windowsession(FrontWindow());
+ StandardFileReply sfr;
+ void *sesshandle;
+
+ StandardPutFile("\pSave session as:",
+ s->hasfile ? s->savefile.name : "\puntitled", &sfr);
+ if (!sfr.sfGood) return;
+
+ if (!sfr.sfReplacing) {
+ FSpCreateResFile(&sfr.sfFile, PUTTY_CREATOR, SESS_TYPE, sfr.sfScript);
+ if (ResError() != noErr) return; /* XXX report error */
+ }
+ sesshandle = open_settings_w_fsp(&sfr.sfFile);
+ if (sesshandle == NULL) return; /* XXX report error */
+ save_open_settings(sesshandle, TRUE, &s->cfg);
+ close_settings_w(sesshandle);
+ s->hasfile = TRUE;
+ s->savefile = sfr.sfFile;
+#endif
+}
+
+pascal OSErr mac_aevt_oapp(const AppleEvent *req, AppleEvent *reply,
+ long refcon)
+{
+ DescType type;
+ Size size;
+
+ if (AEGetAttributePtr(req, keyMissedKeywordAttr, typeWildCard,
+ &type, NULL, 0, &size) == noErr)
+ return errAEParamMissed;
+
+ /* XXX we should do something here. */
+ return noErr;
+}
+
+pascal OSErr mac_aevt_odoc(const AppleEvent *req, AppleEvent *reply,
+ long refcon)
+{
+ DescType type;
+ Size size;
+ AEDescList docs = { typeNull, NULL };
+ OSErr err;
+
+ err = AEGetParamDesc(req, keyDirectObject, typeAEList, &docs);
+ if (err != noErr) goto out;
+
+ if (AEGetAttributePtr(req, keyMissedKeywordAttr, typeWildCard,
+ &type, NULL, 0, &size) == noErr) {
+ err = errAEParamMissed;
+ goto out;
+ }
+
+ err = mac_openlist(docs);
+
+ out:
+ AEDisposeDesc(&docs);
+ return err;
+}
+
+pascal OSErr mac_aevt_pdoc(const AppleEvent *req, AppleEvent *reply,
+ long refcon)
+{
+ DescType type;
+ Size size;
+
+ if (AEGetAttributePtr(req, keyMissedKeywordAttr, typeWildCard,
+ &type, NULL, 0, &size) == noErr)
+ return errAEParamMissed;
+
+ /* We can't meaningfully do anything here. */
+ return errAEEventNotHandled;