diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rwxr-xr-x | contrib/genrpbindings | 39 |
2 files changed, 39 insertions, 5 deletions
@@ -1,3 +1,8 @@ +2001-12-11 Ryan C Yeske <rcyeske@sfu.ca> + + * contrib/genrpbindings: Add ruby bindings. From Doug Kearns + <djkea2@mugc.its.monash.edu.au>. + 2001-12-08 shawn <sabetts@vcn.bc.ca> * src/events.c (handle_key): revert the focus immediately after diff --git a/contrib/genrpbindings b/contrib/genrpbindings index 250e03d..e1d8a0b 100755 --- a/contrib/genrpbindings +++ b/contrib/genrpbindings @@ -5,9 +5,9 @@ # Tue Dec 4 16:15:53 PST 2001 # # currently generates bindings for: -# * Perl (Ratpoison.pm) -# * Emacs Lisp (ratpoison-cmd.el) -# +# * Perl (Ratpoison.pm) +# * Emacs Lisp (ratpoison-cmd.el) +# * Ruby (ratpoison.rb) [Doug Kearns <djkea2@mugc.its.monash.edu.au>] # add more languages! # # Bindings are just very thin wrappers, no argument checking is done. @@ -22,6 +22,11 @@ # ;;; elisp # (require 'ratpoison-cmd) # (ratpoison-echo "hello world") +# +# #!ruby +# require "ratpoison" +# Ratpoison.echo ("hello world") +# $\="\n"; @@ -35,13 +40,15 @@ open ACTIONS_C or die "Can't open $ACTIONS_C"; # open target files $PERL_FILE="./Ratpoison.pm"; $ELISP_FILE="./ratpoison-cmd.el"; +$RUBY_FILE="./ratpoison.rb"; 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"; # PERL preamble print PERL 'package Ratpoison;'; print PERL '$RATPOISON="',$RATPOISON,'";'; -print PERL 'sub rp_cmd { return `$RATPOISON -c "@_"`; }'; +print PERL 'sub command { return `$RATPOISON -c "@_"`; }'; # ELISP preamble print ELISP '(defvar ratpoison-program "',$RATPOISON,'")'; @@ -66,6 +73,18 @@ print ELISP <<PREAMBLE; (point-max))))) PREAMBLE +# RUBY preamble +print RUBY <<PREAMBLE; +module Ratpoison + + RATPOISON="$RATPOISON" + + def command (command, *args) + return `#{RATPOISON} -c "#{command} #{args.join(' ')}"` + end + module_function :command +PREAMBLE + # bindings while (<ACTIONS_C>) { if (m!/\*\@begin !) { @@ -74,8 +93,12 @@ while (<ACTIONS_C>) { last if (m!/\*\@end !); if (/{\"(.+)\".+},/) { $nbindings++; - print PERL "sub $1 { return rp_cmd (\"$1\", \@_); }"; + print PERL "sub $1 { return command (\"$1\", \@_); }"; print ELISP "(defun-ratpoison $1)"; + print RUBY " def $1 (*args)"; + print RUBY " return command (\"$1\", args)"; + print RUBY " end"; + print RUBY " module_function :$1\n"; } } } @@ -83,11 +106,17 @@ while (<ACTIONS_C>) { print "$nbindings bindings."; # PERL postamble +# nothing # ELISP postamble print ELISP '(provide \'ratpoison-cmd)'; +# RUBY postamble +print RUBY "end"; + close PERL; print "Created $PERL_FILE"; close ELISP; print "Created $ELISP_FILE"; +close RUBY; +print "Created $RUBY_FILE"; |