Commit 857efa9f authored by Diederik van Arkel's avatar Diederik van Arkel

add new suffixes

parent 0cda3658
implementation module StdPathname implementation module StdPathname
import StdArray, StdBool, StdChar, StdClass, StdInt, StdString import StdArray, StdBool, StdChar, StdClass, StdInt, StdString, StdList
from StdSystem import dirseparator from StdSystem import dirseparator
import Platform import Platform
...@@ -41,7 +41,8 @@ RemoveSuffix path ...@@ -41,7 +41,8 @@ RemoveSuffix path
where where
(found, position) = FindLastChar '.' path last; (found, position) = FindLastChar '.' path last;
suf = path % (position, last); suf = path % (position, last);
suffix = suf == ".dcl" || suf == ".icl" || suf == ".abc" || suf == ".o" || suf == ".prj"; // suffix = suf == ".dcl" || suf == ".icl" || suf == ".abc" || suf == ".o" || suf == ".obj" || suf == ".prj";
suffix = isMember suf [".",".dcl",".icl",".abc",".o",".obj",".obj0",".obj1",".obj2",".xo",".cxo",".prj"];
last = dec (size path); last = dec (size path);
RemoveSuffix` :: !Pathname -> String; RemoveSuffix` :: !Pathname -> String;
......
Markdown is supported
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