ruby-dcl 1.8.1 → 1.8.2

Sign up to get free protection for your applications and to get access to all the features.
Files changed (87) hide show
  1. checksums.yaml +5 -5
  2. data/ChangeLog +97 -14
  3. data/LICENSE.txt +1 -1
  4. data/demo/gokuraku/jump/jump2.rb +1 -1
  5. data/demo/grph1/sgpack/sgfont.rb +1 -1
  6. data/demo/grph1/sgpack/sgfonz.rb +1 -1
  7. data/demo/grph1/sgpack/sgpk07.rb +8 -6
  8. data/demo/grph1/slpack/slpk04.rb +1 -1
  9. data/demo/grph2/udegpk/u2df03.rb +2 -2
  10. data/demo/grph2/umpack/test04.rb +1 -1
  11. data/demo/grph2/umpack/test05r.rb +86 -0
  12. data/demo/grph2/uspack/uspk06.rb +1 -1
  13. data/demo/grph2/uspack/uspk08.rb +1 -1
  14. data/demo/grph2/ximage/ximg01.rb +1 -1
  15. data/demo/misc2/tmpack/tmpk01.rb +46 -0
  16. data/demo/misc2/tmpack/tmpk02.rb +58 -0
  17. data/demo/misc2/tmpack/tmpk03.rb +56 -0
  18. data/demo/rakuraku/color/color2.rb +4 -3
  19. data/demo/rakuraku/kihon/kihon7.rb +9 -3
  20. data/demo/rakuraku/kihon/kihonb.rb +11 -9
  21. data/demo/rakuraku/uspack/uspac1.rb +1 -1
  22. data/demo/rakuraku/uspack/uspac3.rb +1 -1
  23. data/ext/numru/dcl_cary2obj.c +1 -1
  24. data/ext/numru/dcl_narrayed_funcs.c +21 -21
  25. data/ext/numru/dcl_obj2cary.c +1 -1
  26. data/ext/numru/dcl_rubydcloriginal.c +0 -1
  27. data/ext/numru/extconf.rb +28 -9
  28. data/ext/numru/grph1_csgi.c +29 -3
  29. data/ext/numru/grph1_scpack.c +40 -41
  30. data/ext/numru/grph1_sgpack.c +158 -159
  31. data/ext/numru/grph1_slpack.c +14 -15
  32. data/ext/numru/grph1_stpack.c +35 -36
  33. data/ext/numru/grph1_swpack.c +89 -90
  34. data/ext/numru/grph2_grpack.c +13 -14
  35. data/ext/numru/grph2_ucpack.c +46 -47
  36. data/ext/numru/grph2_udpack.c +52 -53
  37. data/ext/numru/grph2_uepack.c +51 -52
  38. data/ext/numru/grph2_ugpack.c +40 -41
  39. data/ext/numru/grph2_uhpack.c +16 -17
  40. data/ext/numru/grph2_uipack.c +48 -49
  41. data/ext/numru/grph2_ulpack.c +50 -51
  42. data/ext/numru/grph2_umpack.c +66 -67
  43. data/ext/numru/grph2_uspack.c +88 -89
  44. data/ext/numru/grph2_uupack.c +69 -70
  45. data/ext/numru/grph2_uvpack.c +16 -17
  46. data/ext/numru/grph2_uwpack.c +21 -22
  47. data/ext/numru/grph2_uxpack.c +14 -15
  48. data/ext/numru/grph2_uypack.c +14 -15
  49. data/ext/numru/grph2_uzpack.c +60 -61
  50. data/ext/numru/init.c.default +5 -2
  51. data/ext/numru/math1_blklib.c +4 -5
  52. data/ext/numru/math1_chrlib.c +7 -8
  53. data/ext/numru/math1_clsplib.c +4 -5
  54. data/ext/numru/math1_fnclib.c +7 -8
  55. data/ext/numru/math1_gnmlib.c +12 -13
  56. data/ext/numru/math1_gt2dlib.c +9 -10
  57. data/ext/numru/math1_ifalib.c +9 -10
  58. data/ext/numru/math1_indxlib.c +15 -16
  59. data/ext/numru/math1_intlib.c +4 -5
  60. data/ext/numru/math1_lrllib.c +24 -25
  61. data/ext/numru/math1_maplib.c +5 -6
  62. data/ext/numru/math1_oslib.c +2 -3
  63. data/ext/numru/math1_rfalib.c +30 -31
  64. data/ext/numru/math1_rfblib.c +3 -4
  65. data/ext/numru/math1_sublib.c +4 -5
  66. data/ext/numru/math1_syslib.c +73 -74
  67. data/ext/numru/math1_vialib.c +22 -23
  68. data/ext/numru/math1_viblib.c +15 -16
  69. data/ext/numru/math1_vralib.c +22 -23
  70. data/ext/numru/math1_vrblib.c +15 -16
  71. data/ext/numru/math1_xfclib.c +3 -4
  72. data/ext/numru/math2_fftlib.c +19 -20
  73. data/ext/numru/math2_intrlib.c +2 -3
  74. data/ext/numru/math2_rnmlib.c +3 -4
  75. data/ext/numru/math2_shtlib.c +25 -26
  76. data/ext/numru/math2_vstlib.c +6 -7
  77. data/ext/numru/misc1_chnlib.c +3 -4
  78. data/ext/numru/misc1_datelib.c +27 -28
  79. data/ext/numru/misc1_fmtlib.c +1 -2
  80. data/ext/numru/misc1_misclib.c +2 -3
  81. data/ext/numru/misc1_randlib.c +4 -5
  82. data/ext/numru/misc1_timelib.c +11 -12
  83. data/ext/numru/misc2_tmpack.c +1200 -0
  84. data/lib/numru/dcl/dcl.rb +73 -1
  85. data/lib/numru/dcl/version.rb +1 -1
  86. data/ruby-dcl.gemspec +2 -2
  87. metadata +12 -4
@@ -4,7 +4,6 @@
4
4
 
5
5
  #include <stdio.h>
6
6
  #include "ruby.h"
7
- #include "libtinyf2c.h"
8
7
  #include "narray.h"
9
8
  #include "cdcl.h"
10
9
 
@@ -106,7 +105,7 @@ dcl_uverb(obj, n, upx, upy1, upy2)
106
105
  i_upy2 = dcl_obj2crealary(upy2);
107
106
 
108
107
 
109
- uverb_(&i_n, i_upx, i_upy1, i_upy2);
108
+ uverb__(&i_n, i_upx, i_upy1, i_upy2);
110
109
 
111
110
  dcl_freecrealary(i_upx);
112
111
  dcl_freecrealary(i_upy1);
@@ -171,7 +170,7 @@ dcl_uverbz(obj, n, upx, upy1, upy2, itype, index, rsize)
171
170
  i_upy2 = dcl_obj2crealary(upy2);
172
171
 
173
172
 
174
- uverbz_(&i_n, i_upx, i_upy1, i_upy2, &i_itype, &i_index, &i_rsize);
173
+ uverbz__(&i_n, i_upx, i_upy1, i_upy2, &i_itype, &i_index, &i_rsize);
175
174
 
176
175
  dcl_freecrealary(i_upx);
177
176
  dcl_freecrealary(i_upy1);
@@ -221,7 +220,7 @@ dcl_uvdif(obj, n, upx, upy1, upy2)
221
220
  i_upy2 = dcl_obj2crealary(upy2);
222
221
 
223
222
 
224
- uvdif_(&i_n, i_upx, i_upy1, i_upy2);
223
+ uvdif__(&i_n, i_upx, i_upy1, i_upy2);
225
224
 
226
225
  dcl_freecrealary(i_upx);
227
226
  dcl_freecrealary(i_upy1);
@@ -281,7 +280,7 @@ dcl_uvdifz(obj, n, upx, upy1, upy2, itpat1, itpat2)
281
280
  i_upy2 = dcl_obj2crealary(upy2);
282
281
 
283
282
 
284
- uvdifz_(&i_n, i_upx, i_upy1, i_upy2, &i_itpat1, &i_itpat2);
283
+ uvdifz__(&i_n, i_upx, i_upy1, i_upy2, &i_itpat1, &i_itpat2);
285
284
 
286
285
  dcl_freecrealary(i_upx);
287
286
  dcl_freecrealary(i_upy1);
@@ -331,7 +330,7 @@ dcl_uvbrf(obj, n, upx, upy1, upy2)
331
330
  i_upy2 = dcl_obj2crealary(upy2);
332
331
 
333
332
 
334
- uvbrf_(&i_n, i_upx, i_upy1, i_upy2);
333
+ uvbrf__(&i_n, i_upx, i_upy1, i_upy2);
335
334
 
336
335
  dcl_freecrealary(i_upx);
337
336
  dcl_freecrealary(i_upy1);
@@ -396,7 +395,7 @@ dcl_uvbrfz(obj, n, upx, upy1, upy2, itype, index, rsize)
396
395
  i_upy2 = dcl_obj2crealary(upy2);
397
396
 
398
397
 
399
- uvbrfz_(&i_n, i_upx, i_upy1, i_upy2, &i_itype, &i_index, &i_rsize);
398
+ uvbrfz__(&i_n, i_upx, i_upy1, i_upy2, &i_itype, &i_index, &i_rsize);
400
399
 
401
400
  dcl_freecrealary(i_upx);
402
401
  dcl_freecrealary(i_upy1);
@@ -446,7 +445,7 @@ dcl_uvbra(obj, n, upx, upy1, upy2)
446
445
  i_upy2 = dcl_obj2crealary(upy2);
447
446
 
448
447
 
449
- uvbra_(&i_n, i_upx, i_upy1, i_upy2);
448
+ uvbra__(&i_n, i_upx, i_upy1, i_upy2);
450
449
 
451
450
  dcl_freecrealary(i_upx);
452
451
  dcl_freecrealary(i_upy1);
@@ -511,7 +510,7 @@ dcl_uvbraz(obj, n, upx, upy1, upy2, itpat1, itpat2, rsize)
511
510
  i_upy2 = dcl_obj2crealary(upy2);
512
511
 
513
512
 
514
- uvbraz_(&i_n, i_upx, i_upy1, i_upy2, &i_itpat1, &i_itpat2, &i_rsize);
513
+ uvbraz__(&i_n, i_upx, i_upy1, i_upy2, &i_itpat1, &i_itpat2, &i_rsize);
515
514
 
516
515
  dcl_freecrealary(i_upx);
517
516
  dcl_freecrealary(i_upy1);
@@ -552,7 +551,7 @@ dcl_uvbrl(obj, n, upx, upy)
552
551
  i_upy = dcl_obj2crealary(upy);
553
552
 
554
553
 
555
- uvbrl_(&i_n, i_upx, i_upy);
554
+ uvbrl__(&i_n, i_upx, i_upy);
556
555
 
557
556
  dcl_freecrealary(i_upx);
558
557
  dcl_freecrealary(i_upy);
@@ -607,7 +606,7 @@ dcl_uvbrlz(obj, n, upx, upy, itype, index, rsize)
607
606
  i_upy = dcl_obj2crealary(upy);
608
607
 
609
608
 
610
- uvbrlz_(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_rsize);
609
+ uvbrlz__(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_rsize);
611
610
 
612
611
  dcl_freecrealary(i_upx);
613
612
  dcl_freecrealary(i_upy);
@@ -656,7 +655,7 @@ dcl_uvbxf(obj, n, upx, upy1, upy2)
656
655
  i_upy2 = dcl_obj2crealary(upy2);
657
656
 
658
657
 
659
- uvbxf_(&i_n, i_upx, i_upy1, i_upy2);
658
+ uvbxf__(&i_n, i_upx, i_upy1, i_upy2);
660
659
 
661
660
  dcl_freecrealary(i_upx);
662
661
  dcl_freecrealary(i_upy1);
@@ -716,7 +715,7 @@ dcl_uvbxfz(obj, n, upx, upy1, upy2, itype, index)
716
715
  i_upy2 = dcl_obj2crealary(upy2);
717
716
 
718
717
 
719
- uvbxfz_(&i_n, i_upx, i_upy1, i_upy2, &i_itype, &i_index);
718
+ uvbxfz__(&i_n, i_upx, i_upy1, i_upy2, &i_itype, &i_index);
720
719
 
721
720
  dcl_freecrealary(i_upx);
722
721
  dcl_freecrealary(i_upy1);
@@ -766,7 +765,7 @@ dcl_uvbxa(obj, n, upx, upy1, upy2)
766
765
  i_upy2 = dcl_obj2crealary(upy2);
767
766
 
768
767
 
769
- uvbxa_(&i_n, i_upx, i_upy1, i_upy2);
768
+ uvbxa__(&i_n, i_upx, i_upy1, i_upy2);
770
769
 
771
770
  dcl_freecrealary(i_upx);
772
771
  dcl_freecrealary(i_upy1);
@@ -826,7 +825,7 @@ dcl_uvbxaz(obj, n, upx, upy1, upy2, itpat1, itpat2)
826
825
  i_upy2 = dcl_obj2crealary(upy2);
827
826
 
828
827
 
829
- uvbxaz_(&i_n, i_upx, i_upy1, i_upy2, &i_itpat1, &i_itpat2);
828
+ uvbxaz__(&i_n, i_upx, i_upy1, i_upy2, &i_itpat1, &i_itpat2);
830
829
 
831
830
  dcl_freecrealary(i_upx);
832
831
  dcl_freecrealary(i_upy1);
@@ -867,7 +866,7 @@ dcl_uvbxl(obj, n, upx, upy)
867
866
  i_upy = dcl_obj2crealary(upy);
868
867
 
869
868
 
870
- uvbxl_(&i_n, i_upx, i_upy);
869
+ uvbxl__(&i_n, i_upx, i_upy);
871
870
 
872
871
  dcl_freecrealary(i_upx);
873
872
  dcl_freecrealary(i_upy);
@@ -917,7 +916,7 @@ dcl_uvbxlz(obj, n, upx, upy, itype, index)
917
916
  i_upy = dcl_obj2crealary(upy);
918
917
 
919
918
 
920
- uvbxlz_(&i_n, i_upx, i_upy, &i_itype, &i_index);
919
+ uvbxlz__(&i_n, i_upx, i_upy, &i_itype, &i_index);
921
920
 
922
921
  dcl_freecrealary(i_upx);
923
922
  dcl_freecrealary(i_upy);
@@ -4,7 +4,6 @@
4
4
 
5
5
  #include <stdio.h>
6
6
  #include "ruby.h"
7
- #include "libtinyf2c.h"
8
7
  #include "narray.h"
9
8
  #include "cdcl.h"
10
9
 
@@ -88,7 +87,7 @@ dcl_uwsgxa(obj, xp, nx)
88
87
  i_xp = dcl_obj2crealary(xp);
89
88
 
90
89
 
91
- uwsgxa_(i_xp, &i_nx);
90
+ uwsgxa__(i_xp, &i_nx);
92
91
 
93
92
  dcl_freecrealary(i_xp);
94
93
 
@@ -107,7 +106,7 @@ dcl_uwqgxa(obj)
107
106
 
108
107
  o_xp= ALLOCA_N(real, (o_nx));
109
108
 
110
- uwqgxa_(o_xp, &o_nx);
109
+ uwqgxa__(o_xp, &o_nx);
111
110
 
112
111
  {int array_shape[1] = {o_nx};
113
112
  xp = dcl_crealary2obj(o_xp, (o_nx), 1, array_shape);
@@ -142,7 +141,7 @@ dcl_uwsgxb(obj, uxmin, uxmax, nx)
142
141
  i_nx = NUM2INT(nx);
143
142
 
144
143
 
145
- uwsgxb_(&i_uxmin, &i_uxmax, &i_nx);
144
+ uwsgxb__(&i_uxmin, &i_uxmax, &i_nx);
146
145
 
147
146
  return Qnil;
148
147
 
@@ -159,7 +158,7 @@ dcl_uwqgxb(obj)
159
158
  VALUE uxmax;
160
159
  VALUE nx;
161
160
 
162
- uwqgxb_(&o_uxmin, &o_uxmax, &o_nx);
161
+ uwqgxb__(&o_uxmin, &o_uxmax, &o_nx);
163
162
 
164
163
  uxmin = rb_float_new((double)o_uxmin);
165
164
  uxmax = rb_float_new((double)o_uxmax);
@@ -179,7 +178,7 @@ dcl_uwsgxz(obj, lsetx)
179
178
  i_lsetx = ((lsetx == Qnil)||(lsetx == Qfalse)) ? FALSE_ : TRUE_;
180
179
 
181
180
 
182
- uwsgxz_(&i_lsetx);
181
+ uwsgxz__(&i_lsetx);
183
182
 
184
183
  return Qnil;
185
184
 
@@ -192,7 +191,7 @@ dcl_uwqgxz(obj)
192
191
  logical o_lsetx;
193
192
  VALUE lsetx;
194
193
 
195
- uwqgxz_(&o_lsetx);
194
+ uwqgxz__(&o_lsetx);
196
195
 
197
196
  lsetx = (o_lsetx == FALSE_) ? Qfalse : Qtrue;
198
197
 
@@ -223,7 +222,7 @@ dcl_uwsgya(obj, yp, ny)
223
222
  i_yp = dcl_obj2crealary(yp);
224
223
 
225
224
 
226
- uwsgya_(i_yp, &i_ny);
225
+ uwsgya__(i_yp, &i_ny);
227
226
 
228
227
  dcl_freecrealary(i_yp);
229
228
 
@@ -242,7 +241,7 @@ dcl_uwqgya(obj)
242
241
 
243
242
  o_yp= ALLOCA_N(real, (o_ny));
244
243
 
245
- uwqgya_(o_yp, &o_ny);
244
+ uwqgya__(o_yp, &o_ny);
246
245
 
247
246
  {int array_shape[1] = {o_ny};
248
247
  yp = dcl_crealary2obj(o_yp, (o_ny), 1, array_shape);
@@ -277,7 +276,7 @@ dcl_uwsgyb(obj, uymin, uymax, ny)
277
276
  i_ny = NUM2INT(ny);
278
277
 
279
278
 
280
- uwsgyb_(&i_uymin, &i_uymax, &i_ny);
279
+ uwsgyb__(&i_uymin, &i_uymax, &i_ny);
281
280
 
282
281
  return Qnil;
283
282
 
@@ -294,7 +293,7 @@ dcl_uwqgyb(obj)
294
293
  VALUE uymax;
295
294
  VALUE ny;
296
295
 
297
- uwqgyb_(&o_uymin, &o_uymax, &o_ny);
296
+ uwqgyb__(&o_uymin, &o_uymax, &o_ny);
298
297
 
299
298
  uymin = rb_float_new((double)o_uymin);
300
299
  uymax = rb_float_new((double)o_uymax);
@@ -314,7 +313,7 @@ dcl_uwsgyz(obj, lsety)
314
313
  i_lsety = ((lsety == Qnil)||(lsety == Qfalse)) ? FALSE_ : TRUE_;
315
314
 
316
315
 
317
- uwsgyz_(&i_lsety);
316
+ uwsgyz__(&i_lsety);
318
317
 
319
318
  return Qnil;
320
319
 
@@ -327,7 +326,7 @@ dcl_uwqgyz(obj)
327
326
  logical o_lsety;
328
327
  VALUE lsety;
329
328
 
330
- uwqgyz_(&o_lsety);
329
+ uwqgyz__(&o_lsety);
331
330
 
332
331
  lsety = (o_lsety == FALSE_) ? Qfalse : Qtrue;
333
332
 
@@ -353,7 +352,7 @@ dcl_uwqgxi(obj, ux)
353
352
  i_ux = (real)NUM2DBL(ux);
354
353
 
355
354
 
356
- uwqgxi_(&i_ux, &o_iux, &o_frac);
355
+ uwqgxi__(&i_ux, &o_iux, &o_frac);
357
356
 
358
357
  iux = INT2NUM(o_iux);
359
358
  frac = rb_float_new((double)o_frac);
@@ -367,7 +366,7 @@ static VALUE
367
366
  dcl_uwigxi(obj)
368
367
  VALUE obj;
369
368
  {
370
- uwigxi_();
369
+ uwigxi__();
371
370
 
372
371
  return Qnil;
373
372
 
@@ -390,7 +389,7 @@ dcl_uwqgyi(obj, uy)
390
389
  i_uy = (real)NUM2DBL(uy);
391
390
 
392
391
 
393
- uwqgyi_(&i_uy, &o_iuy, &o_frac);
392
+ uwqgyi__(&i_uy, &o_iuy, &o_frac);
394
393
 
395
394
  iuy = INT2NUM(o_iuy);
396
395
  frac = rb_float_new((double)o_frac);
@@ -404,7 +403,7 @@ static VALUE
404
403
  dcl_uwigyi(obj)
405
404
  VALUE obj;
406
405
  {
407
- uwigyi_();
406
+ uwigyi__();
408
407
 
409
408
  return Qnil;
410
409
 
@@ -425,7 +424,7 @@ dcl_ruwgx(obj, ix)
425
424
  i_ix = NUM2INT(ix);
426
425
 
427
426
 
428
- o_rtn_val = ruwgx_(&i_ix);
427
+ o_rtn_val = ruwgx__(&i_ix);
429
428
 
430
429
  rtn_val = rb_float_new((double)o_rtn_val);
431
430
 
@@ -449,7 +448,7 @@ dcl_ruwgy(obj, iy)
449
448
  i_iy = NUM2INT(iy);
450
449
 
451
450
 
452
- o_rtn_val = ruwgy_(&i_iy);
451
+ o_rtn_val = ruwgy__(&i_iy);
453
452
 
454
453
  rtn_val = rb_float_new((double)o_rtn_val);
455
454
 
@@ -473,7 +472,7 @@ dcl_iuwgx(obj, ux)
473
472
  i_ux = (real)NUM2DBL(ux);
474
473
 
475
474
 
476
- o_rtn_val = iuwgx_(&i_ux);
475
+ o_rtn_val = iuwgx__(&i_ux);
477
476
 
478
477
  rtn_val = INT2NUM(o_rtn_val);
479
478
 
@@ -497,7 +496,7 @@ dcl_iuwgy(obj, uy)
497
496
  i_uy = (real)NUM2DBL(uy);
498
497
 
499
498
 
500
- o_rtn_val = iuwgy_(&i_uy);
499
+ o_rtn_val = iuwgy__(&i_uy);
501
500
 
502
501
  rtn_val = INT2NUM(o_rtn_val);
503
502
 
@@ -524,7 +523,7 @@ dcl_uwdflt(obj, nx, ny)
524
523
  i_ny = NUM2INT(ny);
525
524
 
526
525
 
527
- uwdflt_(&i_nx, &i_ny);
526
+ uwdflt__(&i_nx, &i_ny);
528
527
 
529
528
  return Qnil;
530
529
 
@@ -4,7 +4,6 @@
4
4
 
5
5
  #include <stdio.h>
6
6
  #include "ruby.h"
7
- #include "libtinyf2c.h"
8
7
  #include "narray.h"
9
8
  #include "cdcl.h"
10
9
 
@@ -84,7 +83,7 @@ dcl_uxsaxz(obj, cside, roffx)
84
83
  i_roffx = (real)NUM2DBL(roffx);
85
84
 
86
85
 
87
- uxsaxz_(i_cside, &i_roffx, (ftnlen)strlen(i_cside));
86
+ uxsaxz__(i_cside, &i_roffx, (ftnlen)strlen(i_cside));
88
87
 
89
88
  return Qnil;
90
89
 
@@ -103,7 +102,7 @@ dcl_uxsaxs(obj, cside)
103
102
  i_cside = StringValuePtr(cside);
104
103
 
105
104
 
106
- uxsaxs_(i_cside, (ftnlen)strlen(i_cside));
105
+ uxsaxs__(i_cside, (ftnlen)strlen(i_cside));
107
106
 
108
107
  return Qnil;
109
108
 
@@ -127,7 +126,7 @@ dcl_uxpaxs(obj, cside, islct)
127
126
  i_islct = NUM2INT(islct);
128
127
 
129
128
 
130
- uxpaxs_(i_cside, &i_islct, (ftnlen)strlen(i_cside));
129
+ uxpaxs__(i_cside, &i_islct, (ftnlen)strlen(i_cside));
131
130
 
132
131
  return Qnil;
133
132
 
@@ -165,7 +164,7 @@ dcl_uxptmk(obj, cside, islct, ux, n)
165
164
  i_ux = dcl_obj2crealary(ux);
166
165
 
167
166
 
168
- uxptmk_(i_cside, &i_islct, i_ux, &i_n, (ftnlen)strlen(i_cside));
167
+ uxptmk__(i_cside, &i_islct, i_ux, &i_n, (ftnlen)strlen(i_cside));
169
168
 
170
169
  dcl_freecrealary(i_ux);
171
170
 
@@ -218,7 +217,7 @@ dcl_uxplbl(obj, cside, islct, ux, ch, nc, n)
218
217
  i_ch = dcl_obj2ccharary(ch, (i_n*DFLT_SIZE), DFLT_SIZE);
219
218
 
220
219
 
221
- uxplbl_(i_cside, &i_islct, i_ux, i_ch, &i_nc, &i_n, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
220
+ uxplbl__(i_cside, &i_islct, i_ux, i_ch, &i_nc, &i_n, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
222
221
 
223
222
  dcl_freecrealary(i_ux);
224
223
  dcl_freeccharary(i_ch);
@@ -259,7 +258,7 @@ dcl_uxpnum(obj, cside, islct, ux, n)
259
258
  i_ux = dcl_obj2crealary(ux);
260
259
 
261
260
 
262
- uxpnum_(i_cside, &i_islct, i_ux, &i_n, (ftnlen)strlen(i_cside));
261
+ uxpnum__(i_cside, &i_islct, i_ux, &i_n, (ftnlen)strlen(i_cside));
263
262
 
264
263
  dcl_freecrealary(i_ux);
265
264
 
@@ -295,7 +294,7 @@ dcl_uxpttl(obj, cside, islct, cttl, px)
295
294
  i_px = (real)NUM2DBL(px);
296
295
 
297
296
 
298
- uxpttl_(i_cside, &i_islct, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
297
+ uxpttl__(i_cside, &i_islct, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
299
298
 
300
299
  return Qnil;
301
300
 
@@ -355,7 +354,7 @@ dcl_uxaxlb(obj, cside, ux1, n1, ux2, ch, nc, n2)
355
354
  i_ch = dcl_obj2ccharary(ch, (i_n2*DFLT_SIZE), DFLT_SIZE);
356
355
 
357
356
 
358
- uxaxlb_(i_cside, i_ux1, &i_n1, i_ux2, i_ch, &i_nc, &i_n2, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
357
+ uxaxlb__(i_cside, i_ux1, &i_n1, i_ux2, i_ch, &i_nc, &i_n2, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
359
358
 
360
359
  dcl_freecrealary(i_ux1);
361
360
  dcl_freecrealary(i_ux2);
@@ -406,7 +405,7 @@ dcl_uxaxnm(obj, cside, ux1, n1, ux2, n2)
406
405
  i_ux2 = dcl_obj2crealary(ux2);
407
406
 
408
407
 
409
- uxaxnm_(i_cside, i_ux1, &i_n1, i_ux2, &i_n2, (ftnlen)strlen(i_cside));
408
+ uxaxnm__(i_cside, i_ux1, &i_n1, i_ux2, &i_n2, (ftnlen)strlen(i_cside));
410
409
 
411
410
  dcl_freecrealary(i_ux1);
412
411
  dcl_freecrealary(i_ux2);
@@ -438,7 +437,7 @@ dcl_uxaxdv(obj, cside, dx1, dx2)
438
437
  i_dx2 = (real)NUM2DBL(dx2);
439
438
 
440
439
 
441
- uxaxdv_(i_cside, &i_dx1, &i_dx2, (ftnlen)strlen(i_cside));
440
+ uxaxdv__(i_cside, &i_dx1, &i_dx2, (ftnlen)strlen(i_cside));
442
441
 
443
442
  return Qnil;
444
443
 
@@ -467,7 +466,7 @@ dcl_uxmttl(obj, cside, cttl, px)
467
466
  i_px = (real)NUM2DBL(px);
468
467
 
469
468
 
470
- uxmttl_(i_cside, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
469
+ uxmttl__(i_cside, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
471
470
 
472
471
  return Qnil;
473
472
 
@@ -496,7 +495,7 @@ dcl_uxsttl(obj, cside, cttl, px)
496
495
  i_px = (real)NUM2DBL(px);
497
496
 
498
497
 
499
- uxsttl_(i_cside, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
498
+ uxsttl__(i_cside, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
500
499
 
501
500
  return Qnil;
502
501
 
@@ -515,7 +514,7 @@ dcl_uxsfmt(obj, cfmt)
515
514
  i_cfmt = StringValuePtr(cfmt);
516
515
 
517
516
 
518
- uxsfmt_(i_cfmt, (ftnlen)strlen(i_cfmt));
517
+ uxsfmt__(i_cfmt, (ftnlen)strlen(i_cfmt));
519
518
 
520
519
  return Qnil;
521
520
 
@@ -531,7 +530,7 @@ dcl_uxqfmt(obj)
531
530
  o_cfmt= ALLOCA_N(char, (DFLT_SIZE+1));
532
531
  memset(o_cfmt, '\0', DFLT_SIZE+1);
533
532
 
534
- uxqfmt_(o_cfmt, (ftnlen)DFLT_SIZE);
533
+ uxqfmt__(o_cfmt, (ftnlen)DFLT_SIZE);
535
534
 
536
535
  cfmt = rb_str_new2(o_cfmt);
537
536
 
@@ -4,7 +4,6 @@
4
4
 
5
5
  #include <stdio.h>
6
6
  #include "ruby.h"
7
- #include "libtinyf2c.h"
8
7
  #include "narray.h"
9
8
  #include "cdcl.h"
10
9
 
@@ -84,7 +83,7 @@ dcl_uysaxz(obj, cside, roffy)
84
83
  i_roffy = (real)NUM2DBL(roffy);
85
84
 
86
85
 
87
- uysaxz_(i_cside, &i_roffy, (ftnlen)strlen(i_cside));
86
+ uysaxz__(i_cside, &i_roffy, (ftnlen)strlen(i_cside));
88
87
 
89
88
  return Qnil;
90
89
 
@@ -103,7 +102,7 @@ dcl_uysaxs(obj, cside)
103
102
  i_cside = StringValuePtr(cside);
104
103
 
105
104
 
106
- uysaxs_(i_cside, (ftnlen)strlen(i_cside));
105
+ uysaxs__(i_cside, (ftnlen)strlen(i_cside));
107
106
 
108
107
  return Qnil;
109
108
 
@@ -127,7 +126,7 @@ dcl_uypaxs(obj, cside, islct)
127
126
  i_islct = NUM2INT(islct);
128
127
 
129
128
 
130
- uypaxs_(i_cside, &i_islct, (ftnlen)strlen(i_cside));
129
+ uypaxs__(i_cside, &i_islct, (ftnlen)strlen(i_cside));
131
130
 
132
131
  return Qnil;
133
132
 
@@ -165,7 +164,7 @@ dcl_uyptmk(obj, cside, islct, uy, n)
165
164
  i_uy = dcl_obj2crealary(uy);
166
165
 
167
166
 
168
- uyptmk_(i_cside, &i_islct, i_uy, &i_n, (ftnlen)strlen(i_cside));
167
+ uyptmk__(i_cside, &i_islct, i_uy, &i_n, (ftnlen)strlen(i_cside));
169
168
 
170
169
  dcl_freecrealary(i_uy);
171
170
 
@@ -218,7 +217,7 @@ dcl_uyplbl(obj, cside, islct, uy, ch, nc, n)
218
217
  i_ch = dcl_obj2ccharary(ch, (i_n*DFLT_SIZE), DFLT_SIZE);
219
218
 
220
219
 
221
- uyplbl_(i_cside, &i_islct, i_uy, i_ch, &i_nc, &i_n, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
220
+ uyplbl__(i_cside, &i_islct, i_uy, i_ch, &i_nc, &i_n, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
222
221
 
223
222
  dcl_freecrealary(i_uy);
224
223
  dcl_freeccharary(i_ch);
@@ -259,7 +258,7 @@ dcl_uypnum(obj, cside, islct, uy, n)
259
258
  i_uy = dcl_obj2crealary(uy);
260
259
 
261
260
 
262
- uypnum_(i_cside, &i_islct, i_uy, &i_n, (ftnlen)strlen(i_cside));
261
+ uypnum__(i_cside, &i_islct, i_uy, &i_n, (ftnlen)strlen(i_cside));
263
262
 
264
263
  dcl_freecrealary(i_uy);
265
264
 
@@ -295,7 +294,7 @@ dcl_uypttl(obj, cside, islct, cttl, px)
295
294
  i_px = (real)NUM2DBL(px);
296
295
 
297
296
 
298
- uypttl_(i_cside, &i_islct, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
297
+ uypttl__(i_cside, &i_islct, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
299
298
 
300
299
  return Qnil;
301
300
 
@@ -355,7 +354,7 @@ dcl_uyaxlb(obj, cside, uy1, n1, uy2, ch, nc, n2)
355
354
  i_ch = dcl_obj2ccharary(ch, (i_n2*DFLT_SIZE), DFLT_SIZE);
356
355
 
357
356
 
358
- uyaxlb_(i_cside, i_uy1, &i_n1, i_uy2, i_ch, &i_nc, &i_n2, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
357
+ uyaxlb__(i_cside, i_uy1, &i_n1, i_uy2, i_ch, &i_nc, &i_n2, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
359
358
 
360
359
  dcl_freecrealary(i_uy1);
361
360
  dcl_freecrealary(i_uy2);
@@ -406,7 +405,7 @@ dcl_uyaxnm(obj, cside, uy1, n1, uy2, n2)
406
405
  i_uy2 = dcl_obj2crealary(uy2);
407
406
 
408
407
 
409
- uyaxnm_(i_cside, i_uy1, &i_n1, i_uy2, &i_n2, (ftnlen)strlen(i_cside));
408
+ uyaxnm__(i_cside, i_uy1, &i_n1, i_uy2, &i_n2, (ftnlen)strlen(i_cside));
410
409
 
411
410
  dcl_freecrealary(i_uy1);
412
411
  dcl_freecrealary(i_uy2);
@@ -438,7 +437,7 @@ dcl_uyaxdv(obj, cside, dy1, dy2)
438
437
  i_dy2 = (real)NUM2DBL(dy2);
439
438
 
440
439
 
441
- uyaxdv_(i_cside, &i_dy1, &i_dy2, (ftnlen)strlen(i_cside));
440
+ uyaxdv__(i_cside, &i_dy1, &i_dy2, (ftnlen)strlen(i_cside));
442
441
 
443
442
  return Qnil;
444
443
 
@@ -467,7 +466,7 @@ dcl_uymttl(obj, cside, cttl, px)
467
466
  i_px = (real)NUM2DBL(px);
468
467
 
469
468
 
470
- uymttl_(i_cside, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
469
+ uymttl__(i_cside, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
471
470
 
472
471
  return Qnil;
473
472
 
@@ -496,7 +495,7 @@ dcl_uysttl(obj, cside, cttl, px)
496
495
  i_px = (real)NUM2DBL(px);
497
496
 
498
497
 
499
- uysttl_(i_cside, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
498
+ uysttl__(i_cside, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
500
499
 
501
500
  return Qnil;
502
501
 
@@ -515,7 +514,7 @@ dcl_uysfmt(obj, cfmt)
515
514
  i_cfmt = StringValuePtr(cfmt);
516
515
 
517
516
 
518
- uysfmt_(i_cfmt, (ftnlen)strlen(i_cfmt));
517
+ uysfmt__(i_cfmt, (ftnlen)strlen(i_cfmt));
519
518
 
520
519
  return Qnil;
521
520
 
@@ -531,7 +530,7 @@ dcl_uyqfmt(obj)
531
530
  o_cfmt= ALLOCA_N(char, (DFLT_SIZE+1));
532
531
  memset(o_cfmt, '\0', DFLT_SIZE+1);
533
532
 
534
- uyqfmt_(o_cfmt, (ftnlen)DFLT_SIZE);
533
+ uyqfmt__(o_cfmt, (ftnlen)DFLT_SIZE);
535
534
 
536
535
  cfmt = rb_str_new2(o_cfmt);
537
536