Project site: http://bitbucket.org/nikhilm/newlisp-redis/overview/
Neat, thanks for sharing this.
I was really pleased to find this, and I am very keen to use it. However, to quote the old song "I can't get started". I have started redis-server, and have redis-cli running. Then I try to run the little sample from redis.lsp:
(setf 'conn (redis))
(:ping redis)
Looking at the code in redis.lsp, it appears those two are supplied already in the definition:
;; Creates a new connection to a Redis instance
;; @return a new connection object or nil on error
(define (redis:redis (host "localhost") (port 6379))
(let (sock (net-connect host port))
(if (nil? sock)
nil
(list redis sock ""))))
The first line works. It returns
Can someone please help?
I think redis.lsp is based on an older version of newLISP previous to 10.2 (after March 2010). In version 10.2 FOOP (the object system in newLISP) was changed to allow referencing the target object via a 'self' keyword. (self) returns the object of the message which can be changed when using destructive functions.
As an example:
(define (redis:query r command-str)
(net-send (r 1) (append command-str redis:CRLF))
(redis:read r))
; post 10.2 of newLISP (March 2010)
(define (redis:query command-str) ; the object r does not appear here
(net-send (self 1) (append command-str redis:CRLF))
(:read (self))) ; message calls always must start with : colon
Basically inside the FOOP function definition the object is referenced by (self) which can be indexed too, e.g. (self 1) for the first member of the object after the class symbol in the obj list.
The message function call:
and the definition of <message>:
; reference <target-obj> using (self)
)
The constructors have not changed.
See also here:
http://www.newlisp.org/downloads/previous-release-notes/newLISP-10.2-Release.html
Thanks once again, Lutz.
I have not done any FOOP. Seems like I am about to start! Because it appears a few tweaks of redis.lsp will be needed.