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

add new suffixes

parent 0cda3658
implementation module StdPathname
import StdArray, StdBool, StdChar, StdClass, StdInt, StdString
import StdArray, StdBool, StdChar, StdClass, StdInt, StdString, StdList
from StdSystem import dirseparator
import Platform
......@@ -41,7 +41,8 @@ RemoveSuffix path
where
(found, position) = FindLastChar '.' path 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);
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