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_uipack.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
|
|
@@ -100,7 +99,7 @@ dcl_uipdat(obj, z, mx, nx, ny)
|
|
100
99
|
i_z = dcl_obj2crealary(z);
|
101
100
|
|
102
101
|
|
103
|
-
|
102
|
+
uipdat__(i_z, &i_mx, &i_nx, &i_ny);
|
104
103
|
|
105
104
|
dcl_freecrealary(i_z);
|
106
105
|
|
@@ -149,7 +148,7 @@ dcl_uipda2(obj, u, v, mx, nx, ny)
|
|
149
148
|
i_v = dcl_obj2crealary(v);
|
150
149
|
|
151
150
|
|
152
|
-
|
151
|
+
uipda2__(i_u, i_v, &i_mx, &i_nx, &i_ny);
|
153
152
|
|
154
153
|
dcl_freecrealary(i_u);
|
155
154
|
dcl_freecrealary(i_v);
|
@@ -208,7 +207,7 @@ dcl_uipda3(obj, u, v, w, mx, nx, ny)
|
|
208
207
|
i_w = dcl_obj2crealary(w);
|
209
208
|
|
210
209
|
|
211
|
-
|
210
|
+
uipda3__(i_u, i_v, i_w, &i_mx, &i_nx, &i_ny);
|
212
211
|
|
213
212
|
dcl_freecrealary(i_u);
|
214
213
|
dcl_freecrealary(i_v);
|
@@ -236,7 +235,7 @@ dcl_uiscrg(obj, zmin, zmax)
|
|
236
235
|
i_zmax = (real)NUM2DBL(zmax);
|
237
236
|
|
238
237
|
|
239
|
-
|
238
|
+
uiscrg__(&i_zmin, &i_zmax);
|
240
239
|
|
241
240
|
return Qnil;
|
242
241
|
|
@@ -260,7 +259,7 @@ dcl_uismrg(obj, zmin, zmax)
|
|
260
259
|
i_zmax = (real)NUM2DBL(zmax);
|
261
260
|
|
262
261
|
|
263
|
-
|
262
|
+
uismrg__(&i_zmin, &i_zmax);
|
264
263
|
|
265
264
|
return Qnil;
|
266
265
|
|
@@ -297,7 +296,7 @@ dcl_uiscsq(obj, clrlvl, icolor, n)
|
|
297
296
|
i_icolor = dcl_obj2cintegerary(icolor);
|
298
297
|
|
299
298
|
|
300
|
-
|
299
|
+
uiscsq__(i_clrlvl, i_icolor, &i_n);
|
301
300
|
|
302
301
|
dcl_freecrealary(i_clrlvl);
|
303
302
|
dcl_freecintegerary(i_icolor);
|
@@ -319,7 +318,7 @@ dcl_uiscfl(obj, cdsn)
|
|
319
318
|
i_cdsn = StringValuePtr(cdsn);
|
320
319
|
|
321
320
|
|
322
|
-
|
321
|
+
uiscfl__(i_cdsn, (ftnlen)strlen(i_cdsn));
|
323
322
|
|
324
323
|
return Qnil;
|
325
324
|
|
@@ -356,7 +355,7 @@ dcl_uismsq(obj, shdlvl, shade, n)
|
|
356
355
|
i_shade = dcl_obj2cintegerary(shade);
|
357
356
|
|
358
357
|
|
359
|
-
|
358
|
+
uismsq__(i_shdlvl, i_shade, &i_n);
|
360
359
|
|
361
360
|
dcl_freecrealary(i_shdlvl);
|
362
361
|
dcl_freecintegerary(i_shade);
|
@@ -378,7 +377,7 @@ dcl_uismfl(obj, cdsn)
|
|
378
377
|
i_cdsn = StringValuePtr(cdsn);
|
379
378
|
|
380
379
|
|
381
|
-
|
380
|
+
uismfl__(i_cdsn, (ftnlen)strlen(i_cdsn));
|
382
381
|
|
383
382
|
return Qnil;
|
384
383
|
|
@@ -427,7 +426,7 @@ dcl_uixbar(obj, xmin, xmax, ymin, ymax, zmin, zmax, cpos)
|
|
427
426
|
i_cpos = StringValuePtr(cpos);
|
428
427
|
|
429
428
|
|
430
|
-
|
429
|
+
uixbar__(&i_xmin, &i_xmax, &i_ymin, &i_ymax, &i_zmin, &i_zmax, i_cpos, (ftnlen)strlen(i_cpos));
|
431
430
|
|
432
431
|
return Qnil;
|
433
432
|
|
@@ -476,7 +475,7 @@ dcl_uiybar(obj, xmin, xmax, ymin, ymax, zmin, zmax, cpos)
|
|
476
475
|
i_cpos = StringValuePtr(cpos);
|
477
476
|
|
478
477
|
|
479
|
-
|
478
|
+
uiybar__(&i_xmin, &i_xmax, &i_ymin, &i_ymax, &i_zmin, &i_zmax, i_cpos, (ftnlen)strlen(i_cpos));
|
480
479
|
|
481
480
|
return Qnil;
|
482
481
|
|
@@ -510,7 +509,7 @@ dcl_uiscr2(obj, umin, umax, vmin, vmax)
|
|
510
509
|
i_vmax = (real)NUM2DBL(vmax);
|
511
510
|
|
512
511
|
|
513
|
-
|
512
|
+
uiscr2__(&i_umin, &i_umax, &i_vmin, &i_vmax);
|
514
513
|
|
515
514
|
return Qnil;
|
516
515
|
|
@@ -529,7 +528,7 @@ dcl_uiqcr2(obj)
|
|
529
528
|
VALUE vmin;
|
530
529
|
VALUE vmax;
|
531
530
|
|
532
|
-
|
531
|
+
uiqcr2__(&o_umin, &o_umax, &o_vmin, &o_vmax);
|
533
532
|
|
534
533
|
umin = rb_float_new((double)o_umin);
|
535
534
|
umax = rb_float_new((double)o_umax);
|
@@ -569,7 +568,7 @@ dcl_uiscmp(obj, irgb1, irgb2, irgb3, irgb4)
|
|
569
568
|
i_irgb4 = NUM2INT(irgb4);
|
570
569
|
|
571
570
|
|
572
|
-
|
571
|
+
uiscmp__(&i_irgb1, &i_irgb2, &i_irgb3, &i_irgb4);
|
573
572
|
|
574
573
|
return Qnil;
|
575
574
|
|
@@ -608,7 +607,7 @@ dcl_uipcmp(obj, xmin, xmax, ymin, ymax, cpos)
|
|
608
607
|
i_cpos = StringValuePtr(cpos);
|
609
608
|
|
610
609
|
|
611
|
-
|
610
|
+
uipcmp__(&i_xmin, &i_xmax, &i_ymin, &i_ymax, i_cpos, (ftnlen)strlen(i_cpos));
|
612
611
|
|
613
612
|
return Qnil;
|
614
613
|
|
@@ -639,7 +638,7 @@ dcl_uifpac(obj, ir, ig, ib)
|
|
639
638
|
i_ib = NUM2INT(ib);
|
640
639
|
|
641
640
|
|
642
|
-
|
641
|
+
uifpac__(&i_ir, &i_ig, &i_ib, &o_irgb);
|
643
642
|
|
644
643
|
irgb = INT2NUM(o_irgb);
|
645
644
|
|
@@ -667,7 +666,7 @@ dcl_uiipac(obj, irgb)
|
|
667
666
|
i_irgb = NUM2INT(irgb);
|
668
667
|
|
669
668
|
|
670
|
-
|
669
|
+
uiipac__(&i_irgb, &o_ir, &o_ig, &o_ib);
|
671
670
|
|
672
671
|
ir = INT2NUM(o_ir);
|
673
672
|
ig = INT2NUM(o_ig);
|
@@ -693,7 +692,7 @@ dcl_uiiget(obj, cp)
|
|
693
692
|
i_cp = StringValuePtr(cp);
|
694
693
|
|
695
694
|
|
696
|
-
|
695
|
+
uiiget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
|
697
696
|
|
698
697
|
ipara = INT2NUM(o_ipara);
|
699
698
|
|
@@ -720,7 +719,7 @@ dcl_uiiset(obj, cp, ipara)
|
|
720
719
|
i_ipara = NUM2INT(ipara);
|
721
720
|
|
722
721
|
|
723
|
-
|
722
|
+
uiiset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
|
724
723
|
|
725
724
|
return Qnil;
|
726
725
|
|
@@ -744,7 +743,7 @@ dcl_uiistx(obj, cp, ipara)
|
|
744
743
|
i_ipara = NUM2INT(ipara);
|
745
744
|
|
746
745
|
|
747
|
-
|
746
|
+
uiistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
|
748
747
|
|
749
748
|
return Qnil;
|
750
749
|
|
@@ -757,7 +756,7 @@ dcl_uiiqnp(obj)
|
|
757
756
|
integer o_ncp;
|
758
757
|
VALUE ncp;
|
759
758
|
|
760
|
-
|
759
|
+
uiiqnp__(&o_ncp);
|
761
760
|
|
762
761
|
ncp = INT2NUM(o_ncp);
|
763
762
|
|
@@ -781,7 +780,7 @@ dcl_uiiqid(obj, cp)
|
|
781
780
|
i_cp = StringValuePtr(cp);
|
782
781
|
|
783
782
|
|
784
|
-
|
783
|
+
uiiqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
785
784
|
|
786
785
|
idx = INT2NUM(o_idx);
|
787
786
|
|
@@ -807,7 +806,7 @@ dcl_uiiqcp(obj, idx)
|
|
807
806
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
808
807
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
809
808
|
|
810
|
-
|
809
|
+
uiiqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
811
810
|
|
812
811
|
cp = rb_str_new2(o_cp);
|
813
812
|
|
@@ -833,7 +832,7 @@ dcl_uiiqcl(obj, idx)
|
|
833
832
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
834
833
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
835
834
|
|
836
|
-
|
835
|
+
uiiqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
837
836
|
|
838
837
|
cp = rb_str_new2(o_cp);
|
839
838
|
|
@@ -857,7 +856,7 @@ dcl_uiiqvl(obj, idx)
|
|
857
856
|
i_idx = NUM2INT(idx);
|
858
857
|
|
859
858
|
|
860
|
-
|
859
|
+
uiiqvl__(&i_idx, &o_ipara);
|
861
860
|
|
862
861
|
ipara = INT2NUM(o_ipara);
|
863
862
|
|
@@ -884,7 +883,7 @@ dcl_uiisvl(obj, idx, ipara)
|
|
884
883
|
i_ipara = NUM2INT(ipara);
|
885
884
|
|
886
885
|
|
887
|
-
|
886
|
+
uiisvl__(&i_idx, &i_ipara);
|
888
887
|
|
889
888
|
return Qnil;
|
890
889
|
|
@@ -905,7 +904,7 @@ dcl_uiiqin(obj, cp)
|
|
905
904
|
i_cp = StringValuePtr(cp);
|
906
905
|
|
907
906
|
|
908
|
-
|
907
|
+
uiiqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
909
908
|
|
910
909
|
in = INT2NUM(o_in);
|
911
910
|
|
@@ -929,7 +928,7 @@ dcl_uilget(obj, cp)
|
|
929
928
|
i_cp = StringValuePtr(cp);
|
930
929
|
|
931
930
|
|
932
|
-
|
931
|
+
uilget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
|
933
932
|
|
934
933
|
lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
|
935
934
|
|
@@ -953,7 +952,7 @@ dcl_uilset(obj, cp, lpara)
|
|
953
952
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
954
953
|
|
955
954
|
|
956
|
-
|
955
|
+
uilset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
|
957
956
|
|
958
957
|
return Qnil;
|
959
958
|
|
@@ -974,7 +973,7 @@ dcl_uilstx(obj, cp, lpara)
|
|
974
973
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
975
974
|
|
976
975
|
|
977
|
-
|
976
|
+
uilstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
|
978
977
|
|
979
978
|
return Qnil;
|
980
979
|
|
@@ -987,7 +986,7 @@ dcl_uilqnp(obj)
|
|
987
986
|
integer o_ncp;
|
988
987
|
VALUE ncp;
|
989
988
|
|
990
|
-
|
989
|
+
uilqnp__(&o_ncp);
|
991
990
|
|
992
991
|
ncp = INT2NUM(o_ncp);
|
993
992
|
|
@@ -1011,7 +1010,7 @@ dcl_uilqid(obj, cp)
|
|
1011
1010
|
i_cp = StringValuePtr(cp);
|
1012
1011
|
|
1013
1012
|
|
1014
|
-
|
1013
|
+
uilqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
1015
1014
|
|
1016
1015
|
idx = INT2NUM(o_idx);
|
1017
1016
|
|
@@ -1037,7 +1036,7 @@ dcl_uilqcp(obj, idx)
|
|
1037
1036
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1038
1037
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1039
1038
|
|
1040
|
-
|
1039
|
+
uilqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1041
1040
|
|
1042
1041
|
cp = rb_str_new2(o_cp);
|
1043
1042
|
|
@@ -1063,7 +1062,7 @@ dcl_uilqcl(obj, idx)
|
|
1063
1062
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1064
1063
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1065
1064
|
|
1066
|
-
|
1065
|
+
uilqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1067
1066
|
|
1068
1067
|
cp = rb_str_new2(o_cp);
|
1069
1068
|
|
@@ -1087,7 +1086,7 @@ dcl_uilqvl(obj, idx)
|
|
1087
1086
|
i_idx = NUM2INT(idx);
|
1088
1087
|
|
1089
1088
|
|
1090
|
-
|
1089
|
+
uilqvl__(&i_idx, &o_lpara);
|
1091
1090
|
|
1092
1091
|
lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
|
1093
1092
|
|
@@ -1111,7 +1110,7 @@ dcl_uilsvl(obj, idx, lpara)
|
|
1111
1110
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
1112
1111
|
|
1113
1112
|
|
1114
|
-
|
1113
|
+
uilsvl__(&i_idx, &i_lpara);
|
1115
1114
|
|
1116
1115
|
return Qnil;
|
1117
1116
|
|
@@ -1132,7 +1131,7 @@ dcl_uilqin(obj, cp)
|
|
1132
1131
|
i_cp = StringValuePtr(cp);
|
1133
1132
|
|
1134
1133
|
|
1135
|
-
|
1134
|
+
uilqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
1136
1135
|
|
1137
1136
|
in = INT2NUM(o_in);
|
1138
1137
|
|
@@ -1156,7 +1155,7 @@ dcl_uirget(obj, cp)
|
|
1156
1155
|
i_cp = StringValuePtr(cp);
|
1157
1156
|
|
1158
1157
|
|
1159
|
-
|
1158
|
+
uirget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
|
1160
1159
|
|
1161
1160
|
rpara = rb_float_new((double)o_rpara);
|
1162
1161
|
|
@@ -1183,7 +1182,7 @@ dcl_uirset(obj, cp, rpara)
|
|
1183
1182
|
i_rpara = (real)NUM2DBL(rpara);
|
1184
1183
|
|
1185
1184
|
|
1186
|
-
|
1185
|
+
uirset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
|
1187
1186
|
|
1188
1187
|
return Qnil;
|
1189
1188
|
|
@@ -1207,7 +1206,7 @@ dcl_uirstx(obj, cp, rpara)
|
|
1207
1206
|
i_rpara = (real)NUM2DBL(rpara);
|
1208
1207
|
|
1209
1208
|
|
1210
|
-
|
1209
|
+
uirstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
|
1211
1210
|
|
1212
1211
|
return Qnil;
|
1213
1212
|
|
@@ -1220,7 +1219,7 @@ dcl_uirqnp(obj)
|
|
1220
1219
|
integer o_ncp;
|
1221
1220
|
VALUE ncp;
|
1222
1221
|
|
1223
|
-
|
1222
|
+
uirqnp__(&o_ncp);
|
1224
1223
|
|
1225
1224
|
ncp = INT2NUM(o_ncp);
|
1226
1225
|
|
@@ -1244,7 +1243,7 @@ dcl_uirqid(obj, cp)
|
|
1244
1243
|
i_cp = StringValuePtr(cp);
|
1245
1244
|
|
1246
1245
|
|
1247
|
-
|
1246
|
+
uirqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
1248
1247
|
|
1249
1248
|
idx = INT2NUM(o_idx);
|
1250
1249
|
|
@@ -1270,7 +1269,7 @@ dcl_uirqcp(obj, idx)
|
|
1270
1269
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1271
1270
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1272
1271
|
|
1273
|
-
|
1272
|
+
uirqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1274
1273
|
|
1275
1274
|
cp = rb_str_new2(o_cp);
|
1276
1275
|
|
@@ -1296,7 +1295,7 @@ dcl_uirqcl(obj, idx)
|
|
1296
1295
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1297
1296
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1298
1297
|
|
1299
|
-
|
1298
|
+
uirqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1300
1299
|
|
1301
1300
|
cp = rb_str_new2(o_cp);
|
1302
1301
|
|
@@ -1320,7 +1319,7 @@ dcl_uirqvl(obj, idx)
|
|
1320
1319
|
i_idx = NUM2INT(idx);
|
1321
1320
|
|
1322
1321
|
|
1323
|
-
|
1322
|
+
uirqvl__(&i_idx, &o_rpara);
|
1324
1323
|
|
1325
1324
|
rpara = rb_float_new((double)o_rpara);
|
1326
1325
|
|
@@ -1347,7 +1346,7 @@ dcl_uirsvl(obj, idx, rpara)
|
|
1347
1346
|
i_rpara = (real)NUM2DBL(rpara);
|
1348
1347
|
|
1349
1348
|
|
1350
|
-
|
1349
|
+
uirsvl__(&i_idx, &i_rpara);
|
1351
1350
|
|
1352
1351
|
return Qnil;
|
1353
1352
|
|
@@ -1368,7 +1367,7 @@ dcl_uirqin(obj, cp)
|
|
1368
1367
|
i_cp = StringValuePtr(cp);
|
1369
1368
|
|
1370
1369
|
|
1371
|
-
|
1370
|
+
uirqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
1372
1371
|
|
1373
1372
|
in = INT2NUM(o_in);
|
1374
1373
|
|
@@ -1394,7 +1393,7 @@ dcl_uiqfnm(obj, cpara)
|
|
1394
1393
|
o_cfname= ALLOCA_N(char, (DFLT_SIZE+1));
|
1395
1394
|
memset(o_cfname, '\0', DFLT_SIZE+1);
|
1396
1395
|
|
1397
|
-
|
1396
|
+
uiqfnm__(i_cpara, o_cfname, (ftnlen)strlen(i_cpara), (ftnlen)DFLT_SIZE);
|
1398
1397
|
|
1399
1398
|
cfname = rb_str_new2(o_cfname);
|
1400
1399
|
|