Commit d2c7138a authored by John van Groningen's avatar John van Groningen
Browse files

add hsFile

parent 4b66ba24
...@@ -33,7 +33,7 @@ typedef enum ...@@ -33,7 +33,7 @@ typedef enum
{abcFile = 1, iclFile, dclFile, dumpFile, statFile, {abcFile = 1, iclFile, dclFile, dumpFile, statFile,
stasFile, helpFile, applFile, assFile, sunAssFile, stasFile, helpFile, applFile, assFile, sunAssFile,
obj00File, obj20File, obj81File, obj00File, obj20File, obj81File,
otherFile,miraFile,miraExpFile otherFile, hsFile
} FileKind; } FileKind;
#define EndOfFile ((int) -1) #define EndOfFile ((int) -1)
......
...@@ -33,6 +33,8 @@ char *GetFileExtension (FileKind kind) ...@@ -33,6 +33,8 @@ char *GetFileExtension (FileKind kind)
return ".icl"; return ".icl";
case dclFile: case dclFile:
return ".dcl"; return ".dcl";
case hsFile:
return ".hs";
case dumpFile: case dumpFile:
return ".dmp"; return ".dmp";
case statFile: case statFile:
...@@ -250,6 +252,8 @@ File FOpen (char *fname,FileKind kind,char *mode) ...@@ -250,6 +252,8 @@ File FOpen (char *fname,FileKind kind,char *mode)
res=findfilepath (fname,dclFile,path); res=findfilepath (fname,dclFile,path);
if (!res) if (!res)
res=findfilepath (fname,iclFile,path); res=findfilepath (fname,iclFile,path);
if (!res)
res=findfilepath (fname,hsFile,path);
if (res){ if (res){
char *p,*after_last_slash; char *p,*after_last_slash;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment