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_umpack.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
|
|
@@ -79,7 +78,7 @@ dcl_umpmap(obj, cdsn)
|
|
79
78
|
i_cdsn = StringValuePtr(cdsn);
|
80
79
|
|
81
80
|
|
82
|
-
|
81
|
+
umpmap__(i_cdsn, (ftnlen)strlen(i_cdsn));
|
83
82
|
|
84
83
|
return Qnil;
|
85
84
|
|
@@ -102,7 +101,7 @@ dcl_umqfnm(obj, cpara)
|
|
102
101
|
o_cfname= ALLOCA_N(char, (DFLT_SIZE+1));
|
103
102
|
memset(o_cfname, '\0', DFLT_SIZE+1);
|
104
103
|
|
105
|
-
|
104
|
+
umqfnm__(i_cpara, o_cfname, (ftnlen)strlen(i_cpara), (ftnlen)DFLT_SIZE);
|
106
105
|
|
107
106
|
cfname = rb_str_new2(o_cfname);
|
108
107
|
|
@@ -115,7 +114,7 @@ static VALUE
|
|
115
114
|
dcl_umpglb(obj)
|
116
115
|
VALUE obj;
|
117
116
|
{
|
118
|
-
|
117
|
+
umpglb__();
|
119
118
|
|
120
119
|
return Qnil;
|
121
120
|
|
@@ -125,7 +124,7 @@ static VALUE
|
|
125
124
|
dcl_umpgrd(obj)
|
126
125
|
VALUE obj;
|
127
126
|
{
|
128
|
-
|
127
|
+
umpgrd__();
|
129
128
|
|
130
129
|
return Qnil;
|
131
130
|
|
@@ -135,7 +134,7 @@ static VALUE
|
|
135
134
|
dcl_umplim(obj)
|
136
135
|
VALUE obj;
|
137
136
|
{
|
138
|
-
|
137
|
+
umplim__();
|
139
138
|
|
140
139
|
return Qnil;
|
141
140
|
|
@@ -145,7 +144,7 @@ static VALUE
|
|
145
144
|
dcl_uminit(obj)
|
146
145
|
VALUE obj;
|
147
146
|
{
|
148
|
-
|
147
|
+
uminit__();
|
149
148
|
|
150
149
|
return Qnil;
|
151
150
|
|
@@ -174,7 +173,7 @@ dcl_umscnt(obj, xcnt, ycnt, rot)
|
|
174
173
|
i_rot = (real)NUM2DBL(rot);
|
175
174
|
|
176
175
|
|
177
|
-
|
176
|
+
umscnt__(&i_xcnt, &i_ycnt, &i_rot);
|
178
177
|
|
179
178
|
return Qnil;
|
180
179
|
|
@@ -191,7 +190,7 @@ dcl_umqcnt(obj)
|
|
191
190
|
VALUE ycnt;
|
192
191
|
VALUE rot;
|
193
192
|
|
194
|
-
|
193
|
+
umqcnt__(&o_xcnt, &o_ycnt, &o_rot);
|
195
194
|
|
196
195
|
xcnt = rb_float_new((double)o_xcnt);
|
197
196
|
ycnt = rb_float_new((double)o_ycnt);
|
@@ -225,7 +224,7 @@ dcl_umscwd(obj, xcntr, ycntr, r)
|
|
225
224
|
i_r = (real)NUM2DBL(r);
|
226
225
|
|
227
226
|
|
228
|
-
|
227
|
+
umscwd__(&i_xcntr, &i_ycntr, &i_r);
|
229
228
|
|
230
229
|
return Qnil;
|
231
230
|
|
@@ -242,7 +241,7 @@ dcl_umqcwd(obj)
|
|
242
241
|
VALUE ycntr;
|
243
242
|
VALUE r;
|
244
243
|
|
245
|
-
|
244
|
+
umqcwd__(&o_xcntr, &o_ycntr, &o_r);
|
246
245
|
|
247
246
|
xcntr = rb_float_new((double)o_xcntr);
|
248
247
|
ycntr = rb_float_new((double)o_ycntr);
|
@@ -284,7 +283,7 @@ dcl_umspnt(obj, n, ux, uy)
|
|
284
283
|
i_uy = dcl_obj2crealary(uy);
|
285
284
|
|
286
285
|
|
287
|
-
|
286
|
+
umspnt__(&i_n, i_ux, i_uy);
|
288
287
|
|
289
288
|
dcl_freecrealary(i_ux);
|
290
289
|
dcl_freecrealary(i_uy);
|
@@ -310,7 +309,7 @@ dcl_umqpnt(obj, n)
|
|
310
309
|
i_n = NUM2INT(n);
|
311
310
|
|
312
311
|
|
313
|
-
|
312
|
+
umqpnt__(&i_n, &o_uxa, &o_uya);
|
314
313
|
|
315
314
|
uxa = rb_float_new((double)o_uxa);
|
316
315
|
uya = rb_float_new((double)o_uya);
|
@@ -327,7 +326,7 @@ dcl_umqptn(obj)
|
|
327
326
|
integer o_n;
|
328
327
|
VALUE n;
|
329
328
|
|
330
|
-
|
329
|
+
umqptn__(&o_n);
|
331
330
|
|
332
331
|
n = INT2NUM(o_n);
|
333
332
|
|
@@ -340,7 +339,7 @@ static VALUE
|
|
340
339
|
dcl_umrpnt(obj)
|
341
340
|
VALUE obj;
|
342
341
|
{
|
343
|
-
|
342
|
+
umrpnt__();
|
344
343
|
|
345
344
|
return Qnil;
|
346
345
|
|
@@ -350,7 +349,7 @@ static VALUE
|
|
350
349
|
dcl_umpfit(obj)
|
351
350
|
VALUE obj;
|
352
351
|
{
|
353
|
-
|
352
|
+
umpfit__();
|
354
353
|
|
355
354
|
return Qnil;
|
356
355
|
|
@@ -363,7 +362,7 @@ dcl_umpqnp(obj)
|
|
363
362
|
integer o_ncp;
|
364
363
|
VALUE ncp;
|
365
364
|
|
366
|
-
|
365
|
+
umpqnp__(&o_ncp);
|
367
366
|
|
368
367
|
ncp = INT2NUM(o_ncp);
|
369
368
|
|
@@ -387,7 +386,7 @@ dcl_umpqid(obj, cp)
|
|
387
386
|
i_cp = StringValuePtr(cp);
|
388
387
|
|
389
388
|
|
390
|
-
|
389
|
+
umpqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
391
390
|
|
392
391
|
idx = INT2NUM(o_idx);
|
393
392
|
|
@@ -413,7 +412,7 @@ dcl_umpqcp(obj, idx)
|
|
413
412
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
414
413
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
415
414
|
|
416
|
-
|
415
|
+
umpqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
417
416
|
|
418
417
|
cp = rb_str_new2(o_cp);
|
419
418
|
|
@@ -439,7 +438,7 @@ dcl_umpqcl(obj, idx)
|
|
439
438
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
440
439
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
441
440
|
|
442
|
-
|
441
|
+
umpqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
443
442
|
|
444
443
|
cp = rb_str_new2(o_cp);
|
445
444
|
|
@@ -463,7 +462,7 @@ dcl_umpqit(obj, idx)
|
|
463
462
|
i_idx = NUM2INT(idx);
|
464
463
|
|
465
464
|
|
466
|
-
|
465
|
+
umpqit__(&i_idx, &o_itp);
|
467
466
|
|
468
467
|
itp = INT2NUM(o_itp);
|
469
468
|
|
@@ -487,7 +486,7 @@ dcl_umpqvl(obj, idx)
|
|
487
486
|
i_idx = NUM2INT(idx);
|
488
487
|
|
489
488
|
|
490
|
-
|
489
|
+
umpqvl__(&i_idx, &o_ipara);
|
491
490
|
|
492
491
|
ipara = INT2NUM(o_ipara);
|
493
492
|
|
@@ -514,7 +513,7 @@ dcl_umpsvl(obj, idx, ipara)
|
|
514
513
|
i_ipara = NUM2INT(ipara);
|
515
514
|
|
516
515
|
|
517
|
-
|
516
|
+
umpsvl__(&i_idx, &i_ipara);
|
518
517
|
|
519
518
|
return Qnil;
|
520
519
|
|
@@ -535,7 +534,7 @@ dcl_umpqin(obj, cp)
|
|
535
534
|
i_cp = StringValuePtr(cp);
|
536
535
|
|
537
536
|
|
538
|
-
|
537
|
+
umpqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
539
538
|
|
540
539
|
in = INT2NUM(o_in);
|
541
540
|
|
@@ -548,7 +547,7 @@ static VALUE
|
|
548
547
|
dcl_umspct(obj)
|
549
548
|
VALUE obj;
|
550
549
|
{
|
551
|
-
|
550
|
+
umspct__();
|
552
551
|
|
553
552
|
return Qnil;
|
554
553
|
|
@@ -558,7 +557,7 @@ static VALUE
|
|
558
557
|
dcl_umspcw(obj)
|
559
558
|
VALUE obj;
|
560
559
|
{
|
561
|
-
|
560
|
+
umspcw__();
|
562
561
|
|
563
562
|
return Qnil;
|
564
563
|
|
@@ -568,7 +567,7 @@ static VALUE
|
|
568
567
|
dcl_umspwd(obj)
|
569
568
|
VALUE obj;
|
570
569
|
{
|
571
|
-
|
570
|
+
umspwd__();
|
572
571
|
|
573
572
|
return Qnil;
|
574
573
|
|
@@ -578,7 +577,7 @@ static VALUE
|
|
578
577
|
dcl_umsppt(obj)
|
579
578
|
VALUE obj;
|
580
579
|
{
|
581
|
-
|
580
|
+
umsppt__();
|
582
581
|
|
583
582
|
return Qnil;
|
584
583
|
|
@@ -588,7 +587,7 @@ static VALUE
|
|
588
587
|
dcl_umspdf(obj)
|
589
588
|
VALUE obj;
|
590
589
|
{
|
591
|
-
|
590
|
+
umspdf__();
|
592
591
|
|
593
592
|
return Qnil;
|
594
593
|
|
@@ -613,7 +612,7 @@ dcl_umbndc(obj, xmin)
|
|
613
612
|
io_xmin = (real)NUM2DBL(xmin);
|
614
613
|
|
615
614
|
|
616
|
-
|
615
|
+
umbndc__(&io_xmin, &o_xmax, &o_ymin, &o_ymax);
|
617
616
|
|
618
617
|
xmin = rb_float_new((double)io_xmin);
|
619
618
|
xmax = rb_float_new((double)o_xmax);
|
@@ -644,7 +643,7 @@ dcl_umbndp(obj, vxmin)
|
|
644
643
|
io_vxmin = (real)NUM2DBL(vxmin);
|
645
644
|
|
646
645
|
|
647
|
-
|
646
|
+
umbndp__(&io_vxmin, &o_vxmax, &o_vymin, &o_vymax);
|
648
647
|
|
649
648
|
vxmin = rb_float_new((double)io_vxmin);
|
650
649
|
vxmax = rb_float_new((double)o_vxmax);
|
@@ -682,7 +681,7 @@ dcl_umbndr(obj, func, ftr)
|
|
682
681
|
i_ftr = (real)NUM2DBL(ftr);
|
683
682
|
|
684
683
|
|
685
|
-
|
684
|
+
umbndr__(&i_func, &i_ftr, &o_xmin, &o_xmax, &o_ymin, &o_ymax);
|
686
685
|
|
687
686
|
xmin = rb_float_new((double)o_xmin);
|
688
687
|
xmax = rb_float_new((double)o_xmax);
|
@@ -707,7 +706,7 @@ dcl_umqtxy(obj)
|
|
707
706
|
VALUE tyminz;
|
708
707
|
VALUE tymaxz;
|
709
708
|
|
710
|
-
|
709
|
+
umqtxy__(&o_txminz, &o_txmaxz, &o_tyminz, &o_tymaxz);
|
711
710
|
|
712
711
|
txminz = rb_float_new((double)o_txminz);
|
713
712
|
txmaxz = rb_float_new((double)o_txmaxz);
|
@@ -723,7 +722,7 @@ static VALUE
|
|
723
722
|
dcl_umstvz(obj)
|
724
723
|
VALUE obj;
|
725
724
|
{
|
726
|
-
|
725
|
+
umstvz__();
|
727
726
|
|
728
727
|
return Qnil;
|
729
728
|
|
@@ -733,7 +732,7 @@ static VALUE
|
|
733
732
|
dcl_umsgrd(obj)
|
734
733
|
VALUE obj;
|
735
734
|
{
|
736
|
-
|
735
|
+
umsgrd__();
|
737
736
|
|
738
737
|
return Qnil;
|
739
738
|
|
@@ -743,7 +742,7 @@ static VALUE
|
|
743
742
|
dcl_umscom(obj)
|
744
743
|
VALUE obj;
|
745
744
|
{
|
746
|
-
|
745
|
+
umscom__();
|
747
746
|
|
748
747
|
return Qnil;
|
749
748
|
|
@@ -764,7 +763,7 @@ dcl_umiget(obj, cp)
|
|
764
763
|
i_cp = StringValuePtr(cp);
|
765
764
|
|
766
765
|
|
767
|
-
|
766
|
+
umiget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
|
768
767
|
|
769
768
|
ipara = INT2NUM(o_ipara);
|
770
769
|
|
@@ -791,7 +790,7 @@ dcl_umiset(obj, cp, ipara)
|
|
791
790
|
i_ipara = NUM2INT(ipara);
|
792
791
|
|
793
792
|
|
794
|
-
|
793
|
+
umiset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
|
795
794
|
|
796
795
|
return Qnil;
|
797
796
|
|
@@ -815,7 +814,7 @@ dcl_umistx(obj, cp, ipara)
|
|
815
814
|
i_ipara = NUM2INT(ipara);
|
816
815
|
|
817
816
|
|
818
|
-
|
817
|
+
umistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
|
819
818
|
|
820
819
|
return Qnil;
|
821
820
|
|
@@ -828,7 +827,7 @@ dcl_umiqnp(obj)
|
|
828
827
|
integer o_ncp;
|
829
828
|
VALUE ncp;
|
830
829
|
|
831
|
-
|
830
|
+
umiqnp__(&o_ncp);
|
832
831
|
|
833
832
|
ncp = INT2NUM(o_ncp);
|
834
833
|
|
@@ -852,7 +851,7 @@ dcl_umiqid(obj, cp)
|
|
852
851
|
i_cp = StringValuePtr(cp);
|
853
852
|
|
854
853
|
|
855
|
-
|
854
|
+
umiqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
856
855
|
|
857
856
|
idx = INT2NUM(o_idx);
|
858
857
|
|
@@ -878,7 +877,7 @@ dcl_umiqcp(obj, idx)
|
|
878
877
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
879
878
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
880
879
|
|
881
|
-
|
880
|
+
umiqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
882
881
|
|
883
882
|
cp = rb_str_new2(o_cp);
|
884
883
|
|
@@ -904,7 +903,7 @@ dcl_umiqcl(obj, idx)
|
|
904
903
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
905
904
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
906
905
|
|
907
|
-
|
906
|
+
umiqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
908
907
|
|
909
908
|
cp = rb_str_new2(o_cp);
|
910
909
|
|
@@ -928,7 +927,7 @@ dcl_umiqvl(obj, idx)
|
|
928
927
|
i_idx = NUM2INT(idx);
|
929
928
|
|
930
929
|
|
931
|
-
|
930
|
+
umiqvl__(&i_idx, &o_ipara);
|
932
931
|
|
933
932
|
ipara = INT2NUM(o_ipara);
|
934
933
|
|
@@ -955,7 +954,7 @@ dcl_umisvl(obj, idx, ipara)
|
|
955
954
|
i_ipara = NUM2INT(ipara);
|
956
955
|
|
957
956
|
|
958
|
-
|
957
|
+
umisvl__(&i_idx, &i_ipara);
|
959
958
|
|
960
959
|
return Qnil;
|
961
960
|
|
@@ -976,7 +975,7 @@ dcl_umiqin(obj, cp)
|
|
976
975
|
i_cp = StringValuePtr(cp);
|
977
976
|
|
978
977
|
|
979
|
-
|
978
|
+
umiqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
980
979
|
|
981
980
|
in = INT2NUM(o_in);
|
982
981
|
|
@@ -1000,7 +999,7 @@ dcl_umlget(obj, cp)
|
|
1000
999
|
i_cp = StringValuePtr(cp);
|
1001
1000
|
|
1002
1001
|
|
1003
|
-
|
1002
|
+
umlget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
|
1004
1003
|
|
1005
1004
|
lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
|
1006
1005
|
|
@@ -1024,7 +1023,7 @@ dcl_umlset(obj, cp, lpara)
|
|
1024
1023
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
1025
1024
|
|
1026
1025
|
|
1027
|
-
|
1026
|
+
umlset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
|
1028
1027
|
|
1029
1028
|
return Qnil;
|
1030
1029
|
|
@@ -1045,7 +1044,7 @@ dcl_umlstx(obj, cp, lpara)
|
|
1045
1044
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
1046
1045
|
|
1047
1046
|
|
1048
|
-
|
1047
|
+
umlstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
|
1049
1048
|
|
1050
1049
|
return Qnil;
|
1051
1050
|
|
@@ -1058,7 +1057,7 @@ dcl_umlqnp(obj)
|
|
1058
1057
|
integer o_ncp;
|
1059
1058
|
VALUE ncp;
|
1060
1059
|
|
1061
|
-
|
1060
|
+
umlqnp__(&o_ncp);
|
1062
1061
|
|
1063
1062
|
ncp = INT2NUM(o_ncp);
|
1064
1063
|
|
@@ -1082,7 +1081,7 @@ dcl_umlqid(obj, cp)
|
|
1082
1081
|
i_cp = StringValuePtr(cp);
|
1083
1082
|
|
1084
1083
|
|
1085
|
-
|
1084
|
+
umlqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
1086
1085
|
|
1087
1086
|
idx = INT2NUM(o_idx);
|
1088
1087
|
|
@@ -1108,7 +1107,7 @@ dcl_umlqcp(obj, idx)
|
|
1108
1107
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1109
1108
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1110
1109
|
|
1111
|
-
|
1110
|
+
umlqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1112
1111
|
|
1113
1112
|
cp = rb_str_new2(o_cp);
|
1114
1113
|
|
@@ -1134,7 +1133,7 @@ dcl_umlqcl(obj, idx)
|
|
1134
1133
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1135
1134
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1136
1135
|
|
1137
|
-
|
1136
|
+
umlqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1138
1137
|
|
1139
1138
|
cp = rb_str_new2(o_cp);
|
1140
1139
|
|
@@ -1158,7 +1157,7 @@ dcl_umlqvl(obj, idx)
|
|
1158
1157
|
i_idx = NUM2INT(idx);
|
1159
1158
|
|
1160
1159
|
|
1161
|
-
|
1160
|
+
umlqvl__(&i_idx, &o_lpara);
|
1162
1161
|
|
1163
1162
|
lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
|
1164
1163
|
|
@@ -1182,7 +1181,7 @@ dcl_umlsvl(obj, idx, lpara)
|
|
1182
1181
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
1183
1182
|
|
1184
1183
|
|
1185
|
-
|
1184
|
+
umlsvl__(&i_idx, &i_lpara);
|
1186
1185
|
|
1187
1186
|
return Qnil;
|
1188
1187
|
|
@@ -1203,7 +1202,7 @@ dcl_umlqin(obj, cp)
|
|
1203
1202
|
i_cp = StringValuePtr(cp);
|
1204
1203
|
|
1205
1204
|
|
1206
|
-
|
1205
|
+
umlqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
1207
1206
|
|
1208
1207
|
in = INT2NUM(o_in);
|
1209
1208
|
|
@@ -1227,7 +1226,7 @@ dcl_umrget(obj, cp)
|
|
1227
1226
|
i_cp = StringValuePtr(cp);
|
1228
1227
|
|
1229
1228
|
|
1230
|
-
|
1229
|
+
umrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
|
1231
1230
|
|
1232
1231
|
rpara = rb_float_new((double)o_rpara);
|
1233
1232
|
|
@@ -1254,7 +1253,7 @@ dcl_umrset(obj, cp, rpara)
|
|
1254
1253
|
i_rpara = (real)NUM2DBL(rpara);
|
1255
1254
|
|
1256
1255
|
|
1257
|
-
|
1256
|
+
umrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
|
1258
1257
|
|
1259
1258
|
return Qnil;
|
1260
1259
|
|
@@ -1278,7 +1277,7 @@ dcl_umrstx(obj, cp, rpara)
|
|
1278
1277
|
i_rpara = (real)NUM2DBL(rpara);
|
1279
1278
|
|
1280
1279
|
|
1281
|
-
|
1280
|
+
umrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
|
1282
1281
|
|
1283
1282
|
return Qnil;
|
1284
1283
|
|
@@ -1291,7 +1290,7 @@ dcl_umrqnp(obj)
|
|
1291
1290
|
integer o_ncp;
|
1292
1291
|
VALUE ncp;
|
1293
1292
|
|
1294
|
-
|
1293
|
+
umrqnp__(&o_ncp);
|
1295
1294
|
|
1296
1295
|
ncp = INT2NUM(o_ncp);
|
1297
1296
|
|
@@ -1315,7 +1314,7 @@ dcl_umrqid(obj, cp)
|
|
1315
1314
|
i_cp = StringValuePtr(cp);
|
1316
1315
|
|
1317
1316
|
|
1318
|
-
|
1317
|
+
umrqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
1319
1318
|
|
1320
1319
|
idx = INT2NUM(o_idx);
|
1321
1320
|
|
@@ -1341,7 +1340,7 @@ dcl_umrqcp(obj, idx)
|
|
1341
1340
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1342
1341
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1343
1342
|
|
1344
|
-
|
1343
|
+
umrqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1345
1344
|
|
1346
1345
|
cp = rb_str_new2(o_cp);
|
1347
1346
|
|
@@ -1367,7 +1366,7 @@ dcl_umrqcl(obj, idx)
|
|
1367
1366
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1368
1367
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1369
1368
|
|
1370
|
-
|
1369
|
+
umrqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1371
1370
|
|
1372
1371
|
cp = rb_str_new2(o_cp);
|
1373
1372
|
|
@@ -1391,7 +1390,7 @@ dcl_umrqvl(obj, idx)
|
|
1391
1390
|
i_idx = NUM2INT(idx);
|
1392
1391
|
|
1393
1392
|
|
1394
|
-
|
1393
|
+
umrqvl__(&i_idx, &o_rpara);
|
1395
1394
|
|
1396
1395
|
rpara = rb_float_new((double)o_rpara);
|
1397
1396
|
|
@@ -1418,7 +1417,7 @@ dcl_umrsvl(obj, idx, rpara)
|
|
1418
1417
|
i_rpara = (real)NUM2DBL(rpara);
|
1419
1418
|
|
1420
1419
|
|
1421
|
-
|
1420
|
+
umrsvl__(&i_idx, &i_rpara);
|
1422
1421
|
|
1423
1422
|
return Qnil;
|
1424
1423
|
|
@@ -1439,7 +1438,7 @@ dcl_umrqin(obj, cp)
|
|
1439
1438
|
i_cp = StringValuePtr(cp);
|
1440
1439
|
|
1441
1440
|
|
1442
|
-
|
1441
|
+
umrqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
1443
1442
|
|
1444
1443
|
in = INT2NUM(o_in);
|
1445
1444
|
|
@@ -1463,7 +1462,7 @@ dcl_umfmap(obj, cdsn)
|
|
1463
1462
|
i_cdsn = StringValuePtr(cdsn);
|
1464
1463
|
|
1465
1464
|
|
1466
|
-
|
1465
|
+
umfmap__(i_cdsn, (ftnlen)strlen(i_cdsn));
|
1467
1466
|
|
1468
1467
|
return Qnil;
|
1469
1468
|
|