Nabble - Smalltalk

Re: [squeak-dev] Re: [Squeak-dev Images] About the different flavors

2008-07-04T02:47:25Z

El 7/3/08 8:37 PM, "Rob Rothwell" <r.j.rothwell@...> escribió:

> Where, by the way, can I get that from? I miss the animated mouse head! Do I
> have to go get an old image and find the class?
>
> Rob

Read http://wiki.squeak.org/squeak/6056

Edgar

From forum: Squeak - Dev

Re: Totally dumbfounded!!

2008-07-04T01:05:18Z

On Fri, 4 Jul 2008 14:04:52 +0800
Stephen Ng <stephen.ng@...> wrote:

> Hi everyone,
>
> First off, I am really new to smalltalk. I have tons of experience
> with languages like C but have never made the move to OO type languages.
>
> Secondly, I've been reading up as much as I can on OO concepts and
> perhaps I can say that I feel comfortable with smalltalk syntax. My
> question is how does one start learning about the MVC or Morphic
> interfaces in order to use smalltalk in writing programs that make use
> of lots of windows with text fields etc like in traditional business
> systems? I cannot seem to find complete info on these topics. Many
> tutorials just spend lots of time painting pretty lines and patterns
> and fall short of showing someone like me how best to use the MVC,
> Graphics-* or Morphic-* class categories and their classes. I
> understand Morphic is the new wave as far as Squeak is concerned and I
> would be just as happy to use it. However, all the literature on the
> web is really disparate and does not approach the subject in a
> holistic way. I've even tried looking at the classes themselves in the
> Browser but the whole thing just gets very confusing.
>
> I'd appreciate it if anyone can provide some pointers, direction,
> literature (up to date with Squeak) etc.

Hi Stephen.

Welcome to the community!

For traditional business programs in Squeak, I think that Morphic is the hard way to do it. I tried, made a bit of progress but then gave up in disgust.

What I recommend is that you start from our documentation page - http://www.squeak.org/Documentation/. The book to read is "Squeak By Example".

For business information system development, I'd recommend getting in to web development using Seaside: http://www.seaside.st/. Your applications in this environment will look a lot more professional than they would in Morphic.

And do ask questions here, or join us on the IRC channel on freenode.net, #squeak. Often there are people there :-).

Gulik.

--
Michael van der Gulik <mikevdg@...>
_______________________________________________
Beginners mailing list
Beginners@...
http://lists.squeakfoundation.org/mailman/listinfo/beginners

From forum: Squeak - Beginners

Re: [squeak-dev] back to the original question: cpan-like system for squeak?

2008-07-04T00:20:51Z

On Thu, 2008-07-03 at 21:54 +0200, Claus Kick wrote:

> Keith Hodges wrote:
> >>
> > Having tried Hg, I have found Bzr to be preferable.
> >
> > Hg doesnt have a lightweight checkout, Bzr does. i.e. you can deploy the
> > latest, without the whole history.
> >
> > I have setup a public (ish) bzr server at bzr.warwick.st with 160Gb of
> > space. We will be using this for managing and distributing the results
> > of automated image builds in the near future.
>
> Just trying to bring everything back to the core question:
> What about having something like CPAN (with a CPAN installer) for Squeak?
>
> I am trying to follow the discussions, but to me it seems as if this
> central question is not really discussed.
>
> Instead, there are interesting topics, like Squeak-To-SVN,
> advantages/disadvantages of other Versioning Tools (whose names I have
> not even heard, was in ENVY/Manager, SVN and ClearCase land too long it
> seems), nameing and so on...
>

> What about the central question?
> What about having something like CPAN (with a CPAN installer) for Squeak?
>
What makes you think CPAN is a good solution or appropriate for squeak?
For me CPAN means a lot of things. Maybe you should go into detail about
it to show the good things that would be valuable for squeak.

I personally read a lot of good points in the discussion what could be
appropriate for squeak. Especially the tension not to build another tool
but to enhance/migrate the existing ones.

Norbert

From forum: Squeak - Dev

[squeak-dev] Re: Joshua Gargus?

2008-07-04T00:14:59Z

Joshua Gargus a écrit :
> Well, it's not like I dropped off the planet (I did post earlier
> today). What can I do for you?
>
> (BTW, I tried to update SqueakMap years ago, but my email was invalid
> and I forgot my password, so I didn't bother... who's in charge of
> SqueakMap these days?)

You can also publish your software on SqueakSource.

--
Serge Stinckwich
http://blog.doesnotunderstand.org/

From forum: Squeak - Dev

Totally dumbfounded!!

2008-07-03T23:04:52Z

Hi everyone,

First off, I am really new to smalltalk. I have tons of experience
with languages like C but have never made the move to OO type languages.

Secondly, I've been reading up as much as I can on OO concepts and
perhaps I can say that I feel comfortable with smalltalk syntax. My
question is how does one start learning about the MVC or Morphic
interfaces in order to use smalltalk in writing programs that make use
of lots of windows with text fields etc like in traditional business
systems? I cannot seem to find complete info on these topics. Many
tutorials just spend lots of time painting pretty lines and patterns
and fall short of showing someone like me how best to use the MVC,
Graphics-* or Morphic-* class categories and their classes. I
understand Morphic is the new wave as far as Squeak is concerned and I
would be just as happy to use it. However, all the literature on the
web is really disparate and does not approach the subject in a
holistic way. I've even tried looking at the classes themselves in the
Browser but the whole thing just gets very confusing.

I'd appreciate it if anyone can provide some pointers, direction,
literature (up to date with Squeak) etc.

Thanks in advance.

Stephen
_______________________________________________
Beginners mailing list
Beginners@...
http://lists.squeakfoundation.org/mailman/listinfo/beginners

From forum: Squeak - Beginners

Re: [squeak-dev] Re: [Squeak-dev Images] About the different flavors

2008-07-03T22:32:28Z

Hello Stéphane,

without quoting anything particular from your post, it expresses some
of my feelings about Squeak.

Thanks for raising your voice.

Cheers,

Herbert

From forum: Squeak - Dev

Re: [vwnc] RBSUnitExtensions for VW7.6...?

2008-07-03T22:25:20Z

Nevermind.. I found the version from the installation directory which
apparently is newer than
the version on the public store.. Anyway, it loaded fine.. I'll try it
out.. Sorry..

-- Rick

_______________________________________________
vwnc mailing list
vwnc@...
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

From forum: VisualWorks

[vwnc] RBSUnitExtensions for VW7.6...?

2008-07-03T22:16:48Z

I am working on a few unit tests again and found that I was missing
the RBSUnitExtensions package that I was using with 7.5.. Anyway, I
tried loading the latest version (7.5 CS11.NFR.5) and it doesn't load
properly.. Is there a version that works or something else that adds a
run-test sort of feature to the browser in 7.6? Thanks!

By the way, below is the error I get when loading the
RBSUnitExtensions package in 7.6:

Unhandled exception: BlockClosure [] in Object>>doesNotUnderstand:
Refactory
.Browser.SUnitCodeToolSelectionPolicy(Object)>>doesNotUnderstand:
Refactory.Browser.SUnitCodeToolSelectionPolicy>>replaceSameNamePolicy
optimized [] in Refactory.Browser.SUnitCodeToolSelectionPolicy
class>>addSelectionPolicy
Array(ArrayedCollection)>>detect:ifNone:
Refactory.Browser.SUnitCodeToolSelectionPolicy class>>addSelectionPolicy
Refactory.Browser.SUnitCodeToolSelectionPolicy class>>initialize
Refactory.Browser.SUnitCodeToolSelectionPolicy
class(ClassDescription)>>postLoad:
optimized [] in Store.Package>>initializeClasses:
optimized [] in OrderedCollection>>collect:
OrderedCollection>>do:
OrderedCollection>>collect:
Store.Package>>initializeClasses:
Store.Package>>doSourceLoad:within:
optimized [] in [] in [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
optimized [] in [] in [] in Notice
class>>showProgress:complete:while:title:
BlockClosure>>ensure:
Cursor>>showWhile:
optimized [] in [] in Notice class>>showProgress:complete:while:title:
BlockClosure>>on:do:
optimized [] in Notice class>>showProgress:complete:while:title:
BlockClosure>>ensure:
Notice class>>showProgress:complete:while:title:
optimized [] in [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
optimized [] in Store.XMainChangeSet class>>ignoreMainChangesWhile:
BlockClosure>>ensure:
Store.XMainChangeSet class>>ignoreMainChangesWhile:
optimized [] in Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
optimized [] in Store.BasicPackagePolicy>>forcePackage:while:
BlockClosure>>ensure:
Store.BasicPackagePolicy>>forcePackage:while:
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
Store.Package>>loadWithin:useBinIfAvailable:warnReplace:
Store.Package>>loadSrcWithin:warnReplace:
optimized [] in Store.Package>>loadSrc
BlockClosure>>on:do:
Store.Package>>loadSrc
Store.Package(Store.Pundle)>>loadSrcWithImgPundle:
[] in Store.VersionBrowser(Store.AbstractTool)>>loadPundle
OrderedCollection>>do:
Store.VersionBrowser(Store.AbstractTool)>>loadPundle
Store.MultiSequenceController(SequenceController)>>dispatchMenuSymbol:
Store
.MultiSequenceController(SequenceController)>>dispatchMenuSelection:
Store
.MultiSequenceController(ControllerWithMenu)>>processMenu:at:centered:
Store
.MultiSequenceController(ControllerWithMenu)>>processMenuAt:centered:
Store
.MultiSequenceController(ControllerWithMenu)>>yellowButtonPressedEvent:
Store
.MultiSequenceController(SequenceController)>>yellowButtonPressedEvent:
YellowButtonPressedEvent>>dispatchTo:
Store.MultiSequenceController(ControllerWithMenu)>>handleEvent:
EventDispatcher>>dispatch:to:
EventDispatcher>>dispatchEvent:
YellowButtonPressedEvent(Event)>>dispatch
YellowButtonPressedEvent(Event)>>dispatchForWindowManager:
optimized [] in WindowManager>>safelyDispatchForWindowManager:
BlockClosure>>on:do:
WindowManager>>safelyDispatchForWindowManager:
WindowManager>>processNextEvent
optimized [] in [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in Process class>>forBlock:priority:

----------------------------------------------------------------------
Refactory
.Browser.SUnitCodeToolSelectionPolicy(Object)>>doesNotUnderstand:
Receiver:
a Refactory.Browser.SUnitCodeToolSelectionPolicy
Instance Variables:
codeModel = nil
sourceSelectionPolicy = nil
Arguments:
aMessage = a Message with selector: #replaceSameNamePolicy and
arguments: #()
Temporaries:
excpt = a MessageNotUnderstood
resumeValue = nil
Context PC = 25

----------------------------------------------------------------------
Refactory.Browser.SUnitCodeToolSelectionPolicy>>replaceSameNamePolicy
Receiver:
a Refactory.Browser.SUnitCodeToolSelectionPolicy
Instance Variables:
codeModel = nil
sourceSelectionPolicy = nil
Context PC = 5

----------------------------------------------------------------------
optimized [] in Refactory.Browser.SUnitCodeToolSelectionPolicy
class>>addSelectionPolicy
Receiver:
an UndefinedObject
Temporaries:
.inst = a Refactory.Browser.SUnitCodeToolSelectionPolicy
Context PC = 6

----------------------------------------------------------------------
Array(ArrayedCollection)>>detect:ifNone:
Receiver:
an Array
Arguments:
aBlock = BlockClosure [] in
Refactory.Browser.SUnitCodeToolSelectionPolicy class>>addSelectionPolicy
exceptionBlock = BlockClosure [] in
Refactory.Browser.SUnitCodeToolSelectionPolicy class>>addSelectionPolicy
Temporaries:
i = 1
each = nil
Context PC = 31

----------------------------------------------------------------------
Refactory.Browser.SUnitCodeToolSelectionPolicy class>>addSelectionPolicy
Receiver:
a Refactory.Browser.SUnitCodeToolSelectionPolicy class
Instance Variables:
superclass = Refactory.Browser.CodeToolSelectionPolicy
methodDict = a MethodDictionary[10]
format = 16386
subclasses = nil
instanceVariables = an Array[1]
organization = ('initialize-release' #for:)
('accessing' #categoryIncludesTest: #codeComponentIncludesTest:
#hasTestsSelected #name #toolClass)
('copying' #postCopy)
('converting' #replaceSameNamePolicy #unwrapWrappedPolicy
#wrappedPolicy)

name = #SUnitCodeToolSelectionPolicy
classPool = a NameSpaceOfClass[0]
environment = a NameSpace[267]
Temporaries:
inst = a Refactory.Browser.SUnitCodeToolSelectionPolicy
Context PC = 17

----------------------------------------------------------------------
Refactory.Browser.SUnitCodeToolSelectionPolicy class>>initialize
Receiver:
a Refactory.Browser.SUnitCodeToolSelectionPolicy class
Instance Variables:
superclass = Refactory.Browser.CodeToolSelectionPolicy
methodDict = a MethodDictionary[10]
format = 16386
subclasses = nil
instanceVariables = an Array[1]
organization = ('initialize-release' #for:)
('accessing' #categoryIncludesTest: #codeComponentIncludesTest:
#hasTestsSelected #name #toolClass)
('copying' #postCopy)
('converting' #replaceSameNamePolicy #unwrapWrappedPolicy
#wrappedPolicy)

name = #SUnitCodeToolSelectionPolicy
classPool = a NameSpaceOfClass[0]
environment = a NameSpace[267]
Context PC = 16

----------------------------------------------------------------------
Refactory.Browser.SUnitCodeToolSelectionPolicy
class(ClassDescription)>>postLoad:
Receiver:
a Refactory.Browser.SUnitCodeToolSelectionPolicy class
Instance Variables:
superclass = Refactory.Browser.CodeToolSelectionPolicy
methodDict = a MethodDictionary[10]
format = 16386
subclasses = nil
instanceVariables = an Array[1]
organization = ('initialize-release' #for:)
('accessing' #categoryIncludesTest: #codeComponentIncludesTest:
#hasTestsSelected #name #toolClass)
('copying' #postCopy)
('converting' #replaceSameNamePolicy #unwrapWrappedPolicy
#wrappedPolicy)

name = #SUnitCodeToolSelectionPolicy
classPool = a NameSpaceOfClass[0]
environment = a NameSpace[267]
Arguments:
aParcel = {'RBSUnitExtensions'-'7.5 CS11.NFR.5'-25080}
Context PC = 10

----------------------------------------------------------------------
optimized [] in Store.Package>>initializeClasses:
Receiver:
an UndefinedObject
Arguments:
cls = ClassRecord{74484-SUnitCodeToolSelectionPolicy}
Temporaries:
obj = Refactory.Browser.SUnitCodeToolSelectionPolicy
.super = {'RBSUnitExtensions'-'7.5 CS11.NFR.5'-25080}
Context PC = 14

----------------------------------------------------------------------
optimized [] in OrderedCollection>>collect:
Receiver:
an UndefinedObject
Arguments:
each = ClassRecord{74484-SUnitCodeToolSelectionPolicy}
Temporaries:
.newCollection = an OrderedCollection[0]
.aBlock = BlockClosure [] in Store.Package>>initializeClasses:
Context PC = 7

----------------------------------------------------------------------
OrderedCollection>>do:
Receiver:
an OrderedCollection
Instance Variables:
firstIndex = 1
lastIndex = 2
Arguments:
aBlock = BlockClosure [] in OrderedCollection>>collect:
Temporaries:
index = 1
Context PC = 17

----------------------------------------------------------------------
OrderedCollection>>collect:
Receiver:
an OrderedCollection
Instance Variables:
firstIndex = 1
lastIndex = 2
Arguments:
aBlock = BlockClosure [] in Store.Package>>initializeClasses:
Temporaries:
newCollection = an OrderedCollection[0]
Context PC = 16

----------------------------------------------------------------------
Store.Package>>initializeClasses:
Receiver:
a Store.Package
Instance Variables:
primaryKey = 25080
name = 'RBSUnitExtensions'
timeStamp = 436420285
version = '7.5 CS11.NFR.5'
userName = 'niallr'
trace = 25079
dbIdentifier = #psql_public_cst_2007
blessingLevel = 70
commentID = 779943
propertiesID = 779908
properties = an IdentityDictionary[7]
propertyRecords = an OrderedCollection[7]
commentStr = 'This package adds an extensio... test case from the
browser.'
namespaces = an OrderedCollection[0]
classes = an OrderedCollection[2]
metaclasses = nil
methods = an OrderedCollection[66]
binFile = ''
data = an OrderedCollection[1]
overrides = nil
parcelID = nil
Arguments:
dbClasses = an OrderedCollection[2]
Temporaries:
toPostLoad = nil
toInit = nil
Context PC = 8

----------------------------------------------------------------------
Store.Package>>doSourceLoad:within:
Receiver:
a Store.Package
Instance Variables:
primaryKey = 25080
name = 'RBSUnitExtensions'
timeStamp = 436420285
version = '7.5 CS11.NFR.5'
userName = 'niallr'
trace = 25079
dbIdentifier = #psql_public_cst_2007
blessingLevel = 70
commentID = 779943
propertiesID = 779908
properties = an IdentityDictionary[7]
propertyRecords = an OrderedCollection[7]
commentStr = 'This package adds an extensio... test case from the
browser.'
namespaces = an OrderedCollection[0]
classes = an OrderedCollection[2]
metaclasses = nil
methods = an OrderedCollection[66]
binFile = ''
data = an OrderedCollection[1]
overrides = nil
parcelID = nil
Arguments:
imPkg = [RBSUnitExtensions]
parentBundle = nil
Temporaries:
dbClasses = an OrderedCollection[2]
dbNamespaces = an OrderedCollection[0]
retry = an OrderedCollection[0]
unloadable = an OrderedCollection[0]
Context PC = 51

----------------------------------------------------------------------
optimized [] in [] in [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
Receiver:
an UndefinedObject
Temporaries:
.super = {'RBSUnitExtensions'-'7.5 CS11.NFR.5'-25080}
.imPkg = [RBSUnitExtensions]
.parentBundle = nil
Context PC = 8

----------------------------------------------------------------------
optimized [] in [] in [] in Notice
class>>showProgress:complete:while:title:
Receiver:
an UndefinedObject
Temporaries:
.aBlock = BlockClosure [] in [] in [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
res = nil
newValue = 1.02899
Context PC = 5

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in [] in [] in Notice
class>>showProgress:complete:while:title:
outerContext = nil
copiedValues = an Array[2]
Arguments:
aBlock = BlockClosure [] in Cursor>>showWhile:
Temporaries:
result = nil
Context PC = 4

----------------------------------------------------------------------
Cursor>>showWhile:
Receiver:
a Cursor
Instance Variables:
errorCode = 0
handle = a ByteArray[4]
image = Depth1Image(extent: 16@16 depth: 1)
mask = Depth1Image(extent: 16@16 depth: 1)
hotSpot = 0@0
name = 'wait'
Arguments:
aBlock = BlockClosure [] in [] in [] in Notice
class>>showProgress:complete:while:title:
Temporaries:
oldcursor = Cursor normal
Context PC = 23

----------------------------------------------------------------------
optimized [] in [] in Notice class>>showProgress:complete:while:title:
Receiver:
an UndefinedObject
Temporaries:
.aBlock = BlockClosure [] in [] in [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
res = nil
newValue = 1.02899
Context PC = 13

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in [] in Notice
class>>showProgress:complete:while:title:
outerContext = nil
copiedValues = an Array[2]
Arguments:
anExceptionSelector = IncrementNotification
handlerBlock = BlockClosure [] in [] in Notice
class>>showProgress:complete:while:title:
Context PC = 18

----------------------------------------------------------------------
optimized [] in Notice class>>showProgress:complete:while:title:
Receiver:
an UndefinedObject
Temporaries:
.aBlock = BlockClosure [] in [] in [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
res = nil
newValue = 1.02899
.noticeModel = a Notice
.progress = a ValueHolder on: 1.02899
.increment = 0.0144928
.title = 'Store : <1s>%% done'
Context PC = 19

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in Notice
class>>showProgress:complete:while:title:
outerContext = nil
copiedValues = an Array[6]
Arguments:
aBlock = BlockClosure [] in Notice
class>>showProgress:complete:while:title:
Temporaries:
result = nil
Context PC = 4

----------------------------------------------------------------------
Notice class>>showProgress:complete:while:title:
Receiver:
a Notice class
Instance Variables:
superclass = ApplicationModel
methodDict = a MethodDictionary[9]
format = 16390
subclasses = nil
instanceVariables = an Array[2]
organization = ('interface opening' #postOpenWith:)
('aspects' #message: #notice #show: #textView)
('updating' #changedMessages)
('private' #invokePostOpen #on:)
('interface closing' #requestForWindowClose)

name = #Notice
classPool = a NameSpaceOfClass[0]
environment = a NameSpace[582]
savedWindowInformation = an IdentityDictionary[3]
Arguments:
aString = 'Loading package RBSUnitExtensions(7.5 CS11.NFR.5,niallr)'
anInteger = 69
aBlock = BlockClosure [] in [] in [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
titleString = an UserMessage('Store', #Store, #store)
Temporaries:
noticeModel = a Notice
int = 69
increment = 0.0144928
progress = a ValueHolder on: 1.02899
res = nil
title = 'Store : <1s>%% done'
newValue = 1.02899
Context PC = 123

----------------------------------------------------------------------
optimized [] in [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
Receiver:
an UndefinedObject
Temporaries:
.imPkg = [RBSUnitExtensions]
.parentBundle = nil
.super = {'RBSUnitExtensions'-'7.5 CS11.NFR.5'-25080}
loadRes = nil
Context PC = 40

----------------------------------------------------------------------
optimized [] in Store.XMainChangeSet class>>ignoreMainChangesWhile:
Receiver:
an UndefinedObject
Temporaries:
.aBlock = BlockClosure [] in [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
Context PC = 9

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in Store.XMainChangeSet
class>>ignoreMainChangesWhile:
outerContext = nil
copiedValues = BlockClosure [] in [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
Arguments:
aBlock = BlockClosure [] in Store.XMainChangeSet
class>>ignoreMainChangesWhile:
Temporaries:
result = nil
Context PC = 4

----------------------------------------------------------------------
Store.XMainChangeSet class>>ignoreMainChangesWhile:
Receiver:
a Store.XMainChangeSet class
Instance Variables:
superclass = Store.XChangeSet
methodDict = a MethodDictionary[108]
format = 20486
subclasses = nil
instanceVariables = an Array[2]
organization = ('public-method changes' #addSelector:class:toPackage:
#changeSelector:class:toPackage: #correctSelector:class:toPackage:
#removeSelector:class: #removeSelector:class:fromPackage:
#removeSelectorChanges:class: #revertData:owner: #revertSelector:class:)
('public-data changes' #addDataKey:class:package:
#addDataKey:nameSpace:package: #changeDataKey:class:
#changeDataKey:class:package: #changeDataKey:nameSpace:
#changeDataKey:nameSpace:package: #relocateBinding:from:to:
#removeBinding:in: #removeChangesDataKey:class: #removeDataKey:class:
#removeDataKey:class:from: #removeDataKey:nameSpace:
#removeDataKey:nameSpace:from: #renameBinding:in:as:)
('public-fileIn/Out' #putStatsOn:)
('public-other changes' #addDoIt: #addPatch: #removeDoIt:
#reorganizeClassData: #reorganizeSystem)
('public-testing' #isEmpty #isMainChangeSet)
('public-package movement' #moveClassDefinition:from:toPackage:
#moveClassDefinition:toPackage: #moveClassModel:to:
#moveClassName:from:to: #moveDataKey:class:toPackage:
#moveDataKey:nameSpace:toPackage: #moveDataKey:owner:toPackage:
#moveDefinition:toPackage: #moveNameSpaceDefinition:from:toPackage:
#moveNameSpaceDefinition:toPackage: #moveNameSpaceModel:to:
#moveObject:from:to: #moveSelector:class:fromPackage:
#moveSelector:class:toPackage: #moveSelectors:class:toPackage:
#moveUnpackagedClassDefinition:toPackage:
#moveUnpackagedDataKey:nameSpace:toPackage:
#moveUnpackagedInWholeClass:toPackage:
#moveUnpackagedInWholeNameSpace:toPackage:
#moveUnpackagedNameSpaceDefinition:toPackage:
#moveUnpackagedSelector:class:toPackage: #moveWholeClass:toPackage:
#moveWholeNameSpace:toPackage: #moveWholeObject:toPackage:)
('events' #addBinding:in: #addBinding:in:attributes: #addClass:
#addClass:attributes: #addNameSpace: #addNameSpace:attributes:
#addSelector:class: #addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #packageFromAttributes:
#reorganizeClass: #update:with:from:)
('public-namespace changes' #addNameSpace:toPackage:
#addNameSpaceDefinition:toPackage: #changeNameSpace:toPackage:
#commentNameSpace: #component:property:value: #component:renamedTo:
#relocateNameSpace:from:to: #removeNameSpace: #renameNameSpace:as:
#reorganizeNameSpace:)
('public-class changes' #addClass:toPackage:
#addClassDefinition:toPackage: #changeClass:toPackage:
#changeDefinitionClass: #commentClass: #relocateClass:from:to:
#removeChangesPropagatingClass: #removeClass: #removeClass:from:
#removeClassChanges: #renameClass:as:)
('private- cascade changes' #cascadeRelocateNameSpace:to:
#renameClass:asAbsoluteSymbol: #renameNameSpace:asAbsoluteSymbol:)
('private-fileIn/Out' #fileOutSpecialOn:)
('events-parcels' #installedClasses:toPackage:
#installedMethods:toPackage: #installedNameSpaces:toPackage:
#installedOverrideMethods:toPackage:)
('db phantoms' #addRemoveClass:package: #addRemoveNameSpace:package:
#addRemoveSelector:className:meta:package:
#addRemoveStatic:ownerName:isInNameSpace:package:)

name = #XMainChangeSet
classPool = a NameSpaceOfClass[0]
environment = a NameSpace[255]
Arguments:
aBlock = BlockClosure [] in [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
Temporaries:
currentCS = a Store.XMainChangeSet[2033]
Context PC = 15

----------------------------------------------------------------------
optimized [] in Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
Receiver:
an UndefinedObject
Temporaries:
.imPkg = [RBSUnitExtensions]
.parentBundle = nil
.super = {'RBSUnitExtensions'-'7.5 CS11.NFR.5'-25080}
loadRes = nil
Context PC = 12

----------------------------------------------------------------------
optimized [] in Store.BasicPackagePolicy>>forcePackage:while:
Receiver:
an UndefinedObject
Temporaries:
.aPackage = [RBSUnitExtensions]
.super = a Store.BasicPackagePolicy
.aBlock = BlockClosure [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
retVal = nil
Context PC = 8

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in
Store.BasicPackagePolicy>>forcePackage:while:
outerContext = nil
copiedValues = an Array[4]
Arguments:
aBlock = BlockClosure [] in
Store.BasicPackagePolicy>>forcePackage:while:
Temporaries:
result = nil
Context PC = 4

----------------------------------------------------------------------
Store.BasicPackagePolicy>>forcePackage:while:
Receiver:
a Store.BasicPackagePolicy
Instance Variables:
alwaysUse = [RBSUnitExtensions]
newClassUseCurrent = true
newNameSpaceUseCurrent = nil
newMethodUseCurrent = true
newMethodUseClassIfNoCurrent = nil
newMethodUseClassIfCurrentSame = false
newMethodUseClass = true
newDatumUseCurrent = true
newDatumUseClassIfNoCurrent = nil
newDatumUseClassIfCurrentSame = nil
newDatumUseClass = true
warnOnFirstModification = nil
Arguments:
aPackage = [RBSUnitExtensions]
aBlock = BlockClosure [] in
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
Temporaries:
old = nil
retVal = nil
Context PC = 20

----------------------------------------------------------------------
Store.Package>>sourceLoadFromDBloadWithin:warnReplace:
Receiver:
a Store.Package
Instance Variables:
primaryKey = 25080
name = 'RBSUnitExtensions'
timeStamp = 436420285
version = '7.5 CS11.NFR.5'
userName = 'niallr'
trace = 25079
dbIdentifier = #psql_public_cst_2007
blessingLevel = 70
commentID = 779943
propertiesID = 779908
properties = an IdentityDictionary[7]
propertyRecords = an OrderedCollection[7]
commentStr = 'This package adds an extensio... test case from the
browser.'
namespaces = an OrderedCollection[0]
classes = an OrderedCollection[2]
metaclasses = nil
methods = an OrderedCollection[66]
binFile = ''
data = an OrderedCollection[1]
overrides = nil
parcelID = nil
Arguments:
parentBundle = nil
warnReplace = true
Temporaries:
imPkg = [RBSUnitExtensions]
loadRes = nil
Context PC = 34

----------------------------------------------------------------------
Store.Package>>loadWithin:useBinIfAvailable:warnReplace:
Receiver:
a Store.Package
Instance Variables:
primaryKey = 25080
name = 'RBSUnitExtensions'
timeStamp = 436420285
version = '7.5 CS11.NFR.5'
userName = 'niallr'
trace = 25079
dbIdentifier = #psql_public_cst_2007
blessingLevel = 70
commentID = 779943
propertiesID = 779908
properties = an IdentityDictionary[7]
propertyRecords = an OrderedCollection[7]
commentStr = 'This package adds an extensio... test case from the
browser.'
namespaces = an OrderedCollection[0]
classes = an OrderedCollection[2]
metaclasses = nil
methods = an OrderedCollection[66]
binFile = ''
data = an OrderedCollection[1]
overrides = nil
parcelID = nil
Arguments:
parentBundle = nil
binOK = true
warnReplace = true
Temporaries:
imPkg = nil
Context PC = 20

_______________________________________________
vwnc mailing list
vwnc@...
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc

From forum: VisualWorks

Re: [squeak-dev] Subcanvas

2008-07-03T21:00:22Z

2008/7/4 Michael van der Gulik <mikevdg@...>:

>
>
> On Fri, Jul 4, 2008 at 2:16 PM, Igor Stasenko <siguctua@...> wrote:
>>
>> 2008/7/4 Michael van der Gulik <mikevdg@...>:
>>
>> > What I was considering doing was making the Canvas the source of events.
>> > Every Canvas has a model which must implement event handling methods and
>> > a
>> > #drawOn:bounds: method. A Canvas can ask the model to redraw itself when
>> > the
>> > Canvas becomes dirty (e.g. when sub-canvases move and the canvas has no
>> > cached state).
>> >
>>
>> A dirty/clean is a not a basic canvas capability.
>> Needless to say, that for some devices (including GL) sometimes its
>> easier and faster to redraw everything from scratch rather than care
>> about dirty areas. Some devices (like printers) have nothing to do
>> with dirty/clean approach.
>> Don't let a premature optimizations influence the basic model! :)
>
> On reflection, yes, it is a premature optimisation. Hmm...
>
>
>> Right, also, don't forget about relative mouse pointer motion. A good
>> illustration of capturing a relative mouse movement is 3D first person
>> shooter game :) It is not interesting where mouse cursor is, its only
>> interested in amount of mouse movement along its two axises.
>> And in fact, mouse, as device generates relative events, is knows
>> nothing about screen size , or where mouse cursor are allowed to be.
>> So, binding mouse to a screen space is wrong by its nature. Event
>> should generate a relative movement, and then World (or top-level
>> handler) can translate such events to absolute coordinates in its own
>> space (if it cares).
>
>
> IIRC, mouse pointer events normally contain absolute coordinates in most
> windowing systems, including Squeak.
>
> Mouse velocity could be passed as extra information in the event. Mouse
> pointer capture could be done using some key combination, although this is a
> "nice-to-have" feature that I won't implement in the first release.
>

I don't like to centralize event system around single device such as
mouse. It needs an abstraction.
Think about different devices, such as stylus pen, or multi-touch sensor screen.
Any device can generate a 'click' event, or some gestures which then
transformed to events.
Event system should be flexible enough to able to work with wide range
of input devices , not only mouse.

> Gulik.
>
> --
> http://people.squeakfoundation.org/person/mikevdg
> http://gulik.pbwiki.com/
>
>
>

--
Best regards,
Igor Stasenko AKA sig.

From forum: Squeak - Dev

Re: [squeak-dev] Anyone know the following about Slang?

2008-07-03T20:49:50Z

2008/7/4 tim Rowledge <tim@...>:

> As mentioned this is likely a bit of precautionary restriction implemented
> way back, probably by John Maloney when at Apple. Any cCode stuff stops
> inlining.
>
> Given the fairly small set of types (ab)used you might specialise to the
> form #declareCharStar: #foo etc and instead of catching the various forms of
> #var:declareC: etc in TMethod>recordDeclarations it would let them through.
> There'd be some ugly fixups elsewhere though, guaranteed.
>
> It has to be said that the current state of the Slang translation is just
> insane. It was a fairly ugly hack to start with and has been mangled,
> folded, spindled and mutilated ever since. As an example gleaned whilst
> taking a quick look for a solution for you, consider
> - TMethod>inlineCaseStatementBranchesIn:localizingVars: and its use of
> #hasNoCCode and
> - CCodeGenerator>collectInlineList and its non-use of hasCCode but a
> mangled inline almost equivalent.
>
> The textual inlining is terribly poorly factored and horribly hacked. It
> makes decisions based on nonsense metrics like how many nodes in a tree and
> are there more than an arbitrary magic number. The code probably won't work
> if you don't inline! At least it didn't a while back. The
> inlining/internalising of the bytecode loop is nasty, resulting in near
> duplicates of many methods for no very good reason.
>
> My guess - and it is only a guess based on a few limited experiments ages
> ago - is that it would be smarter to drop the textual inlining completely,
> make the inline: pragma result in placement of a gcc __inline__ (or whatever
> the hell it is these days) on the function declaration line and let the
> compiler handle it.
>
> Or better yet, completely rewrite the whole damn thing to do the job
> properly. Invent a better Slang. Add those bitfileds handling capabilities
> you need, and structures.
>
>

After couple of month of hacking slang to make Hydra working, i looked
for a ways how to overcome such shortcomings, which introduces a
translation to C.
And as result , i invented own translation from smalltalk AST to
lambda message sends. And even started prototyping a C translation
backend for it. But then i thought: why the hell i need to translate
things to C, if i have Exupery on hands, with which i can control any
operation up to smaller details i need.
First thing, which i made is native method inlining, which inlines
code based not on knowledge about variable names or their types, but
based on AST , which makes it truly indifferent to what you want to
inline or perform. In essence lambdas its an abstract algorithm
representation, so it possible to easily translate them to any form
(be it C , native code or anything else) :)

> tim
> --
> tim Rowledge; tim@...; http://www.rowledge.org/tim
> Fractured Idiom:- MONAGE A TROIS - I am three years old
>

--
Best regards,
Igor Stasenko AKA sig.

From forum: Squeak - Dev

Re: [squeak-dev] Anyone know the following about Slang?

2008-07-03T20:23:16Z

Six some years back I looked at C inlining and found it did a poor
job. Maybe that has changed.
Also I had changed the inline logic to say oh, if this method
shouldn't be inlined, we lie, please force an inlining based on the
method name.

At the time there was only two methods that seemed likely candidates
so it was never put into VMMaker.

On Jul 3, 2008, at 7:38 PM, tim Rowledge wrote:

> As mentioned this is likely a bit of precautionary restriction
> implemented way back, probably by John Maloney when at Apple. Any
> cCode stuff stops inlining.

--
=
=
=
========================================================================
John M. McIntosh <johnmci@...>
Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com
=
=
=
========================================================================

From forum: Squeak - Dev

Re: [squeak-dev] Subcanvas

2008-07-03T19:58:07Z

On Fri, Jul 4, 2008 at 2:16 PM, Igor Stasenko <siguctua@...> wrote:

2008/7/4 Michael van der Gulik <mikevdg@...>:

> What I was considering doing was making the Canvas the source of events.
> Every Canvas has a model which must implement event handling methods and a
> #drawOn:bounds: method. A Canvas can ask the model to redraw itself when the
> Canvas becomes dirty (e.g. when sub-canvases move and the canvas has no
> cached state).
>

A dirty/clean is a not a basic canvas capability.
Needless to say, that for some devices (including GL) sometimes its
easier and faster to redraw everything from scratch rather than care
about dirty areas. Some devices (like printers) have nothing to do
with dirty/clean approach.
Don't let a premature optimizations influence the basic model! :)

On reflection, yes, it is a premature optimisation. Hmm...

Right, also, don't forget about relative mouse pointer motion. A good
illustration of capturing a relative mouse movement is 3D first person
shooter game :) It is not interesting where mouse cursor is, its only
interested in amount of mouse movement along its two axises.
And in fact, mouse, as device generates relative events, is knows
nothing about screen size , or where mouse cursor are allowed to be.
So, binding mouse to a screen space is wrong by its nature. Event
should generate a relative movement, and then World (or top-level
handler) can translate such events to absolute coordinates in its own
space (if it cares).

IIRC, mouse pointer events normally contain absolute coordinates in most windowing systems, including Squeak.

Mouse velocity could be passed as extra information in the event. Mouse pointer capture could be done using some key combination, although this is a "nice-to-have" feature that I won't implement in the first release.

Gulik.

--
http://people.squeakfoundation.org/person/mikevdg
http://gulik.pbwiki.com/

From forum: Squeak - Dev

Re: [squeak-dev] Anyone know the following about Slang?

2008-07-03T19:39:16Z

2008/7/4 Eliot Miranda <eliot.miranda@...>:
>>
>> GCC will inline your method anyways, so why bother?
>
> The current sources use the localIP localSP localHomeContext
> localReturnContext localReturnValue scheme to get important variables in
> registers. The translator rips out methods it can't inline that refer to
> these. So lots of methods end up getting deleted unless they're inlined.

Well, then i see no exit , other than use sqInt everywhere, and put
conversions at each place where it needs to be.

Or, you can rewrite the method above, to assign to localSP directly,
without returning a value (also declare localFP in same way as other
localFoes):

setCallerSP
"Set the SP of the caller provided localFP is not a base frame.
This points to the hottest item on the frame's stack."
self assert: (self isBaseFrame: localFP) not.
localSP := localFP + FoxCallerSavedIP + ((self frameNumArgs: localFP)
+ 2 * BytesPerWord)

>
> The localFoo scheme may or may not be important for performance. I don't
> want to rip it out until I can measure in a working VM whether it has any
> effect or not. I want to measure my new VM not the old one The benefit of
> having localFP (the frame pointer) in a register in my VM is likely to be
> quite high.
>

localFoo along with gnuifier makes a lot difference - about 30% speedup.

> I only want the type declarations to eliminate warnings. So its easier to
> do without the declarations. But I'd like my cake and eat it too, dammit :)
>
>>
>>
>> --
>> Best regards,
>> Igor Stasenko AKA sig.
>>
>
> best
> Eliot
>
>
>
>

--
Best regards,
Igor Stasenko AKA sig.

From forum: Squeak - Dev

Re: [squeak-dev] Anyone know the following about Slang?

2008-07-03T19:38:27Z

As mentioned this is likely a bit of precautionary restriction
implemented way back, probably by John Maloney when at Apple. Any
cCode stuff stops inlining.

Given the fairly small set of types (ab)used you might specialise to
the form #declareCharStar: #foo etc and instead of catching the
various forms of #var:declareC: etc in TMethod>recordDeclarations it
would let them through. There'd be some ugly fixups elsewhere though,
guaranteed.

It has to be said that the current state of the Slang translation is
just insane. It was a fairly ugly hack to start with and has been
mangled, folded, spindled and mutilated ever since. As an example
gleaned whilst taking a quick look for a solution for you, consider
- TMethod>inlineCaseStatementBranchesIn:localizingVars: and its use
of #hasNoCCode and
- CCodeGenerator>collectInlineList and its non-use of hasCCode but a
mangled inline almost equivalent.

The textual inlining is terribly poorly factored and horribly hacked.
It makes decisions based on nonsense metrics like how many nodes in a
tree and are there more than an arbitrary magic number. The code
probably won't work if you don't inline! At least it didn't a while
back. The inlining/internalising of the bytecode loop is nasty,
resulting in near duplicates of many methods for no very good reason.

My guess - and it is only a guess based on a few limited experiments
ages ago - is that it would be smarter to drop the textual inlining
completely, make the inline: pragma result in placement of a gcc
__inline__ (or whatever the hell it is these days) on the function
declaration line and let the compiler handle it.

Or better yet, completely rewrite the whole damn thing to do the job
properly. Invent a better Slang. Add those bitfileds handling
capabilities you need, and structures.

tim
--
tim Rowledge; tim@...; http://www.rowledge.org/tim
Fractured Idiom:- MONAGE A TROIS - I am three years old

From forum: Squeak - Dev

Re: [squeak-dev] Subcanvas

2008-07-03T19:16:28Z

2008/7/4 Michael van der Gulik <mikevdg@...>:

>
>
> On Fri, Jul 4, 2008 at 12:10 PM, Igor Stasenko <siguctua@...> wrote:
>>
>> 2008/7/4 Michael van der Gulik <mikevdg@...>:
>>
>>
>> > Features of it are:
>> > * Some canvases can have child canvases, each with a z-index. These
>> > could be
>> > used, e.g., to implement movable windows, sprites, clipped scrollable
>> > areas,
>> > or flyweight graphics. This will use the underlying graphics system's
>> > capabilities.
>> >
>> mmm.. i like this idea in general, but please, lets make it more
>> general: no z-index (or any early binding to coordinate system).
>> Simply child canvas concept.
>
> A parent canvas could have multiple children. When the Canvas architecture
> wants to render these, it needs to know the distance each child is from the
> shared parent. You also need to know the distance between child and parent
> if you want to add relection, shadows and lighting in the OpenGL version
> :-D.
>

Lets keep GL things aside. Its up to developer how to render
reflections and what distance(s) come to play with his techniques.
And scheme you proposing better fit to a layers concept, not
child-parent relations. Maybe you should introduce layers then?

>
>>
>> > * An event handling system will also be part of this package. Mouse
>> > events
>> > will have a canvas (or sub-canvas) coordinate; keyboard events will be
>> > sent
>> > to the canvas that has the "keyboard focus".
>> >
>>
>> Please don't. An event subsystem should not be connected directly with
>> canvases.
>> It should be a separate layer for applications.
>> Any coordinate translations should come this way: Event ->
>> morph(widget) -> canvas.
>> But never Event->canvas.
>>
>> Suppose you moving a scrollbar knob. For this you would need 2
>> different coordinates in result:
>> - one to update hand position
>> - second to update knob position
>>
>> Or, suppose you dragging something in 3D space. You may move mouse to
>> the left or right, but movements will be translated in different way
>> (dragging object(s) closer/farther from eye).
>>
>> It is up to morphs/UI how to deal with events and then how to update
>> themselves on screen as a reaction on such event.
>
> Every Canvas has it's own coordinate system; they can be positioned anywhere
> on the screen, but still have (0@0) in their bottom-left corner. This means
> that mouse-based events with a position are relevant only for a particular
> Canvas.
>

Screen? Who said that Canvas draws on screen? And who said that you
have a mouse?

> What I was considering doing was making the Canvas the source of events.
> Every Canvas has a model which must implement event handling methods and a
> #drawOn:bounds: method. A Canvas can ask the model to redraw itself when the
> Canvas becomes dirty (e.g. when sub-canvases move and the canvas has no
> cached state).
>

A dirty/clean is a not a basic canvas capability.
Needless to say, that for some devices (including GL) sometimes its
easier and faster to redraw everything from scratch rather than care
about dirty areas. Some devices (like printers) have nothing to do
with dirty/clean approach.
Don't let a premature optimizations influence the basic model! :)

> I've implemented a scroll bar using this kind of system. The scroll bar just
> needs to remember where the original mouseDown event was. I don't understand
> what your point was here.
>

The point is , that you may never know what portions of screen need to
be updated as a reaction on mouseDown (or any other) event.
I can write a simple code which updates an opposite point of screen to
where mouse located. Or i can write a code which writes a character $A
in file each time you clicking a mouse. I don't see how and why canvas
should take part in event handling.

> As with dragging things in 3-D space, I'll need to invent some way of making
> mouse capture secure.
>

Right, also, don't forget about relative mouse pointer motion. A good
illustration of capturing a relative mouse movement is 3D first person
shooter game :) It is not interesting where mouse cursor is, its only
interested in amount of mouse movement along its two axises.
And in fact, mouse, as device generates relative events, is knows
nothing about screen size , or where mouse cursor are allowed to be.
So, binding mouse to a screen space is wrong by its nature. Event
should generate a relative movement, and then World (or top-level
handler) can translate such events to absolute coordinates in its own
space (if it cares).

> Do you still think this is a bad design?
>
>
>>
>> > I don't know how to handle fonts - I don't know what the pros/cons of
>> > having
>> > a font API built in to the canvas is, or whether it is better to have
>> > the
>> > font drawing done externally by each application.
>> >
>>
>> Lets discuss that a bit, before you going to start implementing it.
>> Recently, we discussed a lot of ideas with Gary about canvases/events.
>> I think you should be aware of what conclusions we had, at least.
>> Gary, can you refresh my memory about ordinates & events ideas we
>> discussed? :)
>
>
> This is why I posted here :-).
>
> IRC logs would be good, if they can be found.
>
> Gulik.
>
>
> --
> http://people.squeakfoundation.org/person/mikevdg
> http://gulik.pbwiki.com/
>
>
>

--
Best regards,
Igor Stasenko AKA sig.

From forum: Squeak - Dev

Re: [Squeak-ja: 3943] Re: [北海道]「OLPC Night ～ OLPCが開く教育の未来」開催のお知らせ

2008-07-03T19:09:13Z

鷲見です。

いくつか、OSC2008-Do での Squeak-ja 関連のコメントを見かけました。
把握しているものを以下にあげてみます。

http://d.hatena.ne.jp/critbit/20080629/1214758161
OSC2008に参加してきました - critbitの日記

http://tmaeda.s45.xrea.com/td/20080628.html
OSC2008-do - tmaeda 日記

http://www.inohome.net/kuma/blog/archives/2008/06/post_1445.html
林檎屋 » OSC2008-Hokkaido

http://macchaeleven.blog63.fc2.com/blog-entry-229.html
ダイナマイト航海日誌 OSC-Do 2008 ふりかえり

http://d.hatena.ne.jp/potappo/20080629/1214669712
OSC 2008 Hokkaido に参加してきました - A Better Project＠はてなダイアリー

http://ytaro.blogspot.com/2008/06/osc2008-hokkaido.html
徒然日記: OSC2008 Hokkaido

--
Masato Sumi

From forum: Squeak - Japan

Re: [squeak-dev] Namespaces

2008-07-03T18:49:13Z

2008/7/4 Michael van der Gulik <mikevdg@...>:
> Hi all.
>
> My Namespaces architecture(1) seems stable enough for other people to look
> at.
>

Great!

> I'd like to release an image so that other people can check it out. Is there
> somewhere I could put an image?
>

If there is no other alternatives, i think best would be to put it at
squeak.org. Ken, can you help with it?

> Gulik.
>
> (1) http://gulik.pbwiki.com/Namespaces
>
> --
> http://people.squeakfoundation.org/person/mikevdg
> http://gulik.pbwiki.com/
>

--
Best regards,
Igor Stasenko AKA sig.

From forum: Squeak - Dev

[squeak-dev] Karatsuba multiplication in a plugin using slang, is it doable ?

2008-07-03T18:43:09Z

Karatsuba algorithm is a simple divide and conquer algorithm to fast up
LargeInteger multiplications which is worth above a few thousand bits.
(see http://en.wikipedia.org/wiki/Karatsuba_algorithm).

I would like to implement it in the LargeIntegersPlugin,
But:
- the algorithm is recursive
- it will create short-lived LargeIntegers at each recursion

So that makes me wonder if it is really doable in a plugin in slang,
given that relocation might occur and mess the pointers...

The idea to handle the algorithm in pure C is just so boring...
(in which case, it would be simpler to handcraft a GMP plugin).

Any advice?

From forum: Squeak - Dev

Re: [squeak-dev] Anyone know the following about Slang?

2008-07-03T18:29:31Z

On Thu, Jul 3, 2008 at 6:19 PM, Igor Stasenko <siguctua@...> wrote:

2008/7/4 Eliot Miranda <eliot.miranda@...>:
>
>
> On Thu, Jul 3, 2008 at 5:48 PM, Igor Stasenko <siguctua@...> wrote:
>>
>> 2008/7/4 Eliot Miranda <eliot.miranda@...>:
>> > Hi All,
>> >
>> > does anyone know (or even better has anyone fixed it) how hard it is
>> > to
>> > make Slang inline methods that contain simple type declarations?
>> >
>> > I would like to eliminate compile-time integer/pointer mismatch errors
>> > in
>> > the new StackInterpreter I'm writing. I'd like to say things like:
>> >
>> > callerSPOf: theFP
>> > "Answer the SP of the caller provided theFP is not a base frame.
>> > This points to the hottest item on the frame's stack."
>> > self var: #theFP type: 'char *'.
>> > self returnTypeC: 'char *'.
>> > self assert: (self isBaseFrame: theFP) not.
>> > ^theFP + FoxCallerSavedIP + ((self frameNumArgs: theFP) + 2 *
>> > BytesPerWord)
>> > but Slang refuses to inline anything that has C declarations. I'm
>> > guessing
>> > that the issue is moving the type information from the method to its
>> > inlined
>> > form. It took me half a day to discover where Slang refuses to inline
>> > (should have looked in the obvious place
>> > CCodeGenerator>>collectInlineList,
>> > instead of in the inlining code :/ ). So I'm afraid to waste the time
>> > trying to find out where the restriction bites. Anyone know how to fix
>> > this
>> > or better still have a fix?
>> >
>>
>> Doesn't 'self inline: true' helps?
>
> No. Slang refuses to inline anything containing a C declaration
> (retrnTypeC:, var:type: cCode:inSmalltalk: etc)
>
>>
>> Or, can't you circumvent that by coercing a value to corresponding
>> type at call site? Like:
>>
>> newSP := self cCoerce: (self callerSPOf: blabla) to: 'char *'.
>
> That's worse than the disease :) There are many more uses than definitions.
> So I want the uses to look clean and I'll tolerate noisy definition. There
> are also argument types to consider. localIP has type char * for example,
> so where it is used as an argument I want the argument type to be char * or
> void *, etc.
>
>

I guess i know why it refusing to inline methods with declarations,
because you may write like:

method: arg1

| foo |
self var: #foo declareInC: 'void **foo = malloc(arg1)'.

^ foo.

inliner simply moving any temps into enclosing method.
But here, a situation, where you have a C style declaration and
assignment both.
And ANSI C prohibits declaring vars not in the first lines of function
body. C++ allows it :)

Try comment a line of code in collectInlineList.

hasCCode := false. "m declarations size > 0."

Its not safe, and you'll get a lot of compiler errors.

I did that. I got lots of errors :)

GCC will inline your method anyways, so why bother?

The current sources use the localIP localSP localHomeContext localReturnContext localReturnValue scheme to get important variables in registers. The translator rips out methods it can't inline that refer to these. So lots of methods end up getting deleted unless they're inlined.

The localFoo scheme may or may not be important for performance. I don't want to rip it out until I can measure in a working VM whether it has any effect or not. I want to measure my new VM not the old one The benefit of having localFP (the frame pointer) in a register in my VM is likely to be quite high.

I only want the type declarations to eliminate warnings. So its easier to do without the declarations. But I'd like my cake and eat it too, dammit :)

--

Best regards,
Igor Stasenko AKA sig.

best
Eliot

From forum: Squeak - Dev

[squeak-dev] Re: LargeInteger negative bitShift (Rshift) not optimized on byte boundary?

2008-07-03T18:27:25Z

> I marked as Kernel, but should rather be VM. Ken, can you here me?
ear?

From forum: Squeak - Dev

[squeak-dev] Re: LargeInteger negative bitShift (Rshift) not optimized on byte boundary?

2008-07-03T18:23:22Z

nicolas cellier a écrit :

>
>
> I checked VW7.5 on same machine to get a reference:
> | x |
> x := SmallInteger maxVal raisedTo: 100.
> OrderedCollection new
> add: (Time millisecondsToRun: [100000 timesRepeat: [x bitShift: -1600]]);
> add: (Time millisecondsToRun: [100000 timesRepeat: [x bitShift: -1597]]);
> add: (Time millisecondsToRun: [100000 timesRepeat: [x bitShift: 1597]]);
> add: (Time millisecondsToRun: [100000 timesRepeat: [x bitShift: 1600]]);
> asArray
> VW: #(29 29 92 92)
> squeak: #(164 172 315 120)
>
> I'm surprised by the factor 3 in VW...
> But since more bytes are allocated in Lshift...
> The byteBounded Lshift is not far from VW.
> every other operation is definitly improvable.
>
>

I just pushed http://bugs.squeak.org/view.php?id=7109 for a small
improvment of bitShift:.

I marked as Kernel, but should rather be VM. Ken, can you here me?

Above test shows a little speed up (don't compare to above results, my
machine is sloooower):

Regular 3.10-1unix VM: #(503 550 933 489)
Patched 3.10-1nice VM: #(357 416 673 495)
VWNC 7.6 reference VM: #(124 138 347 344)

Now that i exercized a bit with plugins, I will try a Karatsuba *
implementation. The algorithm is very simple.
However naive algorithm should still be used when the smaller Integer
operand is sparse, like (1 << 1000 + 1)*(1 << 10000 - 1)...

From forum: Squeak - Dev

Re: [squeak-dev] Anyone know the following about Slang?

2008-07-03T18:19:01Z

2008/7/4 Eliot Miranda <eliot.miranda@...>:

>
>
> On Thu, Jul 3, 2008 at 5:48 PM, Igor Stasenko <siguctua@...> wrote:
>>
>> 2008/7/4 Eliot Miranda <eliot.miranda@...>:
>> > Hi All,
>> >
>> > does anyone know (or even better has anyone fixed it) how hard it is
>> > to
>> > make Slang inline methods that contain simple type declarations?
>> >
>> > I would like to eliminate compile-time integer/pointer mismatch errors
>> > in
>> > the new StackInterpreter I'm writing. I'd like to say things like:
>> >
>> > callerSPOf: theFP
>> > "Answer the SP of the caller provided theFP is not a base frame.
>> > This points to the hottest item on the frame's stack."
>> > self var: #theFP type: 'char *'.
>> > self returnTypeC: 'char *'.
>> > self assert: (self isBaseFrame: theFP) not.
>> > ^theFP + FoxCallerSavedIP + ((self frameNumArgs: theFP) + 2 *
>> > BytesPerWord)
>> > but Slang refuses to inline anything that has C declarations. I'm
>> > guessing
>> > that the issue is moving the type information from the method to its
>> > inlined
>> > form. It took me half a day to discover where Slang refuses to inline
>> > (should have looked in the obvious place
>> > CCodeGenerator>>collectInlineList,
>> > instead of in the inlining code :/ ). So I'm afraid to waste the time
>> > trying to find out where the restriction bites. Anyone know how to fix
>> > this
>> > or better still have a fix?
>> >
>>
>> Doesn't 'self inline: true' helps?
>
> No. Slang refuses to inline anything containing a C declaration
> (retrnTypeC:, var:type: cCode:inSmalltalk: etc)
>
>>
>> Or, can't you circumvent that by coercing a value to corresponding
>> type at call site? Like:
>>
>> newSP := self cCoerce: (self callerSPOf: blabla) to: 'char *'.
>
> That's worse than the disease :) There are many more uses than definitions.
> So I want the uses to look clean and I'll tolerate noisy definition. There
> are also argument types to consider. localIP has type char * for example,
> so where it is used as an argument I want the argument type to be char * or
> void *, etc.
>
>

I guess i know why it refusing to inline methods with declarations,
because you may write like:

method: arg1

| foo |
self var: #foo declareInC: 'void **foo = malloc(arg1)'.

^ foo.

inliner simply moving any temps into enclosing method.
But here, a situation, where you have a C style declaration and
assignment both.
And ANSI C prohibits declaring vars not in the first lines of function
body. C++ allows it :)

Try comment a line of code in collectInlineList.

hasCCode := false. "m declarations size > 0."

Its not safe, and you'll get a lot of compiler errors.

GCC will inline your method anyways, so why bother?

--
Best regards,
Igor Stasenko AKA sig.

From forum: Squeak - Dev

Working Copy of WxSqueak

2008-07-03T18:19:00Z

Just wondering if anyone out there has a working copy of WxSqueak.

Long ago I was able to make it run, but now I can't seem to. I just get a window frame with nothing in it.

Just wondering. I finally know enough about Squeak to probably be able to figure out how to use it!

Rob
_______________________________________________
Beginners mailing list
Beginners@...
http://lists.squeakfoundation.org/mailman/listinfo/beginners

From forum: Squeak - Beginners

Re: [squeak-dev] Anyone know the following about Slang?

2008-07-03T18:00:03Z

On Thu, Jul 3, 2008 at 5:48 PM, Igor Stasenko <siguctua@...> wrote:

2008/7/4 Eliot Miranda <eliot.miranda@...>:

> Hi All,
>
> does anyone know (or even better has anyone fixed it) how hard it is to
> make Slang inline methods that contain simple type declarations?
>
> I would like to eliminate compile-time integer/pointer mismatch errors in
> the new StackInterpreter I'm writing. I'd like to say things like:
>
> callerSPOf: theFP
> "Answer the SP of the caller provided theFP is not a base frame.
> This points to the hottest item on the frame's stack."
> self var: #theFP type: 'char *'.
> self returnTypeC: 'char *'.
> self assert: (self isBaseFrame: theFP) not.
> ^theFP + FoxCallerSavedIP + ((self frameNumArgs: theFP) + 2 * BytesPerWord)
> but Slang refuses to inline anything that has C declarations. I'm guessing
> that the issue is moving the type information from the method to its inlined
> form. It took me half a day to discover where Slang refuses to inline
> (should have looked in the obvious place CCodeGenerator>>collectInlineList,
> instead of in the inlining code :/ ). So I'm afraid to waste the time
> trying to find out where the restriction bites. Anyone know how to fix this
> or better still have a fix?
>

Doesn't 'self inline: true' helps?

No. Slang refuses to inline anything containing a C declaration (retrnTypeC:, var:type: cCode:inSmalltalk: etc)

Or, can't you circumvent that by coercing a value to corresponding
type at call site? Like:

newSP := self cCoerce: (self callerSPOf: blabla) to: 'char *'.

That's worse than the disease :) There are many more uses than definitions. So I want the uses to look clean and I'll tolerate noisy definition. There are also argument types to consider. localIP has type char * for example, so where it is used as an argument I want the argument type to be char * or void *, etc.

And don't touch the return type of function.

> best
> Eliot
>
>
>
>

--
Best regards,
Igor Stasenko AKA sig.

From forum: Squeak - Dev

[squeak-dev] Re: Bug in Method Finder dating from 3.8

2008-07-03T17:59:26Z

Serge Stinckwich a écrit :
> Damien Cassou a écrit :
>>
>> I think this one is related to 3.10. I told them at least 5 times to
>> include the existing fix, but nobody did it.
>
> Ok and where is the fix, Damien ?
>
> --

Serge, are you black listing me?

http://bugs.squeak.org/view.php?id=5641
http://bugs.squeak.org/view.php?id=6402
http://bugs.squeak.org/view.php?id=6418
http://bugs.squeak.org/view.php?id=6691

My image is patched with my own:
Installer mantis bug: 6691 fix: 'StringVersion-Patch-M6691.2.cs'.

But, maybe Keith did correct other things too...
Since he pushed his own corrections for his own bug, so you should trust
him and try:
Installer ensureFix: 6402.

Nicolas

From forum: Squeak - Dev