ruby-dcl 1.7.1 → 1.8.0
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +4 -4
- data/{ChangeLog → .ChangeLog.until20150318} +0 -0
- data/LICENSE.txt +1 -1
- data/Rakefile +7 -11
- data/demo/gokuraku/hop/hop.rb +1 -1
- data/demo/gokuraku/jump/jump1.rb +1 -1
- data/demo/gokuraku/jump/jump2.rb +1 -1
- data/demo/gokuraku/layout/lay1.rb +1 -1
- data/demo/gokuraku/layout/lay2.rb +1 -1
- data/demo/gokuraku/step/step0.rb +1 -1
- data/demo/gokuraku/step/step1.rb +1 -1
- data/demo/gokuraku/step/step2.rb +1 -1
- data/demo/gokuraku/u1d/u1d1.rb +1 -1
- data/demo/gokuraku/u1d/u1d2.rb +1 -1
- data/demo/gokuraku/u2d/u2d1.rb +1 -1
- data/demo/gokuraku/u2d/u2d2.rb +1 -1
- data/demo/gokuraku/u2d/u2d3.rb +1 -1
- data/demo/gokuraku/u2d/u2d4.rb +1 -1
- data/demo/grph1/scpack/scpkt2.rb +1 -1
- data/demo/grph1/scpack/scpkt3.rb +1 -1
- data/demo/grph1/scpack/scpkt6.rb +1 -1
- data/demo/grph1/scpack/scpkt7.rb +1 -1
- data/demo/grph1/scpack/scpkt8.rb +1 -1
- data/demo/grph1/sgpack/sgfont.rb +1 -1
- data/demo/grph1/sgpack/sgfonz.rb +1 -1
- data/demo/grph1/sgpack/sgksx1.rb +1 -1
- data/demo/grph1/sgpack/sgksx2.rb +1 -1
- data/demo/grph1/sgpack/sgksx3.rb +1 -1
- data/demo/grph1/sgpack/sglidx.rb +1 -1
- data/demo/grph1/sgpack/sgltyp.rb +1 -1
- data/demo/grph1/sgpack/sgpk01.rb +1 -1
- data/demo/grph1/sgpack/sgpk02.rb +1 -1
- data/demo/grph1/sgpack/sgpk03.rb +1 -1
- data/demo/grph1/sgpack/sgpk04.rb +1 -1
- data/demo/grph1/sgpack/sgpk05.rb +1 -1
- data/demo/grph1/sgpack/sgpk06.rb +1 -1
- data/demo/grph1/sgpack/sgpk07.rb +1 -1
- data/demo/grph1/sgpack/sgpk08.rb +1 -1
- data/demo/grph1/sgpack/sgpk09.rb +1 -1
- data/demo/grph1/sgpack/sgpk10.rb +1 -1
- data/demo/grph1/sgpack/sgtclr.rb +1 -1
- data/demo/grph1/sgpack/sgtone.rb +1 -1
- data/demo/grph1/sgpack/sgtonz.rb +1 -1
- data/demo/grph1/slpack/slpk01.rb +1 -1
- data/demo/grph1/slpack/slpk02.rb +1 -1
- data/demo/grph1/slpack/slpk03.rb +1 -1
- data/demo/grph1/slpack/slpk04.rb +1 -1
- data/demo/grph2/grpack/grpk01.rb +1 -1
- data/demo/grph2/ucpack/ucpk01.rb +1 -1
- data/demo/grph2/ucpack/ucpk02.rb +1 -1
- data/demo/grph2/udegpk/u2df01.rb +1 -1
- data/demo/grph2/udegpk/u2df02.rb +1 -1
- data/demo/grph2/udegpk/u2df03.rb +1 -1
- data/demo/grph2/udegpk/u2df04.rb +1 -1
- data/demo/grph2/udegpk/u2df05.rb +1 -1
- data/demo/grph2/udegpk/u2df06.rb +1 -1
- data/demo/grph2/udegpk/u2df07.rb +1 -1
- data/demo/grph2/udegpk/u2df08.rb +1 -1
- data/demo/grph2/uipack/uipk01.rb +1 -1
- data/demo/grph2/uipack/uipk02.rb +1 -1
- data/demo/grph2/ulpack/ulpk01.rb +1 -1
- data/demo/grph2/ulpack/ulpk01n.rb +1 -1
- data/demo/grph2/ulpack/ulpk02.rb +1 -1
- data/demo/grph2/ulpack/ulpk02n.rb +1 -1
- data/demo/grph2/umpack/test01.rb +1 -1
- data/demo/grph2/umpack/test02.rb +1 -1
- data/demo/grph2/umpack/test03.rb +1 -1
- data/demo/grph2/umpack/test04.rb +1 -1
- data/demo/grph2/umpack/test05.rb +1 -1
- data/demo/grph2/umpack/test06.rb +1 -1
- data/demo/grph2/umpack/test07.rb +1 -1
- data/demo/grph2/umpack/test08.rb +1 -1
- data/demo/grph2/umpack/umpk01.rb +1 -1
- data/demo/grph2/umpack/umpk02.rb +1 -1
- data/demo/grph2/umpack/umpk03.rb +1 -1
- data/demo/grph2/umpack/umpk04.rb +1 -1
- data/demo/grph2/umpack/umpk05.rb +1 -1
- data/demo/grph2/uspack/uspk01.rb +1 -1
- data/demo/grph2/uspack/uspk02.rb +1 -1
- data/demo/grph2/uspack/uspk03.rb +1 -1
- data/demo/grph2/uspack/uspk04.rb +1 -1
- data/demo/grph2/uspack/uspk05.rb +1 -1
- data/demo/grph2/uspack/uspk06.rb +1 -1
- data/demo/grph2/uspack/uspk07.rb +1 -1
- data/demo/grph2/uspack/uspk08.rb +1 -1
- data/demo/grph2/uspack/uspk09.rb +1 -1
- data/demo/grph2/uspack/uspk10.rb +1 -1
- data/demo/grph2/uspack/uspk11.rb +1 -1
- data/demo/grph2/uspack/uspk12.rb +1 -1
- data/demo/grph2/uupack/uupk01.rb +1 -1
- data/demo/grph2/uupack/uupk02.rb +1 -1
- data/demo/grph2/uupack/uupk03.rb +1 -1
- data/demo/grph2/uupack/uupk04.rb +1 -1
- data/demo/grph2/uupack/uupk05.rb +1 -1
- data/demo/grph2/uupack/uupk06.rb +1 -1
- data/demo/grph2/uupack/uupk07.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz01.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz02.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz03.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz04.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz05.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz06.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz07.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz08.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz09.rb +1 -1
- data/demo/grph2/uxyzpk/uxyz10.rb +1 -1
- data/demo/grph2/ximage/ximg01.rb +1 -1
- data/demo/math1/clsplib/cslb01.rb +1 -1
- data/demo/math2/fftlib/fftl01.rb +1 -1
- data/demo/math2/fftlib/fftl02.rb +1 -1
- data/demo/math2/intrlib/intr01.rb +1 -1
- data/demo/math2/rnmlib/rnml01.rb +1 -1
- data/demo/math2/vstlib/vstl01.rb +1 -1
- data/demo/math2/vstlib/vstl02.rb +1 -1
- data/demo/rakuraku/color/color1.rb +1 -1
- data/demo/rakuraku/color/color2.rb +1 -1
- data/demo/rakuraku/color/color3.rb +1 -1
- data/demo/rakuraku/kihon/kihon1.rb +1 -1
- data/demo/rakuraku/kihon/kihon2.rb +1 -1
- data/demo/rakuraku/kihon/kihon3.rb +1 -1
- data/demo/rakuraku/kihon/kihon4.rb +1 -1
- data/demo/rakuraku/kihon/kihon5.rb +1 -1
- data/demo/rakuraku/kihon/kihon6.rb +1 -1
- data/demo/rakuraku/kihon/kihon7.rb +1 -1
- data/demo/rakuraku/kihon/kihon8.rb +1 -1
- data/demo/rakuraku/kihon/kihon9.rb +1 -1
- data/demo/rakuraku/kihon/kihona.rb +1 -1
- data/demo/rakuraku/kihon/kihonb.rb +1 -1
- data/demo/rakuraku/kihon/kihonc.rb +1 -1
- data/demo/rakuraku/layout/lay1.rb +1 -1
- data/demo/rakuraku/layout/lay2.rb +1 -1
- data/demo/rakuraku/layout/lay3.rb +1 -1
- data/demo/rakuraku/map3d/map3d1.rb +1 -1
- data/demo/rakuraku/map3d/map3d2.rb +1 -1
- data/demo/rakuraku/map3d/map3d3.rb +1 -1
- data/demo/rakuraku/map3d/map3d4.rb +1 -1
- data/demo/rakuraku/map3d/map3d5.rb +1 -1
- data/demo/rakuraku/miss/miss1.rb +1 -1
- data/demo/rakuraku/miss/miss2.rb +1 -1
- data/demo/rakuraku/quick/quick1.rb +1 -1
- data/demo/rakuraku/quick/quick2.rb +1 -1
- data/demo/rakuraku/quick/quick3.rb +1 -1
- data/demo/rakuraku/quick/quick4.rb +1 -1
- data/demo/rakuraku/quick/quick5.rb +1 -1
- data/demo/rakuraku/u2d/u2d1.rb +1 -1
- data/demo/rakuraku/u2d/u2d2.rb +1 -1
- data/demo/rakuraku/u2d/u2d3.rb +1 -1
- data/demo/rakuraku/u2d/u2d4.rb +1 -1
- data/demo/rakuraku/u2d/u2d5.rb +1 -1
- data/demo/rakuraku/u2d/u2d6.rb +1 -1
- data/demo/rakuraku/u2d/u2d7.rb +1 -1
- data/demo/rakuraku/uspack/uspac1.rb +1 -1
- data/demo/rakuraku/uspack/uspac2.rb +1 -1
- data/demo/rakuraku/uspack/uspac3.rb +1 -1
- data/demo/rakuraku/uspack/uspac4.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz1.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz2.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz3.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz4.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz5.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz6.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz7.rb +1 -1
- data/demo/rakuraku/uxyz/uxyz8.rb +1 -1
- data/ext/numru/dcl_cary2obj.c +28 -23
- data/ext/numru/dcl_obj2cary.c +8 -4
- data/ext/numru/dcl_rubydcloriginal.c +14 -4
- data/ext/numru/extconf.rb +9 -51
- data/ext/numru/grph1_csgi.c +9 -5
- data/ext/numru/grph1_scpack.c +9 -5
- data/ext/numru/grph1_sgpack.c +9 -5
- data/ext/numru/grph1_slpack.c +9 -5
- data/ext/numru/grph1_stpack.c +9 -5
- data/ext/numru/grph1_swpack.c +69 -5
- data/ext/numru/grph2_grpack.c +9 -5
- data/ext/numru/grph2_ucpack.c +9 -5
- data/ext/numru/grph2_udpack.c +9 -5
- data/ext/numru/grph2_uepack.c +9 -5
- data/ext/numru/grph2_ugpack.c +9 -5
- data/ext/numru/grph2_uhpack.c +9 -5
- data/ext/numru/grph2_uipack.c +9 -5
- data/ext/numru/grph2_ulpack.c +9 -5
- data/ext/numru/grph2_umpack.c +9 -5
- data/ext/numru/grph2_uspack.c +9 -5
- data/ext/numru/grph2_uupack.c +9 -5
- data/ext/numru/grph2_uvpack.c +9 -5
- data/ext/numru/grph2_uwpack.c +9 -5
- data/ext/numru/grph2_uxpack.c +9 -5
- data/ext/numru/grph2_uypack.c +9 -5
- data/ext/numru/grph2_uzpack.c +9 -5
- data/ext/numru/init.c +202 -0
- data/ext/numru/init.c.default +7 -0
- data/ext/numru/math1_blklib.c +9 -5
- data/ext/numru/math1_chrlib.c +9 -5
- data/ext/numru/math1_clsplib.c +9 -5
- data/ext/numru/math1_fnclib.c +9 -5
- data/ext/numru/math1_gnmlib.c +9 -5
- data/ext/numru/math1_gt2dlib.c +9 -5
- data/ext/numru/math1_ifalib.c +9 -5
- data/ext/numru/math1_indxlib.c +9 -5
- data/ext/numru/math1_intlib.c +9 -5
- data/ext/numru/math1_lrllib.c +9 -5
- data/ext/numru/math1_maplib.c +9 -5
- data/ext/numru/math1_oslib.c +9 -5
- data/ext/numru/math1_rfalib.c +9 -5
- data/ext/numru/math1_rfblib.c +9 -5
- data/ext/numru/math1_sublib.c +9 -5
- data/ext/numru/math1_syslib.c +9 -5
- data/ext/numru/math1_vialib.c +9 -5
- data/ext/numru/math1_viblib.c +9 -5
- data/ext/numru/math1_vralib.c +9 -5
- data/ext/numru/math1_vrblib.c +9 -5
- data/ext/numru/math1_xfclib.c +9 -5
- data/ext/numru/math2_fftlib.c +9 -5
- data/ext/numru/math2_intrlib.c +9 -5
- data/ext/numru/math2_rnmlib.c +9 -5
- data/ext/numru/math2_shtlib.c +9 -5
- data/ext/numru/math2_vstlib.c +9 -5
- data/ext/numru/misc1_chnlib.c +9 -5
- data/ext/numru/misc1_datelib.c +9 -5
- data/ext/numru/misc1_fmtlib.c +9 -5
- data/ext/numru/misc1_misclib.c +9 -5
- data/ext/numru/misc1_randlib.c +9 -5
- data/ext/numru/misc1_timelib.c +9 -5
- data/lib/numru/dcl.rb +6 -5580
- data/lib/numru/dcl/dcl.rb +5591 -0
- data/lib/numru/dcl/version.rb +5 -0
- data/ruby-dcl-bigmem.gemspec +36 -0
- data/ruby-dcl.gemspec +10 -9
- metadata +17 -93
- data/.gitignore +0 -13
- data/.rspec +0 -2
- data/.travis.yml +0 -3
- data/GenWrapper/cproto2init.rb +0 -41
- data/GenWrapper/dcl_narrayed_funcs.rb +0 -181
- data/GenWrapper/dcl_rb_footing +0 -29
- data/GenWrapper/dcl_rb_heading +0 -123
- data/GenWrapper/def.rb +0 -20
- data/GenWrapper/elim_ary_size.rb +0 -398
- data/GenWrapper/etc/p_header +0 -64
- data/GenWrapper/pparse.rb +0 -137
- data/GenWrapper/proto/grph1_00 +0 -17
- data/GenWrapper/proto/grph1_csgi.fp +0 -27
- data/GenWrapper/proto/grph1_scpack.fp +0 -442
- data/GenWrapper/proto/grph1_sgpack.fp +0 -1772
- data/GenWrapper/proto/grph1_slpack.fp +0 -316
- data/GenWrapper/proto/grph1_stpack.fp +0 -455
- data/GenWrapper/proto/grph1_swpack.fp +0 -826
- data/GenWrapper/proto/grph2_00 +0 -16
- data/GenWrapper/proto/grph2_grpack.fp +0 -139
- data/GenWrapper/proto/grph2_ucpack.fp +0 -522
- data/GenWrapper/proto/grph2_udpack.fp +0 -692
- data/GenWrapper/proto/grph2_uepack.fp +0 -601
- data/GenWrapper/proto/grph2_ugpack.fp +0 -436
- data/GenWrapper/proto/grph2_uhpack.fp +0 -246
- data/GenWrapper/proto/grph2_uipack.fp +0 -508
- data/GenWrapper/proto/grph2_ulpack.fp +0 -516
- data/GenWrapper/proto/grph2_umpack.fp +0 -676
- data/GenWrapper/proto/grph2_uspack.fp +0 -989
- data/GenWrapper/proto/grph2_uupack.fp +0 -663
- data/GenWrapper/proto/grph2_uvpack.fp +0 -246
- data/GenWrapper/proto/grph2_uwpack.fp +0 -203
- data/GenWrapper/proto/grph2_uxpack.fp +0 -295
- data/GenWrapper/proto/grph2_uypack.fp +0 -295
- data/GenWrapper/proto/grph2_uzpack.fp +0 -574
- data/GenWrapper/proto/math1_00 +0 -12
- data/GenWrapper/proto/math1_blklib.fp +0 -58
- data/GenWrapper/proto/math1_chrlib.fp +0 -83
- data/GenWrapper/proto/math1_clsplib.fp +0 -74
- data/GenWrapper/proto/math1_fnclib.fp +0 -79
- data/GenWrapper/proto/math1_gnmlib.fp +0 -118
- data/GenWrapper/proto/math1_gt2dlib.fp +0 -144
- data/GenWrapper/proto/math1_ifalib.fp +0 -123
- data/GenWrapper/proto/math1_indxlib.fp +0 -222
- data/GenWrapper/proto/math1_intlib.fp +0 -46
- data/GenWrapper/proto/math1_lrllib.fp +0 -276
- data/GenWrapper/proto/math1_maplib.fp +0 -24
- data/GenWrapper/proto/math1_oslib.fp +0 -28
- data/GenWrapper/proto/math1_rfalib.fp +0 -420
- data/GenWrapper/proto/math1_rfblib.fp +0 -51
- data/GenWrapper/proto/math1_sublib.fp +0 -60
- data/GenWrapper/proto/math1_syslib.fp +0 -767
- data/GenWrapper/proto/math1_vialib.fp +0 -339
- data/GenWrapper/proto/math1_viblib.fp +0 -264
- data/GenWrapper/proto/math1_vralib.fp +0 -339
- data/GenWrapper/proto/math1_vrblib.fp +0 -264
- data/GenWrapper/proto/math1_xfclib.fp +0 -68
- data/GenWrapper/proto/math2_00 +0 -12
- data/GenWrapper/proto/math2_fftlib.fp +0 -803
- data/GenWrapper/proto/math2_intrlib.fp +0 -32
- data/GenWrapper/proto/math2_odelib.fp_notused +0 -568
- data/GenWrapper/proto/math2_rnmlib.fp +0 -54
- data/GenWrapper/proto/math2_shtlib.fp +0 -1292
- data/GenWrapper/proto/math2_vstlib.fp +0 -84
- data/GenWrapper/proto/misc1_00 +0 -17
- data/GenWrapper/proto/misc1_chnlib.fp +0 -47
- data/GenWrapper/proto/misc1_datelib.fp +0 -352
- data/GenWrapper/proto/misc1_fmtlib.fp +0 -19
- data/GenWrapper/proto/misc1_misclib.fp +0 -26
- data/GenWrapper/proto/misc1_randlib.fp +0 -50
- data/GenWrapper/proto/misc1_timelib.fp +0 -151
- data/GenWrapper/proto2c.rb +0 -13
- data/GenWrapper/prototype.rb +0 -209
- data/GenWrapper/util.rb +0 -9
- data/GenWrapper/variable.rb +0 -671
- data/ToDo +0 -2
- data/bin/console +0 -14
- data/bin/setup +0 -7
data/ext/numru/grph1_csgi.c
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
/*
|
|
2
|
-
* $Id
|
|
2
|
+
* $Id$
|
|
3
3
|
*/
|
|
4
4
|
|
|
5
5
|
#include <stdio.h>
|
|
@@ -15,6 +15,10 @@
|
|
|
15
15
|
|
|
16
16
|
#define DFLT_SIZE 32
|
|
17
17
|
|
|
18
|
+
#ifndef NARRAY_BIGMEM
|
|
19
|
+
typedef int na_shape_t;
|
|
20
|
+
#endif
|
|
21
|
+
|
|
18
22
|
extern char *dcl_obj2ccharary(VALUE, int, int);
|
|
19
23
|
extern integer *dcl_obj2cintegerary(VALUE);
|
|
20
24
|
extern real *dcl_obj2crealary(VALUE);
|
|
@@ -22,10 +26,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
|
|
|
22
26
|
extern logical *dcl_obj2clogicalary(VALUE);
|
|
23
27
|
|
|
24
28
|
extern VALUE dcl_ccharary2obj(char *, int, int);
|
|
25
|
-
extern VALUE dcl_cintegerary2obj(integer *,
|
|
26
|
-
extern VALUE dcl_crealary2obj(real *,
|
|
27
|
-
extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
|
|
28
|
-
extern VALUE dcl_clogicalary2obj(logical *,
|
|
29
|
+
extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
|
|
30
|
+
extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
|
|
31
|
+
/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
|
|
32
|
+
extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
|
|
29
33
|
|
|
30
34
|
extern void dcl_freeccharary(char *);
|
|
31
35
|
extern void dcl_freecintegerary(integer *);
|
data/ext/numru/grph1_scpack.c
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
/*
|
|
2
|
-
* $Id
|
|
2
|
+
* $Id$
|
|
3
3
|
*/
|
|
4
4
|
|
|
5
5
|
#include <stdio.h>
|
|
@@ -15,6 +15,10 @@
|
|
|
15
15
|
|
|
16
16
|
#define DFLT_SIZE 32
|
|
17
17
|
|
|
18
|
+
#ifndef NARRAY_BIGMEM
|
|
19
|
+
typedef int na_shape_t;
|
|
20
|
+
#endif
|
|
21
|
+
|
|
18
22
|
extern char *dcl_obj2ccharary(VALUE, int, int);
|
|
19
23
|
extern integer *dcl_obj2cintegerary(VALUE);
|
|
20
24
|
extern real *dcl_obj2crealary(VALUE);
|
|
@@ -22,10 +26,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
|
|
|
22
26
|
extern logical *dcl_obj2clogicalary(VALUE);
|
|
23
27
|
|
|
24
28
|
extern VALUE dcl_ccharary2obj(char *, int, int);
|
|
25
|
-
extern VALUE dcl_cintegerary2obj(integer *,
|
|
26
|
-
extern VALUE dcl_crealary2obj(real *,
|
|
27
|
-
extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
|
|
28
|
-
extern VALUE dcl_clogicalary2obj(logical *,
|
|
29
|
+
extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
|
|
30
|
+
extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
|
|
31
|
+
/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
|
|
32
|
+
extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
|
|
29
33
|
|
|
30
34
|
extern void dcl_freeccharary(char *);
|
|
31
35
|
extern void dcl_freecintegerary(integer *);
|
data/ext/numru/grph1_sgpack.c
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
/*
|
|
2
|
-
* $Id
|
|
2
|
+
* $Id$
|
|
3
3
|
*/
|
|
4
4
|
|
|
5
5
|
#include <stdio.h>
|
|
@@ -15,6 +15,10 @@
|
|
|
15
15
|
|
|
16
16
|
#define DFLT_SIZE 32
|
|
17
17
|
|
|
18
|
+
#ifndef NARRAY_BIGMEM
|
|
19
|
+
typedef int na_shape_t;
|
|
20
|
+
#endif
|
|
21
|
+
|
|
18
22
|
extern char *dcl_obj2ccharary(VALUE, int, int);
|
|
19
23
|
extern integer *dcl_obj2cintegerary(VALUE);
|
|
20
24
|
extern real *dcl_obj2crealary(VALUE);
|
|
@@ -22,10 +26,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
|
|
|
22
26
|
extern logical *dcl_obj2clogicalary(VALUE);
|
|
23
27
|
|
|
24
28
|
extern VALUE dcl_ccharary2obj(char *, int, int);
|
|
25
|
-
extern VALUE dcl_cintegerary2obj(integer *,
|
|
26
|
-
extern VALUE dcl_crealary2obj(real *,
|
|
27
|
-
extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
|
|
28
|
-
extern VALUE dcl_clogicalary2obj(logical *,
|
|
29
|
+
extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
|
|
30
|
+
extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
|
|
31
|
+
/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
|
|
32
|
+
extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
|
|
29
33
|
|
|
30
34
|
extern void dcl_freeccharary(char *);
|
|
31
35
|
extern void dcl_freecintegerary(integer *);
|
data/ext/numru/grph1_slpack.c
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
/*
|
|
2
|
-
* $Id
|
|
2
|
+
* $Id$
|
|
3
3
|
*/
|
|
4
4
|
|
|
5
5
|
#include <stdio.h>
|
|
@@ -15,6 +15,10 @@
|
|
|
15
15
|
|
|
16
16
|
#define DFLT_SIZE 32
|
|
17
17
|
|
|
18
|
+
#ifndef NARRAY_BIGMEM
|
|
19
|
+
typedef int na_shape_t;
|
|
20
|
+
#endif
|
|
21
|
+
|
|
18
22
|
extern char *dcl_obj2ccharary(VALUE, int, int);
|
|
19
23
|
extern integer *dcl_obj2cintegerary(VALUE);
|
|
20
24
|
extern real *dcl_obj2crealary(VALUE);
|
|
@@ -22,10 +26,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
|
|
|
22
26
|
extern logical *dcl_obj2clogicalary(VALUE);
|
|
23
27
|
|
|
24
28
|
extern VALUE dcl_ccharary2obj(char *, int, int);
|
|
25
|
-
extern VALUE dcl_cintegerary2obj(integer *,
|
|
26
|
-
extern VALUE dcl_crealary2obj(real *,
|
|
27
|
-
extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
|
|
28
|
-
extern VALUE dcl_clogicalary2obj(logical *,
|
|
29
|
+
extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
|
|
30
|
+
extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
|
|
31
|
+
/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
|
|
32
|
+
extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
|
|
29
33
|
|
|
30
34
|
extern void dcl_freeccharary(char *);
|
|
31
35
|
extern void dcl_freecintegerary(integer *);
|
data/ext/numru/grph1_stpack.c
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
/*
|
|
2
|
-
* $Id
|
|
2
|
+
* $Id$
|
|
3
3
|
*/
|
|
4
4
|
|
|
5
5
|
#include <stdio.h>
|
|
@@ -15,6 +15,10 @@
|
|
|
15
15
|
|
|
16
16
|
#define DFLT_SIZE 32
|
|
17
17
|
|
|
18
|
+
#ifndef NARRAY_BIGMEM
|
|
19
|
+
typedef int na_shape_t;
|
|
20
|
+
#endif
|
|
21
|
+
|
|
18
22
|
extern char *dcl_obj2ccharary(VALUE, int, int);
|
|
19
23
|
extern integer *dcl_obj2cintegerary(VALUE);
|
|
20
24
|
extern real *dcl_obj2crealary(VALUE);
|
|
@@ -22,10 +26,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
|
|
|
22
26
|
extern logical *dcl_obj2clogicalary(VALUE);
|
|
23
27
|
|
|
24
28
|
extern VALUE dcl_ccharary2obj(char *, int, int);
|
|
25
|
-
extern VALUE dcl_cintegerary2obj(integer *,
|
|
26
|
-
extern VALUE dcl_crealary2obj(real *,
|
|
27
|
-
extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
|
|
28
|
-
extern VALUE dcl_clogicalary2obj(logical *,
|
|
29
|
+
extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
|
|
30
|
+
extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
|
|
31
|
+
/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
|
|
32
|
+
extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
|
|
29
33
|
|
|
30
34
|
extern void dcl_freeccharary(char *);
|
|
31
35
|
extern void dcl_freecintegerary(integer *);
|
data/ext/numru/grph1_swpack.c
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
/*
|
|
2
|
-
* $Id
|
|
2
|
+
* $Id$
|
|
3
3
|
*/
|
|
4
4
|
|
|
5
5
|
#include <stdio.h>
|
|
@@ -15,6 +15,10 @@
|
|
|
15
15
|
|
|
16
16
|
#define DFLT_SIZE 32
|
|
17
17
|
|
|
18
|
+
#ifndef NARRAY_BIGMEM
|
|
19
|
+
typedef int na_shape_t;
|
|
20
|
+
#endif
|
|
21
|
+
|
|
18
22
|
extern char *dcl_obj2ccharary(VALUE, int, int);
|
|
19
23
|
extern integer *dcl_obj2cintegerary(VALUE);
|
|
20
24
|
extern real *dcl_obj2crealary(VALUE);
|
|
@@ -22,10 +26,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
|
|
|
22
26
|
extern logical *dcl_obj2clogicalary(VALUE);
|
|
23
27
|
|
|
24
28
|
extern VALUE dcl_ccharary2obj(char *, int, int);
|
|
25
|
-
extern VALUE dcl_cintegerary2obj(integer *,
|
|
26
|
-
extern VALUE dcl_crealary2obj(real *,
|
|
27
|
-
extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
|
|
28
|
-
extern VALUE dcl_clogicalary2obj(logical *,
|
|
29
|
+
extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
|
|
30
|
+
extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
|
|
31
|
+
/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
|
|
32
|
+
extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
|
|
29
33
|
|
|
30
34
|
extern void dcl_freeccharary(char *);
|
|
31
35
|
extern void dcl_freecintegerary(integer *);
|
|
@@ -784,6 +788,57 @@ dcl_swclch(obj)
|
|
|
784
788
|
|
|
785
789
|
#endif
|
|
786
790
|
|
|
791
|
+
#if DCLVER >= 700
|
|
792
|
+
|
|
793
|
+
static VALUE
|
|
794
|
+
dcl_swslft(obj)
|
|
795
|
+
VALUE obj;
|
|
796
|
+
{
|
|
797
|
+
char *o_fontname;
|
|
798
|
+
VALUE fontname;
|
|
799
|
+
|
|
800
|
+
o_fontname= ALLOCA_N(char, (DFLT_SIZE+1));
|
|
801
|
+
memset(o_fontname, '\0', DFLT_SIZE+1);
|
|
802
|
+
|
|
803
|
+
swslft_(o_fontname, (ftnlen)DFLT_SIZE);
|
|
804
|
+
|
|
805
|
+
fontname = rb_str_new2(o_fontname);
|
|
806
|
+
|
|
807
|
+
|
|
808
|
+
return fontname;
|
|
809
|
+
|
|
810
|
+
}
|
|
811
|
+
|
|
812
|
+
#endif
|
|
813
|
+
|
|
814
|
+
#if DCLVER >= 700
|
|
815
|
+
|
|
816
|
+
static VALUE
|
|
817
|
+
dcl_swlsft(obj)
|
|
818
|
+
VALUE obj;
|
|
819
|
+
{
|
|
820
|
+
swlsft_();
|
|
821
|
+
|
|
822
|
+
return Qnil;
|
|
823
|
+
|
|
824
|
+
}
|
|
825
|
+
|
|
826
|
+
#endif
|
|
827
|
+
|
|
828
|
+
#if DCLVER >= 700
|
|
829
|
+
|
|
830
|
+
static VALUE
|
|
831
|
+
dcl_swflsh(obj)
|
|
832
|
+
VALUE obj;
|
|
833
|
+
{
|
|
834
|
+
swflsh_();
|
|
835
|
+
|
|
836
|
+
return Qnil;
|
|
837
|
+
|
|
838
|
+
}
|
|
839
|
+
|
|
840
|
+
#endif
|
|
841
|
+
|
|
787
842
|
static VALUE
|
|
788
843
|
dcl_swpqnp(obj)
|
|
789
844
|
VALUE obj;
|
|
@@ -2080,6 +2135,15 @@ VALUE mDCL;
|
|
|
2080
2135
|
rb_define_module_function(mDCL, "swsrot", dcl_swsrot, 1);
|
|
2081
2136
|
#if DCLVER >= 544
|
|
2082
2137
|
rb_define_module_function(mDCL, "swclch", dcl_swclch, 0);
|
|
2138
|
+
#endif
|
|
2139
|
+
#if DCLVER >= 700
|
|
2140
|
+
rb_define_module_function(mDCL, "swslft", dcl_swslft, 0);
|
|
2141
|
+
#endif
|
|
2142
|
+
#if DCLVER >= 700
|
|
2143
|
+
rb_define_module_function(mDCL, "swlsft", dcl_swlsft, 0);
|
|
2144
|
+
#endif
|
|
2145
|
+
#if DCLVER >= 700
|
|
2146
|
+
rb_define_module_function(mDCL, "swflsh", dcl_swflsh, 0);
|
|
2083
2147
|
#endif
|
|
2084
2148
|
rb_define_module_function(mDCL, "swpqnp", dcl_swpqnp, 0);
|
|
2085
2149
|
rb_define_module_function(mDCL, "swpqid", dcl_swpqid, 1);
|
data/ext/numru/grph2_grpack.c
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
/*
|
|
2
|
-
* $Id
|
|
2
|
+
* $Id$
|
|
3
3
|
*/
|
|
4
4
|
|
|
5
5
|
#include <stdio.h>
|
|
@@ -15,6 +15,10 @@
|
|
|
15
15
|
|
|
16
16
|
#define DFLT_SIZE 32
|
|
17
17
|
|
|
18
|
+
#ifndef NARRAY_BIGMEM
|
|
19
|
+
typedef int na_shape_t;
|
|
20
|
+
#endif
|
|
21
|
+
|
|
18
22
|
extern char *dcl_obj2ccharary(VALUE, int, int);
|
|
19
23
|
extern integer *dcl_obj2cintegerary(VALUE);
|
|
20
24
|
extern real *dcl_obj2crealary(VALUE);
|
|
@@ -22,10 +26,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
|
|
|
22
26
|
extern logical *dcl_obj2clogicalary(VALUE);
|
|
23
27
|
|
|
24
28
|
extern VALUE dcl_ccharary2obj(char *, int, int);
|
|
25
|
-
extern VALUE dcl_cintegerary2obj(integer *,
|
|
26
|
-
extern VALUE dcl_crealary2obj(real *,
|
|
27
|
-
extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
|
|
28
|
-
extern VALUE dcl_clogicalary2obj(logical *,
|
|
29
|
+
extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
|
|
30
|
+
extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
|
|
31
|
+
/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
|
|
32
|
+
extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
|
|
29
33
|
|
|
30
34
|
extern void dcl_freeccharary(char *);
|
|
31
35
|
extern void dcl_freecintegerary(integer *);
|
data/ext/numru/grph2_ucpack.c
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
/*
|
|
2
|
-
* $Id
|
|
2
|
+
* $Id$
|
|
3
3
|
*/
|
|
4
4
|
|
|
5
5
|
#include <stdio.h>
|
|
@@ -15,6 +15,10 @@
|
|
|
15
15
|
|
|
16
16
|
#define DFLT_SIZE 32
|
|
17
17
|
|
|
18
|
+
#ifndef NARRAY_BIGMEM
|
|
19
|
+
typedef int na_shape_t;
|
|
20
|
+
#endif
|
|
21
|
+
|
|
18
22
|
extern char *dcl_obj2ccharary(VALUE, int, int);
|
|
19
23
|
extern integer *dcl_obj2cintegerary(VALUE);
|
|
20
24
|
extern real *dcl_obj2crealary(VALUE);
|
|
@@ -22,10 +26,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
|
|
|
22
26
|
extern logical *dcl_obj2clogicalary(VALUE);
|
|
23
27
|
|
|
24
28
|
extern VALUE dcl_ccharary2obj(char *, int, int);
|
|
25
|
-
extern VALUE dcl_cintegerary2obj(integer *,
|
|
26
|
-
extern VALUE dcl_crealary2obj(real *,
|
|
27
|
-
extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
|
|
28
|
-
extern VALUE dcl_clogicalary2obj(logical *,
|
|
29
|
+
extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
|
|
30
|
+
extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
|
|
31
|
+
/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
|
|
32
|
+
extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
|
|
29
33
|
|
|
30
34
|
extern void dcl_freeccharary(char *);
|
|
31
35
|
extern void dcl_freecintegerary(integer *);
|
data/ext/numru/grph2_udpack.c
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
/*
|
|
2
|
-
* $Id
|
|
2
|
+
* $Id$
|
|
3
3
|
*/
|
|
4
4
|
|
|
5
5
|
#include <stdio.h>
|
|
@@ -15,6 +15,10 @@
|
|
|
15
15
|
|
|
16
16
|
#define DFLT_SIZE 32
|
|
17
17
|
|
|
18
|
+
#ifndef NARRAY_BIGMEM
|
|
19
|
+
typedef int na_shape_t;
|
|
20
|
+
#endif
|
|
21
|
+
|
|
18
22
|
extern char *dcl_obj2ccharary(VALUE, int, int);
|
|
19
23
|
extern integer *dcl_obj2cintegerary(VALUE);
|
|
20
24
|
extern real *dcl_obj2crealary(VALUE);
|
|
@@ -22,10 +26,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
|
|
|
22
26
|
extern logical *dcl_obj2clogicalary(VALUE);
|
|
23
27
|
|
|
24
28
|
extern VALUE dcl_ccharary2obj(char *, int, int);
|
|
25
|
-
extern VALUE dcl_cintegerary2obj(integer *,
|
|
26
|
-
extern VALUE dcl_crealary2obj(real *,
|
|
27
|
-
extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
|
|
28
|
-
extern VALUE dcl_clogicalary2obj(logical *,
|
|
29
|
+
extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
|
|
30
|
+
extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
|
|
31
|
+
/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
|
|
32
|
+
extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
|
|
29
33
|
|
|
30
34
|
extern void dcl_freeccharary(char *);
|
|
31
35
|
extern void dcl_freecintegerary(integer *);
|
data/ext/numru/grph2_uepack.c
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
/*
|
|
2
|
-
* $Id
|
|
2
|
+
* $Id$
|
|
3
3
|
*/
|
|
4
4
|
|
|
5
5
|
#include <stdio.h>
|
|
@@ -15,6 +15,10 @@
|
|
|
15
15
|
|
|
16
16
|
#define DFLT_SIZE 32
|
|
17
17
|
|
|
18
|
+
#ifndef NARRAY_BIGMEM
|
|
19
|
+
typedef int na_shape_t;
|
|
20
|
+
#endif
|
|
21
|
+
|
|
18
22
|
extern char *dcl_obj2ccharary(VALUE, int, int);
|
|
19
23
|
extern integer *dcl_obj2cintegerary(VALUE);
|
|
20
24
|
extern real *dcl_obj2crealary(VALUE);
|
|
@@ -22,10 +26,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
|
|
|
22
26
|
extern logical *dcl_obj2clogicalary(VALUE);
|
|
23
27
|
|
|
24
28
|
extern VALUE dcl_ccharary2obj(char *, int, int);
|
|
25
|
-
extern VALUE dcl_cintegerary2obj(integer *,
|
|
26
|
-
extern VALUE dcl_crealary2obj(real *,
|
|
27
|
-
extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
|
|
28
|
-
extern VALUE dcl_clogicalary2obj(logical *,
|
|
29
|
+
extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
|
|
30
|
+
extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
|
|
31
|
+
/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
|
|
32
|
+
extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
|
|
29
33
|
|
|
30
34
|
extern void dcl_freeccharary(char *);
|
|
31
35
|
extern void dcl_freecintegerary(integer *);
|
data/ext/numru/grph2_ugpack.c
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
/*
|
|
2
|
-
* $Id
|
|
2
|
+
* $Id$
|
|
3
3
|
*/
|
|
4
4
|
|
|
5
5
|
#include <stdio.h>
|
|
@@ -15,6 +15,10 @@
|
|
|
15
15
|
|
|
16
16
|
#define DFLT_SIZE 32
|
|
17
17
|
|
|
18
|
+
#ifndef NARRAY_BIGMEM
|
|
19
|
+
typedef int na_shape_t;
|
|
20
|
+
#endif
|
|
21
|
+
|
|
18
22
|
extern char *dcl_obj2ccharary(VALUE, int, int);
|
|
19
23
|
extern integer *dcl_obj2cintegerary(VALUE);
|
|
20
24
|
extern real *dcl_obj2crealary(VALUE);
|
|
@@ -22,10 +26,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
|
|
|
22
26
|
extern logical *dcl_obj2clogicalary(VALUE);
|
|
23
27
|
|
|
24
28
|
extern VALUE dcl_ccharary2obj(char *, int, int);
|
|
25
|
-
extern VALUE dcl_cintegerary2obj(integer *,
|
|
26
|
-
extern VALUE dcl_crealary2obj(real *,
|
|
27
|
-
extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
|
|
28
|
-
extern VALUE dcl_clogicalary2obj(logical *,
|
|
29
|
+
extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
|
|
30
|
+
extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
|
|
31
|
+
/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
|
|
32
|
+
extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
|
|
29
33
|
|
|
30
34
|
extern void dcl_freeccharary(char *);
|
|
31
35
|
extern void dcl_freecintegerary(integer *);
|
data/ext/numru/grph2_uhpack.c
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
/*
|
|
2
|
-
* $Id
|
|
2
|
+
* $Id$
|
|
3
3
|
*/
|
|
4
4
|
|
|
5
5
|
#include <stdio.h>
|
|
@@ -15,6 +15,10 @@
|
|
|
15
15
|
|
|
16
16
|
#define DFLT_SIZE 32
|
|
17
17
|
|
|
18
|
+
#ifndef NARRAY_BIGMEM
|
|
19
|
+
typedef int na_shape_t;
|
|
20
|
+
#endif
|
|
21
|
+
|
|
18
22
|
extern char *dcl_obj2ccharary(VALUE, int, int);
|
|
19
23
|
extern integer *dcl_obj2cintegerary(VALUE);
|
|
20
24
|
extern real *dcl_obj2crealary(VALUE);
|
|
@@ -22,10 +26,10 @@ extern complex *dcl_obj2ccomplexary(VALUE);
|
|
|
22
26
|
extern logical *dcl_obj2clogicalary(VALUE);
|
|
23
27
|
|
|
24
28
|
extern VALUE dcl_ccharary2obj(char *, int, int);
|
|
25
|
-
extern VALUE dcl_cintegerary2obj(integer *,
|
|
26
|
-
extern VALUE dcl_crealary2obj(real *,
|
|
27
|
-
extern VALUE dcl_ccomplexary2obj(complex *, int, char *);
|
|
28
|
-
extern VALUE dcl_clogicalary2obj(logical *,
|
|
29
|
+
extern VALUE dcl_cintegerary2obj(integer *, na_shape_t, int, na_shape_t *);
|
|
30
|
+
extern VALUE dcl_crealary2obj(real *, na_shape_t, int, na_shape_t *);
|
|
31
|
+
/* extern VALUE dcl_ccomplexary2obj(complex *, int, char *); */
|
|
32
|
+
extern VALUE dcl_clogicalary2obj(logical *, na_shape_t, int, na_shape_t *);
|
|
29
33
|
|
|
30
34
|
extern void dcl_freeccharary(char *);
|
|
31
35
|
extern void dcl_freecintegerary(integer *);
|