el4r 1.0.4
This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
- 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>
|