Changeset fcf89c2 in tol

Timestamp:

Jun 24, 2010, 1:56:35 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

08771b9

Parents:

29f736f

Message:

New method RemoveLastSlash

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@2326 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/general/grammars/_text.tol (modified) (1 diff)

tol/stdlib/general/grammars/_text.tol

@@ -161 +161 @@
 {
   If(OSUnix, Replace(path,  "\\", "/"), Replace(path,  "/", "\\"))
+};
+
+//////////////////////////////////////////////////////////////////////////////
+  Text RemoveLastSlash(Text txt)
+//////////////////////////////////////////////////////////////////////////////
+{
+  Real len = TextLength(txt);
+  Text last = Sub(txt,len,len);
+  If(Or(last=="/",last=="\\"), Sub(txt,1,len-1), txt)
 };