Sat Mar 31 00:37:03 CST 2007, ctian
* Release 0.01
* SNMP support: v1 and v2c, get
_______________________________________________
cl-net-snmp-announce mailing list
cl-net-snmp-announce(a)common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cl-net-snmp-announce
A new version of cl-json is now available.
JSON is a language independent text format for data-interchange. JSON is
especially convenient in web applications, since it is a subset of the
literal object notation of ECMAScript. It can also be an alternative to
XML. JSON has good open-source support in many languages.
Some new features in cl-json are json-rpc and json-bind.
Get it by darcs:
darcs get http://common-lisp.net/project/cl-json/darcs/cl-json
Or you can also get it by asdf-install.
cl-json now depends on parenscript.
darcs get http://common-lisp.net/project/ucw/repos/parenscript
cl-json homepage:
http://common-lisp.net/project/cl-json/
/Henrik Hjelte
_______________________________________________
cl-json-announce mailing list
cl-json-announce(a)common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cl-json-announce
On Mon, 19 Mar 2007 17:00:35 -0700, "Mac Chan" <emailmac(a)gmail.com> wrote:
> Another handy use of cl-who is to generate xml testing data, like so:
>
> (with-html
> (loop repeat 500 do
> (htm
> (:|Item|
> (:|ASIN| (str (format nil "~D" (random 9999999999))))
> (:|DetailPageURL| "http://www.amazon.com/")
> (:|ItemAttributes|
> (:|Author| (str (conc (random-word) " " (random-word))))
> (:|Manufacturer| (str (random-word)))
> (:|ProductGroup| (str (random-word)))
> (:|Title| (str (conc (random-word) " " (random-word)" "
> (random-word)))))))))
>
>
> Attached is a simple patch to introduce a special var
> cl-who:*downcase-tag* to control whether cl-who should downcase
> tagname by default.
Thanks, I've now released a new version which incorporates your patch.
_______________________________________________
cl-who-announce site list
cl-who-announce(a)common-lisp.net
http://common-lisp.net/mailman/listinfo/cl-who-announce
We have tagged CVS with the tag ELEPHANT-0-6-1-BETA. OpenMCL still
needs verification, but has been verified in the past so I don't
think it's much work and the current tree seems very stable and
addresses all the outstanding issues we documented and discovered
for 0.6.1.
This would be a good time to do a trial upgrade of your existing
databases and try to incorporate this release in running systems.
There may still be bugs, but we don't anticipate any major
changes. From this point it is mostly documentation and augmenting
the test suite where we can and with any luck there will be a
release candidate in a week or two.
Regards,
Ian Eslick and Robert Read
_______________________________________________
elephant-announce site list
elephant-announce(a)common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-announce
On Sun, 18 Mar 2007 19:20:52 -0400, "Andrei Stebakov" <lispercat(a)gmail.com> wrote:
> When I call it (get-bounding-rect "Some #\Newline text" "arial" 50)
> I get an error:
>
> Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
Ah, yes, there was a bug in there. Thanks for the report. The new
release should fix that.
> (defun get-bounding-rect (text font font-size)
> (with-image* (0 0)
> (let ((rect (draw-freetype-string 0 0 text
> :do-not-draw t
> :font-name font
> :angle 0
> :line-spacing 1.05d0
> :color (find-color 0 0 255 :resolve t)
> :point-size font-size)))
> (values (- (aref rect 2) (aref rect 0)) (- (aref rect 3) (aref rect
> 5)) (aref rect 0) (aref rect 1) rect))))
Here's an easier version:
(defun get-bounding-rect (text font font-size)
(let ((rect (draw-freetype-string 0 0 text
:do-not-draw t
:font-name font
:line-spacing 1.05d0
:point-size font-size)))
(values (- (aref rect 2) (aref rect 0))
(- (aref rect 3) (aref rect 5))
(aref rect 0)
(aref rect 1)
rect)))
> I think it doesn't like my :line-spacing 1.05d0 parameter.
That wasn't really the problem (but it showed the symptoms).
> Also I am not sure that I can provide a string with #Newline.
You can't do it the way you did. There are basically two easy ways to
do it in portable Common Lisp. Number one:
(get-bounding-rect "Some
text" "arial" 50)
Number two:
(get-bounding-rect #.(format nil "Some~%text") "arial" 50)
Or use CL-INTERPOL:
(get-bounding-rect #?"Some\ntext" "arial" 50)
Cheers,
Edi.
_______________________________________________
cl-gd-announce mailing list
cl-gd-announce(a)common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cl-gd-announce
Here's a status report on Movitz:
* First of all, activity has picked up a bit the last month or so. So
this is a great time to jump on the bandwagon :-)
* The Wiki is open for business:
http://trac.common-lisp.net/movitz/wiki
* The IRC channel is #movitz on irc.freenode.net.
* I have more or less migrated my primary development environment to
SBCL and SLIME, and so I made the effort to polish the Movitz tools
for this setup. See
http://trac.common-lisp.net/movitz/wiki/MovitzAndSlime
* Some recent developments are: Much better &key argument parsing in
(compiled) functions, improved floppy bootloader, VGA graphics
(http://ccgi.bealbywm.plus.com/blog/2007/03/07/vga-in-movitz/), and
improved keyboard driver by Shawn Betts. Reportedly, Mr. Betts has
also successfully implemented preemptive thread switching.
* My own development focus currently is to invent a reasonable
mechanism for waiting/blocking. The current busy-looping nature of
movitz kernels is clearly the biggest wart on the system.
* While I have nothing concrete to show for it, I have been thinking
that adding/porting Movitz to 64-bit x86 would be very
interesting. (Not to mention there is a window of opportunity now
while our main competitor Microsoft is struggling to port their
legacy systems.)
That's it for now, happy hacking to all,
--
Frode Vatvedt Fjeld
_______________________________________________
movitz-announce site list
movitz-announce(a)common-lisp.net
http://common-lisp.net/mailman/listinfo/movitz-announce