March 2006 - cells-devel - mailman3.common-lisp.net

[cells-devel] Evolving Ltktest-with-cells.lisp
by Ken Tilton 26 Mar '06

26 Mar '06

I have been refining both the doc and the functionality of ltktest-with-cells (in the Celtk module under Cells), which mirrors the LTk demo ltktest, for a few days now adding more and more connectivity between the widgets and the main display, as one would have in a more real-world application. At this point I think both doc and demo are adequate, and anyway I will not know how to improve them without feedback, whether it be suggestions or requests for clarification. btw, thx to Frank for his report that all runs well on Mac OS X. I myself saw recent versions working on Lispworks+win32, albeit with a problem in that the spinning lines spun at a glacial rate. I would be interested in hearing if Celtk runs on other platforms. Now here is a big heads up: every once in a while, except when I am trying to make it happen <g>, ACL8 on win32 hangs when I close ltktest-with-cells. Possibly something to do with my Timer class run amok? We will see. ken

1 0

[cells-devel] (+ macosx Celtk Cells3 ACL8.0): This combo is running ...
by Goenninger, Frank 26 Mar '06

26 Mar '06

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA512 Heya, just wanted to let you know that I got the above mentioned combination to work as expected by just downloading the stuff and then do an ASDF load. Well, not really - I had to adjust some hardcoded pathnames in demos.lisp to find appropriate external files (bitmap files, Kenny's eyes from year 1969...) Very nice! Will use that to make a GUI for an app that controls and monitors an HF amplifier for Ham Radio... Cheers Frank -----BEGIN PGP SIGNATURE----- Version: PGP Desktop 9.0.5 (Build 5050) iQIVAwUBRCXnvWAKVUddnkqnAQqnDQ/9Fg6honUHO2YCW14kFilFPZ57YRnDf5CF RIhPGiMOwEd4YCYYuldnQZHYJQJpKKz/+zZan5LL35u62w6rwtIm5eqz749nLF0I XDfEK5Rq3jwC64A20OEU8KIMCVp6hZ8Lr9t7cfBI5WElLEbyvCM+5TQOf5fPVmSf FEYpp8XUTXej4z0g846g2tnzrNy6LJVWG61Sn88ZjbrdsOlRHSElzKnU7rFnqIh7 xFQF/jz4lH6calkuXqafZWM9gQbQs/1ein5rdrb4KVR+it8W7MFpFR8pU/9mhZ99 HufJJZw4oKP9Cxevl2DVWCCGI8RT7UgUsYFofhwFOYr8j7GXzUgedNloIYuwEomt GpNvkpl0Qaz0ZtbY36Rb4Ae/NLd75jL85MQ4Xlk9R4CRBfErbM6dnfAxgCbL/D2D CFd4jq83b5i2rJXgakuV8Ow/HvhBYLjcYDf1a3Tb8J4a9tdSy5e60qnzLTEsKZAw Fqru+IG+cmTydTyn4yAnB8+3Q10uAwdUY293E3SWgLNOdgWgGIUibRCY+IoCcbCL IQS8CwcOxklkCdfkbmbvr4VIM7tWIXEO9IC6UrMHGcnlfLGsVHTeuG8rUwtAb2oR U+vLuOpPvLc6ccvQgJbJIX65a3MZmPUwpUgyNY4rK8RtDH2/0UDqxc0pTeLKb8HS WDVR42qnNwM= =a8QA -----END PGP SIGNATURE-----

1 0

[cells-devel] Celtk/Cells3 Compleat
by Ken Tilton 24 Mar '06

24 Mar '06

You can now grab Cells3 and Celtk from the c-l.net Cells repository. .\Celtk\ltktest-cells-inside.lisp has a load of doc inside it, including some on just Cells. Check out load.lisp in either source tree to build and run. (Checking next that I remembered to commit those, speaking of which, I use neither those nor ASDF when working, so they often have bugs. Speaking of which...) Bug reports or request for clarification on the doc exceedingly welcome. Otherwise, I will be getting to work on a commercial app using both these (as long as Tk holds up, which looks good so far). ken

5 8

[cells-devel] deep-cells test and Cells 3 demo
by Ken Tilton 18 Mar '06

18 Mar '06

Writing the doc got scary, and I remembered that anyway I want to lean towards literate programming for doc, so I added more to the comments in integrity.lisp and created a test suit entry that shows a whole lot going on, including an ephemeral initialized to non-nil, and a client sort to get observer actions to come out in the right order. If anyone has questions, just ask. If it seems best, I'll respond by extending the code comments and pointing you to that. kt

1 0

[cells-devel] Oops on Cells 3
by Ken Tilton 17 Mar '06

17 Mar '06

The test suite passes so y'all might be OK, but while working on some sample code for doc of Cells 3 I have found some misbehavior (observer called twice one awakening). I suggest you ignore Cells 3 until I get this resolved. kt

1 0

[cells-devel] Cells 3 and Celtk committed to CVS
by Ken Tilton 16 Mar '06

16 Mar '06

This is weird, I know I sent this but did not get it as a list subscriber nor do I see it in my sent folder. Anyway, at pain of repeating myself. Cells 3 has been committed to CVS (not a new module, just Cells updated). Celtk is a new module, a portable Cells Inside GUI built atop the core of LTk. It requires Cells3. I may actually do a little Cells doc by way of explaining Cells3 differences. The big deal can be sorted out by examining the "finish-business" function. It makes apparent how Cells orchestrates orderly state change. Cells3 also enforces that, by yelping if one attempts a SETF in an observer -- you have to wrap the setf and any computation relevant to that setf: (with-integrity (:change) <be safe, wrap the whole observer form>) If this helps, here is what I had to do to port the test suite: [s/old/new/w is the VAX EDT editor command for subsitute/old/new/whole] s/def-c-output/defobserver/w The syntax is unchanged. Any setfs of input Cells you have in the body will cause a runtime error unless you wrap the form in with-integrity as discussed above. s/with-deference/with-integrity (:change)/w turns out all the wrapped forms were SETFs. I kinda like the idea of with-deference since, in the case of an observer setf, one really is asking for a deferred action. with-integrity is a "maybe" deal -- it says "go ahead if not already under integrity handling. s/make-be/make-instance/w special handling now handled in shared-initialize Forget to-be, not needed anymore When the Family code squawks about :fm-parent being required, add: :fm-parent self ...to the make-instance argument list. In some cases the instances were being made without a surrounding (c? ...) form. That is needed to have access to the parent instance self. btw, there is a make-kid macro that is just (make-instance ',class :fm-parent self ...). again, the cells engine yelps if it encounters a SETF needing wrapping in: (with-integrity (:change) (setf ...)) Celtk shows a complicated example of using the client queue to get a declarative Cells app to talk coherently to an imperative, order-sensitive system. kt

1 0

[cells-devel] change of topics
by momerath 16 Mar '06

16 Mar '06

Hi, I'm thinking the cargo problem isn't as well-suited to Cells as some of the other things on my todo list. I picked it because it was simple, but I think I now grasp the direction that it would go; my basic disconnect was how a hash-table could be used as an input or intermediate cell. It looks to me now that I wouldn't gain much over my existing procedural/rule-based version by re-implementing it with Cells (at least short of implementing ZigZag first). On the other hand, the next big feature I'm going to implement is a dynamic economy simulation, which, I think, is exactly the type of system Cells would be good for modelling. So here is a description of a somewhat simplified system in english- (psuedo)code coming soon: -- The primary actors are Stations (space-stations). Stations have an inventory of Items. Items are either fundamental (ore) or produced from other Items (produced and fundamental). The required ingredients for each Item are static. Each Station has a set of Items which it produces, and by implication of the production requirements, a set of Items to stock. Initially, an arbitrary desired quantity of each item will determine when and how the Station takes steps to bring the quantity closer to the norm. The steps a station can take are: adjusting prices, producing a desired item from more plentiful ingredients, negotiating a shipment from another Station, and posting a mining mission (for ores). In shipping negotiation, the providing station determines its capability (items in stock?) and overhead (payment of player/npc traders and escorts (number determined by route danger)), and makes an offer to the receiving station (a procedural way of describing something that could be done in a more "push" or Cells-ish way). The receiving station accumulates offers for all stations that it does business with (whole other ball of wax), and then picks the cheapest. Shipments encounter danger and rarely make it through completely intact. At least initially, the payment is for goods received and the providing stations don't notice trends in route danger, so no risk/benefit analysis need be done. I think that covers the basics. In the future, some of the decisions would be put in the hands of planning agents (how much to stock, which stations to deal with, determining supply and demand curves, etc). -- While you think about that (if you get a chance), I'll try to implement it, and I'll post again when I get stuck or I've got something to critique. Thanks for the help, Michael

2 1

[cells-devel] Cells 3 and Celtk committed to CVS
by Ken Tilton 16 Mar '06

16 Mar '06

I'll try to write something up tomorrow and probably put it in CVS as well as post it here. Celtk is a good Cells demo since it makes extensive use of the new client queue of deferred propagation tasks, as necessitated by Tk. Maybe someday it will be its own c-l.net project, but for now it is just a second module under in the Cells repository (well, there are others but they are deprecated.) kt

1 0

[cells-devel] kickstart (fixed)
by momerath 16 Mar '06

16 Mar '06

Wow that was weird:) I used the google toolbar spellchecker right before sending, and it acted a bit odd, so I checked the sent copy and saw that it had left all the spellchecker formatting in the message! Here it is as plain text. There are still some extraneous spaces, but I don't think they'll make it hard to read, so... Thanks for getting back to me. I was beginning to wonder which of the 5 ways to interpret the silence :) I think it must be in the genes: ( http://en.wikipedia.org/wiki/Warnock's_Dilemma) Anyway, here is what I've got: ( defmodel cargo-hold () (ship-owner capacity ;; a set of cargo-types (types :cell t : initarg :types : initform nil) ;; cargo-type -> quantity (quantities :cell t : initarg :quantities : initform (make-hash-table)))) ( defmodel cargo () ;; a type-id, name and the number of ;; cargo-hold units it takes up (1-3) (type name volume ;; the character-id of the owner of ;; the cargo-hold unless cargo is spaced (holder :cell t : initarg :holder : initform (c-in nil) : accessor holder) ( auth-list :cell t : initarg : auth-list : initform nil : accessor auth-list) (recipient :cell t : initarg :recipient : initform nil : accessor recipient) (stolen :cell t : initarg :stolen : initform (c? (when (member (^holder) (^ auth-list)) t)) : accessor stolen) (spaced :cell t : initarg :spaced : initform (c? (when holder t)) : accessor spaced) (delivered :cell t : initarg :delivered : initform (c? (when ( eql (^holder) (^recipient)) t)) : accessor delivered))) The first thing you'll probably notice is that there is no mechanism for the cargo-holds to actually "contain" cargo objects. I know I could do as the "summer" example of the cell-basics doc does, and push them onto a list, and recalculate based on the whole list every time it changes, but I was hoping for something more elegant and efficient. Only one entry in the quantities hash needs to change when an item is added for instance. I thought of having in and out slots (set the slot to a cargo object to add or remove; the other slots do their thing and then clear the in/out slot), but that seems ugly and I wasn't even sure how to pull it off. And then there is the whole thing with cargo-sets which is closer to what I'd like to do with Cells on the larger scale. Basically what I want is to have a large number of sets and their unions/intersections efficiently accessible anywhere in my code- stuff like "all characters of faction X in sector Y carrying at least one Z in their cargo hold. I hope this makes my level of understanding more clear. I think I'm probably more prepared for the paradigm shift than most, owing, no doubt, to my long infatuation with Ted Nelson's ZigZag. ~Michael Warnock Guild Software Inc.

2 1

[cells-devel] kickstart
by momerath 15 Mar '06

15 Mar '06

*Thanks for getting back to me. I was beginning to wonder which of the 5 ways to interpret the silence :) I think it must be in the genes: ( http://en.wikipedia.org/wiki/Warnock's_Dilemma) Anyway, here is what I've got: (defmodel cargo-hold () (ship-owner capacity ;; a set of cargo-types (types :cell t :initarg :types :initform nil) ;; cargo-type -> quantity (quantities :cell t :initarg :quantities :initform (make-hash-table)))) (defmodel cargo () ;; a type-id, name and the number of ;; cargo-hold units it takes up (1-3) (type name volume ;; the character-id of the owner of ;; the cargo-hold unless cargo is spaced (holder :cell t :initarg :holder :initform (c-in nil) :accessor holder) (auth-list :cell t :initarg :auth-list :initform nil :accessor auth-list) (recipient :cell t :initarg :recipient :initform nil :accessor recipient) (stolen :cell t :initarg :stolen :initform (c? (when (member (^holder) (^auth-list)) t)) :accessor stolen) (spaced :cell t :initarg :spaced :initform (c? (when holder t)) :accessor spaced) (delivered :cell t :initarg :delivered :initform (c? (when (eql (^holder) (^recipient)) t)) :accessor delivered))) The first thing you'll probably notice is that there is no mechanism for the cargo-holds to actually "contain" cargo objects. I know I could do as the "summer" example of the cell-basics doc does, and push them onto a list, and recalculate based on the whole list every time it changes, but I was hoping for something more elegant and efficient. Only one entry in the quantities hash needs to change when an item is added for instance. I thought of having in and out slots (set the slot to a cargo object to add or remove; the other slots do their thing and then clear the in/out slot), but that seems ugly and I wasn't even sure how to pull it off. And then there is the whole thing with cargo-sets which is closer to what I'd like to do with Cells on the larger scale. Basically what I want is to have a large number of sets and their unions/intersections efficiently accessible anywhere in my code- stuff like "all characters of faction X in sector Y carrying at least one Z in their cargo hold. I hope this makes my level of understanding more clear. I think I'm probably more prepared for the paradigm shift than most, owing, no doubt, to my long infatuation with Ted Nelson's ZigZag. ~Michael Warnock Guild Software Inc. *I've Ive Iver Ivie IV Edit... Revert to "i've" def model def-model defamed daffodil deformed Edit... Ignore all Add to dictionary unitary intake interj Anitra Unitas Edit... Ignore all Add to dictionary uniform inform infirm uniformer interim Edit... Ignore all Add to dictionary unitary intake interj Anitra Unitas Edit... Ignore all Add to dictionary uniform inform infirm uniformer interim Edit... Ignore all Add to dictionary def model def-model defamed daffodil deformed Edit... Ignore all Add to dictionary unitary intake interj Anitra Unitas Edit... Ignore all Add to dictionary uniform inform infirm uniformer interim Edit... Ignore all Add to dictionary accessory access or access-or access access's Edit... Ignore all Add to dictionary ACTH Ruth auto Edit... Ignore all Add to dictionary unitary intake interj Anitra Unitas Edit... Ignore all Add to dictionary ACTH Ruth auto Edit... Ignore all Add to dictionary uniform inform infirm uniformer interim Edit... Ignore all Add to dictionary assessor access or access-or accessory access Edit... Ignore all Add to dictionary ACTH Ruth auto Edit... Ignore all Add to dictionary unitary intake interj Anitra Unitas Edit... Ignore all Add to dictionary uniform inform infirm uniformer interim Edit... Ignore all Add to dictionary assessor access or access-or accessory access Edit... Ignore all Add to dictionary unitary intake interj Anitra Unitas Edit... Ignore all Add to dictionary uniform inform infirm uniformer interim Edit... Ignore all Add to dictionary ACTH Ruth auto Edit... Ignore all Add to dictionary assessor access or access-or accessory access Edit... Ignore all Add to dictionary unitary intake interj Anitra Unitas Edit... Ignore all Add to dictionary uniform inform infirm uniformer interim Edit... Ignore all Add to dictionary assessor access or access-or accessory access Edit... Ignore all Add to dictionary unitary intake interj Anitra Unitas Edit... Ignore all Add to dictionary uniform inform infirm uniformer interim Edit... Ignore all Add to dictionary El Eal Erl eel ell Edit... Ignore all Add to dictionary assessor access or access-or accessory access Edit... Ignore all Add to dictionary Zigzag Zigzags Zigzag's Edit... Ignore all Add to dictionary Warlock Wank Warwick Wonk Bannock Edit... Ignore all Add to dictionary

1 0