Unix version

backendC/CleanCompilerSources/Makefile

+# This is for Unix
+CC = gcc
+CFLAGS = -D_SUN_ -DGNU_C -O -fomit-frame-pointer
+AR = ar
+RANLIB = ranlib
+
+OBJECTS = \
+	backend.o backendsupport.o buildtree.o checker_2.o checksupport.o \
+	cocl.o codegen1.o codegen2.o codegen3.o codegen.o comparser_2.o \
+	compiler.o comsupport.o dbprint.o instructions.o optimisations.o \
+	overloading_2.o pattern_match.o result_state_database.o sa.o \
+	scanner_2.o set_scope_numbers.o settings.o unix_io.o statesgen.o \
+	tcsupport_2.o typechecker2_2.o typechecker_2.o typeconv_2.o version.o
+
+backend.a: $(OBJECTS)
+	$(AR) cur backend.a $(OBJECTS)
+	$(RANLIB) backend.a

backendC/CleanCompilerSources/backend.c

@@ -3193,15 +3193,39 @@ RemoveSpecialArrayFunctionsFromSymbolList (SymbolP *symbolH)
 	}
 } /* RemoveSpecialArrayFunctionsFromSymbolList */
 
-#if 0
-File rules_file;
-#endif
+/* copied from compiler.c ... */
+
+static Bool
+RemoveExtension (char *name)
+{
+	int len;
+
+	len = strlen (name);
+
+	if (len>=4 && name[len-4]=='.'){
+		name [len-4] = '\0';
+		return True;
+	} else
+		return False;
+}
+
+static void
+AddExtension (char *name)
+{
+	name [strlen (name)] = '.';
+}
+
+/* ... copied from compiler.c */
+
+
+ 
 
 int
 BEGenerateCode (CleanString outputFile)
 {
 	char	*outputFileName;
 	ImpRule	rule;
+	Bool	hadExtension;
 
 	if (CompilerError)
 		return False;
@@ -3218,29 +3242,30 @@ BEGenerateCode (CleanString outputFile)
 	gBEState.be_icl.beicl_module->im_rules	=	rule;
 
 	outputFileName	= ConvertCleanString (outputFile);
+	hadExtension = RemoveExtension (outputFileName);
 
 #if 0
 	{
-		rules_file=fopen ("Rules","w");
-		if (rules_file){
+		File f;
+		
+		f=fopen ("Rules","w");
+		if (f){
 			ImpRuleS *rule;
 
 			for (rule=gBEState.be_icl.beicl_module->im_rules; rule!=NULL; rule=rule->rule_next){
-				PrintImpRule (rule,4,rules_file);
+				PrintImpRule (rule,4,f);
 				
 				if (rule->rule_next!=NULL)
-					FPutC ('\n',rules_file);
+					FPutC ('\n',f);
 			}
+			fclose (f);
 		}
 	}
 #endif
 
 	CodeGeneration (gBEState.be_icl.beicl_module, outputFileName);
-
-#if 0
-	if (rules_file)
-		fclose (rules_file);
-#endif
+	if (hadExtension)
+		AddExtension (outputFileName);
 
 	return (!CompilerError);
 } /* BEGenerateCode */
@@ -3279,6 +3304,7 @@ BEExportType (int dclTypeIndex, int iclTypeIndex)
 	dclDef->sdef_dcl_icl	= iclDef;
 
 	iclDef->sdef_exported = True;
+	dclDef->sdef_exported = True;
 } /* BEExportType */
 
 void
@@ -3329,6 +3355,8 @@ BEExportConstructor (int dclConstructorIndex, int iclConstructorIndex)
 
 	iclDef->sdef_dcl_icl	= dclDef;
 	dclDef->sdef_dcl_icl	= iclDef;
+
+	iclDef->sdef_exported = True;
 } /* BEExportConstructor */
 
 void
@@ -3364,6 +3392,8 @@ BEExportField (int dclFieldIndex, int iclFieldIndex)
 
 	iclDef->sdef_dcl_icl	= dclDef;
 	dclDef->sdef_dcl_icl	= iclDef;
+
+	iclDef->sdef_exported = True;
 } /* BEExportField */
 
 void
@@ -3393,6 +3423,8 @@ BEExportFunction (int dclFunctionIndex, int iclFunctionIndex)
 
 	iclDef->sdef_dcl_icl	= dclDef;
 	dclDef->sdef_dcl_icl	= iclDef;
+
+	iclDef->sdef_exported = True;
 } /* BEExportFunction */
 
 void

backendC/CleanCompilerSources/cocl.c

@@ -2,7 +2,6 @@
 #include "compiledefines.h"
 #include "comsupport.h"
 #include "settings.h"
-#include "system.h"
 #include <ctype.h>
 #include "compiler.h"
 #include "version.h"
@@ -62,7 +61,7 @@ static Bool SetStrictOption (char *opt)
 
 char *path_parameter;
 #ifdef _SUN_
-extern int use_clean_system_files;
+int use_clean_system_files;
 #endif
 
 #ifdef CLEAN2

backendC/CleanCompilerSources/instructions.c

@@ -7,7 +7,6 @@
 
 #include "compiledefines.h"
 #include "comsupport.h"
-#include "system.h"
 
 #include <ctype.h>
 

backendC/CleanCompilerSources/unix_io.c

+/*******************************************************************************
+ *     Concurrent Clean Simulator: simple_sun_io.c                             *
+ *     ===========================================                             *
+ *     At: Department of Computer Science                                      *
+ *         University of Nijmegen                                              *
+ *     Version: 1.1                                                            *
+ ******************************************************************************/
+ 
+#include "system.h"
+
+#if !defined (applec) || defined (__MWERKS__)
+#	include <sys/types.h>
+#	include <sys/file.h>
+#	include <sys/param.h>
+#endif
+
+#if !(defined (applec) || defined (_PC_))
+#	include <unistd.h>
+#endif
+
+char *GetFileExtension (FileKind kind)
+{
+	switch (kind){
+		case abcFile:		return ".abc";
+		case obj00File:		return ".obj0";
+		case obj20File:		return ".obj1";
+		case obj81File:		return ".obj2";
+		case iclFile:		return ".icl";
+		case dclFile:		return ".dcl";
+		case dumpFile:		return ".dmp";
+		case statFile:		return ".stt";
+		case stasFile:		return ".str";
+		case assFile:		return ".a";
+		case sunAssFile:	return ".s";
+		case helpFile:
+		case applFile:
+		case otherFile:
+		default:			return "";
+	}	
+}
+
+#define	SEARCHPATH	"CLEANPATH"
+
+#ifdef SOLARIS
+char clean_lib_directory[145] = "#$@CLEANLIB  %*&.";
+# define clean_lib_directory (&clean_lib_directory[16])
+#else
+char clean_lib_directory[129] = ".";
+#endif
+
+#define CLEANLIB	clean_lib_directory
+
+static int use_clean_system_files_folder=1;
+
+char *PATHLIST = SEARCHPATH;
+
+static Bool findfilepath (char *fname, FileKind kind, char *mode, char *path)
+{
+	int accmode;
+    char *s, *pathelem,c;
+    char *getenv ();
+    char *pathlist;
+    char pathbuf[MAXPATHLEN];			/* buffer for tmp file name */
+	char *ext;
+
+	accmode = F_OK;		      		/* required file access mode */
+    pathlist = getenv (SEARCHPATH);
+	
+	ext = GetFileExtension (kind);
+	
+    /* only scan current directory if path nonexistent */
+    if (pathlist == (char *) 0)
+		pathlist = ".";
+
+    /* interpret file mode */
+    for (s = mode; *s; s++)
+    {	switch (*s)
+		{
+		case 'r':
+		    accmode |= R_OK;
+		    break;
+		case 'w':
+		case 'a':
+		    accmode |= W_OK;
+		    break;
+		case '+':
+		    accmode |= (R_OK | W_OK);
+		    break;
+		}
+    }
+    
+    /* no searching on absolute paths or if not read only */
+    if (fname[0] == '/' || (accmode & W_OK) == W_OK)
+	{	(void) strcpy (path, fname);
+		(void) strcat (path, ext);
+		if ((accmode & W_OK) == W_OK || access (path, accmode) == 0)
+			return True;
+		else
+			return False;
+	}
+
+    /* start scanning path list */
+    s        = strcpy (pathbuf, pathlist);
+    pathelem = s;
+    for (c = *s;;c = *s){
+#if defined (OS2) || defined (DOS)
+		if (c == ';' || c == '\0'){
+#else
+		if (c == ':' || c == '\0'){
+#endif
+			*s = '\0';
+		    (void) strcpy (path, pathelem);
+		    (void) strcat (path, "/");
+		    (void) strcat (path, fname);
+		    (void) strcat (path, ext);
+		    if (access (path, accmode) == 0)
+				return True;
+		    *s = c;
+		    if (c == '\0')
+		    	break;
+		    pathelem = ++s;
+		}
+		else
+		    ++s;
+    }
+
+	/* try CLEANLIB */
+ 	strcpy (path, CLEANLIB);
+	strcat (path, "/");
+	strcat (path, fname);
+	strcat (path, ext);
+	if (access (path, accmode) == 0)
+		return True;
+
+	/* try . */
+	(void) strcpy (path, fname);
+	(void) strcat (path, ext);
+
+ 	return ((Bool) (access (path, accmode) == 0));
+}
+
+File FOpen (char *wname, FileKind kind, char *mode)
+{
+	char path[MAXPATHLEN];
+	Bool res;
+	
+	if (mode[0]=='r')
+	{
+		if (findfilepath (wname, kind, mode, path))
+			return (File) fopen (path, mode);
+		else
+			return (File) Null;
+	}
+	else
+	{
+		res=findfilepath (wname,dclFile,mode,path);
+		if (!res)
+			res=findfilepath (wname,iclFile,mode,path);
+
+		if (res){
+			char *p,*after_last_slash;
+
+			after_last_slash=NULL;
+
+			p=path;
+			while (*p)
+				if (*p++=='/')
+					after_last_slash=p;
+
+			if (after_last_slash==NULL)
+				after_last_slash=path;
+
+			if (use_clean_system_files_folder){
+				strcpy (after_last_slash,"Clean System Files");
+
+				if (access (path,F_OK)!=0){
+					if (mkdir (path,0777)!=0)
+						return NULL;
+				}
+
+				strcat (after_last_slash,"/");
+				strcat (after_last_slash,wname);
+			} else
+				strcpy (after_last_slash,wname);
+			strcat (after_last_slash,GetFileExtension (kind));
+			
+			return fopen (path,mode);
+		} else
+			return NULL;
+	}	
+
+} /* FOpen */
+
+
+int FClose (File f)
+{
+	return fclose ((FILE *) f);
+} /* FClose */
+
+int FDelete (char *fname, FileKind kind)
+{
+	char path[MAXPATHLEN];
+	Bool res;
+	
+	res = findfilepath (fname, kind, "w", path);
+
+	if (res)
+		return remove (path);
+	else
+		return -1;
+} /* FDelete */
+
+#ifndef FPutC
+int FPutC (int c, File f)
+{
+	return fputc (c, (FILE *) f);
+}
+#endif
+
+#ifndef FGetC
+int FGetC (File f)
+{
+	return fgetc ((FILE *) f);
+}
+#endif
+
+int FPrintF (File f, char *fmt, ...)
+{
+	int n;
+	va_list args;
+	
+	va_start (args, fmt);
+
+	n = vfprintf ((FILE*)f, fmt, args);
+
+	va_end (args);
+	return n;
+}
+
+size_t FWrite (void *ptr, size_t size, size_t count, File f)
+{
+	return fwrite (ptr, size, count, (FILE *) f);
+}
+
+size_t FRead  (void *ptr, size_t size, size_t count, File f)
+{
+	return fread (ptr, size, count, (FILE *) f);
+}
+
+#ifndef FGetS
+char *FGetS (char *s, int n, File f)
+{
+	return fgets (s, n, (FILE *) f);
+}
+#endif
+
+int FPutS (char *s, File f)
+{
+	return fputs (s, (FILE *) f);
+} /* FPutS */
+
+
+/*******************************************************************************
+ *     Special for files                                                       *
+ ******************************************************************************/
+
+int FSeek (File f, long offset, int origin)
+{
+	return fseek ((FILE *) f, offset, origin);
+} /* FSeek */
+
+
+long FTell (File f)
+{
+	return ftell ((FILE *) f);
+} /* FTell */
+
+
+/*******************************************************************************
+ * Cursor movement                                                             *
+ ******************************************************************************/
+
+void FGotoXY (File f, int x, int y)
+{
+	return;
+}
+
+void FGetXY (int *x, int *y, File f)
+{
+	*x = *y = 0;
+}
+
+/*******************************************************************************
+ *     Time Handling                                                           *
+ ******************************************************************************/
+
+
+#include <sys/time.h>
+#include <sys/resource.h>
+#include <sys/stat.h>
+
+#ifdef HP
+#	include <unistd.h>
+#	include <sys/times.h>
+#endif
+
+SysTime GetSysTime (unsigned scale)
+{
+/*
+#ifndef HP
+# ifdef OS2
+	unsigned long time;
+	SysTime t;
+
+# define INCL_DOS
+# include <os2emx.h>
+
+	DosQuerySysInfo (QSV_MS_COUNT,QSV_MS_COUNT,&time,sizeof (time));
+	if (scale>=1000)
+		t=(SysTime)(time * (unsigned long) (scale/1000));
+	else
+		t=(SysTime)((time * (unsigned long) scale)/1000);
+	
+	return t;
+# else
+    struct rusage usage;
+	SysTime t;
+
+    (void) getrusage (RUSAGE_SELF, &usage);
+    t = (SysTime) (usage.ru_utime.tv_sec * (unsigned long) scale +
+    	usage.ru_utime.tv_usec / (unsigned long) (1000000L / scale));
+
+    return t;
+# endif
+#else
+	double clock_ticks_per_second;
+	struct tms time_buffer;
+	
+	clock_ticks_per_second=sysconf (_SC_CLK_TCK);
+	times (&time_buffer);
+	
+	return (SysTime) (((double)time_buffer.tms_utime * scale) / clock_ticks_per_second);
+#endif
+*/
+	return 0;
+} /* GetSysTime */
+
+void StopTimer (void)
+{
+} /* StopTimer */
+
+void ResetTimer (void)
+{
+} /* ResetTimer */
+
+FileTime FGetFileTime (char *fname, FileKind kind)
+{	struct stat buf;
+	char path[MAXPATHLEN];
+	
+	if (! findfilepath (fname, kind, "", path))
+		return NoFile;
+		
+	stat (path, &buf);
+
+	return (FileTime) buf.st_mtime;
+} /* FGetFileTime */
+
+
+
+
+/*******************************************************************************
+ *                                                                             *
+ *     Error Handling                                                          *
+ *                                                                             *
+ ******************************************************************************/
+	
+void DoError (char *fmt, ...)
+{	va_list args;
+	
+	va_start (args, fmt);
+
+	(void) vfprintf (stderr, fmt, args);
+	
+	va_end (args);
+} /* DoError */
+
+
+void DoFatalError (char *fmt, ...)
+{	va_list args;
+	
+	va_start (args, fmt);
+
+	(void) vfprintf (stderr, fmt, args);
+	
+	va_end (args);
+
+	exit (0);
+} /* DoFatalError */
+
+
+void CmdError (char *errormsg,...)
+{	va_list args;
+	
+	va_start (args, errormsg);
+
+	fputs ("Command line error: ", stdout);
+	vfprintf (stdout, errormsg, args);
+	fputc ('\n', stdout); 
+