[Erbot-cvs] erbot erbtranslate.el

[D. Goel]

CVSROOT:        /cvsroot/erbot
Module name:    erbot
Branch:         
Changes by:     D. Goel <address@hidden>        06/04/24 17:45:30

Modified files:
        .              : erbtranslate.el 

Log message:
        improve a bit more: functionality

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/erbot/erbtranslate.el.diff?tr1=1.3&tr2=1.4&r1=text&r2=text

Patches:
Index: erbot/erbtranslate.el
diff -u erbot/erbtranslate.el:1.3 erbot/erbtranslate.el:1.4
--- erbot/erbtranslate.el:1.3   Mon Apr 24 16:57:18 2006
+++ erbot/erbtranslate.el       Mon Apr 24 17:45:30 2006
@@ -1,5 +1,5 @@
 ;;; erbtranslate.el --- Natural Language translation functions.  CURRENTLY 
INSECURE.
-;; Time-stamp: <2006-04-24 12:37:46 deego>
+;; Time-stamp: <2006-04-24 13:41:30 deego>
 ;; Copyright (C) 2002 Alejandro Benitez
 ;; Emacs Lisp Archive entry
 ;; Filename: erbc
@@ -54,14 +54,16 @@
 
 
 
-(defun fsi-translate (from to text)
+(defun fsi-translate (from to &rest text)
   (erbtranslate-enabled-check)
   (require 'shs)
+  (setq text (mapconcat #'(lambda (arg) (format "%s" arg))
+                       text " "))
   (shsp
    (list 
     "translate-bin" "-f" (format "%s" from)
     "-t" (format "%s" to))
-   nil text))
+   nil (format "%s" text)))
 
 
 
@@ -69,25 +71,25 @@
 (defalias 'fsi-t8-l 'fsi-translate-list-pairs)
 
 
-(defun fsi-translate-list-pairs ()
+(defun fsi-translate-list-pairs (&rest args)
   (erbtranslate-enabled-check)
   (erbn-shell-command-to-string "translate-bin --list-pairs"
-                               t))
+                              '(t)))
 
 
 
 (defalias 'fsi-t8-s 'fsi-translate-list-services)
 
 
-(defun fsi-translate-list-services ()
+(defun fsi-translate-list-services (&rest args)
    (erbtranslate-enabled-check)
    (erbn-shell-command-to-string "translate-bin --list-services"
-                                t))
+                                '(t)))
 
 
 
 
-(defun fsi-translate-web-page (from to url)
+(defun fsi-translate-web-page (from to url &rest args)
   (erbtranslate-enabled-check)
   (shsp (list "translate-bin" "-f" 
              (format "%s" from) "-t"