add python bindings.

2 files changed, 30 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index bc7316e..d78849b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-01-19  Shawn Betts  <katia_dilkina@verizon.net>
+
+	* contrib/genrpbindings: add python bindings.
+
 2005-01-17  Shawn Betts  <katia_dilkina@verizon.net>
 
 	* src/frame.c (frame_read): remove space in "(frame " string.
diff --git a/contrib/genrpbindings b/contrib/genrpbindings
index 3cebb56..cf90b06 100755
--- a/contrib/genrpbindings
+++ b/contrib/genrpbindings
@@ -8,6 +8,7 @@
 # * Emacs Lisp  (ratpoison-cmd.el)   Ryan Yeske <rcyeske@sfu.ca>
 # * Ruby        (ratpoison.rb)       Doug Kearns <djkea2@mugc.its.monash.edu.au>
 # * Common Lisp (ratpoison.lisp)     Shawn Betts <sabetts@vcn.bc.ca>
+# * Python      (ratpoison.py)       Mike O'Connor <stew@vireo.org>
 # add more languages!
 #
 # Bindings are just very thin wrappers, no argument checking is done.
@@ -30,6 +31,10 @@
 # ;;; Common Lisp
 # (load "ratpoison.lisp")
 # (ratpoison:rp-echo "hello world")
+#
+# #!python
+# import ratpoison
+# ratpoison.echo( "hello world" )
 
 $\="\n";
 
@@ -45,10 +50,12 @@ $PERL_FILE="./Ratpoison.pm";
 $ELISP_FILE="./ratpoison-cmd.el";
 $RUBY_FILE="./ratpoison.rb";
 $COMMONLISP_FILE="./ratpoison.lisp";
+$PYTHON_FILE="./ratpoison.py";
 open PERL, ">$PERL_FILE" or die "Can't create $PERL_FILE";
 open ELISP, ">$ELISP_FILE" or die "Can't create $ELISP_FILE";
 open RUBY, ">$RUBY_FILE" or die "Can't create $RUBY_FILE";
 open COMMONLISP, ">$COMMONLISP_FILE" or die "Can't create $COMMONLISP_FILE";
+open PYTHON, ">$PYTHON_FILE" or die "Can't create $PYTHON_FILE";
 
 # PERL preamble
 print PERL 'package Ratpoison;';
@@ -130,6 +137,19 @@ print COMMONLISP <<PREAMBLE;
 	((null line) accum)))))
 PREAMBLE
 
+# python preamble
+
+print PYTHON <<PREAMBLE;
+import os
+ratpoison="ratpoison -c "
+def rp_command( *args ):
+    p = os.popen( ratpoison + '"' + (' '.join(  args  ) ) + '"', 'r' )
+    r = p.readlines();
+    p.close();
+    return r 
+
+PREAMBLE
+
 # bindings
 while (<ACTIONS_C>) {
     if (m!/\*\@begin !) {
@@ -154,6 +174,7 @@ while (<ACTIONS_C>) {
 	      print RUBY "    return command (\"$name\", args)";
 	      print RUBY "  end";
 	      print RUBY "  module_function :$name\n";
+	      print PYTHON "def rp_$name( *args ): return rp_command ( '$name ' +  ' '.join( args ) )";
 	    }
 	}
     }
@@ -169,6 +190,9 @@ print ELISP '(provide \'ratpoison-cmd)';
 # RUBY postamble
 print RUBY "end";
 
+# PYTHON postamble
+# nothing
+
 close PERL;
 print "Created $PERL_FILE";
 close ELISP;
@@ -177,3 +201,5 @@ close RUBY;
 print "Created $RUBY_FILE";
 close COMMONLISP;
 print "Created $COMMONLISP_FILE";
+close PYTHON;
+print "Created $PYTHON_FILE";