fUnit 0.0.1 → 0.0.2
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/{LICENSE → COPYING} +21 -21
- data/README +26 -2
- data/Rakefile +97 -0
- data/docs/html/classes/Funit.html +390 -0
- data/docs/html/classes/Funit/Assertions.html +285 -0
- data/docs/html/classes/Funit/Compiler.html +160 -0
- data/docs/html/classes/Funit/Depend.html +441 -0
- data/docs/html/classes/Funit/TestSuite.html +417 -0
- data/docs/html/created.rid +1 -0
- data/docs/html/files/COPYING.html +563 -0
- data/docs/html/files/README.html +151 -0
- data/docs/html/files/lib/funit/assertions_rb.html +101 -0
- data/docs/html/files/lib/funit/fortran_deps_rb.html +107 -0
- data/docs/html/files/lib/funit/functions_rb.html +101 -0
- data/docs/html/files/lib/funit/test_suite_rb.html +101 -0
- data/docs/html/files/lib/funit_rb.html +111 -0
- data/docs/html/fr_class_index.html +31 -0
- data/docs/html/fr_file_index.html +33 -0
- data/docs/html/fr_method_index.html +59 -0
- data/docs/html/index.html +24 -0
- data/docs/html/rdoc-style.css +208 -0
- data/examples/CFD/FluxFunctions.f90 +35 -0
- data/examples/CFD/FluxFunctionsMT.f90 +336 -0
- data/examples/CFD/FluxFunctionsMT.ftk +49 -0
- data/examples/CFD/Gammas.f90 +8 -0
- data/examples/CFD/GasModel.f90 +17 -0
- data/examples/CFD/GasModelMT.f90 +173 -0
- data/examples/CFD/GasModelMT.ftk +22 -0
- data/examples/CFD/TestRunner +0 -0
- data/examples/CFD/TestRunner.f90 +23 -0
- data/examples/CFD/fluxfunctions.mod +45 -0
- data/examples/CFD/gammas.mod +20 -0
- data/examples/CFD/gasmodel.mod +30 -0
- data/examples/CFD/gasmodelmt.mod +27 -0
- data/examples/StopWatch/StopWatch.f90 +50 -0
- data/examples/StopWatch/StopWatchMT.f90 +343 -0
- data/examples/StopWatch/StopWatchMT.ftk +73 -0
- data/examples/StopWatch/TestRunner +0 -0
- data/examples/StopWatch/TestRunner.f90 +23 -0
- data/examples/StopWatch/stopwatch.mod +34 -0
- data/examples/StopWatch/stopwatchmt.mod +27 -0
- data/lib/funit.rb +1 -6
- data/lib/funit/fortran_deps.rb +112 -0
- data/lib/funit/functions.rb +2 -5
- data/tests/tc_fortran_deps.rb +2 -2
- metadata +73 -22
- data/INSTALL +0 -19
- data/lib/fortran_deps.rb +0 -109
@@ -0,0 +1,285 @@
|
|
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 xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
|
7
|
+
<head>
|
8
|
+
<title>Module: Funit::Assertions</title>
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
10
|
+
<meta http-equiv="Content-Script-Type" content="text/javascript" />
|
11
|
+
<link rel="stylesheet" href="../.././rdoc-style.css" type="text/css" media="screen" />
|
12
|
+
<script type="text/javascript">
|
13
|
+
// <![CDATA[
|
14
|
+
|
15
|
+
function popupCode( url ) {
|
16
|
+
window.open(url, "Code", "resizable=yes,scrollbars=yes,toolbar=no,status=no,height=150,width=400")
|
17
|
+
}
|
18
|
+
|
19
|
+
function toggleCode( id ) {
|
20
|
+
if ( document.getElementById )
|
21
|
+
elem = document.getElementById( id );
|
22
|
+
else if ( document.all )
|
23
|
+
elem = eval( "document.all." + id );
|
24
|
+
else
|
25
|
+
return false;
|
26
|
+
|
27
|
+
elemStyle = elem.style;
|
28
|
+
|
29
|
+
if ( elemStyle.display != "block" ) {
|
30
|
+
elemStyle.display = "block"
|
31
|
+
} else {
|
32
|
+
elemStyle.display = "none"
|
33
|
+
}
|
34
|
+
|
35
|
+
return true;
|
36
|
+
}
|
37
|
+
|
38
|
+
// Make codeblocks hidden by default
|
39
|
+
document.writeln( "<style type=\"text/css\">div.method-source-code { display: none }</style>" )
|
40
|
+
|
41
|
+
// ]]>
|
42
|
+
</script>
|
43
|
+
|
44
|
+
</head>
|
45
|
+
<body>
|
46
|
+
|
47
|
+
|
48
|
+
|
49
|
+
<div id="classHeader">
|
50
|
+
<table class="header-table">
|
51
|
+
<tr class="top-aligned-row">
|
52
|
+
<td><strong>Module</strong></td>
|
53
|
+
<td class="class-name-in-header">Funit::Assertions</td>
|
54
|
+
</tr>
|
55
|
+
<tr class="top-aligned-row">
|
56
|
+
<td><strong>In:</strong></td>
|
57
|
+
<td>
|
58
|
+
<a href="../../files/lib/funit/assertions_rb.html">
|
59
|
+
lib/funit/assertions.rb
|
60
|
+
</a>
|
61
|
+
<br />
|
62
|
+
</td>
|
63
|
+
</tr>
|
64
|
+
|
65
|
+
</table>
|
66
|
+
</div>
|
67
|
+
<!-- banner header -->
|
68
|
+
|
69
|
+
<div id="bodyContent">
|
70
|
+
|
71
|
+
|
72
|
+
|
73
|
+
<div id="contextContent">
|
74
|
+
|
75
|
+
|
76
|
+
|
77
|
+
</div>
|
78
|
+
|
79
|
+
<div id="method-list">
|
80
|
+
<h3 class="section-bar">Methods</h3>
|
81
|
+
|
82
|
+
<div class="name-list">
|
83
|
+
<a href="#M000013">isequal</a>
|
84
|
+
<a href="#M000012">isequalwithin</a>
|
85
|
+
<a href="#M000010">isfalse</a>
|
86
|
+
<a href="#M000011">isrealequal</a>
|
87
|
+
<a href="#M000009">istrue</a>
|
88
|
+
<a href="#M000014">writeAssert</a>
|
89
|
+
</div>
|
90
|
+
</div>
|
91
|
+
|
92
|
+
</div>
|
93
|
+
|
94
|
+
|
95
|
+
<!-- if includes -->
|
96
|
+
|
97
|
+
<div id="section">
|
98
|
+
|
99
|
+
|
100
|
+
|
101
|
+
|
102
|
+
|
103
|
+
|
104
|
+
|
105
|
+
|
106
|
+
<!-- if method_list -->
|
107
|
+
<div id="methods">
|
108
|
+
<h3 class="section-bar">Public Instance methods</h3>
|
109
|
+
|
110
|
+
<div id="method-M000013" class="method-detail">
|
111
|
+
<a name="M000013"></a>
|
112
|
+
|
113
|
+
<div class="method-heading">
|
114
|
+
<a href="#M000013" class="method-signature">
|
115
|
+
<span class="method-name">isequal</span><span class="method-args">(line)</span>
|
116
|
+
</a>
|
117
|
+
</div>
|
118
|
+
|
119
|
+
<div class="method-description">
|
120
|
+
<p><a class="source-toggle" href="#"
|
121
|
+
onclick="toggleCode('M000013-source');return false;">[Source]</a></p>
|
122
|
+
<div class="method-source-code" id="M000013-source">
|
123
|
+
<pre>
|
124
|
+
<span class="ruby-comment cmt"># File lib/funit/assertions.rb, line 42</span>
|
125
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">isequal</span>(<span class="ruby-identifier">line</span>)
|
126
|
+
<span class="ruby-identifier">line</span><span class="ruby-operator">=~</span><span class="ruby-regexp re">/\((\w+\(.*\)|[^,]+),(.+)\)/</span>
|
127
|
+
<span class="ruby-ivar">@type</span> = <span class="ruby-value str">'IsEqual'</span>
|
128
|
+
<span class="ruby-ivar">@condition</span> = <span class="ruby-value str">".not.(#$1==#$2)"</span>
|
129
|
+
<span class="ruby-ivar">@message</span> = <span class="ruby-value str">"\"#$1 (\",#$1,\") is not\", #$2"</span>
|
130
|
+
<span class="ruby-identifier">syntaxError</span>(<span class="ruby-value str">"invalid body for #@type"</span>,<span class="ruby-ivar">@suiteName</span>) <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">$&</span>
|
131
|
+
<span class="ruby-identifier">writeAssert</span>
|
132
|
+
<span class="ruby-keyword kw">end</span>
|
133
|
+
</pre>
|
134
|
+
</div>
|
135
|
+
</div>
|
136
|
+
</div>
|
137
|
+
|
138
|
+
<div id="method-M000012" class="method-detail">
|
139
|
+
<a name="M000012"></a>
|
140
|
+
|
141
|
+
<div class="method-heading">
|
142
|
+
<a href="#M000012" class="method-signature">
|
143
|
+
<span class="method-name">isequalwithin</span><span class="method-args">(line)</span>
|
144
|
+
</a>
|
145
|
+
</div>
|
146
|
+
|
147
|
+
<div class="method-description">
|
148
|
+
<p><a class="source-toggle" href="#"
|
149
|
+
onclick="toggleCode('M000012-source');return false;">[Source]</a></p>
|
150
|
+
<div class="method-source-code" id="M000012-source">
|
151
|
+
<pre>
|
152
|
+
<span class="ruby-comment cmt"># File lib/funit/assertions.rb, line 33</span>
|
153
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">isequalwithin</span>(<span class="ruby-identifier">line</span>)
|
154
|
+
<span class="ruby-identifier">line</span><span class="ruby-operator">=~</span><span class="ruby-regexp re">/\(([^,]+),(.+),(.+)\)/</span>
|
155
|
+
<span class="ruby-ivar">@type</span> = <span class="ruby-value str">'IsEqualWithin'</span>
|
156
|
+
<span class="ruby-ivar">@condition</span> = <span class="ruby-value str">".not.(#$2+#$3.ge.#$1 &\n .and.#$2-#$3.le.#$1)"</span>
|
157
|
+
<span class="ruby-ivar">@message</span> = <span class="ruby-value str">"\"#$1 (\",#$1,\") is not\",#$2,\"within\",#$3"</span>
|
158
|
+
<span class="ruby-identifier">syntaxError</span>(<span class="ruby-value str">"invalid body for #@type"</span>,<span class="ruby-ivar">@suiteName</span>) <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">$&</span>
|
159
|
+
<span class="ruby-identifier">writeAssert</span>
|
160
|
+
<span class="ruby-keyword kw">end</span>
|
161
|
+
</pre>
|
162
|
+
</div>
|
163
|
+
</div>
|
164
|
+
</div>
|
165
|
+
|
166
|
+
<div id="method-M000010" class="method-detail">
|
167
|
+
<a name="M000010"></a>
|
168
|
+
|
169
|
+
<div class="method-heading">
|
170
|
+
<a href="#M000010" class="method-signature">
|
171
|
+
<span class="method-name">isfalse</span><span class="method-args">(line)</span>
|
172
|
+
</a>
|
173
|
+
</div>
|
174
|
+
|
175
|
+
<div class="method-description">
|
176
|
+
<p><a class="source-toggle" href="#"
|
177
|
+
onclick="toggleCode('M000010-source');return false;">[Source]</a></p>
|
178
|
+
<div class="method-source-code" id="M000010-source">
|
179
|
+
<pre>
|
180
|
+
<span class="ruby-comment cmt"># File lib/funit/assertions.rb, line 15</span>
|
181
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">isfalse</span>(<span class="ruby-identifier">line</span>)
|
182
|
+
<span class="ruby-identifier">line</span><span class="ruby-operator">=~</span><span class="ruby-regexp re">/\((.+)\)/</span>
|
183
|
+
<span class="ruby-ivar">@type</span> = <span class="ruby-value str">'IsFalse'</span>
|
184
|
+
<span class="ruby-ivar">@condition</span> = <span class="ruby-value str">"#$1"</span>
|
185
|
+
<span class="ruby-ivar">@message</span> = <span class="ruby-value str">"\"#$1 is not false\""</span>
|
186
|
+
<span class="ruby-identifier">syntaxError</span>(<span class="ruby-value str">"invalid body for #@type"</span>,<span class="ruby-ivar">@suiteName</span>) <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">$1</span><span class="ruby-operator">=~</span><span class="ruby-regexp re">/\S+/</span>
|
187
|
+
<span class="ruby-identifier">writeAssert</span>
|
188
|
+
<span class="ruby-keyword kw">end</span>
|
189
|
+
</pre>
|
190
|
+
</div>
|
191
|
+
</div>
|
192
|
+
</div>
|
193
|
+
|
194
|
+
<div id="method-M000011" class="method-detail">
|
195
|
+
<a name="M000011"></a>
|
196
|
+
|
197
|
+
<div class="method-heading">
|
198
|
+
<a href="#M000011" class="method-signature">
|
199
|
+
<span class="method-name">isrealequal</span><span class="method-args">(line)</span>
|
200
|
+
</a>
|
201
|
+
</div>
|
202
|
+
|
203
|
+
<div class="method-description">
|
204
|
+
<p><a class="source-toggle" href="#"
|
205
|
+
onclick="toggleCode('M000011-source');return false;">[Source]</a></p>
|
206
|
+
<div class="method-source-code" id="M000011-source">
|
207
|
+
<pre>
|
208
|
+
<span class="ruby-comment cmt"># File lib/funit/assertions.rb, line 24</span>
|
209
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">isrealequal</span>(<span class="ruby-identifier">line</span>)
|
210
|
+
<span class="ruby-identifier">line</span><span class="ruby-operator">=~</span><span class="ruby-regexp re">/\(([^,]+),(.+)\)/</span>
|
211
|
+
<span class="ruby-ivar">@type</span> = <span class="ruby-value str">'IsRealEqual'</span>
|
212
|
+
<span class="ruby-ivar">@condition</span> = <span class="ruby-value str">".not.(#$1+2*spacing(real(#$1)).ge.#$2 &\n .and.#$1-2*spacing(real(#$1)).le.#$2)"</span>
|
213
|
+
<span class="ruby-ivar">@message</span> = <span class="ruby-value str">"\"#$2 (\",#$2,\") is not\",#$1,\"within\",2*spacing(real(#$1))"</span>
|
214
|
+
<span class="ruby-identifier">syntaxError</span>(<span class="ruby-value str">"invalid body for #@type"</span>,<span class="ruby-ivar">@suiteName</span>) <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">$&</span>
|
215
|
+
<span class="ruby-identifier">writeAssert</span>
|
216
|
+
<span class="ruby-keyword kw">end</span>
|
217
|
+
</pre>
|
218
|
+
</div>
|
219
|
+
</div>
|
220
|
+
</div>
|
221
|
+
|
222
|
+
<div id="method-M000009" class="method-detail">
|
223
|
+
<a name="M000009"></a>
|
224
|
+
|
225
|
+
<div class="method-heading">
|
226
|
+
<a href="#M000009" class="method-signature">
|
227
|
+
<span class="method-name">istrue</span><span class="method-args">(line)</span>
|
228
|
+
</a>
|
229
|
+
</div>
|
230
|
+
|
231
|
+
<div class="method-description">
|
232
|
+
<p><a class="source-toggle" href="#"
|
233
|
+
onclick="toggleCode('M000009-source');return false;">[Source]</a></p>
|
234
|
+
<div class="method-source-code" id="M000009-source">
|
235
|
+
<pre>
|
236
|
+
<span class="ruby-comment cmt"># File lib/funit/assertions.rb, line 6</span>
|
237
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">istrue</span>(<span class="ruby-identifier">line</span>)
|
238
|
+
<span class="ruby-identifier">line</span><span class="ruby-operator">=~</span><span class="ruby-regexp re">/\((.+)\)/</span>
|
239
|
+
<span class="ruby-ivar">@type</span> = <span class="ruby-value str">'IsTrue'</span>
|
240
|
+
<span class="ruby-ivar">@condition</span> = <span class="ruby-value str">".not.(#$1)"</span>
|
241
|
+
<span class="ruby-ivar">@message</span> = <span class="ruby-value str">"\"#$1 is not true\""</span>
|
242
|
+
<span class="ruby-identifier">syntaxError</span>(<span class="ruby-value str">"invalid body for #@type"</span>,<span class="ruby-ivar">@suiteName</span>) <span class="ruby-keyword kw">unless</span> <span class="ruby-identifier">$1</span><span class="ruby-operator">=~</span><span class="ruby-regexp re">/\S+/</span>
|
243
|
+
<span class="ruby-identifier">writeAssert</span>
|
244
|
+
<span class="ruby-keyword kw">end</span>
|
245
|
+
</pre>
|
246
|
+
</div>
|
247
|
+
</div>
|
248
|
+
</div>
|
249
|
+
|
250
|
+
<div id="method-M000014" class="method-detail">
|
251
|
+
<a name="M000014"></a>
|
252
|
+
|
253
|
+
<div class="method-heading">
|
254
|
+
<a href="#M000014" class="method-signature">
|
255
|
+
<span class="method-name">writeAssert</span><span class="method-args">()</span>
|
256
|
+
</a>
|
257
|
+
</div>
|
258
|
+
|
259
|
+
<div class="method-description">
|
260
|
+
<p><a class="source-toggle" href="#"
|
261
|
+
onclick="toggleCode('M000014-source');return false;">[Source]</a></p>
|
262
|
+
<div class="method-source-code" id="M000014-source">
|
263
|
+
<pre>
|
264
|
+
<span class="ruby-comment cmt"># File lib/funit/assertions.rb, line 51</span>
|
265
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">writeAssert</span>
|
266
|
+
<span class="ruby-value str">"\n! \#@type assertion\nnumAsserts = numAsserts + 1\nif (noAssertFailed) then\nif (\#@condition) then\nprint *, \" *\#@type failed* in test \#@testName &\n&[\#{@suiteName}MT.ftk:\#{@lineNumber.to_s}]\"\nprint *, \" \", \#@message\nprint *, \"\"\nnoAssertFailed = .false.\nnumFailures = numFailures + 1\nelse\nnumAssertsTested = numAssertsTested + 1\nendif\nendif\n"</span>
|
267
|
+
<span class="ruby-keyword kw">end</span>
|
268
|
+
</pre>
|
269
|
+
</div>
|
270
|
+
</div>
|
271
|
+
</div>
|
272
|
+
|
273
|
+
|
274
|
+
</div>
|
275
|
+
|
276
|
+
|
277
|
+
</div>
|
278
|
+
|
279
|
+
|
280
|
+
<div id="validator-badges">
|
281
|
+
<p><small><a href="http://validator.w3.org/check/referer">[Validate]</a></small></p>
|
282
|
+
</div>
|
283
|
+
|
284
|
+
</body>
|
285
|
+
</html>
|
@@ -0,0 +1,160 @@
|
|
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 xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
|
7
|
+
<head>
|
8
|
+
<title>Class: Funit::Compiler</title>
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
10
|
+
<meta http-equiv="Content-Script-Type" content="text/javascript" />
|
11
|
+
<link rel="stylesheet" href="../.././rdoc-style.css" type="text/css" media="screen" />
|
12
|
+
<script type="text/javascript">
|
13
|
+
// <![CDATA[
|
14
|
+
|
15
|
+
function popupCode( url ) {
|
16
|
+
window.open(url, "Code", "resizable=yes,scrollbars=yes,toolbar=no,status=no,height=150,width=400")
|
17
|
+
}
|
18
|
+
|
19
|
+
function toggleCode( id ) {
|
20
|
+
if ( document.getElementById )
|
21
|
+
elem = document.getElementById( id );
|
22
|
+
else if ( document.all )
|
23
|
+
elem = eval( "document.all." + id );
|
24
|
+
else
|
25
|
+
return false;
|
26
|
+
|
27
|
+
elemStyle = elem.style;
|
28
|
+
|
29
|
+
if ( elemStyle.display != "block" ) {
|
30
|
+
elemStyle.display = "block"
|
31
|
+
} else {
|
32
|
+
elemStyle.display = "none"
|
33
|
+
}
|
34
|
+
|
35
|
+
return true;
|
36
|
+
}
|
37
|
+
|
38
|
+
// Make codeblocks hidden by default
|
39
|
+
document.writeln( "<style type=\"text/css\">div.method-source-code { display: none }</style>" )
|
40
|
+
|
41
|
+
// ]]>
|
42
|
+
</script>
|
43
|
+
|
44
|
+
</head>
|
45
|
+
<body>
|
46
|
+
|
47
|
+
|
48
|
+
|
49
|
+
<div id="classHeader">
|
50
|
+
<table class="header-table">
|
51
|
+
<tr class="top-aligned-row">
|
52
|
+
<td><strong>Class</strong></td>
|
53
|
+
<td class="class-name-in-header">Funit::Compiler</td>
|
54
|
+
</tr>
|
55
|
+
<tr class="top-aligned-row">
|
56
|
+
<td><strong>In:</strong></td>
|
57
|
+
<td>
|
58
|
+
<a href="../../files/lib/funit/functions_rb.html">
|
59
|
+
lib/funit/functions.rb
|
60
|
+
</a>
|
61
|
+
<br />
|
62
|
+
</td>
|
63
|
+
</tr>
|
64
|
+
|
65
|
+
<tr class="top-aligned-row">
|
66
|
+
<td><strong>Parent:</strong></td>
|
67
|
+
<td>
|
68
|
+
Object
|
69
|
+
</td>
|
70
|
+
</tr>
|
71
|
+
</table>
|
72
|
+
</div>
|
73
|
+
<!-- banner header -->
|
74
|
+
|
75
|
+
<div id="bodyContent">
|
76
|
+
|
77
|
+
|
78
|
+
|
79
|
+
<div id="contextContent">
|
80
|
+
|
81
|
+
|
82
|
+
|
83
|
+
</div>
|
84
|
+
|
85
|
+
<div id="method-list">
|
86
|
+
<h3 class="section-bar">Methods</h3>
|
87
|
+
|
88
|
+
<div class="name-list">
|
89
|
+
<a href="#M000025">new</a>
|
90
|
+
</div>
|
91
|
+
</div>
|
92
|
+
|
93
|
+
</div>
|
94
|
+
|
95
|
+
|
96
|
+
<!-- if includes -->
|
97
|
+
|
98
|
+
<div id="section">
|
99
|
+
|
100
|
+
|
101
|
+
|
102
|
+
|
103
|
+
|
104
|
+
<div id="attribute-list">
|
105
|
+
<h3 class="section-bar">Attributes</h3>
|
106
|
+
|
107
|
+
<div class="name-list">
|
108
|
+
<table>
|
109
|
+
<tr class="top-aligned-row context-row">
|
110
|
+
<td class="context-item-name">name</td>
|
111
|
+
<td class="context-item-value"> [R] </td>
|
112
|
+
<td class="context-item-desc"></td>
|
113
|
+
</tr>
|
114
|
+
</table>
|
115
|
+
</div>
|
116
|
+
</div>
|
117
|
+
|
118
|
+
|
119
|
+
|
120
|
+
<!-- if method_list -->
|
121
|
+
<div id="methods">
|
122
|
+
<h3 class="section-bar">Public Class methods</h3>
|
123
|
+
|
124
|
+
<div id="method-M000025" class="method-detail">
|
125
|
+
<a name="M000025"></a>
|
126
|
+
|
127
|
+
<div class="method-heading">
|
128
|
+
<a href="#M000025" class="method-signature">
|
129
|
+
<span class="method-name">new</span><span class="method-args">( name=ENV['F9X'] )</span>
|
130
|
+
</a>
|
131
|
+
</div>
|
132
|
+
|
133
|
+
<div class="method-description">
|
134
|
+
<p><a class="source-toggle" href="#"
|
135
|
+
onclick="toggleCode('M000025-source');return false;">[Source]</a></p>
|
136
|
+
<div class="method-source-code" id="M000025-source">
|
137
|
+
<pre>
|
138
|
+
<span class="ruby-comment cmt"># File lib/funit/functions.rb, line 7</span>
|
139
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">initialize</span>( <span class="ruby-identifier">name</span>=<span class="ruby-constant">ENV</span>[<span class="ruby-value str">'F9X'</span>] )
|
140
|
+
<span class="ruby-identifier">errorMessage</span> = <span class="ruby-value str">"\nFortran compiler environment variable 'F9X' not set:\n\nfor bourne-based shells: export F9X=lf95 (in .profile)\nfor c-based shells: setenv F9X lf95 (in .login)\nfor windows: set F9X=C:\\\\Program Files\\\\lf95 (in autoexec.bat)\n\n"</span>
|
141
|
+
<span class="ruby-identifier">raise</span>(<span class="ruby-identifier">errorMessage</span>) <span class="ruby-keyword kw">unless</span> <span class="ruby-ivar">@name</span> = <span class="ruby-identifier">name</span>
|
142
|
+
<span class="ruby-keyword kw">end</span>
|
143
|
+
</pre>
|
144
|
+
</div>
|
145
|
+
</div>
|
146
|
+
</div>
|
147
|
+
|
148
|
+
|
149
|
+
</div>
|
150
|
+
|
151
|
+
|
152
|
+
</div>
|
153
|
+
|
154
|
+
|
155
|
+
<div id="validator-badges">
|
156
|
+
<p><small><a href="http://validator.w3.org/check/referer">[Validate]</a></small></p>
|
157
|
+
</div>
|
158
|
+
|
159
|
+
</body>
|
160
|
+
</html>
|
@@ -0,0 +1,441 @@
|
|
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 xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
|
7
|
+
<head>
|
8
|
+
<title>Class: Funit::Depend</title>
|
9
|
+
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
|
10
|
+
<meta http-equiv="Content-Script-Type" content="text/javascript" />
|
11
|
+
<link rel="stylesheet" href="../.././rdoc-style.css" type="text/css" media="screen" />
|
12
|
+
<script type="text/javascript">
|
13
|
+
// <![CDATA[
|
14
|
+
|
15
|
+
function popupCode( url ) {
|
16
|
+
window.open(url, "Code", "resizable=yes,scrollbars=yes,toolbar=no,status=no,height=150,width=400")
|
17
|
+
}
|
18
|
+
|
19
|
+
function toggleCode( id ) {
|
20
|
+
if ( document.getElementById )
|
21
|
+
elem = document.getElementById( id );
|
22
|
+
else if ( document.all )
|
23
|
+
elem = eval( "document.all." + id );
|
24
|
+
else
|
25
|
+
return false;
|
26
|
+
|
27
|
+
elemStyle = elem.style;
|
28
|
+
|
29
|
+
if ( elemStyle.display != "block" ) {
|
30
|
+
elemStyle.display = "block"
|
31
|
+
} else {
|
32
|
+
elemStyle.display = "none"
|
33
|
+
}
|
34
|
+
|
35
|
+
return true;
|
36
|
+
}
|
37
|
+
|
38
|
+
// Make codeblocks hidden by default
|
39
|
+
document.writeln( "<style type=\"text/css\">div.method-source-code { display: none }</style>" )
|
40
|
+
|
41
|
+
// ]]>
|
42
|
+
</script>
|
43
|
+
|
44
|
+
</head>
|
45
|
+
<body>
|
46
|
+
|
47
|
+
|
48
|
+
|
49
|
+
<div id="classHeader">
|
50
|
+
<table class="header-table">
|
51
|
+
<tr class="top-aligned-row">
|
52
|
+
<td><strong>Class</strong></td>
|
53
|
+
<td class="class-name-in-header">Funit::Depend</td>
|
54
|
+
</tr>
|
55
|
+
<tr class="top-aligned-row">
|
56
|
+
<td><strong>In:</strong></td>
|
57
|
+
<td>
|
58
|
+
<a href="../../files/lib/funit/fortran_deps_rb.html">
|
59
|
+
lib/funit/fortran_deps.rb
|
60
|
+
</a>
|
61
|
+
<br />
|
62
|
+
</td>
|
63
|
+
</tr>
|
64
|
+
|
65
|
+
<tr class="top-aligned-row">
|
66
|
+
<td><strong>Parent:</strong></td>
|
67
|
+
<td>
|
68
|
+
Object
|
69
|
+
</td>
|
70
|
+
</tr>
|
71
|
+
</table>
|
72
|
+
</div>
|
73
|
+
<!-- banner header -->
|
74
|
+
|
75
|
+
<div id="bodyContent">
|
76
|
+
|
77
|
+
|
78
|
+
|
79
|
+
<div id="contextContent">
|
80
|
+
|
81
|
+
|
82
|
+
|
83
|
+
</div>
|
84
|
+
|
85
|
+
<div id="method-list">
|
86
|
+
<h3 class="section-bar">Methods</h3>
|
87
|
+
|
88
|
+
<div class="name-list">
|
89
|
+
<a href="#M000018">build_dictionary_of_modules_in</a>
|
90
|
+
<a href="#M000020">build_hash_of_modules_in_files_within</a>
|
91
|
+
<a href="#M000022">dependencies</a>
|
92
|
+
<a href="#M000019">fortran_files_within</a>
|
93
|
+
<a href="#M000021">makefile_dependency_line</a>
|
94
|
+
<a href="#M000017">modules_defined_in</a>
|
95
|
+
<a href="#M000016">modules_used_in</a>
|
96
|
+
<a href="#M000015">new</a>
|
97
|
+
<a href="#M000024">required_source_files</a>
|
98
|
+
<a href="#M000023">source_file_dependencies</a>
|
99
|
+
</div>
|
100
|
+
</div>
|
101
|
+
|
102
|
+
</div>
|
103
|
+
|
104
|
+
|
105
|
+
<!-- if includes -->
|
106
|
+
|
107
|
+
<div id="section">
|
108
|
+
|
109
|
+
|
110
|
+
|
111
|
+
|
112
|
+
|
113
|
+
<div id="attribute-list">
|
114
|
+
<h3 class="section-bar">Attributes</h3>
|
115
|
+
|
116
|
+
<div class="name-list">
|
117
|
+
<table>
|
118
|
+
<tr class="top-aligned-row context-row">
|
119
|
+
<td class="context-item-name">file_dependencies</td>
|
120
|
+
<td class="context-item-value"> [R] </td>
|
121
|
+
<td class="context-item-desc"></td>
|
122
|
+
</tr>
|
123
|
+
<tr class="top-aligned-row context-row">
|
124
|
+
<td class="context-item-name">source_files</td>
|
125
|
+
<td class="context-item-value"> [R] </td>
|
126
|
+
<td class="context-item-desc"></td>
|
127
|
+
</tr>
|
128
|
+
</table>
|
129
|
+
</div>
|
130
|
+
</div>
|
131
|
+
|
132
|
+
|
133
|
+
|
134
|
+
<!-- if method_list -->
|
135
|
+
<div id="methods">
|
136
|
+
<h3 class="section-bar">Public Class methods</h3>
|
137
|
+
|
138
|
+
<div id="method-M000015" class="method-detail">
|
139
|
+
<a name="M000015"></a>
|
140
|
+
|
141
|
+
<div class="method-heading">
|
142
|
+
<a href="#M000015" class="method-signature">
|
143
|
+
<span class="method-name">new</span><span class="method-args">( searchPath = %w[ ../lib . ] )</span>
|
144
|
+
</a>
|
145
|
+
</div>
|
146
|
+
|
147
|
+
<div class="method-description">
|
148
|
+
<p><a class="source-toggle" href="#"
|
149
|
+
onclick="toggleCode('M000015-source');return false;">[Source]</a></p>
|
150
|
+
<div class="method-source-code" id="M000015-source">
|
151
|
+
<pre>
|
152
|
+
<span class="ruby-comment cmt"># File lib/funit/fortran_deps.rb, line 11</span>
|
153
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">initialize</span>( <span class="ruby-identifier">searchPath</span> = <span class="ruby-node">%w[ ../lib . ]</span> )
|
154
|
+
<span class="ruby-ivar">@parsed</span> = <span class="ruby-constant">Array</span>.<span class="ruby-identifier">new</span>
|
155
|
+
<span class="ruby-ivar">@hash</span> = <span class="ruby-identifier">build_hash_of_modules_in_files_within</span> <span class="ruby-identifier">searchPath</span>
|
156
|
+
<span class="ruby-ivar">@file_dependencies</span> = <span class="ruby-constant">Hash</span>.<span class="ruby-identifier">new</span>
|
157
|
+
<span class="ruby-ivar">@source_files</span> = <span class="ruby-constant">Array</span>.<span class="ruby-identifier">new</span>
|
158
|
+
<span class="ruby-keyword kw">end</span>
|
159
|
+
</pre>
|
160
|
+
</div>
|
161
|
+
</div>
|
162
|
+
</div>
|
163
|
+
|
164
|
+
<h3 class="section-bar">Public Instance methods</h3>
|
165
|
+
|
166
|
+
<div id="method-M000018" class="method-detail">
|
167
|
+
<a name="M000018"></a>
|
168
|
+
|
169
|
+
<div class="method-heading">
|
170
|
+
<a href="#M000018" class="method-signature">
|
171
|
+
<span class="method-name">build_dictionary_of_modules_in</span><span class="method-args">( files )</span>
|
172
|
+
</a>
|
173
|
+
</div>
|
174
|
+
|
175
|
+
<div class="method-description">
|
176
|
+
<p><a class="source-toggle" href="#"
|
177
|
+
onclick="toggleCode('M000018-source');return false;">[Source]</a></p>
|
178
|
+
<div class="method-source-code" id="M000018-source">
|
179
|
+
<pre>
|
180
|
+
<span class="ruby-comment cmt"># File lib/funit/fortran_deps.rb, line 30</span>
|
181
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">build_dictionary_of_modules_in</span>( <span class="ruby-identifier">files</span> )
|
182
|
+
<span class="ruby-identifier">file_containing_module</span> = <span class="ruby-constant">Hash</span>.<span class="ruby-identifier">new</span>
|
183
|
+
<span class="ruby-identifier">files</span>.<span class="ruby-identifier">each</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">file</span><span class="ruby-operator">|</span>
|
184
|
+
<span class="ruby-identifier">modules_defined_in</span>( <span class="ruby-identifier">file</span> ).<span class="ruby-identifier">each</span>{ <span class="ruby-operator">|</span><span class="ruby-identifier">mod</span><span class="ruby-operator">|</span> <span class="ruby-identifier">file_containing_module</span>[<span class="ruby-identifier">mod</span>]=<span class="ruby-identifier">file</span> }
|
185
|
+
<span class="ruby-keyword kw">end</span>
|
186
|
+
<span class="ruby-identifier">file_containing_module</span>
|
187
|
+
<span class="ruby-keyword kw">end</span>
|
188
|
+
</pre>
|
189
|
+
</div>
|
190
|
+
</div>
|
191
|
+
</div>
|
192
|
+
|
193
|
+
<div id="method-M000020" class="method-detail">
|
194
|
+
<a name="M000020"></a>
|
195
|
+
|
196
|
+
<div class="method-heading">
|
197
|
+
<a href="#M000020" class="method-signature">
|
198
|
+
<span class="method-name">build_hash_of_modules_in_files_within</span><span class="method-args">( searchPath = %w[../lib .] )</span>
|
199
|
+
</a>
|
200
|
+
</div>
|
201
|
+
|
202
|
+
<div class="method-description">
|
203
|
+
<p><a class="source-toggle" href="#"
|
204
|
+
onclick="toggleCode('M000020-source');return false;">[Source]</a></p>
|
205
|
+
<div class="method-source-code" id="M000020-source">
|
206
|
+
<pre>
|
207
|
+
<span class="ruby-comment cmt"># File lib/funit/fortran_deps.rb, line 45</span>
|
208
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">build_hash_of_modules_in_files_within</span>( <span class="ruby-identifier">searchPath</span> = <span class="ruby-node">%w[../lib .]</span> )
|
209
|
+
<span class="ruby-identifier">build_dictionary_of_modules_in</span>( <span class="ruby-identifier">fortran_files_within</span>( <span class="ruby-identifier">searchPath</span> ) )
|
210
|
+
<span class="ruby-keyword kw">end</span>
|
211
|
+
</pre>
|
212
|
+
</div>
|
213
|
+
</div>
|
214
|
+
</div>
|
215
|
+
|
216
|
+
<div id="method-M000022" class="method-detail">
|
217
|
+
<a name="M000022"></a>
|
218
|
+
|
219
|
+
<div class="method-heading">
|
220
|
+
<a href="#M000022" class="method-signature">
|
221
|
+
<span class="method-name">dependencies</span><span class="method-args">( start )</span>
|
222
|
+
</a>
|
223
|
+
</div>
|
224
|
+
|
225
|
+
<div class="method-description">
|
226
|
+
<p><a class="source-toggle" href="#"
|
227
|
+
onclick="toggleCode('M000022-source');return false;">[Source]</a></p>
|
228
|
+
<div class="method-source-code" id="M000022-source">
|
229
|
+
<pre>
|
230
|
+
<span class="ruby-comment cmt"># File lib/funit/fortran_deps.rb, line 73</span>
|
231
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">dependencies</span>( <span class="ruby-identifier">start</span> )
|
232
|
+
<span class="ruby-identifier">modules</span> = <span class="ruby-identifier">modules_used_in</span>( <span class="ruby-identifier">start</span> )
|
233
|
+
<span class="ruby-ivar">@parsed</span> = <span class="ruby-ivar">@parsed</span> <span class="ruby-operator">||</span> [<span class="ruby-identifier">start</span>]
|
234
|
+
<span class="ruby-identifier">newSourceFiles</span> = <span class="ruby-identifier">modules</span>.<span class="ruby-identifier">collect</span>{ <span class="ruby-operator">|</span><span class="ruby-identifier">mod</span><span class="ruby-operator">|</span> <span class="ruby-ivar">@hash</span>[<span class="ruby-identifier">mod</span>] }.<span class="ruby-identifier">compact</span>
|
235
|
+
<span class="ruby-identifier">makefile_dependency_line</span>(<span class="ruby-identifier">start</span>) <span class="ruby-operator">+</span>
|
236
|
+
<span class="ruby-identifier">newSourceFiles</span>.<span class="ruby-identifier">collect</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">file</span><span class="ruby-operator">|</span>
|
237
|
+
<span class="ruby-keyword kw">next</span> <span class="ruby-keyword kw">if</span> <span class="ruby-ivar">@parsed</span>.<span class="ruby-identifier">include?</span>(<span class="ruby-identifier">file</span>)
|
238
|
+
<span class="ruby-ivar">@parsed</span>.<span class="ruby-identifier">push</span> <span class="ruby-identifier">file</span>
|
239
|
+
<span class="ruby-identifier">dependencies</span> <span class="ruby-identifier">file</span>
|
240
|
+
<span class="ruby-keyword kw">end</span>.<span class="ruby-identifier">to_s</span>
|
241
|
+
<span class="ruby-keyword kw">end</span>
|
242
|
+
</pre>
|
243
|
+
</div>
|
244
|
+
</div>
|
245
|
+
</div>
|
246
|
+
|
247
|
+
<div id="method-M000019" class="method-detail">
|
248
|
+
<a name="M000019"></a>
|
249
|
+
|
250
|
+
<div class="method-heading">
|
251
|
+
<a href="#M000019" class="method-signature">
|
252
|
+
<span class="method-name">fortran_files_within</span><span class="method-args">( search_path = %w[ ../lib . ] )</span>
|
253
|
+
</a>
|
254
|
+
</div>
|
255
|
+
|
256
|
+
<div class="method-description">
|
257
|
+
<p><a class="source-toggle" href="#"
|
258
|
+
onclick="toggleCode('M000019-source');return false;">[Source]</a></p>
|
259
|
+
<div class="method-source-code" id="M000019-source">
|
260
|
+
<pre>
|
261
|
+
<span class="ruby-comment cmt"># File lib/funit/fortran_deps.rb, line 38</span>
|
262
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">fortran_files_within</span>( <span class="ruby-identifier">search_path</span> = <span class="ruby-node">%w[ ../lib . ]</span> )
|
263
|
+
<span class="ruby-identifier">source</span> = <span class="ruby-identifier">search_path</span>.<span class="ruby-identifier">map</span>{ <span class="ruby-operator">|</span><span class="ruby-identifier">path</span><span class="ruby-operator">|</span> <span class="ruby-constant">Dir</span>[<span class="ruby-identifier">path</span><span class="ruby-operator">+</span><span class="ruby-value str">"/*.[fF]90"</span>] }
|
264
|
+
<span class="ruby-identifier">source</span>.<span class="ruby-identifier">flatten!</span>.<span class="ruby-identifier">uniq!</span>
|
265
|
+
<span class="ruby-identifier">source</span>.<span class="ruby-identifier">delete_if</span>{ <span class="ruby-operator">|</span><span class="ruby-identifier">file</span><span class="ruby-operator">|</span> <span class="ruby-constant">File</span>.<span class="ruby-identifier">lstat</span>(<span class="ruby-identifier">file</span>).<span class="ruby-identifier">symlink?</span> }
|
266
|
+
<span class="ruby-identifier">source</span>.<span class="ruby-identifier">delete_if</span>{ <span class="ruby-operator">|</span><span class="ruby-identifier">file</span><span class="ruby-operator">|</span> <span class="ruby-identifier">file</span>.<span class="ruby-identifier">match</span>(<span class="ruby-regexp re">/lmpi_module_template.F90/</span>) }
|
267
|
+
<span class="ruby-keyword kw">end</span>
|
268
|
+
</pre>
|
269
|
+
</div>
|
270
|
+
</div>
|
271
|
+
</div>
|
272
|
+
|
273
|
+
<div id="method-M000021" class="method-detail">
|
274
|
+
<a name="M000021"></a>
|
275
|
+
|
276
|
+
<div class="method-heading">
|
277
|
+
<a href="#M000021" class="method-signature">
|
278
|
+
<span class="method-name">makefile_dependency_line</span><span class="method-args">( source )</span>
|
279
|
+
</a>
|
280
|
+
</div>
|
281
|
+
|
282
|
+
<div class="method-description">
|
283
|
+
<p><a class="source-toggle" href="#"
|
284
|
+
onclick="toggleCode('M000021-source');return false;">[Source]</a></p>
|
285
|
+
<div class="method-source-code" id="M000021-source">
|
286
|
+
<pre>
|
287
|
+
<span class="ruby-comment cmt"># File lib/funit/fortran_deps.rb, line 49</span>
|
288
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">makefile_dependency_line</span>( <span class="ruby-identifier">source</span> )
|
289
|
+
<span class="ruby-identifier">realSource</span> = <span class="ruby-identifier">source</span>.<span class="ruby-identifier">sub</span>(<span class="ruby-regexp re">/PHYSICS_DUMMY/</span>,<span class="ruby-value str">'PHYSICS_MODULES'</span>)<span class="ruby-comment cmt"># What's this?</span>
|
290
|
+
<span class="ruby-identifier">sourceNoPath</span> = <span class="ruby-constant">File</span>.<span class="ruby-identifier">basename</span> <span class="ruby-identifier">source</span>
|
291
|
+
<span class="ruby-ivar">@source_files</span>.<span class="ruby-identifier">push</span> <span class="ruby-identifier">sourceNoPath</span>.<span class="ruby-identifier">gsub</span>(<span class="ruby-regexp re">%r|^.*/|</span>,<span class="ruby-value str">''</span>)
|
292
|
+
<span class="ruby-identifier">output</span> = <span class="ruby-value str">''</span>
|
293
|
+
<span class="ruby-keyword kw">if</span> (<span class="ruby-constant">File</span>.<span class="ruby-identifier">expand_path</span>(<span class="ruby-identifier">source</span>) <span class="ruby-operator">!=</span> <span class="ruby-constant">File</span>.<span class="ruby-identifier">expand_path</span>(<span class="ruby-identifier">sourceNoPath</span>))
|
294
|
+
<span class="ruby-identifier">output</span> <span class="ruby-operator">+=</span> <span class="ruby-identifier">sourceNoPath</span><span class="ruby-operator">+</span> <span class="ruby-value str">": "</span> <span class="ruby-operator">+</span> <span class="ruby-identifier">realSource</span> <span class="ruby-operator">+</span> <span class="ruby-value str">"\n"</span>
|
295
|
+
<span class="ruby-identifier">output</span> <span class="ruby-operator">+=</span> <span class="ruby-value str">"\tln -sf "</span><span class="ruby-operator">+</span><span class="ruby-identifier">realSource</span><span class="ruby-operator">+</span><span class="ruby-value str">" .\n"</span>
|
296
|
+
<span class="ruby-keyword kw">end</span>
|
297
|
+
<span class="ruby-identifier">output</span> <span class="ruby-operator">+=</span> <span class="ruby-identifier">source</span>.<span class="ruby-identifier">gsub</span>(<span class="ruby-regexp re">/\.(f|F)90$/</span>, <span class="ruby-value str">".o"</span>).<span class="ruby-identifier">gsub</span>(<span class="ruby-regexp re">%r|^.*/|</span>,<span class="ruby-value str">""</span> ) <span class="ruby-operator">+</span>
|
298
|
+
<span class="ruby-value str">": "</span> <span class="ruby-operator">+</span> <span class="ruby-identifier">source</span>.<span class="ruby-identifier">gsub</span>(<span class="ruby-regexp re">%r|^.*/|</span>,<span class="ruby-value str">""</span> )
|
299
|
+
<span class="ruby-identifier">modules_used_in</span>( <span class="ruby-identifier">source</span> ).<span class="ruby-identifier">each</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">use</span><span class="ruby-operator">|</span>
|
300
|
+
<span class="ruby-keyword kw">unless</span> <span class="ruby-ivar">@hash</span>[<span class="ruby-identifier">use</span>]
|
301
|
+
<span class="ruby-keyword kw">unless</span> ( <span class="ruby-identifier">use</span><span class="ruby-operator">=~</span><span class="ruby-regexp re">/f90_unix/</span> <span class="ruby-operator">||</span> <span class="ruby-identifier">use</span><span class="ruby-operator">=~</span><span class="ruby-regexp re">/nas_system/</span> )
|
302
|
+
<span class="ruby-identifier">$stderr</span>.<span class="ruby-identifier">puts</span> <span class="ruby-node">"Warning: unable to locate module #{use} used in #{source}."</span> <span class="ruby-keyword kw">if</span> <span class="ruby-identifier">$DEBUG</span>
|
303
|
+
<span class="ruby-keyword kw">end</span>
|
304
|
+
<span class="ruby-keyword kw">next</span>
|
305
|
+
<span class="ruby-keyword kw">end</span>
|
306
|
+
<span class="ruby-identifier">output</span> = <span class="ruby-identifier">output</span> <span class="ruby-operator">+</span> <span class="ruby-value str">" \\\n "</span> <span class="ruby-operator">+</span>
|
307
|
+
<span class="ruby-ivar">@hash</span>[<span class="ruby-identifier">use</span>].<span class="ruby-identifier">gsub</span>(<span class="ruby-regexp re">/\.(f|F)90$/</span>, <span class="ruby-value str">".o"</span>).<span class="ruby-identifier">gsub</span>(<span class="ruby-regexp re">%r|^.*/|</span>,<span class="ruby-value str">""</span> )
|
308
|
+
<span class="ruby-keyword kw">end</span>
|
309
|
+
<span class="ruby-identifier">output</span><span class="ruby-operator">+</span><span class="ruby-value str">"\n"</span>
|
310
|
+
<span class="ruby-keyword kw">end</span>
|
311
|
+
</pre>
|
312
|
+
</div>
|
313
|
+
</div>
|
314
|
+
</div>
|
315
|
+
|
316
|
+
<div id="method-M000017" class="method-detail">
|
317
|
+
<a name="M000017"></a>
|
318
|
+
|
319
|
+
<div class="method-heading">
|
320
|
+
<a href="#M000017" class="method-signature">
|
321
|
+
<span class="method-name">modules_defined_in</span><span class="method-args">( file )</span>
|
322
|
+
</a>
|
323
|
+
</div>
|
324
|
+
|
325
|
+
<div class="method-description">
|
326
|
+
<p><a class="source-toggle" href="#"
|
327
|
+
onclick="toggleCode('M000017-source');return false;">[Source]</a></p>
|
328
|
+
<div class="method-source-code" id="M000017-source">
|
329
|
+
<pre>
|
330
|
+
<span class="ruby-comment cmt"># File lib/funit/fortran_deps.rb, line 24</span>
|
331
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">modules_defined_in</span>( <span class="ruby-identifier">file</span> )
|
332
|
+
<span class="ruby-identifier">modules</span> = <span class="ruby-constant">IO</span>.<span class="ruby-identifier">readlines</span>( <span class="ruby-identifier">file</span> ).<span class="ruby-identifier">map</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">line</span><span class="ruby-operator">|</span>
|
333
|
+
<span class="ruby-identifier">$1</span>.<span class="ruby-identifier">downcase</span> <span class="ruby-keyword kw">if</span> <span class="ruby-identifier">line</span>.<span class="ruby-identifier">match</span>( <span class="ruby-regexp re">/^\s*module\s+(\w+)/i</span> )
|
334
|
+
<span class="ruby-keyword kw">end</span>.<span class="ruby-identifier">uniq</span>.<span class="ruby-identifier">compact</span>
|
335
|
+
<span class="ruby-keyword kw">end</span>
|
336
|
+
</pre>
|
337
|
+
</div>
|
338
|
+
</div>
|
339
|
+
</div>
|
340
|
+
|
341
|
+
<div id="method-M000016" class="method-detail">
|
342
|
+
<a name="M000016"></a>
|
343
|
+
|
344
|
+
<div class="method-heading">
|
345
|
+
<a href="#M000016" class="method-signature">
|
346
|
+
<span class="method-name">modules_used_in</span><span class="method-args">( file )</span>
|
347
|
+
</a>
|
348
|
+
</div>
|
349
|
+
|
350
|
+
<div class="method-description">
|
351
|
+
<p><a class="source-toggle" href="#"
|
352
|
+
onclick="toggleCode('M000016-source');return false;">[Source]</a></p>
|
353
|
+
<div class="method-source-code" id="M000016-source">
|
354
|
+
<pre>
|
355
|
+
<span class="ruby-comment cmt"># File lib/funit/fortran_deps.rb, line 18</span>
|
356
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">modules_used_in</span>( <span class="ruby-identifier">file</span> )
|
357
|
+
<span class="ruby-identifier">modules</span> = <span class="ruby-constant">IO</span>.<span class="ruby-identifier">readlines</span>( <span class="ruby-identifier">file</span> ).<span class="ruby-identifier">map</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">line</span><span class="ruby-operator">|</span>
|
358
|
+
<span class="ruby-identifier">$1</span>.<span class="ruby-identifier">downcase</span> <span class="ruby-keyword kw">if</span> <span class="ruby-identifier">line</span>.<span class="ruby-identifier">match</span>( <span class="ruby-regexp re">/^\s*use\s+(\w+)/i</span> )
|
359
|
+
<span class="ruby-keyword kw">end</span>.<span class="ruby-identifier">uniq</span>.<span class="ruby-identifier">compact</span>
|
360
|
+
<span class="ruby-keyword kw">end</span>
|
361
|
+
</pre>
|
362
|
+
</div>
|
363
|
+
</div>
|
364
|
+
</div>
|
365
|
+
|
366
|
+
<div id="method-M000024" class="method-detail">
|
367
|
+
<a name="M000024"></a>
|
368
|
+
|
369
|
+
<div class="method-heading">
|
370
|
+
<a href="#M000024" class="method-signature">
|
371
|
+
<span class="method-name">required_source_files</span><span class="method-args">( head_f90 )</span>
|
372
|
+
</a>
|
373
|
+
</div>
|
374
|
+
|
375
|
+
<div class="method-description">
|
376
|
+
<p><a class="source-toggle" href="#"
|
377
|
+
onclick="toggleCode('M000024-source');return false;">[Source]</a></p>
|
378
|
+
<div class="method-source-code" id="M000024-source">
|
379
|
+
<pre>
|
380
|
+
<span class="ruby-comment cmt"># File lib/funit/fortran_deps.rb, line 96</span>
|
381
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">required_source_files</span>( <span class="ruby-identifier">head_f90</span> )
|
382
|
+
<span class="ruby-ivar">@parsed</span>.<span class="ruby-identifier">clear</span>
|
383
|
+
<span class="ruby-identifier">source_file_dependencies</span>( <span class="ruby-identifier">head_f90</span> )
|
384
|
+
<span class="ruby-identifier">sources</span> = <span class="ruby-constant">Array</span>.<span class="ruby-identifier">new</span>
|
385
|
+
<span class="ruby-keyword kw">while</span> <span class="ruby-operator">!</span><span class="ruby-ivar">@file_dependencies</span>.<span class="ruby-identifier">empty?</span> <span class="ruby-keyword kw">do</span>
|
386
|
+
<span class="ruby-identifier">no_dependents_pair</span> = <span class="ruby-ivar">@file_dependencies</span>.<span class="ruby-identifier">detect</span>{ <span class="ruby-operator">|</span><span class="ruby-identifier">h</span>,<span class="ruby-identifier">d</span><span class="ruby-operator">|</span> <span class="ruby-identifier">d</span> <span class="ruby-operator">==</span> [] }
|
387
|
+
<span class="ruby-identifier">no_dependents</span> = <span class="ruby-identifier">no_dependents_pair</span>.<span class="ruby-identifier">first</span>
|
388
|
+
<span class="ruby-identifier">sources</span>.<span class="ruby-identifier">push</span> <span class="ruby-identifier">no_dependents</span>
|
389
|
+
<span class="ruby-ivar">@file_dependencies</span>.<span class="ruby-identifier">delete</span>(<span class="ruby-identifier">no_dependents</span>){ <span class="ruby-operator">|</span><span class="ruby-identifier">el</span><span class="ruby-operator">|</span> <span class="ruby-node">"#{el} not found"</span> }
|
390
|
+
<span class="ruby-ivar">@file_dependencies</span>.<span class="ruby-identifier">each_value</span>{ <span class="ruby-operator">|</span><span class="ruby-identifier">deps</span><span class="ruby-operator">|</span> <span class="ruby-identifier">deps</span>.<span class="ruby-identifier">delete</span>(<span class="ruby-identifier">no_dependents</span>) }
|
391
|
+
<span class="ruby-keyword kw">end</span>
|
392
|
+
<span class="ruby-identifier">sources</span>
|
393
|
+
<span class="ruby-keyword kw">end</span>
|
394
|
+
</pre>
|
395
|
+
</div>
|
396
|
+
</div>
|
397
|
+
</div>
|
398
|
+
|
399
|
+
<div id="method-M000023" class="method-detail">
|
400
|
+
<a name="M000023"></a>
|
401
|
+
|
402
|
+
<div class="method-heading">
|
403
|
+
<a href="#M000023" class="method-signature">
|
404
|
+
<span class="method-name">source_file_dependencies</span><span class="method-args">( head_f90 )</span>
|
405
|
+
</a>
|
406
|
+
</div>
|
407
|
+
|
408
|
+
<div class="method-description">
|
409
|
+
<p><a class="source-toggle" href="#"
|
410
|
+
onclick="toggleCode('M000023-source');return false;">[Source]</a></p>
|
411
|
+
<div class="method-source-code" id="M000023-source">
|
412
|
+
<pre>
|
413
|
+
<span class="ruby-comment cmt"># File lib/funit/fortran_deps.rb, line 85</span>
|
414
|
+
<span class="ruby-keyword kw">def</span> <span class="ruby-identifier">source_file_dependencies</span>( <span class="ruby-identifier">head_f90</span> )
|
415
|
+
<span class="ruby-identifier">modules_head_uses</span> = <span class="ruby-identifier">modules_used_in</span>( <span class="ruby-identifier">head_f90</span> )
|
416
|
+
<span class="ruby-identifier">required_f90s</span> = <span class="ruby-identifier">modules_head_uses</span>.<span class="ruby-identifier">map</span>{ <span class="ruby-operator">|</span><span class="ruby-identifier">mod</span><span class="ruby-operator">|</span> <span class="ruby-ivar">@hash</span>[<span class="ruby-identifier">mod</span>] }.<span class="ruby-identifier">compact</span>
|
417
|
+
<span class="ruby-ivar">@file_dependencies</span>[<span class="ruby-identifier">head_f90</span>] = <span class="ruby-identifier">required_f90s</span>
|
418
|
+
<span class="ruby-identifier">required_f90s</span>.<span class="ruby-identifier">each</span> <span class="ruby-keyword kw">do</span> <span class="ruby-operator">|</span><span class="ruby-identifier">required_f90</span><span class="ruby-operator">|</span>
|
419
|
+
<span class="ruby-keyword kw">next</span> <span class="ruby-keyword kw">if</span> <span class="ruby-ivar">@parsed</span>.<span class="ruby-identifier">include?</span>(<span class="ruby-identifier">required_f90</span>)
|
420
|
+
<span class="ruby-identifier">source_file_dependencies</span>( <span class="ruby-identifier">required_f90</span> )
|
421
|
+
<span class="ruby-keyword kw">end</span>
|
422
|
+
<span class="ruby-ivar">@parsed</span>.<span class="ruby-identifier">push</span> <span class="ruby-identifier">head_f90</span>
|
423
|
+
<span class="ruby-keyword kw">end</span>
|
424
|
+
</pre>
|
425
|
+
</div>
|
426
|
+
</div>
|
427
|
+
</div>
|
428
|
+
|
429
|
+
|
430
|
+
</div>
|
431
|
+
|
432
|
+
|
433
|
+
</div>
|
434
|
+
|
435
|
+
|
436
|
+
<div id="validator-badges">
|
437
|
+
<p><small><a href="http://validator.w3.org/check/referer">[Validate]</a></small></p>
|
438
|
+
</div>
|
439
|
+
|
440
|
+
</body>
|
441
|
+
</html>
|