ruby-dcl 1.7.1 → 1.8.2

Sign up to get free protection for your applications and to get access to all the features.
Files changed (327) hide show
  1. checksums.yaml +5 -5
  2. data/ChangeLog +1149 -365
  3. data/LICENSE.txt +1 -1
  4. data/Rakefile +7 -11
  5. data/demo/gokuraku/hop/hop.rb +1 -2
  6. data/demo/gokuraku/jump/jump1.rb +1 -2
  7. data/demo/gokuraku/jump/jump2.rb +2 -3
  8. data/demo/gokuraku/layout/lay1.rb +1 -2
  9. data/demo/gokuraku/layout/lay2.rb +1 -2
  10. data/demo/gokuraku/step/step0.rb +1 -2
  11. data/demo/gokuraku/step/step1.rb +1 -2
  12. data/demo/gokuraku/step/step2.rb +1 -2
  13. data/demo/gokuraku/u1d/u1d1.rb +1 -2
  14. data/demo/gokuraku/u1d/u1d2.rb +1 -2
  15. data/demo/gokuraku/u2d/u2d1.rb +1 -2
  16. data/demo/gokuraku/u2d/u2d2.rb +1 -2
  17. data/demo/gokuraku/u2d/u2d3.rb +1 -2
  18. data/demo/gokuraku/u2d/u2d4.rb +1 -2
  19. data/demo/grph1/scpack/scpkt2.rb +1 -2
  20. data/demo/grph1/scpack/scpkt3.rb +1 -2
  21. data/demo/grph1/scpack/scpkt6.rb +1 -2
  22. data/demo/grph1/scpack/scpkt7.rb +1 -2
  23. data/demo/grph1/scpack/scpkt8.rb +1 -2
  24. data/demo/grph1/sgpack/sgfont.rb +2 -3
  25. data/demo/grph1/sgpack/sgfonz.rb +2 -3
  26. data/demo/grph1/sgpack/sgksx1.rb +1 -2
  27. data/demo/grph1/sgpack/sgksx2.rb +1 -2
  28. data/demo/grph1/sgpack/sgksx3.rb +1 -2
  29. data/demo/grph1/sgpack/sglidx.rb +1 -2
  30. data/demo/grph1/sgpack/sgltyp.rb +1 -2
  31. data/demo/grph1/sgpack/sgpk01.rb +1 -2
  32. data/demo/grph1/sgpack/sgpk02.rb +1 -2
  33. data/demo/grph1/sgpack/sgpk03.rb +1 -2
  34. data/demo/grph1/sgpack/sgpk04.rb +1 -2
  35. data/demo/grph1/sgpack/sgpk05.rb +1 -2
  36. data/demo/grph1/sgpack/sgpk06.rb +1 -2
  37. data/demo/grph1/sgpack/sgpk07.rb +9 -8
  38. data/demo/grph1/sgpack/sgpk08.rb +1 -2
  39. data/demo/grph1/sgpack/sgpk09.rb +1 -2
  40. data/demo/grph1/sgpack/sgpk10.rb +1 -2
  41. data/demo/grph1/sgpack/sgtclr.rb +1 -2
  42. data/demo/grph1/sgpack/sgtone.rb +1 -2
  43. data/demo/grph1/sgpack/sgtonz.rb +1 -2
  44. data/demo/grph1/slpack/slpk01.rb +1 -2
  45. data/demo/grph1/slpack/slpk02.rb +1 -2
  46. data/demo/grph1/slpack/slpk03.rb +1 -2
  47. data/demo/grph1/slpack/slpk04.rb +2 -3
  48. data/demo/grph2/grpack/grpk01.rb +1 -2
  49. data/demo/grph2/ucpack/ucpk01.rb +1 -2
  50. data/demo/grph2/ucpack/ucpk02.rb +1 -2
  51. data/demo/grph2/udegpk/u2df01.rb +1 -2
  52. data/demo/grph2/udegpk/u2df02.rb +1 -2
  53. data/demo/grph2/udegpk/u2df03.rb +3 -4
  54. data/demo/grph2/udegpk/u2df04.rb +1 -2
  55. data/demo/grph2/udegpk/u2df05.rb +1 -2
  56. data/demo/grph2/udegpk/u2df06.rb +1 -2
  57. data/demo/grph2/udegpk/u2df07.rb +1 -2
  58. data/demo/grph2/udegpk/u2df08.rb +1 -2
  59. data/demo/grph2/udegpk/u2df09b.rb +0 -1
  60. data/demo/grph2/udegpk/u2df09c.rb +0 -1
  61. data/demo/grph2/udegpk/u2df09e.rb +0 -1
  62. data/demo/grph2/udegpk/u2df09f.rb +0 -1
  63. data/demo/grph2/uipack/uipk01.rb +1 -2
  64. data/demo/grph2/uipack/uipk02.rb +26 -18
  65. data/demo/grph2/uipack/uipk03.rb +50 -0
  66. data/demo/grph2/ulpack/ulpk01.rb +1 -2
  67. data/demo/grph2/ulpack/ulpk01n.rb +1 -2
  68. data/demo/grph2/ulpack/ulpk02.rb +1 -2
  69. data/demo/grph2/ulpack/ulpk02n.rb +1 -2
  70. data/demo/grph2/umpack/test01.rb +1 -2
  71. data/demo/grph2/umpack/test02.rb +1 -2
  72. data/demo/grph2/umpack/test03.rb +1 -2
  73. data/demo/grph2/umpack/test04.rb +2 -3
  74. data/demo/grph2/umpack/test05.rb +1 -2
  75. data/demo/grph2/umpack/test05r.rb +86 -0
  76. data/demo/grph2/umpack/test06.rb +1 -2
  77. data/demo/grph2/umpack/test07.rb +1 -2
  78. data/demo/grph2/umpack/test08.rb +1 -2
  79. data/demo/grph2/umpack/test10.rb +0 -1
  80. data/demo/grph2/umpack/umpk01.rb +1 -2
  81. data/demo/grph2/umpack/umpk02.rb +1 -2
  82. data/demo/grph2/umpack/umpk03.rb +1 -2
  83. data/demo/grph2/umpack/umpk04.rb +1 -2
  84. data/demo/grph2/umpack/umpk05.rb +1 -2
  85. data/demo/grph2/uspack/uspk01.rb +1 -2
  86. data/demo/grph2/uspack/uspk02.rb +1 -2
  87. data/demo/grph2/uspack/uspk03.rb +1 -2
  88. data/demo/grph2/uspack/uspk04.rb +1 -2
  89. data/demo/grph2/uspack/uspk05.rb +1 -2
  90. data/demo/grph2/uspack/uspk06.rb +2 -3
  91. data/demo/grph2/uspack/uspk07.rb +1 -2
  92. data/demo/grph2/uspack/uspk08.rb +2 -3
  93. data/demo/grph2/uspack/uspk09.rb +1 -2
  94. data/demo/grph2/uspack/uspk10.rb +1 -2
  95. data/demo/grph2/uspack/uspk11.rb +1 -2
  96. data/demo/grph2/uspack/uspk12.rb +1 -2
  97. data/demo/grph2/uupack/uupk01.rb +1 -2
  98. data/demo/grph2/uupack/uupk02.rb +1 -2
  99. data/demo/grph2/uupack/uupk03.rb +1 -2
  100. data/demo/grph2/uupack/uupk04.rb +1 -2
  101. data/demo/grph2/uupack/uupk05.rb +1 -2
  102. data/demo/grph2/uupack/uupk06.rb +1 -2
  103. data/demo/grph2/uupack/uupk07.rb +1 -2
  104. data/demo/grph2/uxyzpk/uxyz01.rb +1 -2
  105. data/demo/grph2/uxyzpk/uxyz02.rb +1 -2
  106. data/demo/grph2/uxyzpk/uxyz03.rb +1 -2
  107. data/demo/grph2/uxyzpk/uxyz04.rb +1 -2
  108. data/demo/grph2/uxyzpk/uxyz05.rb +1 -2
  109. data/demo/grph2/uxyzpk/uxyz06.rb +1 -2
  110. data/demo/grph2/uxyzpk/uxyz07.rb +1 -2
  111. data/demo/grph2/uxyzpk/uxyz08.rb +1 -2
  112. data/demo/grph2/uxyzpk/uxyz09.rb +1 -2
  113. data/demo/grph2/uxyzpk/uxyz10.rb +1 -2
  114. data/demo/grph2/ximage/ximg01.rb +2 -3
  115. data/demo/math1/clsplib/cslb01.rb +1 -2
  116. data/demo/math2/fftlib/fftl01.rb +1 -2
  117. data/demo/math2/fftlib/fftl02.rb +1 -2
  118. data/demo/math2/intrlib/intr01.rb +1 -2
  119. data/demo/math2/rnmlib/rnml01.rb +1 -2
  120. data/demo/math2/vstlib/vstl01.rb +1 -2
  121. data/demo/math2/vstlib/vstl02.rb +1 -2
  122. data/demo/misc2/tmpack/tmpk01.rb +46 -0
  123. data/demo/misc2/tmpack/tmpk02.rb +58 -0
  124. data/demo/misc2/tmpack/tmpk03.rb +56 -0
  125. data/demo/rakuraku/color/color1.rb +1 -2
  126. data/demo/rakuraku/color/color2.rb +5 -5
  127. data/demo/rakuraku/color/color3.rb +1 -2
  128. data/demo/rakuraku/kihon/kihon1.rb +1 -2
  129. data/demo/rakuraku/kihon/kihon2.rb +1 -2
  130. data/demo/rakuraku/kihon/kihon3.rb +1 -2
  131. data/demo/rakuraku/kihon/kihon4.rb +1 -2
  132. data/demo/rakuraku/kihon/kihon5.rb +1 -2
  133. data/demo/rakuraku/kihon/kihon6.rb +1 -2
  134. data/demo/rakuraku/kihon/kihon7.rb +10 -5
  135. data/demo/rakuraku/kihon/kihon8.rb +1 -2
  136. data/demo/rakuraku/kihon/kihon9.rb +1 -2
  137. data/demo/rakuraku/kihon/kihona.rb +1 -2
  138. data/demo/rakuraku/kihon/kihonb.rb +12 -11
  139. data/demo/rakuraku/kihon/kihonc.rb +1 -2
  140. data/demo/rakuraku/layout/lay1.rb +1 -2
  141. data/demo/rakuraku/layout/lay2.rb +1 -2
  142. data/demo/rakuraku/layout/lay3.rb +1 -2
  143. data/demo/rakuraku/map3d/map3d1.rb +1 -2
  144. data/demo/rakuraku/map3d/map3d2.rb +1 -2
  145. data/demo/rakuraku/map3d/map3d3.rb +1 -2
  146. data/demo/rakuraku/map3d/map3d4.rb +1 -2
  147. data/demo/rakuraku/map3d/map3d5.rb +1 -2
  148. data/demo/rakuraku/map3d/map3d6.rb +0 -1
  149. data/demo/rakuraku/map3d/map3d7.rb +0 -1
  150. data/demo/rakuraku/miss/miss1.rb +1 -2
  151. data/demo/rakuraku/miss/miss2.rb +1 -2
  152. data/demo/rakuraku/quick/quick1.rb +1 -2
  153. data/demo/rakuraku/quick/quick2.rb +1 -2
  154. data/demo/rakuraku/quick/quick3.rb +1 -2
  155. data/demo/rakuraku/quick/quick4.rb +1 -2
  156. data/demo/rakuraku/quick/quick5.rb +1 -2
  157. data/demo/rakuraku/u2d/u2d1.rb +1 -2
  158. data/demo/rakuraku/u2d/u2d2.rb +1 -2
  159. data/demo/rakuraku/u2d/u2d3.rb +1 -2
  160. data/demo/rakuraku/u2d/u2d4.rb +1 -2
  161. data/demo/rakuraku/u2d/u2d5.rb +1 -2
  162. data/demo/rakuraku/u2d/u2d6.rb +1 -2
  163. data/demo/rakuraku/u2d/u2d7.rb +1 -2
  164. data/demo/rakuraku/uspack/uspac1.rb +2 -3
  165. data/demo/rakuraku/uspack/uspac2.rb +1 -2
  166. data/demo/rakuraku/uspack/uspac3.rb +2 -3
  167. data/demo/rakuraku/uspack/uspac4.rb +1 -2
  168. data/demo/rakuraku/uxyz/uxyz1.rb +1 -2
  169. data/demo/rakuraku/uxyz/uxyz2.rb +1 -2
  170. data/demo/rakuraku/uxyz/uxyz3.rb +1 -2
  171. data/demo/rakuraku/uxyz/uxyz4.rb +1 -2
  172. data/demo/rakuraku/uxyz/uxyz5.rb +1 -2
  173. data/demo/rakuraku/uxyz/uxyz6.rb +1 -2
  174. data/demo/rakuraku/uxyz/uxyz7.rb +1 -2
  175. data/demo/rakuraku/uxyz/uxyz8.rb +1 -2
  176. data/demo/rubydcloriginal/uemrkz1.rb +0 -1
  177. data/ext/numru/dcl_cary2obj.c +29 -24
  178. data/ext/numru/dcl_narrayed_funcs.c +21 -21
  179. data/ext/numru/dcl_obj2cary.c +9 -5
  180. data/ext/numru/dcl_rubydcloriginal.c +14 -5
  181. data/ext/numru/extconf.rb +73 -61
  182. data/ext/numru/grph1_csgi.c +38 -8
  183. data/ext/numru/grph1_scpack.c +49 -46
  184. data/ext/numru/grph1_sgpack.c +167 -164
  185. data/ext/numru/grph1_slpack.c +23 -20
  186. data/ext/numru/grph1_stpack.c +44 -41
  187. data/ext/numru/grph1_swpack.c +155 -92
  188. data/ext/numru/grph2_grpack.c +22 -19
  189. data/ext/numru/grph2_ucpack.c +55 -52
  190. data/ext/numru/grph2_udpack.c +61 -58
  191. data/ext/numru/grph2_uepack.c +60 -57
  192. data/ext/numru/grph2_ugpack.c +49 -46
  193. data/ext/numru/grph2_uhpack.c +25 -22
  194. data/ext/numru/grph2_uipack.c +57 -54
  195. data/ext/numru/grph2_ulpack.c +59 -56
  196. data/ext/numru/grph2_umpack.c +75 -72
  197. data/ext/numru/grph2_uspack.c +97 -94
  198. data/ext/numru/grph2_uupack.c +78 -75
  199. data/ext/numru/grph2_uvpack.c +25 -22
  200. data/ext/numru/grph2_uwpack.c +30 -27
  201. data/ext/numru/grph2_uxpack.c +23 -20
  202. data/ext/numru/grph2_uypack.c +23 -20
  203. data/ext/numru/grph2_uzpack.c +69 -66
  204. data/ext/numru/init.c.default +6 -2
  205. data/ext/numru/math1_blklib.c +13 -10
  206. data/ext/numru/math1_chrlib.c +16 -13
  207. data/ext/numru/math1_clsplib.c +13 -10
  208. data/ext/numru/math1_fnclib.c +16 -13
  209. data/ext/numru/math1_gnmlib.c +21 -18
  210. data/ext/numru/math1_gt2dlib.c +18 -15
  211. data/ext/numru/math1_ifalib.c +18 -15
  212. data/ext/numru/math1_indxlib.c +24 -21
  213. data/ext/numru/math1_intlib.c +13 -10
  214. data/ext/numru/math1_lrllib.c +33 -30
  215. data/ext/numru/math1_maplib.c +14 -11
  216. data/ext/numru/math1_oslib.c +11 -8
  217. data/ext/numru/math1_rfalib.c +39 -36
  218. data/ext/numru/math1_rfblib.c +12 -9
  219. data/ext/numru/math1_sublib.c +13 -10
  220. data/ext/numru/math1_syslib.c +82 -79
  221. data/ext/numru/math1_vialib.c +31 -28
  222. data/ext/numru/math1_viblib.c +24 -21
  223. data/ext/numru/math1_vralib.c +31 -28
  224. data/ext/numru/math1_vrblib.c +24 -21
  225. data/ext/numru/math1_xfclib.c +12 -9
  226. data/ext/numru/math2_fftlib.c +28 -25
  227. data/ext/numru/math2_intrlib.c +11 -8
  228. data/ext/numru/math2_rnmlib.c +12 -9
  229. data/ext/numru/math2_shtlib.c +34 -31
  230. data/ext/numru/math2_vstlib.c +15 -12
  231. data/ext/numru/misc1_chnlib.c +12 -9
  232. data/ext/numru/misc1_datelib.c +36 -33
  233. data/ext/numru/misc1_fmtlib.c +10 -7
  234. data/ext/numru/misc1_misclib.c +11 -8
  235. data/ext/numru/misc1_randlib.c +13 -10
  236. data/ext/numru/misc1_timelib.c +20 -17
  237. data/ext/numru/misc2_tmpack.c +1200 -0
  238. data/lib/numru/dcl/dcl.rb +5676 -0
  239. data/lib/numru/dcl/version.rb +5 -0
  240. data/lib/numru/dcl.rb +6 -5580
  241. data/ruby-dcl.gemspec +13 -9
  242. metadata +25 -99
  243. data/.gitignore +0 -13
  244. data/.rspec +0 -2
  245. data/.travis.yml +0 -3
  246. data/GenWrapper/Makefile +0 -15
  247. data/GenWrapper/cproto2init.rb +0 -41
  248. data/GenWrapper/dcl_narrayed_funcs.rb +0 -181
  249. data/GenWrapper/dcl_rb_footing +0 -29
  250. data/GenWrapper/dcl_rb_heading +0 -123
  251. data/GenWrapper/def.rb +0 -20
  252. data/GenWrapper/elim_ary_size.rb +0 -398
  253. data/GenWrapper/etc/p_header +0 -64
  254. data/GenWrapper/pparse.rb +0 -137
  255. data/GenWrapper/proto/Makefile +0 -36
  256. data/GenWrapper/proto/grph1_00 +0 -17
  257. data/GenWrapper/proto/grph1_csgi.fp +0 -27
  258. data/GenWrapper/proto/grph1_scpack.fp +0 -442
  259. data/GenWrapper/proto/grph1_sgpack.fp +0 -1772
  260. data/GenWrapper/proto/grph1_slpack.fp +0 -316
  261. data/GenWrapper/proto/grph1_stpack.fp +0 -455
  262. data/GenWrapper/proto/grph1_swpack.fp +0 -826
  263. data/GenWrapper/proto/grph2_00 +0 -16
  264. data/GenWrapper/proto/grph2_grpack.fp +0 -139
  265. data/GenWrapper/proto/grph2_ucpack.fp +0 -522
  266. data/GenWrapper/proto/grph2_udpack.fp +0 -692
  267. data/GenWrapper/proto/grph2_uepack.fp +0 -601
  268. data/GenWrapper/proto/grph2_ugpack.fp +0 -436
  269. data/GenWrapper/proto/grph2_uhpack.fp +0 -246
  270. data/GenWrapper/proto/grph2_uipack.fp +0 -508
  271. data/GenWrapper/proto/grph2_ulpack.fp +0 -516
  272. data/GenWrapper/proto/grph2_umpack.fp +0 -676
  273. data/GenWrapper/proto/grph2_uspack.fp +0 -989
  274. data/GenWrapper/proto/grph2_uupack.fp +0 -663
  275. data/GenWrapper/proto/grph2_uvpack.fp +0 -246
  276. data/GenWrapper/proto/grph2_uwpack.fp +0 -203
  277. data/GenWrapper/proto/grph2_uxpack.fp +0 -295
  278. data/GenWrapper/proto/grph2_uypack.fp +0 -295
  279. data/GenWrapper/proto/grph2_uzpack.fp +0 -574
  280. data/GenWrapper/proto/math1_00 +0 -12
  281. data/GenWrapper/proto/math1_blklib.fp +0 -58
  282. data/GenWrapper/proto/math1_chrlib.fp +0 -83
  283. data/GenWrapper/proto/math1_clsplib.fp +0 -74
  284. data/GenWrapper/proto/math1_fnclib.fp +0 -79
  285. data/GenWrapper/proto/math1_gnmlib.fp +0 -118
  286. data/GenWrapper/proto/math1_gt2dlib.fp +0 -144
  287. data/GenWrapper/proto/math1_ifalib.fp +0 -123
  288. data/GenWrapper/proto/math1_indxlib.fp +0 -222
  289. data/GenWrapper/proto/math1_intlib.fp +0 -46
  290. data/GenWrapper/proto/math1_lrllib.fp +0 -276
  291. data/GenWrapper/proto/math1_maplib.fp +0 -24
  292. data/GenWrapper/proto/math1_oslib.fp +0 -28
  293. data/GenWrapper/proto/math1_rfalib.fp +0 -420
  294. data/GenWrapper/proto/math1_rfblib.fp +0 -51
  295. data/GenWrapper/proto/math1_sublib.fp +0 -60
  296. data/GenWrapper/proto/math1_syslib.fp +0 -767
  297. data/GenWrapper/proto/math1_vialib.fp +0 -339
  298. data/GenWrapper/proto/math1_viblib.fp +0 -264
  299. data/GenWrapper/proto/math1_vralib.fp +0 -339
  300. data/GenWrapper/proto/math1_vrblib.fp +0 -264
  301. data/GenWrapper/proto/math1_xfclib.fp +0 -68
  302. data/GenWrapper/proto/math2_00 +0 -12
  303. data/GenWrapper/proto/math2_fftlib.fp +0 -803
  304. data/GenWrapper/proto/math2_intrlib.fp +0 -32
  305. data/GenWrapper/proto/math2_odelib.fp_notused +0 -568
  306. data/GenWrapper/proto/math2_rnmlib.fp +0 -54
  307. data/GenWrapper/proto/math2_shtlib.fp +0 -1292
  308. data/GenWrapper/proto/math2_vstlib.fp +0 -84
  309. data/GenWrapper/proto/misc1_00 +0 -17
  310. data/GenWrapper/proto/misc1_chnlib.fp +0 -47
  311. data/GenWrapper/proto/misc1_datelib.fp +0 -352
  312. data/GenWrapper/proto/misc1_fmtlib.fp +0 -19
  313. data/GenWrapper/proto/misc1_misclib.fp +0 -26
  314. data/GenWrapper/proto/misc1_randlib.fp +0 -50
  315. data/GenWrapper/proto/misc1_timelib.fp +0 -151
  316. data/GenWrapper/proto2c.rb +0 -13
  317. data/GenWrapper/prototype.rb +0 -209
  318. data/GenWrapper/util.rb +0 -9
  319. data/GenWrapper/variable.rb +0 -671
  320. data/README +0 -29
  321. data/ToDo +0 -2
  322. data/bin/console +0 -14
  323. data/bin/setup +0 -7
  324. data/demo/grph2/ximage/MEMO +0 -23
  325. data/obsolete/README +0 -2
  326. data/obsolete/dcl_ext.html +0 -112
  327. data/obsolete/dcl_ext.rb +0 -313
data/GenWrapper/pparse.rb DELETED
@@ -1,137 +0,0 @@
1
- # pparse.rb
2
- # $Id: pparse.rb,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
3
-
4
-
5
- require "./prototype"
6
-
7
- class PrototypeParser
8
- def parse(&block)
9
- @cpp.each_line do |line|
10
- case line
11
- when /^\s*$/
12
- next
13
- when /^#/
14
- macro(line, &block) # retain as macros
15
- when /(\S+)\s+FUNCTION\s+(\w+)\s*\(/
16
- func($1, $2)
17
- when /SUBROUTINE\s+(\w+)\s*\(/
18
- subr($1)
19
- when /^\s*\)\s*$/
20
- close(&block)
21
- else
22
- line.gsub!(/(^\s+)|(\s+$)/, "")
23
- line.chomp!
24
- var(line)
25
- end
26
- end
27
- end
28
-
29
- private
30
-
31
- def delete_comment(src) # [ruby-list:32030] [ruby-list:32049]
32
- src.gsub(%r@ ([\'\"])(\\.|.)*?\1
33
- | (/\*.*?\*/)
34
- | (//)[^\n]*$
35
- @mx) {
36
- if $3
37
- s = $3.delete("^\n")
38
- s = ' ' if s.empty?
39
- s
40
- elsif $4
41
- ''
42
- else
43
- $&
44
- end
45
- }
46
- end
47
-
48
- def initialize(file)
49
- input = if file.is_a? IO
50
- file
51
- else
52
- File::open(file)
53
- end
54
-
55
- @cpp = delete_comment(input.read)
56
- end
57
-
58
- def func(type, name)
59
- @type, @name = type, name.downcase
60
- @var = []
61
- @rtn = []
62
-
63
- if (/(\d+)|\*\((.*)\)/ =~ type)
64
- charlen = ($1||$2).downcase # may be charcter length
65
- @type = type.scan(/\w+/)[0]
66
- else
67
- charlen = nil
68
- end
69
- @rtn.push Variable("rtn_val", @type, "o", false, charlen)
70
-
71
- p [:func, type, name] if $DEBUG
72
- end
73
-
74
- def subr(name)
75
- @type, @name = nil, name.downcase
76
- @var = []
77
- @rtn = []
78
-
79
- p [:subr, name] if $DEBUG
80
- end
81
-
82
- def var(decl)
83
- name, *tmp = decl.split.reverse
84
- tmp.reverse!
85
- attr = (tmp[-1] =~ /^[a-z]+$/ ? tmp.pop : "i")
86
- ary = (tmp[-1] =~ /^\((.*)\)/ ? (tmp.pop; $1.downcase) : false)
87
- vtype = tmp.pop
88
- if (/(\d+)|\*\((.*)\)/ =~ vtype)
89
- charlen = ($1||$2).downcase # may be charcter length
90
- vtype = vtype.scan(/\w+/)[0]
91
- else
92
- charlen = nil
93
- end
94
- attr0 = attr.scan(/./).sort.uniq.join
95
- r = (attr =~ /i/ ? (attr.delete!("i"); true) : false)
96
- w = (attr =~ /o/ ? (attr.delete!("o"); true) : false)
97
- t = (attr =~ /t/ ? (attr.delete!("t"); true) : false)
98
- raise "unexpected decl `#{decl.inspect}'" unless tmp.empty?
99
- raise "unexpected read/write attr `#{decl.inspect}'" unless attr.empty?
100
- v = Variable(name.downcase, vtype, attr0, ary, charlen)
101
- @var.push v
102
- @rtn.push v if (!@type && w)
103
-
104
- p decl if $DEBUG
105
- p v if $DEBUG
106
-
107
- end
108
-
109
- def close
110
- val = Prototype.new(@type, @name, @var, @rtn)
111
- p val if $DEBUG
112
- @var = nil
113
- @rtn = nil
114
- # puts if $DEBUG
115
- if block_given?
116
- yield(val)
117
- else
118
- val
119
- end
120
- end
121
-
122
- def macro(line)
123
- if block_given?
124
- yield(line)
125
- else
126
- line
127
- end
128
- end
129
-
130
- def method_missing(m, *a, &b)
131
- p [m, a.join(" ")]
132
- end
133
-
134
- # Var = Struct.new("Var",
135
- # "vtype", "ary?", "attr", "r?", "w?", "t?", "name",
136
- # "ignore?").freeze
137
- end
@@ -1,36 +0,0 @@
1
- SRCS = grph1_csgi.c grph1_scpack.c grph1_sgpack.c grph1_slpack.c \
2
- grph1_stpack.c grph1_swpack.c \
3
- grph2_grpack.c grph2_ucpack.c grph2_udpack.c grph2_uepack.c \
4
- grph2_ugpack.c grph2_uhpack.c grph2_uipack.c grph2_ulpack.c \
5
- grph2_umpack.c grph2_uspack.c grph2_uupack.c grph2_uvpack.c \
6
- grph2_uwpack.c grph2_uxpack.c grph2_uypack.c grph2_uzpack.c \
7
- math1_blklib.c math1_chrlib.c math1_clsplib.c math1_fnclib.c \
8
- math1_gt2dlib.c math1_gnmlib.c math1_ifalib.c math1_indxlib.c \
9
- math1_intlib.c math1_lrllib.c math1_maplib.c math1_oslib.c \
10
- math1_rfalib.c math1_rfblib.c math1_sublib.c math1_syslib.c \
11
- math1_vialib.c math1_viblib.c math1_vralib.c math1_vrblib.c \
12
- math1_xfclib.c \
13
- math2_fftlib.c math2_intrlib.c math2_rnmlib.c math2_shtlib.c \
14
- math2_vstlib.c \
15
- misc1_chnlib.c misc1_datelib.c misc1_fmtlib.c misc1_misclib.c \
16
- misc1_randlib.c misc1_timelib.c
17
- # math2_odelib.c \
18
-
19
- .SUFFIXES: .fp
20
- .fp.c:
21
- cd ../ ; \
22
- cat etc/p_header > ../$@ ; \
23
- ruby proto2c.rb proto/$< >> ../$@ ; \
24
- cp ../$@ ../.$@ ; \
25
- ruby cproto2init.rb ../$@ >> ../.$@ ; \
26
- mv -f ../.$@ ../$@ ; \
27
- cd proto
28
-
29
- all: $(SRCS)
30
-
31
- clean:
32
- cd ../../ ; \
33
- $(RM) $(SRCS) ;\
34
- cd ..
35
-
36
- distclean: clean
@@ -1,17 +0,0 @@
1
- /*
2
- * grph1_00
3
- * log to split grph1.f77proto into grph1_csgi.fp and grph1_xxpack.fp
4
- *
5
- * $Id: grph1_00,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
6
- */
7
- -----
8
- /*
9
- * grph1.f77proto
10
- * #Id: grph1.f77proto,v 1.2 2000/11/05 14:39:33 keiko Exp $
11
- */
12
-
13
- /*
14
- * Packages deleted (by horinout):
15
- * szpack
16
- */
17
-
@@ -1,27 +0,0 @@
1
- /*
2
- * grph1_csgi.fp
3
- *
4
- * $Id: grph1_csgi.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph1/csgi/csgi.f.other
9
- ****************************************************/
10
- /*
11
- * CHARACTER*1 FUNCTION CSGI(IC)
12
- */
13
- CHARACTER*1 FUNCTION CSGI(
14
- INTEGER IC
15
- )
16
-
17
- /*****************************************************
18
- * grph1/csgi/isgc.f.other
19
- ****************************************************/
20
- /*
21
- * INTEGER FUNCTION ISGC(CH)
22
- * CHARACTER CH*1
23
- */
24
- INTEGER FUNCTION ISGC(
25
- CHARACTER*1 CH
26
- )
27
-
@@ -1,442 +0,0 @@
1
- /*
2
- * grph1_scpack.fp
3
- *
4
- * $Id: grph1_scpack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph1/scpack/scsobj.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE SCSOBJ(XOBJ3, YOBJ3, ZOBJ3)
12
- */
13
- SUBROUTINE SCSOBJ(
14
- REAL XOBJ3
15
- REAL YOBJ3
16
- REAL ZOBJ3
17
- )
18
-
19
- /*
20
- * ENTRY SCQOBJ(XOBJ3, YOBJ3, ZOBJ3)
21
- */
22
- SUBROUTINE SCQOBJ(
23
- REAL o XOBJ3
24
- REAL o YOBJ3
25
- REAL o ZOBJ3
26
- )
27
-
28
- /*****************************************************
29
- * grph1/scpack/scseye.f
30
- ****************************************************/
31
- /*
32
- * SUBROUTINE SCSEYE(XEYE3, YEYE3, ZEYE3)
33
- */
34
- SUBROUTINE SCSEYE(
35
- REAL XEYE3
36
- REAL YEYE3
37
- REAL ZEYE3
38
- )
39
-
40
- /*
41
- * ENTRY SCQEYE(XEYE3, YEYE3, ZEYE3)
42
- */
43
- SUBROUTINE SCQEYE(
44
- REAL o XEYE3
45
- REAL o YEYE3
46
- REAL o ZEYE3
47
- )
48
-
49
- /*****************************************************
50
- * grph1/scpack/scspln.f
51
- ****************************************************/
52
- /*
53
- * SUBROUTINE SCSPLN(IXAX, IYAX, SECT)
54
- */
55
- SUBROUTINE SCSPLN(
56
- INTEGER IXAX
57
- INTEGER IYAX
58
- REAL SECT
59
- )
60
-
61
- /*
62
- * ENTRY SCQPLN(IXAX, IYAX, SECT)
63
- */
64
- SUBROUTINE SCQPLN(
65
- INTEGER o IXAX
66
- INTEGER o IYAX
67
- REAL o SECT
68
- )
69
-
70
- /*****************************************************
71
- * grph1/scpack/scsprj.f
72
- ****************************************************/
73
- /*
74
- * SUBROUTINE SCSPRJ
75
- */
76
- SUBROUTINE SCSPRJ(
77
- )
78
-
79
- /*****************************************************
80
- * grph1/scpack/scsvpt.f
81
- ****************************************************/
82
- /*
83
- * SUBROUTINE SCSVPT(VXMIN, VXMAX, VYMIN, VYMAX, VZMIN, VZMAX)
84
- */
85
- SUBROUTINE SCSVPT(
86
- REAL VXMIN
87
- REAL VXMAX
88
- REAL VYMIN
89
- REAL VYMAX
90
- REAL VZMIN
91
- REAL VZMAX
92
- )
93
-
94
- /*
95
- * ENTRY SCQVPT(VXMIN, VXMAX, VYMIN, VYMAX, VZMIN, VZMAX)
96
- */
97
- SUBROUTINE SCQVPT(
98
- REAL o VXMIN
99
- REAL o VXMAX
100
- REAL o VYMIN
101
- REAL o VYMAX
102
- REAL o VZMIN
103
- REAL o VZMAX
104
- )
105
-
106
- /*****************************************************
107
- * grph1/scpack/scswnd.f
108
- ****************************************************/
109
- /*
110
- * SUBROUTINE SCSWND(UXMIN, UXMAX, UYMIN, UYMAX, UZMIN, UZMAX)
111
- */
112
- SUBROUTINE SCSWND(
113
- REAL UXMIN
114
- REAL UXMAX
115
- REAL UYMIN
116
- REAL UYMAX
117
- REAL UZMIN
118
- REAL UZMAX
119
- )
120
-
121
- /*
122
- * ENTRY SCQWND(UXMIN, UXMAX, UYMIN, UYMAX, UZMIN, UZMAX)
123
- */
124
- SUBROUTINE SCQWND(
125
- REAL o UXMIN
126
- REAL o UXMAX
127
- REAL o UYMIN
128
- REAL o UYMAX
129
- REAL o UZMIN
130
- REAL o UZMAX
131
- )
132
-
133
- /*****************************************************
134
- * grph1/scpack/scslog.f
135
- ****************************************************/
136
- /*
137
- * SUBROUTINE SCSLOG(LXLOG3, LYLOG3, LZLOG3)
138
- * LOGICAL LXLOG3, LYLOG3, LZLOG3
139
- */
140
- SUBROUTINE SCSLOG(
141
- LOGICAL LXLOG3
142
- LOGICAL LYLOG3
143
- LOGICAL LZLOG3
144
- )
145
-
146
- /*
147
- * ENTRY SCQLOG(LXLOG3, LYLOG3, LZLOG3)
148
- * LOGICAL LXLOG3, LYLOG3, LZLOG3
149
- */
150
- SUBROUTINE SCQLOG(
151
- LOGICAL o LXLOG3
152
- LOGICAL o LYLOG3
153
- LOGICAL o LZLOG3
154
- )
155
-
156
- /*****************************************************
157
- * grph1/scpack/scsorg.f
158
- ****************************************************/
159
- /*
160
- * SUBROUTINE SCSORG(SIMFAC, VXORG3, VYORG3, VZORG3)
161
- */
162
- SUBROUTINE SCSORG(
163
- REAL SIMFAC
164
- REAL VXORG3
165
- REAL VYORG3
166
- REAL VZORG3
167
- )
168
-
169
- /*
170
- * ENTRY SCQORG(SIMFAC, VXORG3, VYORG3, VZORG3)
171
- */
172
- SUBROUTINE SCQORG(
173
- REAL o SIMFAC
174
- REAL o VXORG3
175
- REAL o VYORG3
176
- REAL o VZORG3
177
- )
178
-
179
- /*****************************************************
180
- * grph1/scpack/scstrn.f
181
- ****************************************************/
182
- /*
183
- * SUBROUTINE SCSTRN(ITR3)
184
- */
185
- SUBROUTINE SCSTRN(
186
- INTEGER ITR3
187
- )
188
-
189
- /*
190
- * ENTRY SCQTRN(ITR3)
191
- */
192
- SUBROUTINE SCQTRN(
193
- INTEGER o ITR3
194
- )
195
-
196
- /*****************************************************
197
- * grph1/scpack/scstrf.f
198
- ****************************************************/
199
- /*
200
- * SUBROUTINE SCSTRF
201
- */
202
- SUBROUTINE SCSTRF(
203
- )
204
-
205
- /*****************************************************
206
- * grph1/scpack/scplu.f
207
- ****************************************************/
208
- /*
209
- * SUBROUTINE SCPLU(N,UPX,UPY,UPZ)
210
- * REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
211
- */
212
- SUBROUTINE SCPLU(
213
- INTEGER N
214
- REAL (N) UPX
215
- REAL (N) UPY
216
- REAL (N) UPZ
217
- )
218
-
219
- /*
220
- * ENTRY SCPLV(N,VPX,VPY,VPZ)
221
- * REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
222
- */
223
- SUBROUTINE SCPLV(
224
- INTEGER N
225
- REAL (N) VPX
226
- REAL (N) VPY
227
- REAL (N) VPZ
228
- )
229
-
230
- /*
231
- * ENTRY SCSPLI(INDEX)
232
- */
233
- SUBROUTINE SCSPLI(
234
- INTEGER INDEX
235
- )
236
-
237
- /*
238
- * ENTRY SCQPLI(INDEX)
239
- */
240
- SUBROUTINE SCQPLI(
241
- INTEGER o INDEX
242
- )
243
-
244
- /*****************************************************
245
- * grph1/scpack/scplzu.f
246
- ****************************************************/
247
- /*
248
- * SUBROUTINE SCPLZU(N,UPX,UPY,UPZ,INDEX)
249
- * REAL UPX(*),UPY(*),UPZ(*)
250
- */
251
- SUBROUTINE SCPLZU(
252
- INTEGER N
253
- REAL (N) UPX
254
- REAL (N) UPY
255
- REAL (N) UPZ
256
- INTEGER INDEX
257
- )
258
-
259
- /*****************************************************
260
- * grph1/scpack/scplzv.f
261
- ****************************************************/
262
- /*
263
- * SUBROUTINE SCPLZV(N,VPX,VPY,VPZ,INDEX)
264
- * REAL VPX(*),VPY(*),VPZ(*)
265
- */
266
- SUBROUTINE SCPLZV(
267
- INTEGER N
268
- REAL (N) VPX
269
- REAL (N) VPY
270
- REAL (N) VPZ
271
- INTEGER INDEX
272
- )
273
-
274
- /*****************************************************
275
- * grph1/scpack/scpmu.f
276
- ****************************************************/
277
- /*
278
- * SUBROUTINE SCPMU(N,UPX,UPY,UPZ)
279
- * REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
280
- */
281
- SUBROUTINE SCPMU(
282
- INTEGER N
283
- REAL (N) UPX
284
- REAL (N) UPY
285
- REAL (N) UPZ
286
- )
287
-
288
- /*
289
- * ENTRY SCPMV(N,VPX,VPY,VPZ)
290
- * REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
291
- */
292
- SUBROUTINE SCPMV(
293
- INTEGER N
294
- REAL (N) VPX
295
- REAL (N) VPY
296
- REAL (N) VPZ
297
- )
298
-
299
- /*
300
- * ENTRY SCSPMT(ITYPE)
301
- */
302
- SUBROUTINE SCSPMT(
303
- INTEGER ITYPE
304
- )
305
-
306
- /*
307
- * ENTRY SCQPMT(ITYPE)
308
- */
309
- SUBROUTINE SCQPMT(
310
- INTEGER o ITYPE
311
- )
312
-
313
- /*
314
- * ENTRY SCSPMI(INDEX)
315
- */
316
- SUBROUTINE SCSPMI(
317
- INTEGER INDEX
318
- )
319
-
320
- /*
321
- * ENTRY SCQPMI(INDEX)
322
- */
323
- SUBROUTINE SCQPMI(
324
- INTEGER o INDEX
325
- )
326
-
327
- /*
328
- * ENTRY SCSPMS(RSIZE)
329
- */
330
- SUBROUTINE SCSPMS(
331
- REAL RSIZE
332
- )
333
-
334
- /*
335
- * ENTRY SCQPMS(RSIZE)
336
- */
337
- SUBROUTINE SCQPMS(
338
- REAL o RSIZE
339
- )
340
-
341
- /*****************************************************
342
- * grph1/scpack/scpmzu.f
343
- ****************************************************/
344
- /*
345
- * SUBROUTINE SCPMZU(N,UPX,UPY,UPZ,ITYPE,INDEX,RSIZE)
346
- * REAL UPX(*),UPY(*),UPZ(*)
347
- */
348
- SUBROUTINE SCPMZU(
349
- INTEGER N
350
- REAL (N) UPX
351
- REAL (N) UPY
352
- REAL (N) UPZ
353
- INTEGER ITYPE
354
- INTEGER INDEX
355
- REAL RSIZE
356
- )
357
-
358
- /*****************************************************
359
- * grph1/scpack/scpmzv.f
360
- ****************************************************/
361
- /*
362
- * SUBROUTINE SCPMZV(N,VPX,VPY,VPZ,ITYPE,INDEX,RSIZE)
363
- * REAL VPX(*),VPY(*),VPZ(*)
364
- */
365
- SUBROUTINE SCPMZV(
366
- INTEGER N
367
- REAL (N) VPX
368
- REAL (N) VPY
369
- REAL (N) VPZ
370
- INTEGER ITYPE
371
- INTEGER INDEX
372
- REAL RSIZE
373
- )
374
-
375
- /*****************************************************
376
- * grph1/scpack/sctnu.f
377
- ****************************************************/
378
- /*
379
- * SUBROUTINE SCTNU(UPX,UPY,UPZ)
380
- * REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
381
- */
382
- SUBROUTINE SCTNU(
383
- REAL (3) UPX
384
- REAL (3) UPY
385
- REAL (3) UPZ
386
- )
387
-
388
- /*
389
- * ENTRY SCTNV(VPX,VPY,VPZ)
390
- * REAL UPX(*),UPY(*),UPZ(*),VPX(*),VPY(*),VPZ(*)
391
- */
392
- SUBROUTINE SCTNV(
393
- REAL (3) VPX
394
- REAL (3) VPY
395
- REAL (3) VPZ
396
- )
397
-
398
- /*
399
- * ENTRY SCSTNP(ITPAT1, ITPAT2)
400
- */
401
- SUBROUTINE SCSTNP(
402
- INTEGER ITPAT1
403
- INTEGER ITPAT2
404
- )
405
-
406
- /*
407
- * ENTRY SCQTNP(ITPAT1, ITPAT2)
408
- */
409
- SUBROUTINE SCQTNP(
410
- INTEGER o ITPAT1
411
- INTEGER o ITPAT2
412
- )
413
-
414
- /*****************************************************
415
- * grph1/scpack/sctnzu.f
416
- ****************************************************/
417
- /*
418
- * SUBROUTINE SCTNZU(UPX,UPY,UPZ,ITPAT1,ITPAT2)
419
- * REAL UPX(*),UPY(*),UPZ(*)
420
- */
421
- SUBROUTINE SCTNZU(
422
- REAL (3) UPX
423
- REAL (3) UPY
424
- REAL (3) UPZ
425
- INTEGER ITPAT1
426
- INTEGER ITPAT2
427
- )
428
-
429
- /*****************************************************
430
- * grph1/scpack/sctnzv.f
431
- ****************************************************/
432
- /*
433
- * SUBROUTINE SCTNZV(VPX,VPY,VPZ,ITPAT1,ITPAT2)
434
- * REAL VPX(*),VPY(*),VPZ(*)
435
- */
436
- SUBROUTINE SCTNZV(
437
- REAL (3) VPX
438
- REAL (3) VPY
439
- REAL (3) VPZ
440
- INTEGER ITPAT1
441
- INTEGER ITPAT2
442
- )