Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-ide
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
6
Issues
6
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-ide
Commits
857efa9f
Commit
857efa9f
authored
Feb 21, 2003
by
Diederik van Arkel
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add new suffixes
parent
0cda3658
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
2 deletions
+3
-2
Util/StdPathname.icl
Util/StdPathname.icl
+3
-2
No files found.
Util/StdPathname.icl
View file @
857efa9f
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
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment