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_uvpack.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
|
|
@@ -106,7 +105,7 @@ dcl_uverb(obj, n, upx, upy1, upy2)
|
|
106
105
|
i_upy2 = dcl_obj2crealary(upy2);
|
107
106
|
|
108
107
|
|
109
|
-
|
108
|
+
uverb__(&i_n, i_upx, i_upy1, i_upy2);
|
110
109
|
|
111
110
|
dcl_freecrealary(i_upx);
|
112
111
|
dcl_freecrealary(i_upy1);
|
@@ -171,7 +170,7 @@ dcl_uverbz(obj, n, upx, upy1, upy2, itype, index, rsize)
|
|
171
170
|
i_upy2 = dcl_obj2crealary(upy2);
|
172
171
|
|
173
172
|
|
174
|
-
|
173
|
+
uverbz__(&i_n, i_upx, i_upy1, i_upy2, &i_itype, &i_index, &i_rsize);
|
175
174
|
|
176
175
|
dcl_freecrealary(i_upx);
|
177
176
|
dcl_freecrealary(i_upy1);
|
@@ -221,7 +220,7 @@ dcl_uvdif(obj, n, upx, upy1, upy2)
|
|
221
220
|
i_upy2 = dcl_obj2crealary(upy2);
|
222
221
|
|
223
222
|
|
224
|
-
|
223
|
+
uvdif__(&i_n, i_upx, i_upy1, i_upy2);
|
225
224
|
|
226
225
|
dcl_freecrealary(i_upx);
|
227
226
|
dcl_freecrealary(i_upy1);
|
@@ -281,7 +280,7 @@ dcl_uvdifz(obj, n, upx, upy1, upy2, itpat1, itpat2)
|
|
281
280
|
i_upy2 = dcl_obj2crealary(upy2);
|
282
281
|
|
283
282
|
|
284
|
-
|
283
|
+
uvdifz__(&i_n, i_upx, i_upy1, i_upy2, &i_itpat1, &i_itpat2);
|
285
284
|
|
286
285
|
dcl_freecrealary(i_upx);
|
287
286
|
dcl_freecrealary(i_upy1);
|
@@ -331,7 +330,7 @@ dcl_uvbrf(obj, n, upx, upy1, upy2)
|
|
331
330
|
i_upy2 = dcl_obj2crealary(upy2);
|
332
331
|
|
333
332
|
|
334
|
-
|
333
|
+
uvbrf__(&i_n, i_upx, i_upy1, i_upy2);
|
335
334
|
|
336
335
|
dcl_freecrealary(i_upx);
|
337
336
|
dcl_freecrealary(i_upy1);
|
@@ -396,7 +395,7 @@ dcl_uvbrfz(obj, n, upx, upy1, upy2, itype, index, rsize)
|
|
396
395
|
i_upy2 = dcl_obj2crealary(upy2);
|
397
396
|
|
398
397
|
|
399
|
-
|
398
|
+
uvbrfz__(&i_n, i_upx, i_upy1, i_upy2, &i_itype, &i_index, &i_rsize);
|
400
399
|
|
401
400
|
dcl_freecrealary(i_upx);
|
402
401
|
dcl_freecrealary(i_upy1);
|
@@ -446,7 +445,7 @@ dcl_uvbra(obj, n, upx, upy1, upy2)
|
|
446
445
|
i_upy2 = dcl_obj2crealary(upy2);
|
447
446
|
|
448
447
|
|
449
|
-
|
448
|
+
uvbra__(&i_n, i_upx, i_upy1, i_upy2);
|
450
449
|
|
451
450
|
dcl_freecrealary(i_upx);
|
452
451
|
dcl_freecrealary(i_upy1);
|
@@ -511,7 +510,7 @@ dcl_uvbraz(obj, n, upx, upy1, upy2, itpat1, itpat2, rsize)
|
|
511
510
|
i_upy2 = dcl_obj2crealary(upy2);
|
512
511
|
|
513
512
|
|
514
|
-
|
513
|
+
uvbraz__(&i_n, i_upx, i_upy1, i_upy2, &i_itpat1, &i_itpat2, &i_rsize);
|
515
514
|
|
516
515
|
dcl_freecrealary(i_upx);
|
517
516
|
dcl_freecrealary(i_upy1);
|
@@ -552,7 +551,7 @@ dcl_uvbrl(obj, n, upx, upy)
|
|
552
551
|
i_upy = dcl_obj2crealary(upy);
|
553
552
|
|
554
553
|
|
555
|
-
|
554
|
+
uvbrl__(&i_n, i_upx, i_upy);
|
556
555
|
|
557
556
|
dcl_freecrealary(i_upx);
|
558
557
|
dcl_freecrealary(i_upy);
|
@@ -607,7 +606,7 @@ dcl_uvbrlz(obj, n, upx, upy, itype, index, rsize)
|
|
607
606
|
i_upy = dcl_obj2crealary(upy);
|
608
607
|
|
609
608
|
|
610
|
-
|
609
|
+
uvbrlz__(&i_n, i_upx, i_upy, &i_itype, &i_index, &i_rsize);
|
611
610
|
|
612
611
|
dcl_freecrealary(i_upx);
|
613
612
|
dcl_freecrealary(i_upy);
|
@@ -656,7 +655,7 @@ dcl_uvbxf(obj, n, upx, upy1, upy2)
|
|
656
655
|
i_upy2 = dcl_obj2crealary(upy2);
|
657
656
|
|
658
657
|
|
659
|
-
|
658
|
+
uvbxf__(&i_n, i_upx, i_upy1, i_upy2);
|
660
659
|
|
661
660
|
dcl_freecrealary(i_upx);
|
662
661
|
dcl_freecrealary(i_upy1);
|
@@ -716,7 +715,7 @@ dcl_uvbxfz(obj, n, upx, upy1, upy2, itype, index)
|
|
716
715
|
i_upy2 = dcl_obj2crealary(upy2);
|
717
716
|
|
718
717
|
|
719
|
-
|
718
|
+
uvbxfz__(&i_n, i_upx, i_upy1, i_upy2, &i_itype, &i_index);
|
720
719
|
|
721
720
|
dcl_freecrealary(i_upx);
|
722
721
|
dcl_freecrealary(i_upy1);
|
@@ -766,7 +765,7 @@ dcl_uvbxa(obj, n, upx, upy1, upy2)
|
|
766
765
|
i_upy2 = dcl_obj2crealary(upy2);
|
767
766
|
|
768
767
|
|
769
|
-
|
768
|
+
uvbxa__(&i_n, i_upx, i_upy1, i_upy2);
|
770
769
|
|
771
770
|
dcl_freecrealary(i_upx);
|
772
771
|
dcl_freecrealary(i_upy1);
|
@@ -826,7 +825,7 @@ dcl_uvbxaz(obj, n, upx, upy1, upy2, itpat1, itpat2)
|
|
826
825
|
i_upy2 = dcl_obj2crealary(upy2);
|
827
826
|
|
828
827
|
|
829
|
-
|
828
|
+
uvbxaz__(&i_n, i_upx, i_upy1, i_upy2, &i_itpat1, &i_itpat2);
|
830
829
|
|
831
830
|
dcl_freecrealary(i_upx);
|
832
831
|
dcl_freecrealary(i_upy1);
|
@@ -867,7 +866,7 @@ dcl_uvbxl(obj, n, upx, upy)
|
|
867
866
|
i_upy = dcl_obj2crealary(upy);
|
868
867
|
|
869
868
|
|
870
|
-
|
869
|
+
uvbxl__(&i_n, i_upx, i_upy);
|
871
870
|
|
872
871
|
dcl_freecrealary(i_upx);
|
873
872
|
dcl_freecrealary(i_upy);
|
@@ -917,7 +916,7 @@ dcl_uvbxlz(obj, n, upx, upy, itype, index)
|
|
917
916
|
i_upy = dcl_obj2crealary(upy);
|
918
917
|
|
919
918
|
|
920
|
-
|
919
|
+
uvbxlz__(&i_n, i_upx, i_upy, &i_itype, &i_index);
|
921
920
|
|
922
921
|
dcl_freecrealary(i_upx);
|
923
922
|
dcl_freecrealary(i_upy);
|
data/ext/numru/grph2_uwpack.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
|
|
@@ -88,7 +87,7 @@ dcl_uwsgxa(obj, xp, nx)
|
|
88
87
|
i_xp = dcl_obj2crealary(xp);
|
89
88
|
|
90
89
|
|
91
|
-
|
90
|
+
uwsgxa__(i_xp, &i_nx);
|
92
91
|
|
93
92
|
dcl_freecrealary(i_xp);
|
94
93
|
|
@@ -107,7 +106,7 @@ dcl_uwqgxa(obj)
|
|
107
106
|
|
108
107
|
o_xp= ALLOCA_N(real, (o_nx));
|
109
108
|
|
110
|
-
|
109
|
+
uwqgxa__(o_xp, &o_nx);
|
111
110
|
|
112
111
|
{int array_shape[1] = {o_nx};
|
113
112
|
xp = dcl_crealary2obj(o_xp, (o_nx), 1, array_shape);
|
@@ -142,7 +141,7 @@ dcl_uwsgxb(obj, uxmin, uxmax, nx)
|
|
142
141
|
i_nx = NUM2INT(nx);
|
143
142
|
|
144
143
|
|
145
|
-
|
144
|
+
uwsgxb__(&i_uxmin, &i_uxmax, &i_nx);
|
146
145
|
|
147
146
|
return Qnil;
|
148
147
|
|
@@ -159,7 +158,7 @@ dcl_uwqgxb(obj)
|
|
159
158
|
VALUE uxmax;
|
160
159
|
VALUE nx;
|
161
160
|
|
162
|
-
|
161
|
+
uwqgxb__(&o_uxmin, &o_uxmax, &o_nx);
|
163
162
|
|
164
163
|
uxmin = rb_float_new((double)o_uxmin);
|
165
164
|
uxmax = rb_float_new((double)o_uxmax);
|
@@ -179,7 +178,7 @@ dcl_uwsgxz(obj, lsetx)
|
|
179
178
|
i_lsetx = ((lsetx == Qnil)||(lsetx == Qfalse)) ? FALSE_ : TRUE_;
|
180
179
|
|
181
180
|
|
182
|
-
|
181
|
+
uwsgxz__(&i_lsetx);
|
183
182
|
|
184
183
|
return Qnil;
|
185
184
|
|
@@ -192,7 +191,7 @@ dcl_uwqgxz(obj)
|
|
192
191
|
logical o_lsetx;
|
193
192
|
VALUE lsetx;
|
194
193
|
|
195
|
-
|
194
|
+
uwqgxz__(&o_lsetx);
|
196
195
|
|
197
196
|
lsetx = (o_lsetx == FALSE_) ? Qfalse : Qtrue;
|
198
197
|
|
@@ -223,7 +222,7 @@ dcl_uwsgya(obj, yp, ny)
|
|
223
222
|
i_yp = dcl_obj2crealary(yp);
|
224
223
|
|
225
224
|
|
226
|
-
|
225
|
+
uwsgya__(i_yp, &i_ny);
|
227
226
|
|
228
227
|
dcl_freecrealary(i_yp);
|
229
228
|
|
@@ -242,7 +241,7 @@ dcl_uwqgya(obj)
|
|
242
241
|
|
243
242
|
o_yp= ALLOCA_N(real, (o_ny));
|
244
243
|
|
245
|
-
|
244
|
+
uwqgya__(o_yp, &o_ny);
|
246
245
|
|
247
246
|
{int array_shape[1] = {o_ny};
|
248
247
|
yp = dcl_crealary2obj(o_yp, (o_ny), 1, array_shape);
|
@@ -277,7 +276,7 @@ dcl_uwsgyb(obj, uymin, uymax, ny)
|
|
277
276
|
i_ny = NUM2INT(ny);
|
278
277
|
|
279
278
|
|
280
|
-
|
279
|
+
uwsgyb__(&i_uymin, &i_uymax, &i_ny);
|
281
280
|
|
282
281
|
return Qnil;
|
283
282
|
|
@@ -294,7 +293,7 @@ dcl_uwqgyb(obj)
|
|
294
293
|
VALUE uymax;
|
295
294
|
VALUE ny;
|
296
295
|
|
297
|
-
|
296
|
+
uwqgyb__(&o_uymin, &o_uymax, &o_ny);
|
298
297
|
|
299
298
|
uymin = rb_float_new((double)o_uymin);
|
300
299
|
uymax = rb_float_new((double)o_uymax);
|
@@ -314,7 +313,7 @@ dcl_uwsgyz(obj, lsety)
|
|
314
313
|
i_lsety = ((lsety == Qnil)||(lsety == Qfalse)) ? FALSE_ : TRUE_;
|
315
314
|
|
316
315
|
|
317
|
-
|
316
|
+
uwsgyz__(&i_lsety);
|
318
317
|
|
319
318
|
return Qnil;
|
320
319
|
|
@@ -327,7 +326,7 @@ dcl_uwqgyz(obj)
|
|
327
326
|
logical o_lsety;
|
328
327
|
VALUE lsety;
|
329
328
|
|
330
|
-
|
329
|
+
uwqgyz__(&o_lsety);
|
331
330
|
|
332
331
|
lsety = (o_lsety == FALSE_) ? Qfalse : Qtrue;
|
333
332
|
|
@@ -353,7 +352,7 @@ dcl_uwqgxi(obj, ux)
|
|
353
352
|
i_ux = (real)NUM2DBL(ux);
|
354
353
|
|
355
354
|
|
356
|
-
|
355
|
+
uwqgxi__(&i_ux, &o_iux, &o_frac);
|
357
356
|
|
358
357
|
iux = INT2NUM(o_iux);
|
359
358
|
frac = rb_float_new((double)o_frac);
|
@@ -367,7 +366,7 @@ static VALUE
|
|
367
366
|
dcl_uwigxi(obj)
|
368
367
|
VALUE obj;
|
369
368
|
{
|
370
|
-
|
369
|
+
uwigxi__();
|
371
370
|
|
372
371
|
return Qnil;
|
373
372
|
|
@@ -390,7 +389,7 @@ dcl_uwqgyi(obj, uy)
|
|
390
389
|
i_uy = (real)NUM2DBL(uy);
|
391
390
|
|
392
391
|
|
393
|
-
|
392
|
+
uwqgyi__(&i_uy, &o_iuy, &o_frac);
|
394
393
|
|
395
394
|
iuy = INT2NUM(o_iuy);
|
396
395
|
frac = rb_float_new((double)o_frac);
|
@@ -404,7 +403,7 @@ static VALUE
|
|
404
403
|
dcl_uwigyi(obj)
|
405
404
|
VALUE obj;
|
406
405
|
{
|
407
|
-
|
406
|
+
uwigyi__();
|
408
407
|
|
409
408
|
return Qnil;
|
410
409
|
|
@@ -425,7 +424,7 @@ dcl_ruwgx(obj, ix)
|
|
425
424
|
i_ix = NUM2INT(ix);
|
426
425
|
|
427
426
|
|
428
|
-
o_rtn_val =
|
427
|
+
o_rtn_val = ruwgx__(&i_ix);
|
429
428
|
|
430
429
|
rtn_val = rb_float_new((double)o_rtn_val);
|
431
430
|
|
@@ -449,7 +448,7 @@ dcl_ruwgy(obj, iy)
|
|
449
448
|
i_iy = NUM2INT(iy);
|
450
449
|
|
451
450
|
|
452
|
-
o_rtn_val =
|
451
|
+
o_rtn_val = ruwgy__(&i_iy);
|
453
452
|
|
454
453
|
rtn_val = rb_float_new((double)o_rtn_val);
|
455
454
|
|
@@ -473,7 +472,7 @@ dcl_iuwgx(obj, ux)
|
|
473
472
|
i_ux = (real)NUM2DBL(ux);
|
474
473
|
|
475
474
|
|
476
|
-
o_rtn_val =
|
475
|
+
o_rtn_val = iuwgx__(&i_ux);
|
477
476
|
|
478
477
|
rtn_val = INT2NUM(o_rtn_val);
|
479
478
|
|
@@ -497,7 +496,7 @@ dcl_iuwgy(obj, uy)
|
|
497
496
|
i_uy = (real)NUM2DBL(uy);
|
498
497
|
|
499
498
|
|
500
|
-
o_rtn_val =
|
499
|
+
o_rtn_val = iuwgy__(&i_uy);
|
501
500
|
|
502
501
|
rtn_val = INT2NUM(o_rtn_val);
|
503
502
|
|
@@ -524,7 +523,7 @@ dcl_uwdflt(obj, nx, ny)
|
|
524
523
|
i_ny = NUM2INT(ny);
|
525
524
|
|
526
525
|
|
527
|
-
|
526
|
+
uwdflt__(&i_nx, &i_ny);
|
528
527
|
|
529
528
|
return Qnil;
|
530
529
|
|
data/ext/numru/grph2_uxpack.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
|
|
@@ -84,7 +83,7 @@ dcl_uxsaxz(obj, cside, roffx)
|
|
84
83
|
i_roffx = (real)NUM2DBL(roffx);
|
85
84
|
|
86
85
|
|
87
|
-
|
86
|
+
uxsaxz__(i_cside, &i_roffx, (ftnlen)strlen(i_cside));
|
88
87
|
|
89
88
|
return Qnil;
|
90
89
|
|
@@ -103,7 +102,7 @@ dcl_uxsaxs(obj, cside)
|
|
103
102
|
i_cside = StringValuePtr(cside);
|
104
103
|
|
105
104
|
|
106
|
-
|
105
|
+
uxsaxs__(i_cside, (ftnlen)strlen(i_cside));
|
107
106
|
|
108
107
|
return Qnil;
|
109
108
|
|
@@ -127,7 +126,7 @@ dcl_uxpaxs(obj, cside, islct)
|
|
127
126
|
i_islct = NUM2INT(islct);
|
128
127
|
|
129
128
|
|
130
|
-
|
129
|
+
uxpaxs__(i_cside, &i_islct, (ftnlen)strlen(i_cside));
|
131
130
|
|
132
131
|
return Qnil;
|
133
132
|
|
@@ -165,7 +164,7 @@ dcl_uxptmk(obj, cside, islct, ux, n)
|
|
165
164
|
i_ux = dcl_obj2crealary(ux);
|
166
165
|
|
167
166
|
|
168
|
-
|
167
|
+
uxptmk__(i_cside, &i_islct, i_ux, &i_n, (ftnlen)strlen(i_cside));
|
169
168
|
|
170
169
|
dcl_freecrealary(i_ux);
|
171
170
|
|
@@ -218,7 +217,7 @@ dcl_uxplbl(obj, cside, islct, ux, ch, nc, n)
|
|
218
217
|
i_ch = dcl_obj2ccharary(ch, (i_n*DFLT_SIZE), DFLT_SIZE);
|
219
218
|
|
220
219
|
|
221
|
-
|
220
|
+
uxplbl__(i_cside, &i_islct, i_ux, i_ch, &i_nc, &i_n, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
|
222
221
|
|
223
222
|
dcl_freecrealary(i_ux);
|
224
223
|
dcl_freeccharary(i_ch);
|
@@ -259,7 +258,7 @@ dcl_uxpnum(obj, cside, islct, ux, n)
|
|
259
258
|
i_ux = dcl_obj2crealary(ux);
|
260
259
|
|
261
260
|
|
262
|
-
|
261
|
+
uxpnum__(i_cside, &i_islct, i_ux, &i_n, (ftnlen)strlen(i_cside));
|
263
262
|
|
264
263
|
dcl_freecrealary(i_ux);
|
265
264
|
|
@@ -295,7 +294,7 @@ dcl_uxpttl(obj, cside, islct, cttl, px)
|
|
295
294
|
i_px = (real)NUM2DBL(px);
|
296
295
|
|
297
296
|
|
298
|
-
|
297
|
+
uxpttl__(i_cside, &i_islct, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
|
299
298
|
|
300
299
|
return Qnil;
|
301
300
|
|
@@ -355,7 +354,7 @@ dcl_uxaxlb(obj, cside, ux1, n1, ux2, ch, nc, n2)
|
|
355
354
|
i_ch = dcl_obj2ccharary(ch, (i_n2*DFLT_SIZE), DFLT_SIZE);
|
356
355
|
|
357
356
|
|
358
|
-
|
357
|
+
uxaxlb__(i_cside, i_ux1, &i_n1, i_ux2, i_ch, &i_nc, &i_n2, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
|
359
358
|
|
360
359
|
dcl_freecrealary(i_ux1);
|
361
360
|
dcl_freecrealary(i_ux2);
|
@@ -406,7 +405,7 @@ dcl_uxaxnm(obj, cside, ux1, n1, ux2, n2)
|
|
406
405
|
i_ux2 = dcl_obj2crealary(ux2);
|
407
406
|
|
408
407
|
|
409
|
-
|
408
|
+
uxaxnm__(i_cside, i_ux1, &i_n1, i_ux2, &i_n2, (ftnlen)strlen(i_cside));
|
410
409
|
|
411
410
|
dcl_freecrealary(i_ux1);
|
412
411
|
dcl_freecrealary(i_ux2);
|
@@ -438,7 +437,7 @@ dcl_uxaxdv(obj, cside, dx1, dx2)
|
|
438
437
|
i_dx2 = (real)NUM2DBL(dx2);
|
439
438
|
|
440
439
|
|
441
|
-
|
440
|
+
uxaxdv__(i_cside, &i_dx1, &i_dx2, (ftnlen)strlen(i_cside));
|
442
441
|
|
443
442
|
return Qnil;
|
444
443
|
|
@@ -467,7 +466,7 @@ dcl_uxmttl(obj, cside, cttl, px)
|
|
467
466
|
i_px = (real)NUM2DBL(px);
|
468
467
|
|
469
468
|
|
470
|
-
|
469
|
+
uxmttl__(i_cside, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
|
471
470
|
|
472
471
|
return Qnil;
|
473
472
|
|
@@ -496,7 +495,7 @@ dcl_uxsttl(obj, cside, cttl, px)
|
|
496
495
|
i_px = (real)NUM2DBL(px);
|
497
496
|
|
498
497
|
|
499
|
-
|
498
|
+
uxsttl__(i_cside, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
|
500
499
|
|
501
500
|
return Qnil;
|
502
501
|
|
@@ -515,7 +514,7 @@ dcl_uxsfmt(obj, cfmt)
|
|
515
514
|
i_cfmt = StringValuePtr(cfmt);
|
516
515
|
|
517
516
|
|
518
|
-
|
517
|
+
uxsfmt__(i_cfmt, (ftnlen)strlen(i_cfmt));
|
519
518
|
|
520
519
|
return Qnil;
|
521
520
|
|
@@ -531,7 +530,7 @@ dcl_uxqfmt(obj)
|
|
531
530
|
o_cfmt= ALLOCA_N(char, (DFLT_SIZE+1));
|
532
531
|
memset(o_cfmt, '\0', DFLT_SIZE+1);
|
533
532
|
|
534
|
-
|
533
|
+
uxqfmt__(o_cfmt, (ftnlen)DFLT_SIZE);
|
535
534
|
|
536
535
|
cfmt = rb_str_new2(o_cfmt);
|
537
536
|
|
data/ext/numru/grph2_uypack.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
|
|
@@ -84,7 +83,7 @@ dcl_uysaxz(obj, cside, roffy)
|
|
84
83
|
i_roffy = (real)NUM2DBL(roffy);
|
85
84
|
|
86
85
|
|
87
|
-
|
86
|
+
uysaxz__(i_cside, &i_roffy, (ftnlen)strlen(i_cside));
|
88
87
|
|
89
88
|
return Qnil;
|
90
89
|
|
@@ -103,7 +102,7 @@ dcl_uysaxs(obj, cside)
|
|
103
102
|
i_cside = StringValuePtr(cside);
|
104
103
|
|
105
104
|
|
106
|
-
|
105
|
+
uysaxs__(i_cside, (ftnlen)strlen(i_cside));
|
107
106
|
|
108
107
|
return Qnil;
|
109
108
|
|
@@ -127,7 +126,7 @@ dcl_uypaxs(obj, cside, islct)
|
|
127
126
|
i_islct = NUM2INT(islct);
|
128
127
|
|
129
128
|
|
130
|
-
|
129
|
+
uypaxs__(i_cside, &i_islct, (ftnlen)strlen(i_cside));
|
131
130
|
|
132
131
|
return Qnil;
|
133
132
|
|
@@ -165,7 +164,7 @@ dcl_uyptmk(obj, cside, islct, uy, n)
|
|
165
164
|
i_uy = dcl_obj2crealary(uy);
|
166
165
|
|
167
166
|
|
168
|
-
|
167
|
+
uyptmk__(i_cside, &i_islct, i_uy, &i_n, (ftnlen)strlen(i_cside));
|
169
168
|
|
170
169
|
dcl_freecrealary(i_uy);
|
171
170
|
|
@@ -218,7 +217,7 @@ dcl_uyplbl(obj, cside, islct, uy, ch, nc, n)
|
|
218
217
|
i_ch = dcl_obj2ccharary(ch, (i_n*DFLT_SIZE), DFLT_SIZE);
|
219
218
|
|
220
219
|
|
221
|
-
|
220
|
+
uyplbl__(i_cside, &i_islct, i_uy, i_ch, &i_nc, &i_n, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
|
222
221
|
|
223
222
|
dcl_freecrealary(i_uy);
|
224
223
|
dcl_freeccharary(i_ch);
|
@@ -259,7 +258,7 @@ dcl_uypnum(obj, cside, islct, uy, n)
|
|
259
258
|
i_uy = dcl_obj2crealary(uy);
|
260
259
|
|
261
260
|
|
262
|
-
|
261
|
+
uypnum__(i_cside, &i_islct, i_uy, &i_n, (ftnlen)strlen(i_cside));
|
263
262
|
|
264
263
|
dcl_freecrealary(i_uy);
|
265
264
|
|
@@ -295,7 +294,7 @@ dcl_uypttl(obj, cside, islct, cttl, px)
|
|
295
294
|
i_px = (real)NUM2DBL(px);
|
296
295
|
|
297
296
|
|
298
|
-
|
297
|
+
uypttl__(i_cside, &i_islct, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
|
299
298
|
|
300
299
|
return Qnil;
|
301
300
|
|
@@ -355,7 +354,7 @@ dcl_uyaxlb(obj, cside, uy1, n1, uy2, ch, nc, n2)
|
|
355
354
|
i_ch = dcl_obj2ccharary(ch, (i_n2*DFLT_SIZE), DFLT_SIZE);
|
356
355
|
|
357
356
|
|
358
|
-
|
357
|
+
uyaxlb__(i_cside, i_uy1, &i_n1, i_uy2, i_ch, &i_nc, &i_n2, (ftnlen)strlen(i_cside), (ftnlen)DFLT_SIZE);
|
359
358
|
|
360
359
|
dcl_freecrealary(i_uy1);
|
361
360
|
dcl_freecrealary(i_uy2);
|
@@ -406,7 +405,7 @@ dcl_uyaxnm(obj, cside, uy1, n1, uy2, n2)
|
|
406
405
|
i_uy2 = dcl_obj2crealary(uy2);
|
407
406
|
|
408
407
|
|
409
|
-
|
408
|
+
uyaxnm__(i_cside, i_uy1, &i_n1, i_uy2, &i_n2, (ftnlen)strlen(i_cside));
|
410
409
|
|
411
410
|
dcl_freecrealary(i_uy1);
|
412
411
|
dcl_freecrealary(i_uy2);
|
@@ -438,7 +437,7 @@ dcl_uyaxdv(obj, cside, dy1, dy2)
|
|
438
437
|
i_dy2 = (real)NUM2DBL(dy2);
|
439
438
|
|
440
439
|
|
441
|
-
|
440
|
+
uyaxdv__(i_cside, &i_dy1, &i_dy2, (ftnlen)strlen(i_cside));
|
442
441
|
|
443
442
|
return Qnil;
|
444
443
|
|
@@ -467,7 +466,7 @@ dcl_uymttl(obj, cside, cttl, px)
|
|
467
466
|
i_px = (real)NUM2DBL(px);
|
468
467
|
|
469
468
|
|
470
|
-
|
469
|
+
uymttl__(i_cside, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
|
471
470
|
|
472
471
|
return Qnil;
|
473
472
|
|
@@ -496,7 +495,7 @@ dcl_uysttl(obj, cside, cttl, px)
|
|
496
495
|
i_px = (real)NUM2DBL(px);
|
497
496
|
|
498
497
|
|
499
|
-
|
498
|
+
uysttl__(i_cside, i_cttl, &i_px, (ftnlen)strlen(i_cside), (ftnlen)strlen(i_cttl));
|
500
499
|
|
501
500
|
return Qnil;
|
502
501
|
|
@@ -515,7 +514,7 @@ dcl_uysfmt(obj, cfmt)
|
|
515
514
|
i_cfmt = StringValuePtr(cfmt);
|
516
515
|
|
517
516
|
|
518
|
-
|
517
|
+
uysfmt__(i_cfmt, (ftnlen)strlen(i_cfmt));
|
519
518
|
|
520
519
|
return Qnil;
|
521
520
|
|
@@ -531,7 +530,7 @@ dcl_uyqfmt(obj)
|
|
531
530
|
o_cfmt= ALLOCA_N(char, (DFLT_SIZE+1));
|
532
531
|
memset(o_cfmt, '\0', DFLT_SIZE+1);
|
533
532
|
|
534
|
-
|
533
|
+
uyqfmt__(o_cfmt, (ftnlen)DFLT_SIZE);
|
535
534
|
|
536
535
|
cfmt = rb_str_new2(o_cfmt);
|
537
536
|
|