X-Git-Url: https://git.distorted.org.uk/u/mdw/putty/blobdiff_plain/2e96d5041e9e7a241d14305ae3e89637476c4968..02cf40019f8ae19176a73f9220603cc9e28d5224:/mac/mac.c

diff --git a/mac/mac.c b/mac/mac.c
index 0e55933a..cea87fbf 100644
--- a/mac/mac.c
+++ b/mac/mac.c
@@ -1,4 +1,4 @@
-/* $Id: mac.c,v 1.27 2003/01/12 16:11:27 ben Exp $ */
+/* $Id: mac.c,v 1.41 2003/02/01 21:44:05 ben Exp $ */
 /*
  * Copyright (c) 1999 Ben Harris
  * All rights reserved.
@@ -29,6 +29,8 @@
  */
 
 #include <MacTypes.h>
+#include <AEDataModel.h>
+#include <AppleEvents.h>
 #include <Quickdraw.h>
 #include <Fonts.h>
 #include <MacWindows.h>
@@ -65,6 +67,7 @@ QDGlobals qd;
 Session *sesslist;
 
 static int cold = 1;
+static int borednow = FALSE;
 struct mac_gestalts mac_gestalts;
 
 static void mac_startup(void);
@@ -86,7 +89,6 @@ static void mac_adjustcursor(RgnHandle);
 static void mac_adjustmenus(void);
 static void mac_closewindow(WindowPtr);
 static void mac_zoomwindow(WindowPtr, short);
-static void mac_shutdown(void);
 #pragma noreturn (cleanup_exit)
 
 struct mac_windows {
@@ -169,21 +171,8 @@ static void mac_startup(void) {
 	mac_gestalts.uncvattr = (*ti)->tecUnicodeConverterFeatures;
 	DisposeHandle((Handle)ti);
     }
-    /* OpenTransport? */
-    if (Gestalt(gestaltOpenTpt, &mac_gestalts.otptattr) != noErr ||
-	(mac_gestalts.otptattr & gestaltOpenTptTCPPresentMask) == 0 ||
-	ot_init() != noErr)
-	mac_gestalts.otptattr = 0;
-    if (mac_gestalts.otptattr == 0) {
-	/* MacTCP? */
-	if (Gestalt(FOUR_CHAR_CODE('mtcp'), &mac_gestalts.mtcpvers) != noErr)
-	    mac_gestalts.mtcpvers = 0;
-	if (mac_gestalts.mtcpvers > 0) {
-	    if (mactcp_init() != noErr)
-		mac_gestalts.mtcpvers = 0;
-	}
-    } else
-	mac_gestalts.mtcpvers = 0;
+
+    sk_init();
 
     /* We've been tested with the Appearance Manager */
     if (mac_gestalts.apprvers != 0)
@@ -200,8 +189,17 @@ static void mac_startup(void) {
     windows.about = NULL;
     windows.licence = NULL;
 
-    default_protocol = DEFAULT_PROTOCOL;
-    default_port = DEFAULT_PORT;
+    default_protocol = be_default_protocol;
+    /* Find the appropriate default port. */
+    {
+	int i;
+	default_port = 0; /* illegal */
+	for (i = 0; backends[i].backend != NULL; i++)
+	    if (backends[i].protocol == default_protocol) {
+		default_port = backends[i].backend->default_port;
+		break;
+	    }
+    }
     flags = FLAG_INTERACTIVE;
 
     {
@@ -215,7 +213,16 @@ static void mac_startup(void) {
 	    LMSetCurDirStore(dirid);
 	}
     }
-    init_ucs();
+
+    /* Install Apple Event handlers. */
+    AEInstallEventHandler(kCoreEventClass, kAEOpenApplication,
+			  NewAEEventHandlerUPP(&mac_aevt_oapp), 0, FALSE);
+    AEInstallEventHandler(kCoreEventClass, kAEOpenDocuments,
+			  NewAEEventHandlerUPP(&mac_aevt_odoc), 0, FALSE);
+    AEInstallEventHandler(kCoreEventClass, kAEPrintDocuments,
+			  NewAEEventHandlerUPP(&mac_aevt_pdoc), 0, FALSE);
+    AEInstallEventHandler(kCoreEventClass, kAEQuitApplication,
+			  NewAEEventHandlerUPP(&mac_aevt_quit), 0, FALSE);
 }
 
 static void mac_eventloop(void) {
@@ -230,10 +237,9 @@ static void mac_eventloop(void) {
 	mac_adjustcursor(cursrgn);
 	if (gotevent)
 	    mac_event(&event);
-	if (mac_gestalts.mtcpvers != 0)
-	    mactcp_poll();
-	if (mac_gestalts.otptattr != 0)
-	    ot_poll();
+	if (borednow)
+	    cleanup_exit(0);
+	sk_poll();
 	mac_pollterm();
     }
     DisposeRgn(cursrgn);
@@ -296,6 +302,9 @@ static void mac_event(EventRecord *event) {
 	    DIBadMount(pt, event->message);
         }
         break;
+      case kHighLevelEvent:
+	AEProcessAppleEvent(event); /* errors? */
+	break;
     }
 }
 
@@ -477,6 +486,15 @@ static void mac_menucommand(long result) {
           case iClose:
             mac_closewindow(window);
             goto done;
+	  case iSave:
+	    mac_savesession();
+	    goto done;
+	  case iSaveAs:
+	    mac_savesessionas();
+	    goto done;
+	  case iDuplicate:
+	    mac_dupsession();
+	    goto done;
           case iQuit:
             cleanup_exit(0);
             goto done;
@@ -533,18 +551,15 @@ static void mac_closewindow(WindowPtr window) {
 	CloseDeskAcc(((WindowPeek)window)->windowKind);
 	break;
       case wTerminal:
-	/* FIXME: end session and stuff */
+	mac_closeterm(window);
 	break;
       case wAbout:
 	windows.about = NULL;
-	CloseWindow(window);
+	DisposeDialog(window);
 	break;
       case wLicence:
 	windows.licence = NULL;
-	CloseWindow(window);
-	break;
-      default:
-	CloseWindow(window);
+	DisposeWindow(window);
 	break;
     }
 }
@@ -576,10 +591,20 @@ static void mac_adjustmenus(void) {
     EnableItem(menu, iQuit);
 
     switch (mac_windowtype(window)) {
+      case wSettings:
+	DisableItem(menu, iSave); /* XXX enable if modified */
+	EnableItem(menu, iSaveAs);
+	EnableItem(menu, iDuplicate);
+	menu = GetMenuHandle(mEdit);
+	DisableItem(menu, 0);
+	break;
       case wTerminal:
 	mac_adjusttermmenus(window);
 	break;
       default:
+	DisableItem(menu, iSave);
+	DisableItem(menu, iSaveAs);
+	DisableItem(menu, iDuplicate);
 	menu = GetMenuHandle(mEdit);
 	DisableItem(menu, 0);
 	break;
@@ -618,6 +643,20 @@ static void mac_adjustcursor(RgnHandle cursrgn) {
     }
 }
 
+pascal OSErr mac_aevt_quit(const AppleEvent *req, AppleEvent *reply,
+				  long refcon)
+{
+    DescType type;
+    Size size;
+
+    if (AEGetAttributePtr(req, keyMissedKeywordAttr, typeWildCard,
+			  &type, NULL, 0, &size) == noErr)
+	return errAEParamMissed;
+
+    borednow = 1;
+    return noErr;
+}
+
 void cleanup_exit(int status)
 {
 
@@ -702,41 +741,49 @@ void old_keyfile_warning(void)
 
 }
 
-char *platform_default_s(char *name)
+FontSpec platform_default_fontspec(char const *name)
 {
+    FontSpec ret;
     long smfs;
-    Str255 pname;
-    static char cname[256];
 
     if (!strcmp(name, "Font")) {
 	smfs = GetScriptVariable(smSystemScript, smScriptMonoFondSize);
 	if (smfs == 0)
 	    smfs = GetScriptVariable(smRoman, smScriptMonoFondSize);
 	if (smfs != 0) {
-	    GetFontName(HiWord(smfs), pname);
-	    if (pname[0] == 0)
-		return "Monaco";
-	    p2cstrcpy(cname, pname);
-	    return cname;
-	} else
-	    return "Monaco";
+	    GetFontName(HiWord(smfs), ret.name);
+	    if (ret.name[0] == 0)
+		memcpy(ret.name, "\pMonaco", 7);
+	    ret.size = LoWord(smfs);
+	} else {
+	    memcpy(ret.name, "\pMonaco", 7);
+	    ret.size = 9;
+	}
+	ret.face = 0;
+    } else {
+	ret.name[0] = 0;
     }
-    return NULL;
+
+    return ret;
 }
 
-int platform_default_i(char *name, int def)
+Filename platform_default_filename(const char *name)
 {
-    long smfs;
+    Filename ret;
+    if (!strcmp(name, "LogFileName"))
+	FSMakeFSSpec(0, 0, "\pputty.log", &ret.fss);
+    else
+	memset(&ret, 0, sizeof(ret));
+    return ret;
+}
 
-    if (!strcmp(name, "FontHeight")) {
-	smfs = GetScriptVariable(smSystemScript, smScriptMonoFondSize);
-	if (smfs == 0)
-	    smfs = GetScriptVariable(smRoman, smScriptMonoFondSize);
-	if (smfs != 0)
-	    return LoWord(smfs);
-	else
-	    return 9;
-    }
+char *platform_default_s(char const *name)
+{
+    return NULL;
+}
+
+int platform_default_i(char const *name, int def)
+{
 
     /* Non-raw cut and paste of line-drawing chars works badly on the
      * current Unix stub implementation of the Unicode functions.
@@ -754,6 +801,85 @@ void platform_get_x11_auth(char *display, int *proto,
     /* SGT: I have no idea whether Mac X servers need anything here. */
 }
 
+Filename filename_from_str(const char *str)
+{
+    Filename ret;
+    Str255 tmp;
+
+    /* XXX This fails for filenames over 255 characters long. */
+    c2pstrcpy(tmp, str);
+    FSMakeFSSpec(0, 0, tmp, &ret.fss);
+    return ret;
+}
+
+/*
+ * Convert a filename to a string for display purposes.
+ * See pp 2-44--2-46 of IM:Files
+ *
+ * XXX static storage considered harmful
+ */
+const char *filename_to_str(const Filename *fn)
+{
+    CInfoPBRec pb;
+    Str255 dirname;
+    OSErr err;
+    static char *path = NULL;
+    char *newpath;
+
+    if (path != NULL) sfree(path);
+    path = smalloc(fn->fss.name[0]);
+    p2cstrcpy(path, fn->fss.name);
+    pb.dirInfo.ioNamePtr = dirname;
+    pb.dirInfo.ioVRefNum = fn->fss.vRefNum;
+    pb.dirInfo.ioDrParID = fn->fss.parID;
+    pb.dirInfo.ioFDirIndex = -1;
+    do {
+	pb.dirInfo.ioDrDirID = pb.dirInfo.ioDrParID;
+	err = PBGetCatInfoSync(&pb);
+
+	/* XXX Assume not A/UX */
+	newpath = smalloc(strlen(path) + dirname[0] + 2);
+	p2cstrcpy(newpath, dirname);
+	strcat(newpath, ":");
+	strcat(newpath, path);
+	sfree(path);
+	path = newpath;
+    } while (pb.dirInfo.ioDrDirID != fsRtDirID);
+    return path;
+}
+
+int filename_equal(Filename f1, Filename f2)
+{
+
+    return f1.fss.vRefNum == f2.fss.vRefNum &&
+	f1.fss.parID == f2.fss.parID &&
+	f1.fss.name[0] == f2.fss.name[0] &&
+	memcmp(f1.fss.name + 1, f2.fss.name + 1, f1.fss.name[0]) == 0;
+}
+
+int filename_is_null(Filename fn)
+{
+
+    return fn.fss.vRefNum == 0 && fn.fss.parID == 0 && fn.fss.name[0] == 0;
+}
+
+FILE *f_open(Filename fn, char const *mode)
+{
+    short savevol;
+    long savedir;
+    char tmp[256];
+    FILE *ret;
+
+    HGetVol(NULL, &savevol, &savedir);
+    if (HSetVol(NULL, fn.fss.vRefNum, fn.fss.parID) == noErr) {
+	p2cstrcpy(tmp, fn.fss.name);
+	ret = fopen(tmp, mode);
+    } else
+	ret = NULL;
+    HSetVol(NULL, savevol, savedir);
+    return ret;
+}
+
 /*
  * Local Variables:
  * c-file-style: "simon"