Changeset aa709a5 in tol

Timestamp:

Jan 2, 2012, 8:32:08 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

c495c08

Parents:

caff45d

Message:

refs #1118, POpen compilado en windows. Si los argumentos contienen espacios hay que protegerlo con \"\", ej:

!java
Set dir = POpen( [[ "dir", "\"c:\\Archivos de Programa\"" ]] );
WriteLn( dir::output );

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

File:

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

tol/btol/set_type/setgra.cpp

@@ -2796 +2796 @@
           BOperClassify::System_);
 
+#define POPEN
 #ifdef POPEN
 //--------------------------------------------------------------------
@@ -2808 +2809 @@
     int badArg = 0;
     for ( int i = 1; i <= args.Card(); i++ ) {
-      cmd += '"';
       BSyntaxObject* arg  = args[ i ];
       if ( arg->Grammar() != GraText() ) {
@@ -2817 +2817 @@
       }
       const BText &txt = Text( arg );
+          /*
+          char *start = txt.Buffer();
+          char *end ;
+          char *tmp = new char[ txt.Length() ];
+          do {
+                end = start;
+                int bs = 0;
+                while ( *end ) {
+                  if ( !bs && isspace( *end ) ) break;
+                  bs = *end == '\\';
+                  ++end
+                }
+          }
+          while ( *end ) {
+            cmd += strncpy( tmp, start, end - start );
+                cmd += "\\ ";
+                start = end + 1;
+          }
+          delete []tmp;
+          */
       cmd += txt;
-      cmd += "\" ";
+      cmd += " ";
     }
     if ( !badArg ) {
+      //Std( BText( "*** '" ) + cmd + "' ***" );
       FILE* pipe = popen(cmd, "r");
       if ( pipe ) {