mirror of
https://git.tartarus.org/simon/putty.git
synced 2025-07-02 03:52:49 -05:00
Second work-in-progress MacTCP commit. We can now open a connection, but
not transfer any data across it. [originally from svn r2456]
This commit is contained in:
22
mac/mac.c
22
mac/mac.c
@ -1,4 +1,4 @@
|
||||
/* $Id: mac.c,v 1.17 2003/01/04 12:45:11 ben Exp $ */
|
||||
/* $Id: mac.c,v 1.18 2003/01/05 10:52:56 ben Exp $ */
|
||||
/*
|
||||
* Copyright (c) 1999 Ben Harris
|
||||
* All rights reserved.
|
||||
@ -167,6 +167,8 @@ static void mac_startup(void) {
|
||||
DisposeHandle((Handle)ti);
|
||||
}
|
||||
|
||||
mactcp_init();
|
||||
|
||||
/* We've been tested with the Appearance Manager */
|
||||
if (mac_gestalts.apprvers != 0)
|
||||
RegisterAppearanceClient();
|
||||
@ -182,6 +184,9 @@ static void mac_startup(void) {
|
||||
windows.about = NULL;
|
||||
windows.licence = NULL;
|
||||
|
||||
default_protocol = DEFAULT_PROTOCOL;
|
||||
default_port = DEFAULT_PORT;
|
||||
|
||||
{
|
||||
short vol;
|
||||
long dirid;
|
||||
@ -597,6 +602,7 @@ static void mac_shutdown(void) {
|
||||
if (mac_gestalts.encvvers != 0)
|
||||
TerminateUnicodeConverter();
|
||||
#endif
|
||||
mactcp_shutdown();
|
||||
exit(0);
|
||||
}
|
||||
|
||||
@ -626,6 +632,20 @@ void modalfatalbox(char *fmt, ...) {
|
||||
exit(1);
|
||||
}
|
||||
|
||||
/* This should only kill the current session, not the whole application. */
|
||||
void connection_fatal(void *fontend, char *fmt, ...) {
|
||||
va_list ap;
|
||||
Str255 stuff;
|
||||
|
||||
va_start(ap, fmt);
|
||||
/* We'd like stuff to be a Pascal string */
|
||||
stuff[0] = vsprintf((char *)(&stuff[1]), fmt, ap);
|
||||
va_end(ap);
|
||||
ParamText(stuff, NULL, NULL, NULL);
|
||||
StopAlert(128, NULL);
|
||||
exit(1);
|
||||
}
|
||||
|
||||
/*
|
||||
* Local Variables:
|
||||
* c-file-style: "simon"
|
||||
|
Reference in New Issue
Block a user