Changeset 38ce382 in tol

Timestamp:

Sep 3, 2010, 6:06:47 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

3885b01

Parents:

a553d55

Message:

Adding SVN info to packages

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

File:

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

tol/stdlib/general/system/_system.tol

@@ -532 +532 @@
 
 //////////////////////////////////////////////////////////////////////////////
+Text OSSvnInfo(Text path)
+//////////////////////////////////////////////////////////////////////////////
+{
+  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"
+  }))
+};
+  
+//////////////////////////////////////////////////////////////////////////////
 // Tests
 //////////////////////////////////////////////////////////////////////////////