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_udpack.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_udcntr(obj, z, mx, nx, ny)
|
|
98
97
|
i_z = dcl_obj2crealary(z);
|
99
98
|
|
100
99
|
|
101
|
-
|
100
|
+
udcntr__(i_z, &i_mx, &i_nx, &i_ny);
|
102
101
|
|
103
102
|
dcl_freecrealary(i_z);
|
104
103
|
|
@@ -145,7 +144,7 @@ dcl_udcntz(obj, z, mx, nx, ny, nbr2)
|
|
145
144
|
|
146
145
|
w_ibr= ALLOCA_N(integer, (i_nbr2));
|
147
146
|
|
148
|
-
|
147
|
+
udcntz__(i_z, &i_mx, &i_nx, &i_ny, w_ibr, &i_nbr2);
|
149
148
|
|
150
149
|
dcl_freecrealary(i_z);
|
151
150
|
|
@@ -176,7 +175,7 @@ dcl_udgcla(obj, xmin, xmax, dx)
|
|
176
175
|
i_dx = (real)NUM2DBL(dx);
|
177
176
|
|
178
177
|
|
179
|
-
|
178
|
+
udgcla__(&i_xmin, &i_xmax, &i_dx);
|
180
179
|
|
181
180
|
return Qnil;
|
182
181
|
|
@@ -219,7 +218,7 @@ dcl_udgclb(obj, z, mx, nx, ny, dx)
|
|
219
218
|
i_z = dcl_obj2crealary(z);
|
220
219
|
|
221
220
|
|
222
|
-
|
221
|
+
udgclb__(i_z, &i_mx, &i_nx, &i_ny, &i_dx);
|
223
222
|
|
224
223
|
dcl_freecrealary(i_z);
|
225
224
|
|
@@ -231,7 +230,7 @@ static VALUE
|
|
231
230
|
dcl_udiclv(obj)
|
232
231
|
VALUE obj;
|
233
232
|
{
|
234
|
-
|
233
|
+
udiclv__();
|
235
234
|
|
236
235
|
return Qnil;
|
237
236
|
|
@@ -270,7 +269,7 @@ dcl_udsclv(obj, zlev, indx, ityp, clv, hl)
|
|
270
269
|
i_hl = (real)NUM2DBL(hl);
|
271
270
|
|
272
271
|
|
273
|
-
|
272
|
+
udsclv__(&i_zlev, &i_indx, &i_ityp, i_clv, &i_hl, (ftnlen)strlen(i_clv));
|
274
273
|
|
275
274
|
return Qnil;
|
276
275
|
|
@@ -301,7 +300,7 @@ dcl_udqclv(obj, nlev)
|
|
301
300
|
o_clv= ALLOCA_N(char, (DFLT_SIZE+1));
|
302
301
|
memset(o_clv, '\0', DFLT_SIZE+1);
|
303
302
|
|
304
|
-
|
303
|
+
udqclv__(&o_zlev, &o_indx, &o_ityp, o_clv, &o_hl, &i_nlev, (ftnlen)DFLT_SIZE);
|
305
304
|
|
306
305
|
zlev = rb_float_new((double)o_zlev);
|
307
306
|
indx = INT2NUM(o_indx);
|
@@ -321,7 +320,7 @@ dcl_udqcln(obj)
|
|
321
320
|
integer o_nlev;
|
322
321
|
VALUE nlev;
|
323
322
|
|
324
|
-
|
323
|
+
udqcln__(&o_nlev);
|
325
324
|
|
326
325
|
nlev = INT2NUM(o_nlev);
|
327
326
|
|
@@ -343,7 +342,7 @@ dcl_uddclv(obj, zlev)
|
|
343
342
|
i_zlev = (real)NUM2DBL(zlev);
|
344
343
|
|
345
344
|
|
346
|
-
|
345
|
+
uddclv__(&i_zlev);
|
347
346
|
|
348
347
|
return Qnil;
|
349
348
|
|
@@ -364,7 +363,7 @@ dcl_rudlev(obj, nlev)
|
|
364
363
|
i_nlev = NUM2INT(nlev);
|
365
364
|
|
366
365
|
|
367
|
-
o_rtn_val =
|
366
|
+
o_rtn_val = rudlev__(&i_nlev);
|
368
367
|
|
369
368
|
rtn_val = rb_float_new((double)o_rtn_val);
|
370
369
|
|
@@ -389,7 +388,7 @@ dcl_udiclr(obj, n)
|
|
389
388
|
|
390
389
|
o_ix= ALLOCA_N(integer, (i_n));
|
391
390
|
|
392
|
-
|
391
|
+
udiclr__(o_ix, &i_n);
|
393
392
|
|
394
393
|
{int array_shape[1] = {i_n};
|
395
394
|
ix = dcl_cintegerary2obj(o_ix, (i_n), 1, array_shape);
|
@@ -417,7 +416,7 @@ dcl_udlabl(obj, val)
|
|
417
416
|
o_cval= ALLOCA_N(char, (DFLT_SIZE+1));
|
418
417
|
memset(o_cval, '\0', DFLT_SIZE+1);
|
419
418
|
|
420
|
-
|
419
|
+
udlabl__(&i_val, o_cval, (ftnlen)DFLT_SIZE);
|
421
420
|
|
422
421
|
cval = rb_str_new2(o_cval);
|
423
422
|
|
@@ -439,7 +438,7 @@ dcl_udsfmt(obj, cfmt)
|
|
439
438
|
i_cfmt = StringValuePtr(cfmt);
|
440
439
|
|
441
440
|
|
442
|
-
|
441
|
+
udsfmt__(i_cfmt, (ftnlen)strlen(i_cfmt));
|
443
442
|
|
444
443
|
return Qnil;
|
445
444
|
|
@@ -455,7 +454,7 @@ dcl_udqfmt(obj)
|
|
455
454
|
o_cfmt= ALLOCA_N(char, (DFLT_SIZE+1));
|
456
455
|
memset(o_cfmt, '\0', DFLT_SIZE+1);
|
457
456
|
|
458
|
-
|
457
|
+
udqfmt__(o_cfmt, (ftnlen)DFLT_SIZE);
|
459
458
|
|
460
459
|
cfmt = rb_str_new2(o_cfmt);
|
461
460
|
|
@@ -471,7 +470,7 @@ dcl_udpqnp(obj)
|
|
471
470
|
integer o_ncp;
|
472
471
|
VALUE ncp;
|
473
472
|
|
474
|
-
|
473
|
+
udpqnp__(&o_ncp);
|
475
474
|
|
476
475
|
ncp = INT2NUM(o_ncp);
|
477
476
|
|
@@ -495,7 +494,7 @@ dcl_udpqid(obj, cp)
|
|
495
494
|
i_cp = StringValuePtr(cp);
|
496
495
|
|
497
496
|
|
498
|
-
|
497
|
+
udpqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
499
498
|
|
500
499
|
idx = INT2NUM(o_idx);
|
501
500
|
|
@@ -521,7 +520,7 @@ dcl_udpqcp(obj, idx)
|
|
521
520
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
522
521
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
523
522
|
|
524
|
-
|
523
|
+
udpqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
525
524
|
|
526
525
|
cp = rb_str_new2(o_cp);
|
527
526
|
|
@@ -547,7 +546,7 @@ dcl_udpqcl(obj, idx)
|
|
547
546
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
548
547
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
549
548
|
|
550
|
-
|
549
|
+
udpqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
551
550
|
|
552
551
|
cp = rb_str_new2(o_cp);
|
553
552
|
|
@@ -571,7 +570,7 @@ dcl_udpqit(obj, idx)
|
|
571
570
|
i_idx = NUM2INT(idx);
|
572
571
|
|
573
572
|
|
574
|
-
|
573
|
+
udpqit__(&i_idx, &o_itp);
|
575
574
|
|
576
575
|
itp = INT2NUM(o_itp);
|
577
576
|
|
@@ -595,7 +594,7 @@ dcl_udpqvl(obj, idx)
|
|
595
594
|
i_idx = NUM2INT(idx);
|
596
595
|
|
597
596
|
|
598
|
-
|
597
|
+
udpqvl__(&i_idx, &o_ipara);
|
599
598
|
|
600
599
|
ipara = INT2NUM(o_ipara);
|
601
600
|
|
@@ -622,7 +621,7 @@ dcl_udpsvl(obj, idx, ipara)
|
|
622
621
|
i_ipara = NUM2INT(ipara);
|
623
622
|
|
624
623
|
|
625
|
-
|
624
|
+
udpsvl__(&i_idx, &i_ipara);
|
626
625
|
|
627
626
|
return Qnil;
|
628
627
|
|
@@ -643,7 +642,7 @@ dcl_udpqin(obj, cp)
|
|
643
642
|
i_cp = StringValuePtr(cp);
|
644
643
|
|
645
644
|
|
646
|
-
|
645
|
+
udpqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
647
646
|
|
648
647
|
in = INT2NUM(o_in);
|
649
648
|
|
@@ -667,7 +666,7 @@ dcl_udiget(obj, cp)
|
|
667
666
|
i_cp = StringValuePtr(cp);
|
668
667
|
|
669
668
|
|
670
|
-
|
669
|
+
udiget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
|
671
670
|
|
672
671
|
ipara = INT2NUM(o_ipara);
|
673
672
|
|
@@ -694,7 +693,7 @@ dcl_udiset(obj, cp, ipara)
|
|
694
693
|
i_ipara = NUM2INT(ipara);
|
695
694
|
|
696
695
|
|
697
|
-
|
696
|
+
udiset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
|
698
697
|
|
699
698
|
return Qnil;
|
700
699
|
|
@@ -718,7 +717,7 @@ dcl_udistx(obj, cp, ipara)
|
|
718
717
|
i_ipara = NUM2INT(ipara);
|
719
718
|
|
720
719
|
|
721
|
-
|
720
|
+
udistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
|
722
721
|
|
723
722
|
return Qnil;
|
724
723
|
|
@@ -731,7 +730,7 @@ dcl_udiqnp(obj)
|
|
731
730
|
integer o_ncp;
|
732
731
|
VALUE ncp;
|
733
732
|
|
734
|
-
|
733
|
+
udiqnp__(&o_ncp);
|
735
734
|
|
736
735
|
ncp = INT2NUM(o_ncp);
|
737
736
|
|
@@ -755,7 +754,7 @@ dcl_udiqid(obj, cp)
|
|
755
754
|
i_cp = StringValuePtr(cp);
|
756
755
|
|
757
756
|
|
758
|
-
|
757
|
+
udiqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
759
758
|
|
760
759
|
idx = INT2NUM(o_idx);
|
761
760
|
|
@@ -781,7 +780,7 @@ dcl_udiqcp(obj, idx)
|
|
781
780
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
782
781
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
783
782
|
|
784
|
-
|
783
|
+
udiqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
785
784
|
|
786
785
|
cp = rb_str_new2(o_cp);
|
787
786
|
|
@@ -807,7 +806,7 @@ dcl_udiqcl(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
|
+
udiqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
811
810
|
|
812
811
|
cp = rb_str_new2(o_cp);
|
813
812
|
|
@@ -831,7 +830,7 @@ dcl_udiqvl(obj, idx)
|
|
831
830
|
i_idx = NUM2INT(idx);
|
832
831
|
|
833
832
|
|
834
|
-
|
833
|
+
udiqvl__(&i_idx, &o_ipara);
|
835
834
|
|
836
835
|
ipara = INT2NUM(o_ipara);
|
837
836
|
|
@@ -858,7 +857,7 @@ dcl_udisvl(obj, idx, ipara)
|
|
858
857
|
i_ipara = NUM2INT(ipara);
|
859
858
|
|
860
859
|
|
861
|
-
|
860
|
+
udisvl__(&i_idx, &i_ipara);
|
862
861
|
|
863
862
|
return Qnil;
|
864
863
|
|
@@ -879,7 +878,7 @@ dcl_udiqin(obj, cp)
|
|
879
878
|
i_cp = StringValuePtr(cp);
|
880
879
|
|
881
880
|
|
882
|
-
|
881
|
+
udiqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
883
882
|
|
884
883
|
in = INT2NUM(o_in);
|
885
884
|
|
@@ -903,7 +902,7 @@ dcl_udlget(obj, cp)
|
|
903
902
|
i_cp = StringValuePtr(cp);
|
904
903
|
|
905
904
|
|
906
|
-
|
905
|
+
udlget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
|
907
906
|
|
908
907
|
lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
|
909
908
|
|
@@ -927,7 +926,7 @@ dcl_udlset(obj, cp, lpara)
|
|
927
926
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
928
927
|
|
929
928
|
|
930
|
-
|
929
|
+
udlset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
|
931
930
|
|
932
931
|
return Qnil;
|
933
932
|
|
@@ -948,7 +947,7 @@ dcl_udlstx(obj, cp, lpara)
|
|
948
947
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
949
948
|
|
950
949
|
|
951
|
-
|
950
|
+
udlstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
|
952
951
|
|
953
952
|
return Qnil;
|
954
953
|
|
@@ -961,7 +960,7 @@ dcl_udlqnp(obj)
|
|
961
960
|
integer o_ncp;
|
962
961
|
VALUE ncp;
|
963
962
|
|
964
|
-
|
963
|
+
udlqnp__(&o_ncp);
|
965
964
|
|
966
965
|
ncp = INT2NUM(o_ncp);
|
967
966
|
|
@@ -985,7 +984,7 @@ dcl_udlqid(obj, cp)
|
|
985
984
|
i_cp = StringValuePtr(cp);
|
986
985
|
|
987
986
|
|
988
|
-
|
987
|
+
udlqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
989
988
|
|
990
989
|
idx = INT2NUM(o_idx);
|
991
990
|
|
@@ -1011,7 +1010,7 @@ dcl_udlqcp(obj, idx)
|
|
1011
1010
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1012
1011
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1013
1012
|
|
1014
|
-
|
1013
|
+
udlqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1015
1014
|
|
1016
1015
|
cp = rb_str_new2(o_cp);
|
1017
1016
|
|
@@ -1037,7 +1036,7 @@ dcl_udlqcl(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
|
+
udlqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1041
1040
|
|
1042
1041
|
cp = rb_str_new2(o_cp);
|
1043
1042
|
|
@@ -1061,7 +1060,7 @@ dcl_udlqvl(obj, idx)
|
|
1061
1060
|
i_idx = NUM2INT(idx);
|
1062
1061
|
|
1063
1062
|
|
1064
|
-
|
1063
|
+
udlqvl__(&i_idx, &o_lpara);
|
1065
1064
|
|
1066
1065
|
lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
|
1067
1066
|
|
@@ -1085,7 +1084,7 @@ dcl_udlsvl(obj, idx, lpara)
|
|
1085
1084
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
1086
1085
|
|
1087
1086
|
|
1088
|
-
|
1087
|
+
udlsvl__(&i_idx, &i_lpara);
|
1089
1088
|
|
1090
1089
|
return Qnil;
|
1091
1090
|
|
@@ -1106,7 +1105,7 @@ dcl_udlqin(obj, cp)
|
|
1106
1105
|
i_cp = StringValuePtr(cp);
|
1107
1106
|
|
1108
1107
|
|
1109
|
-
|
1108
|
+
udlqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
1110
1109
|
|
1111
1110
|
in = INT2NUM(o_in);
|
1112
1111
|
|
@@ -1130,7 +1129,7 @@ dcl_udrget(obj, cp)
|
|
1130
1129
|
i_cp = StringValuePtr(cp);
|
1131
1130
|
|
1132
1131
|
|
1133
|
-
|
1132
|
+
udrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
|
1134
1133
|
|
1135
1134
|
rpara = rb_float_new((double)o_rpara);
|
1136
1135
|
|
@@ -1157,7 +1156,7 @@ dcl_udrset(obj, cp, rpara)
|
|
1157
1156
|
i_rpara = (real)NUM2DBL(rpara);
|
1158
1157
|
|
1159
1158
|
|
1160
|
-
|
1159
|
+
udrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
|
1161
1160
|
|
1162
1161
|
return Qnil;
|
1163
1162
|
|
@@ -1181,7 +1180,7 @@ dcl_udrstx(obj, cp, rpara)
|
|
1181
1180
|
i_rpara = (real)NUM2DBL(rpara);
|
1182
1181
|
|
1183
1182
|
|
1184
|
-
|
1183
|
+
udrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
|
1185
1184
|
|
1186
1185
|
return Qnil;
|
1187
1186
|
|
@@ -1194,7 +1193,7 @@ dcl_udrqnp(obj)
|
|
1194
1193
|
integer o_ncp;
|
1195
1194
|
VALUE ncp;
|
1196
1195
|
|
1197
|
-
|
1196
|
+
udrqnp__(&o_ncp);
|
1198
1197
|
|
1199
1198
|
ncp = INT2NUM(o_ncp);
|
1200
1199
|
|
@@ -1218,7 +1217,7 @@ dcl_udrqid(obj, cp)
|
|
1218
1217
|
i_cp = StringValuePtr(cp);
|
1219
1218
|
|
1220
1219
|
|
1221
|
-
|
1220
|
+
udrqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
1222
1221
|
|
1223
1222
|
idx = INT2NUM(o_idx);
|
1224
1223
|
|
@@ -1244,7 +1243,7 @@ dcl_udrqcp(obj, idx)
|
|
1244
1243
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1245
1244
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1246
1245
|
|
1247
|
-
|
1246
|
+
udrqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1248
1247
|
|
1249
1248
|
cp = rb_str_new2(o_cp);
|
1250
1249
|
|
@@ -1270,7 +1269,7 @@ dcl_udrqcl(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
|
+
udrqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1274
1273
|
|
1275
1274
|
cp = rb_str_new2(o_cp);
|
1276
1275
|
|
@@ -1294,7 +1293,7 @@ dcl_udrqvl(obj, idx)
|
|
1294
1293
|
i_idx = NUM2INT(idx);
|
1295
1294
|
|
1296
1295
|
|
1297
|
-
|
1296
|
+
udrqvl__(&i_idx, &o_rpara);
|
1298
1297
|
|
1299
1298
|
rpara = rb_float_new((double)o_rpara);
|
1300
1299
|
|
@@ -1321,7 +1320,7 @@ dcl_udrsvl(obj, idx, rpara)
|
|
1321
1320
|
i_rpara = (real)NUM2DBL(rpara);
|
1322
1321
|
|
1323
1322
|
|
1324
|
-
|
1323
|
+
udrsvl__(&i_idx, &i_rpara);
|
1325
1324
|
|
1326
1325
|
return Qnil;
|
1327
1326
|
|
@@ -1342,7 +1341,7 @@ dcl_udrqin(obj, cp)
|
|
1342
1341
|
i_cp = StringValuePtr(cp);
|
1343
1342
|
|
1344
1343
|
|
1345
|
-
|
1344
|
+
udrqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
1346
1345
|
|
1347
1346
|
in = INT2NUM(o_in);
|
1348
1347
|
|