Hi

2017-11-08 21:53 GMT+01:00 Stephane Ducasse <[email protected]>:

> It looks like the problem is here but I cannot find it.
>
> CodeExporter>> writeSourceCodeFrom: aStream baseName: baseName isSt:
> stOrCsFlag
>
> | extension fileName  outputStream |
> self halt.
> extension := stOrCsFlag ifTrue: ['.st']  ifFalse: ['.cs'].
> fileName := baseName, extension.
> fileName := FileSystem disk checkName: fileName fixErrors: true.
> outputStream := (File named: fileName) writeStream.
> (ZnCrPortableWriteStream on: (ZnCharacterWriteStream
> on: outputStream
> encoding: 'utf8')) nextPutAll: aStream contents.
>
> outputStream close.
>
> self inform: 'Filed out to: ', String cr, fileName.


Try rewrite code to FileSystem. I think we should never use File directly:

extension := stOrCsFlag ifTrue: ['st']  ifFalse: ['cs'].
FileLocator home / baseName , extension writeStreamDo: [:s |

(ZnCrPortableWriteStream on: (ZnCharacterWriteStream

on: s

encoding: 'utf8')) nextPutAll: aStream contents].

We should choose what to use instead of #home in that case.

I wondering does File is actually used by FileSystem? Should not we remove
it from system?


>
> On Wed, Nov 8, 2017 at 9:38 PM, Stephane Ducasse
> <[email protected]> wrote:
> > Ah thanks we should fix this.
> >
> > On Wed, Nov 8, 2017 at 9:31 PM, Christian Kellermann
> > <[email protected]> wrote:
> >> * Stephane Ducasse <[email protected]> [171108 21:29]:
> >>> Hi
> >>>
> >>> I'm trying to rescue some of my work (that I cannot save in MC nor in
> >>> Iceberg because the system
> >>> does not see it - super funny).
> >>>
> >>> I can browse the change using the changesorter when I do fileout
> >>> the system tells me that the file it saved but I cannot find it on my
> disc.
> >>> Apparently none of the fileout is working in the changesorter. :(
> >>
> >> I have successfully filed out code with epicea but not changesorter.
> >>
> >> HTH,
> >>
> >> Christian
> >>
> >> --
> >> May you be peaceful, may you live in safety, may you be free from
> >> suffering, and may you live with ease.
> >>
>
>

Reply via email to