diff options
Diffstat (limited to 'backendC')
| -rw-r--r-- | backendC/CleanCompilerSources/Makefile | 17 | ||||
| -rw-r--r-- | backendC/CleanCompilerSources/backend.c | 56 | ||||
| -rw-r--r-- | backendC/CleanCompilerSources/cocl.c | 3 | ||||
| -rw-r--r-- | backendC/CleanCompilerSources/instructions.c | 1 | ||||
| -rw-r--r-- | backendC/CleanCompilerSources/unix_io.c | 461 |
5 files changed, 523 insertions, 15 deletions
diff --git a/backendC/CleanCompilerSources/Makefile b/backendC/CleanCompilerSources/Makefile new file mode 100644 index 0000000..a98c7de --- /dev/null +++ b/backendC/CleanCompilerSources/Makefile @@ -0,0 +1,17 @@ +# 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 diff --git a/backendC/CleanCompilerSources/backend.c b/backendC/CleanCompilerSources/backend.c index dff3023..e73de65 100644 --- a/backendC/CleanCompilerSources/backend.c +++ b/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 diff --git a/backendC/CleanCompilerSources/cocl.c b/backendC/CleanCompilerSources/cocl.c index 2d91077..319e40a 100644 --- a/backendC/CleanCompilerSources/cocl.c +++ b/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 diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c index 10b1583..c23774a 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -7,7 +7,6 @@ #include "compiledefines.h" #include "comsupport.h" -#include "system.h" #include <ctype.h> diff --git a/backendC/CleanCompilerSources/unix_io.c b/backendC/CleanCompilerSources/unix_io.c new file mode 100644 index 0000000..a95ff3a --- /dev/null +++ b/backendC/CleanCompilerSources/unix_io.c @@ -0,0 +1,461 @@ +/******************************************************************************* + * 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); + + va_end (args); +} /* CmdError */ + + +/******************************************************************************* + * Interrupt Handling * + ******************************************************************************/ + +#include <signal.h> + +/* Special for the stand alone version of the Clean compiler: + No interrupthandler should be installed +*/ + + +static void DoNothing (void) +{ +} /* DoNothing */ + + +void (*SetSignal (void (*f) (void))) (void) +{ + return DoNothing; +} /* SetSignal */ + + +int CheckInterrupt (void) +{ + return 0; +} /* CheckInterrupt */ + + +/******************************************************************************* + * Storage * + ******************************************************************************/ + +void *Alloc (long unsigned count, SizeT size) +{ + if (size == 1) + { if (count >= MAXUNSIGNED) + DoFatalError ("Allocate: severe memory allocation problem"); + return (void *) malloc ((size_t) count); + } + else if (count >= (MAXUNSIGNED / size)) + DoFatalError ("Allocate: severe memory allocation problem"); + return (void *) malloc ((size_t) (count * size)); +} /* Alloc */ + +void Free (void *p) +{ + (void) free (p); +} /* Free */ |