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

add hsFile

parent 4b66ba24
......@@ -33,7 +33,7 @@ typedef enum
{abcFile = 1, iclFile, dclFile, dumpFile, statFile,
stasFile, helpFile, applFile, assFile, sunAssFile,
obj00File, obj20File, obj81File,
otherFile,miraFile,miraExpFile
otherFile, hsFile
} FileKind;
#define EndOfFile ((int) -1)
......
......@@ -33,6 +33,8 @@ char *GetFileExtension (FileKind kind)
return ".icl";
case dclFile:
return ".dcl";
case hsFile:
return ".hs";
case dumpFile:
return ".dmp";
case statFile:
......@@ -250,6 +252,8 @@ File FOpen (char *fname,FileKind kind,char *mode)
res=findfilepath (fname,dclFile,path);
if (!res)
res=findfilepath (fname,iclFile,path);
if (!res)
res=findfilepath (fname,hsFile,path);
if (res){
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