diff options
Diffstat (limited to 'editors/e93/files')
| -rw-r--r-- | editors/e93/files/patch-channels.c | 20 | ||||
| -rw-r--r-- | editors/e93/files/patch-shell.c | 11 | ||||
| -rw-r--r-- | editors/e93/files/patch-shellcmd.c | 111 |
3 files changed, 142 insertions, 0 deletions
diff --git a/editors/e93/files/patch-channels.c b/editors/e93/files/patch-channels.c new file mode 100644 index 000000000000..9684436394de --- /dev/null +++ b/editors/e93/files/patch-channels.c @@ -0,0 +1,20 @@ +--- ./channels.c.orig Sat May 29 12:01:41 2004 ++++ ./channels.c Wed Dec 20 14:35:21 2006 +@@ -54,7 +54,7 @@ + return(TCL_OK); // nothing for us to do, but this proc must exist + } + +-static int StdoutOutputProc(ClientData clientData,const char *buf,int charsToWrite,int *errorCode) ++static int StdoutOutputProc(ClientData clientData,char *buf,int charsToWrite,int *errorCode) + // Writes the given output on the IO channel. Returns count of how + // many characters were actually written, and an error indication. + { +@@ -76,7 +76,7 @@ + return(charsWritten); + } + +-static int StderrOutputProc(ClientData clientData,const char *buf,int charsToWrite,int *errorCode) ++static int StderrOutputProc(ClientData clientData,char *buf,int charsToWrite,int *errorCode) + // Writes the given output on the IO channel. Returns count of how + // many characters were actually written, and an error indication. + { diff --git a/editors/e93/files/patch-shell.c b/editors/e93/files/patch-shell.c new file mode 100644 index 000000000000..17ac9c84bde3 --- /dev/null +++ b/editors/e93/files/patch-shell.c @@ -0,0 +1,11 @@ +--- ./shell.c.orig Mon May 31 19:37:29 2004 ++++ ./shell.c Wed Dec 20 14:24:36 2006 +@@ -935,7 +935,7 @@ + return(TCL_ERROR); + } + +-static void TraceCheckAbortProc(ClientData theClientData,Tcl_Interp *theInterpreter,int theLevel,char *theCommand,Tcl_CmdProc *theProc,ClientData cmdClientData,int argc,const char *argv[]) ++static void TraceCheckAbortProc(ClientData theClientData,Tcl_Interp *theInterpreter,int theLevel,char *theCommand,Tcl_CmdProc *theProc,ClientData cmdClientData,int argc,char *argv[]) + // This is a small trick on Tcl. We tell it we want to trace, but really, we want + // to check to see if the user is trying to abort the execution of a script. + // So, every time we are called, we check to see if the user is aborting, and diff --git a/editors/e93/files/patch-shellcmd.c b/editors/e93/files/patch-shellcmd.c new file mode 100644 index 000000000000..1d92b1a5aade --- /dev/null +++ b/editors/e93/files/patch-shellcmd.c @@ -0,0 +1,111 @@ +--- ./shellcmd.c.orig Thu Dec 1 16:16:19 2005 ++++ ./shellcmd.c Wed Dec 20 14:34:05 2006 +@@ -199,7 +199,7 @@ + return(false); + } + +-static bool GetUINT32String(Tcl_Interp *localInterpreter,const char *theString,UINT32 *theNumber) ++static bool GetUINT32String(Tcl_Interp *localInterpreter,char *theString,UINT32 *theNumber) + // convert theString to a UINT32 + // return false if the conversion failed, and fill the Tcl result + { +@@ -668,7 +668,7 @@ + { + for(theIndex=1;!fail&&(int)theIndex<objc;theIndex++) + { +- if(Tcl_SplitList(localInterpreter,Tcl_GetStringFromObj(objv[theIndex],NULL),&pathArgc,&pathArgv)==TCL_OK) ++ if(Tcl_SplitList(localInterpreter,Tcl_GetStringFromObj(objv[theIndex],NULL),&pathArgc,(char ***)&pathArgv)==TCL_OK) + { + theMenu=NULL; // start at the root + if(GetEditorMenu(pathArgc,pathArgv,&theMenu)) +@@ -720,7 +720,7 @@ + { + if(GetBoolean(localInterpreter,objv[3],&active)) + { +- if(Tcl_SplitList(localInterpreter,Tcl_GetStringFromObj(objv[1],NULL),&pathArgc,&pathArgv)==TCL_OK) ++ if(Tcl_SplitList(localInterpreter,Tcl_GetStringFromObj(objv[1],NULL),&pathArgc,(char ***)&pathArgv)==TCL_OK) + { + if(CreateEditorMenu(pathArgc,pathArgv,theRelationship,Tcl_GetStringFromObj(objv[4],NULL),Tcl_GetStringFromObj(objv[5],NULL),Tcl_GetStringFromObj(objv[6],NULL),active)) + { +@@ -1223,7 +1223,7 @@ + fail=false; + if(objc==3) + { +- if(Tcl_SplitList(localInterpreter,Tcl_GetStringFromObj(objv[2],NULL),&listArgc,&listArgv)==TCL_OK) ++ if(Tcl_SplitList(localInterpreter,Tcl_GetStringFromObj(objv[2],NULL),&listArgc,(char ***)&listArgv)==TCL_OK) + { + if((selectedElements=(bool *)MNewPtrClr(sizeof(bool)*listArgc))) // get array of "falses" + { +@@ -3696,19 +3696,19 @@ + { + if(ShellBufferNotBusy(localInterpreter,theBuffer)) + { +- if(Tcl_SplitList(localInterpreter,Tcl_GetStringFromObj(objv[2],NULL),&listArgc,&listArgv)==TCL_OK) ++ if(Tcl_SplitList(localInterpreter,Tcl_GetStringFromObj(objv[2],NULL),&listArgc,(char ***)&listArgv)==TCL_OK) + { + EditorStartSelectionChange(theBuffer); + fail=false; + for(i=0;!fail&&i<listArgc;i++) + { +- if(Tcl_SplitList(localInterpreter,listArgv[i],&elementArgc,&elementArgv)==TCL_OK) ++ if(Tcl_SplitList(localInterpreter,listArgv[i],&elementArgc,(char ***)&elementArgv)==TCL_OK) + { + if(elementArgc==2) + { +- if(GetUINT32String(localInterpreter,elementArgv[0],&startPosition)) ++ if(GetUINT32String(localInterpreter,(char *)elementArgv[0],&startPosition)) + { +- if(GetUINT32String(localInterpreter,elementArgv[1],&endPosition)) ++ if(GetUINT32String(localInterpreter,(char *)elementArgv[1],&endPosition)) + { + startPosition=ForcePositionIntoRange(theBuffer,startPosition); + endPosition=ForcePositionIntoRange(theBuffer,endPosition); +@@ -4604,7 +4604,7 @@ + fail; + + fail=false; +- if(Tcl_SplitList(localInterpreter,endExpressionList,&argc,&argv)==TCL_OK) // get list of end expressions ++ if(Tcl_SplitList(localInterpreter,endExpressionList,&argc,(char ***)&argv)==TCL_OK) // get list of end expressions + { + for(i=0;!fail&&i<argc;i++) + { +@@ -4654,11 +4654,11 @@ + SetMappingStartExpressionPiece(theMapping,expressionPiece); + if(ParseEndExpressions(localInterpreter,theMap,theMapping,argv[2])) + { +- if(GetUINT32String(localInterpreter,argv[3],&startStyle)) ++ if(GetUINT32String(localInterpreter,(char *)argv[3],&startStyle)) + { +- if(GetUINT32String(localInterpreter,argv[4],&betweenStyle)) ++ if(GetUINT32String(localInterpreter,(char *)argv[4],&betweenStyle)) + { +- if(GetUINT32String(localInterpreter,argv[5],&endStyle)) ++ if(GetUINT32String(localInterpreter,(char *)argv[5],&endStyle)) + { + SetMappingStyles(theMapping,startStyle,betweenStyle,endStyle); + return(true); +@@ -4704,13 +4704,13 @@ + i,j; + + fail=false; +- if(Tcl_SplitList(localInterpreter,mapContents,&listArgc,&listArgv)==TCL_OK) // make list of command/parameter ++ if(Tcl_SplitList(localInterpreter,mapContents,&listArgc,(char ***)&listArgv)==TCL_OK) // make list of command/parameter + { + for(i=0;(i<listArgc)&&!fail;i+=2) // step over each command, parameter list pair + { + if(MatchToken(listArgv[i],syntaxMapCommands,&syntaxMapToken)) + { +- if(Tcl_SplitList(localInterpreter,listArgv[i+1],&argc,&argv)==TCL_OK) // make parameters into arguments ++ if(Tcl_SplitList(localInterpreter,listArgv[i+1],&argc,(char ***)&argv)==TCL_OK) // make parameters into arguments + { + switch(syntaxMapToken) + { +@@ -4749,7 +4749,7 @@ + { + if((theMapping=LocateSyntaxStyleMapping(theMap,argv[0]))) + { +- if(Tcl_SplitList(localInterpreter,argv[1],&mappinglistArgc,&mappinglistArgv)==TCL_OK) // make parameters into arguments ++ if(Tcl_SplitList(localInterpreter,argv[1],&mappinglistArgc,(char ***)&mappinglistArgv)==TCL_OK) // make parameters into arguments + { + for(j=0;j<mappinglistArgc&&!fail;j++) + { |