Changeset caff45d in tol

Timestamp:

Jan 2, 2012, 3:05:37 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

aa709a5

Parents:

633537f

Message:

refs #1118, function POpen, must compiled and tested on windows

Set View( POpen( [[ "svn", "status" ]] ), "" );

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

File:

• tol/btol/set_type/setgra.cpp (modified) (2 diffs)

tol/btol/set_type/setgra.cpp

@@ -53 +53 @@
 #include "llkarma.h"
 
+#ifdef WIN32
+#define popen _popen
+#define pclose _pclose
+#endif
 
 //static const char* bayesVersionId =
@@ -2782 +2786 @@
   }
 }
+
+//--------------------------------------------------------------------
+DeclareContensClass(BSet, BSetTemporary, BSetPOpen);
+DefExtOpr(1, BSetPOpen, "POpen", 1, 1,
+          "Set", 
+          "(Set Args)",
+          I2("Execute an external program. The output of the program is returned in the member output.",
+             "Ejecuta un programa externo. la salida del programa se retorna en el miembro ouput del conjunto resultado."),
+          BOperClassify::System_);
+
+#ifdef POPEN
+//--------------------------------------------------------------------
+void BSetPOpen::CalcContens()
+//--------------------------------------------------------------------
+{
+  const BSet& args = Set(Arg(1));
+  BDat status;
+  BText desc, output;
+  if ( args.Card() ) {
+    BText cmd;
+    int badArg = 0;
+    for ( int i = 1; i <= args.Card(); i++ ) {
+      cmd += '"';
+      BSyntaxObject* arg  = args[ i ];
+      if ( arg->Grammar() != GraText() ) {
+        status = 0;
+        desc = I2( "all argument must be of type Text",
+                   "todos los argumentos deben ser de tipo texto" );
+        badArg = 1;
+      }
+      const BText &txt = Text( arg );
+      cmd += txt;
+      cmd += "\" ";
+    }
+    if ( !badArg ) {
+      FILE* pipe = popen(cmd, "r");
+      if ( pipe ) {
+        char buffer[128];
+        output = "";
+        while( !feof( pipe ) ) {
+          if( fgets( buffer, 128, pipe ) != NULL )
+            output += buffer;
+        }
+        status = 1;
+        desc = "";
+        pclose( pipe );
+      }
+    } else {
+      status = 0;
+      BText desc = I2( "Could not execute: ", "No se pudo ejecutar: " );
+      desc += cmd; 
+      BText output = "";
+    }
+  } else {
+    status = 0;
+    BText desc = I2( "Nothing to execute", "Nada que ejecutar" );
+    BText output = "";
+  }
+  BList * result = NIL;
+  BSyntaxObject * so;
+  result = Cons(so = new BContensDat("", status), result);
+  so->PutName("status");
+  result = Cons(so = new BContensText("", desc), result);
+  so->PutName("description");
+  result = Cons(so = new BContensText("", output), result);
+  so->PutName("output");
+  contens_.RobElement(result);  
+}
+#endif