diff options
author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1998-01-29 08:18:03 +0000 |
---|---|---|
committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1998-01-29 08:18:03 +0000 |
commit | 9ba3d42046af4721998adfe3c6bd6bc9220234f4 (patch) | |
tree | 5265a1ccc13db7b0201b6f9245f6f07846525ce3 /sample | |
parent | a72e3e187d8e49040532a4563ae832f869657501 (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.rb | 10 | ||||
-rw-r--r-- | sample/ruby-mode.el | 5 |
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" |