From edgardec2005 at gmail.com Tue Jun 2 07:22:39 2020 From: edgardec2005 at gmail.com (Edgar J. De Cleene) Date: Tue, 02 Jun 2020 09:22:39 -0300 Subject: [Cuis] About Tonel Message-ID: 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 From juan at jvuletich.org Tue Jun 2 15:01:38 2020 From: juan at jvuletich.org (Juan Vuletich) Date: Tue, 02 Jun 2020 17:01:38 -0300 Subject: [Cuis] About Tonel In-Reply-To: References: Message-ID: <5ED6B022.1070407@jvuletich.org> 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 > From edgardec2005 at gmail.com Tue Jun 2 07:22:39 2020 From: edgardec2005 at gmail.com (Edgar J. De Cleene) Date: Tue, 02 Jun 2020 09:22:39 -0300 Subject: [Cuis] About Tonel Message-ID: 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 From juan at jvuletich.org Tue Jun 2 15:01:38 2020 From: juan at jvuletich.org (Juan Vuletich) Date: Tue, 02 Jun 2020 17:01:38 -0300 Subject: [Cuis] About Tonel In-Reply-To: References: Message-ID: <5ED6B022.1070407@jvuletich.org> 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 > From edgardec2005 at gmail.com Tue Jun 2 07:22:39 2020 From: edgardec2005 at gmail.com (Edgar J. De Cleene) Date: Tue, 02 Jun 2020 09:22:39 -0300 Subject: [Cuis] About Tonel Message-ID: 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 From juan at jvuletich.org Tue Jun 2 15:01:38 2020 From: juan at jvuletich.org (Juan Vuletich) Date: Tue, 02 Jun 2020 17:01:38 -0300 Subject: [Cuis] About Tonel In-Reply-To: References: Message-ID: <5ED6B022.1070407@jvuletich.org> 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 >