el4r 1.0.4
Sign up to get free protection for your applications and to get access to all the features.
- data/BUGS +2 -0
- data/Changes +2412 -0
- data/bin/el4r +26 -0
- data/bin/el4r-instance +1105 -0
- data/bin/el4r-rctool +279 -0
- data/bin/el4r-runtest +26 -0
- data/data/emacs/site-lisp/el4r.el +441 -0
- data/doc/classes/El4r.html +200 -0
- data/doc/classes/El4r.src/M000004.html +25 -0
- data/doc/classes/El4r.src/M000005.html +25 -0
- data/doc/classes/El4r.src/M000006.html +18 -0
- data/doc/classes/El4r.src/M000008.html +25 -0
- data/doc/classes/El4r.src/M000009.html +18 -0
- data/doc/classes/El4r/ELConsCell.html +145 -0
- data/doc/classes/El4r/ELConsCell.src/M000044.html +16 -0
- data/doc/classes/El4r/ELConsCell.src/M000046.html +16 -0
- data/doc/classes/El4r/ELConsCell.src/M000050.html +16 -0
- data/doc/classes/El4r/ELInstance.html +755 -0
- data/doc/classes/El4r/ELInstance.src/M000046.html +36 -0
- data/doc/classes/El4r/ELInstance.src/M000047.html +41 -0
- data/doc/classes/El4r/ELInstance.src/M000048.html +31 -0
- data/doc/classes/El4r/ELInstance.src/M000049.html +22 -0
- data/doc/classes/El4r/ELInstance.src/M000050.html +25 -0
- data/doc/classes/El4r/ELInstance.src/M000051.html +35 -0
- data/doc/classes/El4r/ELInstance.src/M000052.html +31 -0
- data/doc/classes/El4r/ELInstance.src/M000053.html +23 -0
- data/doc/classes/El4r/ELInstance.src/M000054.html +41 -0
- data/doc/classes/El4r/ELInstance.src/M000055.html +31 -0
- data/doc/classes/El4r/ELInstance.src/M000056.html +43 -0
- data/doc/classes/El4r/ELInstance.src/M000057.html +31 -0
- data/doc/classes/El4r/ELInstance.src/M000058.html +22 -0
- data/doc/classes/El4r/ELInstance.src/M000059.html +25 -0
- data/doc/classes/El4r/ELInstance.src/M000060.html +43 -0
- data/doc/classes/El4r/ELInstance.src/M000061.html +31 -0
- data/doc/classes/El4r/ELInstance.src/M000062.html +22 -0
- data/doc/classes/El4r/ELInstance.src/M000063.html +25 -0
- data/doc/classes/El4r/ELInstance.src/M000064.html +35 -0
- data/doc/classes/El4r/ELInstance.src/M000065.html +23 -0
- data/doc/classes/El4r/ELInstance.src/M000066.html +23 -0
- data/doc/classes/El4r/ELInstance.src/M000067.html +19 -0
- data/doc/classes/El4r/ELInstance.src/M000068.html +18 -0
- data/doc/classes/El4r/ELInstance.src/M000069.html +20 -0
- data/doc/classes/El4r/ELInstance.src/M000070.html +18 -0
- data/doc/classes/El4r/ELInstance.src/M000071.html +19 -0
- data/doc/classes/El4r/ELInstance.src/M000072.html +30 -0
- data/doc/classes/El4r/ELInstance.src/M000073.html +20 -0
- data/doc/classes/El4r/ELInstance.src/M000074.html +20 -0
- data/doc/classes/El4r/ELInstance.src/M000075.html +17 -0
- data/doc/classes/El4r/ELInstance.src/M000076.html +18 -0
- data/doc/classes/El4r/ELInstance.src/M000077.html +21 -0
- data/doc/classes/El4r/ELInstance.src/M000078.html +18 -0
- data/doc/classes/El4r/ELInstance.src/M000079.html +18 -0
- data/doc/classes/El4r/ELInstance.src/M000080.html +35 -0
- data/doc/classes/El4r/ELInstance.src/M000081.html +24 -0
- data/doc/classes/El4r/ELInstance.src/M000082.html +22 -0
- data/doc/classes/El4r/ELInstance.src/M000083.html +21 -0
- data/doc/classes/El4r/ELInstance.src/M000084.html +19 -0
- data/doc/classes/El4r/ELInstance.src/M000085.html +18 -0
- data/doc/classes/El4r/ELInstance.src/M000086.html +21 -0
- data/doc/classes/El4r/ELInstance.src/M000087.html +18 -0
- data/doc/classes/El4r/ELInstance.src/M000088.html +24 -0
- data/doc/classes/El4r/ELInstance.src/M000089.html +23 -0
- data/doc/classes/El4r/ELInstance.src/M000090.html +18 -0
- data/doc/classes/El4r/ELInstance.src/M000091.html +20 -0
- data/doc/classes/El4r/ELInstance.src/M000092.html +18 -0
- data/doc/classes/El4r/ELInstance.src/M000093.html +19 -0
- data/doc/classes/El4r/ELListCell.html +163 -0
- data/doc/classes/El4r/ELListCell.src/M000026.html +16 -0
- data/doc/classes/El4r/ELListCell.src/M000027.html +16 -0
- data/doc/classes/El4r/ELListCell.src/M000028.html +23 -0
- data/doc/classes/El4r/ELListCell.src/M000031.html +16 -0
- data/doc/classes/El4r/ELListCell.src/M000032.html +23 -0
- data/doc/classes/El4r/ELListCell.src/M000033.html +16 -0
- data/doc/classes/El4r/ELListCell.src/M000034.html +23 -0
- data/doc/classes/El4r/ELListCell.src/M000037.html +16 -0
- data/doc/classes/El4r/ELListCell.src/M000038.html +23 -0
- data/doc/classes/El4r/ELMethodsMixin.html +648 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000006.html +27 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000007.html +27 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000008.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000009.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000010.html +27 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000011.html +19 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000012.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000013.html +19 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000014.html +19 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000015.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000016.html +21 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000017.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000018.html +23 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000019.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000020.html +46 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000021.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000022.html +23 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000023.html +28 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000024.html +46 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000025.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000026.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000027.html +28 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000028.html +31 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000029.html +24 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000030.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000031.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000032.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000033.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000034.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000035.html +18 -0
- data/doc/classes/El4r/ELMethodsMixin.src/M000036.html +25 -0
- data/doc/classes/El4r/ELObject.html +235 -0
- data/doc/classes/El4r/ELObject.src/M000078.html +19 -0
- data/doc/classes/El4r/ELObject.src/M000079.html +18 -0
- data/doc/classes/El4r/ELObject.src/M000080.html +19 -0
- data/doc/classes/El4r/ELObject.src/M000081.html +18 -0
- data/doc/classes/El4r/ELObject.src/M000082.html +19 -0
- data/doc/classes/El4r/ELObject.src/M000083.html +18 -0
- data/doc/classes/El4r/ELObject.src/M000084.html +18 -0
- data/doc/classes/El4r/ELObject.src/M000085.html +18 -0
- data/doc/classes/El4r/ELObject.src/M000086.html +20 -0
- data/doc/classes/El4r/ELObject.src/M000087.html +19 -0
- data/doc/classes/El4r/ELObject.src/M000088.html +20 -0
- data/doc/classes/El4r/ELObject.src/M000090.html +19 -0
- data/doc/classes/El4r/ELObject.src/M000091.html +19 -0
- data/doc/classes/El4r/ELObject.src/M000092.html +18 -0
- data/doc/classes/El4r/ELObject.src/M000093.html +19 -0
- data/doc/classes/El4r/ELObject.src/M000094.html +18 -0
- data/doc/classes/El4r/ELObject.src/M000095.html +18 -0
- data/doc/classes/El4r/ELObject.src/M000096.html +18 -0
- data/doc/classes/El4r/ELObject.src/M000097.html +19 -0
- data/doc/classes/El4r/ELObject.src/M000098.html +18 -0
- data/doc/classes/El4r/ELObject.src/M000099.html +18 -0
- data/doc/classes/El4r/ELObject.src/M000100.html +18 -0
- data/doc/classes/El4r/ELObject.src/M000102.html +19 -0
- data/doc/classes/El4r/ELObject.src/M000103.html +20 -0
- data/doc/classes/El4r/ELRubyObjectStock.html +283 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000030.html +21 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000031.html +22 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000032.html +22 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000033.html +42 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000034.html +19 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000035.html +22 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000036.html +22 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000037.html +22 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000038.html +22 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000039.html +17 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000040.html +17 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000041.html +22 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000042.html +22 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000043.html +17 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000044.html +17 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000045.html +46 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000046.html +19 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000047.html +21 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000048.html +19 -0
- data/doc/classes/El4r/ELRubyObjectStock.src/M000049.html +18 -0
- data/doc/classes/El4r/ELSequence.html +221 -0
- data/doc/classes/El4r/ELSequence.src/M000040.html +18 -0
- data/doc/classes/El4r/ELSequence.src/M000041.html +18 -0
- data/doc/classes/El4r/ELSequence.src/M000042.html +20 -0
- data/doc/classes/El4r/ELSequence.src/M000043.html +19 -0
- data/doc/classes/El4r/ELSequence.src/M000044.html +18 -0
- data/doc/classes/El4r/ELSequence.src/M000045.html +19 -0
- data/doc/classes/El4r/ELSequence.src/M000048.html +18 -0
- data/doc/classes/El4r/ELSequence.src/M000049.html +20 -0
- data/doc/classes/El4r/ELSequence.src/M000050.html +18 -0
- data/doc/classes/El4r/ELSequence.src/M000051.html +20 -0
- data/doc/classes/El4r/ELSequence.src/M000052.html +19 -0
- data/doc/classes/El4r/ELSequence.src/M000053.html +18 -0
- data/doc/classes/El4r/ELSequence.src/M000054.html +18 -0
- data/doc/classes/El4r/ELSequence.src/M000055.html +20 -0
- data/doc/classes/El4r/ELSequence.src/M000056.html +19 -0
- data/doc/classes/El4r/ELSequence.src/M000057.html +18 -0
- data/doc/classes/El4r/ELSequence.src/M000058.html +19 -0
- data/doc/classes/El4r/ELVariables.html +173 -0
- data/doc/classes/El4r/ELVariables.src/M000037.html +18 -0
- data/doc/classes/El4r/ELVariables.src/M000038.html +18 -0
- data/doc/classes/El4r/ELVariables.src/M000039.html +18 -0
- data/doc/classes/El4r/ELVariables.src/M000040.html +23 -0
- data/doc/classes/El4r/ELVariables.src/M000045.html +18 -0
- data/doc/classes/El4r/ELVariables.src/M000046.html +18 -0
- data/doc/classes/El4r/ELVariables.src/M000047.html +18 -0
- data/doc/classes/El4r/ELVariables.src/M000048.html +18 -0
- data/doc/classes/El4r/ELVariables.src/M000049.html +23 -0
- data/doc/classes/El4r/ELVariables.src/M000051.html +18 -0
- data/doc/classes/El4r/ELVariables.src/M000052.html +18 -0
- data/doc/classes/El4r/ELVariables.src/M000053.html +23 -0
- data/doc/classes/El4r/ELVector.html +160 -0
- data/doc/classes/El4r/ELVector.src/M000028.html +22 -0
- data/doc/classes/El4r/ELVector.src/M000029.html +22 -0
- data/doc/classes/El4r/ELVector.src/M000030.html +16 -0
- data/doc/classes/El4r/ELVector.src/M000033.html +22 -0
- data/doc/classes/El4r/ELVector.src/M000034.html +16 -0
- data/doc/classes/El4r/ELVector.src/M000035.html +22 -0
- data/doc/classes/El4r/ELVector.src/M000036.html +16 -0
- data/doc/classes/El4r/ELVector.src/M000039.html +22 -0
- data/doc/classes/El4r/ELVector.src/M000040.html +16 -0
- data/doc/classes/El4r/El4rOutput.html +175 -0
- data/doc/classes/El4r/El4rOutput.src/M000080.html +18 -0
- data/doc/classes/El4r/El4rOutput.src/M000081.html +21 -0
- data/doc/classes/El4r/El4rOutput.src/M000088.html +18 -0
- data/doc/classes/El4r/El4rOutput.src/M000089.html +21 -0
- data/doc/classes/El4r/El4rOutput.src/M000090.html +18 -0
- data/doc/classes/El4r/El4rOutput.src/M000091.html +21 -0
- data/doc/classes/El4r/El4rOutput.src/M000092.html +18 -0
- data/doc/classes/El4r/El4rOutput.src/M000094.html +18 -0
- data/doc/classes/El4r/El4rOutput.src/M000095.html +21 -0
- data/doc/classes/El4r/El4rOutput.src/M000096.html +18 -0
- data/doc/classes/El4rAccessor.html +134 -0
- data/doc/classes/El4rAccessor.src/M000005.html +18 -0
- data/doc/classes/ElApp.html +211 -0
- data/doc/classes/ElApp.src/M000001.html +21 -0
- data/doc/classes/ElApp.src/M000002.html +17 -0
- data/doc/classes/ElApp.src/M000003.html +18 -0
- data/doc/classes/ElApp.src/M000004.html +18 -0
- data/doc/classes/ElMixin.html +163 -0
- data/doc/classes/ElMixin.src/M000001.html +19 -0
- data/doc/classes/ElMixin.src/M000002.html +19 -0
- data/doc/classes/ElMixin.src/M000003.html +18 -0
- data/doc/classes/ElMixin.src/M000004.html +18 -0
- data/doc/classes/ElMixin.src/M000006.html +19 -0
- data/doc/classes/ElMixin.src/M000007.html +18 -0
- data/doc/created.rid +1 -0
- data/doc/files/bin/el4r-instance.html +119 -0
- data/doc/fr_class_index.html +40 -0
- data/doc/fr_file_index.html +27 -0
- data/doc/fr_method_index.html +129 -0
- data/doc/index.html +24 -0
- data/doc/rdoc-style.css +208 -0
- data/el4r.en.html +468 -0
- data/el4r.ja.html +640 -0
- data/files +29 -0
- data/lib/el4r/el4r-sub.rb +1023 -0
- data/lib/el4r/emacsruby/autoload/70el4r-mode.rb +9 -0
- data/lib/el4r/emacsruby/el4r-mode.rb +35 -0
- data/lib/el4r/emacsruby/stdlib.rb +37 -0
- data/lib/el4r/exec-el4r.rb +182 -0
- data/man/el4r.1 +125 -0
- data/setup.rb +1551 -0
- data/testing/alltest.rb +5 -0
- data/testing/badcase.rb +50 -0
- data/testing/el4r.e +262 -0
- data/testing/euc.txt +1 -0
- data/testing/jis.txt +1 -0
- data/testing/sjis.txt +1 -0
- data/testing/test-el4r.rb +1053 -0
- data/testing/test-gc.rb +81 -0
- data/testing/test.el +16 -0
- data/testing/test.rb +97 -0
- data/testing/utf8.txt +1 -0
- metadata +311 -0
|
@@ -0,0 +1,27 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>funcall (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 263</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">funcall</span>(<span class="ruby-identifier">name_or_lambda</span>, <span class="ruby-operator">*</span><span class="ruby-identifier">args</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
<span class="ruby-identifier">func</span> = <span class="ruby-keyword kw">case</span> <span class="ruby-identifier">name_or_lambda</span>
|
|
16
|
+
<span class="ruby-keyword kw">when</span> <span class="ruby-constant">Symbol</span>, <span class="ruby-constant">String</span>
|
|
17
|
+
<span class="ruby-constant">El4r</span>.<span class="ruby-identifier">name_rb2el</span>(<span class="ruby-identifier">name_or_lambda</span>.<span class="ruby-identifier">to_s</span>)
|
|
18
|
+
<span class="ruby-keyword kw">when</span> <span class="ruby-constant">ELObject</span>, <span class="ruby-constant">ELExpression</span>
|
|
19
|
+
<span class="ruby-node">"funcall #{el4r_ruby2lisp(name_or_lambda)}"</span>
|
|
20
|
+
<span class="ruby-keyword kw">else</span>
|
|
21
|
+
<span class="ruby-identifier">raise</span>(<span class="ruby-constant">TypeError</span>,
|
|
22
|
+
<span class="ruby-node">"Invalid 1st argument for funcall: #{name_or_lambda.inspect}"</span>)
|
|
23
|
+
<span class="ruby-keyword kw">end</span>
|
|
24
|
+
<span class="ruby-identifier">funcall_internal</span>(<span class="ruby-identifier">func</span>, <span class="ruby-operator">*</span><span class="ruby-identifier">args</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
25
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
26
|
+
</body>
|
|
27
|
+
</html>
|
|
@@ -0,0 +1,27 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>funcall (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 281</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">funcall</span>(<span class="ruby-identifier">name_or_lambda</span>, <span class="ruby-operator">*</span><span class="ruby-identifier">args</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
<span class="ruby-identifier">func</span> = <span class="ruby-keyword kw">case</span> <span class="ruby-identifier">name_or_lambda</span>
|
|
16
|
+
<span class="ruby-keyword kw">when</span> <span class="ruby-constant">Symbol</span>, <span class="ruby-constant">String</span>
|
|
17
|
+
<span class="ruby-constant">El4r</span>.<span class="ruby-identifier">name_rb2el</span>(<span class="ruby-identifier">name_or_lambda</span>.<span class="ruby-identifier">to_s</span>)
|
|
18
|
+
<span class="ruby-keyword kw">when</span> <span class="ruby-constant">ELObject</span>, <span class="ruby-constant">ELExpression</span>
|
|
19
|
+
<span class="ruby-node">"funcall #{el4r_ruby2lisp(name_or_lambda)}"</span>
|
|
20
|
+
<span class="ruby-keyword kw">else</span>
|
|
21
|
+
<span class="ruby-identifier">raise</span>(<span class="ruby-constant">TypeError</span>,
|
|
22
|
+
<span class="ruby-node">"Invalid 1st argument for funcall: #{name_or_lambda.inspect}"</span>)
|
|
23
|
+
<span class="ruby-keyword kw">end</span>
|
|
24
|
+
<span class="ruby-identifier">funcall_internal</span>(<span class="ruby-identifier">func</span>, <span class="ruby-operator">*</span><span class="ruby-identifier">args</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
25
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
26
|
+
</body>
|
|
27
|
+
</html>
|
|
@@ -0,0 +1,18 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>funcall_internal (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 277</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">funcall_internal</span>(<span class="ruby-identifier">funcexpr</span>, <span class="ruby-operator">*</span><span class="ruby-identifier">args</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
<span class="ruby-identifier">el4r_lisp_eval</span>(<span class="ruby-node">"(#{funcexpr} #{el4r_args_to_lispseq(*args, &block)})"</span>)
|
|
16
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
17
|
+
</body>
|
|
18
|
+
</html>
|
|
@@ -0,0 +1,18 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>funcall_internal (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 295</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">funcall_internal</span>(<span class="ruby-identifier">funcexpr</span>, <span class="ruby-operator">*</span><span class="ruby-identifier">args</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
<span class="ruby-identifier">el4r_lisp_eval</span>(<span class="ruby-node">"(#{funcexpr} #{el4r_args_to_lispseq(*args, &block)})"</span>)
|
|
16
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
17
|
+
</body>
|
|
18
|
+
</html>
|
|
@@ -0,0 +1,27 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>funcall (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 281</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">funcall</span>(<span class="ruby-identifier">name_or_lambda</span>, <span class="ruby-operator">*</span><span class="ruby-identifier">args</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
<span class="ruby-identifier">func</span> = <span class="ruby-keyword kw">case</span> <span class="ruby-identifier">name_or_lambda</span>
|
|
16
|
+
<span class="ruby-keyword kw">when</span> <span class="ruby-constant">Symbol</span>, <span class="ruby-constant">String</span>
|
|
17
|
+
<span class="ruby-constant">El4r</span>.<span class="ruby-identifier">name_rb2el</span>(<span class="ruby-identifier">name_or_lambda</span>.<span class="ruby-identifier">to_s</span>)
|
|
18
|
+
<span class="ruby-keyword kw">when</span> <span class="ruby-constant">ELObject</span>, <span class="ruby-constant">ELExpression</span>
|
|
19
|
+
<span class="ruby-node">"funcall #{el4r_ruby2lisp(name_or_lambda)}"</span>
|
|
20
|
+
<span class="ruby-keyword kw">else</span>
|
|
21
|
+
<span class="ruby-identifier">raise</span>(<span class="ruby-constant">TypeError</span>,
|
|
22
|
+
<span class="ruby-node">"Invalid 1st argument for funcall: #{name_or_lambda.inspect}"</span>)
|
|
23
|
+
<span class="ruby-keyword kw">end</span>
|
|
24
|
+
<span class="ruby-identifier">funcall_internal</span>(<span class="ruby-identifier">func</span>, <span class="ruby-operator">*</span><span class="ruby-identifier">args</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
25
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
26
|
+
</body>
|
|
27
|
+
</html>
|
|
@@ -0,0 +1,19 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>defun (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 312</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">defun</span>(<span class="ruby-identifier">name</span>, <span class="ruby-identifier">attrs</span> = <span class="ruby-keyword kw">nil</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
<span class="ruby-constant">String</span> <span class="ruby-operator">===</span> <span class="ruby-identifier">name</span> <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">name</span> = <span class="ruby-identifier">el</span>(<span class="ruby-node">"'#{name}"</span>)
|
|
16
|
+
<span class="ruby-identifier">funcall_internal</span>(<span class="ruby-value str">"el4r-define-function"</span>, <span class="ruby-identifier">name</span>, <span class="ruby-identifier">el_lambda</span>(<span class="ruby-identifier">attrs</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>))
|
|
17
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
18
|
+
</body>
|
|
19
|
+
</html>
|
|
@@ -0,0 +1,18 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>funcall_internal (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 295</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">funcall_internal</span>(<span class="ruby-identifier">funcexpr</span>, <span class="ruby-operator">*</span><span class="ruby-identifier">args</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
<span class="ruby-identifier">el4r_lisp_eval</span>(<span class="ruby-node">"(#{funcexpr} #{el4r_args_to_lispseq(*args, &block)})"</span>)
|
|
16
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
17
|
+
</body>
|
|
18
|
+
</html>
|
|
@@ -0,0 +1,19 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>with (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 300</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">with</span>(<span class="ruby-identifier">name</span>, <span class="ruby-operator">*</span><span class="ruby-identifier">args</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
<span class="ruby-identifier">args</span> <span class="ruby-operator"><<</span> <span class="ruby-identifier">el</span>(<span class="ruby-node">"(funcall #{el4r_rubyproc_to_lambda(&block)})"</span>)
|
|
16
|
+
<span class="ruby-identifier">funcall</span>(<span class="ruby-identifier">name</span>, <span class="ruby-operator">*</span><span class="ruby-identifier">args</span>)
|
|
17
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
18
|
+
</body>
|
|
19
|
+
</html>
|
|
@@ -0,0 +1,19 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>defun (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 312</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">defun</span>(<span class="ruby-identifier">name</span>, <span class="ruby-identifier">attrs</span> = <span class="ruby-keyword kw">nil</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
<span class="ruby-constant">String</span> <span class="ruby-operator">===</span> <span class="ruby-identifier">name</span> <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">name</span> = <span class="ruby-identifier">el</span>(<span class="ruby-node">"'#{name}"</span>)
|
|
16
|
+
<span class="ruby-identifier">funcall_internal</span>(<span class="ruby-value str">"el4r-define-function"</span>, <span class="ruby-identifier">name</span>, <span class="ruby-identifier">el_lambda</span>(<span class="ruby-identifier">attrs</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>))
|
|
17
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
18
|
+
</body>
|
|
19
|
+
</html>
|
|
@@ -0,0 +1,18 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>defvar (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 317</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">defvar</span>(<span class="ruby-identifier">name</span>, <span class="ruby-identifier">value</span>=<span class="ruby-keyword kw">nil</span>, <span class="ruby-identifier">docstring</span>=<span class="ruby-value str">""</span>)
|
|
15
|
+
<span class="ruby-identifier">funcall_internal</span> <span class="ruby-identifier">:defvar</span>, <span class="ruby-identifier">el</span>(<span class="ruby-identifier">name</span>), <span class="ruby-identifier">value</span>, <span class="ruby-identifier">docstring</span>
|
|
16
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
17
|
+
</body>
|
|
18
|
+
</html>
|
|
@@ -0,0 +1,21 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>define_key (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 325</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">define_key</span>(<span class="ruby-identifier">map</span>, <span class="ruby-identifier">key</span>, <span class="ruby-identifier">command</span> = <span class="ruby-keyword kw">nil</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
<span class="ruby-identifier">map</span> = <span class="ruby-identifier">el</span>(<span class="ruby-identifier">map</span>) <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">map</span>.<span class="ruby-identifier">kind_of?</span>(<span class="ruby-constant">ELObject</span>)
|
|
16
|
+
<span class="ruby-identifier">key</span> = <span class="ruby-identifier">el</span>(<span class="ruby-node">%Q'"#{key}"'</span>) <span class="ruby-keyword kw">if</span> <span class="ruby-identifier">key</span>.<span class="ruby-identifier">kind_of?</span>(<span class="ruby-constant">String</span>)
|
|
17
|
+
<span class="ruby-identifier">command</span> = <span class="ruby-identifier">el_lambda</span>(<span class="ruby-identifier">:interactive</span> =<span class="ruby-operator">></span> <span class="ruby-keyword kw">true</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>) <span class="ruby-keyword kw">if</span> <span class="ruby-identifier">block_given?</span>
|
|
18
|
+
<span class="ruby-identifier">funcall_internal</span>(<span class="ruby-value str">"define-key"</span>, <span class="ruby-identifier">map</span>, <span class="ruby-identifier">key</span>, <span class="ruby-identifier">command</span>)
|
|
19
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
20
|
+
</body>
|
|
21
|
+
</html>
|
|
@@ -0,0 +1,18 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>symbol_value (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 332</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">symbol_value</span>(<span class="ruby-identifier">name</span>)
|
|
15
|
+
<span class="ruby-identifier">el4r_lisp_eval</span>(<span class="ruby-constant">El4r</span>.<span class="ruby-identifier">name_rb2el</span>(<span class="ruby-identifier">name</span>.<span class="ruby-identifier">to_s</span>))
|
|
16
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
17
|
+
</body>
|
|
18
|
+
</html>
|
|
@@ -0,0 +1,23 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>eval_after_load (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 343</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">eval_after_load</span>(<span class="ruby-identifier">lib</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
<span class="ruby-identifier">raise</span> <span class="ruby-constant">ArgumentError</span>, <span class="ruby-value str">"must have block"</span> <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">block</span>
|
|
16
|
+
<span class="ruby-comment cmt"># el4r_lisp_eval "(eval-after-load #{el4r_ruby2lisp(lib)} '(funcall #{el4r_rubyproc_to_lambda(&block)}))" # '</span>
|
|
17
|
+
<span class="ruby-identifier">defun</span>(<span class="ruby-ivar">@eval_after_load_func</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
18
|
+
<span class="ruby-identifier">el4r_lisp_eval</span> <span class="ruby-node">"(eval-after-load #{el4r_ruby2lisp(lib)} '(#{@eval_after_load_func}))"</span> <span class="ruby-comment cmt"># '</span>
|
|
19
|
+
<span class="ruby-ivar">@eval_after_load_func</span>.<span class="ruby-identifier">succ!</span>
|
|
20
|
+
<span class="ruby-keyword kw">nil</span>
|
|
21
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
22
|
+
</body>
|
|
23
|
+
</html>
|
|
@@ -0,0 +1,18 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>setq (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 337</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">setq</span>(<span class="ruby-identifier">name</span>, <span class="ruby-identifier">value</span>)
|
|
15
|
+
<span class="ruby-identifier">el4r_lisp_eval</span>(<span class="ruby-node">"(setq #{El4r.name_rb2el(name.to_s)} #{el4r_ruby2lisp(value)})"</span>)
|
|
16
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
17
|
+
</body>
|
|
18
|
+
</html>
|
|
@@ -0,0 +1,46 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>newbuf (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 383</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">newbuf</span>(<span class="ruby-identifier">x</span>)
|
|
15
|
+
<span class="ruby-constant">Hash</span> <span class="ruby-operator">===</span> <span class="ruby-identifier">x</span> <span class="ruby-keyword kw">or</span> <span class="ruby-identifier">raise</span> <span class="ruby-constant">ArgumentError</span>, <span class="ruby-value str">"argument must be a hash!"</span>
|
|
16
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:name</span>] <span class="ruby-operator">||</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">:file</span>] <span class="ruby-keyword kw">or</span> <span class="ruby-identifier">raise</span> <span class="ruby-constant">ArgumentError</span>, <span class="ruby-value str">"`:name' or `:file' key is mandatory!"</span>
|
|
17
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:name</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">b</span> = <span class="ruby-identifier">get_buffer_create</span>(<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:name</span>])
|
|
18
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:file</span>] <span class="ruby-operator">&&</span> <span class="ruby-operator">!</span><span class="ruby-identifier">x</span>[<span class="ruby-identifier">:name</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">b</span> = <span class="ruby-identifier">find_file_noselect</span>(<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:file</span>])
|
|
19
|
+
|
|
20
|
+
<span class="ruby-identifier">check</span> = <span class="ruby-identifier">lambda</span>{<span class="ruby-operator">|</span><span class="ruby-identifier">key</span>, <span class="ruby-identifier">type</span><span class="ruby-operator">|</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">key</span>] <span class="ruby-operator">&&</span> (<span class="ruby-identifier">type</span><span class="ruby-operator">===</span><span class="ruby-identifier">x</span>[<span class="ruby-identifier">key</span>] <span class="ruby-keyword kw">or</span> <span class="ruby-identifier">raise</span> <span class="ruby-constant">ArgumentError</span>) }
|
|
21
|
+
<span class="ruby-identifier">with</span>(<span class="ruby-identifier">:with_current_buffer</span>, <span class="ruby-identifier">b</span>) {
|
|
22
|
+
<span class="ruby-identifier">elvar</span>.<span class="ruby-identifier">buffer_read_only</span> = <span class="ruby-keyword kw">nil</span>
|
|
23
|
+
<span class="ruby-comment cmt"># TODO: coding-system</span>
|
|
24
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:name</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">erase_buffer</span>
|
|
25
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:name</span>] <span class="ruby-operator">&&</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">:file</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">insert_file_contents</span>(<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:file</span>])
|
|
26
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:contents</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">insert</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">:contents</span>].<span class="ruby-identifier">to_s</span>
|
|
27
|
+
<span class="ruby-identifier">check</span>[<span class="ruby-identifier">:line</span>,<span class="ruby-constant">Integer</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">goto_line</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">:line</span>]
|
|
28
|
+
<span class="ruby-identifier">check</span>[<span class="ruby-identifier">:point</span>,<span class="ruby-constant">Integer</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">goto_char</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">:point</span>]
|
|
29
|
+
<span class="ruby-identifier">block_given?</span> <span class="ruby-keyword kw">and</span> <span class="ruby-keyword kw">yield</span>
|
|
30
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:read_only</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">elvar</span>.<span class="ruby-identifier">buffer_read_only</span> = <span class="ruby-keyword kw">true</span>
|
|
31
|
+
}
|
|
32
|
+
|
|
33
|
+
<span class="ruby-keyword kw">case</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">:display</span>]
|
|
34
|
+
<span class="ruby-keyword kw">when</span> <span class="ruby-identifier">:pop</span>; <span class="ruby-identifier">pop_to_buffer</span> <span class="ruby-identifier">b</span>
|
|
35
|
+
<span class="ruby-keyword kw">when</span> <span class="ruby-identifier">:only</span>; <span class="ruby-identifier">delete_other_windows</span>; <span class="ruby-identifier">switch_to_buffer</span> <span class="ruby-identifier">b</span>
|
|
36
|
+
<span class="ruby-keyword kw">when</span> <span class="ruby-keyword kw">true</span>; <span class="ruby-identifier">display_buffer</span> <span class="ruby-identifier">b</span>
|
|
37
|
+
<span class="ruby-keyword kw">else</span>
|
|
38
|
+
<span class="ruby-keyword kw">end</span>
|
|
39
|
+
|
|
40
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:bury</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">bury_buffer</span> <span class="ruby-identifier">b</span>
|
|
41
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:current</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">set_buffer</span> <span class="ruby-identifier">b</span>
|
|
42
|
+
|
|
43
|
+
<span class="ruby-identifier">b</span>
|
|
44
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
45
|
+
</body>
|
|
46
|
+
</html>
|
|
@@ -0,0 +1,18 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>_init_eval_after_load (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 342</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">_init_eval_after_load</span>
|
|
15
|
+
<span class="ruby-ivar">@eval_after_load_func</span> = <span class="ruby-value str">"el4r-eval-after-load-function-1"</span>
|
|
16
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
17
|
+
</body>
|
|
18
|
+
</html>
|
|
@@ -0,0 +1,23 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>eval_after_load (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 347</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">eval_after_load</span>(<span class="ruby-identifier">lib</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
<span class="ruby-identifier">raise</span> <span class="ruby-constant">ArgumentError</span>, <span class="ruby-value str">"must have block"</span> <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">block</span>
|
|
16
|
+
<span class="ruby-comment cmt"># el4r_lisp_eval "(eval-after-load #{el4r_ruby2lisp(lib)} '(funcall #{el4r_rubyproc_to_lambda(&block)}))" # '</span>
|
|
17
|
+
<span class="ruby-identifier">defun</span>(<span class="ruby-ivar">@eval_after_load_func</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
18
|
+
<span class="ruby-identifier">el4r_lisp_eval</span> <span class="ruby-node">"(eval-after-load #{el4r_ruby2lisp(lib)} '(#{@eval_after_load_func}))"</span> <span class="ruby-comment cmt"># '</span>
|
|
19
|
+
<span class="ruby-ivar">@eval_after_load_func</span>.<span class="ruby-identifier">succ!</span>
|
|
20
|
+
<span class="ruby-keyword kw">nil</span>
|
|
21
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
22
|
+
</body>
|
|
23
|
+
</html>
|
|
@@ -0,0 +1,28 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>let (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 360</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">let</span>(<span class="ruby-operator">*</span><span class="ruby-identifier">name_and_value_list</span>, <span class="ruby-operator">&</span><span class="ruby-identifier">block</span>)
|
|
15
|
+
(<span class="ruby-identifier">name_and_value_list</span>.<span class="ruby-identifier">size</span> <span class="ruby-operator">%</span> <span class="ruby-value">2</span>) <span class="ruby-operator">==</span> <span class="ruby-value">0</span> <span class="ruby-keyword kw">or</span>
|
|
16
|
+
<span class="ruby-identifier">raise</span>(<span class="ruby-constant">ArgumentError</span>, <span class="ruby-value str">"Invalid count of arguments."</span>)
|
|
17
|
+
|
|
18
|
+
<span class="ruby-identifier">letexpr</span> = <span class="ruby-value str">"(let ("</span>
|
|
19
|
+
<span class="ruby-keyword kw">until</span> <span class="ruby-identifier">name_and_value_list</span>.<span class="ruby-identifier">empty?</span>
|
|
20
|
+
<span class="ruby-identifier">name</span> = <span class="ruby-constant">El4r</span>.<span class="ruby-identifier">name_rb2el</span>(<span class="ruby-identifier">name_and_value_list</span>.<span class="ruby-identifier">shift</span>.<span class="ruby-identifier">to_s</span>)
|
|
21
|
+
<span class="ruby-identifier">value</span> = <span class="ruby-identifier">el4r_ruby2lisp</span>(<span class="ruby-identifier">name_and_value_list</span>.<span class="ruby-identifier">shift</span>)
|
|
22
|
+
<span class="ruby-identifier">letexpr</span> <span class="ruby-operator"><<</span> <span class="ruby-node">"(#{name} #{value}) "</span>
|
|
23
|
+
<span class="ruby-keyword kw">end</span>
|
|
24
|
+
<span class="ruby-identifier">letexpr</span> <span class="ruby-operator"><<</span> <span class="ruby-node">") (funcall #{el4r_rubyproc_to_lambda(&block)}))"</span>
|
|
25
|
+
<span class="ruby-identifier">el4r_lisp_eval</span>(<span class="ruby-identifier">letexpr</span>)
|
|
26
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
27
|
+
</body>
|
|
28
|
+
</html>
|
|
@@ -0,0 +1,46 @@
|
|
|
1
|
+
<?xml version="1.0" encoding="iso-8859-1"?>
|
|
2
|
+
<!DOCTYPE html
|
|
3
|
+
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
|
|
4
|
+
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
5
|
+
|
|
6
|
+
<html>
|
|
7
|
+
<head>
|
|
8
|
+
<title>newbuf (El4r::ELMethodsMixin)</title>
|
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
|
10
|
+
<link rel="stylesheet" href="../../.././rdoc-style.css" type="text/css" media="screen" />
|
|
11
|
+
</head>
|
|
12
|
+
<body class="standalone-code">
|
|
13
|
+
<pre><span class="ruby-comment cmt"># File bin/el4r-instance, line 387</span>
|
|
14
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">newbuf</span>(<span class="ruby-identifier">x</span>)
|
|
15
|
+
<span class="ruby-constant">Hash</span> <span class="ruby-operator">===</span> <span class="ruby-identifier">x</span> <span class="ruby-keyword kw">or</span> <span class="ruby-identifier">raise</span> <span class="ruby-constant">ArgumentError</span>, <span class="ruby-value str">"argument must be a hash!"</span>
|
|
16
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:name</span>] <span class="ruby-operator">||</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">:file</span>] <span class="ruby-keyword kw">or</span> <span class="ruby-identifier">raise</span> <span class="ruby-constant">ArgumentError</span>, <span class="ruby-value str">"`:name' or `:file' key is mandatory!"</span>
|
|
17
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:name</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">b</span> = <span class="ruby-identifier">get_buffer_create</span>(<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:name</span>])
|
|
18
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:file</span>] <span class="ruby-operator">&&</span> <span class="ruby-operator">!</span><span class="ruby-identifier">x</span>[<span class="ruby-identifier">:name</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">b</span> = <span class="ruby-identifier">find_file_noselect</span>(<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:file</span>])
|
|
19
|
+
|
|
20
|
+
<span class="ruby-identifier">check</span> = <span class="ruby-identifier">lambda</span>{<span class="ruby-operator">|</span><span class="ruby-identifier">key</span>, <span class="ruby-identifier">type</span><span class="ruby-operator">|</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">key</span>] <span class="ruby-operator">&&</span> (<span class="ruby-identifier">type</span><span class="ruby-operator">===</span><span class="ruby-identifier">x</span>[<span class="ruby-identifier">key</span>] <span class="ruby-keyword kw">or</span> <span class="ruby-identifier">raise</span> <span class="ruby-constant">ArgumentError</span>) }
|
|
21
|
+
<span class="ruby-identifier">with</span>(<span class="ruby-identifier">:with_current_buffer</span>, <span class="ruby-identifier">b</span>) {
|
|
22
|
+
<span class="ruby-identifier">elvar</span>.<span class="ruby-identifier">buffer_read_only</span> = <span class="ruby-keyword kw">nil</span>
|
|
23
|
+
<span class="ruby-comment cmt"># TODO: coding-system</span>
|
|
24
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:name</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">erase_buffer</span>
|
|
25
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:name</span>] <span class="ruby-operator">&&</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">:file</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">insert_file_contents</span>(<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:file</span>])
|
|
26
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:contents</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">insert</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">:contents</span>].<span class="ruby-identifier">to_s</span>
|
|
27
|
+
<span class="ruby-identifier">check</span>[<span class="ruby-identifier">:line</span>,<span class="ruby-constant">Integer</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">goto_line</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">:line</span>]
|
|
28
|
+
<span class="ruby-identifier">check</span>[<span class="ruby-identifier">:point</span>,<span class="ruby-constant">Integer</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">goto_char</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">:point</span>]
|
|
29
|
+
<span class="ruby-identifier">block_given?</span> <span class="ruby-keyword kw">and</span> <span class="ruby-keyword kw">yield</span>
|
|
30
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:read_only</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">elvar</span>.<span class="ruby-identifier">buffer_read_only</span> = <span class="ruby-keyword kw">true</span>
|
|
31
|
+
}
|
|
32
|
+
|
|
33
|
+
<span class="ruby-keyword kw">case</span> <span class="ruby-identifier">x</span>[<span class="ruby-identifier">:display</span>]
|
|
34
|
+
<span class="ruby-keyword kw">when</span> <span class="ruby-identifier">:pop</span>; <span class="ruby-identifier">pop_to_buffer</span> <span class="ruby-identifier">b</span>
|
|
35
|
+
<span class="ruby-keyword kw">when</span> <span class="ruby-identifier">:only</span>; <span class="ruby-identifier">delete_other_windows</span>; <span class="ruby-identifier">switch_to_buffer</span> <span class="ruby-identifier">b</span>
|
|
36
|
+
<span class="ruby-keyword kw">when</span> <span class="ruby-keyword kw">true</span>; <span class="ruby-identifier">display_buffer</span> <span class="ruby-identifier">b</span>
|
|
37
|
+
<span class="ruby-keyword kw">else</span>
|
|
38
|
+
<span class="ruby-keyword kw">end</span>
|
|
39
|
+
|
|
40
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:bury</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">bury_buffer</span> <span class="ruby-identifier">b</span>
|
|
41
|
+
<span class="ruby-identifier">x</span>[<span class="ruby-identifier">:current</span>] <span class="ruby-keyword kw">and</span> <span class="ruby-identifier">set_buffer</span> <span class="ruby-identifier">b</span>
|
|
42
|
+
|
|
43
|
+
<span class="ruby-identifier">b</span>
|
|
44
|
+
<span class="ruby-keyword kw">end</span></pre>
|
|
45
|
+
</body>
|
|
46
|
+
</html>
|