sl@0: // Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies).
sl@0: // All rights reserved.
sl@0: // This component and the accompanying materials are made available
sl@0: // under the terms of "Eclipse Public License v1.0"
sl@0: // which accompanies this distribution, and is available
sl@0: // at the URL "http://www.eclipse.org/legal/epl-v10.html".
sl@0: //
sl@0: // Initial Contributors:
sl@0: // Nokia Corporation - initial contribution.
sl@0: //
sl@0: // Contributors:
sl@0: //
sl@0: // Description:
sl@0: // Provides a Symbian version of the main program and Tcl_AppInit
sl@0: // procedure for Tcl applications (without Tk).
sl@0: // 
sl@0: //
sl@0: 
sl@0: #include "tcl.h"
sl@0: #include "tclPort.h"
sl@0: #include "tclInt.h"
sl@0: #include "tclIntPlatDecls.h"
sl@0: #include <e32test.h>
sl@0: 
sl@0: #ifdef __WINSCW__ 
sl@0: #include <e32std.h>     //RPointerArray
sl@0: 
sl@0: #include <pls.h> // For emulator WSD API 
sl@0: const TUid KTCLDLLUid3 = {0}; // Must change
sl@0: const TInt KMaxDataKey = 10;
sl@0: #endif // __WINSCW__
sl@0: 
sl@0: /*
sl@0:  * The following macros convert between TclFile's and fd's.  The conversion
sl@0:  * simple involves shifting fd's up by one to ensure that no valid fd is ever
sl@0:  * the same as NULL.  Note that this code is duplicated from tclUnixPipe.c
sl@0:  */
sl@0: 
sl@0: #define MakeFile(fd) ((TclFile)((fd)+1))
sl@0: #define GetFd(file) (((int)file)-1)
sl@0: 
sl@0: #ifdef __WINSCW__ 
sl@0: //The following code will run only on the emulator
sl@0: 
sl@0: //Put the global count into a structure
sl@0: struct DLLData
sl@0: {
sl@0: 	// TCL globals
sl@0: 	char* tclExecutableName;
sl@0: 	char* tclNativeExecutableName;
sl@0: 
sl@0: 	void* dataKey[KMaxDataKey];
sl@0: 	int inFinalize;
sl@0: 	int subsystemsInitialized;
sl@0: 	void* allocHead;	
sl@0: 	void* defaultEncoding;
sl@0: 	void* systemEncoding;
sl@0: 	Tcl_HashTable encodingTable;	
sl@0: 	SyncObjRecord keyRecord;
sl@0: 	Tcl_HashTable typeTable;
sl@0: 	int typeTableInitialized;
sl@0: 	int encodingsInitialized;	
sl@0: 	char* tclDefaultEncodingDir;
sl@0: 	char* tclLibraryPathStr;	
sl@0: 	int opTableInitialized;
sl@0: 	Tcl_HashTable opHashTable;
sl@0: 	Tcl_HashTable auxDataTypeTable;
sl@0: 	int auxDataTypeTableInitialized;
sl@0: 	void* cwdPathPtr;
sl@0: 	int cwdPathEpoch;
sl@0: 	void* refArray;
sl@0: 	int spaceAvl;
sl@0: 	int inUse;
sl@0: 	TclPlatformType tclPlatform;	
sl@0: 	void* firstNotifierPtr;
sl@0: 	
sl@0: 	// Symbian globals
sl@0: 	char fileNames[8][L_tmpnam + 9];
sl@0: };
sl@0: 
sl@0: //Initialization function
sl@0: TInt InitializeGlobals(DLLData* aData)
sl@0: {
sl@0:    memset(aData, 0, sizeof(DLLData));
sl@0:    aData->tclPlatform = TCL_PLATFORM_UNIX;
sl@0:    return KErrNone;
sl@0: }
sl@0: 
sl@0: //Define a way to access the structure
sl@0: //On the first call to this function, memory will be allocated with the specified
sl@0: //Uid as an identifier and the Initialization function will be called
sl@0: //Subsequent calls to this function return the allocated memory
sl@0: struct DLLData* GetGlobals()
sl@0: {
sl@0:    return Pls<DLLData>(KTCLDLLUid3, InitializeGlobals);
sl@0: }
sl@0: 
sl@0: //Clean up memory allocated for PLS used for storing globals
sl@0: int CleanupGlobals(void)
sl@0: {
sl@0: 	return FreePls(GetGlobals());
sl@0: }
sl@0: 
sl@0: void* get_gFileName(int index)
sl@0: {
sl@0:    return &(GetGlobals()->fileNames[index]);
sl@0: }
sl@0: 
sl@0: char** get_tclExecutableName()
sl@0: {
sl@0:    return &(GetGlobals()->tclExecutableName);
sl@0: }
sl@0: 
sl@0: char** get_tclNativeExecutableName()
sl@0: {
sl@0:    return &(GetGlobals()->tclNativeExecutableName);
sl@0: }
sl@0: 
sl@0: void** get_dataKey(int index)
sl@0: {
sl@0:    return &(GetGlobals()->dataKey[index]);
sl@0: }
sl@0: 
sl@0: void* get_inFinalize()
sl@0: {
sl@0:    return &(GetGlobals()->inFinalize);
sl@0: }
sl@0: 
sl@0: void* get_subsystemsInitialized()
sl@0: {
sl@0:    return &(GetGlobals()->subsystemsInitialized);
sl@0: }
sl@0: 
sl@0: void** get_allocHead()
sl@0: {
sl@0:    return &(GetGlobals()->allocHead);
sl@0: }
sl@0: 
sl@0: void** get_defaultEncoding()
sl@0: {
sl@0:    return &(GetGlobals()->defaultEncoding);
sl@0: }
sl@0: 
sl@0: void** get_systemEncoding()
sl@0: {
sl@0:    return &(GetGlobals()->systemEncoding);
sl@0: }
sl@0: 
sl@0: void* get_encodingTable()
sl@0: {
sl@0:    return &(GetGlobals()->encodingTable);
sl@0: }
sl@0: 
sl@0: void* get_keyRecord()
sl@0: {
sl@0:    return &(GetGlobals()->keyRecord);
sl@0: }
sl@0: 
sl@0: void* get_typeTable()
sl@0: {
sl@0:    return &(GetGlobals()->typeTable);
sl@0: }
sl@0: 
sl@0: void* get_typeTableInitialized()
sl@0: {
sl@0:    return &(GetGlobals()->typeTableInitialized);
sl@0: }
sl@0: 
sl@0: void* get_encodingsInitialized()
sl@0: {
sl@0:    return &(GetGlobals()->encodingsInitialized);
sl@0: }
sl@0: 
sl@0: char** get_tclDefaultEncodingDir()
sl@0: {
sl@0:    return &(GetGlobals()->tclDefaultEncodingDir);
sl@0: }
sl@0: 
sl@0: char** get_tclLibraryPathStr()
sl@0: {
sl@0:    return &(GetGlobals()->tclLibraryPathStr);
sl@0: }
sl@0: 
sl@0: void* get_opTableInitialized()
sl@0: {
sl@0:    return &(GetGlobals()->opTableInitialized);
sl@0: }
sl@0: 
sl@0: void* get_opHashTable()
sl@0: {
sl@0:    return &(GetGlobals()->opHashTable);
sl@0: }
sl@0: 
sl@0: void* get_auxDataTypeTableInitialized()
sl@0: {
sl@0:    return &(GetGlobals()->auxDataTypeTableInitialized);
sl@0: }
sl@0: 
sl@0: void* get_auxDataTypeTable()
sl@0: {
sl@0:    return &(GetGlobals()->auxDataTypeTable);
sl@0: }
sl@0: 
sl@0: void** get_cwdPathPtr()
sl@0: {
sl@0:    return &(GetGlobals()->cwdPathPtr);
sl@0: }
sl@0: 
sl@0: void* get_cwdPathEpoch()
sl@0: {
sl@0:    return &(GetGlobals()->cwdPathEpoch);
sl@0: }
sl@0: 
sl@0: void** get_refArray()
sl@0: {
sl@0:    return &(GetGlobals()->refArray);
sl@0: }
sl@0: 
sl@0: void* get_spaceAvl()
sl@0: {
sl@0:    return &(GetGlobals()->spaceAvl);
sl@0: }
sl@0: 
sl@0: void* get_inUse()
sl@0: {
sl@0:    return &(GetGlobals()->inUse);
sl@0: }
sl@0: 
sl@0: /*
sl@0:  *----------------------------------------------------------------------
sl@0:  *
sl@0:  * TclPlatformExit --
sl@0:  *
sl@0:  *	This procedure implements the Symbian specific exit routine.
sl@0:  *  Modelled after Macintosh version. 
sl@0:  *
sl@0:  * Results:
sl@0:  *	None.
sl@0:  *
sl@0:  * Side effects:
sl@0:  *	We exit the process.
sl@0:  *
sl@0:  *----------------------------------------------------------------------
sl@0:  */
sl@0: 
sl@0: void
sl@0: TclpExit(
sl@0:     int status)		/* Ignored. */
sl@0: {
sl@0:     // Free the PLS
sl@0:     CleanupGlobals();
sl@0: 
sl@0:     exit(status);
sl@0: }
sl@0: 
sl@0: void* get_tclPlatform()
sl@0: {
sl@0:    return &(GetGlobals()->tclPlatform);
sl@0: }
sl@0: 
sl@0: void** get_firstNotifierPtr()
sl@0: {
sl@0:    return &(GetGlobals()->firstNotifierPtr);
sl@0: }
sl@0: 
sl@0: #else
sl@0: //Target device code
sl@0: char tmpFileName[L_tmpnam + 9];
sl@0: char fifoFileName[L_tmpnam + 9];
sl@0: char inFileName[L_tmpnam + 9];
sl@0: char outFileName[L_tmpnam + 9];
sl@0: char errFileName[L_tmpnam + 9];
sl@0: char inFileName1[L_tmpnam + 9];
sl@0: char outFileName1[L_tmpnam + 9];
sl@0: char errFileName1[L_tmpnam + 9];	
sl@0: 
sl@0: #endif
sl@0: 
sl@0: #include "tclSymbianGlobals.h"
sl@0: 
sl@0: #ifdef __cplusplus
sl@0: extern "C" {
sl@0: #endif
sl@0: 
sl@0: #define ADDPARAMTOCHILD 4
sl@0: 
sl@0: EXPORT_C void ChildProcessCleanup(int isChildProcess, int argc, char **argv)
sl@0: {
sl@0: 	RDebug::Print(_L("###TclSqlite3: Child process cleanup - begin. argc = %d.\r\n"), argc);
sl@0: 	TBuf<256> buf;
sl@0: 	for(TInt i=0;i<argc;++i)
sl@0: 		{
sl@0: 		TPtrC8 p((const unsigned char*)(argv[i]));
sl@0: 		buf.Copy(p);
sl@0: 	    RDebug::Print(_L("   ### arg %d, value \"%S\"\r\n"), i, &buf);
sl@0: 		}
sl@0: 		
sl@0:     // add fifo close & unlink
sl@0:     if (isChildProcess == 1)
sl@0:     	{
sl@0:         RDebug::Print(_L("  ### Unlink 0.\r\n"));
sl@0:     	
sl@0:     	TPtrC8 p1((const unsigned char*)tmpFileName);
sl@0:     	buf.Copy(p1);
sl@0:         RDebug::Print(_L("   ### tmp file name \"%S\"\r\n"), &buf);
sl@0:     	
sl@0:     	TPtrC8 p2((const unsigned char*)fifoFileName);
sl@0:     	buf.Copy(p2);
sl@0:         RDebug::Print(_L("   ### fifo file name \"%S\"\r\n"), &buf);
sl@0:         
sl@0:     	TPtrC8 p3((const unsigned char*)inFileName);
sl@0:     	buf.Copy(p3);
sl@0:         RDebug::Print(_L("   ### input file name \"%S\"\r\n"), &buf);
sl@0:     	
sl@0:     	TPtrC8 p4((const unsigned char*)outFileName);
sl@0:     	buf.Copy(p4);
sl@0:         RDebug::Print(_L("   ### output file name \"%S\"\r\n"), &buf);
sl@0:     	
sl@0:     	TPtrC8 p5((const unsigned char*)errFileName);
sl@0:     	buf.Copy(p5);
sl@0:         RDebug::Print(_L("   ### err file name \"%S\"\r\n"), &buf);
sl@0:     	
sl@0:     	RDebug::Print(_L("   ### Close stdin, stdout and stderr.\r\n"));
sl@0:     	close (TCL_STDIN);
sl@0:     	close (TCL_STDOUT);
sl@0:     	close (TCL_STDERR);
sl@0: 		for(TInt i=0, idx=argc-i-1; i<ADDPARAMTOCHILD && idx >= 0; ++i, --idx)
sl@0: 			{
sl@0:     		if(argv[idx])
sl@0:     			{
sl@0:         		TPtrC8 p((const unsigned char*)(argv[idx]));
sl@0:         		buf.Copy(p);
sl@0:     	    	RDebug::Print(_L("   ### Unlink. Arg %d. Value \"%S\".\r\n"), idx, &buf);
sl@0:     	    	unlink(argv[idx]);
sl@0:     			}
sl@0: 			}
sl@0:     	}
sl@0:     else
sl@0:     	{
sl@0:         RDebug::Print(_L("  ### Unlink 1.\r\n"));
sl@0:     	
sl@0:     	TPtrC8 p1((const unsigned char*)inFileName1);
sl@0:     	buf.Copy(p1);
sl@0:         RDebug::Print(_L("   ### 1 input file name \"%S\"\r\n"), &buf);
sl@0:     	
sl@0:     	TPtrC8 p2((const unsigned char*)outFileName1);
sl@0:     	buf.Copy(p2);
sl@0:         RDebug::Print(_L("   ### 1 output file name \"%S\"\r\n"), &buf);
sl@0: 
sl@0:     	TPtrC8 p3((const unsigned char*)errFileName1);
sl@0:     	buf.Copy(p3);
sl@0:         RDebug::Print(_L("   ### 1 err file name \"%S\"\r\n"), &buf);
sl@0: 
sl@0:     	unlink(inFileName1);
sl@0:     	unlink(outFileName1);
sl@0:     	unlink(errFileName1);
sl@0:     	}
sl@0: 	RDebug::Print(_L("###TclSqlite3: Child process cleanup - end.\r\n"));
sl@0: 	}
sl@0: 
sl@0: // Symbian main hook for tclappinit
sl@0: EXPORT_C int ChildProcessInit (int *argc, char ***argv)
sl@0: {
sl@0:     //set the stdin,stdout,stderr to the child process. the fds pass to the posix_spawn() in argv
sl@0:     TclFile inputFile = NULL;
sl@0:     TclFile outputFile= NULL;
sl@0:     TclFile errorFile = NULL;
sl@0:     int joinThisError;
sl@0:     int fd[4] = {0, 0, 0, 0};
sl@0:     char errSpace[200 + TCL_INTEGER_SPACE];
sl@0:     int anerr = 0;
sl@0: 	TBuf<256> buf;
sl@0: 
sl@0:     RDebug::Print(_L("###TclSqlite3: Child process init - begin. argc = %d.\r\n"), argc != NULL ? *argc : 0);
sl@0:     if(argc)
sl@0:     	{
sl@0:     	for(TInt i=0;i<*argc;++i)
sl@0:     		{
sl@0:     		TPtrC8 p((const unsigned char*)((*argv)[i]));
sl@0:     		buf.Copy(p);
sl@0:     	    RDebug::Print(_L("   ### arg %d, value \"%S\"\r\n"), i, &buf);
sl@0:     		}
sl@0:     	}
sl@0:    //set the stdin,stdout,stderr and pipeid to the child process. the fds pass to the posix_spawn() in argv
sl@0: 	if (*argc >= 5)
sl@0: 		{
sl@0: 		// fifoFile
sl@0: 		RDebug::Print(_L("  ### Fifo file. Arg %d.\r\n"), *argc-4);
sl@0: 		if((*argv)[*argc-4])
sl@0: 			{
sl@0: 			fd[0] = open((*argv)[*argc-4],O_WRONLY);
sl@0: 			if (fd[0] == -1)
sl@0: 				{
sl@0: 				RDebug::Print(_L("   ### fd[0](fifoFile) errno is %d\r\n"), errno);
sl@0: 				}
sl@0: 			else
sl@0: 				{
sl@0: 	    		TPtrC8 p((const unsigned char*)((*argv)[*argc-4]));
sl@0: 	    		buf.Copy(p);
sl@0: 				RDebug::Print(_L("   ### fifoFile is \"%S\", fd[0] is %d\r\n"), &buf, fd[0]);				
sl@0: 				}
sl@0: 		    //fd = atoi((*argv)[*argc-1]);
sl@0: 			}
sl@0: 		else
sl@0: 			{
sl@0: 			RDebug::Print(_L("   ### Fifo file - (*argv)[*argc-4] is 0.\r\n"));
sl@0: 			//should add later
sl@0: 			}
sl@0: 		// inputFile
sl@0: 		RDebug::Print(_L("  ### Input file. Arg %d.\r\n"), *argc-3);
sl@0: 		if(((*argv)[*argc-3])&&(strcmp((*argv)[*argc-3],"STD")))
sl@0: 			{
sl@0: 			fd[3] = open((*argv)[*argc-3],O_RDONLY); 
sl@0: 			inputFile = MakeFile(fd[3]);
sl@0: 			if (fd[3] == -1)
sl@0: 				{
sl@0: 				RDebug::Print(_L("   ### fd[3](inputFile) errno is %d\r\n"), errno);
sl@0: 				}
sl@0: 			else
sl@0: 				{
sl@0: 	    		TPtrC8 p((const unsigned char*)((*argv)[*argc-3]));
sl@0: 	    		buf.Copy(p);
sl@0: 				RDebug::Print(_L("   ### inputFile is \"%S\", fd[3] is %d\r\n"), &buf, fd[3]);					
sl@0: 				}
sl@0: 			    //inputFile = (TclFile) (atoi((*argv)[*argc-4]));
sl@0: 			}
sl@0: 		else
sl@0: 			{
sl@0: 			RDebug::Print(_L("   ### Input file - ((*argv)[*argc-3])&&(strcmp((*argv)[*argc-3],\"STD\")) is 0.\r\n"));
sl@0: 			//should add later
sl@0: 			}
sl@0: 		// outputFile
sl@0: 		RDebug::Print(_L("  ### Output file. Arg %d\r\n"), *argc-2);
sl@0: 		if(((*argv)[*argc-2])&&(strcmp((*argv)[*argc-2],"STD")))
sl@0: 			{
sl@0: 			fd[2] = open((*argv)[*argc-2],O_WRONLY);
sl@0: 			outputFile = MakeFile(fd[2]);
sl@0: 		    if (fd[2] == -1)
sl@0: 		    	{
sl@0: 		    	RDebug::Print(_L("   ### fd[2](outputFile) errno is %d\r\n"), errno);
sl@0: 		    	}
sl@0: 		    else
sl@0: 				{
sl@0: 	    		TPtrC8 p((const unsigned char*)((*argv)[*argc-2]));
sl@0: 	    		buf.Copy(p);
sl@0: 				RDebug::Print(_L("   ### outputFile is \"%S\", fd[2] is %d\r\n"), &buf, fd[2]);					
sl@0: 				}
sl@0: 		    
sl@0: 			//outputFile = (TclFile) (atoi((*argv)[*argc-3]));
sl@0: 			}
sl@0: 		else
sl@0: 			{
sl@0: 			RDebug::Print(_L("   ### Output file - ((*argv)[*argc-2])&&(strcmp((*argv)[*argc-2],\"STD\")) is 0.\r\n"));
sl@0: 			//should add later
sl@0: 			//outputFile = MakeFile(1);
sl@0: 			}
sl@0: 		// errorFile
sl@0: 		RDebug::Print(_L("  ### Error file. Arg %d\r\n"), *argc-1);
sl@0: 		if(((*argv)[*argc-1])&&(strcmp((*argv)[*argc-1],"STD")))
sl@0: 			{
sl@0: 			fd[1] = open((*argv)[*argc-1],O_WRONLY);
sl@0: 			errorFile = MakeFile(fd[1]);
sl@0: 			if (fd[1] == -1)
sl@0: 				{
sl@0: 				RDebug::Print(_L("   ### fd[1] errorFile errno is %d\r\n"), errno);
sl@0: 				}
sl@0: 			else
sl@0: 				{
sl@0: 	    		TPtrC8 p((const unsigned char*)((*argv)[*argc-1]));
sl@0: 	    		buf.Copy(p);
sl@0: 				RDebug::Print(_L("   ### errorFile is \"%S\", fd[1] is %d\r\n"), &buf, fd[1]);
sl@0: 				}
sl@0: 		    //errorFile = (TclFile) (atoi((*argv)[*argc-2]));
sl@0: 			}
sl@0: 		else
sl@0: 			{
sl@0: 			RDebug::Print(_L("   ### Output file - ((*argv)[*argc-1])&&(strcmp((*argv)[*argc-1],\"STD\")) is 0.\r\n"));
sl@0: 			//should add later
sl@0: 			}
sl@0: 		//*argc = *argc-4;
sl@0: 		
sl@0: 		joinThisError = errorFile && (errorFile == outputFile);
sl@0: 
sl@0: 		//fd = GetFd(errPipeOut);
sl@0:     
sl@0: 		//
sl@0: 		// Set up stdio file handles for the child process.
sl@0: 		//
sl@0: 
sl@0: 		if (!SetupStdFile(inputFile, TCL_STDIN)
sl@0: 			|| !SetupStdFile(outputFile, TCL_STDOUT)
sl@0: 			|| (!joinThisError && !SetupStdFile(errorFile, TCL_STDERR))
sl@0: 			|| (joinThisError &&
sl@0: 				((dup2(1,2) == -1) ||
sl@0: 				 (fcntl(2, F_SETFD, 0) != 0)))) 
sl@0: 			//if (!SetupStdFile(errorFile, TCL_STDERR))
sl@0: 			{
sl@0: 			RDebug::Print(_L("   ### child process couldn't set up input/output, error: %d\r\n"), errno);
sl@0: 			sprintf(errSpace,"child process couldn't set up input/output, error: %d\r\n", errno);
sl@0: 			write(fd[0], errSpace, (size_t) strlen(errSpace));
sl@0: 			close(fd[0]);
sl@0: 			unlink((*argv)[*argc-4]);
sl@0: 		    RDebug::Print(_L("###TclSqlite3: Child process init - end 1.\r\n"));
sl@0: 			_exit(1);
sl@0: 			}
sl@0: 
sl@0: 		sprintf(errSpace,"OK\r\n");
sl@0: 		write(fd[0], errSpace, (size_t) strlen(errSpace));
sl@0: 		anerr = close(fd[0]);
sl@0: 		anerr = unlink((*argv)[*argc-4]);
sl@0: 	    RDebug::Print(_L("###TclSqlite3: Child process init - end 2. anerr=%d.\r\n"), anerr);
sl@0: 	   	return 1;
sl@0: 		}
sl@0:     
sl@0:     RDebug::Print(_L("###TclSqlite3: Child process init - end 3.\r\n"));
sl@0:     return 0;			
sl@0: }
sl@0: 
sl@0: void TclPrint1(const char* aFmt, const char* aStr)
sl@0: 	{
sl@0: 	TBuf<128> fmt;
sl@0: 	fmt.Copy(TPtrC8((const TUint8*)aFmt));
sl@0: 	TBuf<128> str;
sl@0: 	str.Copy(TPtrC8((const TUint8*)aStr));
sl@0: 	RDebug::Print(fmt, &str);	
sl@0: 	}
sl@0: 
sl@0: void TclPrint2(const char* aFmt, const char* aStr, int aNum)
sl@0: 	{
sl@0: 	TBuf<128> fmt;
sl@0: 	fmt.Copy(TPtrC8((const TUint8*)aFmt));
sl@0: 	TBuf<128> str;
sl@0: 	str.Copy(TPtrC8((const TUint8*)aStr));
sl@0: 	RDebug::Print(fmt, &str, aNum);	
sl@0: 	}
sl@0: 
sl@0: void TclPrint3(const char* aFmt)
sl@0: 	{
sl@0: 	TBuf<128> fmt;
sl@0: 	fmt.Copy(TPtrC8((const TUint8*)aFmt));
sl@0: 	RDebug::Print(fmt);	
sl@0: 	}
sl@0: 
sl@0: #ifdef __cplusplus
sl@0: }
sl@0: #endif