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_uspack.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
|
|
@@ -97,7 +96,7 @@ dcl_usgrph(obj, n, x, y)
|
|
97
96
|
i_y = dcl_obj2crealary(y);
|
98
97
|
|
99
98
|
|
100
|
-
|
99
|
+
usgrph__(&i_n, i_x, i_y);
|
101
100
|
|
102
101
|
dcl_freecrealary(i_x);
|
103
102
|
dcl_freecrealary(i_y);
|
@@ -134,7 +133,7 @@ dcl_ussttl(obj, cxttl, cxunit, cyttl, cyunit)
|
|
134
133
|
i_cyunit = StringValuePtr(cyunit);
|
135
134
|
|
136
135
|
|
137
|
-
|
136
|
+
ussttl__(i_cxttl, i_cxunit, i_cyttl, i_cyunit, (ftnlen)strlen(i_cxttl), (ftnlen)strlen(i_cxunit), (ftnlen)strlen(i_cyttl), (ftnlen)strlen(i_cyunit));
|
138
137
|
|
139
138
|
return Qnil;
|
140
139
|
|
@@ -171,7 +170,7 @@ dcl_usspnt(obj, n, x, y)
|
|
171
170
|
i_y = dcl_obj2crealary(y);
|
172
171
|
|
173
172
|
|
174
|
-
|
173
|
+
usspnt__(&i_n, i_x, i_y);
|
175
174
|
|
176
175
|
dcl_freecrealary(i_x);
|
177
176
|
dcl_freecrealary(i_y);
|
@@ -184,7 +183,7 @@ static VALUE
|
|
184
183
|
dcl_uspfit(obj)
|
185
184
|
VALUE obj;
|
186
185
|
{
|
187
|
-
|
186
|
+
uspfit__();
|
188
187
|
|
189
188
|
return Qnil;
|
190
189
|
|
@@ -194,7 +193,7 @@ static VALUE
|
|
194
193
|
dcl_usdaxs(obj)
|
195
194
|
VALUE obj;
|
196
195
|
{
|
197
|
-
|
196
|
+
usdaxs__();
|
198
197
|
|
199
198
|
return Qnil;
|
200
199
|
|
@@ -204,7 +203,7 @@ static VALUE
|
|
204
203
|
dcl_usinit(obj)
|
205
204
|
VALUE obj;
|
206
205
|
{
|
207
|
-
|
206
|
+
usinit__();
|
208
207
|
|
209
208
|
return Qnil;
|
210
209
|
|
@@ -217,7 +216,7 @@ dcl_uspqnp(obj)
|
|
217
216
|
integer o_ncp;
|
218
217
|
VALUE ncp;
|
219
218
|
|
220
|
-
|
219
|
+
uspqnp__(&o_ncp);
|
221
220
|
|
222
221
|
ncp = INT2NUM(o_ncp);
|
223
222
|
|
@@ -241,7 +240,7 @@ dcl_uspqid(obj, cp)
|
|
241
240
|
i_cp = StringValuePtr(cp);
|
242
241
|
|
243
242
|
|
244
|
-
|
243
|
+
uspqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
245
244
|
|
246
245
|
idx = INT2NUM(o_idx);
|
247
246
|
|
@@ -267,7 +266,7 @@ dcl_uspqcp(obj, idx)
|
|
267
266
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
268
267
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
269
268
|
|
270
|
-
|
269
|
+
uspqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
271
270
|
|
272
271
|
cp = rb_str_new2(o_cp);
|
273
272
|
|
@@ -293,7 +292,7 @@ dcl_uspqcl(obj, idx)
|
|
293
292
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
294
293
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
295
294
|
|
296
|
-
|
295
|
+
uspqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
297
296
|
|
298
297
|
cp = rb_str_new2(o_cp);
|
299
298
|
|
@@ -317,7 +316,7 @@ dcl_uspqit(obj, idx)
|
|
317
316
|
i_idx = NUM2INT(idx);
|
318
317
|
|
319
318
|
|
320
|
-
|
319
|
+
uspqit__(&i_idx, &o_itp);
|
321
320
|
|
322
321
|
itp = INT2NUM(o_itp);
|
323
322
|
|
@@ -341,7 +340,7 @@ dcl_uspqvl(obj, idx)
|
|
341
340
|
i_idx = NUM2INT(idx);
|
342
341
|
|
343
342
|
|
344
|
-
|
343
|
+
uspqvl__(&i_idx, &o_ipara);
|
345
344
|
|
346
345
|
ipara = INT2NUM(o_ipara);
|
347
346
|
|
@@ -368,7 +367,7 @@ dcl_uspsvl(obj, idx, ipara)
|
|
368
367
|
i_ipara = NUM2INT(ipara);
|
369
368
|
|
370
369
|
|
371
|
-
|
370
|
+
uspsvl__(&i_idx, &i_ipara);
|
372
371
|
|
373
372
|
return Qnil;
|
374
373
|
|
@@ -389,7 +388,7 @@ dcl_uspqin(obj, cp)
|
|
389
388
|
i_cp = StringValuePtr(cp);
|
390
389
|
|
391
390
|
|
392
|
-
|
391
|
+
uspqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
393
392
|
|
394
393
|
in = INT2NUM(o_in);
|
395
394
|
|
@@ -415,7 +414,7 @@ dcl_uscget(obj, cp)
|
|
415
414
|
o_cpara= ALLOCA_N(char, (DFLT_SIZE+1));
|
416
415
|
memset(o_cpara, '\0', DFLT_SIZE+1);
|
417
416
|
|
418
|
-
|
417
|
+
uscget__(i_cp, o_cpara, (ftnlen)strlen(i_cp), (ftnlen)DFLT_SIZE);
|
419
418
|
|
420
419
|
cpara = rb_str_new2(o_cpara);
|
421
420
|
|
@@ -442,7 +441,7 @@ dcl_uscset(obj, cp, cpara)
|
|
442
441
|
i_cpara = StringValuePtr(cpara);
|
443
442
|
|
444
443
|
|
445
|
-
|
444
|
+
uscset__(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
|
446
445
|
|
447
446
|
return Qnil;
|
448
447
|
|
@@ -466,7 +465,7 @@ dcl_uscstx(obj, cp, cpara)
|
|
466
465
|
i_cpara = StringValuePtr(cpara);
|
467
466
|
|
468
467
|
|
469
|
-
|
468
|
+
uscstx__(i_cp, i_cpara, (ftnlen)strlen(i_cp), (ftnlen)strlen(i_cpara));
|
470
469
|
|
471
470
|
return Qnil;
|
472
471
|
|
@@ -479,7 +478,7 @@ dcl_uscqnp(obj)
|
|
479
478
|
integer o_ncp;
|
480
479
|
VALUE ncp;
|
481
480
|
|
482
|
-
|
481
|
+
uscqnp__(&o_ncp);
|
483
482
|
|
484
483
|
ncp = INT2NUM(o_ncp);
|
485
484
|
|
@@ -503,7 +502,7 @@ dcl_uscqid(obj, cp)
|
|
503
502
|
i_cp = StringValuePtr(cp);
|
504
503
|
|
505
504
|
|
506
|
-
|
505
|
+
uscqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
507
506
|
|
508
507
|
idx = INT2NUM(o_idx);
|
509
508
|
|
@@ -529,7 +528,7 @@ dcl_uscqcp(obj, idx)
|
|
529
528
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
530
529
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
531
530
|
|
532
|
-
|
531
|
+
uscqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
533
532
|
|
534
533
|
cp = rb_str_new2(o_cp);
|
535
534
|
|
@@ -555,7 +554,7 @@ dcl_uscqcl(obj, idx)
|
|
555
554
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
556
555
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
557
556
|
|
558
|
-
|
557
|
+
uscqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
559
558
|
|
560
559
|
cp = rb_str_new2(o_cp);
|
561
560
|
|
@@ -581,7 +580,7 @@ dcl_uscqvl(obj, idx)
|
|
581
580
|
o_cval= ALLOCA_N(char, (DFLT_SIZE+1));
|
582
581
|
memset(o_cval, '\0', DFLT_SIZE+1);
|
583
582
|
|
584
|
-
|
583
|
+
uscqvl__(&i_idx, o_cval, (ftnlen)DFLT_SIZE);
|
585
584
|
|
586
585
|
cval = rb_str_new2(o_cval);
|
587
586
|
|
@@ -608,7 +607,7 @@ dcl_uscsvl(obj, idx, cval)
|
|
608
607
|
i_cval = StringValuePtr(cval);
|
609
608
|
|
610
609
|
|
611
|
-
|
610
|
+
uscsvl__(&i_idx, i_cval, (ftnlen)strlen(i_cval));
|
612
611
|
|
613
612
|
return Qnil;
|
614
613
|
|
@@ -629,7 +628,7 @@ dcl_uscqin(obj, cp)
|
|
629
628
|
i_cp = StringValuePtr(cp);
|
630
629
|
|
631
630
|
|
632
|
-
|
631
|
+
uscqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
633
632
|
|
634
633
|
in = INT2NUM(o_in);
|
635
634
|
|
@@ -666,7 +665,7 @@ dcl_usurdl(obj, umin, umax, vmin, vmax)
|
|
666
665
|
i_vmax = (real)NUM2DBL(vmax);
|
667
666
|
|
668
667
|
|
669
|
-
|
668
|
+
usurdl__(&io_umin, &io_umax, &i_vmin, &i_vmax);
|
670
669
|
|
671
670
|
umin = rb_float_new((double)io_umin);
|
672
671
|
umax = rb_float_new((double)io_umax);
|
@@ -689,7 +688,7 @@ dcl_usxaxs(obj, cside)
|
|
689
688
|
i_cside = StringValuePtr(cside);
|
690
689
|
|
691
690
|
|
692
|
-
|
691
|
+
usxaxs__(i_cside, (ftnlen)strlen(i_cside));
|
693
692
|
|
694
693
|
return Qnil;
|
695
694
|
|
@@ -708,7 +707,7 @@ dcl_usyaxs(obj, cside)
|
|
708
707
|
i_cside = StringValuePtr(cside);
|
709
708
|
|
710
709
|
|
711
|
-
|
710
|
+
usyaxs__(i_cside, (ftnlen)strlen(i_cside));
|
712
711
|
|
713
712
|
return Qnil;
|
714
713
|
|
@@ -752,7 +751,7 @@ dcl_ususcu(obj, caxis, umin, umax, vmin, vmax, mode)
|
|
752
751
|
i_mode = NUM2INT(mode);
|
753
752
|
|
754
753
|
|
755
|
-
|
754
|
+
ususcu__(i_caxis, &i_umin, &i_umax, &i_vmin, &i_vmax, &i_mode, (ftnlen)strlen(i_caxis));
|
756
755
|
|
757
756
|
return Qnil;
|
758
757
|
|
@@ -791,7 +790,7 @@ dcl_ususcl(obj, caxis, umin, umax, vmin, vmax)
|
|
791
790
|
i_vmax = (real)NUM2DBL(vmax);
|
792
791
|
|
793
792
|
|
794
|
-
|
793
|
+
ususcl__(i_caxis, &i_umin, &i_umax, &i_vmin, &i_vmax, (ftnlen)strlen(i_caxis));
|
795
794
|
|
796
795
|
return Qnil;
|
797
796
|
|
@@ -810,7 +809,7 @@ dcl_usxaxu(obj, cxs)
|
|
810
809
|
i_cxs = StringValuePtr(cxs);
|
811
810
|
|
812
811
|
|
813
|
-
|
812
|
+
usxaxu__(i_cxs, (ftnlen)strlen(i_cxs));
|
814
813
|
|
815
814
|
return Qnil;
|
816
815
|
|
@@ -829,7 +828,7 @@ dcl_usxaxl(obj, cxs)
|
|
829
828
|
i_cxs = StringValuePtr(cxs);
|
830
829
|
|
831
830
|
|
832
|
-
|
831
|
+
usxaxl__(i_cxs, (ftnlen)strlen(i_cxs));
|
833
832
|
|
834
833
|
return Qnil;
|
835
834
|
|
@@ -848,7 +847,7 @@ dcl_usyaxu(obj, cys)
|
|
848
847
|
i_cys = StringValuePtr(cys);
|
849
848
|
|
850
849
|
|
851
|
-
|
850
|
+
usyaxu__(i_cys, (ftnlen)strlen(i_cys));
|
852
851
|
|
853
852
|
return Qnil;
|
854
853
|
|
@@ -867,7 +866,7 @@ dcl_usyaxl(obj, cys)
|
|
867
866
|
i_cys = StringValuePtr(cys);
|
868
867
|
|
869
868
|
|
870
|
-
|
869
|
+
usyaxl__(i_cys, (ftnlen)strlen(i_cys));
|
871
870
|
|
872
871
|
return Qnil;
|
873
872
|
|
@@ -901,7 +900,7 @@ dcl_usxsub(obj, cxa, cya, clabel, rlbl)
|
|
901
900
|
i_rlbl = (real)NUM2DBL(rlbl);
|
902
901
|
|
903
902
|
|
904
|
-
|
903
|
+
usxsub__(i_cxa, i_cya, i_clabel, &i_rlbl, (ftnlen)strlen(i_cxa), (ftnlen)strlen(i_cya), (ftnlen)strlen(i_clabel));
|
905
904
|
|
906
905
|
return Qnil;
|
907
906
|
|
@@ -935,7 +934,7 @@ dcl_usysub(obj, cya, cxa, clabel, rlbl)
|
|
935
934
|
i_rlbl = (real)NUM2DBL(rlbl);
|
936
935
|
|
937
936
|
|
938
|
-
|
937
|
+
usysub__(i_cya, i_cxa, i_clabel, &i_rlbl, (ftnlen)strlen(i_cya), (ftnlen)strlen(i_cxa), (ftnlen)strlen(i_clabel));
|
939
938
|
|
940
939
|
return Qnil;
|
941
940
|
|
@@ -968,7 +967,7 @@ dcl_csblbl(obj, ufac, uoff, cunit)
|
|
968
967
|
o_rtn_val= ALLOCA_N(char, (DFLT_SIZE+1));
|
969
968
|
memset(o_rtn_val, '\0', DFLT_SIZE+1);
|
970
969
|
|
971
|
-
|
970
|
+
csblbl__(o_rtn_val, (ftnlen)DFLT_SIZE, &i_ufac, &i_uoff, i_cunit, (ftnlen)strlen(i_cunit));
|
972
971
|
|
973
972
|
rtn_val = rb_str_new2(o_rtn_val);
|
974
973
|
|
@@ -994,7 +993,7 @@ dcl_uschvl(obj, x)
|
|
994
993
|
o_chx= ALLOCA_N(char, (DFLT_SIZE+1));
|
995
994
|
memset(o_chx, '\0', DFLT_SIZE+1);
|
996
995
|
|
997
|
-
|
996
|
+
uschvl__(&i_x, o_chx, (ftnlen)DFLT_SIZE);
|
998
997
|
|
999
998
|
chx = rb_str_new2(o_chx);
|
1000
999
|
|
@@ -1016,7 +1015,7 @@ dcl_usxoff(obj, cxs)
|
|
1016
1015
|
i_cxs = StringValuePtr(cxs);
|
1017
1016
|
|
1018
1017
|
|
1019
|
-
|
1018
|
+
usxoff__(i_cxs, (ftnlen)strlen(i_cxs));
|
1020
1019
|
|
1021
1020
|
return Qnil;
|
1022
1021
|
|
@@ -1035,7 +1034,7 @@ dcl_usyoff(obj, cys)
|
|
1035
1034
|
i_cys = StringValuePtr(cys);
|
1036
1035
|
|
1037
1036
|
|
1038
|
-
|
1037
|
+
usyoff__(i_cys, (ftnlen)strlen(i_cys));
|
1039
1038
|
|
1040
1039
|
return Qnil;
|
1041
1040
|
|
@@ -1083,7 +1082,7 @@ dcl_uszdgt(obj, umin, umax, dul, maxdgt, uoff, ufact)
|
|
1083
1082
|
io_ufact = (real)NUM2DBL(ufact);
|
1084
1083
|
|
1085
1084
|
|
1086
|
-
|
1085
|
+
uszdgt__(&i_umin, &i_umax, &i_dul, &i_maxdgt, &io_uoff, &io_ufact, &o_ndgt, &o_ldgt);
|
1087
1086
|
|
1088
1087
|
uoff = rb_float_new((double)io_uoff);
|
1089
1088
|
ufact = rb_float_new((double)io_ufact);
|
@@ -1126,7 +1125,7 @@ dcl_uswapz(obj, x1, x2, n)
|
|
1126
1125
|
io_x2 = dcl_obj2crealary(x2);
|
1127
1126
|
|
1128
1127
|
|
1129
|
-
|
1128
|
+
uswapz__(io_x1, io_x2, &i_n);
|
1130
1129
|
|
1131
1130
|
{int array_shape[1] = {i_n};
|
1132
1131
|
x1 = dcl_crealary2obj(io_x1, (i_n), 1, array_shape);
|
@@ -1172,7 +1171,7 @@ dcl_usurdt(obj, umin, umax, vmin, vmax)
|
|
1172
1171
|
i_vmax = (real)NUM2DBL(vmax);
|
1173
1172
|
|
1174
1173
|
|
1175
|
-
|
1174
|
+
usurdt__(&io_umin, &io_umax, &i_vmin, &i_vmax, &o_dut);
|
1176
1175
|
|
1177
1176
|
umin = rb_float_new((double)io_umin);
|
1178
1177
|
umax = rb_float_new((double)io_umax);
|
@@ -1211,7 +1210,7 @@ dcl_usaxcl(obj, cside, jd0, ctype, nd)
|
|
1211
1210
|
i_nd = NUM2INT(nd);
|
1212
1211
|
|
1213
1212
|
|
1214
|
-
|
1213
|
+
usaxcl__(i_cside, &i_jd0, i_ctype, &i_nd, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_ctype));
|
1215
1214
|
|
1216
1215
|
return Qnil;
|
1217
1216
|
|
@@ -1240,7 +1239,7 @@ dcl_usaxdv(obj, cside, dtick, dlbl)
|
|
1240
1239
|
i_dlbl = (real)NUM2DBL(dlbl);
|
1241
1240
|
|
1242
1241
|
|
1243
|
-
|
1242
|
+
usaxdv__(i_cside, &i_dtick, &i_dlbl, (ftnlen)strlen(i_cside));
|
1244
1243
|
|
1245
1244
|
return Qnil;
|
1246
1245
|
|
@@ -1300,7 +1299,7 @@ dcl_usaxlb(obj, cside, dtick, n1, dlabel, ch, nc, n2)
|
|
1300
1299
|
i_ch = dcl_obj2ccharary(ch, (i_n2*DFLT_SIZE), DFLT_SIZE);
|
1301
1300
|
|
1302
1301
|
|
1303
|
-
|
1302
|
+
usaxlb__(i_cside, i_dtick, &i_n1, i_dlabel, i_ch, &i_nc, &i_n2, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
|
1304
1303
|
|
1305
1304
|
dcl_freecrealary(i_dtick);
|
1306
1305
|
dcl_freecrealary(i_dlabel);
|
@@ -1333,7 +1332,7 @@ dcl_usaxlg(obj, cside, nlbl, nticks)
|
|
1333
1332
|
i_nticks = NUM2INT(nticks);
|
1334
1333
|
|
1335
1334
|
|
1336
|
-
|
1335
|
+
usaxlg__(i_cside, &i_nlbl, &i_nticks, (ftnlen)strlen(i_cside));
|
1337
1336
|
|
1338
1337
|
return Qnil;
|
1339
1338
|
|
@@ -1380,7 +1379,7 @@ dcl_usaxnm(obj, cside, dtick, n1, dlabel, n2)
|
|
1380
1379
|
i_dlabel = dcl_obj2crealary(dlabel);
|
1381
1380
|
|
1382
1381
|
|
1383
|
-
|
1382
|
+
usaxnm__(i_cside, i_dtick, &i_n1, i_dlabel, &i_n2, (ftnlen)strlen(i_cside));
|
1384
1383
|
|
1385
1384
|
dcl_freecrealary(i_dtick);
|
1386
1385
|
dcl_freecrealary(i_dlabel);
|
@@ -1402,7 +1401,7 @@ dcl_usaxsc(obj, cside)
|
|
1402
1401
|
i_cside = StringValuePtr(cside);
|
1403
1402
|
|
1404
1403
|
|
1405
|
-
|
1404
|
+
usaxsc__(i_cside, (ftnlen)strlen(i_cside));
|
1406
1405
|
|
1407
1406
|
return Qnil;
|
1408
1407
|
|
@@ -1423,7 +1422,7 @@ dcl_usiget(obj, cp)
|
|
1423
1422
|
i_cp = StringValuePtr(cp);
|
1424
1423
|
|
1425
1424
|
|
1426
|
-
|
1425
|
+
usiget__(i_cp, &o_ipara, (ftnlen)strlen(i_cp));
|
1427
1426
|
|
1428
1427
|
ipara = INT2NUM(o_ipara);
|
1429
1428
|
|
@@ -1450,7 +1449,7 @@ dcl_usiset(obj, cp, ipara)
|
|
1450
1449
|
i_ipara = NUM2INT(ipara);
|
1451
1450
|
|
1452
1451
|
|
1453
|
-
|
1452
|
+
usiset__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
|
1454
1453
|
|
1455
1454
|
return Qnil;
|
1456
1455
|
|
@@ -1474,7 +1473,7 @@ dcl_usistx(obj, cp, ipara)
|
|
1474
1473
|
i_ipara = NUM2INT(ipara);
|
1475
1474
|
|
1476
1475
|
|
1477
|
-
|
1476
|
+
usistx__(i_cp, &i_ipara, (ftnlen)strlen(i_cp));
|
1478
1477
|
|
1479
1478
|
return Qnil;
|
1480
1479
|
|
@@ -1487,7 +1486,7 @@ dcl_usiqnp(obj)
|
|
1487
1486
|
integer o_ncp;
|
1488
1487
|
VALUE ncp;
|
1489
1488
|
|
1490
|
-
|
1489
|
+
usiqnp__(&o_ncp);
|
1491
1490
|
|
1492
1491
|
ncp = INT2NUM(o_ncp);
|
1493
1492
|
|
@@ -1511,7 +1510,7 @@ dcl_usiqid(obj, cp)
|
|
1511
1510
|
i_cp = StringValuePtr(cp);
|
1512
1511
|
|
1513
1512
|
|
1514
|
-
|
1513
|
+
usiqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
1515
1514
|
|
1516
1515
|
idx = INT2NUM(o_idx);
|
1517
1516
|
|
@@ -1537,7 +1536,7 @@ dcl_usiqcp(obj, idx)
|
|
1537
1536
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1538
1537
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1539
1538
|
|
1540
|
-
|
1539
|
+
usiqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1541
1540
|
|
1542
1541
|
cp = rb_str_new2(o_cp);
|
1543
1542
|
|
@@ -1563,7 +1562,7 @@ dcl_usiqcl(obj, idx)
|
|
1563
1562
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1564
1563
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1565
1564
|
|
1566
|
-
|
1565
|
+
usiqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1567
1566
|
|
1568
1567
|
cp = rb_str_new2(o_cp);
|
1569
1568
|
|
@@ -1587,7 +1586,7 @@ dcl_usiqvl(obj, idx)
|
|
1587
1586
|
i_idx = NUM2INT(idx);
|
1588
1587
|
|
1589
1588
|
|
1590
|
-
|
1589
|
+
usiqvl__(&i_idx, &o_ipara);
|
1591
1590
|
|
1592
1591
|
ipara = INT2NUM(o_ipara);
|
1593
1592
|
|
@@ -1614,7 +1613,7 @@ dcl_usisvl(obj, idx, ipara)
|
|
1614
1613
|
i_ipara = NUM2INT(ipara);
|
1615
1614
|
|
1616
1615
|
|
1617
|
-
|
1616
|
+
usisvl__(&i_idx, &i_ipara);
|
1618
1617
|
|
1619
1618
|
return Qnil;
|
1620
1619
|
|
@@ -1635,7 +1634,7 @@ dcl_usiqin(obj, cp)
|
|
1635
1634
|
i_cp = StringValuePtr(cp);
|
1636
1635
|
|
1637
1636
|
|
1638
|
-
|
1637
|
+
usiqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
1639
1638
|
|
1640
1639
|
in = INT2NUM(o_in);
|
1641
1640
|
|
@@ -1659,7 +1658,7 @@ dcl_uslget(obj, cp)
|
|
1659
1658
|
i_cp = StringValuePtr(cp);
|
1660
1659
|
|
1661
1660
|
|
1662
|
-
|
1661
|
+
uslget__(i_cp, &o_lpara, (ftnlen)strlen(i_cp));
|
1663
1662
|
|
1664
1663
|
lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
|
1665
1664
|
|
@@ -1683,7 +1682,7 @@ dcl_uslset(obj, cp, lpara)
|
|
1683
1682
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
1684
1683
|
|
1685
1684
|
|
1686
|
-
|
1685
|
+
uslset__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
|
1687
1686
|
|
1688
1687
|
return Qnil;
|
1689
1688
|
|
@@ -1704,7 +1703,7 @@ dcl_uslstx(obj, cp, lpara)
|
|
1704
1703
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
1705
1704
|
|
1706
1705
|
|
1707
|
-
|
1706
|
+
uslstx__(i_cp, &i_lpara, (ftnlen)strlen(i_cp));
|
1708
1707
|
|
1709
1708
|
return Qnil;
|
1710
1709
|
|
@@ -1717,7 +1716,7 @@ dcl_uslqnp(obj)
|
|
1717
1716
|
integer o_ncp;
|
1718
1717
|
VALUE ncp;
|
1719
1718
|
|
1720
|
-
|
1719
|
+
uslqnp__(&o_ncp);
|
1721
1720
|
|
1722
1721
|
ncp = INT2NUM(o_ncp);
|
1723
1722
|
|
@@ -1741,7 +1740,7 @@ dcl_uslqid(obj, cp)
|
|
1741
1740
|
i_cp = StringValuePtr(cp);
|
1742
1741
|
|
1743
1742
|
|
1744
|
-
|
1743
|
+
uslqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
1745
1744
|
|
1746
1745
|
idx = INT2NUM(o_idx);
|
1747
1746
|
|
@@ -1767,7 +1766,7 @@ dcl_uslqcp(obj, idx)
|
|
1767
1766
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1768
1767
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1769
1768
|
|
1770
|
-
|
1769
|
+
uslqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1771
1770
|
|
1772
1771
|
cp = rb_str_new2(o_cp);
|
1773
1772
|
|
@@ -1793,7 +1792,7 @@ dcl_uslqcl(obj, idx)
|
|
1793
1792
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
1794
1793
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
1795
1794
|
|
1796
|
-
|
1795
|
+
uslqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
1797
1796
|
|
1798
1797
|
cp = rb_str_new2(o_cp);
|
1799
1798
|
|
@@ -1817,7 +1816,7 @@ dcl_uslqvl(obj, idx)
|
|
1817
1816
|
i_idx = NUM2INT(idx);
|
1818
1817
|
|
1819
1818
|
|
1820
|
-
|
1819
|
+
uslqvl__(&i_idx, &o_lpara);
|
1821
1820
|
|
1822
1821
|
lpara = (o_lpara == FALSE_) ? Qfalse : Qtrue;
|
1823
1822
|
|
@@ -1841,7 +1840,7 @@ dcl_uslsvl(obj, idx, lpara)
|
|
1841
1840
|
i_lpara = ((lpara == Qnil)||(lpara == Qfalse)) ? FALSE_ : TRUE_;
|
1842
1841
|
|
1843
1842
|
|
1844
|
-
|
1843
|
+
uslsvl__(&i_idx, &i_lpara);
|
1845
1844
|
|
1846
1845
|
return Qnil;
|
1847
1846
|
|
@@ -1862,7 +1861,7 @@ dcl_uslqin(obj, cp)
|
|
1862
1861
|
i_cp = StringValuePtr(cp);
|
1863
1862
|
|
1864
1863
|
|
1865
|
-
|
1864
|
+
uslqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
1866
1865
|
|
1867
1866
|
in = INT2NUM(o_in);
|
1868
1867
|
|
@@ -1889,7 +1888,7 @@ dcl_uspaxs(obj, cside, islct)
|
|
1889
1888
|
i_islct = NUM2INT(islct);
|
1890
1889
|
|
1891
1890
|
|
1892
|
-
|
1891
|
+
uspaxs__(i_cside, &i_islct, (ftnlen)strlen(i_cside));
|
1893
1892
|
|
1894
1893
|
return Qnil;
|
1895
1894
|
|
@@ -1940,7 +1939,7 @@ dcl_usplbl(obj, cside, islct, pos, ch, nc, n)
|
|
1940
1939
|
i_ch = dcl_obj2ccharary(ch, (i_n*DFLT_SIZE), DFLT_SIZE);
|
1941
1940
|
|
1942
1941
|
|
1943
|
-
|
1942
|
+
usplbl__(i_cside, &i_islct, i_pos, i_ch, &i_nc, &i_n, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
|
1944
1943
|
|
1945
1944
|
dcl_freecrealary(i_pos);
|
1946
1945
|
dcl_freeccharary(i_ch);
|
@@ -1981,7 +1980,7 @@ dcl_uspnum(obj, cside, islct, pos, n)
|
|
1981
1980
|
i_pos = dcl_obj2crealary(pos);
|
1982
1981
|
|
1983
1982
|
|
1984
|
-
|
1983
|
+
uspnum__(i_cside, &i_islct, i_pos, &i_n, (ftnlen)strlen(i_cside));
|
1985
1984
|
|
1986
1985
|
dcl_freecrealary(i_pos);
|
1987
1986
|
|
@@ -2021,7 +2020,7 @@ dcl_usptmk(obj, cside, islct, pos, n)
|
|
2021
2020
|
i_pos = dcl_obj2crealary(pos);
|
2022
2021
|
|
2023
2022
|
|
2024
|
-
|
2023
|
+
usptmk__(i_cside, &i_islct, i_pos, &i_n, (ftnlen)strlen(i_cside));
|
2025
2024
|
|
2026
2025
|
dcl_freecrealary(i_pos);
|
2027
2026
|
|
@@ -2057,7 +2056,7 @@ dcl_uspttl(obj, cside, islct, cttl, pos)
|
|
2057
2056
|
i_pos = (real)NUM2DBL(pos);
|
2058
2057
|
|
2059
2058
|
|
2060
|
-
|
2059
|
+
uspttl__(i_cside, &i_islct, i_cttl, &i_pos, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
|
2061
2060
|
|
2062
2061
|
return Qnil;
|
2063
2062
|
|
@@ -2078,7 +2077,7 @@ dcl_usrget(obj, cp)
|
|
2078
2077
|
i_cp = StringValuePtr(cp);
|
2079
2078
|
|
2080
2079
|
|
2081
|
-
|
2080
|
+
usrget__(i_cp, &o_rpara, (ftnlen)strlen(i_cp));
|
2082
2081
|
|
2083
2082
|
rpara = rb_float_new((double)o_rpara);
|
2084
2083
|
|
@@ -2105,7 +2104,7 @@ dcl_usrset(obj, cp, rpara)
|
|
2105
2104
|
i_rpara = (real)NUM2DBL(rpara);
|
2106
2105
|
|
2107
2106
|
|
2108
|
-
|
2107
|
+
usrset__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
|
2109
2108
|
|
2110
2109
|
return Qnil;
|
2111
2110
|
|
@@ -2129,7 +2128,7 @@ dcl_usrstx(obj, cp, rpara)
|
|
2129
2128
|
i_rpara = (real)NUM2DBL(rpara);
|
2130
2129
|
|
2131
2130
|
|
2132
|
-
|
2131
|
+
usrstx__(i_cp, &i_rpara, (ftnlen)strlen(i_cp));
|
2133
2132
|
|
2134
2133
|
return Qnil;
|
2135
2134
|
|
@@ -2142,7 +2141,7 @@ dcl_usrqnp(obj)
|
|
2142
2141
|
integer o_ncp;
|
2143
2142
|
VALUE ncp;
|
2144
2143
|
|
2145
|
-
|
2144
|
+
usrqnp__(&o_ncp);
|
2146
2145
|
|
2147
2146
|
ncp = INT2NUM(o_ncp);
|
2148
2147
|
|
@@ -2166,7 +2165,7 @@ dcl_usrqid(obj, cp)
|
|
2166
2165
|
i_cp = StringValuePtr(cp);
|
2167
2166
|
|
2168
2167
|
|
2169
|
-
|
2168
|
+
usrqid__(i_cp, &o_idx, (ftnlen)strlen(i_cp));
|
2170
2169
|
|
2171
2170
|
idx = INT2NUM(o_idx);
|
2172
2171
|
|
@@ -2192,7 +2191,7 @@ dcl_usrqcp(obj, idx)
|
|
2192
2191
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
2193
2192
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
2194
2193
|
|
2195
|
-
|
2194
|
+
usrqcp__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
2196
2195
|
|
2197
2196
|
cp = rb_str_new2(o_cp);
|
2198
2197
|
|
@@ -2218,7 +2217,7 @@ dcl_usrqcl(obj, idx)
|
|
2218
2217
|
o_cp= ALLOCA_N(char, (DFLT_SIZE+1));
|
2219
2218
|
memset(o_cp, '\0', DFLT_SIZE+1);
|
2220
2219
|
|
2221
|
-
|
2220
|
+
usrqcl__(&i_idx, o_cp, (ftnlen)DFLT_SIZE);
|
2222
2221
|
|
2223
2222
|
cp = rb_str_new2(o_cp);
|
2224
2223
|
|
@@ -2242,7 +2241,7 @@ dcl_usrqvl(obj, idx)
|
|
2242
2241
|
i_idx = NUM2INT(idx);
|
2243
2242
|
|
2244
2243
|
|
2245
|
-
|
2244
|
+
usrqvl__(&i_idx, &o_rpara);
|
2246
2245
|
|
2247
2246
|
rpara = rb_float_new((double)o_rpara);
|
2248
2247
|
|
@@ -2269,7 +2268,7 @@ dcl_usrsvl(obj, idx, rpara)
|
|
2269
2268
|
i_rpara = (real)NUM2DBL(rpara);
|
2270
2269
|
|
2271
2270
|
|
2272
|
-
|
2271
|
+
usrsvl__(&i_idx, &i_rpara);
|
2273
2272
|
|
2274
2273
|
return Qnil;
|
2275
2274
|
|
@@ -2290,7 +2289,7 @@ dcl_usrqin(obj, cp)
|
|
2290
2289
|
i_cp = StringValuePtr(cp);
|
2291
2290
|
|
2292
2291
|
|
2293
|
-
|
2292
|
+
usrqin__(i_cp, &o_in, (ftnlen)strlen(i_cp));
|
2294
2293
|
|
2295
2294
|
in = INT2NUM(o_in);
|
2296
2295
|
|
@@ -2312,7 +2311,7 @@ dcl_ussaxs(obj, cside)
|
|
2312
2311
|
i_cside = StringValuePtr(cside);
|
2313
2312
|
|
2314
2313
|
|
2315
|
-
|
2314
|
+
ussaxs__(i_cside, (ftnlen)strlen(i_cside));
|
2316
2315
|
|
2317
2316
|
return Qnil;
|
2318
2317
|
|
@@ -2335,7 +2334,7 @@ dcl_usxinz(obj, csa)
|
|
2335
2334
|
i_csa = StringValuePtr(csa);
|
2336
2335
|
|
2337
2336
|
|
2338
|
-
|
2337
|
+
usxinz__(i_csa, &o_faca, &o_offa, (ftnlen)strlen(i_csa));
|
2339
2338
|
|
2340
2339
|
faca = rb_float_new((double)o_faca);
|
2341
2340
|
offa = rb_float_new((double)o_offa);
|
@@ -2349,7 +2348,7 @@ static VALUE
|
|
2349
2348
|
dcl_usxtlz(obj)
|
2350
2349
|
VALUE obj;
|
2351
2350
|
{
|
2352
|
-
|
2351
|
+
usxtlz__();
|
2353
2352
|
|
2354
2353
|
return Qnil;
|
2355
2354
|
|
@@ -2372,7 +2371,7 @@ dcl_usyinz(obj, csa)
|
|
2372
2371
|
i_csa = StringValuePtr(csa);
|
2373
2372
|
|
2374
2373
|
|
2375
|
-
|
2374
|
+
usyinz__(i_csa, &o_faca, &o_offa, (ftnlen)strlen(i_csa));
|
2376
2375
|
|
2377
2376
|
faca = rb_float_new((double)o_faca);
|
2378
2377
|
offa = rb_float_new((double)o_offa);
|
@@ -2386,7 +2385,7 @@ static VALUE
|
|
2386
2385
|
dcl_usytlz(obj)
|
2387
2386
|
VALUE obj;
|
2388
2387
|
{
|
2389
|
-
|
2388
|
+
usytlz__();
|
2390
2389
|
|
2391
2390
|
return Qnil;
|
2392
2391
|
|