Change 14069: Change AddEmulationProc to MacPerl_AddEmulationProc

Change 14069 by pudge@pudge-mobile on 2002/01/04 20:28:20

	Change AddEmulationProc to MacPerl_AddEmulationProc
	from <[email protected]>;
	don't crash on quit for 68K (MacPerl Bug #490013)

Affected files ...

.... //depot/maint-5.6/macperl/macos/macish.c#10 edit
.... //depot/maint-5.6/macperl/macos/macperl/MPConsole.cp#5 edit

Differences ...

==== //depot/maint-5.6/macperl/macos/macish.c#10 (text) ====
Index: perl/macos/macish.c
--- perl/macos/macish.c.~1~	Fri Jan  4 13:45:05 2002
+++ perl/macos/macish.c	Fri Jan  4 13:45:05 2002
@@ -497,7 +497,7 @@
 static WEPDescPtr	 	gEmulators[128];
 static Boolean			gHasEmulators = false;
 
-void AddWriteEmulationProc(const char * command, MacPerl_EmulationProc proc)
+void MacPerl_AddWriteEmulationProc(const char * command, MacPerl_EmulationProc proc)
 {
 	WEPDescPtr	wepdesc 	= (WEPDescPtr) malloc(sizeof(WEPDesc));
 	
@@ -560,10 +560,10 @@
 	
 	if (!gHasEmulators) {
 		gHasEmulators = true;
-		AddWriteEmulationProc("pwd", (MacPerl_EmulationProc)EmulatePwd);
-		AddWriteEmulationProc("directory", (MacPerl_EmulationProc)EmulatePwd);
-		AddWriteEmulationProc("Directory", (MacPerl_EmulationProc)EmulatePwd);
-		AddWriteEmulationProc("hostname", (MacPerl_EmulationProc)EmulateHostname);
+		MacPerl_AddWriteEmulationProc("pwd", (MacPerl_EmulationProc)EmulatePwd);
+		MacPerl_AddWriteEmulationProc("directory", (MacPerl_EmulationProc)EmulatePwd);
+		MacPerl_AddWriteEmulationProc("Directory", (MacPerl_EmulationProc)EmulatePwd);
+		MacPerl_AddWriteEmulationProc("hostname", (MacPerl_EmulationProc)EmulateHostname);
 	}
 	
 	if (!strcmp(command, "-"))

==== //depot/maint-5.6/macperl/macos/macperl/MPConsole.cp#5 (text) ====
Index: perl/macos/macperl/MPConsole.cp
--- perl/macos/macperl/MPConsole.cp.~1~	Fri Jan  4 13:45:05 2002
+++ perl/macos/macperl/MPConsole.cp	Fri Jan  4 13:45:05 2002
@@ -5,6 +5,12 @@
 Language	:	MPW C/C++
 
 $Log: MPConsole.cp,v $
+Revision 1.9  2001/12/19 21:58:12  pudge
+Make -sane, -raw, etc. work in console.
+
+Revision 1.8  2001/12/17 06:23:13  neeri
+Fix crashes on 68K exit (MacPerl Bug #490013)
+
 Revision 1.7  2001/11/09 06:48:57  neeri
 Fix Ctrl-D handling (MacPerl Bug #471436)
 
@@ -664,7 +670,7 @@
 
 /********************* Raw I/O **********************/
 
-static int EmulateStty(FILE * tempFile, char * command)
+static int EmulateStty(void * tempFile, char * command)
 {
 	Boolean	setRaw	=	false;
 	Boolean	setEcho	=	false;
@@ -712,9 +718,7 @@
 	
 	GUSISetHook(GUSI_SpinHook, (GUSIHook)MPConsoleSpin);
 	
-#if NOT_YET
-	AddWriteEmulationProc("stty", EmulateStty);
-#endif
+	MacPerl_AddWriteEmulationProc("stty", (MacPerl_EmulationProc)EmulateStty);
 }
 
 void ResetConsole()
@@ -726,3 +730,8 @@
 	gWantConsoleInput	= false;
 	ShowWindowStatus();
 }
+
+/* Dummy implementations for SIOUX */
+extern "C" void InstallConsole() {}
+extern "C" void ReadCharsFromConsole() {}
+extern "C" void WriteCharsToConsole() {}
End of Patch.