Changeset 64f4b50 in tol


Ignore:
Timestamp:
Oct 26, 2008, 7:17:54 PM (18 years ago)
Author:
Víctor de Buen <vdebuen@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
4c93933
Parents:
997c16c
Message:

Using built-in FileCat

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tol/stdlib/general/system/_system.tol

    r997c16c r64f4b50  
    404404  Text call = "OSFilCat("<<oldFiles+","+newFil+")";
    405405  Text OSTrace(3,call);
    406   Real ok = OSCmdWait(If(OSUnix,
    407   {
    408     "cat"+SetSum(For(1,Card(oldFiles),Text(Real k)
    409     {
    410       " "+OSPathQt(oldFiles[k])
    411     }))+" > "+OSPathQt(newFil)
    412   },
    413   {
    414     "copy "+SetSum(For(1,Card(oldFiles),Text(Real k)
    415     {
    416       If(k==1,"","+")+OSPathQt(oldFiles[k])
    417     }))+" "+OSPathQt(newFil)
    418   }));
     406  Real ok = FileCat(oldFiles, newFil);
    419407  OSShowErr(ok,call)
    420408};
Note: See TracChangeset for help on using the changeset viewer.