From 857efa9ff29940e1657a07c1560a1683e3d4de90 Mon Sep 17 00:00:00 2001 From: Diederik van Arkel Date: Fri, 21 Feb 2003 11:08:43 +0000 Subject: [PATCH] add new suffixes --- Util/StdPathname.icl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Util/StdPathname.icl b/Util/StdPathname.icl index 9e694f2..f1a1fd2 100644 --- a/Util/StdPathname.icl +++ b/Util/StdPathname.icl @@ -1,6 +1,6 @@ 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; -- GitLab