Changeset f805674 in tol

Timestamp:

Feb 10, 2011, 12:12:31 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

c3b0b11

Parents:

ecd37ad

Message:

Fixes #1089

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

File:

• tol/bbasic/dir.cpp (modified) (1 diff)

tol/bbasic/dir.cpp

@@ -556 +556 @@
   {
     BText name=GetFileName(path);
+    int len = name.Length();
+    int pos = name.FindAdv(".",len-1,1,-1);
+    if(pos< 0) { prefix = name; }
+    else if(pos==0) { prefix = ""; }
+    else { prefix.Copy(name,0,pos-1); }
+/*
     BArray<BText> token;
     ReadAllTokens(name,token,'.');
-    prefix=token[0];
+    prefix.Copy(name, 0, name.Length()-token[token.Size()-1].Length()-2);
+*/
   }
   return(prefix);