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/init.c.default
CHANGED
|
@@ -1,6 +1,7 @@
|
|
|
1
1
|
#include <stdio.h>
|
|
2
2
|
#include "ruby.h"
|
|
3
3
|
#include "libtinyf2c.h"
|
|
4
|
+
#include "narray.h"
|
|
4
5
|
|
|
5
6
|
/* for compatibility with ruby 1.6 */
|
|
6
7
|
#ifndef RARRAY_PTR
|
|
@@ -124,6 +125,12 @@ Init_dcl_raw()
|
|
|
124
125
|
mDCL = rb_define_module_under(mNumRu, "DCL");
|
|
125
126
|
rb_define_const(mDCL, "DCLVERSION", rb_str_new2(DCLVersion));
|
|
126
127
|
|
|
128
|
+
#ifdef NARRAY_BIGMEM
|
|
129
|
+
rb_define_const(mDCL, "SUPPORT_BIGMEM", Qtrue);
|
|
130
|
+
#else
|
|
131
|
+
rb_define_const(mDCL, "SUPPORT_BIGMEM", Qfalse);
|
|
132
|
+
#endif
|
|
133
|
+
|
|
127
134
|
init_grph1_csgi(mDCL);
|
|
128
135
|
init_grph1_scpack(mDCL);
|
|
129
136
|
init_grph1_sgpack(mDCL);
|
data/ext/numru/math1_blklib.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/math1_chrlib.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/math1_clsplib.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/math1_fnclib.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/math1_gnmlib.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/math1_gt2dlib.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/math1_ifalib.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/math1_indxlib.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/math1_intlib.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/math1_lrllib.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/math1_maplib.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/math1_oslib.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/math1_rfalib.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/math1_rfblib.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 *);
|