1 files changed, 71 insertions, 0 deletions
diff --git a/lib/e2mmap1_0.rb b/lib/e2mmap1_0.rb
new file mode 100644
index 0000000000..c5797fd573
--- /dev/null
+++ b/lib/e2mmap1_0.rb
@@ -0,0 +1,71 @@
+#
+#   e2mmap.rb - 
+#   	$Release Version: 1.0$
+#   	$Revision: 1.4 $
+#   	$Date: 1997/08/18 07:12:12 $
+#   	by Keiju ISHITSUKA
+#
+# --
+#
+#
+
+module Exception2MessageMapper
+  RCS_ID='-$Header: /home/keiju/var/src/var.lib/ruby/RCS/e2mmap.rb,v 1.4 1997/08/18 07:12:12 keiju Exp keiju $-'
+  E2MM = Exception2MessageMapper
+  
+  def E2MM.extend_to(b)
+    c = eval("self", b)
+    c.extend(self)
+    c.bind(b)
+  end
+  
+  def bind(b)
+    eval "
+  @binding = binding
+  E2MM_ErrorMSG = Hash.new
+  
+  # fail(err, *rest)
+  #	err:	例外
+  #	rest:	メッセージに渡すパラメータ
+  #
+  def fail!(*rest)
+    super
+  end
+  
+  def fail(err, *rest)
+    $! = err.new(sprintf(E2MM_ErrorMSG[err], *rest))
+    super()
+  end
+
+  public :fail
+  # def_exception(c, m)
+  #	    c:  exception
+  #	    m:  message_form
+  #	例外cのメッセージをmとする.
+  #
+  def def_e2message(c, m)
+    E2MM_ErrorMSG[c] = m
+  end
+  
+  # def_exception(c, m)
+  #	    c:  exception_name
+  #	    m:  message_form
+  #	    s:	例外スーパークラス(デフォルト: Exception)
+  #	例外名``c''をもつ例外を定義し, そのメッセージをmとする.
+  #
+  def def_exception(c, m)
+
+    c = c.id2name if c.kind_of?(Fixnum)
+    eval \"class \#{c} < Exception
+           end
+           E2MM_ErrorMSG[\#{c}] = '\#{m}'
+           \", @binding
+  end
+", b
+    
+  end
+  
+  E2MM.extend_to(binding)
+  def_exception("ErrNotClassOrModule", "Not Class or Module")
+end
+