Ticket #1862: _system_patch.tol

//////////////////////////////////////////////////////////////////////////////
// Parche cuando la consola de windows está bloqueada para su uso.
//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////
// Funciones con problemas cuando la consola de windows está bloqueada
/*
  WinSystem
  System
  
  OSCmdWait
  OSCmdNoWait
  OSConWait
  OSConNoWait
  
  OSFilCopy
  OSFilMove
  OSDirMake
  OSDirRemove
  OSDirCopy
  OSDirMove
  
  OSSvnInfo
*/

//////////////////////////////////////////////////////////////////////////////
Real Tcl_System(Text command)
//////////////////////////////////////////////////////////////////////////////
{
  Set tev = Tcl_Eval("exec cmd /c "<<command);
  If(tev[2], {
    If(TextLength(tev[1]), {
      WriteLn(Repeat("-", 78));
      WriteLn(tev[1]);
      WriteLn(Repeat("-", 78));
    1}, 1)
  }, {
    WriteLn(tev[1], "E");
  0})
};
Code PutDescription(Description(Code System), Tcl_System);
Code PutName("System__OLD", System);
Code PutName("System", Tcl_System);
Write(I2(
  "The function  Real System will be hidden by  Real Tcl_System.",
  "La función  Real System será ocultada por  Real Tcl_System."
), "W");

//////////////////////////////////////////////////////////////////////////////
Real Tcl_WinSystem(Text command, Real showMode, Real wait)
//////////////////////////////////////////////////////////////////////////////
{
  Set tev = Tcl_Eval("exec "<<command<<If(wait, "", " &"));
  Real If(showMode, {
    WriteLn("## [WinSystem] Tcl will execute the command, "
      "no console window will be shown.");
  1});
  If(tev[2], {
    Real If(showMode & wait, {
      WriteLn(Repeat("-", 78));
      WriteLn(tev[1]);
      WriteLn(Repeat("-", 78));
    1});
  1}, {
    WriteLn(tev[1], "E");
  0})
};
Code PutDescription(Tokenizer(Description(Code WinSystem), "\n")[1]<<"\n"<<I2(
  "No console window will be shown.\n"
  "When argument 'showMode' is not zero, the output of the command will be shown.", 
  "No se mostrará la ventana de la consola de comandos.\n"
  "Si el argumento 'showMode' no es 0, se mostrará la salida de la ejecución."
), Tcl_WinSystem);
Code PutName("WinSystem__OLD", WinSystem);
Code PutName("WinSystem", Tcl_WinSystem);
Write(I2(
  "The function  Real WinSystem will be hidden by  Real Tcl_WinSystem.\n"
  "  Note that now WinSystem requires exactly three arguments.",
  "La función  Real WinSystem será ocultada por  Real Tcl_WinSystem.\n"
  "  Tenga en cuenta que ahora WinSystem requiere exactamente tres argumentos."
), "W");

//////////////////////////////////////////////////////////////////////////////
Real OSCmdWait(Text order)
//////////////////////////////////////////////////////////////////////////////
{
  Text OSTrace(3,"OSCmdWait("<<order+")"); 
  WinSystem(OSWinCmd+order, 0, 1)
};
Code PutDescription(Description(TolCore::OSCmdWait), OSCmdWait);


//////////////////////////////////////////////////////////////////////////////
Real OSCmdNoWait(Text order)
//////////////////////////////////////////////////////////////////////////////
{
  Text OSTrace(3,"OSCmdNoWait("<<order+")"); 
  WinSystem(OSWinCmd+order, 0, 0)
};
Code PutDescription(Description(TolCore::OSCmdNoWait), OSCmdNoWait);


//////////////////////////////////////////////////////////////////////////////
Real OSConWait(Text order, Real showMode)
//////////////////////////////////////////////////////////////////////////////
{
  Text OSTrace(3,"OSConWait("<<order+")"); 
  WinSystem(OSWinCmd+order, showMode, 1)
};
Code PutDescription(Tokenizer(Description(TolCore::OSConWait), "\n")[1], OSConWait);


//////////////////////////////////////////////////////////////////////////////
Real OSConNoWait(Text order, Real showMode)
//////////////////////////////////////////////////////////////////////////////
{
  Text OSTrace(3,"OSConNoWait("<<order+")"); 
  WinSystem(OSWinCmd+order, showMode, 0)
};
Code PutDescription(Tokenizer(Description(TolCore::OSConNoWait), "\n")[1], OSConNoWait);

//////////////////////////////////////////////////////////////////////////////
Real OSFilCopy(Text source, Text target) 
//////////////////////////////////////////////////////////////////////////////
{
  //! Las rutas de ser relativas se refieren al directorio de trabajo
  Text spath = Replace(GetAbsolutePath(source), "\\", "/");
  Text tpath = Replace(GetAbsolutePath(target), "\\", "/");
  Set eval = Tcl_Eval("file copy -force -- {"<<spath<<"} {"<<tpath<<"}");
  If(eval[2], 1, { Write(eval[1], "E"); 0 })
};
Code PutDescription(Description(TolCore::OSFilCopy), OSFilCopy);

//////////////////////////////////////////////////////////////////////////////
Real OSFilMove(Text source, Text target) 
//////////////////////////////////////////////////////////////////////////////
{
  //! Las rutas de ser relativas se refieren al directorio de trabajo
  Text spath = Replace(GetAbsolutePath(source), "\\", "/");
  Text tpath = Replace(GetAbsolutePath(target), "\\", "/");
  Set eval = Tcl_Eval("file rename {"<<spath<<"} {"<<tpath<<"}");
  If(eval[2], 1, { Write(eval[1], "E"); 0 })
};
Code PutDescription(Description(TolCore::OSFilMove), OSFilMove);

//////////////////////////////////////////////////////////////////////////////
Real OSDirMake(Text directory) 
//////////////////////////////////////////////////////////////////////////////
{
  //! Las rutas de ser relativas se refieren al directorio de trabajo
  Text dpath = Replace(GetAbsolutePath(directory), "\\", "/");
  Set eval = Tcl_Eval("file mkdir {"<<dpath<<"}");
  If(eval[2], 1, { Write(eval[1], "E"); 0 })
};
Code PutDescription(Description(TolCore::OSDirMake), OSDirMake);

//////////////////////////////////////////////////////////////////////////////
Real OSDirRemove(Text directory) 
//////////////////////////////////////////////////////////////////////////////
{
  //! Las rutas de ser relativas se refieren al directorio de trabajo
  Text dpath = Replace(GetAbsolutePath(directory), "\\", "/");
  Set eval = Tcl_Eval("file delete -force -- {"<<dpath<<"}");
  If(eval[2], 1, { Write(eval[1], "E"); 0 })
};
Code PutDescription(Description(TolCore::OSDirRemove), OSDirRemove);

//////////////////////////////////////////////////////////////////////////////
Real OSDirCopy(Text source, Text target) 
//////////////////////////////////////////////////////////////////////////////
{
  //! Las rutas de ser relativas se refieren al directorio de trabajo
  Text spath = Replace(GetAbsolutePath(source), "\\", "/");
  Text tpath = Replace(GetAbsolutePath(target), "\\", "/");
  Set eval = Tcl_Eval("file copy -force -- {"<<spath<<"} {"<<tpath<<"}");
  If(eval[2], 1, { Write(eval[1], "E"); 0 })
};
Code PutDescription(Description(TolCore::OSDirCopy), OSDirCopy);

//////////////////////////////////////////////////////////////////////////////
Real OSDirMove(Text source, Text target) 
//////////////////////////////////////////////////////////////////////////////
{
  //! Las rutas de ser relativas se refieren al directorio de trabajo
  Text spath = Replace(GetAbsolutePath(source), "\\", "/");
  Text tpath = Replace(GetAbsolutePath(target), "\\", "/");
  Set eval = Tcl_Eval("file rename {"<<spath<<"} {"<<tpath<<"}");
  If(eval[2], 1, { Write(eval[1], "E"); 0 })
};
Code PutDescription(Description(TolCore::OSDirMove), OSDirMove);

//////////////////////////////////////////////////////////////////////////////
// Ejemplos:
// Real WinSystem("cmd /c dir", 0, 1);