10#define SWIG_VERSION 0x040201
12#define SWIG_LUA_TARGET SWIG_LUA_FLAVOR_LUA
13#define SWIG_LUA_MODULE_GLOBAL
21#ifndef SWIGTEMPLATEDISAMBIGUATOR
22# if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
23# define SWIGTEMPLATEDISAMBIGUATOR template
24# elif defined(__HP_aCC)
27# define SWIGTEMPLATEDISAMBIGUATOR template
29# define SWIGTEMPLATEDISAMBIGUATOR
35# if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
36# define SWIGINLINE inline
45# if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
46# define SWIGUNUSED __attribute__ ((__unused__))
51# define SWIGUNUSED __attribute__ ((__unused__))
57#ifndef SWIG_MSC_UNSUPPRESS_4505
59# pragma warning(disable : 4505)
65# define SWIGUNUSEDPARM(p)
67# define SWIGUNUSEDPARM(p) p SWIGUNUSED
73# define SWIGINTERN static SWIGUNUSED
77#ifndef SWIGINTERNINLINE
78# define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
83# if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
84# ifndef GCC_HASCLASSVISIBILITY
85# define GCC_HASCLASSVISIBILITY
91# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
92# if defined(STATIC_LINKED)
95# define SWIGEXPORT __declspec(dllexport)
98# if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
99# define SWIGEXPORT __attribute__ ((visibility("default")))
108# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
109# define SWIGSTDCALL __stdcall
116#if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
117# define _CRT_SECURE_NO_DEPRECATE
121#if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
122# define _SCL_SECURE_NO_DEPRECATE
126#if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
127# define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
135#ifdef __INTEL_COMPILER
136# pragma warning disable 592
139#if defined(__cplusplus) && __cplusplus >=201103L
140# define SWIG_NULLPTR nullptr
142# define SWIG_NULLPTR NULL
154#if ((defined __STDC_VERSION__ && __STDC_VERSION__ >= 199901L) || \
155 (defined __cplusplus && __cplusplus >= 201103L) || \
156 defined SWIG_HAVE_SNPRINTF) && \
157 !defined SWIG_NO_SNPRINTF
158# define SWIG_snprintf(O,S,F,A) snprintf(O,S,F,A)
159# define SWIG_snprintf2(O,S,F,A,B) snprintf(O,S,F,A,B)
165# define SWIG_snprintf(O,S,F,A) sprintf(O,F,A)
166# define SWIG_snprintf2(O,S,F,A,B) sprintf(O,F,A,B)
178#define SWIG_RUNTIME_VERSION "4"
181#ifdef SWIG_TYPE_TABLE
182# define SWIG_QUOTE_STRING(x) #x
183# define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
184# define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
186# define SWIG_TYPE_TABLE_NAME
199# define SWIGRUNTIME SWIGINTERN
202#ifndef SWIGRUNTIMEINLINE
203# define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
207#ifndef SWIG_BUFFER_SIZE
208# define SWIG_BUFFER_SIZE 1024
212#define SWIG_POINTER_DISOWN 0x1
213#define SWIG_CAST_NEW_MEMORY 0x2
214#define SWIG_POINTER_NO_NULL 0x4
215#define SWIG_POINTER_CLEAR 0x8
216#define SWIG_POINTER_RELEASE (SWIG_POINTER_CLEAR | SWIG_POINTER_DISOWN)
219#define SWIG_POINTER_OWN 0x1
303#define SWIG_ERROR (-1)
307#define SWIG_ERROR_RELEASE_NOT_OWNED (-200)
309#define SWIG_IsOK(r) (r >= 0)
310#define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
313#define SWIG_CASTRANKLIMIT (1 << 8)
315#define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
317#define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
319#define SWIG_BADOBJ (SWIG_ERROR)
320#define SWIG_OLDOBJ (SWIG_OK)
321#define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
322#define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
324#define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
325#define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
326#define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
327#define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
328#define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
329#define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
332#if defined(SWIG_CASTRANK_MODE)
333# ifndef SWIG_TypeRank
334# define SWIG_TypeRank unsigned long
336# ifndef SWIG_MAXCASTRANK
337# define SWIG_MAXCASTRANK (2)
339# define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
340# define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
345 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
348# define SWIG_AddCast(r) (r)
349# define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
359typedef void *(*swig_converter_func)(
void *,
int *);
401 const char *f2,
const char *l2) {
402 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
403 while ((*f1 ==
' ') && (f1 != l1)) ++f1;
404 while ((*f2 ==
' ') && (f2 != l2)) ++f2;
405 if (*f1 != *f2)
return (*f1 > *f2) ? 1 : -1;
407 return (
int)((l1 - f1) - (l2 - f2));
417 const char* te = tb + strlen(tb);
419 while (equiv != 0 && *ne) {
420 for (nb = ne; *ne; ++ne) {
421 if (*ne ==
'|')
break;
446 if (strcmp(iter->
type->
name, c) == 0) {
447 if (iter == ty->
cast)
473 if (iter->
type == from) {
474 if (iter == ty->
cast)
506 if (!ty || !ty->
dcast)
return ty;
507 while (ty && (ty->
dcast)) {
508 ty = (*ty->
dcast)(ptr);
532 if (!type)
return NULL;
533 if (type->str != NULL) {
534 const char *last_name = type->str;
536 for (s = type->str; *s; s++)
537 if (*s ==
'|') last_name = s+1;
585 size_t r = iter->
size - 1;
588 size_t i = (l + r) >> 1;
589 const char *iname = iter->
types[i]->
name;
591 int compare = strcmp(
name, iname);
593 return iter->
types[i];
594 }
else if (compare < 0) {
600 }
else if (compare > 0) {
609 }
while (iter != end);
636 for (; i < iter->
size; ++i) {
638 return iter->
types[i];
641 }
while (iter != end);
653 static const char hex[17] =
"0123456789abcdef";
654 const unsigned char *u = (
unsigned char *) ptr;
655 const unsigned char *eu = u + sz;
656 for (; u != eu; ++u) {
657 unsigned char uu = *u;
658 *(c++) = hex[(uu & 0xf0) >> 4];
659 *(c++) = hex[uu & 0xf];
669 unsigned char *u = (
unsigned char *) ptr;
670 const unsigned char *eu = u + sz;
671 for (; u != eu; ++u) {
674 if ((d >=
'0') && (d <=
'9'))
675 uu = (
unsigned char)((d -
'0') << 4);
676 else if ((d >=
'a') && (d <=
'f'))
677 uu = (
unsigned char)((d - (
'a'-10)) << 4);
681 if ((d >=
'0') && (d <=
'9'))
682 uu |= (
unsigned char)(d -
'0');
683 else if ((d >=
'a') && (d <=
'f'))
684 uu |= (
unsigned char)(d - (
'a'-10));
698 if ((2*
sizeof(
void *) + 2) > bsz)
return 0;
701 if (strlen(
name) + 1 > (bsz - (r - buff)))
return 0;
709 if (strcmp(c,
"NULL") == 0) {
722 size_t lname = (
name ? strlen(
name) : 0);
723 if ((2*sz + 2 + lname) > bsz)
return 0;
727 strncpy(r,
name,lname+1);
737 if (strcmp(c,
"NULL") == 0) {
752#define SWIG_UnknownError -1
753#define SWIG_IOError -2
754#define SWIG_RuntimeError -3
755#define SWIG_IndexError -4
756#define SWIG_TypeError -5
757#define SWIG_DivisionByZero -6
758#define SWIG_OverflowError -7
759#define SWIG_SyntaxError -8
760#define SWIG_ValueError -9
761#define SWIG_SystemError -10
762#define SWIG_AttributeError -11
763#define SWIG_MemoryError -12
764#define SWIG_NullReferenceError -13
788#define SWIG_LUA_FLAVOR_LUA 1
789#define SWIG_LUA_FLAVOR_ELUA 2
790#define SWIG_LUA_FLAVOR_ELUAC 3
792#if !defined(SWIG_LUA_TARGET)
793# error SWIG_LUA_TARGET not defined
796#if defined(SWIG_LUA_ELUA_EMULATE)
798struct swig_elua_entry;
800typedef struct swig_elua_key {
808typedef struct swig_elua_val {
812 const struct swig_elua_entry *table;
824typedef struct swig_elua_entry {
829#define LSTRKEY(x) {LUA_TSTRING, {.strkey = x} }
830#define LNUMKEY(x) {LUA_TNUMBER, {.numkey = x} }
831#define LNILKEY {LUA_TNIL, {.strkey = 0} }
833#define LNUMVAL(x) {LUA_TNUMBER, {.number = x} }
834#define LFUNCVAL(x) {LUA_TFUNCTION, {.function = x} }
835#define LROVAL(x) {LUA_TTABLE, {.table = x} }
836#define LNILVAL {LUA_TNIL, {.string = 0} }
837#define LSTRVAL(x) {LUA_TSTRING, {.string = x} }
839#define LUA_REG_TYPE swig_elua_entry
841#define SWIG_LUA_ELUA_EMUL_METATABLE_KEY "__metatable"
843#define lua_pushrotable(L,p)\
846 SWIG_Lua_elua_emulate_register(L,(swig_elua_entry*)(p));
848#define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\
849 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={0,0,(void*)(C),&D} } }
851#define SWIG_LUA_CONSTTAB_BINARY(B,S,C,D)\
852 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={1,S,(void*)(C),&D} } }
855#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
856# define SWIG_LUA_CONSTTAB_INT(B, C) LSTRKEY(B), LNUMVAL(C)
857# define SWIG_LUA_CONSTTAB_FLOAT(B, C) LSTRKEY(B), LNUMVAL(C)
858# define SWIG_LUA_CONSTTAB_STRING(B, C) LSTRKEY(B), LSTRVAL(C)
859# define SWIG_LUA_CONSTTAB_CHAR(B, C) LSTRKEY(B), LNUMVAL(C)
862#ifndef SWIG_LUA_CONSTTAB_POINTER
863#warning eLua does not support pointers as constants. By default, nil will be used as value
864#define SWIG_LUA_CONSTTAB_POINTER(B,C,D) LSTRKEY(B), LNILVAL
867#ifndef SWIG_LUA_CONSTTAB_BINARY
868#warning eLua does not support pointers to member as constants. By default, nil will be used as value
869#define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D) LSTRKEY(B), LNILVAL
872# define SWIG_LUA_CONSTTAB_INT(B, C) SWIG_LUA_INT, (char *)B, (long)C, 0, 0, 0
873# define SWIG_LUA_CONSTTAB_FLOAT(B, C) SWIG_LUA_FLOAT, (char *)B, 0, (double)C, 0, 0
874# define SWIG_LUA_CONSTTAB_STRING(B, C) SWIG_LUA_STRING, (char *)B, 0, 0, (void *)C, 0
875# define SWIG_LUA_CONSTTAB_CHAR(B, C) SWIG_LUA_CHAR, (char *)B, (long)C, 0, 0, 0
876# define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\
877 SWIG_LUA_POINTER, (char *)B, 0, 0, (void *)C, &D
878# define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D)\
879 SWIG_LUA_BINARY, (char *)B, S, 0, (void *)C, &D
882#ifndef SWIG_LUA_ELUA_EMULATE
883#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
884# define LRO_STRVAL(v) {{.p = (char *) v}, LUA_TSTRING}
885# define LSTRVAL LRO_STRVAL
889#ifndef SWIG_LUA_ELUA_EMULATE
890#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
893#define MIN_OPT_LEVEL 2
912#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
913# define lua_rawlen lua_strlen
914#elif LUA_VERSION_NUM == 501
915# define lua_rawlen lua_objlen
922#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
926 const char *result = lua_tostring(L, idx);
927 if (len) *len = lua_strlen(L, idx);
936#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
937# define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX)
941#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
942# define lua_absindex(L,i) ((i)>0 || (i) <= LUA_REGISTRYINDEX ? (i) : lua_gettop(L) + (i) + 1)
946#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
947#define lua_rawsetp(L,index,ptr)\
948 lua_pushlightuserdata(L,(void*)(ptr));\
952#define lua_rawgetp(L,index,ptr)\
953 lua_pushlightuserdata(L,(void*)(ptr));\
969 lua_pushstring (L, str);
982 lua_pushvfstring(L, fmt, argp);
992#define SWIG_LUA_INT 1
993#define SWIG_LUA_FLOAT 2
994#define SWIG_LUA_STRING 3
995#define SWIG_LUA_POINTER 4
996#define SWIG_LUA_BINARY 5
997#define SWIG_LUA_CHAR 6
1006#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
1076#define SWIG_NewPointerObj(L, ptr, type, owner) SWIG_Lua_NewPointerObj(L, (void *)ptr, type, owner)
1077#define SWIG_ConvertPtr(L,idx, ptr, type, flags) SWIG_Lua_ConvertPtr(L,idx,ptr,type,flags)
1078#define SWIG_MustGetPtr(L,idx, type,flags, argnum,fnname) SWIG_Lua_MustGetPtr(L,idx, type,flags, argnum,fnname)
1080#define SWIG_ConvertMember(L, idx, ptr, sz, ty) SWIG_Lua_ConvertPacked(L, idx, ptr, sz, ty)
1081#define SWIG_NewMemberObj(L, ptr, sz, type) SWIG_Lua_NewPackedObj(L, ptr, sz, type)
1084#define SWIG_GetModule(clientdata) SWIG_Lua_GetModule((lua_State*)(clientdata))
1085#define SWIG_SetModule(clientdata, pointer) SWIG_Lua_SetModule((lua_State*) (clientdata), pointer)
1086#define SWIG_MODULE_CLIENTDATA_TYPE lua_State*
1089#define SWIG_contract_assert(expr, msg) \
1090 do { if (!(expr)) { SWIG_Lua_pusherrstring(L, (char *) msg); goto fail; } } while (0)
1094#define SWIG_fail {goto fail;}
1095#define SWIG_fail_arg(func_name,argnum,type) \
1096 {SWIG_Lua_pushferrstring(L,"Error in %s (arg %d), expected '%s' got '%s'",\
1097 func_name,argnum,type,SWIG_Lua_typename(L,argnum));\
1099#define SWIG_fail_ptr(func_name,argnum,type) \
1100 SWIG_fail_arg(func_name,argnum,(type && type->str)?type->str:"void*")
1101#define SWIG_check_num_args(func_name,a,b) \
1102 if (lua_gettop(L)<a || lua_gettop(L)>b) \
1103 {SWIG_Lua_pushferrstring(L,"Error in %s expected %d..%d args, got %d",func_name,a,b,lua_gettop(L));\
1107#define SWIG_Lua_get_table(L,n) \
1108 (lua_pushstring(L, n), lua_rawget(L,-2))
1110#define SWIG_Lua_add_function(L,n,f) \
1111 (lua_pushstring(L, n), \
1112 lua_pushcfunction(L, f), \
1115#define SWIG_Lua_add_boolean(L,n,b) \
1116 (lua_pushstring(L, n), \
1117 lua_pushboolean(L, b), \
1121#define SWIG_isptrtype(L,I) (lua_isuserdata(L,I) || lua_isnil(L,I))
1134 lua_rawget(L,LUA_REGISTRYINDEX);
1135 if (lua_islightuserdata(L,-1))
1145 lua_pushlightuserdata(L,(
void*)module);
1146 lua_rawset(L,LUA_REGISTRYINDEX);
1159#ifndef SWIGLUA_IGNORE_SET_IMMUTABLE
1161 luaL_error(L,
"This variable is immutable");
1166#ifdef SWIG_LUA_ELUA_EMULATE
1170static int swig_lua_elua_emulate_unique_key;
1173SWIGINTERN void SWIG_Lua_elua_emulate_register(lua_State *L,
const swig_elua_entry *table)
1175 int i, table_parsed, parsed_tables_array, target_table;
1176 assert(lua_istable(L,-1));
1177 target_table = lua_gettop(L);
1179 lua_rawgetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1180 if(lua_isnil(L,-1)) {
1183 lua_pushvalue(L,-1);
1184 lua_rawsetp(L,LUA_REGISTRYINDEX,(
void*)(&swig_lua_elua_emulate_unique_key));
1186 parsed_tables_array = lua_gettop(L);
1187 lua_pushvalue(L,target_table);
1190 const int SWIGUNUSED pairs_start = lua_gettop(L);
1191 for(i = 0;table[i].key.type != LUA_TNIL || table[i].value.type != LUA_TNIL;i++)
1193 const swig_elua_entry *entry = table + i;
1194 int is_metatable = 0;
1195 switch(entry->key.type) {
1197 lua_pushstring(L,entry->key.key.strkey);
1198 if(strcmp(entry->key.key.strkey, SWIG_LUA_ELUA_EMUL_METATABLE_KEY) == 0)
1202 lua_pushnumber(L,entry->key.key.numkey);
1210 switch(entry->value.type) {
1212 lua_pushstring(L,entry->value.value.string);
1215 lua_pushnumber(L,entry->value.value.number);
1218 lua_pushcfunction(L,entry->value.value.function);
1221 lua_rawgetp(L,parsed_tables_array, entry->value.value.table);
1222 table_parsed = !lua_isnil(L,-1);
1226 SWIG_Lua_elua_emulate_register(L,entry->value.value.table);
1229 assert(lua_istable(L,-1));
1230 lua_pushvalue(L,-1);
1231 lua_setmetatable(L,target_table);
1236 if(entry->value.value.userdata.member)
1238 entry->value.value.userdata.lvalue,
1239 *(entry->value.value.userdata.ptype));
1242 *(entry->value.value.userdata.ptype),0);
1250 assert(lua_gettop(L) == pairs_start + 2);
1251 lua_rawset(L,target_table);
1254 assert(lua_gettop(L) == target_table);
1257SWIGINTERN void SWIG_Lua_elua_emulate_register_clear(lua_State *L)
1260 lua_rawsetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1265SWIGINTERN int SWIG_Lua_emulate_elua_getmetatable(lua_State *L)
1269 lua_getfield(L,-1,
"lua_getmetatable");
1271 assert(!lua_isnil(L,-1));
1273 assert(lua_gettop(L) == 3);
1275 if(!lua_isnil(L,-1))
1278 assert(lua_gettop(L) == 2);
1279 if(lua_istable(L,-2)) {
1281 lua_getfield(L,-1, SWIG_LUA_ELUA_EMUL_METATABLE_KEY);
1283 assert(lua_gettop(L) == 2);
1291SWIGINTERN void SWIG_Lua_emulate_elua_swap_getmetatable(lua_State *L)
1295 lua_pushstring(L,
"lua_getmetatable");
1296 lua_getfield(L,-2,
"getmetatable");
1297 assert(!lua_isnil(L,-1));
1299 lua_pushstring(L,
"getmetatable");
1300 lua_pushcfunction(L, SWIG_Lua_emulate_elua_getmetatable);
1318 assert(lua_istable(L,-2));
1319 lua_getmetatable(L,-2);
1320 assert(lua_istable(L,-1));
1322 assert(lua_istable(L,-1));
1327 if (lua_iscfunction(L,-1))
1336 assert(lua_istable(L,-1));
1340 if (lua_isfunction(L,-1))
1357 assert(lua_istable(L,1));
1358 lua_getmetatable(L,1);
1359 assert(lua_istable(L,-1));
1362 if (lua_istable(L,-1))
1367 if (lua_iscfunction(L,-1))
1381#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1391 assert(lua_istable(L,-1));
1398 lua_getmetatable(L,-1);
1416 assert(lua_istable(L,-1));
1420 if( classes != 0 ) {
1421 while(*classes != 0) {
1438 assert(lua_istable(L,-1));
1439 lua_checkstack(L,5);
1444 lua_pushstring(L,
".get");
1448 lua_pushstring(L,
".set");
1452 lua_pushstring(L,
".fn");
1460 lua_setmetatable(L,-2);
1468 if( sub_namespace != 0) {
1469 while(*sub_namespace != 0) {
1477 lua_pushstring(L,ns->
name);
1478 lua_pushvalue(L,-2);
1481 assert(lua_gettop(L) == begin+1);
1498 int last_arg = lua_gettop(L);
1499 int original_metatable = last_arg + 1;
1504 lua_getmetatable(L,first_arg);
1507#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1509 assert(lua_istable(L,-1));
1511 bases_table = lua_gettop(L);
1515 assert(swig_type!=0);
1520 for(;base_names[bases_count];
1531 int subcall_last_arg;
1532 int subcall_first_arg = lua_gettop(L) + 1;
1535 for(j=first_arg;j<=last_arg;j++)
1537 subcall_last_arg = lua_gettop(L);
1540 for(i=0;i<bases_count;i++) {
1542#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1543 lua_rawgeti(L,bases_table,i+1);
1545 if(lua_isnil(L,-1)) {
1559 assert(base_swig_type != 0);
1565 assert(lua_isuserdata(L, subcall_first_arg));
1566 assert(lua_istable(L,-1));
1567 lua_setmetatable(L,subcall_first_arg);
1568 assert(lua_gettop(L) == subcall_last_arg);
1569 result = func(L, base_swig_type,subcall_first_arg, ret);
1575 lua_pushvalue(L,original_metatable);
1576 lua_setmetatable(L,first_arg);
1578 to_remove = subcall_last_arg - last_arg;
1579 for(j=0;j<to_remove;j++)
1580 lua_remove(L,last_arg+1);
1583 lua_pop(L, lua_gettop(L) - last_arg);
1585 if(ret) assert(lua_gettop(L) == last_arg + *ret);
1599 int bases_search_result;
1600 int substack_start = lua_gettop(L)-2;
1601 assert(first_arg == substack_start+1);
1603 lua_checkstack(L,5);
1604 assert(lua_isuserdata(L,-2));
1605 lua_getmetatable(L,-2);
1606 assert(lua_istable(L,-1));
1610 if (lua_iscfunction(L,-1))
1612 lua_pushvalue(L,substack_start+1);
1613 lua_pushvalue(L,substack_start+2);
1624 return bases_search_result;
1638 int bases_search_result;
1639 int substack_start = lua_gettop(L)-2;
1640 assert(first_arg == substack_start+1);
1642 lua_checkstack(L,5);
1643 assert(lua_isuserdata(L,-2));
1644 lua_getmetatable(L,-2);
1645 assert(lua_istable(L,-1));
1647 assert(lua_istable(L,-1));
1649 lua_pushvalue(L,substack_start+2);
1652 if (lua_iscfunction(L,-1))
1654 lua_pushvalue(L,substack_start+1);
1664 assert(lua_istable(L,-1));
1665 lua_pushvalue(L,substack_start+2);
1668 if (lua_isfunction(L,-1))
1680 return bases_search_result;
1695 assert(lua_isuserdata(L,1));
1720 int bases_search_result;
1721 int substack_start = lua_gettop(L) - 3;
1722 lua_checkstack(L,5);
1723 assert(lua_isuserdata(L,substack_start+1));
1724 lua_getmetatable(L,substack_start+1);
1725 assert(lua_istable(L,-1));
1730 if (lua_istable(L,-1))
1733 lua_pushvalue(L,substack_start+2);
1736 if (lua_iscfunction(L,-1))
1738 lua_pushvalue(L,substack_start+1);
1739 lua_pushvalue(L,substack_start+3);
1741 lua_remove(L,substack_start+4);
1751 if (lua_iscfunction(L,-1))
1753 lua_pushvalue(L,substack_start+1);
1754 lua_pushvalue(L,substack_start+2);
1755 lua_pushvalue(L,substack_start+3);
1767 assert(lua_gettop(L) == substack_start + 3);
1768 return bases_search_result;
1785 assert(lua_isuserdata(L,1));
1790 SWIG_Lua_pushferrstring(L,
"Assignment not possible. No setter/member with this name. For custom assignments implement __setitem method.");
1805 assert(lua_isuserdata(L,-1));
1825 assert(lua_isuserdata(L,1));
1828 lua_pushfstring(L,
"<userdata of type '%s' at %p>", userData->
type->
str, userData->
ptr);
1838 assert(lua_isuserdata(L,-1));
1852 if (!lua_isuserdata(L,1) || !lua_isuserdata(L,2))
1857 result=(usr1->
ptr==usr2->
ptr);
1858 lua_pushboolean(L,result);
1886 lua_pushstring(L,
"SWIG");
1891 lua_pushstring(L,
".library");
1895 lua_pushstring(L,
"inheritable_metamethods");
1903 lua_rawset(L,LUA_REGISTRYINDEX);
1910 lua_pushstring(L,
"SWIG");
1911 lua_rawget(L,LUA_REGISTRYINDEX);
1912 if (!lua_istable(L,-1))
1917 lua_pushstring(L,
"SWIG");
1918 lua_rawget(L,LUA_REGISTRYINDEX);
1925 lua_pushstring(L,
".library");
1927 assert( !lua_isnil(L,-1) );
1928 lua_pushstring(L,
"inheritable_metamethods");
1940 lua_pushstring(L,cname);
1958 if (clss->
bases[i]==0)
1967#if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1969SWIGINTERN void SWIG_Lua_merge_tables_by_index(lua_State *L,
int target,
int source)
1973 while (lua_next(L,source) != 0) {
1976 lua_pushvalue(L,-2);
1977 lua_pushvalue(L,-2);
1978 lua_rawset(L, target);
1985SWIGINTERN void SWIG_Lua_merge_tables(lua_State *L,
const char*
name,
int original,
int base)
1988 lua_pushstring(L,
name);
1989 lua_rawget(L,original);
1990 int original_table = lua_gettop(L);
1991 lua_pushstring(L,
name);
1993 int base_table = lua_gettop(L);
1994 SWIG_Lua_merge_tables_by_index(L, original_table, base_table);
2003 assert(lua_istable(L,-1));
2004 int original = lua_gettop(L);
2006 int base = lua_gettop(L);
2007 SWIG_Lua_merge_tables(L,
".fn", original, base );
2008 SWIG_Lua_merge_tables(L,
".set", original, base );
2009 SWIG_Lua_merge_tables(L,
".get", original, base );
2020 if (clss->
bases[i]==0)
2026 SWIG_Lua_class_squash_base(L, clss->
bases[i]);
2032#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2036 assert(lua_istable(L,-1));
2038 assert(lua_istable(L,-1));
2044 assert(lua_istable(L,-1));
2055 assert(lua_istable(L,-1));
2057 for(i=0;clss->
bases[i];i++)
2071 size_t bases_count = 0;
2074 assert(lua_istable(L,-1));
2075 for(i=0;clss->
bases[i];i++)
2079 assert(lua_istable(L,-1));
2080 lua_rawseti(L,-2,i+1);
2091 assert(lua_istable(L,-1));
2092 for(i=0;clss->
methods[i].name;i++){
2106#if !defined(SWIG_LUA_SQUASH_BASES)
2148 lua_pushvalue(L, metamethod_name_idx);
2162 for(i=0;clss->
bases[i];i++)
2177 int metamethod_name_idx;
2181 lua_checkstack(L,5);
2182 numargs = lua_gettop(L);
2185 lua_pushvalue(L, lua_upvalueindex(1));
2186 metamethod_name_idx = lua_gettop(L);
2188 lua_pushvalue(L, lua_upvalueindex(2));
2195 SWIG_Lua_pushferrstring(L,
"The metamethod proxy is set, but it failed to find actual metamethod. Memory corruption is most likely explanation.");
2202 lua_call(L, numargs, LUA_MULTRET);
2203 return lua_gettop(L);
2218 assert(lua_isstring(L,-1));
2220 key_index = lua_gettop(L);
2223 lua_pushvalue(L,key_index);
2224 lua_gettable(L,metatable_index);
2225 if( !lua_isnil(L,-1) ) {
2232 for(i=0;clss->
bases[i];i++)
2236 lua_pushvalue(L, key_index);
2238 if( !lua_isnil(L,-1) ) {
2239 lua_pushvalue(L, key_index);
2242 lua_pushvalue(L, key_index);
2243 lua_pushlightuserdata(L, clss);
2246 lua_rawset(L, metatable_index);
2261 int metatable_index;
2262 int metamethods_info_index;
2263 int tostring_undefined;
2264 int eq_undefined = 0;
2267 metatable_index = lua_gettop(L);
2269 assert(lua_istable(L,-1));
2270 metamethods_info_index = lua_gettop(L);
2272 while(lua_next(L, metamethods_info_index) != 0 ) {
2274 const int is_inheritable = lua_toboolean(L,-2);
2277 if(is_inheritable) {
2285 lua_pushstring(L,
"__tostring");
2286 lua_pushvalue(L,-1);
2287 lua_rawget(L,metatable_index);
2288 tostring_undefined = lua_isnil(L,-1);
2290 if( tostring_undefined ) {
2292 lua_rawset(L, metatable_index);
2298 lua_pushstring(L,
"__eq");
2299 lua_pushvalue(L,-1);
2300 lua_rawget(L,metatable_index);
2301 eq_undefined = lua_isnil(L,-1);
2303 if( eq_undefined ) {
2305 lua_rawset(L, metatable_index);
2319 lua_checkstack(L,5);
2320 assert(lua_istable(L,-1));
2325 assert(lua_istable(L,-1));
2333 lua_getmetatable(L,-1);
2334 assert(lua_istable(L,-1));
2339 assert(lua_istable(L,-1));
2344 assert( lua_gettop(L) == begin );
2356 lua_pushstring(L,clss->
fqname);
2358 if(!lua_isnil(L,-1)) {
2360 assert(lua_gettop(L)==begin);
2365 for(i=0;clss->
bases[i];i++)
2371 lua_pushstring(L,clss->
fqname);
2373#if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2380 for(i=0;clss->
bases[i];i++)
2385 SWIG_Lua_merge_tables_by_index(L,new_metatable_index, base_metatable);
2392 lua_pushstring(L,
".type");
2393 lua_pushstring(L,clss->
fqname);
2396 lua_pushstring(L,
".bases");
2400 lua_pushstring(L,
".get");
2404 lua_pushstring(L,
".set");
2408 lua_pushstring(L,
".fn");
2420 assert(lua_gettop(L) == begin);
2422#if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2424 SWIG_Lua_class_squash_bases(L,clss);
2429 assert( lua_gettop(L) == begin );
2435 assert(lua_istable(L,-1));
2449 begin = lua_gettop(L);
2452 assert(lua_istable(L,-1));
2453 lua_getmetatable(L,-1);
2454 assert(lua_istable(L,-1));
2455 lua_pushstring(L,
".instance");
2458 assert(lua_istable(L,-1));
2459 lua_pushstring(L,
".static");
2460 lua_pushvalue(L, -4);
2461 assert(lua_istable(L,-1));
2465 assert(lua_gettop(L) == begin);
2469#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
2476 lua_pushstring(L,clss->
fqname);
2478 if(!lua_isnil(L,-1)) {
2480 assert(lua_gettop(L)==begin);
2485 for(i=0;clss->
bases[i];i++)
2487 SWIG_Lua_elua_class_register_instance(L,clss->
bases[i]);
2491 lua_pushstring(L,clss->
fqname);
2493 lua_pushrotable(L, (
void*)(clss->
metatable));
2496 assert(lua_gettop(L) == begin);
2507 if (type->clientdata)
2510 if (lua_istable(L,-1))
2512 lua_setmetatable(L,-2);
2533#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
2546 if (lua_isnil(L,index))
2551 if (lua_islightuserdata(L,index))
2553 *ptr=lua_touserdata(L,index);
2592 int argnum,
const char *func_name){
2595 luaL_error (L,
"Error in %s, expected a %s at argument number %d\n",
2596 func_name,(type && type->str)?type->str:
"void*",argnum);
2609 memcpy(raw->
data,ptr,size);
2619 if (type==0 || type==raw->
type)
2621 memcpy(ptr,raw->
data,size);
2631 if (lua_isuserdata(L,tp))
2636 return "userdata (unknown type)";
2638 return lua_typename(L,lua_type(L,tp));
2652#if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
2657 for (i = 0; constants[i].
type; i++) {
2658 switch(constants[i].type) {
2660 lua_pushstring(L,constants[i].
name);
2661 lua_pushinteger(L,(lua_Integer)constants[i].lvalue);
2665 lua_pushstring(L,constants[i].
name);
2666 lua_pushnumber(L,(lua_Number)constants[i].dvalue);
2670 lua_pushstring(L,constants[i].
name);
2672 char c = (char)constants[i].lvalue;
2673 lua_pushlstring(L,&c,1);
2678 lua_pushstring(L,constants[i].
name);
2679 lua_pushstring(L,(
char *) constants[i].pvalue);
2683 lua_pushstring(L,constants[i].
name);
2688 lua_pushstring(L,constants[i].
name);
2689 SWIG_NewMemberObj(L,constants[i].pvalue,constants[i].lvalue,*(constants[i]).ptype);
2703#ifndef SWIG_DOSTRING_FAIL
2704#define SWIG_DOSTRING_FAIL(S) fprintf(stderr,"%s\n",S)
2714 if (str==0 || str[0]==0)
return 0;
2716#if (defined(LUA_VERSION_NUM) && (LUA_VERSION_NUM>=501))
2717 ok=luaL_dostring(L,str);
2719 ok=lua_dostring(L,str);
2737#define SWIGTYPE_p_PLGraphicsIn swig_types[0]
2738#define SWIGTYPE_p_char swig_types[1]
2739#define SWIGTYPE_p_double swig_types[2]
2740#define SWIGTYPE_p_f_double_double__int swig_types[3]
2741#define SWIGTYPE_p_f_double_double_p_double_p_double_p_void__void swig_types[4]
2742#define SWIGTYPE_p_f_int_double_p_char_int_p_void__void swig_types[5]
2743#define SWIGTYPE_p_f_int_p_double_p_double__void swig_types[6]
2744#define SWIGTYPE_p_f_int_p_q_const__double_p_q_const__double__void swig_types[7]
2745#define SWIGTYPE_p_int swig_types[8]
2746#define SWIGTYPE_p_p_char swig_types[9]
2747#define SWIGTYPE_p_p_double swig_types[10]
2748#define SWIGTYPE_p_unsigned_int swig_types[11]
2751#define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
2752#define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
2756#define SWIG_name "plplotluac"
2757#define SWIG_init luaopen_plplotluac
2758#define SWIG_init_user luaopen_plplotluac_user
2760#define SWIG_LUACODE luaopen_plplotluac_luacode
2765#define LUA_ALLOC_ARRAY( TYPE, LEN ) (TYPE *) malloc( LEN * sizeof ( TYPE ) )
2766#define LUA_FREE_ARRAY( PTR ) if ( PTR ) { free( PTR ); PTR = NULL;}
2770#define LUA_DECLARE_TYPEMAP_ARR_FN( NAME, TYPE ) \
2771 SWIGINTERN int LUA_read_ ## NAME ## _num_array( lua_State * L, int index, TYPE * array, int size ){ \
2773 for ( i = 0; i < size; i++ ) { \
2774 lua_rawgeti( L, index, i + 1 ); \
2775 if ( lua_isnumber( L, -1 ) ) { \
2776 array[i] = (TYPE) lua_tonumber( L, -1 ); \
2785 SWIGINTERN TYPE* LUA_get_ ## NAME ## _num_array_var( lua_State * L, int index, int* size ) \
2788 if ( !lua_istable( L, index ) ) { \
2789 lua_pushstring( L, "expected a table" ); \
2792 *size = SWIG_itable_size( L, index ); \
2793 if ( *size < 1 ) { \
2794 array = LUA_ALLOC_ARRAY( TYPE, 1 ); \
2795 array[0] = (TYPE) 0; \
2798 array = LUA_ALLOC_ARRAY( TYPE, *size ); \
2799 if ( !LUA_read_ ## NAME ## _num_array( L, index, array, *size ) ) { \
2800 lua_pushstring( L, "table must contain numbers" ); \
2801 LUA_FREE_ARRAY( array ); \
2816#define SWIG_ALLOC_ARRAY(TYPE,LEN) new TYPE[LEN]
2817#define SWIG_FREE_ARRAY(PTR) delete[] PTR
2819#define SWIG_ALLOC_ARRAY(TYPE,LEN) (TYPE *)malloc(LEN*sizeof(TYPE))
2820#define SWIG_FREE_ARRAY(PTR) free(PTR)
2827 lua_rawgeti(L,index,n+1);
2828 if (lua_isnil(L,-1))
break;
2840 while (lua_next(L, index) != 0) {
2848#define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME,TYPE)\
2849 SWIGINTERN int SWIG_read_##NAME##_num_array(lua_State* L,int index,TYPE *array,int size){\
2851 for (i = 0; i < size; i++) {\
2852 lua_rawgeti(L,index,i+1);\
2853 if (lua_isnumber(L,-1)){\
2854 array[i] = (TYPE)lua_tonumber(L,-1);\
2863 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_fixed(lua_State* L, int index, int size){\
2865 if (!lua_istable(L,index) || SWIG_itable_size(L,index) != size) {\
2866 SWIG_Lua_pushferrstring(L,"expected a table of size %d",size);\
2869 array=SWIG_ALLOC_ARRAY(TYPE,size);\
2870 if (!SWIG_read_##NAME##_num_array(L,index,array,size)){\
2871 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
2872 SWIG_FREE_ARRAY(array);\
2877 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_var(lua_State* L, int index, int* size)\
2880 if (!lua_istable(L,index)) {\
2881 SWIG_Lua_pusherrstring(L,"expected a table");\
2884 *size=SWIG_itable_size(L,index);\
2886 SWIG_Lua_pusherrstring(L,"table appears to be empty");\
2889 array=SWIG_ALLOC_ARRAY(TYPE,*size);\
2890 if (!SWIG_read_##NAME##_num_array(L,index,array,*size)){\
2891 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
2892 SWIG_FREE_ARRAY(array);\
2897 SWIGINTERN void SWIG_write_##NAME##_num_array(lua_State* L,TYPE *array,int size){\
2900 for (i = 0; i < size; i++){\
2901 lua_pushnumber(L,(lua_Number)array[i]);\
2902 lua_rawseti(L,-2,i+1); \
2919 for (i = 0; i < size; i++) {
2920 lua_rawgeti(L,index,i+1);
2921 if (!lua_isuserdata(L,-1) ||
SWIG_ConvertPtr(L,-1,&array[i],type,0)==-1){
2945 if (!lua_istable(L,index)) {
2965 for (i = 0; i < size; i++){
2967 lua_rawseti(L,-2,i+1);
2982 if ( !lua_istable( L, index ) )
2984 lua_pushstring( L,
"expected a table" );
2990 lua_pushstring( L,
"table appears to be empty" );
2994 for ( i = 0; i < *nx; i++ )
2997 lua_rawgeti( L, index, 1 );
2998 if ( !lua_istable( L, -1 ) )
3001 lua_pushstring( L,
"expected a table" );
3008 lua_pushstring( L,
"table appears to be empty" );
3014 for ( i = 0; i < *nx; i++ )
3016 lua_rawgeti( L, index, i + 1 );
3017 if ( !lua_istable( L, -1 ) )
3020 lua_pushstring( L,
"expected a table" );
3021 for ( j = 0; j < *ny; j++ )
3029 lua_pushstring( L,
"inconsistent table sizes" );
3030 for ( j = 0; j < i; j++ )
3036 for ( j = 0; j < *ny; j++ )
3038 lua_rawgeti( L, -1, j + 1 );
3039 if ( lua_isnumber( L, -1 ) )
3041 matrix[i][j] = (
PLFLT) lua_tonumber( L, -1 );
3046 lua_pushstring( L,
"table must contain numbers" );
3047 for ( j = 0; j < i + 1; j++ )
3068 PLFLT *xtemp, *ytemp;
3074 fprintf( stderr,
"Lua state is not set!" );
3080 lua_pushnumber(
myL, n );
3081 SWIG_write_double_num_array(
myL, x, n );
3082 SWIG_write_double_num_array(
myL, y, n );
3085 if ( lua_pcall(
myL, 3, 2, 0 ) != 0 )
3086 fprintf( stderr,
"error running function `%s':%s",
3090 if ( !lua_istable(
myL, -2 ) )
3092 fprintf( stderr,
"function `%s' must return a table as 1st result",
mapform_funcstr );
3095 if ( !lua_istable(
myL, -1 ) )
3097 fprintf( stderr,
"function `%s' must return a table as 2nd result",
mapform_funcstr );
3100 xtemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -2, &len );
3101 if ( !xtemp || len != n )
3103 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3106 for ( i = 0; i < n; i++ )
3110 ytemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -1, &len );
3111 if ( !ytemp || len != n )
3113 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3116 for ( i = 0; i < n; i++ )
3151 fprintf( stderr,
"Lua state is not set!" );
3157 lua_pushnumber(
myL, x );
3158 lua_pushnumber(
myL, y );
3161 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3162 fprintf( stderr,
"error running function `%s':%s",
3166 if ( !lua_isnumber(
myL, -2 ) )
3168 fprintf( stderr,
"function `%s' must return a number as 1st result",
mypltr_funcstr );
3171 if ( !lua_isnumber(
myL, -1 ) )
3173 fprintf( stderr,
"function `%s' must return a number as 2nd result",
mypltr_funcstr );
3176 *tx = lua_tonumber(
myL, -2 );
3177 *ty = lua_tonumber(
myL, -1 );
3195 fprintf( stderr,
"Lua state is not set!" );
3201 lua_pushnumber(
myL, x );
3202 lua_pushnumber(
myL, y );
3205 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3206 fprintf( stderr,
"error running function `%s':%s",
3210 if ( !lua_isnumber(
myL, -2 ) )
3212 fprintf( stderr,
"function `%s' must return a number as 1st result",
myct_funcstr );
3215 if ( !lua_isnumber(
myL, -1 ) )
3217 fprintf( stderr,
"function `%s' must return a number as 2nd result",
myct_funcstr );
3220 *tx = lua_tonumber(
myL, -2 );
3221 *ty = lua_tonumber(
myL, -1 );
3234 fprintf( stderr,
"Lua state is not set!" );
3240 lua_pushnumber(
myL, axis );
3244 if ( lua_pcall(
myL, 2, 1, 0 ) != 0 )
3245 fprintf( stderr,
"error running function `%s':%s",
3249 if ( !lua_isstring(
myL, -1 ) )
3251 fprintf( stderr,
"function `%s' must return a string as result",
mylabel_funcstr );
3254 strncpy( label, lua_tostring(
myL, -1 ), length );
3266 int ret = lua_isstring(L, idx);
3268 ret = lua_isnil(L, idx);
3282 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::type",2,
"int");
3288 arg2 = (int)lua_tonumber(L, 2);
3289 if (arg1) (arg1)->type = arg2;
3311 result = (int) ((arg1)->type);
3312 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3328 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::state",2,
"unsigned int");
3335 arg2 = (
unsigned int)lua_tonumber(L, 2);
3336 if (arg1) (arg1)->state = arg2;
3349 unsigned int result;
3358 result = (
unsigned int) ((arg1)->state);
3359 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3375 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::keysym",2,
"unsigned int");
3382 arg2 = (
unsigned int)lua_tonumber(L, 2);
3383 if (arg1) (arg1)->keysym = arg2;
3396 unsigned int result;
3405 result = (
unsigned int) ((arg1)->keysym);
3406 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3422 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::button",2,
"unsigned int");
3429 arg2 = (
unsigned int)lua_tonumber(L, 2);
3430 if (arg1) (arg1)->button = arg2;
3443 unsigned int result;
3452 result = (
unsigned int) ((arg1)->button);
3453 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3469 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::subwindow",2,
"PLINT");
3475 arg2 = (
PLINT)lua_tonumber(L, 2);
3476 if (arg1) (arg1)->subwindow = arg2;
3498 result = (
PLINT) ((arg1)->subwindow);
3499 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3511 char *arg2 = (
char *) (
char *)0 ;
3521 arg2 = (
char *)lua_tostring(L, 2);
3524 strncpy((
char*)arg1->
string, (
const char *)arg2, 16-1);
3551 result = (
char *)(
char *) ((arg1)->string);
3552 lua_pushstring(L,(
const char *)result); SWIG_arg++;
3568 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pX",2,
"int");
3574 arg2 = (int)lua_tonumber(L, 2);
3575 if (arg1) (arg1)->pX = arg2;
3597 result = (int) ((arg1)->pX);
3598 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3614 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pY",2,
"int");
3620 arg2 = (int)lua_tonumber(L, 2);
3621 if (arg1) (arg1)->pY = arg2;
3643 result = (int) ((arg1)->pY);
3644 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3660 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dX",2,
"PLFLT");
3666 arg2 = (
PLFLT)lua_tonumber(L, 2);
3667 if (arg1) (arg1)->dX = arg2;
3689 result = (
PLFLT) ((arg1)->dX);
3690 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3706 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dY",2,
"PLFLT");
3712 arg2 = (
PLFLT)lua_tonumber(L, 2);
3713 if (arg1) (arg1)->dY = arg2;
3735 result = (
PLFLT) ((arg1)->dY);
3736 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3752 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wX",2,
"PLFLT");
3758 arg2 = (
PLFLT)lua_tonumber(L, 2);
3759 if (arg1) (arg1)->wX = arg2;
3781 result = (
PLFLT) ((arg1)->wX);
3782 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3798 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wY",2,
"PLFLT");
3804 arg2 = (
PLFLT)lua_tonumber(L, 2);
3805 if (arg1) (arg1)->wY = arg2;
3827 result = (
PLFLT) ((arg1)->wY);
3828 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3857 assert(lua_istable(L,1));
3859 assert(!lua_isnil(L,-1));
3861 lua_call(L,lua_gettop(L)-1,1);
3909static swig_lua_class _wrap_class_PLGraphicsIn = {
"PLGraphicsIn",
"PLGraphicsIn", &
SWIGTYPE_p_PLGraphicsIn,
_proxy__wrap_new_PLGraphicsIn,
swig_delete_PLGraphicsIn,
swig_PLGraphicsIn_methods,
swig_PLGraphicsIn_attributes, &
swig_PLGraphicsIn_Sf_SwigStatic,
swig_PLGraphicsIn_meta,
swig_PLGraphicsIn_bases,
swig_PLGraphicsIn_base_names };
3917 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelformat",1,
"PLINT");
3918 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelformat",2,
"PLINT");
3919 arg1 = (
PLINT)lua_tonumber(L, 1);
3920 arg2 = (
PLINT)lua_tonumber(L, 2);
3939 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelparam",1,
"PLFLT");
3940 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelparam",2,
"PLFLT");
3941 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pl_setcontlabelparam",3,
"PLFLT");
3942 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"pl_setcontlabelparam",4,
"PLINT");
3943 arg1 = (
PLFLT)lua_tonumber(L, 1);
3944 arg2 = (
PLFLT)lua_tonumber(L, 2);
3945 arg3 = (
PLFLT)lua_tonumber(L, 3);
3946 arg4 = (
PLINT)lua_tonumber(L, 4);
3963 arg1 = (
PLINT)lua_tonumber(L, 1);
3994 arg1 = (
PLFLT)lua_tonumber(L, 1);
3995 arg2 = (
PLFLT)lua_tonumber(L, 2);
3996 arg3 = (
PLFLT)lua_tonumber(L, 3);
3997 arg4 = (
PLFLT)lua_tonumber(L, 4);
3998 arg5 = (
PLFLT)lua_tonumber(L, 5);
3999 arg6 = (
PLFLT)lua_tonumber(L, 6);
4000 arg7 = (
PLFLT)lua_tonumber(L, 7);
4001 arg8 = (
PLBOOL)lua_tonumber(L, 8);
4002 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
4016 char *arg3 = (
char *) 0 ;
4019 char *arg6 = (
char *) 0 ;
4032 arg1 = (
PLFLT)lua_tonumber(L, 1);
4033 arg2 = (
PLFLT)lua_tonumber(L, 2);
4034 arg3 = (
char *)lua_tostring(L, 3);
4035 arg4 = (
PLFLT)lua_tonumber(L, 4);
4036 arg5 = (
PLINT)lua_tonumber(L, 5);
4037 arg6 = (
char *)lua_tostring(L, 6);
4038 arg7 = (
PLFLT)lua_tonumber(L, 7);
4039 arg8 = (
PLINT)lua_tonumber(L, 8);
4040 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
4062 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4068 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4071 if ( temp3 !=
Alen )
4073 lua_pushfstring( L,
"Tables must be of same length." );
4077 arg4 = (
PLINT)lua_tonumber(L, 3);
4078 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
4124 arg7 = (
PLFLT)lua_tonumber(L, 1);
4125 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4127 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4128 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4129 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4130 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4131 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4132 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
4157 char *arg1 = (
char *) 0 ;
4160 char *arg4 = (
char *) 0 ;
4171 arg1 = (
char *)lua_tostring(L, 1);
4172 arg2 = (
PLFLT)lua_tonumber(L, 2);
4173 arg3 = (
PLINT)lua_tonumber(L, 3);
4174 arg4 = (
char *)lua_tostring(L, 4);
4175 arg5 = (
PLFLT)lua_tonumber(L, 5);
4176 arg6 = (
PLINT)lua_tonumber(L, 6);
4177 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
4189 char *arg1 = (
char *) 0 ;
4190 char *arg2 = (
char *) 0 ;
4193 char *arg5 = (
char *) 0 ;
4194 char *arg6 = (
char *) 0 ;
4197 char *arg9 = (
char *) 0 ;
4198 char *arg10 = (
char *) 0 ;
4215 arg1 = (
char *)lua_tostring(L, 1);
4216 arg2 = (
char *)lua_tostring(L, 2);
4217 arg3 = (
PLFLT)lua_tonumber(L, 3);
4218 arg4 = (
PLINT)lua_tonumber(L, 4);
4219 arg5 = (
char *)lua_tostring(L, 5);
4220 arg6 = (
char *)lua_tostring(L, 6);
4221 arg7 = (
PLFLT)lua_tonumber(L, 7);
4222 arg8 = (
PLINT)lua_tonumber(L, 8);
4223 arg9 = (
char *)lua_tostring(L, 9);
4224 arg10 = (
char *)lua_tostring(L, 10);
4225 arg11 = (
PLFLT)lua_tonumber(L, 11);
4226 arg12 = (
PLINT)lua_tonumber(L, 12);
4227 plbox3((
char const *)arg1,(
char const *)arg2,arg3,arg4,(
char const *)arg5,(
char const *)arg6,arg7,arg8,(
char const *)arg9,(
char const *)arg10,arg11,arg12);
4252 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcalc_world",1,
"PLFLT");
4253 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcalc_world",2,
"PLFLT");
4254 arg1 = (
PLFLT)lua_tonumber(L, 1);
4255 arg2 = (
PLFLT)lua_tonumber(L, 2);
4258 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4259 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4260 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4289 arg1 = (
PLINT)lua_tonumber(L, 1);
4306 arg1 = (
PLFLT)lua_tonumber(L, 1);
4332 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plconfigtime",1,
"PLFLT");
4333 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plconfigtime",2,
"PLFLT");
4334 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plconfigtime",3,
"PLFLT");
4335 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plconfigtime",4,
"PLINT");
4336 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plconfigtime",5,
"PLBOOL");
4337 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plconfigtime",6,
"PLINT");
4338 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plconfigtime",7,
"PLINT");
4339 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plconfigtime",8,
"PLINT");
4340 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plconfigtime",9,
"PLINT");
4341 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plconfigtime",10,
"PLINT");
4342 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plconfigtime",11,
"PLFLT");
4343 arg1 = (
PLFLT)lua_tonumber(L, 1);
4344 arg2 = (
PLFLT)lua_tonumber(L, 2);
4345 arg3 = (
PLFLT)lua_tonumber(L, 3);
4346 arg4 = (
PLINT)lua_tonumber(L, 4);
4347 arg5 = (
PLBOOL)lua_tonumber(L, 5);
4348 arg6 = (
PLINT)lua_tonumber(L, 6);
4349 arg7 = (
PLINT)lua_tonumber(L, 7);
4350 arg8 = (
PLINT)lua_tonumber(L, 8);
4351 arg9 = (
PLINT)lua_tonumber(L, 9);
4352 arg10 = (
PLINT)lua_tonumber(L, 10);
4353 arg11 = (
PLFLT)lua_tonumber(L, 11);
4354 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
4382 cgrid111.
xg = cgrid111.
yg = cgrid111.
zg = NULL;
4383 cgrid111.
nx = cgrid111.
ny = cgrid111.
nz = 0;
4384 cgrid211.
xg = cgrid211.
yg = cgrid211.
zg = NULL;
4385 cgrid211.
nx = cgrid211.
ny = 0;
4407 arg4 = (
PLINT)lua_tonumber(L, 2);
4408 arg5 = (
PLINT)lua_tonumber(L, 3);
4409 arg6 = (
PLINT)lua_tonumber(L, 4);
4410 arg7 = (
PLINT)lua_tonumber(L, 5);
4413 arg8 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
4418 if(lua_gettop(L)>=7){
4423 if ( lua_isstring( L, 7 ) )
4425 const char* funcstr = lua_tostring( L, 7 );
4426 if ( strcmp(
"pltr0", funcstr ) == 0 )
4430 else if ( strcmp(
"pltr1", funcstr ) == 0 )
4434 else if ( strcmp(
"pltr2", funcstr ) == 0 )
4449 if(lua_gettop(L)>=8){
4454 lua_pushstring( L,
"xg" );
4455 lua_gettable( L, 8 );
4456 if ( !lua_istable( L, -1 ) )
4459 lua_pushstring( L,
"expected a table xg" );
4462 lua_rawgeti( L, -1, 1 );
4463 if ( lua_istable( L, -1 ) )
4465 else if ( lua_isnumber( L, -1 ) )
4471 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
4475 if ( gridmode == 1 )
4477 cgrid111.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
4485 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
4498 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4501 lua_pushfstring( L,
"Vectors must match matrix." );
4509 lua_pushstring( L,
"yg" );
4510 lua_gettable( L, 8 );
4511 if ( !lua_istable( L, -1 ) )
4514 lua_pushstring( L,
"expected a table yg" );
4517 lua_rawgeti( L, -1, 1 );
4518 if ( gridmode == 2 )
4520 if ( !lua_istable( L, -1 ) )
4524 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
4530 if ( !lua_isnumber( L, -1 ) )
4534 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
4539 if ( gridmode == 1 )
4541 cgrid111.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
4549 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
4562 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4565 lua_pushfstring( L,
"Vectors must match matrix." );
4572 if ( gridmode == 1 )
4574 else if ( gridmode == 2 )
4578 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
4585 for ( i = 0; i < ii1; i++ )
4604 for ( i = 0; i <
Xlen; i++ )
4610 for ( i = 0; i <
Xlen; i++ )
4623 for ( i = 0; i < ii1; i++ )
4642 for ( i = 0; i <
Xlen; i++ )
4648 for ( i = 0; i <
Xlen; i++ )
4677 arg1 = (
PLINT)lua_tonumber(L, 1);
4678 arg2 = (
PLINT)lua_tonumber(L, 2);
4679 arg3 = (
PLINT)lua_tonumber(L, 3);
4680 arg4 = (
PLINT)lua_tonumber(L, 4);
4681 arg5 = (
PLINT)lua_tonumber(L, 5);
4682 arg6 = (
PLFLT)lua_tonumber(L, 6);
4683 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4685 lua_pushnumber(L, (lua_Number) *arg7); SWIG_arg++;
4701 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcpstrm",2,
"PLBOOL");
4702 arg1 = (
PLINT)lua_tonumber(L, 1);
4703 arg2 = (
PLBOOL)lua_tonumber(L, 2);
4758 arg1 = (
PLFLT)lua_tonumber(L, 1);
4759 arg2 = (
PLFLT)lua_tonumber(L, 2);
4760 arg3 = (
PLFLT)lua_tonumber(L, 3);
4761 arg4 = (
PLFLT)lua_tonumber(L, 4);
4762 arg5 = (
PLINT)lua_tonumber(L, 5);
4763 arg6 = (
PLINT)lua_tonumber(L, 6);
4764 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
4790 arg1 = (
PLFLT)lua_tonumber(L, 1);
4791 arg2 = (
PLFLT)lua_tonumber(L, 2);
4792 arg3 = (
PLFLT)lua_tonumber(L, 3);
4793 arg4 = (
PLFLT)lua_tonumber(L, 4);
4794 arg5 = (
PLINT)lua_tonumber(L, 5);
4795 arg6 = (
PLINT)lua_tonumber(L, 6);
4796 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
4832 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4838 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4841 if ( temp3 !=
Alen )
4843 lua_pushfstring( L,
"Tables must be of same length." );
4848 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4851 if ( temp4 !=
Alen )
4853 lua_pushfstring( L,
"Tables must be of same length." );
4857 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4897 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4903 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4906 if ( temp3 !=
Alen )
4908 lua_pushfstring( L,
"Tables must be of same length." );
4913 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4916 if ( temp4 !=
Alen )
4918 lua_pushfstring( L,
"Tables must be of same length." );
4922 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4974 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4980 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4983 if ( temp3 !=
Alen )
4985 lua_pushfstring( L,
"Tables must be of same length." );
4989 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
5023 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5029 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5032 if ( temp3 !=
Alen )
5034 lua_pushfstring( L,
"Tables must be of same length." );
5039 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
5042 if ( temp4 !=
Alen )
5044 lua_pushfstring( L,
"Tables must be of same length." );
5048 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5085 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plgradient",3,
"PLFLT");
5088 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5094 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5097 if ( temp3 !=
Alen )
5099 lua_pushfstring( L,
"Tables must be of same length." );
5103 arg4 = (
PLFLT)lua_tonumber(L, 3);
5104 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
5146 arg1 = (
PLINT)lua_tonumber(L, 1);
5163 arg1 = (
PLINT)lua_tonumber(L, 1);
5186 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5187 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5211 arg1 = (
PLINT)lua_tonumber(L, 1);
5214 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5215 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5216 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5243 arg1 = (
PLINT)lua_tonumber(L, 1);
5244 plgcol0a(arg1,arg2,arg3,arg4,arg5);
5246 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5247 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5248 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5249 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5273 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5274 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5275 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5302 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5303 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5304 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5305 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5323 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5334 char *arg1 = (
char *) 0 ;
5344 lua_pushstring( L, arg1 );
5373 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5374 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5375 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5376 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5394 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5421 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5422 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5423 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5424 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5448 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5449 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5450 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5468 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5479 char *arg1 = (
char *) 0 ;
5489 lua_pushstring( L, arg1 );
5515 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5516 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5517 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5535 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5566 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
5568 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5569 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5570 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5571 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5572 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5573 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
5612 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plgriddata",6,
"PLINT");
5613 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plgriddata",7,
"PLFLT");
5616 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5622 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp2 );
5625 if ( temp2 !=
Alen )
5627 lua_pushfstring( L,
"Tables must be of same length." );
5633 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp );
5638 lua_pushfstring( L,
"Tables must be of same length." );
5645 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
5653 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
5661 for ( i = 0; i <
Xlen; i++ )
5664 for ( i = 0; i <
Xlen; i++ )
5671 arg10 = (
PLINT)lua_tonumber(L, 6);
5672 arg11 = (
PLFLT)lua_tonumber(L, 7);
5673 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
5681 for ( i = 0; i <
Xlen; i++ )
5683 SWIG_write_double_num_array( L, arg9[i],
Ylen );
5684 lua_rawseti( L, -2, i + 1 );
5708 for ( i = 0; i <
Xlen; i++ )
5735 for ( i = 0; i <
Xlen; i++ )
5761 plgspa(arg1,arg2,arg3,arg4);
5763 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5764 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5765 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5766 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5784 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5795 char *arg1 = (
char *) 0 ;
5805 lua_pushstring( L, arg1 );
5832 plgvpd(arg1,arg2,arg3,arg4);
5834 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5835 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5836 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5837 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5862 plgvpw(arg1,arg2,arg3,arg4);
5864 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5865 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5866 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5867 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5888 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5889 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5910 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5911 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5932 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5933 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5958 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5963 arg3 = (
PLFLT)lua_tonumber(L, 2);
5964 arg4 = (
PLFLT)lua_tonumber(L, 3);
5965 arg5 = (
PLINT)lua_tonumber(L, 4);
5966 arg6 = (
PLINT)lua_tonumber(L, 5);
5967 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
6002 arg1 = (
PLFLT)lua_tonumber(L, 1);
6003 arg2 = (
PLFLT)lua_tonumber(L, 2);
6004 arg3 = (
PLFLT)lua_tonumber(L, 3);
6005 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
6007 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
6008 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
6009 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
6044 arg1 = (
PLFLT)lua_tonumber(L, 1);
6045 arg2 = (
PLFLT)lua_tonumber(L, 2);
6046 arg3 = (
PLFLT)lua_tonumber(L, 3);
6047 arg4 = (
PLFLT)lua_tonumber(L, 4);
6048 pljoin(arg1,arg2,arg3,arg4);
6060 char *arg1 = (
char *) 0 ;
6061 char *arg2 = (
char *) 0 ;
6062 char *arg3 = (
char *) 0 ;
6068 arg1 = (
char *)lua_tostring(L, 1);
6069 arg2 = (
char *)lua_tostring(L, 2);
6070 arg3 = (
char *)lua_tostring(L, 3);
6071 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
6102 char **arg20 = (
char **) 0 ;
6113 char **arg31 = (
char **) 0 ;
6170 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"pllegend",10,
"PLINT");
6171 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"pllegend",12,
"PLFLT");
6172 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"pllegend",13,
"PLFLT");
6173 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"pllegend",14,
"PLFLT");
6174 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"pllegend",15,
"PLFLT");
6175 if(!lua_istable(L,17))
SWIG_fail_arg(
"pllegend",17,
"char const **");
6176 if(lua_gettop(L)>=28 && !lua_istable(L,28))
SWIG_fail_arg(
"pllegend",28,
"char const **");
6177 arg3 = (
PLINT)lua_tonumber(L, 1);
6178 arg4 = (
PLINT)lua_tonumber(L, 2);
6179 arg5 = (
PLFLT)lua_tonumber(L, 3);
6180 arg6 = (
PLFLT)lua_tonumber(L, 4);
6181 arg7 = (
PLFLT)lua_tonumber(L, 5);
6182 arg8 = (
PLINT)lua_tonumber(L, 6);
6183 arg9 = (
PLINT)lua_tonumber(L, 7);
6184 arg10 = (
PLINT)lua_tonumber(L, 8);
6185 arg11 = (
PLINT)lua_tonumber(L, 9);
6186 arg12 = (
PLINT)lua_tonumber(L, 10);
6188 arg14 = (
PLINT *) LUA_get_int_num_array_var( L, 11, &arg13 );
6193 arg15 = (
PLFLT)lua_tonumber(L, 12);
6194 arg16 = (
PLFLT)lua_tonumber(L, 13);
6195 arg17 = (
PLFLT)lua_tonumber(L, 14);
6196 arg18 = (
PLFLT)lua_tonumber(L, 15);
6198 arg19 = (
PLINT *) LUA_get_int_num_array_var( L, 16, &temp19 );
6201 if ( temp19 !=
Alen )
6203 lua_pushfstring( L,
"Tables must be of same length." );
6213 lua_pushfstring( L,
"Tables must be of same length." );
6216 arg20 = malloc(
sizeof (
char* ) *
Alen );
6217 for ( i = 1; i <=
Alen; i++ )
6219 lua_rawgeti( L, 17, i );
6220 if ( lua_isstring( L, -1 ) )
6222 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6227 lua_pushfstring( L,
"Requires a sequence of strings." );
6234 if(lua_gettop(L)>=18){
6236 if ( lua_isnil( L, 18 ) )
6242 arg21 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp21 );
6245 if ( temp21 !=
Alen )
6247 lua_pushfstring( L,
"Tables must be of same length." );
6253 if(lua_gettop(L)>=19){
6255 if ( lua_isnil( L, 19 ) )
6261 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp22 );
6264 if ( temp22 !=
Alen )
6266 lua_pushfstring( L,
"Tables must be of same length." );
6272 if(lua_gettop(L)>=20){
6274 if ( lua_isnil( L, 20 ) )
6280 arg23 = (
PLFLT *) LUA_get_double_num_array_var( L, 20, &temp23 );
6283 if ( temp23 !=
Alen )
6285 lua_pushfstring( L,
"Tables must be of same length." );
6291 if(lua_gettop(L)>=21){
6293 if ( lua_isnil( L, 21 ) )
6299 arg24 = (
PLFLT *) LUA_get_double_num_array_var( L, 21, &temp24 );
6302 if ( temp24 !=
Alen )
6304 lua_pushfstring( L,
"Tables must be of same length." );
6310 if(lua_gettop(L)>=22){
6312 if ( lua_isnil( L, 22 ) )
6318 arg25 = (
PLINT *) LUA_get_int_num_array_var( L, 22, &temp25 );
6321 if ( temp25 !=
Alen )
6323 lua_pushfstring( L,
"Tables must be of same length." );
6329 if(lua_gettop(L)>=23){
6331 if ( lua_isnil( L, 23 ) )
6337 arg26 = (
PLINT *) LUA_get_int_num_array_var( L, 23, &temp26 );
6340 if ( temp26 !=
Alen )
6342 lua_pushfstring( L,
"Tables must be of same length." );
6348 if(lua_gettop(L)>=24){
6350 if ( lua_isnil( L, 24 ) )
6356 arg27 = (
PLFLT *) LUA_get_double_num_array_var( L, 24, &temp27 );
6359 if ( temp27 !=
Alen )
6361 lua_pushfstring( L,
"Tables must be of same length." );
6367 if(lua_gettop(L)>=25){
6369 if ( lua_isnil( L, 25 ) )
6375 arg28 = (
PLINT *) LUA_get_int_num_array_var( L, 25, &temp28 );
6378 if ( temp28 !=
Alen )
6380 lua_pushfstring( L,
"Tables must be of same length." );
6386 if(lua_gettop(L)>=26){
6388 if ( lua_isnil( L, 26 ) )
6394 arg29 = (
PLFLT *) LUA_get_double_num_array_var( L, 26, &temp29 );
6397 if ( temp29 !=
Alen )
6399 lua_pushfstring( L,
"Tables must be of same length." );
6405 if(lua_gettop(L)>=27){
6407 if ( lua_isnil( L, 27 ) )
6413 arg30 = (
PLINT *) LUA_get_int_num_array_var( L, 27, &temp30 );
6416 if ( temp30 !=
Alen )
6418 lua_pushfstring( L,
"Tables must be of same length." );
6424 if(lua_gettop(L)>=28){
6431 lua_pushfstring( L,
"Tables must be of same length." );
6434 arg31 = malloc(
sizeof (
char* ) *
Alen );
6435 for ( i = 1; i <=
Alen; i++ )
6437 lua_rawgeti( L, 28, i );
6438 if ( lua_isstring( L, -1 ) )
6440 arg31[i - 1] = (
char *) lua_tostring( L, -1 );
6445 lua_pushfstring( L,
"Requires a sequence of strings." );
6453 pllegend(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,(
int const *)arg14,arg15,arg16,arg17,arg18,(
int const *)arg19,(
char const **)arg20,(
int const *)arg21,(
int const *)arg22,(
double const *)arg23,(
double const *)arg24,(
int const *)arg25,(
int const *)arg26,(
double const *)arg27,(
int const *)arg28,(
double const *)arg29,(
int const *)arg30,(
char const **)arg31);
6455 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6456 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6466 free( arg20 ); arg20 = NULL;
6502 free( arg31 ); arg31 = NULL;
6517 free( arg20 ); arg20 = NULL;
6553 free( arg31 ); arg31 = NULL;
6580 char **arg18 = (
char **) 0 ;
6582 char **arg20 = (
char **) 0 ;
6597 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcolorbar",1,
"PLINT");
6598 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcolorbar",2,
"PLINT");
6599 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plcolorbar",3,
"PLFLT");
6600 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plcolorbar",4,
"PLFLT");
6601 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plcolorbar",5,
"PLFLT");
6602 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plcolorbar",6,
"PLFLT");
6603 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plcolorbar",7,
"PLINT");
6604 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plcolorbar",8,
"PLINT");
6605 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plcolorbar",9,
"PLINT");
6606 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plcolorbar",10,
"PLFLT");
6607 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plcolorbar",11,
"PLFLT");
6608 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plcolorbar",12,
"PLINT");
6609 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plcolorbar",13,
"PLFLT");
6610 if(!lua_istable(L,15))
SWIG_fail_arg(
"plcolorbar",15,
"char const **");
6611 arg3 = (
PLINT)lua_tonumber(L, 1);
6612 arg4 = (
PLINT)lua_tonumber(L, 2);
6613 arg5 = (
PLFLT)lua_tonumber(L, 3);
6614 arg6 = (
PLFLT)lua_tonumber(L, 4);
6615 arg7 = (
PLFLT)lua_tonumber(L, 5);
6616 arg8 = (
PLFLT)lua_tonumber(L, 6);
6617 arg9 = (
PLINT)lua_tonumber(L, 7);
6618 arg10 = (
PLINT)lua_tonumber(L, 8);
6619 arg11 = (
PLINT)lua_tonumber(L, 9);
6620 arg12 = (
PLFLT)lua_tonumber(L, 10);
6621 arg13 = (
PLFLT)lua_tonumber(L, 11);
6622 arg14 = (
PLINT)lua_tonumber(L, 12);
6623 arg15 = (
PLFLT)lua_tonumber(L, 13);
6625 arg17 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &arg16 );
6636 lua_pushfstring( L,
"Tables must be of same length." );
6639 arg18 = malloc(
sizeof (
char* ) *
Alen );
6640 for ( i = 1; i <=
Alen; i++ )
6642 lua_rawgeti( L, 15, i );
6643 if ( lua_isstring( L, -1 ) )
6645 arg18[i - 1] = (
char *) lua_tostring( L, -1 );
6650 lua_pushfstring( L,
"Requires a sequence of strings." );
6662 arg20 = malloc(
sizeof (
char* ) *
Alen );
6663 for ( i = 1; i <=
Alen; i++ )
6665 lua_rawgeti( L, 16, i );
6666 if ( lua_isstring( L, -1 ) )
6668 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6673 lua_pushfstring( L,
"Requires a sequence of strings." );
6680 arg21 = (
PLFLT *) LUA_get_double_num_array_var( L, 17, &temp21 );
6683 if ( temp21 !=
Alen )
6685 lua_pushfstring( L,
"Tables must be of same length." );
6690 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp22 );
6693 if ( temp22 !=
Alen )
6695 lua_pushfstring( L,
"Tables must be of same length." );
6702 arg23 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp23 );
6705 if ( temp23 !=
Alen )
6707 lua_pushfstring( L,
"Tables must be of same length." );
6713 for ( i = 0; i <
Xlen; i++ )
6714 if ( arg23[i] >
Ylen )
6723 if ( ( ii24 !=
Xlen ) || ( jj !=
Ylen ) )
6725 lua_pushfstring( L,
"Vectors must match matrix." );
6729 plcolorbar(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,(
int const *)arg17,(
char const **)arg18,arg19,(
char const **)arg20,(
double const *)arg21,(
int const *)arg22,(
int const *)arg23,(
double const **)arg24);
6731 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6732 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6739 free( arg18 ); arg18 = NULL;
6745 free( arg20 ); arg20 = NULL;
6762 for ( i = 0; i < ii24; i++ )
6776 free( arg18 ); arg18 = NULL;
6782 free( arg20 ); arg20 = NULL;
6799 for ( i = 0; i < ii24; i++ )
6816 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pllightsource",1,
"PLFLT");
6817 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pllightsource",2,
"PLFLT");
6818 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pllightsource",3,
"PLFLT");
6819 arg1 = (
PLFLT)lua_tonumber(L, 1);
6820 arg2 = (
PLFLT)lua_tonumber(L, 2);
6821 arg3 = (
PLFLT)lua_tonumber(L, 3);
6842 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6848 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6851 if ( temp3 !=
Alen )
6853 lua_pushfstring( L,
"Tables must be of same length." );
6857 plline(arg1,(
double const *)arg2,(
double const *)arg3);
6891 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6897 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6900 if ( temp3 !=
Alen )
6902 lua_pushfstring( L,
"Tables must be of same length." );
6907 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
6910 if ( temp4 !=
Alen )
6912 lua_pushfstring( L,
"Tables must be of same length." );
6916 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
6950 arg1 = (
PLINT)lua_tonumber(L, 1);
6975 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6982 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6995 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6997 lua_pushfstring( L,
"Vectors must match matrix." );
7001 arg6 = (
PLINT)lua_tonumber(L, 4);
7002 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
7015 for ( i = 0; i < ii3; i++ )
7034 for ( i = 0; i < ii3; i++ )
7060 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7067 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7080 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7082 lua_pushfstring( L,
"Vectors must match matrix." );
7086 arg6 = (
PLINT)lua_tonumber(L, 4);
7089 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7094 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7107 for ( i = 0; i < ii3; i++ )
7129 for ( i = 0; i < ii3; i++ )
7151 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
7162 char *arg1 = (
char *) 0 ;
7166 char *arg5 = (
char *) 0 ;
7174 arg1 = (
char *)lua_tostring(L, 1);
7175 arg2 = (
PLFLT)lua_tonumber(L, 2);
7176 arg3 = (
PLFLT)lua_tonumber(L, 3);
7177 arg4 = (
PLFLT)lua_tonumber(L, 4);
7178 arg5 = (
char *)lua_tostring(L, 5);
7179 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7191 char *arg1 = (
char *) 0 ;
7195 char *arg5 = (
char *) 0 ;
7203 arg1 = (
char *)lua_tostring(L, 1);
7204 arg2 = (
PLFLT)lua_tonumber(L, 2);
7205 arg3 = (
PLFLT)lua_tonumber(L, 3);
7206 arg4 = (
PLFLT)lua_tonumber(L, 4);
7207 arg5 = (
char *)lua_tostring(L, 5);
7208 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7234 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7241 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7254 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7256 lua_pushfstring( L,
"Vectors must match matrix." );
7260 arg6 = (
PLINT)lua_tonumber(L, 4);
7261 arg7 = (
PLBOOL)lua_tonumber(L, 5);
7262 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
7275 for ( i = 0; i < ii3; i++ )
7294 for ( i = 0; i < ii3; i++ )
7320 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7327 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7340 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7342 lua_pushfstring( L,
"Vectors must match matrix." );
7346 arg6 = (
PLINT)lua_tonumber(L, 4);
7349 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7354 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7367 for ( i = 0; i < ii3; i++ )
7389 for ( i = 0; i < ii3; i++ )
7424 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7431 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7444 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7446 lua_pushfstring( L,
"Vectors must match matrix." );
7450 arg6 = (
PLINT)lua_tonumber(L, 4);
7453 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7458 arg9 = (
PLINT)lua_tonumber(L, 6);
7460 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7466 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7469 if ( temp12 !=
Alen )
7471 lua_pushfstring( L,
"Tables must be of same length." );
7475 plot3dcl((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,(
int const *)arg11,(
int const *)arg12);
7488 for ( i = 0; i < ii3; i++ )
7516 for ( i = 0; i < ii3; i++ )
7551 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7558 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7571 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7573 lua_pushfstring( L,
"Vectors must match matrix." );
7577 arg6 = (
PLINT)lua_tonumber(L, 4);
7580 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7585 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7598 for ( i = 0; i < ii3; i++ )
7620 for ( i = 0; i < ii3; i++ )
7651 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plsurf3dl",4,
"PLINT");
7652 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plsurf3dl",6,
"PLINT");
7655 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7662 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7675 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7677 lua_pushfstring( L,
"Vectors must match matrix." );
7681 arg6 = (
PLINT)lua_tonumber(L, 4);
7684 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7689 arg9 = (
PLINT)lua_tonumber(L, 6);
7691 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7697 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7700 if ( temp12 !=
Alen )
7702 lua_pushfstring( L,
"Tables must be of same length." );
7706 plsurf3dl((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,(
int const *)arg11,(
int const *)arg12);
7719 for ( i = 0; i < ii3; i++ )
7747 for ( i = 0; i < ii3; i++ )
7768 int *arg1 = (
int *) 0 ;
7769 char **arg2 = (
char **) 0 ;
7774 if(!lua_istable(L,1))
SWIG_fail_arg(
"plparseopts",1,
"int *");
7775 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plparseopts",2,
"PLINT");
7784 lua_rawgeti( L, 1, i );
7785 if ( lua_isnil( L, -1 ) )
7798 for ( i = 0; i < n; i++ )
7800 lua_rawgeti( L, 1, i );
7801 if ( lua_isstring( L, -1 ) )
7803 arg2[i] = (
char *) lua_tostring( L, -1 );
7808 lua_pushfstring( L,
"List items must be strings" );
7816 arg3 = (
PLINT)lua_tonumber(L, 2);
7818 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
7842 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
7848 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
7851 if ( temp3 !=
Alen )
7853 lua_pushfstring( L,
"Tables must be of same length." );
7857 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
7893 arg1 = (
PLINT)lua_tonumber(L, 1);
7894 arg2 = (
PLFLT)lua_tonumber(L, 2);
7895 arg3 = (
PLFLT)lua_tonumber(L, 3);
7896 arg4 = (
PLFLT)lua_tonumber(L, 4);
7897 arg5 = (
PLFLT)lua_tonumber(L, 5);
7898 plpath(arg1,arg2,arg3,arg4,arg5);
7920 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7926 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7929 if ( temp3 !=
Alen )
7931 lua_pushfstring( L,
"Tables must be of same length." );
7935 arg4 = (
PLINT)lua_tonumber(L, 3);
7936 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
7972 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7978 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7981 if ( temp3 !=
Alen )
7983 lua_pushfstring( L,
"Tables must be of same length." );
7988 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7991 if ( temp4 !=
Alen )
7993 lua_pushfstring( L,
"Tables must be of same length." );
7997 arg5 = (
PLINT)lua_tonumber(L, 4);
7998 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
8042 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8048 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8051 if ( temp3 !=
Alen )
8053 lua_pushfstring( L,
"Tables must be of same length." );
8058 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8061 if ( temp4 !=
Alen )
8063 lua_pushfstring( L,
"Tables must be of same length." );
8068 arg5 = (
PLINT *) LUA_get_int_num_array_var( L, 4, &temp5 );
8071 if ( temp5 <
Alen - 1 )
8073 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8077 arg6 = (
PLBOOL)lua_tonumber(L, 5);
8078 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
8120 arg1 = (
PLINT)lua_tonumber(L, 1);
8121 arg2 = (
PLINT)lua_tonumber(L, 2);
8138 arg1 = (
PLINT)lua_tonumber(L, 1);
8156 char *arg6 = (
char *) 0 ;
8165 arg1 = (
PLFLT)lua_tonumber(L, 1);
8166 arg2 = (
PLFLT)lua_tonumber(L, 2);
8167 arg3 = (
PLFLT)lua_tonumber(L, 3);
8168 arg4 = (
PLFLT)lua_tonumber(L, 4);
8169 arg5 = (
PLFLT)lua_tonumber(L, 5);
8170 arg6 = (
char *)lua_tostring(L, 6);
8171 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
8193 char *arg11 = (
char *) 0 ;
8205 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plptex3",10,
"PLFLT");
8207 arg1 = (
PLFLT)lua_tonumber(L, 1);
8208 arg2 = (
PLFLT)lua_tonumber(L, 2);
8209 arg3 = (
PLFLT)lua_tonumber(L, 3);
8210 arg4 = (
PLFLT)lua_tonumber(L, 4);
8211 arg5 = (
PLFLT)lua_tonumber(L, 5);
8212 arg6 = (
PLFLT)lua_tonumber(L, 6);
8213 arg7 = (
PLFLT)lua_tonumber(L, 7);
8214 arg8 = (
PLFLT)lua_tonumber(L, 8);
8215 arg9 = (
PLFLT)lua_tonumber(L, 9);
8216 arg10 = (
PLFLT)lua_tonumber(L, 10);
8217 arg11 = (
char *)lua_tostring(L, 11);
8218 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
8234 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
8276 arg1 = (
PLFLT)lua_tonumber(L, 1);
8277 arg2 = (
PLFLT)lua_tonumber(L, 2);
8278 arg3 = (
PLFLT)lua_tonumber(L, 3);
8279 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
8281 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
8282 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
8283 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
8300 arg1 = (
PLFLT)lua_tonumber(L, 1);
8301 arg2 = (
PLFLT)lua_tonumber(L, 2);
8324 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8330 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8333 if ( temp2 !=
Alen )
8335 lua_pushfstring( L,
"Tables must be of same length." );
8340 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8343 if ( temp3 !=
Alen )
8345 lua_pushfstring( L,
"Tables must be of same length." );
8350 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8391 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8397 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8400 if ( temp2 !=
Alen )
8402 lua_pushfstring( L,
"Tables must be of same length." );
8407 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8410 if ( temp3 !=
Alen )
8412 lua_pushfstring( L,
"Tables must be of same length." );
8418 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8423 lua_pushfstring( L,
"Tables must be of same length." );
8428 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8467 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap0n",1,
"PLINT");
8468 arg1 = (
PLINT)lua_tonumber(L, 1);
8491 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8497 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8500 if ( temp2 !=
Alen )
8502 lua_pushfstring( L,
"Tables must be of same length." );
8507 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8510 if ( temp3 !=
Alen )
8512 lua_pushfstring( L,
"Tables must be of same length." );
8517 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8558 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8564 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8567 if ( temp2 !=
Alen )
8569 lua_pushfstring( L,
"Tables must be of same length." );
8574 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8577 if ( temp3 !=
Alen )
8579 lua_pushfstring( L,
"Tables must be of same length." );
8585 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8590 lua_pushfstring( L,
"Tables must be of same length." );
8595 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8647 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1l",1,
"PLBOOL");
8648 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8651 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8657 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8660 if ( temp4 !=
Alen )
8662 lua_pushfstring( L,
"Tables must be of same length." );
8667 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8670 if ( temp5 !=
Alen )
8672 lua_pushfstring( L,
"Tables must be of same length." );
8677 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8680 if ( temp6 !=
Alen )
8682 lua_pushfstring( L,
"Tables must be of same length." );
8686 if(lua_gettop(L)>=6){
8688 if ( lua_isnil( L, 6 ) )
8694 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 6, &temp7 );
8697 if ( temp7 <
Alen - 1 )
8699 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8705 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
8765 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1la",1,
"PLBOOL");
8766 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8769 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8775 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8778 if ( temp4 !=
Alen )
8780 lua_pushfstring( L,
"Tables must be of same length." );
8785 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8788 if ( temp5 !=
Alen )
8790 lua_pushfstring( L,
"Tables must be of same length." );
8795 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8798 if ( temp6 !=
Alen )
8800 lua_pushfstring( L,
"Tables must be of same length." );
8805 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp7 );
8808 if ( temp7 !=
Alen )
8810 lua_pushfstring( L,
"Tables must be of same length." );
8814 if(lua_gettop(L)>=7){
8816 if ( lua_isnil( L, 7 ) )
8822 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp8 );
8825 if ( temp8 <
Alen - 1 )
8827 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8833 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
8884 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1n",1,
"PLINT");
8885 arg1 = (
PLINT)lua_tonumber(L, 1);
8902 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1_range",1,
"PLFLT");
8903 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscmap1_range",2,
"PLFLT");
8904 arg1 = (
PLFLT)lua_tonumber(L, 1);
8905 arg2 = (
PLFLT)lua_tonumber(L, 2);
8928 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
8929 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
8950 arg1 = (
PLINT)lua_tonumber(L, 1);
8951 arg2 = (
PLINT)lua_tonumber(L, 2);
8952 arg3 = (
PLINT)lua_tonumber(L, 3);
8953 arg4 = (
PLINT)lua_tonumber(L, 4);
8978 arg1 = (
PLINT)lua_tonumber(L, 1);
8979 arg2 = (
PLINT)lua_tonumber(L, 2);
8980 arg3 = (
PLINT)lua_tonumber(L, 3);
8981 arg4 = (
PLINT)lua_tonumber(L, 4);
8982 arg5 = (
PLFLT)lua_tonumber(L, 5);
8983 plscol0a(arg1,arg2,arg3,arg4,arg5);
9003 arg1 = (
PLINT)lua_tonumber(L, 1);
9004 arg2 = (
PLINT)lua_tonumber(L, 2);
9005 arg3 = (
PLINT)lua_tonumber(L, 3);
9024 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscolbga",1,
"PLINT");
9025 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscolbga",2,
"PLINT");
9026 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plscolbga",3,
"PLINT");
9027 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plscolbga",4,
"PLFLT");
9028 arg1 = (
PLINT)lua_tonumber(L, 1);
9029 arg2 = (
PLINT)lua_tonumber(L, 2);
9030 arg3 = (
PLINT)lua_tonumber(L, 3);
9031 arg4 = (
PLFLT)lua_tonumber(L, 4);
9048 arg1 = (
PLINT)lua_tonumber(L, 1);
9064 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscompression",1,
"PLINT");
9065 arg1 = (
PLINT)lua_tonumber(L, 1);
9078 char *arg1 = (
char *) 0 ;
9082 arg1 = (
char *)lua_tostring(L, 1);
9083 plsdev((
char const *)arg1);
9105 arg1 = (
PLFLT)lua_tonumber(L, 1);
9106 arg2 = (
PLFLT)lua_tonumber(L, 2);
9107 arg3 = (
PLFLT)lua_tonumber(L, 3);
9108 arg4 = (
PLFLT)lua_tonumber(L, 4);
9135 arg1 = (
PLINT)lua_tonumber(L, 1);
9136 arg2 = (
PLINT)lua_tonumber(L, 2);
9137 arg3 = (
PLINT)lua_tonumber(L, 3);
9138 arg4 = (
PLINT)lua_tonumber(L, 4);
9139 arg5 = (
PLFLT)lua_tonumber(L, 5);
9140 arg6 = (
PLFLT)lua_tonumber(L, 6);
9141 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
9157 arg1 = (
PLFLT)lua_tonumber(L, 1);
9180 arg1 = (
PLFLT)lua_tonumber(L, 1);
9181 arg2 = (
PLFLT)lua_tonumber(L, 2);
9182 arg3 = (
PLFLT)lua_tonumber(L, 3);
9183 arg4 = (
PLFLT)lua_tonumber(L, 4);
9206 arg1 = (
PLFLT)lua_tonumber(L, 1);
9207 arg2 = (
PLFLT)lua_tonumber(L, 2);
9208 arg3 = (
PLFLT)lua_tonumber(L, 3);
9209 arg4 = (
PLFLT)lua_tonumber(L, 4);
9225 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plseed",1,
"unsigned int");
9227 arg1 = (
unsigned int)lua_tonumber(L, 1);
9244 arg1 = (lua_tostring(L, 1))[0];
9257 char *arg1 = (
char *) 0 ;
9258 char *arg2 = (
char *) 0 ;
9264 arg1 = (
char *)lua_tostring(L, 1);
9265 arg2 = (
char *)lua_tostring(L, 2);
9266 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
9267 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
9286 arg1 = (
PLINT)lua_tonumber(L, 1);
9287 arg2 = (
PLINT)lua_tonumber(L, 2);
9288 arg3 = (
PLINT)lua_tonumber(L, 3);
9304 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plsfci",1,
"PLUNICODE");
9319 char *arg1 = (
char *) 0 ;
9323 arg1 = (
char *)lua_tostring(L, 1);
9344 arg1 = (
PLINT)lua_tonumber(L, 1);
9345 arg2 = (
PLINT)lua_tonumber(L, 2);
9346 arg3 = (
PLINT)lua_tonumber(L, 3);
9381 cgrid117.
xg = cgrid117.
yg = cgrid117.
zg = NULL;
9382 cgrid117.
nx = cgrid117.
ny = cgrid117.
nz = 0;
9383 cgrid217.
xg = cgrid217.
yg = cgrid217.
zg = NULL;
9384 cgrid217.
nx = cgrid217.
ny = 0;
9406 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshades",10,
"PLBOOL");
9416 arg5 = (
PLFLT)lua_tonumber(L, 2);
9417 arg6 = (
PLFLT)lua_tonumber(L, 3);
9418 arg7 = (
PLFLT)lua_tonumber(L, 4);
9419 arg8 = (
PLFLT)lua_tonumber(L, 5);
9422 arg9 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
9425 arg10 =
Alen = temp;
9427 arg11 = (
PLFLT)lua_tonumber(L, 7);
9428 arg12 = (
PLINT)lua_tonumber(L, 8);
9429 arg13 = (
PLFLT)lua_tonumber(L, 9);
9430 arg15 = (
PLBOOL)lua_tonumber(L, 10);
9431 if(lua_gettop(L)>=11){
9436 if ( lua_isstring( L, 11 ) )
9438 const char* funcstr = lua_tostring( L, 11 );
9439 if ( strcmp(
"pltr0", funcstr ) == 0 )
9443 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9447 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9462 if(lua_gettop(L)>=12){
9467 lua_pushstring( L,
"xg" );
9468 lua_gettable( L, 12 );
9469 if ( !lua_istable( L, -1 ) )
9472 lua_pushstring( L,
"expected a table xg" );
9475 lua_rawgeti( L, -1, 1 );
9476 if ( lua_istable( L, -1 ) )
9478 else if ( lua_isnumber( L, -1 ) )
9484 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9488 if ( gridmode == 1 )
9490 cgrid117.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9498 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9511 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9514 lua_pushfstring( L,
"Vectors must match matrix." );
9522 lua_pushstring( L,
"yg" );
9523 lua_gettable( L, 12 );
9524 if ( !lua_istable( L, -1 ) )
9527 lua_pushstring( L,
"expected a table yg" );
9530 lua_rawgeti( L, -1, 1 );
9531 if ( gridmode == 2 )
9533 if ( !lua_istable( L, -1 ) )
9537 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9543 if ( !lua_isnumber( L, -1 ) )
9547 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9552 if ( gridmode == 1 )
9554 cgrid117.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9562 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9575 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9578 lua_pushfstring( L,
"Vectors must match matrix." );
9585 if ( gridmode == 1 )
9587 else if ( gridmode == 2 )
9591 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
9598 for ( i = 0; i < ii1; i++ )
9617 for ( i = 0; i <
Xlen; i++ )
9623 for ( i = 0; i <
Xlen; i++ )
9636 for ( i = 0; i < ii1; i++ )
9655 for ( i = 0; i <
Xlen; i++ )
9661 for ( i = 0; i <
Xlen; i++ )
9699 cgrid121.
xg = cgrid121.
yg = cgrid121.
zg = NULL;
9700 cgrid121.
nx = cgrid121.
ny = cgrid121.
nz = 0;
9701 cgrid221.
xg = cgrid221.
yg = cgrid221.
zg = NULL;
9702 cgrid221.
nx = cgrid221.
ny = 0;
9725 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshade",10,
"PLFLT");
9726 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plshade",11,
"PLINT");
9727 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plshade",12,
"PLFLT");
9728 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plshade",13,
"PLINT");
9729 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"plshade",14,
"PLFLT");
9730 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"plshade",15,
"PLBOOL");
9740 arg5 = (
PLFLT)lua_tonumber(L, 2);
9741 arg6 = (
PLFLT)lua_tonumber(L, 3);
9742 arg7 = (
PLFLT)lua_tonumber(L, 4);
9743 arg8 = (
PLFLT)lua_tonumber(L, 5);
9744 arg9 = (
PLFLT)lua_tonumber(L, 6);
9745 arg10 = (
PLFLT)lua_tonumber(L, 7);
9746 arg11 = (
PLINT)lua_tonumber(L, 8);
9747 arg12 = (
PLFLT)lua_tonumber(L, 9);
9748 arg13 = (
PLFLT)lua_tonumber(L, 10);
9749 arg14 = (
PLINT)lua_tonumber(L, 11);
9750 arg15 = (
PLFLT)lua_tonumber(L, 12);
9751 arg16 = (
PLINT)lua_tonumber(L, 13);
9752 arg17 = (
PLFLT)lua_tonumber(L, 14);
9753 arg19 = (
PLBOOL)lua_tonumber(L, 15);
9754 if(lua_gettop(L)>=16){
9759 if ( lua_isstring( L, 16 ) )
9761 const char* funcstr = lua_tostring( L, 16 );
9762 if ( strcmp(
"pltr0", funcstr ) == 0 )
9766 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9770 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9785 if(lua_gettop(L)>=17){
9790 lua_pushstring( L,
"xg" );
9791 lua_gettable( L, 17 );
9792 if ( !lua_istable( L, -1 ) )
9795 lua_pushstring( L,
"expected a table xg" );
9798 lua_rawgeti( L, -1, 1 );
9799 if ( lua_istable( L, -1 ) )
9801 else if ( lua_isnumber( L, -1 ) )
9807 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9811 if ( gridmode == 1 )
9813 cgrid121.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9821 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9834 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9837 lua_pushfstring( L,
"Vectors must match matrix." );
9845 lua_pushstring( L,
"yg" );
9846 lua_gettable( L, 17 );
9847 if ( !lua_istable( L, -1 ) )
9850 lua_pushstring( L,
"expected a table yg" );
9853 lua_rawgeti( L, -1, 1 );
9854 if ( gridmode == 2 )
9856 if ( !lua_istable( L, -1 ) )
9860 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9866 if ( !lua_isnumber( L, -1 ) )
9870 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9875 if ( gridmode == 1 )
9877 cgrid121.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9885 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9898 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9901 lua_pushfstring( L,
"Vectors must match matrix." );
9908 if ( gridmode == 1 )
9910 else if ( gridmode == 2 )
9914 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
9921 for ( i = 0; i < ii1; i++ )
9937 for ( i = 0; i <
Xlen; i++ )
9943 for ( i = 0; i <
Xlen; i++ )
9956 for ( i = 0; i < ii1; i++ )
9972 for ( i = 0; i <
Xlen; i++ )
9978 for ( i = 0; i <
Xlen; i++ )
10001 if ( lua_isnil( L, 1 ) )
10005 else if ( lua_isstring( L, 1 ) )
10038 arg1 = (
PLFLT)lua_tonumber(L, 1);
10039 arg2 = (
PLFLT)lua_tonumber(L, 2);
10058 arg1 = (
PLFLT)lua_tonumber(L, 1);
10059 arg2 = (
PLFLT)lua_tonumber(L, 2);
10076 arg1 = (
PLINT)lua_tonumber(L, 1);
10103 arg1 = (
PLFLT)lua_tonumber(L, 1);
10104 arg2 = (
PLFLT)lua_tonumber(L, 2);
10105 arg3 = (
PLINT)lua_tonumber(L, 3);
10106 arg4 = (
PLINT)lua_tonumber(L, 4);
10107 arg5 = (
PLINT)lua_tonumber(L, 5);
10108 arg6 = (
PLINT)lua_tonumber(L, 6);
10109 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
10121 char *arg1 = (
char *) 0 ;
10125 arg1 = (
char *)lua_tostring(L, 1);
10138 char *arg1 = (
char *) 0 ;
10143 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plspal1",2,
"PLBOOL");
10144 arg1 = (
char *)lua_tostring(L, 1);
10145 arg2 = (
PLBOOL)lua_tonumber(L, 2);
10146 plspal1((
char const *)arg1,arg2);
10161 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plspause",1,
"PLBOOL");
10162 arg1 = (
PLBOOL)lua_tonumber(L, 1);
10179 arg1 = (
PLINT)lua_tonumber(L, 1);
10198 arg1 = (
PLINT)lua_tonumber(L, 1);
10199 arg2 = (
PLINT)lua_tonumber(L, 2);
10218 arg1 = (
PLFLT)lua_tonumber(L, 1);
10219 arg2 = (
PLFLT)lua_tonumber(L, 2);
10238 arg1 = (
PLINT)lua_tonumber(L, 1);
10239 arg2 = (
PLINT)lua_tonumber(L, 2);
10252 char *arg1 = (
char *) 0 ;
10260 arg1 = (
char *)lua_tostring(L, 1);
10261 arg2 = (
PLINT)lua_tonumber(L, 2);
10262 arg3 = (
PLINT)lua_tonumber(L, 3);
10263 plstart((
char const *)arg1,arg2,arg3);
10286 if(lua_gettop(L)>=1){
10291 if ( lua_isstring( L, 1 ) )
10293 const char* funcstr = lua_tostring( L, 1 );
10317 char *arg4 = (
char *) 0 ;
10324 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10327 arg1 =
Alen = temp;
10330 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10333 if ( temp3 !=
Alen )
10335 lua_pushfstring( L,
"Tables must be of same length." );
10339 arg4 = (
char *)lua_tostring(L, 3);
10340 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
10368 char *arg5 = (
char *) 0 ;
10376 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10379 arg1 =
Alen = temp;
10382 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10385 if ( temp3 !=
Alen )
10387 lua_pushfstring( L,
"Tables must be of same length." );
10392 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
10395 if ( temp4 !=
Alen )
10397 lua_pushfstring( L,
"Tables must be of same length." );
10401 arg5 = (
char *)lua_tostring(L, 4);
10402 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
10438 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripa",1,
"PLINT");
10439 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plstripa",2,
"PLINT");
10440 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripa",3,
"PLFLT");
10441 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripa",4,
"PLFLT");
10442 arg1 = (
PLINT)lua_tonumber(L, 1);
10443 arg2 = (
PLINT)lua_tonumber(L, 2);
10444 arg3 = (
PLFLT)lua_tonumber(L, 3);
10445 arg4 = (
PLFLT)lua_tonumber(L, 4);
10459 char *arg2 = (
char *) 0 ;
10460 char *arg3 = (
char *) 0 ;
10474 char **arg17 = (
char **) (
char **)0 ;
10475 char *arg18 = (
char *) 0 ;
10476 char *arg19 = (
char *) 0 ;
10477 char *arg20 = (
char *) 0 ;
10489 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripc",3,
"PLFLT");
10490 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripc",4,
"PLFLT");
10491 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plstripc",5,
"PLFLT");
10492 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plstripc",6,
"PLFLT");
10493 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plstripc",7,
"PLFLT");
10494 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plstripc",8,
"PLFLT");
10495 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plstripc",9,
"PLFLT");
10496 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plstripc",10,
"PLBOOL");
10497 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plstripc",11,
"PLBOOL");
10498 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plstripc",12,
"PLINT");
10499 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plstripc",13,
"PLINT");
10500 if(lua_gettop(L)>=16 && !lua_istable(L,16))
SWIG_fail_arg(
"plstripc",16,
"char const *[4]");
10504 arg2 = (
char *)lua_tostring(L, 1);
10505 arg3 = (
char *)lua_tostring(L, 2);
10506 arg4 = (
PLFLT)lua_tonumber(L, 3);
10507 arg5 = (
PLFLT)lua_tonumber(L, 4);
10508 arg6 = (
PLFLT)lua_tonumber(L, 5);
10509 arg7 = (
PLFLT)lua_tonumber(L, 6);
10510 arg8 = (
PLFLT)lua_tonumber(L, 7);
10511 arg9 = (
PLFLT)lua_tonumber(L, 8);
10512 arg10 = (
PLFLT)lua_tonumber(L, 9);
10513 arg11 = (
PLBOOL)lua_tonumber(L, 10);
10514 arg12 = (
PLBOOL)lua_tonumber(L, 11);
10515 arg13 = (
PLINT)lua_tonumber(L, 12);
10516 arg14 = (
PLINT)lua_tonumber(L, 13);
10518 arg15 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &temp15 );
10524 arg16 = (
PLINT *) LUA_get_int_num_array_var( L, 15, &temp16 );
10527 if ( temp16 !=
Alen )
10529 lua_pushfstring( L,
"Tables must be of same length." );
10533 if(lua_gettop(L)>=16){
10540 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10545 lua_pushfstring( L,
"colline and styline args must be length 4." );
10549 arg17 = malloc(
sizeof (
char* ) * 4 );
10550 for ( i = 1; i <= 4; i++ )
10552 lua_rawgeti( L, 16, i );
10553 if ( lua_isstring( L, -1 ) )
10555 arg17[i - 1] = (
char *) lua_tostring( L, -1 );
10560 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10568 if(lua_gettop(L)>=17){
10569 arg18 = (
char *)lua_tostring(L, 17);
10571 if(lua_gettop(L)>=18){
10572 arg19 = (
char *)lua_tostring(L, 18);
10574 if(lua_gettop(L)>=19){
10575 arg20 = (
char *)lua_tostring(L, 19);
10577 plstripc(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,(
int const *)arg15,(
int const *)arg16,(
char const *(*))arg17,(
char const *)arg18,(
char const *)arg19,(
char const *)arg20);
10579 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
10589 free( arg17 ); arg17 = NULL;
10604 free( arg17 ); arg17 = NULL;
10617 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripd",1,
"PLINT");
10618 arg1 = (
PLINT)lua_tonumber(L, 1);
10638 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
10644 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
10647 if ( temp3 !=
Alen )
10649 lua_pushfstring( L,
"Tables must be of same length." );
10653 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
10683 arg2 = NULL; arg3 = 0;
10689 if(lua_gettop(L)>=3 && !lua_isnumber(L,3))
SWIG_fail_arg(
"plsvect",3,
"PLBOOL");
10692 if ( lua_isnil( L, 1 ) )
10699 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10705 if(lua_gettop(L)>=2){
10708 if ( lua_isnil( L, 2 ) )
10714 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
10717 if ( temp !=
Alen )
10719 lua_pushfstring( L,
"Tables must be of same length." );
10726 if(lua_gettop(L)>=3){
10727 arg4 = (
PLBOOL)lua_tonumber(L, 3);
10729 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
10757 arg1 = (
PLFLT)lua_tonumber(L, 1);
10758 arg2 = (
PLFLT)lua_tonumber(L, 2);
10759 arg3 = (
PLFLT)lua_tonumber(L, 3);
10760 arg4 = (
PLFLT)lua_tonumber(L, 4);
10761 plsvpa(arg1,arg2,arg3,arg4);
10779 arg1 = (
PLINT)lua_tonumber(L, 1);
10780 arg2 = (
PLINT)lua_tonumber(L, 2);
10799 arg1 = (
PLINT)lua_tonumber(L, 1);
10800 arg2 = (
PLINT)lua_tonumber(L, 2);
10823 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10826 arg1 =
Alen = temp;
10829 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10832 if ( temp3 !=
Alen )
10834 lua_pushfstring( L,
"Tables must be of same length." );
10838 arg4 = (
PLINT)lua_tonumber(L, 3);
10839 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
10869 arg1 = (
PLINT)lua_tonumber(L, 1);
10870 arg2 = (
PLINT)lua_tonumber(L, 2);
10897 char *arg1 = (
char *) 0 ;
10901 arg1 = (
char *)lua_tostring(L, 1);
10918 arg1 = (
PLFLT)lua_tonumber(L, 1);
10944 cgrid17.
xg = cgrid17.
yg = cgrid17.
zg = NULL;
10945 cgrid17.
nx = cgrid17.
ny = cgrid17.
nz = 0;
10946 cgrid27.
xg = cgrid27.
yg = cgrid27.
zg = NULL;
10947 cgrid27.
nx = cgrid27.
ny = 0;
10974 if ( ( arg3 !=
Xlen ) || ( arg4 !=
Ylen ) )
10976 lua_pushfstring( L,
"Vectors must match matrix." );
10980 arg5 = (
PLFLT)lua_tonumber(L, 3);
10981 if(lua_gettop(L)>=4){
10986 if ( lua_isstring( L, 4 ) )
10988 const char* funcstr = lua_tostring( L, 4 );
10989 if ( strcmp(
"pltr0", funcstr ) == 0 )
10993 else if ( strcmp(
"pltr1", funcstr ) == 0 )
10997 else if ( strcmp(
"pltr2", funcstr ) == 0 )
11012 if(lua_gettop(L)>=5){
11017 lua_pushstring( L,
"xg" );
11018 lua_gettable( L, 5 );
11019 if ( !lua_istable( L, -1 ) )
11022 lua_pushstring( L,
"expected a table xg" );
11025 lua_rawgeti( L, -1, 1 );
11026 if ( lua_istable( L, -1 ) )
11028 else if ( lua_isnumber( L, -1 ) )
11034 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
11038 if ( gridmode == 1 )
11040 cgrid17.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
11048 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
11061 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11064 lua_pushfstring( L,
"Vectors must match matrix." );
11072 lua_pushstring( L,
"yg" );
11073 lua_gettable( L, 5 );
11074 if ( !lua_istable( L, -1 ) )
11077 lua_pushstring( L,
"expected a table yg" );
11080 lua_rawgeti( L, -1, 1 );
11081 if ( gridmode == 2 )
11083 if ( !lua_istable( L, -1 ) )
11087 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
11093 if ( !lua_isnumber( L, -1 ) )
11097 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
11102 if ( gridmode == 1 )
11104 cgrid17.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
11112 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
11125 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11128 lua_pushfstring( L,
"Vectors must match matrix." );
11135 if ( gridmode == 1 )
11137 else if ( gridmode == 2 )
11141 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
11148 for ( i = 0; i < ii1; i++ )
11158 for ( i = 0; i < ii2; i++ )
11174 for ( i = 0; i <
Xlen; i++ )
11180 for ( i = 0; i <
Xlen; i++ )
11193 for ( i = 0; i < ii1; i++ )
11203 for ( i = 0; i < ii2; i++ )
11219 for ( i = 0; i <
Xlen; i++ )
11225 for ( i = 0; i <
Xlen; i++ )
11249 arg1 = (
PLFLT)lua_tonumber(L, 1);
11250 arg2 = (
PLFLT)lua_tonumber(L, 2);
11251 arg3 = (
PLFLT)lua_tonumber(L, 3);
11252 arg4 = (
PLFLT)lua_tonumber(L, 4);
11253 arg5 = (
PLFLT)lua_tonumber(L, 5);
11254 plvpas(arg1,arg2,arg3,arg4,arg5);
11276 arg1 = (
PLFLT)lua_tonumber(L, 1);
11277 arg2 = (
PLFLT)lua_tonumber(L, 2);
11278 arg3 = (
PLFLT)lua_tonumber(L, 3);
11279 arg4 = (
PLFLT)lua_tonumber(L, 4);
11280 plvpor(arg1,arg2,arg3,arg4);
11330 arg1 = (
PLFLT)lua_tonumber(L, 1);
11331 arg2 = (
PLFLT)lua_tonumber(L, 2);
11332 arg3 = (
PLFLT)lua_tonumber(L, 3);
11333 arg4 = (
PLFLT)lua_tonumber(L, 4);
11334 arg5 = (
PLFLT)lua_tonumber(L, 5);
11335 arg6 = (
PLFLT)lua_tonumber(L, 6);
11336 arg7 = (
PLFLT)lua_tonumber(L, 7);
11337 arg8 = (
PLFLT)lua_tonumber(L, 8);
11338 arg9 = (
PLFLT)lua_tonumber(L, 9);
11339 arg10 = (
PLFLT)lua_tonumber(L, 10);
11340 arg11 = (
PLFLT)lua_tonumber(L, 11);
11341 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
11357 arg1 = (
PLFLT)lua_tonumber(L, 1);
11380 arg1 = (
PLFLT)lua_tonumber(L, 1);
11381 arg2 = (
PLFLT)lua_tonumber(L, 2);
11382 arg3 = (
PLFLT)lua_tonumber(L, 3);
11383 arg4 = (
PLFLT)lua_tonumber(L, 4);
11384 plwind(arg1,arg2,arg3,arg4);
11402 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plxormod",1,
"PLBOOL");
11403 arg1 = (
PLBOOL)lua_tonumber(L, 1);
11406 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
11418 char *arg2 = (
char *) 0 ;
11434 if ( lua_isnil( L, 1 ) )
11438 else if ( lua_isstring( L, 1 ) )
11447 arg2 = (
char *)lua_tostring(L, 2);
11448 arg3 = (
PLFLT)lua_tonumber(L, 3);
11449 arg4 = (
PLFLT)lua_tonumber(L, 4);
11450 arg5 = (
PLFLT)lua_tonumber(L, 5);
11451 arg6 = (
PLFLT)lua_tonumber(L, 6);
11452 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
11471 char *arg2 = (
char *) 0 ;
11482 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapline",3,
"PLFLT");
11483 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapline",4,
"PLFLT");
11484 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapline",5,
"PLFLT");
11485 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapline",6,
"PLFLT");
11490 if ( lua_isnil( L, 1 ) )
11494 else if ( lua_isstring( L, 1 ) )
11503 arg2 = (
char *)lua_tostring(L, 2);
11504 arg3 = (
PLFLT)lua_tonumber(L, 3);
11505 arg4 = (
PLFLT)lua_tonumber(L, 4);
11506 arg5 = (
PLFLT)lua_tonumber(L, 5);
11507 arg6 = (
PLFLT)lua_tonumber(L, 6);
11509 if ( lua_isnil( L, 7 ) )
11516 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
11522 plmapline(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11547 char *arg2 = (
char *) 0 ;
11548 char *arg3 = (
char *) 0 ;
11560 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapstring",4,
"PLFLT");
11561 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapstring",5,
"PLFLT");
11562 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapstring",6,
"PLFLT");
11563 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmapstring",7,
"PLFLT");
11568 if ( lua_isnil( L, 1 ) )
11572 else if ( lua_isstring( L, 1 ) )
11581 arg2 = (
char *)lua_tostring(L, 2);
11582 arg3 = (
char *)lua_tostring(L, 3);
11583 arg4 = (
PLFLT)lua_tonumber(L, 4);
11584 arg5 = (
PLFLT)lua_tonumber(L, 5);
11585 arg6 = (
PLFLT)lua_tonumber(L, 6);
11586 arg7 = (
PLFLT)lua_tonumber(L, 7);
11588 if ( lua_isnil( L, 8 ) )
11595 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp8 );
11601 plmapstring(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,(
int const *)arg8,arg9);
11626 char *arg2 = (
char *) 0 ;
11630 char *arg6 = (
char *) 0 ;
11639 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmaptex",3,
"PLFLT");
11640 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmaptex",4,
"PLFLT");
11641 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmaptex",5,
"PLFLT");
11643 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmaptex",7,
"PLFLT");
11644 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plmaptex",8,
"PLFLT");
11645 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plmaptex",9,
"PLFLT");
11646 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plmaptex",10,
"PLFLT");
11647 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plmaptex",11,
"PLINT");
11652 if ( lua_isnil( L, 1 ) )
11656 else if ( lua_isstring( L, 1 ) )
11665 arg2 = (
char *)lua_tostring(L, 2);
11666 arg3 = (
PLFLT)lua_tonumber(L, 3);
11667 arg4 = (
PLFLT)lua_tonumber(L, 4);
11668 arg5 = (
PLFLT)lua_tonumber(L, 5);
11669 arg6 = (
char *)lua_tostring(L, 6);
11670 arg7 = (
PLFLT)lua_tonumber(L, 7);
11671 arg8 = (
PLFLT)lua_tonumber(L, 8);
11672 arg9 = (
PLFLT)lua_tonumber(L, 9);
11673 arg10 = (
PLFLT)lua_tonumber(L, 10);
11674 arg11 = (
PLINT)lua_tonumber(L, 11);
11675 plmaptex(arg1,(
char const *)arg2,arg3,arg4,arg5,(
char const *)arg6,arg7,arg8,arg9,arg10,arg11);
11694 char *arg2 = (
char *) 0 ;
11705 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapfill",3,
"PLFLT");
11706 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapfill",4,
"PLFLT");
11707 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapfill",5,
"PLFLT");
11708 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapfill",6,
"PLFLT");
11713 if ( lua_isnil( L, 1 ) )
11717 else if ( lua_isstring( L, 1 ) )
11726 arg2 = (
char *)lua_tostring(L, 2);
11727 arg3 = (
PLFLT)lua_tonumber(L, 3);
11728 arg4 = (
PLFLT)lua_tonumber(L, 4);
11729 arg5 = (
PLFLT)lua_tonumber(L, 5);
11730 arg6 = (
PLFLT)lua_tonumber(L, 6);
11732 if ( lua_isnil( L, 7 ) )
11739 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
11745 plmapfill(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11778 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plmeridians",2,
"PLFLT");
11779 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmeridians",3,
"PLFLT");
11780 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmeridians",4,
"PLFLT");
11781 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmeridians",5,
"PLFLT");
11782 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmeridians",6,
"PLFLT");
11783 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmeridians",7,
"PLFLT");
11788 if ( lua_isnil( L, 1 ) )
11792 else if ( lua_isstring( L, 1 ) )
11801 arg2 = (
PLFLT)lua_tonumber(L, 2);
11802 arg3 = (
PLFLT)lua_tonumber(L, 3);
11803 arg4 = (
PLFLT)lua_tonumber(L, 4);
11804 arg5 = (
PLFLT)lua_tonumber(L, 5);
11805 arg6 = (
PLFLT)lua_tonumber(L, 6);
11806 arg7 = (
PLFLT)lua_tonumber(L, 7);
11849 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plimage",10,
"PLFLT");
11850 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plimage",11,
"PLFLT");
11860 arg4 = (
PLFLT)lua_tonumber(L, 2);
11861 arg5 = (
PLFLT)lua_tonumber(L, 3);
11862 arg6 = (
PLFLT)lua_tonumber(L, 4);
11863 arg7 = (
PLFLT)lua_tonumber(L, 5);
11864 arg8 = (
PLFLT)lua_tonumber(L, 6);
11865 arg9 = (
PLFLT)lua_tonumber(L, 7);
11866 arg10 = (
PLFLT)lua_tonumber(L, 8);
11867 arg11 = (
PLFLT)lua_tonumber(L, 9);
11868 arg12 = (
PLFLT)lua_tonumber(L, 10);
11869 arg13 = (
PLFLT)lua_tonumber(L, 11);
11870 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
11877 for ( i = 0; i < ii1; i++ )
11890 for ( i = 0; i < ii1; i++ )
11920 cgrid113.
xg = cgrid113.
yg = cgrid113.
zg = NULL;
11921 cgrid113.
nx = cgrid113.
ny = cgrid113.
nz = 0;
11922 cgrid213.
xg = cgrid213.
yg = cgrid213.
zg = NULL;
11923 cgrid213.
nx = cgrid213.
ny = 0;
11932 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plimagefr",2,
"PLFLT");
11933 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plimagefr",3,
"PLFLT");
11934 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plimagefr",4,
"PLFLT");
11935 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plimagefr",5,
"PLFLT");
11936 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plimagefr",6,
"PLFLT");
11937 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plimagefr",7,
"PLFLT");
11938 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plimagefr",8,
"PLFLT");
11939 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plimagefr",9,
"PLFLT");
11949 arg4 = (
PLFLT)lua_tonumber(L, 2);
11950 arg5 = (
PLFLT)lua_tonumber(L, 3);
11951 arg6 = (
PLFLT)lua_tonumber(L, 4);
11952 arg7 = (
PLFLT)lua_tonumber(L, 5);
11953 arg8 = (
PLFLT)lua_tonumber(L, 6);
11954 arg9 = (
PLFLT)lua_tonumber(L, 7);
11955 arg10 = (
PLFLT)lua_tonumber(L, 8);
11956 arg11 = (
PLFLT)lua_tonumber(L, 9);
11957 if(lua_gettop(L)>=10){
11962 if ( lua_isstring( L, 10 ) )
11964 const char* funcstr = lua_tostring( L, 10 );
11965 if ( strcmp(
"pltr0", funcstr ) == 0 )
11969 else if ( strcmp(
"pltr1", funcstr ) == 0 )
11973 else if ( strcmp(
"pltr2", funcstr ) == 0 )
11988 if(lua_gettop(L)>=11){
11993 lua_pushstring( L,
"xg" );
11994 lua_gettable( L, 11 );
11995 if ( !lua_istable( L, -1 ) )
11998 lua_pushstring( L,
"expected a table xg" );
12001 lua_rawgeti( L, -1, 1 );
12002 if ( lua_istable( L, -1 ) )
12004 else if ( lua_isnumber( L, -1 ) )
12010 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
12014 if ( gridmode == 1 )
12016 cgrid113.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
12017 if ( !cgrid113.
xg )
12024 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
12032 if ( !cgrid213.
xg )
12037 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12040 lua_pushfstring( L,
"Vectors must match matrix." );
12048 lua_pushstring( L,
"yg" );
12049 lua_gettable( L, 11 );
12050 if ( !lua_istable( L, -1 ) )
12053 lua_pushstring( L,
"expected a table yg" );
12056 lua_rawgeti( L, -1, 1 );
12057 if ( gridmode == 2 )
12059 if ( !lua_istable( L, -1 ) )
12063 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
12069 if ( !lua_isnumber( L, -1 ) )
12073 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
12078 if ( gridmode == 1 )
12080 cgrid113.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
12081 if ( !cgrid113.
yg )
12088 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
12096 if ( !cgrid213.
yg )
12101 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12104 lua_pushfstring( L,
"Vectors must match matrix." );
12111 if ( gridmode == 1 )
12113 else if ( gridmode == 2 )
12117 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
12124 for ( i = 0; i < ii1; i++ )
12140 for ( i = 0; i <
Xlen; i++ )
12146 for ( i = 0; i <
Xlen; i++ )
12159 for ( i = 0; i < ii1; i++ )
12175 for ( i = 0; i <
Xlen; i++ )
12181 for ( i = 0; i <
Xlen; i++ )
12221 char *arg1 = (
char *) 0 ;
12222 char *arg2 = (
char *) 0 ;
12227 arg1 = (
char *)lua_tostring(L, 1);
12228 arg2 = (
char *)lua_tostring(L, 2);
12229 plSetUsage((
char const *)arg1,(
char const *)arg2);
12278 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
12279 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
12285 for ( i = 0; i < ii1; i++ )
12298 for ( i = 0; i < ii1; i++ )
12321 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
12332 char *arg1 = (
char *) 0 ;
12335 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plwarn",1,
"char const *");
12337 arg1 = (
char *) lua_tostring( L, 1 );
12339 plwarn((
char const *)arg1);
12351 char *arg1 = (
char *) 0 ;
12354 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plabort",1,
"char const *");
12356 arg1 = (
char *) lua_tostring( L, 1 );
12869#define SWIGRUNTIME_DEBUG
12872#ifndef SWIG_INIT_CLIENT_DATA_TYPE
12873#define SWIG_INIT_CLIENT_DATA_TYPE void *
12895 if (!module_head) {
12908 }
while (iter!= module_head);
12919 if (init == 0)
return;
12922#ifdef SWIGRUNTIME_DEBUG
12923 printf(
"SWIG_InitializeModule: size %lu\n", (
unsigned long)
swig_module.
size);
12930#ifdef SWIGRUNTIME_DEBUG
12940#ifdef SWIGRUNTIME_DEBUG
12941 printf(
"SWIG_InitializeModule: found type %s\n", type->name);
12945#ifdef SWIGRUNTIME_DEBUG
12946 printf(
"SWIG_InitializeModule: found and overwrite type %s \n", type->name);
12955 while (cast->
type) {
12959#ifdef SWIGRUNTIME_DEBUG
12960 printf(
"SWIG_InitializeModule: look cast %s\n", cast->
type->
name);
12964#ifdef SWIGRUNTIME_DEBUG
12965 if (ret) printf(
"SWIG_InitializeModule: found cast %s\n", ret->
name);
12970#ifdef SWIGRUNTIME_DEBUG
12971 printf(
"SWIG_InitializeModule: skip old type %s\n", ret->
name);
12978#ifdef SWIGRUNTIME_DEBUG
12979 if (ocast) printf(
"SWIG_InitializeModule: skip old cast %s\n", ret->
name);
12981 if (!ocast) ret = 0;
12986#ifdef SWIGRUNTIME_DEBUG
12987 printf(
"SWIG_InitializeModule: adding cast %s\n", cast->
type->
name);
12990 type->cast->prev = cast;
12991 cast->
next = type->cast;
13002#ifdef SWIGRUNTIME_DEBUG
13003 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13008 while (cast->
type) {
13009 printf(
"SWIG_InitializeModule: cast type %s\n", cast->
type->
name);
13013 printf(
"---- Total casts: %d\n",j);
13015 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13028 static int init_run = 0;
13030 if (init_run)
return;
13041 equiv = equiv->
next;
13066#if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
13072#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13074 int globalRegister = 0;
13082#if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)) || defined(SWIG_LUA_ELUA_EMULATE)
13088#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13095#ifdef SWIG_LUA_MODULE_GLOBAL
13096 globalRegister = 1;
13100#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
13104#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
13112#if defined(SWIG_LUA_ELUA_EMULATE)
13115 SWIG_Lua_elua_emulate_register_clear(L);
13116 if(globalRegister) {
13118 lua_pushvalue(L,-2);
13125#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13145 " pl = plplotluac";
alias void function(PLINT, PLFLT *, PLFLT *) fill_func
void plSetUsage(PLCHAR_VECTOR program_string, PLCHAR_VECTOR usage_string)
void pltr2(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, PLPointer pltr_data)
void pltr1(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, PLPointer pltr_data)
void pltr0(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, PLPointer PL_UNUSED(pltr_data))
void plwarn(PLCHAR_VECTOR errormsg)
static PLFLT value(double n1, double n2, double hue)
void plabort(PLCHAR_VECTOR errormsg)
void plMinMax2dGrid(PLFLT_MATRIX f, PLINT nx, PLINT ny, PLFLT *fnmax, PLFLT *fnmin)
PLINT plGetCursor(PLGraphicsIn *plg)
#define pl_setcontlabelformat
#define pl_setcontlabelparam
void *(* swig_converter_func)(void *, int *)
struct swig_type_info *(* swig_dycast_func)(void **)
SWIGRUNTIME int SWIG_Lua_class_equal(lua_State *L)
SWIGRUNTIME void SWIG_InitializeModule(SWIG_INIT_CLIENT_DATA_TYPE clientdata)
static int _wrap_ptex(lua_State *L)
static int _wrap_PLGraphicsIn_wX_get(lua_State *L)
static int _wrap_surf3dl(lua_State *L)
static int _wrap_scmap1(lua_State *L)
PLFLT ** read_double_Matrix(lua_State *L, int index, int *nx, int *ny)
static int _wrap_clear(lua_State *L)
SWIGRUNTIME void * SWIG_Lua_MustGetPtr(lua_State *L, int index, swig_type_info *type, int flags, int argnum, const char *func_name)
static int _wrap_szax(lua_State *L)
#define SWIG_DOSTRING_FAIL(S)
static int _wrap_wind(lua_State *L)
static swig_cast_info * swig_cast_initial[]
static int _wrap_PLGraphicsIn_button_get(lua_State *L)
void mylabel(PLINT axis, PLFLT value, char *label, PLINT length, PLPointer data)
static int _wrap_configtime(lua_State *L)
static int _wrap_sori(lua_State *L)
SWIGRUNTIME int SWIG_Lua_ConvertPtr(lua_State *L, int index, void **ptr, swig_type_info *type, int flags)
static int _wrap_mesh(lua_State *L)
static int _wrap_gyax(lua_State *L)
static int _wrap_box(lua_State *L)
#define SWIG_ALLOC_ARRAY(TYPE, LEN)
static int _wrap_spage(lua_State *L)
static int _wrap_mkstrm(lua_State *L)
SWIGRUNTIME void SWIG_Lua_SetModule(lua_State *L, swig_module_info *module)
static int _wrap_PLGraphicsIn_keysym_get(lua_State *L)
SWIGINTERN int SWIG_Lua_do_resolve_metamethod(lua_State *L, const swig_lua_class *clss, int metamethod_name_idx, int skip_check)
static swig_type_info _swigt__p_f_double_double_p_double_p_double_p_void__void
static int _wrap_PLGraphicsIn_subwindow_get(lua_State *L)
static int _wrap_rgbhls(lua_State *L)
static int _wrap_scmap1_range(lua_State *L)
SWIGRUNTIME void SWIG_Lua_pusherrstring(lua_State *L, const char *str)
static int _wrap_plend(lua_State *L)
SWIGINTERN int SWIG_Lua_class_do_get(lua_State *L, swig_type_info *type, int SWIGUNUSED first_arg, int *ret)
#define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME, TYPE)
SWIGRUNTIME int SWIG_Lua_resolve_metamethod(lua_State *L)
static int _wrap_hlsrgb(lua_State *L)
SWIGINTERN void SWIG_Lua_add_namespace_classes(lua_State *L, swig_lua_namespace *ns)
struct swig_lua_class swig_lua_class
#define SWIG_CheckState(r)
static int _wrap_meridians(lua_State *L)
#define SWIG_fail_ptr(func_name, argnum, type)
static swig_cast_info _swigc__p_f_double_double__int[]
#define SWIG_NewMemberObj(L, ptr, sz, type)
static int _wrap_env0(lua_State *L)
static swig_cast_info _swigc__p_int[]
SWIGINTERN void SWIG_Lua_add_class_user_metamethods(lua_State *L, swig_lua_class *clss)
static int _wrap_gcolbga(lua_State *L)
struct swig_lua_namespace swig_lua_namespace
SWIGRUNTIME int SWIG_TypeEquiv(const char *nb, const char *tb)
static int _wrap_gvpd(lua_State *L)
void myct(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, void *pltr_data)
SWIGINTERN void SWIG_Lua_class_register_static(lua_State *L, swig_lua_class *clss)
SWIGRUNTIME const char * SWIG_Lua_typename(lua_State *L, int tp)
static int _wrap_ssym(lua_State *L)
static swig_cast_info _swigc__p_double[]
static swig_lua_method swig_PLGraphicsIn_meta[]
#define SWIGTYPE_p_PLGraphicsIn
static int _wrap_plGetCursor(lua_State *L)
static int _wrap_gxax(lua_State *L)
struct swig_cast_info swig_cast_info
void(* label_func)(PLINT, PLFLT, char *, PLINT, PLPointer)
static int _wrap_PLGraphicsIn_pY_set(lua_State *L)
static swig_lua_attribute swig_PLGraphicsIn_Sf_SwigStatic_attributes[]
SWIGRUNTIME int SWIG_TypeNameComp(const char *f1, const char *l1, const char *f2, const char *l2)
static int _wrap_seed(lua_State *L)
static int _wrap_sdiplt(lua_State *L)
static int _wrap_psty(lua_State *L)
static swig_lua_attribute swig_PLGraphicsIn_attributes[]
static int _wrap_cont(lua_State *L)
SWIGRUNTIME int SWIG_Lua_ConvertPacked(lua_State *L, int index, void *ptr, size_t size, swig_type_info *type)
static int _wrap_scmap0a(lua_State *L)
static int _wrap_gradient(lua_State *L)
SWIGINTERN void SWIG_write_ptr_array(lua_State *L, void **array, int size, swig_type_info *type, int own)
static int _wrap_setcontlabelparam(lua_State *L)
SWIGINTERN int SWIG_Lua_iterate_bases(lua_State *L, swig_type_info *SWIGUNUSED swig_type, int first_arg, swig_lua_base_iterator_func func, int *const ret)
void(* mapform_func)(PLINT, PLFLT *, PLFLT *)
void mypltr(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, void *pltr_data)
static int _wrap_width(lua_State *L)
static int _wrap_hist(lua_State *L)
static int _wrap_text(lua_State *L)
#define SWIG_ConvertPtr(L, idx, ptr, type, flags)
static int _wrap_gspa(lua_State *L)
SWIGINTERN int SWIG_Lua_dostring(lua_State *L, const char *str)
static int _wrap_vpor(lua_State *L)
void(* pltr_func)(PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer)
static int _wrap_colorbar(lua_State *L)
static int _wrap_flush(lua_State *L)
static int _wrap_sym(lua_State *L)
static swig_cast_info _swigc__p_f_double_double_p_double_p_double_p_void__void[]
static int _wrap_PLGraphicsIn_state_get(lua_State *L)
static int _wrap_xormod(lua_State *L)
#define SWIG_fail_arg(func_name, argnum, type)
static int _wrap_spause(lua_State *L)
#define SWIG_Lua_get_table(L, n)
static int _wrap_sdidev(lua_State *L)
static int _wrap_scmap1n(lua_State *L)
static int _wrap_setcontlabelformat(lua_State *L)
static int _wrap_gcmap1_range(lua_State *L)
#define SWIG_RUNTIME_VERSION
static int _wrap_sdimap(lua_State *L)
SWIGRUNTIME void SWIG_TypeClientData(swig_type_info *ti, void *clientdata)
SWIGRUNTIME swig_type_info * SWIG_TypeQueryModule(swig_module_info *start, swig_module_info *end, const char *name)
SWIGINTERN int SWIG_Lua_class_do_get_item(lua_State *L, swig_type_info *type, int SWIGUNUSED first_arg, int *ret)
static int _wrap_ssub(lua_State *L)
static int _wrap_new_PLGraphicsIn(lua_State *L)
static int _wrap_scmap1a(lua_State *L)
#define SWIG_Lua_add_function(L, n, f)
static int _wrap_abort(lua_State *L)
SWIGRUNTIME char * SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz)
static int _wrap_glevel(lua_State *L)
static int _wrap_PLGraphicsIn_dX_get(lua_State *L)
static int _wrap_pat(lua_State *L)
static char mylabel_funcstr[255]
static int _wrap_gchr(lua_State *L)
SWIGINTERN int SWIG_Lua_add_class_user_metamethod(lua_State *L, swig_lua_class *clss, const int metatable_index)
static int _wrap_PLGraphicsIn_pY_get(lua_State *L)
static int _wrap_sfci(lua_State *L)
static int _wrap_shade(lua_State *L)
SWIGINTERN void SWIG_Lua_populate_inheritable_metamethods(lua_State *L)
static swig_type_info * swig_types[13]
static int _wrap_gpage(lua_State *L)
static int _wrap_plResetOpts(lua_State *L)
static swig_cast_info _swigc__p_f_int_p_double_p_double__void[]
static int _wrap_lightsource(lua_State *L)
static int _wrap_sfont(lua_State *L)
SWIGRUNTIME const char * SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name)
static int _wrap_calc_world(lua_State *L)
static int _wrap_plot3dcl(lua_State *L)
static int _wrap_gvpw(lua_State *L)
static int _wrap_plOptUsage(lua_State *L)
static swig_module_info swig_module
static int _wrap_image(lua_State *L)
static const char * swig_PLGraphicsIn_base_names[]
static int _wrap_PLGraphicsIn_state_set(lua_State *L)
static swig_lua_class * swig_PLGraphicsIn_bases[]
static int _wrap_parseopts(lua_State *L)
static int _wrap_MinMax2dGrid(lua_State *L)
static swig_type_info _swigt__p_double
static int _wrap_gdiori(lua_State *L)
#define SWIG_SetModule(clientdata, pointer)
static int _wrap_famadv(lua_State *L)
#define SWIG_INIT_CLIENT_DATA_TYPE
static int _wrap_scolbga(lua_State *L)
static int _wrap_font(lua_State *L)
static int _wrap_gzax(lua_State *L)
static char mypltr_funcstr[255]
static int _wrap_scmap1la(lua_State *L)
static int _wrap_slabelfunc(lua_State *L)
#define SWIG_POINTER_RELEASE
static swig_lua_class * swig_SwigModule_classes[]
SWIGRUNTIME swig_type_info * SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr)
SWIGINTERN int SWIG_itable_size(lua_State *L, int index)
SWIGRUNTIME swig_module_info * SWIG_Lua_GetModule(lua_State *L)
static int _wrap_env(lua_State *L)
static int _wrap_PLGraphicsIn_string_get(lua_State *L)
static swig_type_info _swigt__p_p_char
#define lua_rawsetp(L, index, ptr)
static int _wrap_timefmt(lua_State *L)
static int _wrap_plend1(lua_State *L)
static int _wrap_box3(lua_State *L)
static int _wrap_map(lua_State *L)
SWIGRUNTIME void SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata)
static int _wrap_gfam(lua_State *L)
static swig_type_info _swigt__p_p_double
#define SWIG_POINTER_CLEAR
SWIGRUNTIME int SWIG_TypeCmp(const char *nb, const char *tb)
static int _wrap_stripc(lua_State *L)
SWIGRUNTIME const char * SWIG_UnpackData(const char *c, void *ptr, size_t sz)
static int _wrap_scmap0n(lua_State *L)
static int _wrap_errx(lua_State *L)
static int _wrap_sstrm(lua_State *L)
void mapform(PLINT n, PLFLT *x, PLFLT *y)
static int _wrap_gstrm(lua_State *L)
SWIGINTERN void SWIG_Lua_get_inheritable_metamethods(lua_State *L)
static int _wrap_init(lua_State *L)
static int _wrap_sfam(lua_State *L)
static int _wrap_replot(lua_State *L)
SWIGINTERN void SWIG_Lua_add_variable(lua_State *L, const char *name, lua_CFunction getFn, lua_CFunction setFn)
static swig_lua_namespace * swig_SwigModule_namespaces[]
#define SWIG_check_num_args(func_name, a, b)
static swig_lua_class * swig_PLGraphicsIn_Sf_SwigStatic_classes[]
static int _wrap_svect(lua_State *L)
#define SWIG_LUA_CONSTTAB_INT(B, C)
static int _wrap_poin(lua_State *L)
static int _wrap_mapfill(lua_State *L)
SWIGINTERN int SWIG_Lua_namespace_get(lua_State *L)
static int _wrap_scol0a(lua_State *L)
static int _wrap_PLGraphicsIn_string_set(lua_State *L)
static int _wrap_star(lua_State *L)
static int _wrap_fontld(lua_State *L)
static int _wrap_line(lua_State *L)
SWIGINTERN int SWIG_Lua_class_get(lua_State *L)
SWIGRUNTIME int SWIG_Lua_type(lua_State *L)
SWIGINTERN void SWIG_Lua_namespace_register(lua_State *L, swig_lua_namespace *ns, int reg)
#define SWIG_LUA_CONSTTAB_FLOAT(B, C)
PLFLT(* f2eval_func)(PLINT, PLINT, PLPointer)
static int _wrap_plClearOpts(lua_State *L)
static int _wrap_legend(lua_State *L)
SWIGINTERN void SWIG_Lua_get_class_registry(lua_State *L)
static swig_cast_info _swigc__p_char[]
SWIGINTERN void SWIG_Lua_add_class_static_details(lua_State *L, swig_lua_class *clss)
static int _wrap_poin3(lua_State *L)
static int _wrap_plot3d(lua_State *L)
static swig_type_info _swigt__p_f_int_p_q_const__double_p_q_const__double__void
PLINT(* defined_func)(PLFLT, PLFLT)
static int _wrap_vasp(lua_State *L)
#define SWIG_NewPointerObj(L, ptr, type, owner)
static int _wrap_imagefr(lua_State *L)
static swig_cast_info _swigc__p_p_double[]
static int _wrap_gver(lua_State *L)
SWIGINTERN void SWIG_Lua_AddMetatable(lua_State *L, swig_type_info *type)
static int _wrap_scolbg(lua_State *L)
#define SWIG_FREE_ARRAY(PTR)
static int _wrap_PLGraphicsIn_keysym_set(lua_State *L)
SWIGRUNTIME swig_type_info * SWIG_MangledTypeQueryModule(swig_module_info *start, swig_module_info *end, const char *name)
static int _wrap_w3d(lua_State *L)
static swig_lua_const_info swig_SwigModule_constants[]
static int _wrap_PLGraphicsIn_dY_get(lua_State *L)
static char mapform_funcstr[255]
static int _wrap_stransform(lua_State *L)
SWIGINTERN void SWIG_Lua_class_register(lua_State *L, swig_lua_class *clss)
SWIGRUNTIME void SWIG_Lua_NewPointerObj(lua_State *L, void *ptr, swig_type_info *type, int own)
SWIGRUNTIME const char * SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name)
static int _wrap_scolor(lua_State *L)
static int _wrap_line3(lua_State *L)
SWIGINTERN int SWIG_Lua_set_immutable(lua_State *L)
static swig_lua_const_info swig_PLGraphicsIn_Sf_SwigStatic_constants[]
void(* ct_func)(PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer)
#define SWIG_POINTER_NO_NULL
static const char * lua_tolstring(lua_State *L, int idx, size_t *len)
static int _wrap_gdidev(lua_State *L)
static int _wrap_axes(lua_State *L)
static int _wrap_PLGraphicsIn_type_get(lua_State *L)
#define lua_absindex(L, i)
static int _wrap_warn(lua_State *L)
SWIGINTERN int SWIG_Lua_add_namespace_details(lua_State *L, swig_lua_namespace *ns)
static int _wrap_randd(lua_State *L)
#define SWIG_NullReferenceError
static int _wrap_arc(lua_State *L)
SWIGRUNTIMEINLINE const char * SWIG_TypeName(const swig_type_info *ty)
static int _wrap_stripa(lua_State *L)
static int _wrap_PLGraphicsIn_type_set(lua_State *L)
static int _wrap_join(lua_State *L)
static void swig_delete_PLGraphicsIn(void *obj)
static int _wrap_cpstrm(lua_State *L)
static int _wrap_gdiplt(lua_State *L)
#define SWIG_POINTER_DISOWN
SWIGINTERN int SWIG_Lua_namespace_set(lua_State *L)
SWIGINTERN void ** SWIG_get_ptr_array_var(lua_State *L, int index, int *size, swig_type_info *type)
struct swig_type_info swig_type_info
static char myct_funcstr[255]
static int _wrap_gcompression(lua_State *L)
static int _wrap_string(lua_State *L)
SWIGINTERN int SWIG_Lua_class_disown(lua_State *L)
SWIGRUNTIME char * SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz)
static swig_type_info _swigt__p_PLGraphicsIn
SWIGINTERN void SWIG_Lua_class_register_instance(lua_State *L, swig_lua_class *clss)
static int _wrap_path(lua_State *L)
static swig_type_info _swigt__p_f_double_double__int
static int _wrap_PLGraphicsIn_subwindow_set(lua_State *L)
SWIGRUNTIME char * SWIG_PackData(char *c, void *ptr, size_t sz)
static int _wrap_smaj(lua_State *L)
static int _wrap_gfci(lua_State *L)
static int _wrap_start(lua_State *L)
static int _wrap_meshc(lua_State *L)
static int _wrap_plot3dc(lua_State *L)
static int _wrap_PLGraphicsIn_wY_get(lua_State *L)
static int _wrap_ctime(lua_State *L)
SWIGINTERN int SWIG_read_ptr_array(lua_State *L, int index, void **array, int size, swig_type_info *type)
SWIGINTERN int SWIG_Lua_class_do_set(lua_State *L, swig_type_info *type, int first_arg, int *ret)
static int _wrap_lsty(lua_State *L)
static int _wrap_gfnam(lua_State *L)
static int _wrap_bin(lua_State *L)
static int _wrap_mapline(lua_State *L)
static int _wrap_gcol0(lua_State *L)
static int _wrap_PLGraphicsIn_dX_set(lua_State *L)
SWIGINTERN int SWIG_Lua_class_set(lua_State *L)
SWIGINTERN int SWIG_lua_isnilstring(lua_State *L, int idx)
#define SWIG_GetModule(clientdata)
SWIGRUNTIME void SWIG_Lua_NewPackedObj(lua_State *L, void *ptr, size_t size, swig_type_info *type)
static int _wrap_PLGraphicsIn_wX_set(lua_State *L)
static int _wrap_bop(lua_State *L)
SWIGINTERN int SWIG_Lua_class_destruct(lua_State *L)
static swig_cast_info _swigc__p_unsigned_int[]
static int _wrap_ptex3(lua_State *L)
static swig_type_info _swigt__p_int
static swig_lua_method swig_SwigModule_methods[]
SWIGRUNTIME swig_cast_info * SWIG_TypeCheckStruct(const swig_type_info *from, swig_type_info *ty)
static int _wrap_eop(lua_State *L)
SWIGRUNTIME void SWIG_PropagateClientData(void)
static swig_cast_info _swigc__p_f_int_double_p_char_int_p_void__void[]
static int _wrap_plSetUsage(lua_State *L)
#define lua_pushglobaltable(L)
static int _wrap_poly3(lua_State *L)
static swig_lua_method swig_PLGraphicsIn_Sf_SwigStatic_methods[]
SWIGRUNTIME const char * SWIG_TypePrettyName(const swig_type_info *type)
#define LUA_ALLOC_ARRAY(TYPE, LEN)
static int _wrap_prec(lua_State *L)
static int _wrap_sdev(lua_State *L)
SWIGRUNTIME swig_cast_info * SWIG_TypeCheck(const char *c, swig_type_info *ty)
#define SWIG_isptrtype(L, I)
static int _wrap_PLGraphicsIn_pX_set(lua_State *L)
#define SWIG_ERROR_RELEASE_NOT_OWNED
#define LUA_DECLARE_TYPEMAP_ARR_FN(NAME, TYPE)
static int _wrap_string3(lua_State *L)
static int _wrap_spal1(lua_State *L)
#define SWIG_TYPE_TABLE_NAME
static int _wrap_surf3d(lua_State *L)
static swig_type_info _swigt__p_unsigned_int
static swig_lua_namespace swig_PLGraphicsIn_Sf_SwigStatic
SWIGINTERN void SWIG_Lua_init_base_class(lua_State *L, swig_lua_class *clss)
static int _wrap_spal0(lua_State *L)
static int _wrap_griddata(lua_State *L)
static swig_type_info _swigt__p_f_int_p_double_p_double__void
static int _wrap_adv(lua_State *L)
static int _wrap_gra(lua_State *L)
#define SWIG_contract_assert(expr, msg)
int(* swig_lua_base_iterator_func)(lua_State *, swig_type_info *, int, int *ret)
static int _wrap_smin(lua_State *L)
struct swig_module_info swig_module_info
SWIGINTERN void SWIG_Lua_create_class_registry(lua_State *L)
static int _wrap_gcol0a(lua_State *L)
static int _wrap_vect(lua_State *L)
static swig_lua_namespace swig_SwigModule
#define LUA_FREE_ARRAY(PTR)
static int _wrap_lab(lua_State *L)
static swig_type_info _swigt__p_f_int_double_p_char_int_p_void__void
static int _wrap_setopt(lua_State *L)
static int _wrap_shades(lua_State *L)
static int _wrap_PLGraphicsIn_button_set(lua_State *L)
SWIGRUNTIME void SWIG_Lua_pushferrstring(lua_State *L, const char *fmt,...)
static swig_type_info * swig_type_initial[]
static int _wrap_mapstring(lua_State *L)
static int _wrap_col1(lua_State *L)
static int _wrap_btime(lua_State *L)
SWIGINTERN int SWIG_table_size(lua_State *L, int index)
static int _wrap_mtex3(lua_State *L)
static int _wrap_sdiplz(lua_State *L)
static int _wrap_styl(lua_State *L)
static int _wrap_vsta(lua_State *L)
static swig_cast_info _swigc__p_PLGraphicsIn[]
static int _wrap_sfnam(lua_State *L)
static int _wrap_fill(lua_State *L)
static int _wrap_mtex(lua_State *L)
static int _wrap_scmap1l(lua_State *L)
static swig_cast_info _swigc__p_p_char[]
static int _wrap_erry(lua_State *L)
static swig_lua_attribute swig_SwigModule_attributes[]
static int _wrap_PLGraphicsIn_pX_get(lua_State *L)
static swig_type_info _swigt__p_char
static int _wrap_col0(lua_State *L)
static swig_lua_method swig_PLGraphicsIn_methods[]
static int _wrap_gfont(lua_State *L)
SWIGINTERN int SWIG_Lua_class_tostring(lua_State *L)
void(* fill_func)(PLINT, const PLFLT *, const PLFLT *)
static int _wrap_svpa(lua_State *L)
static int _wrap_scmap0(lua_State *L)
static int _wrap_vpas(lua_State *L)
static int _wrap_schr(lua_State *L)
static int _wrap_sxax(lua_State *L)
static int _wrap_stripd(lua_State *L)
static int _wrap_syax(lua_State *L)
static int _wrap_gcolbg(lua_State *L)
static swig_lua_class _wrap_class_PLGraphicsIn
static int _wrap_scompression(lua_State *L)
static int _wrap_maptex(lua_State *L)
static int _wrap_PLGraphicsIn_dY_set(lua_State *L)
static swig_cast_info _swigc__p_f_int_p_q_const__double_p_q_const__double__void[]
static int _wrap_scol0(lua_State *L)
SWIGINTERN void SWIG_Lua_InstallConstants(lua_State *L, swig_lua_const_info constants[])
static int _wrap_sesc(lua_State *L)
SWIGINTERN void ** SWIG_get_ptr_array_fixed(lua_State *L, int index, int size, swig_type_info *type)
static int _wrap_sdiori(lua_State *L)
static int _proxy__wrap_new_PLGraphicsIn(lua_State *L)
SWIGINTERN void SWIG_Lua_get_class_metatable(lua_State *L, const char *cname)
static int _wrap_PLGraphicsIn_wY_set(lua_State *L)
SWIGINTERN void SWIG_Lua_add_class_instance_details(lua_State *L, swig_lua_class *clss)
static int _wrap_gdev(lua_State *L)
#define SWIG_Lua_add_boolean(L, n, b)
static int _wrap_fill3(lua_State *L)
#define lua_rawgetp(L, index, ptr)
#define SWIGRUNTIMEINLINE
SWIGRUNTIMEINLINE void * SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory)
struct swig_cast_info * prev
struct swig_cast_info * next
swig_converter_func converter
void(* destructor)(void *)
swig_lua_attribute * attributes
swig_lua_namespace * cls_static
struct swig_lua_class ** bases
swig_lua_method * metatable
lua_CFunction constructor
swig_lua_method * methods
swig_lua_method * ns_methods
swig_lua_attribute * ns_attributes
struct swig_lua_class ** ns_classes
swig_lua_const_info * ns_constants
struct swig_lua_namespace ** ns_namespaces
swig_cast_info ** cast_initial
swig_type_info ** type_initial
struct swig_module_info * next
struct swig_cast_info * cast