Added Metrowerks CodeWarrior support for Windows (MacOS soon to come)

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.1@2520 ea41ed52-d2ee-0310-a9c1-e6b18d33e121

4 files changed, 434 insertions, 0 deletions

diff --git a/CodeWarrior/Plugins/CommonFiles/FluidPanel.h b/CodeWarrior/Plugins/CommonFiles/FluidPanel.h
new file mode 100644
index 000000000..926b02907
--- /dev/null
+++ b/CodeWarrior/Plugins/CommonFiles/FluidPanel.h
@@ -0,0 +1,72 @@
+/*
+ *  FluidPanel.h - 'Fluid Panel' Drop-In Preferences
+ *
+ *  Copyright © 1995-2002 Metrowerks Inc.  All rights reserved.
+ *
+ */
+
+#ifndef _H_FluidPanel
+#define _H_FluidPanel
+
+#ifndef __TYPES__
+#	include <Types.h>
+#endif
+
+
+#pragma options align=mac68k
+
+
+/* this is the name of the panel, as shown in the Finder */
+#define kFluidPanelName	"Fluid Panel"
+
+
+/*
+ *	AppleScript dictionary info.  As a rule of thumb, dropin panels should use the 
+ *	same terminology and numeric code in their 'aete' that the IDE uses if there 
+ *	is already a similar item in the IDE's 'aete'.  That is the case here, so we 
+ *	merely duplicate applicable 68K Project and 68K Linker user terms below.
+ */
+
+enum {
+/*	Symbolic Name				   Code		AETE Terminology		*/
+	class_Fluid				= 'Flid',
+
+	prefsPR_ProjectType			= 'PR01',	/* Project Type			*/
+	prefsPR_FileName			= 'PR02',	/* File Name			*/
+	prefsLN_GenerateSymFile		= 'LN02',	/* Generate SYM File	*/
+	
+	/* enumeration for project type */
+	enumeration_ProjectType		= 'PRPT',
+	enum_Project_Application	= 'PRPA',	/* application			*/
+	enum_Project_Library		= 'PRPL',	/* library				*/
+	enum_Project_SharedLibrary	= 'PRPS',	/* shared library		*/
+	enum_Project_CodeResource	= 'PRPC',	/* code resource		*/
+	enum_Project_MPWTool		= 'PRPM'	/* MPW tool				*/
+};
+
+
+/* internal codes for project type */
+enum { 
+	kProjTypeApplication,
+	kProjTypeLibrary,
+	kProjTypeSharedLib,
+	kProjTypeCodeResource,
+	kProjTypeMPWTool
+};
+
+
+/*	This is the structure that is manipulated by the panel.  The Fluid 
+ *	compiler & linker both "know" about this structure.
+ */
+
+typedef struct FluidPref {
+	short	version;			/* version # of prefs data	*/
+	short	projtype;			/* project type				*/
+	char	outfile[32];		/* output file name			*/
+	Boolean	linksym;			/* generate SYM file		*/
+	short	dotx;				/* position of dot (!)		*/
+	short	doty;
+} FluidPref, **FluidPrefHandle;
+
+#pragma options align=reset
+#endif	/* _H_FluidPanel */
diff --git a/CodeWarrior/Plugins/FluidCompiler/FluidCompiler.c b/CodeWarrior/Plugins/FluidCompiler/FluidCompiler.c
new file mode 100644
index 000000000..68135cd6d
--- /dev/null
+++ b/CodeWarrior/Plugins/FluidCompiler/FluidCompiler.c
@@ -0,0 +1,353 @@
+
+/*
+ *	Fluid Tool.c	-	Fluid Tool (68K and PowerPC) for CodeWarriorª IDE
+ *
+ *  Based on Metrowerks Sample Plugin:
+ *  Copyright © 1995-2002 Metrowerks Inc.  All rights reserved.
+ *
+ */
+
+/* standard headers */
+#include <ctype.h>
+#include <stdio.h>
+#include <string.h>
+#include <stat.h>
+#include <errno.h>
+
+/* system headers */
+#if macintosh
+#include <Files.h>
+#include <Strings.h>
+#endif
+
+/* compiler headers */
+#include "DropInCompilerLinker.h"
+#include "CompilerMapping.h"
+#include "CWPluginErrors.h"
+
+/* project headers */
+#include "../commonFiles/FluidPanel.h"
+
+
+/* prototypes of local functions */
+static CWResult	Compile(CWPluginContext context);
+static CWResult	ProcessFile(CWPluginContext context, const char* text, Boolean include);
+static CWResult	ParseText(CWPluginContext context, const char* text);
+static CWResult	IncludeFile(CWPluginContext context, const char* inclname, 
+					Boolean fullSearch);
+int IsNewlineChar(char c);
+
+/* local variables */
+static long		linecount;
+
+
+#if CW_USE_PRAGMA_EXPORT
+#pragma export on
+#endif
+
+/**
+ * inform the API about our capabilities by returning the DropInFlags structure
+ */
+CWPLUGIN_ENTRY(CWPlugin_GetDropInFlags)(const DropInFlags** flags, long* flagsSize)
+{
+	static const DropInFlags sFlags = {
+		kCurrentDropInFlagsVersion,
+		CWDROPINCOMPILERTYPE,
+		DROPINCOMPILERLINKERAPIVERSION_7,
+		/*kCanpreprocess | */ kCompAllowDupFileNames,
+		Lang_MISC,
+		DROPINCOMPILERLINKERAPIVERSION
+	};
+	
+	*flags = &sFlags;
+	*flagsSize = sizeof(sFlags);
+	
+	return cwNoErr;
+}
+
+CWPLUGIN_ENTRY(CWPlugin_GetDropInName)(const char** dropinName)
+{
+	static const char* sDropInName = "Fluid Resource Compiler";
+	
+	*dropinName = sDropInName;
+	
+	return cwNoErr;
+}
+
+CWPLUGIN_ENTRY(CWPlugin_GetDisplayName)(const char** displayName)
+{
+	static const char* sDisplayName = "Fluid Resource Compiler";
+	
+	*displayName = sDisplayName;
+	
+	return cwNoErr;
+}
+
+CWPLUGIN_ENTRY(CWPlugin_GetPanelList)(const CWPanelList** panelList)
+{
+	static const char* sPanelName = "Fluid Panel";
+	static CWPanelList sPanelList = {kCurrentCWPanelListVersion, 1, &sPanelName};
+	
+	*panelList = &sPanelList;
+	
+	return cwNoErr;
+}
+
+/**
+ * tell CW about the processors and platforms that we support
+ * (which would be any that we can compile Fluid under)
+ */
+CWPLUGIN_ENTRY(CWPlugin_GetTargetList)(const CWTargetList** targetList)
+{
+	static CWDataType sCPU = targetCPUAny;
+	static CWDataType sOS = targetOSAny;
+	static CWTargetList sTargetList = {kCurrentCWTargetListVersion, 1, &sCPU, 1, &sOS};
+	
+	*targetList = &sTargetList;
+	
+	return cwNoErr;
+}
+
+/**
+ * tell CW which file types we can process
+ */
+CWPLUGIN_ENTRY(CWPlugin_GetDefaultMappingList)(const CWExtMapList** defaultMappingList)
+{
+	static CWExtensionMapping sExtension = {'TEXT', ".fl", 0};
+	static CWExtMapList sExtensionMapList = {kCurrentCWExtMapListVersion, 1, &sExtension};
+	
+	*defaultMappingList = &sExtensionMapList;
+	
+	return cwNoErr;
+}
+
+#if CW_USE_PRAGMA_EXPORT
+#pragma export off
+#endif
+
+/*
+ *	main	-	main entry-point for Drop-In Fluid Tool
+ *
+ */
+
+CWPLUGIN_ENTRY(main)(CWPluginContext context)
+{
+	short		result;
+	long		request;
+	
+	if (CWGetPluginRequest(context, &request) != cwNoErr)
+		return cwErrRequestFailed;
+	
+	result = cwNoErr;
+		
+	/* dispatch on compiler request */
+	switch (request)
+	{
+	case reqInitCompiler:
+		/* compiler has just been loaded into memory */
+		break;
+		
+	case reqTermCompiler:
+		/* compiler is about to be unloaded from memory */
+		break;
+		
+	case reqCompile:
+  	{
+  	  Boolean pp;
+  	  result = CWIsPreprocessing( context, &pp );
+      //if ( pp ) 
+        result = Compile(context);
+    }
+		break;
+		
+	default:
+		result = cwErrRequestFailed;
+		break;
+	}
+	
+	/* return result code */
+	return (result);
+}
+
+/**
+ * check if the path points to an executable file
+ */
+static char exist( const char *filename )
+{
+  struct stat eStat;
+  int ret = stat( filename, &eStat );
+  if ( ret != 0 ) return 0;
+  if ( eStat.st_mode && S_IEXEC ) return 1;
+  return 0;
+}
+
+/**
+ * call (or incorporate) Fluid with our source file as an argument
+ */
+static CWResult	Compile(CWPluginContext context)
+{
+	CWResult	err;
+	CWFileSpec	sourcefile;
+	int ret;
+	char preFileAction = 0;
+	char *fluidCmd = 0;
+	char *fluidCall = 0;
+	char *flPath = 0;
+	const char *flFile = 0;
+  CWFileInfo fileInfo = {
+    true, cwNoDependency, 0, true, 0
+  };
+  CWFileSpec cxxPath, hPath;
+
+  // find FLUID: check the target path for fluid.exe and fluidd.exe
+  
+  err = CWFindAndLoadFile( context, "fluid.exe", &fileInfo );
+  if ( err != cwNoErr )
+    err = CWFindAndLoadFile( context, "fluidd.exe", &fileInfo );    
+  if ( err == cwNoErr )
+    fluidCmd = strdup( fileInfo.filespec.path );
+    
+  // No FLUID in the project path, search the CW compiler paths
+  
+  if ( !fluidCmd )
+  {
+	  const char *cwFolder = 0;
+    cwFolder = getenv( "CWFOLDER" );
+    if ( cwFolder )
+    {
+      char found = 0;
+      fluidCmd = (char*)malloc( strlen( cwFolder ) + 38 );
+      if (!found)
+      {
+        sprintf( fluidCmd, "%s\\Bin\\fluid.exe", cwFolder );
+        found = exist( fluidCmd );
+      }
+      if (!found)
+      {
+        sprintf( fluidCmd, "%s\\Bin\\fluidd.exe", cwFolder );
+        found = exist( fluidCmd );
+      }
+      if (!found)
+      {
+        sprintf( fluidCmd, "%s\\Bin\\Plugins\\Compiler\\fluid.exe", cwFolder );
+        found = exist( fluidCmd );
+      }
+      if (!found)
+      {
+        sprintf( fluidCmd, "%s\\Bin\\Plugins\\Compiler\\fluidd.exe", cwFolder );
+        found = exist( fluidCmd );
+      }
+      if (!found)
+      {
+        free( fluidCmd );
+        fluidCmd = 0;
+      }
+    }
+  }
+  
+  if ( !fluidCmd )
+  {
+    CWReportMessage( context, NULL,
+      "Fluid resource compiler not found",
+      "Could not find fluid.exe in project path or CodeWarrior parth",
+      messagetypeError, 0 );	
+    return cwErrRequestFailed;
+  }
+  
+  // get the path to the file we want to compile
+
+	err = CWGetMainFileSpec(context, &sourcefile);
+	if (!CWSUCCESS(err))
+		goto bail;
+
+  flFile = strrchr(sourcefile.path, '.' );
+  if ( flFile )
+  {
+    int len = strlen(sourcefile.path);
+    strcpy( cxxPath.path, sourcefile.path );
+    strcpy( cxxPath.path+(flFile-sourcefile.path), ".cxx" );
+    strcpy( hPath.path, sourcefile.path );
+    strcpy( hPath.path+(flFile-sourcefile.path), ".h" );
+    CWPreFileAction( context, &cxxPath );
+    CWPreFileAction( context, &hPath );
+    preFileAction = 1;
+  }
+
+  // chdir to our .fl file and call fluid  
+
+  flFile = strrchr( sourcefile.path, '\\' );
+  if ( !flFile )
+    flFile = strrchr( sourcefile.path, '/' );
+  if ( !flFile )
+  {
+    CWReportMessage( context, NULL,
+      "Can't determine .fl file path",
+      NULL,
+      messagetypeError, 0 );	
+    err = cwErrSilent;
+    goto bail;
+  }
+  flPath = strdup( sourcefile.path );
+  flPath[ flFile-sourcefile.path ] = 0;
+  flFile++;
+  
+  ret = chdir( flPath );
+  if ( ret )
+  {
+    CWReportMessage( context, NULL,
+      "Can't access .fl file path",
+      flPath,
+      messagetypeError, 0 );	
+    err = cwErrSilent;
+    goto bail;
+  }
+
+  // create and run our command
+
+  fluidCall = (char*)malloc( strlen(fluidCmd) + strlen( flFile ) + 24 );
+  sprintf( fluidCall, "%s -c \"%s\"", fluidCmd, flFile );
+
+  ret = spawnl( P_WAIT, fluidCmd, fluidCmd, "-c", flFile, 0 );
+
+  if ( ret )
+  {
+    CWReportMessage( context, NULL,
+      "Fluid system call failed.",
+      fluidCall,
+      messagetypeError, 0 );	
+    err = cwErrSilent;
+    goto bail;
+  }
+
+  CWReportMessage( context, NULL,
+    "Fluid Resource compiled successfully",
+    fluidCmd, 
+    messagetypeInfo, 0 );	
+  //CWReportMessage( context, NULL,
+  //  hPath.path,
+  //  cxxPath.path, 
+  //  messagetypeInfo, 0 );	
+  
+	err = cwNoErr;
+	
+  // clean up 
+bail:   
+
+  if ( preFileAction )
+  {
+    FILETIME filetime;
+    GetSystemTimeAsFileTime( &filetime );
+    CWPostFileAction( context, &cxxPath );
+    CWSetModDate( context, &cxxPath, &filetime, true );
+    CWPostFileAction( context, &hPath );
+    CWSetModDate( context, &hPath, &filetime, true );
+  }
+
+  if ( fluidCmd ) free( fluidCmd );
+  if ( fluidCall ) free( fluidCall );
+  if ( flPath ) free( flPath );
+	
+	return (err);
+}
+
+
diff --git a/CodeWarrior/Plugins/FluidCompiler/FluidCompiler.mcp b/CodeWarrior/Plugins/FluidCompiler/FluidCompiler.mcp
new file mode 100644
index 000000000..707a46e32
--- /dev/null
+++ b/CodeWarrior/Plugins/FluidCompiler/FluidCompiler.mcp
diff --git a/CodeWarrior/Plugins/FluidCompiler/FluidCompilerExports.def b/CodeWarrior/Plugins/FluidCompiler/FluidCompilerExports.def
new file mode 100644
index 000000000..af25d689e
--- /dev/null
+++ b/CodeWarrior/Plugins/FluidCompiler/FluidCompilerExports.def
@@ -0,0 +1,9 @@
+EXPORTS

+

+main

+CWPlugin_GetDropInFlags

+CWPlugin_GetDropInName

+CWPlugin_GetDisplayName

+CWPlugin_GetPanelList

+CWPlugin_GetTargetList

+CWPlugin_GetDefaultMappingList