• welcome

    About Tonel

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

    About Tonel

    Edgar De Cleene
    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

    日韩在线旡码免费视频

    HoMEպߔƵ