equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2018 by eXept Software AG |
2 COPYRIGHT (c) 2018 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
1018 (OSProcess new |
1016 (OSProcess new |
1019 command:(cmd := 'r --silent --vanilla --slave -f %1' bindWith:scriptFile); |
1017 command:(cmd := 'r --silent --vanilla --slave -f %1' bindWith:scriptFile); |
1020 errorStream:err; |
1018 errorStream:err; |
1021 execute |
1019 execute |
1022 ) ifFalse:[ |
1020 ) ifFalse:[ |
1023 self error:('cannot execute r:' bindWith: err contents) |
1021 self error:('cannot execute err: %1' bindWith: err contents) |
1024 ]. |
1022 ]. |
1025 |
1023 |
1026 "/ self halt. |
1024 "/ self halt. |
1027 "/ outFile asFilename exists. |
1025 "/ outFile asFilename exists. |
1028 ((Smalltalk classNamed:#Image) fromFile:outFile asFilename) inspect. |
1026 ((Smalltalk classNamed:#Image) fromFile:outFile asFilename) inspect. |