File Out to Stream

> These should give you some ideas. The first method streams a fileout  
> that shows the progress dialog that you want to get rid of. It should be  
> easy to trim the Notice code to leave just the streaming code.
>
> createClientFileout
>         | fileName stream pundle |
>         pundle := self clientBundleModel.
>         fileName := self artifactDirectoryName, pundle name , '.st'.
>         stream := SourceCodeStream write: fileName.
>         [Notice
>                 showNotice: ((#FilingOut1s << #packages >> 'Filing out  
> <1s>')
>                         expandMacrosWith: pundle name)
>                 complete: pundle itemCount
>                 while:
>                         [stream timeStamp.
>                         stream deferInitializations.
>                         pundle fileOutOn: stream.
>                         stream finishInitializations]
>                 title: (#Store << #packages >> 'Store')]
>                                 ensure: [stream close]
>
>
> Fileouts are so old-school. If you care to use parcels then this will  
> give a start.
>
>
> produceParcelForPundle: pundle
>         | options filename |
>         options := Dictionary new
>                 at: #bundleStructure put:  true;
>                 at: #databaseLinks put:  false;
>                 at: #parcelBackup put:  false;
>                 at: #parcelDirectory put:  self artifactDirectoryName,  
> pundle name;
>                 at: #parcelHideSource put:  false;
>                 at: #parcelOverwrite put:  true;
>                 at: #parcelPadded put:  true;
>                 at: #parcelRepublish put:  false;
>                 at: #parcelSave put:  true;
>                 at: #parcelSaveSource put:  true;
>                 yourself.
>         filename := (options at: #parcelDirectory) asFilename.
>         pundle
>                 saveAsParcel: filename
>                 saveStructure: (options at: #bundleStructure)
>                 saveLinks: (options at: #databaseLinks)
>                 parcelOptions: options.
>
>
> Paul Baumann
>
>
>
> -----Original Message-----
> From: [hidden email] [mailto:[hidden email]] On  
> Behalf Of Steffen Märcker
> Sent: Thursday, April 08, 2010 11:05 AM
> To: vwnc
> Subject: [vwnc] File Out to Stream
>
> Hi,
>
> is there a way to file out packages to a stream, e.g. String new  
> writeStream? I'd also like to get rid of the progress window usually  
> showing up during file outs.
>
> Thanks in advance,
> Steffen
> _______________________________________________
> vwnc mailing list
> [hidden email]
> http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
>
>
> This message may contain confidential information and is intended for  
> specific recipients unless explicitly noted otherwise. If you have  
> reason to believe you are not an intended recipient of this message,  
> please delete it and notify the sender. This message may not represent  
> the opinion of IntercontinentalExchange, Inc. (ICE), its subsidiaries or  
> affiliates, and does not constitute a contract or guarantee. Unencrypted  
> electronic mail is not secure and the recipient of this message is  
> expected to provide safeguards from viruses and pursue alternate means  
> of communication where privacy or a binding message is desired.
>