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
 
@@ -98,7 +97,7 @@ dcl_uetone(obj, z, mx, nx, ny)
98
97
  i_z = dcl_obj2crealary(z);
99
98
 
100
99
 
101
- uetone_(i_z, &i_mx, &i_nx, &i_ny);
100
+ uetone__(i_z, &i_mx, &i_nx, &i_ny);
102
101
 
103
102
  dcl_freecrealary(i_z);
104
103
 
@@ -138,7 +137,7 @@ dcl_uetonf(obj, z, mx, nx, ny)
138
137
  i_z = dcl_obj2crealary(z);
139
138
 
140
139
 
141
- uetonf_(i_z, &i_mx, &i_nx, &i_ny);
140
+ uetonf__(i_z, &i_mx, &i_nx, &i_ny);
142
141
 
143
142
  dcl_freecrealary(i_z);
144
143
 
@@ -180,7 +179,7 @@ dcl_uetonb(obj, z, mx, nx, ny)
180
179
  i_z = dcl_obj2crealary(z);
181
180
 
182
181
 
183
- uetonb_(i_z, &i_mx, &i_nx, &i_ny);
182
+ uetonb__(i_z, &i_mx, &i_nx, &i_ny);
184
183
 
185
184
  dcl_freecrealary(i_z);
186
185
 
@@ -222,7 +221,7 @@ dcl_uetonc(obj, z, mx, nx, ny)
222
221
  i_z = dcl_obj2crealary(z);
223
222
 
224
223
 
225
- uetonc_(i_z, &i_mx, &i_nx, &i_ny);
224
+ uetonc__(i_z, &i_mx, &i_nx, &i_ny);
226
225
 
227
226
  dcl_freecrealary(i_z);
228
227
 
@@ -269,7 +268,7 @@ dcl_uezchk(obj, z, mx, nx, ny, cname)
269
268
  i_z = dcl_obj2crealary(z);
270
269
 
271
270
 
272
- uezchk_(i_z, &i_mx, &i_nx, &i_ny, i_cname, &o_istat, (ftnlen)strlen(i_cname));
271
+ uezchk__(i_z, &i_mx, &i_nx, &i_ny, i_cname, &o_istat, (ftnlen)strlen(i_cname));
273
272
 
274
273
  istat = INT2NUM(o_istat);
275
274
 
@@ -302,7 +301,7 @@ dcl_uegtla(obj, xmin, xmax, dx)
302
301
  i_dx = (real)NUM2DBL(dx);
303
302
 
304
303
 
305
- uegtla_(&i_xmin, &i_xmax, &i_dx);
304
+ uegtla__(&i_xmin, &i_xmax, &i_dx);
306
305
 
307
306
  return Qnil;
308
307
 
@@ -345,7 +344,7 @@ dcl_uegtlb(obj, z, mx, nx, ny, dx)
345
344
  i_z = dcl_obj2crealary(z);
346
345
 
347
346
 
348
- uegtlb_(i_z, &i_mx, &i_nx, &i_ny, &i_dx);
347
+ uegtlb__(i_z, &i_mx, &i_nx, &i_ny, &i_dx);
349
348
 
350
349
  dcl_freecrealary(i_z);
351
350
 
@@ -357,7 +356,7 @@ static VALUE
357
356
  dcl_ueitlv(obj)
358
357
  VALUE obj;
359
358
  {
360
- ueitlv_();
359
+ ueitlv__();
361
360
 
362
361
  return Qnil;
363
362
 
@@ -386,7 +385,7 @@ dcl_uestlv(obj, tlev1, tlev2, ipat)
386
385
  i_ipat = NUM2INT(ipat);
387
386
 
388
387
 
389
- uestlv_(&i_tlev1, &i_tlev2, &i_ipat);
388
+ uestlv__(&i_tlev1, &i_tlev2, &i_ipat);
390
389
 
391
390
  return Qnil;
392
391
 
@@ -411,7 +410,7 @@ dcl_ueqtlv(obj, iton)
411
410
  i_iton = NUM2INT(iton);
412
411
 
413
412
 
414
- ueqtlv_(&o_tlev1, &o_tlev2, &o_ipat, &i_iton);
413
+ ueqtlv__(&o_tlev1, &o_tlev2, &o_ipat, &i_iton);
415
414
 
416
415
  tlev1 = rb_float_new((double)o_tlev1);
417
416
  tlev2 = rb_float_new((double)o_tlev2);
@@ -429,7 +428,7 @@ dcl_ueqntl(obj)
429
428
  integer o_nton;
430
429
  VALUE nton;
431
430
 
432
- ueqntl_(&o_nton);
431
+ ueqntl__(&o_nton);
433
432
 
434
433
  nton = INT2NUM(o_nton);
435
434
 
@@ -469,7 +468,7 @@ dcl_uestln(obj, tlevn, ipatn, nton)
469
468
  i_ipatn = dcl_obj2cintegerary(ipatn);
470
469
 
471
470
 
472
- uestln_(i_tlevn, i_ipatn, &i_nton);
471
+ uestln__(i_tlevn, i_ipatn, &i_nton);
473
472
 
474
473
  dcl_freecrealary(i_tlevn);
475
474
  dcl_freecintegerary(i_ipatn);
@@ -493,7 +492,7 @@ dcl_iueton(obj, zlev)
493
492
  i_zlev = (real)NUM2DBL(zlev);
494
493
 
495
494
 
496
- o_rtn_val = iueton_(&i_zlev);
495
+ o_rtn_val = iueton__(&i_zlev);
497
496
 
498
497
  rtn_val = INT2NUM(o_rtn_val);
499
498
 
@@ -509,7 +508,7 @@ dcl_uepqnp(obj)
509
508
  integer o_ncp;
510
509
  VALUE ncp;
511
510
 
512
- uepqnp_(&o_ncp);
511
+ uepqnp__(&o_ncp);
513
512
 
514
513
  ncp = INT2NUM(o_ncp);
515
514
 
@@ -533,7 +532,7 @@ dcl_uepqid(obj, cp)
533
532
  i_cp = StringValuePtr(cp);
534
533
 
535
534
 
536
- uepqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
535
+ uepqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
537
536
 
538
537
  idx = INT2NUM(o_idx);
539
538
 
@@ -559,7 +558,7 @@ dcl_uepqcp(obj, idx)
559
558
  o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
560
559
  memset(o_cp, '\0', DFLT_SIZE+1);
561
560
 
562
- uepqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
561
+ uepqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
563
562
 
564
563
  cp = rb_str_new2(o_cp);
565
564
 
@@ -585,7 +584,7 @@ dcl_uepqcl(obj, idx)
585
584
  o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
586
585
  memset(o_cp, '\0', DFLT_SIZE+1);
587
586
 
588
- uepqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
587
+ uepqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
589
588
 
590
589
  cp = rb_str_new2(o_cp);
591
590
 
@@ -609,7 +608,7 @@ dcl_uepqit(obj, idx)
609
608
  i_idx = NUM2INT(idx);
610
609
 
611
610
 
612
- uepqit_(&i_idx, &o_itp);
611
+ uepqit__(&i_idx, &o_itp);
613
612
 
614
613
  itp = INT2NUM(o_itp);
615
614
 
@@ -633,7 +632,7 @@ dcl_uepqvl(obj, idx)
633
632
  i_idx = NUM2INT(idx);
634
633
 
635
634
 
636
- uepqvl_(&i_idx, &o_ipara);
635
+ uepqvl__(&i_idx, &o_ipara);
637
636
 
638
637
  ipara = INT2NUM(o_ipara);
639
638
 
@@ -660,7 +659,7 @@ dcl_uepsvl(obj, idx, ipara)
660
659
  i_ipara = NUM2INT(ipara);
661
660
 
662
661
 
663
- uepsvl_(&i_idx, &i_ipara);
662
+ uepsvl__(&i_idx, &i_ipara);
664
663
 
665
664
  return Qnil;
666
665
 
@@ -681,7 +680,7 @@ dcl_uepqin(obj, cp)
681
680
  i_cp = StringValuePtr(cp);
682
681
 
683
682
 
684
- uepqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
683
+ uepqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
685
684
 
686
685
  in = INT2NUM(o_in);
687
686
 
@@ -705,7 +704,7 @@ dcl_ueiget(obj, cp)
705
704
  i_cp = StringValuePtr(cp);
706
705
 
707
706
 
708
- ueiget_(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
707
+ ueiget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
709
708
 
710
709
  ipara = INT2NUM(o_ipara);
711
710
 
@@ -732,7 +731,7 @@ dcl_ueiset(obj, cp, ipara)
732
731
  i_ipara = NUM2INT(ipara);
733
732
 
734
733
 
735
- ueiset_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
734
+ ueiset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
736
735
 
737
736
  return Qnil;
738
737
 
@@ -756,7 +755,7 @@ dcl_ueistx(obj, cp, ipara)
756
755
  i_ipara = NUM2INT(ipara);
757
756
 
758
757
 
759
- ueistx_(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
758
+ ueistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
760
759
 
761
760
  return Qnil;
762
761
 
@@ -769,7 +768,7 @@ dcl_ueiqnp(obj)
769
768
  integer o_ncp;
770
769
  VALUE ncp;
771
770
 
772
- ueiqnp_(&o_ncp);
771
+ ueiqnp__(&o_ncp);
773
772
 
774
773
  ncp = INT2NUM(o_ncp);
775
774
 
@@ -793,7 +792,7 @@ dcl_ueiqid(obj, cp)
793
792
  i_cp = StringValuePtr(cp);
794
793
 
795
794
 
796
- ueiqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
795
+ ueiqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
797
796
 
798
797
  idx = INT2NUM(o_idx);
799
798
 
@@ -819,7 +818,7 @@ dcl_ueiqcp(obj, idx)
819
818
  o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
820
819
  memset(o_cp, '\0', DFLT_SIZE+1);
821
820
 
822
- ueiqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
821
+ ueiqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
823
822
 
824
823
  cp = rb_str_new2(o_cp);
825
824
 
@@ -845,7 +844,7 @@ dcl_ueiqcl(obj, idx)
845
844
  o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
846
845
  memset(o_cp, '\0', DFLT_SIZE+1);
847
846
 
848
- ueiqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
847
+ ueiqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
849
848
 
850
849
  cp = rb_str_new2(o_cp);
851
850
 
@@ -869,7 +868,7 @@ dcl_ueiqvl(obj, idx)
869
868
  i_idx = NUM2INT(idx);
870
869
 
871
870
 
872
- ueiqvl_(&i_idx, &o_ipara);
871
+ ueiqvl__(&i_idx, &o_ipara);
873
872
 
874
873
  ipara = INT2NUM(o_ipara);
875
874
 
@@ -896,7 +895,7 @@ dcl_ueisvl(obj, idx, ipara)
896
895
  i_ipara = NUM2INT(ipara);
897
896
 
898
897
 
899
- ueisvl_(&i_idx, &i_ipara);
898
+ ueisvl__(&i_idx, &i_ipara);
900
899
 
901
900
  return Qnil;
902
901
 
@@ -917,7 +916,7 @@ dcl_ueiqin(obj, cp)
917
916
  i_cp = StringValuePtr(cp);
918
917
 
919
918
 
920
- ueiqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
919
+ ueiqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
921
920
 
922
921
  in = INT2NUM(o_in);
923
922
 
@@ -941,7 +940,7 @@ dcl_uelget(obj, cp)
941
940
  i_cp = StringValuePtr(cp);
942
941
 
943
942
 
944
- uelget_(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
943
+ uelget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
945
944
 
946
945
  lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
947
946
 
@@ -965,7 +964,7 @@ dcl_uelset(obj, cp, lpara)
965
964
  i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
966
965
 
967
966
 
968
- uelset_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
967
+ uelset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
969
968
 
970
969
  return Qnil;
971
970
 
@@ -986,7 +985,7 @@ dcl_uelstx(obj, cp, lpara)
986
985
  i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
987
986
 
988
987
 
989
- uelstx_(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
988
+ uelstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
990
989
 
991
990
  return Qnil;
992
991
 
@@ -999,7 +998,7 @@ dcl_uelqnp(obj)
999
998
  integer o_ncp;
1000
999
  VALUE ncp;
1001
1000
 
1002
- uelqnp_(&o_ncp);
1001
+ uelqnp__(&o_ncp);
1003
1002
 
1004
1003
  ncp = INT2NUM(o_ncp);
1005
1004
 
@@ -1023,7 +1022,7 @@ dcl_uelqid(obj, cp)
1023
1022
  i_cp = StringValuePtr(cp);
1024
1023
 
1025
1024
 
1026
- uelqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
1025
+ uelqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
1027
1026
 
1028
1027
  idx = INT2NUM(o_idx);
1029
1028
 
@@ -1049,7 +1048,7 @@ dcl_uelqcp(obj, idx)
1049
1048
  o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
1050
1049
  memset(o_cp, '\0', DFLT_SIZE+1);
1051
1050
 
1052
- uelqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
1051
+ uelqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
1053
1052
 
1054
1053
  cp = rb_str_new2(o_cp);
1055
1054
 
@@ -1075,7 +1074,7 @@ dcl_uelqcl(obj, idx)
1075
1074
  o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
1076
1075
  memset(o_cp, '\0', DFLT_SIZE+1);
1077
1076
 
1078
- uelqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
1077
+ uelqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
1079
1078
 
1080
1079
  cp = rb_str_new2(o_cp);
1081
1080
 
@@ -1099,7 +1098,7 @@ dcl_uelqvl(obj, idx)
1099
1098
  i_idx = NUM2INT(idx);
1100
1099
 
1101
1100
 
1102
- uelqvl_(&i_idx, &o_lpara);
1101
+ uelqvl__(&i_idx, &o_lpara);
1103
1102
 
1104
1103
  lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
1105
1104
 
@@ -1123,7 +1122,7 @@ dcl_uelsvl(obj, idx, lpara)
1123
1122
  i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
1124
1123
 
1125
1124
 
1126
- uelsvl_(&i_idx, &i_lpara);
1125
+ uelsvl__(&i_idx, &i_lpara);
1127
1126
 
1128
1127
  return Qnil;
1129
1128
 
@@ -1144,7 +1143,7 @@ dcl_uelqin(obj, cp)
1144
1143
  i_cp = StringValuePtr(cp);
1145
1144
 
1146
1145
 
1147
- uelqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
1146
+ uelqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
1148
1147
 
1149
1148
  in = INT2NUM(o_in);
1150
1149
 
@@ -1168,7 +1167,7 @@ dcl_uerget(obj, cp)
1168
1167
  i_cp = StringValuePtr(cp);
1169
1168
 
1170
1169
 
1171
- uerget_(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
1170
+ uerget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
1172
1171
 
1173
1172
  rpara = rb_float_new((double)o_rpara);
1174
1173
 
@@ -1195,7 +1194,7 @@ dcl_uerset(obj, cp, rpara)
1195
1194
  i_rpara = (real)NUM2DBL(rpara);
1196
1195
 
1197
1196
 
1198
- uerset_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
1197
+ uerset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
1199
1198
 
1200
1199
  return Qnil;
1201
1200
 
@@ -1219,7 +1218,7 @@ dcl_uerstx(obj, cp, rpara)
1219
1218
  i_rpara = (real)NUM2DBL(rpara);
1220
1219
 
1221
1220
 
1222
- uerstx_(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
1221
+ uerstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
1223
1222
 
1224
1223
  return Qnil;
1225
1224
 
@@ -1232,7 +1231,7 @@ dcl_uerqnp(obj)
1232
1231
  integer o_ncp;
1233
1232
  VALUE ncp;
1234
1233
 
1235
- uerqnp_(&o_ncp);
1234
+ uerqnp__(&o_ncp);
1236
1235
 
1237
1236
  ncp = INT2NUM(o_ncp);
1238
1237
 
@@ -1256,7 +1255,7 @@ dcl_uerqid(obj, cp)
1256
1255
  i_cp = StringValuePtr(cp);
1257
1256
 
1258
1257
 
1259
- uerqid_(i_cp, &o_idx, (ftnlen)strlen(i_cp));
1258
+ uerqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
1260
1259
 
1261
1260
  idx = INT2NUM(o_idx);
1262
1261
 
@@ -1282,7 +1281,7 @@ dcl_uerqcp(obj, idx)
1282
1281
  o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
1283
1282
  memset(o_cp, '\0', DFLT_SIZE+1);
1284
1283
 
1285
- uerqcp_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
1284
+ uerqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
1286
1285
 
1287
1286
  cp = rb_str_new2(o_cp);
1288
1287
 
@@ -1308,7 +1307,7 @@ dcl_uerqcl(obj, idx)
1308
1307
  o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
1309
1308
  memset(o_cp, '\0', DFLT_SIZE+1);
1310
1309
 
1311
- uerqcl_(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
1310
+ uerqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
1312
1311
 
1313
1312
  cp = rb_str_new2(o_cp);
1314
1313
 
@@ -1332,7 +1331,7 @@ dcl_uerqvl(obj, idx)
1332
1331
  i_idx = NUM2INT(idx);
1333
1332
 
1334
1333
 
1335
- uerqvl_(&i_idx, &o_rpara);
1334
+ uerqvl__(&i_idx, &o_rpara);
1336
1335
 
1337
1336
  rpara = rb_float_new((double)o_rpara);
1338
1337
 
@@ -1359,7 +1358,7 @@ dcl_uersvl(obj, idx, rpara)
1359
1358
  i_rpara = (real)NUM2DBL(rpara);
1360
1359
 
1361
1360
 
1362
- uersvl_(&i_idx, &i_rpara);
1361
+ uersvl__(&i_idx, &i_rpara);
1363
1362
 
1364
1363
  return Qnil;
1365
1364
 
@@ -1380,7 +1379,7 @@ dcl_uerqin(obj, cp)
1380
1379
  i_cp = StringValuePtr(cp);
1381
1380
 
1382
1381
 
1383
- uerqin_(i_cp, &o_in, (ftnlen)strlen(i_cp));
1382
+ uerqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
1384
1383
 
1385
1384
  in = INT2NUM(o_in);
1386
1385