summaryrefslogtreecommitdiff
path: root/sample
diff options
context:
space:
mode:
authormatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1998-01-29 08:18:03 +0000
committermatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1998-01-29 08:18:03 +0000
commit9ba3d42046af4721998adfe3c6bd6bc9220234f4 (patch)
tree5265a1ccc13db7b0201b6f9245f6f07846525ce3 /sample
parenta72e3e187d8e49040532a4563ae832f869657501 (diff)
*** empty log message ***
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@57 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'sample')
-rw-r--r--sample/rbc.rb10
-rw-r--r--sample/ruby-mode.el5
2 files changed, 9 insertions, 6 deletions
diff --git a/sample/rbc.rb b/sample/rbc.rb
index 485b558adb..f1a1f0ba0a 100644
--- a/sample/rbc.rb
+++ b/sample/rbc.rb
@@ -2,8 +2,8 @@
#
# rbc.rb -
# $Release Version: 0.6 $
-# $Revision: 1.1.1.1 $
-# $Date: 1998/01/16 04:14:56 $
+# $Revision: 1.1.1.1.2.1 $
+# $Date: 1998/01/16 12:36:10 $
# by Keiju ISHITSUKA(Nippon Rational Inc.)
#
# --
@@ -32,7 +32,7 @@ require "e2mmap.rb"
$stdout.sync = TRUE
module BC_APPLICATION__
- RCS_ID='-$Header: /home/cvsroot/ruby/sample/rbc.rb,v 1.1.1.1 1998/01/16 04:14:56 matz Exp $-'
+ RCS_ID='-$Header: /home/cvsroot/ruby/sample/rbc.rb,v 1.1.1.1.2.1 1998/01/16 12:36:10 matz Exp $-'
extend Exception2MessageMapper
def_exception :UnrecognizedSwitch, "Unrecognized switch: %s"
@@ -120,9 +120,9 @@ module BC_APPLICATION__
if line != "\n"
begin
if CONFIG[:INSPECT]
- print (cont._=eval(line, bind)).inspect, "\n"
+ print((cont._=eval(line, bind)).inspect, "\n")
else
- print (cont._=eval(line, bind)), "\n"
+ print((cont._=eval(line, bind)), "\n")
end
rescue
# $! = 'exception raised' unless $!
diff --git a/sample/ruby-mode.el b/sample/ruby-mode.el
index fdf016c52b..a09205e859 100644
--- a/sample/ruby-mode.el
+++ b/sample/ruby-mode.el
@@ -8,7 +8,10 @@
(defconst ruby-mode-revision "$Revision$")
-(defconst ruby-mode-version "$Id$")
+(defconst ruby-mode-version
+ (progn
+ (string-match "[0-9.]+" ruby-mode-revision)
+ (substring ruby-mode-revision (match-beginning 0) (match-end 0))))
(defconst ruby-block-beg-re
"class\\|module\\|def\\|if\\|unless\\|case\\|while\\|until\\|for\\|begin\\|do"