Changeset 1fe9365 in tol

Timestamp:

Nov 5, 2010, 9:00:43 AM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

cdc90de

Parents:

30b75c68

Message:

simplifying and cleaning svn info

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

File:

• tol/stdlib/general/system/_system.tol (modified) (1 diff)

tol/stdlib/general/system/_system.tol

@@ -535 +535 @@
 //////////////////////////////////////////////////////////////////////////////
 {
-  Real OSCmdWait("svn info \""+path+"\" > svn_info.txt");
-  Text svn_info.txt = ReadFile("svn_info.txt");
-  Set lines = Select(Tokenizer(svn_info.txt,"\n"),Real(Text line)
-  {
-    TextLength(Compact(line))>0
-  });
-  Text svn_info = SetSum(For(1,Card(lines),Text(Real k)
-  {
-    Text t = lines[k];
-    Case(
-      t=="","",
-      TextBeginWith(t,"Ruta:"),"",
-      1==1,Replace(t,"\"","'"))+"\n"
-  }))
-};
+  If(!OSDirExist(path+"/.svn"),"", {
+  Real OSCmdWait("svn info \""+path+"\" > "+path+"/.svn/svn_info.txt");
+  Text svn_info.txt = ReadFile(path+"/.svn/svn_info.txt");
+  Replace(svn_info.txt,"\"","'")
+})};
   
 //////////////////////////////////////////////////////////////////////////////