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.
- checksums.yaml +5 -5
- data/ChangeLog +97 -14
- data/LICENSE.txt +1 -1
- data/demo/gokuraku/jump/jump2.rb +1 -1
- data/demo/grph1/sgpack/sgfont.rb +1 -1
- data/demo/grph1/sgpack/sgfonz.rb +1 -1
- data/demo/grph1/sgpack/sgpk07.rb +8 -6
- data/demo/grph1/slpack/slpk04.rb +1 -1
- data/demo/grph2/udegpk/u2df03.rb +2 -2
- data/demo/grph2/umpack/test04.rb +1 -1
- data/demo/grph2/umpack/test05r.rb +86 -0
- data/demo/grph2/uspack/uspk06.rb +1 -1
- data/demo/grph2/uspack/uspk08.rb +1 -1
- data/demo/grph2/ximage/ximg01.rb +1 -1
- data/demo/misc2/tmpack/tmpk01.rb +46 -0
- data/demo/misc2/tmpack/tmpk02.rb +58 -0
- data/demo/misc2/tmpack/tmpk03.rb +56 -0
- data/demo/rakuraku/color/color2.rb +4 -3
- data/demo/rakuraku/kihon/kihon7.rb +9 -3
- data/demo/rakuraku/kihon/kihonb.rb +11 -9
- data/demo/rakuraku/uspack/uspac1.rb +1 -1
- data/demo/rakuraku/uspack/uspac3.rb +1 -1
- data/ext/numru/dcl_cary2obj.c +1 -1
- data/ext/numru/dcl_narrayed_funcs.c +21 -21
- data/ext/numru/dcl_obj2cary.c +1 -1
- data/ext/numru/dcl_rubydcloriginal.c +0 -1
- data/ext/numru/extconf.rb +28 -9
- data/ext/numru/grph1_csgi.c +29 -3
- data/ext/numru/grph1_scpack.c +40 -41
- data/ext/numru/grph1_sgpack.c +158 -159
- data/ext/numru/grph1_slpack.c +14 -15
- data/ext/numru/grph1_stpack.c +35 -36
- data/ext/numru/grph1_swpack.c +89 -90
- data/ext/numru/grph2_grpack.c +13 -14
- data/ext/numru/grph2_ucpack.c +46 -47
- data/ext/numru/grph2_udpack.c +52 -53
- data/ext/numru/grph2_uepack.c +51 -52
- data/ext/numru/grph2_ugpack.c +40 -41
- data/ext/numru/grph2_uhpack.c +16 -17
- data/ext/numru/grph2_uipack.c +48 -49
- data/ext/numru/grph2_ulpack.c +50 -51
- data/ext/numru/grph2_umpack.c +66 -67
- data/ext/numru/grph2_uspack.c +88 -89
- data/ext/numru/grph2_uupack.c +69 -70
- data/ext/numru/grph2_uvpack.c +16 -17
- data/ext/numru/grph2_uwpack.c +21 -22
- data/ext/numru/grph2_uxpack.c +14 -15
- data/ext/numru/grph2_uypack.c +14 -15
- data/ext/numru/grph2_uzpack.c +60 -61
- data/ext/numru/init.c.default +5 -2
- data/ext/numru/math1_blklib.c +4 -5
- data/ext/numru/math1_chrlib.c +7 -8
- data/ext/numru/math1_clsplib.c +4 -5
- data/ext/numru/math1_fnclib.c +7 -8
- data/ext/numru/math1_gnmlib.c +12 -13
- data/ext/numru/math1_gt2dlib.c +9 -10
- data/ext/numru/math1_ifalib.c +9 -10
- data/ext/numru/math1_indxlib.c +15 -16
- data/ext/numru/math1_intlib.c +4 -5
- data/ext/numru/math1_lrllib.c +24 -25
- data/ext/numru/math1_maplib.c +5 -6
- data/ext/numru/math1_oslib.c +2 -3
- data/ext/numru/math1_rfalib.c +30 -31
- data/ext/numru/math1_rfblib.c +3 -4
- data/ext/numru/math1_sublib.c +4 -5
- data/ext/numru/math1_syslib.c +73 -74
- data/ext/numru/math1_vialib.c +22 -23
- data/ext/numru/math1_viblib.c +15 -16
- data/ext/numru/math1_vralib.c +22 -23
- data/ext/numru/math1_vrblib.c +15 -16
- data/ext/numru/math1_xfclib.c +3 -4
- data/ext/numru/math2_fftlib.c +19 -20
- data/ext/numru/math2_intrlib.c +2 -3
- data/ext/numru/math2_rnmlib.c +3 -4
- data/ext/numru/math2_shtlib.c +25 -26
- data/ext/numru/math2_vstlib.c +6 -7
- data/ext/numru/misc1_chnlib.c +3 -4
- data/ext/numru/misc1_datelib.c +27 -28
- data/ext/numru/misc1_fmtlib.c +1 -2
- data/ext/numru/misc1_misclib.c +2 -3
- data/ext/numru/misc1_randlib.c +4 -5
- data/ext/numru/misc1_timelib.c +11 -12
- data/ext/numru/misc2_tmpack.c +1200 -0
- data/lib/numru/dcl/dcl.rb +73 -1
- data/lib/numru/dcl/version.rb +1 -1
- data/ruby-dcl.gemspec +2 -2
- metadata +12 -4
data/ext/numru/grph2_uepack.c
CHANGED
@@ -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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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 =
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
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
|
-
|
1382
|
+
uerqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
1384
1383
|
|
1385
1384
|
in = INT2NUM(o_in);
|
1386
1385
|
|