About Tonel

Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

About Tonel

Edgar J. De Cleene-3
Juan:

Exist any plan for have Tonel in Cuis ?

All:

A toll for convert .st created by
createSources
" Object new createSources"
| unzipped nameToUse zipped dir |
ProtoObject allSubclassesWithLevelDo:[:cl :l|
    dir := self createDirIfnotExists:cl category asString.
   
   
    Cursor write showWhile: [nameToUse :=  cl printString, FileDirectory
dot,'.st'  .
        (dir fileExists: nameToUse) ifFalse:[
            unzipped :=RWBinaryOrTextStream on: ''.
            unzipped header; timeStamp.
     cl  fileOutOn: unzipped moveSource: false toFile: 0.
    unzipped trailer.
   
            unzipped reset.
            zipped := dir newFileNamed: nameToUse.
   
            zipped close.
            unzipped close]]] startingLevel: 0

Thanks in advance.

Edgar
@morplenauta





_______________________________________________
Cuis mailing list
[hidden email]
http://jvuletich.org/mailman/listinfo/cuis_jvuletich.org
Reply | Threaded
Open this post in threaded view
|

Re: About Tonel

Juan Vuletich-4
Hi Edgar,

I'm not aware of anyone working on that. It shouldn't be hard to do though.

Regards,

--
Juan Vuletich
www.cuis-smalltalk.org
https://github.com/Cuis-Smalltalk/Cuis-Smalltalk-Dev
https://github.com/jvuletich
https://www.linkedin.com/in/juan-vuletich-75611b3
@JuanVuletich



On 6/2/2020 9:22 AM, Edgar J. De Cleene wrote:

> Juan:
>
> Exist any plan for have Tonel in Cuis ?
>
> All:
>
> A toll for convert .st created by
> createSources
> " Object new createSources"
> | unzipped nameToUse zipped dir |
> ProtoObject allSubclassesWithLevelDo:[:cl :l|
>      dir := self createDirIfnotExists:cl category asString.
>
>
>      Cursor write showWhile: [nameToUse :=  cl printString, FileDirectory
> dot,'.st'  .
>          (dir fileExists: nameToUse) ifFalse:[
>              unzipped :=RWBinaryOrTextStream on: ''.
>              unzipped header; timeStamp.
>       cl  fileOutOn: unzipped moveSource: false toFile: 0.
>      unzipped trailer.
>
>              unzipped reset.
>              zipped := dir newFileNamed: nameToUse.
>
>              zipped close.
>              unzipped close]]] startingLevel: 0
>
> Thanks in advance.
>
> Edgar
> @morplenauta
>


_______________________________________________
Cuis mailing list
[hidden email]
http://jvuletich.org/mailman/listinfo/cuis_jvuletich.org