CljPerl
CljPerl is a Lisp implemented by Perl. It borrows the idea from Clojure, which makes a seamless connection with Java packages. Like Java, Perl has huge number of CPAN packages. They are amazing resources. We should make use of them as possible. However, programming in Lisp is more insteresting. CljPerl is a bridge between Lisp and Perl. We can program in Lisp and make use of the great resources from CPAN.
Key features
- Seamless connection with Perl.
- Coroutine.
- Actor.(experimental)
- Native XML form which could be used to create web page template.
Example
;; file t.clp
(defmacro defn [name args & body]
`(def ~name
(fn ~args ~@body)))
(defn foo [arg]
(println arg))
(foo "hello world!") ;comment here
(foo (+ 1 2))
(.CljPerl print "Hi\n")
(. print "Guy\n")
(defmulti mf type)
(defmethod mf "string" [a] (println "string"))
(defmethod mf "keyword" [a] (println "keyword"))
(mf "test")
(mf :test)
(def c (coroutine
(println "b")
(coro-sleep)
(println "d")))
(println "a")
(coro-resume c)
(println "c")
(coro-resume c)
(def a (actor
(println "a")
(actor-send (actor-receive) "exit")
(println "b")))
(actor-send a (actor-self))
(println (actor-receive "exit")
------------------
> bin/cljp t.clp
Install
cpan install CljPerl
Lisp <-> Perl
CljPerl is hosted on Perl. Any object of CljPerl can be passed into Perl and vice versa including code.
An example of using Perl's IO functions.
####### Perl functions in CljPerl.pm
package CljPerl;
sub open {
my $file = shift;
my $cb = shift;
my $fh;
open $fh, $file;
&{$cb}($fh);
close $fh;
}
sub puts {
my $fh = shift;
my $str = shift;
print $fh $str;
}
sub readline {
my $fh = shift;
return <$fh>;
}
####### CljPerl functions in core.clp
(ns file
(defn open [file cb]
(. open file cb))
(defn >> [fh str]
(. puts fh str))
(defn << [fh]
(. readline fh)))
####### Test
(file#open ">t.txt" (fn [f]
(file#>> f "aaa")))
(file#open "<t.txt" (fn [f]
(println (perl->clj (file#<< f)))))
An advanced example which creates a timer with AnyEvent.
(. require AnyEvent)
(def cv (->AnyEvent condvar))
(def count 0)
(def t (->AnyEvent timer
{:after 1
:interval 1
:cb (fn [ & args]
(println count)
(set! count (+ count 1))
(if (>= count 10)
(set! t nil)))}))
(.AnyEvent::CondVar::Base recv cv)
Another example which uses AnyEvent::HTTPD to create a http server.
(require anyevent-httpd)
(anyevent-httpd#start-server {:port 9090}
{"/" #[html #[body #[h1 "Hello World!"] #[a ^{:href "/test"} "Another test page"]]]
"/test" #[html #[body #[h1 "Test page"] #[a ^{:href "/"} "Back to the main page"]]]})
Documents
See APIs.md
Quoi
Quoi is a simple web framework by CljPerl.
APP : app.clj
; load quoi
(require quoi)
; load quoi menu utils
(require quoi/menu)
; create a menu
(def menu (quoi#menu
["Home" "home" (quoi#file "index.clp")]
["About" "about" (quoi#file "about.clp")]))
; set the index page.
(quoi#page "/$"
(quoi#file "index.clp"))
(quoi#start {:port 9090})
Template : index.clp
#[span
#[h1 "hello world"]
#[p "url: " (#::path S)]
#[p "method: " (#::method S)]
#[p "params: " (clj->string (#::params S))]
#[p "headers: " (clj->string (#::headers S))]
menu]
Run
bin/cljp app.clj
XML selector/translator
($ "#foo" #[html "hello" #[a ^{:id "foo"} "foo"]]
(fn [xml]
#[a "bar"])) ; <html>hello<span>bar</span></html>
($ "[id=foo]" #[html "hello" #[a ^{:id "foo"} "foo"]]
(fn [xml]
#[span "bar"])) ; <html>hello<span>bar</bar></html>
Quoi demo
- A web server hosted on OpenShift: quoi-wehu.rhcloud.com
- Source code: quoi