10#define SWIG_VERSION 0x040101
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
148#define SWIG_RUNTIME_VERSION "4"
151#ifdef SWIG_TYPE_TABLE
152# define SWIG_QUOTE_STRING(x) #x
153# define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
154# define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
156# define SWIG_TYPE_TABLE_NAME
169# define SWIGRUNTIME SWIGINTERN
172#ifndef SWIGRUNTIMEINLINE
173# define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
177#ifndef SWIG_BUFFER_SIZE
178# define SWIG_BUFFER_SIZE 1024
182#define SWIG_POINTER_DISOWN 0x1
183#define SWIG_CAST_NEW_MEMORY 0x2
184#define SWIG_POINTER_NO_NULL 0x4
185#define SWIG_POINTER_CLEAR 0x8
186#define SWIG_POINTER_RELEASE (SWIG_POINTER_CLEAR | SWIG_POINTER_DISOWN)
189#define SWIG_POINTER_OWN 0x1
273#define SWIG_ERROR (-1)
277#define SWIG_ERROR_RELEASE_NOT_OWNED (-200)
279#define SWIG_IsOK(r) (r >= 0)
280#define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
283#define SWIG_CASTRANKLIMIT (1 << 8)
285#define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
287#define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
289#define SWIG_BADOBJ (SWIG_ERROR)
290#define SWIG_OLDOBJ (SWIG_OK)
291#define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
292#define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
294#define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
295#define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
296#define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
297#define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
298#define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
299#define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
302#if defined(SWIG_CASTRANK_MODE)
303# ifndef SWIG_TypeRank
304# define SWIG_TypeRank unsigned long
306# ifndef SWIG_MAXCASTRANK
307# define SWIG_MAXCASTRANK (2)
309# define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
310# define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
315 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
318# define SWIG_AddCast(r) (r)
319# define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
329typedef void *(*swig_converter_func)(
void *,
int *);
371 const char *f2,
const char *l2) {
372 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
373 while ((*f1 ==
' ') && (f1 != l1)) ++f1;
374 while ((*f2 ==
' ') && (f2 != l2)) ++f2;
375 if (*f1 != *f2)
return (*f1 > *f2) ? 1 : -1;
377 return (
int)((l1 - f1) - (l2 - f2));
387 const char* te = tb + strlen(tb);
389 while (equiv != 0 && *ne) {
390 for (nb = ne; *ne; ++ne) {
391 if (*ne ==
'|')
break;
416 if (strcmp(iter->type->name, c) == 0) {
417 if (iter == ty->
cast)
420 iter->prev->next = iter->next;
422 iter->next->prev = iter->prev;
423 iter->next = ty->
cast;
425 if (ty->
cast) ty->
cast->prev = iter;
443 if (iter->type == from) {
444 if (iter == ty->
cast)
447 iter->prev->next = iter->next;
449 iter->next->prev = iter->prev;
450 iter->next = ty->
cast;
452 if (ty->
cast) ty->
cast->prev = iter;
476 if (!ty || !ty->
dcast)
return ty;
477 while (ty && (ty->
dcast)) {
478 ty = (*ty->
dcast)(ptr);
502 if (!type)
return NULL;
503 if (type->str != NULL) {
504 const char *last_name = type->str;
506 for (s = type->str; *s; s++)
507 if (*s ==
'|') last_name = s+1;
526 if (!tc->clientdata) {
555 size_t r = iter->
size - 1;
558 size_t i = (l + r) >> 1;
559 const char *iname = iter->types[i]->name;
561 int compare = strcmp(
name, iname);
563 return iter->types[i];
564 }
else if (compare < 0) {
570 }
else if (compare > 0) {
579 }
while (iter != end);
606 for (; i < iter->size; ++i) {
608 return iter->
types[i];
611 }
while (iter != end);
623 static const char hex[17] =
"0123456789abcdef";
624 const unsigned char *u = (
unsigned char *) ptr;
625 const unsigned char *eu = u + sz;
626 for (; u != eu; ++u) {
627 unsigned char uu = *u;
628 *(c++) = hex[(uu & 0xf0) >> 4];
629 *(c++) = hex[uu & 0xf];
639 unsigned char *u = (
unsigned char *) ptr;
640 const unsigned char *eu = u + sz;
641 for (; u != eu; ++u) {
644 if ((d >=
'0') && (d <=
'9'))
645 uu = (
unsigned char)((d -
'0') << 4);
646 else if ((d >=
'a') && (d <=
'f'))
647 uu = (
unsigned char)((d - (
'a'-10)) << 4);
651 if ((d >=
'0') && (d <=
'9'))
652 uu |= (
unsigned char)(d -
'0');
653 else if ((d >=
'a') && (d <=
'f'))
654 uu |= (
unsigned char)(d - (
'a'-10));
668 if ((2*
sizeof(
void *) + 2) > bsz)
return 0;
671 if (strlen(
name) + 1 > (bsz - (r - buff)))
return 0;
679 if (strcmp(c,
"NULL") == 0) {
692 size_t lname = (
name ? strlen(
name) : 0);
693 if ((2*sz + 2 + lname) > bsz)
return 0;
697 strncpy(r,
name,lname+1);
707 if (strcmp(c,
"NULL") == 0) {
722#define SWIG_UnknownError -1
723#define SWIG_IOError -2
724#define SWIG_RuntimeError -3
725#define SWIG_IndexError -4
726#define SWIG_TypeError -5
727#define SWIG_DivisionByZero -6
728#define SWIG_OverflowError -7
729#define SWIG_SyntaxError -8
730#define SWIG_ValueError -9
731#define SWIG_SystemError -10
732#define SWIG_AttributeError -11
733#define SWIG_MemoryError -12
734#define SWIG_NullReferenceError -13
758#define SWIG_LUA_FLAVOR_LUA 1
759#define SWIG_LUA_FLAVOR_ELUA 2
760#define SWIG_LUA_FLAVOR_ELUAC 3
762#if !defined(SWIG_LUA_TARGET)
763# error SWIG_LUA_TARGET not defined
766#if defined(SWIG_LUA_ELUA_EMULATE)
768struct swig_elua_entry;
770typedef struct swig_elua_key {
778typedef struct swig_elua_val {
782 const struct swig_elua_entry *table;
794typedef struct swig_elua_entry {
799#define LSTRKEY(x) {LUA_TSTRING, {.strkey = x} }
800#define LNUMKEY(x) {LUA_TNUMBER, {.numkey = x} }
801#define LNILKEY {LUA_TNIL, {.strkey = 0} }
803#define LNUMVAL(x) {LUA_TNUMBER, {.number = x} }
804#define LFUNCVAL(x) {LUA_TFUNCTION, {.function = x} }
805#define LROVAL(x) {LUA_TTABLE, {.table = x} }
806#define LNILVAL {LUA_TNIL, {.string = 0} }
807#define LSTRVAL(x) {LUA_TSTRING, {.string = x} }
809#define LUA_REG_TYPE swig_elua_entry
811#define SWIG_LUA_ELUA_EMUL_METATABLE_KEY "__metatable"
813#define lua_pushrotable(L,p)\
816 SWIG_Lua_elua_emulate_register(L,(swig_elua_entry*)(p));
818#define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\
819 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={0,0,(void*)(C),&D} } }
821#define SWIG_LUA_CONSTTAB_BINARY(B,S,C,D)\
822 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={1,S,(void*)(C),&D} } }
825#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
826# define SWIG_LUA_CONSTTAB_INT(B, C) LSTRKEY(B), LNUMVAL(C)
827# define SWIG_LUA_CONSTTAB_FLOAT(B, C) LSTRKEY(B), LNUMVAL(C)
828# define SWIG_LUA_CONSTTAB_STRING(B, C) LSTRKEY(B), LSTRVAL(C)
829# define SWIG_LUA_CONSTTAB_CHAR(B, C) LSTRKEY(B), LNUMVAL(C)
832#ifndef SWIG_LUA_CONSTTAB_POINTER
833#warning eLua does not support pointers as constants. By default, nil will be used as value
834#define SWIG_LUA_CONSTTAB_POINTER(B,C,D) LSTRKEY(B), LNILVAL
837#ifndef SWIG_LUA_CONSTTAB_BINARY
838#warning eLua does not support pointers to member as constants. By default, nil will be used as value
839#define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D) LSTRKEY(B), LNILVAL
842# define SWIG_LUA_CONSTTAB_INT(B, C) SWIG_LUA_INT, (char *)B, (long)C, 0, 0, 0
843# define SWIG_LUA_CONSTTAB_FLOAT(B, C) SWIG_LUA_FLOAT, (char *)B, 0, (double)C, 0, 0
844# define SWIG_LUA_CONSTTAB_STRING(B, C) SWIG_LUA_STRING, (char *)B, 0, 0, (void *)C, 0
845# define SWIG_LUA_CONSTTAB_CHAR(B, C) SWIG_LUA_CHAR, (char *)B, (long)C, 0, 0, 0
846# define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\
847 SWIG_LUA_POINTER, (char *)B, 0, 0, (void *)C, &D
848# define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D)\
849 SWIG_LUA_BINARY, (char *)B, S, 0, (void *)C, &D
852#ifndef SWIG_LUA_ELUA_EMULATE
853#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
854# define LRO_STRVAL(v) {{.p = (char *) v}, LUA_TSTRING}
855# define LSTRVAL LRO_STRVAL
859#ifndef SWIG_LUA_ELUA_EMULATE
860#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
863#define MIN_OPT_LEVEL 2
882#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
883# define lua_rawlen lua_strlen
884#elif LUA_VERSION_NUM == 501
885# define lua_rawlen lua_objlen
892#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
893# define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX)
897#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
898# define lua_absindex(L,i) ((i)>0 || (i) <= LUA_REGISTRYINDEX ? (i) : lua_gettop(L) + (i) + 1)
902#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
903#define lua_rawsetp(L,index,ptr)\
904 lua_pushlightuserdata(L,(void*)(ptr));\
908#define lua_rawgetp(L,index,ptr)\
909 lua_pushlightuserdata(L,(void*)(ptr));\
925 lua_pushstring (L, str);
938 lua_pushvfstring(L, fmt, argp);
948#define SWIG_LUA_INT 1
949#define SWIG_LUA_FLOAT 2
950#define SWIG_LUA_STRING 3
951#define SWIG_LUA_POINTER 4
952#define SWIG_LUA_BINARY 5
953#define SWIG_LUA_CHAR 6
962#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
1032#define SWIG_NewPointerObj(L, ptr, type, owner) SWIG_Lua_NewPointerObj(L, (void *)ptr, type, owner)
1033#define SWIG_ConvertPtr(L,idx, ptr, type, flags) SWIG_Lua_ConvertPtr(L,idx,ptr,type,flags)
1034#define SWIG_MustGetPtr(L,idx, type,flags, argnum,fnname) SWIG_Lua_MustGetPtr(L,idx, type,flags, argnum,fnname)
1036#define SWIG_ConvertMember(L, idx, ptr, sz, ty) SWIG_Lua_ConvertPacked(L, idx, ptr, sz, ty)
1037#define SWIG_NewMemberObj(L, ptr, sz, type) SWIG_Lua_NewPackedObj(L, ptr, sz, type)
1040#define SWIG_GetModule(clientdata) SWIG_Lua_GetModule((lua_State*)(clientdata))
1041#define SWIG_SetModule(clientdata, pointer) SWIG_Lua_SetModule((lua_State*) (clientdata), pointer)
1042#define SWIG_MODULE_CLIENTDATA_TYPE lua_State*
1045#define SWIG_contract_assert(expr, msg) \
1046 do { if (!(expr)) { SWIG_Lua_pusherrstring(L, (char *) msg); goto fail; } } while (0)
1050#define SWIG_fail {goto fail;}
1051#define SWIG_fail_arg(func_name,argnum,type) \
1052 {SWIG_Lua_pushferrstring(L,"Error in %s (arg %d), expected '%s' got '%s'",\
1053 func_name,argnum,type,SWIG_Lua_typename(L,argnum));\
1055#define SWIG_fail_ptr(func_name,argnum,type) \
1056 SWIG_fail_arg(func_name,argnum,(type && type->str)?type->str:"void*")
1057#define SWIG_check_num_args(func_name,a,b) \
1058 if (lua_gettop(L)<a || lua_gettop(L)>b) \
1059 {SWIG_Lua_pushferrstring(L,"Error in %s expected %d..%d args, got %d",func_name,a,b,lua_gettop(L));\
1063#define SWIG_Lua_get_table(L,n) \
1064 (lua_pushstring(L, n), lua_rawget(L,-2))
1066#define SWIG_Lua_add_function(L,n,f) \
1067 (lua_pushstring(L, n), \
1068 lua_pushcfunction(L, f), \
1071#define SWIG_Lua_add_boolean(L,n,b) \
1072 (lua_pushstring(L, n), \
1073 lua_pushboolean(L, b), \
1077#define SWIG_isptrtype(L,I) (lua_isuserdata(L,I) || lua_isnil(L,I))
1090 lua_rawget(L,LUA_REGISTRYINDEX);
1091 if (lua_islightuserdata(L,-1))
1101 lua_pushlightuserdata(L,(
void*)module);
1102 lua_rawset(L,LUA_REGISTRYINDEX);
1115#ifndef SWIGLUA_IGNORE_SET_IMMUTABLE
1117 luaL_error(L,
"This variable is immutable");
1122#ifdef SWIG_LUA_ELUA_EMULATE
1126static int swig_lua_elua_emulate_unique_key;
1129SWIGINTERN void SWIG_Lua_elua_emulate_register(lua_State *L,
const swig_elua_entry *table)
1131 int i, table_parsed, parsed_tables_array, target_table;
1132 assert(lua_istable(L,-1));
1133 target_table = lua_gettop(L);
1135 lua_rawgetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1136 if(lua_isnil(L,-1)) {
1139 lua_pushvalue(L,-1);
1140 lua_rawsetp(L,LUA_REGISTRYINDEX,(
void*)(&swig_lua_elua_emulate_unique_key));
1142 parsed_tables_array = lua_gettop(L);
1143 lua_pushvalue(L,target_table);
1146 const int SWIGUNUSED pairs_start = lua_gettop(L);
1147 for(i = 0;table[i].key.type != LUA_TNIL || table[i].value.type != LUA_TNIL;i++)
1149 const swig_elua_entry *entry = table + i;
1150 int is_metatable = 0;
1151 switch(entry->key.type) {
1153 lua_pushstring(L,entry->key.key.strkey);
1154 if(strcmp(entry->key.key.strkey, SWIG_LUA_ELUA_EMUL_METATABLE_KEY) == 0)
1158 lua_pushnumber(L,entry->key.key.numkey);
1166 switch(entry->value.type) {
1168 lua_pushstring(L,entry->value.value.string);
1171 lua_pushnumber(L,entry->value.value.number);
1174 lua_pushcfunction(L,entry->value.value.function);
1177 lua_rawgetp(L,parsed_tables_array, entry->value.value.table);
1178 table_parsed = !lua_isnil(L,-1);
1182 SWIG_Lua_elua_emulate_register(L,entry->value.value.table);
1185 assert(lua_istable(L,-1));
1186 lua_pushvalue(L,-1);
1187 lua_setmetatable(L,target_table);
1192 if(entry->value.value.userdata.member)
1194 entry->value.value.userdata.lvalue,
1195 *(entry->value.value.userdata.ptype));
1198 *(entry->value.value.userdata.ptype),0);
1206 assert(lua_gettop(L) == pairs_start + 2);
1207 lua_rawset(L,target_table);
1210 assert(lua_gettop(L) == target_table);
1213SWIGINTERN void SWIG_Lua_elua_emulate_register_clear(lua_State *L)
1216 lua_rawsetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1221SWIGINTERN int SWIG_Lua_emulate_elua_getmetatable(lua_State *L)
1225 lua_getfield(L,-1,
"lua_getmetatable");
1227 assert(!lua_isnil(L,-1));
1229 assert(lua_gettop(L) == 3);
1231 if(!lua_isnil(L,-1))
1234 assert(lua_gettop(L) == 2);
1235 if(lua_istable(L,-2)) {
1237 lua_getfield(L,-1, SWIG_LUA_ELUA_EMUL_METATABLE_KEY);
1239 assert(lua_gettop(L) == 2);
1247SWIGINTERN void SWIG_Lua_emulate_elua_swap_getmetatable(lua_State *L)
1251 lua_pushstring(L,
"lua_getmetatable");
1252 lua_getfield(L,-2,
"getmetatable");
1253 assert(!lua_isnil(L,-1));
1255 lua_pushstring(L,
"getmetatable");
1256 lua_pushcfunction(L, SWIG_Lua_emulate_elua_getmetatable);
1274 assert(lua_istable(L,-2));
1275 lua_getmetatable(L,-2);
1276 assert(lua_istable(L,-1));
1278 assert(lua_istable(L,-1));
1283 if (lua_iscfunction(L,-1))
1292 assert(lua_istable(L,-1));
1296 if (lua_isfunction(L,-1))
1313 assert(lua_istable(L,1));
1314 lua_getmetatable(L,1);
1315 assert(lua_istable(L,-1));
1318 if (lua_istable(L,-1))
1323 if (lua_iscfunction(L,-1))
1337#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1347 assert(lua_istable(L,-1));
1351 for(i=0;ns->ns_methods[i].name;i++){
1354 lua_getmetatable(L,-1);
1357 for(i=0;ns->ns_attributes[i].name;i++){
1358 SWIG_Lua_add_variable(L,ns->ns_attributes[i].name,ns->ns_attributes[i].getmethod,ns->ns_attributes[i].setmethod);
1372 assert(lua_istable(L,-1));
1374 classes = ns->ns_classes;
1376 if( classes != 0 ) {
1377 while(*classes != 0) {
1394 assert(lua_istable(L,-1));
1395 lua_checkstack(L,5);
1400 lua_pushstring(L,
".get");
1404 lua_pushstring(L,
".set");
1408 lua_pushstring(L,
".fn");
1416 lua_setmetatable(L,-2);
1423 sub_namespace = ns->ns_namespaces;
1424 if( sub_namespace != 0) {
1425 while(*sub_namespace != 0) {
1433 lua_pushstring(L,ns->name);
1434 lua_pushvalue(L,-2);
1437 assert(lua_gettop(L) == begin+1);
1454 int last_arg = lua_gettop(L);
1455 int original_metatable = last_arg + 1;
1460 lua_getmetatable(L,first_arg);
1463#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1465 assert(lua_istable(L,-1));
1467 bases_table = lua_gettop(L);
1471 assert(swig_type!=0);
1474 const char **base_names= ((
swig_lua_class*)(swig_type->clientdata))->base_names;
1476 for(;base_names[bases_count];
1487 int subcall_last_arg;
1488 int subcall_first_arg = lua_gettop(L) + 1;
1491 for(j=first_arg;j<=last_arg;j++)
1493 subcall_last_arg = lua_gettop(L);
1496 for(i=0;i<bases_count;i++) {
1498#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1499 lua_rawgeti(L,bases_table,i+1);
1501 if(lua_isnil(L,-1)) {
1515 assert(base_swig_type != 0);
1521 assert(lua_isuserdata(L, subcall_first_arg));
1522 assert(lua_istable(L,-1));
1523 lua_setmetatable(L,subcall_first_arg);
1524 assert(lua_gettop(L) == subcall_last_arg);
1525 result = func(L, base_swig_type,subcall_first_arg, ret);
1531 lua_pushvalue(L,original_metatable);
1532 lua_setmetatable(L,first_arg);
1534 to_remove = subcall_last_arg - last_arg;
1535 for(j=0;j<to_remove;j++)
1536 lua_remove(L,last_arg+1);
1539 lua_pop(L, lua_gettop(L) - last_arg);
1541 if(ret) assert(lua_gettop(L) == last_arg + *ret);
1555 int bases_search_result;
1556 int substack_start = lua_gettop(L)-2;
1557 assert(first_arg == substack_start+1);
1558 lua_checkstack(L,5);
1559 assert(lua_isuserdata(L,-2));
1560 lua_getmetatable(L,-2);
1561 assert(lua_istable(L,-1));
1565 if (lua_iscfunction(L,-1))
1567 lua_pushvalue(L,substack_start+1);
1568 lua_pushvalue(L,substack_start+2);
1579 return bases_search_result;
1593 int bases_search_result;
1594 int substack_start = lua_gettop(L)-2;
1595 assert(first_arg == substack_start+1);
1596 lua_checkstack(L,5);
1597 assert(lua_isuserdata(L,-2));
1598 lua_getmetatable(L,-2);
1599 assert(lua_istable(L,-1));
1601 assert(lua_istable(L,-1));
1603 lua_pushvalue(L,substack_start+2);
1606 if (lua_iscfunction(L,-1))
1608 lua_pushvalue(L,substack_start+1);
1618 assert(lua_istable(L,-1));
1619 lua_pushvalue(L,substack_start+2);
1622 if (lua_isfunction(L,-1))
1634 return bases_search_result;
1649 assert(lua_isuserdata(L,1));
1674 int bases_search_result;
1675 int substack_start = lua_gettop(L) - 3;
1676 lua_checkstack(L,5);
1677 assert(lua_isuserdata(L,substack_start+1));
1678 lua_getmetatable(L,substack_start+1);
1679 assert(lua_istable(L,-1));
1684 if (lua_istable(L,-1))
1687 lua_pushvalue(L,substack_start+2);
1690 if (lua_iscfunction(L,-1))
1692 lua_pushvalue(L,substack_start+1);
1693 lua_pushvalue(L,substack_start+3);
1695 lua_remove(L,substack_start+4);
1705 if (lua_iscfunction(L,-1))
1707 lua_pushvalue(L,substack_start+1);
1708 lua_pushvalue(L,substack_start+2);
1709 lua_pushvalue(L,substack_start+3);
1721 assert(lua_gettop(L) == substack_start + 3);
1722 return bases_search_result;
1739 assert(lua_isuserdata(L,1));
1744 SWIG_Lua_pushferrstring(L,
"Assignment not possible. No setter/member with this name. For custom assignments implement __setitem method.");
1759 assert(lua_isuserdata(L,-1));
1765 if (clss && clss->destructor)
1767 clss->destructor(usr->ptr);
1779 assert(lua_isuserdata(L,1));
1782 lua_pushfstring(L,
"<userdata of type '%s' at %p>", userData->type->str, userData->ptr);
1792 assert(lua_isuserdata(L,-1));
1806 if (!lua_isuserdata(L,1) || !lua_isuserdata(L,2))
1811 result=(usr1->ptr==usr2->ptr);
1812 lua_pushboolean(L,result);
1840 lua_pushstring(L,
"SWIG");
1845 lua_pushstring(L,
".library");
1849 lua_pushstring(L,
"inheritable_metamethods");
1857 lua_rawset(L,LUA_REGISTRYINDEX);
1864 lua_pushstring(L,
"SWIG");
1865 lua_rawget(L,LUA_REGISTRYINDEX);
1866 if (!lua_istable(L,-1))
1871 lua_pushstring(L,
"SWIG");
1872 lua_rawget(L,LUA_REGISTRYINDEX);
1879 lua_pushstring(L,
".library");
1881 assert( !lua_isnil(L,-1) );
1882 lua_pushstring(L,
"inheritable_metamethods");
1894 lua_pushstring(L,cname);
1910 for(i=0;clss->base_names[i];i++)
1912 if (clss->bases[i]==0)
1921#if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1923SWIGINTERN void SWIG_Lua_merge_tables_by_index(lua_State *L,
int target,
int source)
1927 while (lua_next(L,source) != 0) {
1930 lua_pushvalue(L,-2);
1931 lua_pushvalue(L,-2);
1932 lua_rawset(L, target);
1939SWIGINTERN void SWIG_Lua_merge_tables(lua_State *L,
const char*
name,
int original,
int base)
1942 lua_pushstring(L,
name);
1943 lua_rawget(L,original);
1944 int original_table = lua_gettop(L);
1945 lua_pushstring(L,
name);
1947 int base_table = lua_gettop(L);
1948 SWIG_Lua_merge_tables_by_index(L, original_table, base_table);
1957 assert(lua_istable(L,-1));
1958 int original = lua_gettop(L);
1960 int base = lua_gettop(L);
1961 SWIG_Lua_merge_tables(L,
".fn", original, base );
1962 SWIG_Lua_merge_tables(L,
".set", original, base );
1963 SWIG_Lua_merge_tables(L,
".get", original, base );
1972 for(i=0;clss->base_names[i];i++)
1974 if (clss->bases[i]==0)
1980 SWIG_Lua_class_squash_base(L, clss->bases[i]);
1986#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1990 assert(lua_istable(L,-1));
1992 assert(lua_istable(L,-1));
1998 assert(lua_istable(L,-1));
2009 assert(lua_istable(L,-1));
2011 for(i=0;clss->bases[i];i++)
2025 size_t bases_count = 0;
2028 assert(lua_istable(L,-1));
2029 for(i=0;clss->bases[i];i++)
2033 assert(lua_istable(L,-1));
2034 lua_rawseti(L,-2,i+1);
2040 for(i=0;clss->attributes[i].name;i++){
2041 SWIG_Lua_add_variable(L,clss->attributes[i].name,clss->attributes[i].getmethod,clss->attributes[i].setmethod);
2045 assert(lua_istable(L,-1));
2046 for(i=0;clss->methods[i].name;i++){
2054 if(clss->metatable) {
2055 for(i=0;clss->metatable[i].name;i++) {
2060#if !defined(SWIG_LUA_SQUASH_BASES)
2102 lua_pushvalue(L, metamethod_name_idx);
2116 for(i=0;clss->bases[i];i++)
2131 int metamethod_name_idx;
2135 lua_checkstack(L,5);
2136 numargs = lua_gettop(L);
2139 lua_pushvalue(L, lua_upvalueindex(1));
2140 metamethod_name_idx = lua_gettop(L);
2142 lua_pushvalue(L, lua_upvalueindex(2));
2149 SWIG_Lua_pushferrstring(L,
"The metamethod proxy is set, but it failed to find actual metamethod. Memory corruption is most likely explanation.");
2156 lua_call(L, numargs, LUA_MULTRET);
2157 return lua_gettop(L);
2172 assert(lua_isstring(L,-1));
2174 key_index = lua_gettop(L);
2177 lua_pushvalue(L,key_index);
2178 lua_gettable(L,metatable_index);
2179 if( !lua_isnil(L,-1) ) {
2186 for(i=0;clss->bases[i];i++)
2190 lua_pushvalue(L, key_index);
2192 if( !lua_isnil(L,-1) ) {
2193 lua_pushvalue(L, key_index);
2196 lua_pushvalue(L, key_index);
2197 lua_pushlightuserdata(L, clss);
2200 lua_rawset(L, metatable_index);
2215 int metatable_index;
2216 int metamethods_info_index;
2217 int tostring_undefined;
2218 int eq_undefined = 0;
2221 metatable_index = lua_gettop(L);
2223 assert(lua_istable(L,-1));
2224 metamethods_info_index = lua_gettop(L);
2226 while(lua_next(L, metamethods_info_index) != 0 ) {
2228 const int is_inheritable = lua_toboolean(L,-2);
2231 if(is_inheritable) {
2239 lua_pushstring(L,
"__tostring");
2240 lua_pushvalue(L,-1);
2241 lua_rawget(L,metatable_index);
2242 tostring_undefined = lua_isnil(L,-1);
2244 if( tostring_undefined ) {
2246 lua_rawset(L, metatable_index);
2252 lua_pushstring(L,
"__eq");
2253 lua_pushvalue(L,-1);
2254 lua_rawget(L,metatable_index);
2255 eq_undefined = lua_isnil(L,-1);
2257 if( eq_undefined ) {
2259 lua_rawset(L, metatable_index);
2273 lua_checkstack(L,5);
2274 assert(lua_istable(L,-1));
2275 assert(strcmp(clss->name, clss->cls_static->name) == 0);
2279 assert(lua_istable(L,-1));
2285 if (clss->constructor)
2287 lua_getmetatable(L,-1);
2288 assert(lua_istable(L,-1));
2293 assert(lua_istable(L,-1));
2298 assert( lua_gettop(L) == begin );
2310 lua_pushstring(L,clss->fqname);
2312 if(!lua_isnil(L,-1)) {
2314 assert(lua_gettop(L)==begin);
2319 for(i=0;clss->bases[i];i++)
2325 lua_pushstring(L,clss->fqname);
2327#if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2334 for(i=0;clss->bases[i];i++)
2339 SWIG_Lua_merge_tables_by_index(L,new_metatable_index, base_metatable);
2346 lua_pushstring(L,
".type");
2347 lua_pushstring(L,clss->fqname);
2350 lua_pushstring(L,
".bases");
2354 lua_pushstring(L,
".get");
2358 lua_pushstring(L,
".set");
2362 lua_pushstring(L,
".fn");
2374 assert(lua_gettop(L) == begin);
2376#if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2378 SWIG_Lua_class_squash_bases(L,clss);
2383 assert( lua_gettop(L) == begin );
2389 assert(lua_istable(L,-1));
2403 begin = lua_gettop(L);
2404 lua_pushstring(L,clss->cls_static->name);
2406 assert(lua_istable(L,-1));
2407 lua_getmetatable(L,-1);
2408 assert(lua_istable(L,-1));
2409 lua_pushstring(L,
".instance");
2412 assert(lua_istable(L,-1));
2413 lua_pushstring(L,
".static");
2414 lua_pushvalue(L, -4);
2415 assert(lua_istable(L,-1));
2419 assert(lua_gettop(L) == begin);
2423#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
2430 lua_pushstring(L,clss->fqname);
2432 if(!lua_isnil(L,-1)) {
2434 assert(lua_gettop(L)==begin);
2439 for(i=0;clss->bases[i];i++)
2441 SWIG_Lua_elua_class_register_instance(L,clss->bases[i]);
2445 lua_pushstring(L,clss->fqname);
2446 assert(clss->metatable);
2447 lua_pushrotable(L, (
void*)(clss->metatable));
2450 assert(lua_gettop(L) == begin);
2461 if (type->clientdata)
2464 if (lua_istable(L,-1))
2466 lua_setmetatable(L,-2);
2487#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
2500 if (lua_isnil(L,index))
2505 if (lua_islightuserdata(L,index))
2507 *ptr=lua_touserdata(L,index);
2546 int argnum,
const char *func_name){
2549 luaL_error (L,
"Error in %s, expected a %s at argument number %d\n",
2550 func_name,(type && type->str)?type->str:
"void*",argnum);
2563 memcpy(raw->data,ptr,size);
2573 if (type==0 || type==raw->type)
2575 memcpy(ptr,raw->data,size);
2585 if (lua_isuserdata(L,tp))
2588 if (usr && usr->type && usr->type->str)
2590 return "userdata (unknown type)";
2592 return lua_typename(L,lua_type(L,tp));
2606#if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
2611 for (i = 0; constants[i].type; i++) {
2612 switch(constants[i].type) {
2614 lua_pushstring(L,constants[i].
name);
2615 lua_pushinteger(L,(lua_Integer)constants[i].lvalue);
2619 lua_pushstring(L,constants[i].
name);
2620 lua_pushnumber(L,(lua_Number)constants[i].dvalue);
2624 lua_pushstring(L,constants[i].
name);
2626 char c = (char)constants[i].lvalue;
2627 lua_pushlstring(L,&c,1);
2632 lua_pushstring(L,constants[i].
name);
2633 lua_pushstring(L,(
char *) constants[i].pvalue);
2637 lua_pushstring(L,constants[i].
name);
2642 lua_pushstring(L,constants[i].
name);
2643 SWIG_NewMemberObj(L,constants[i].pvalue,constants[i].lvalue,*(constants[i]).ptype);
2657#ifndef SWIG_DOSTRING_FAIL
2658#define SWIG_DOSTRING_FAIL(S) fprintf(stderr,"%s\n",S)
2668 if (str==0 || str[0]==0)
return 0;
2670#if (defined(LUA_VERSION_NUM) && (LUA_VERSION_NUM>=501))
2671 ok=luaL_dostring(L,str);
2673 ok=lua_dostring(L,str);
2691#define SWIGTYPE_p_PLGraphicsIn swig_types[0]
2692#define SWIGTYPE_p_char swig_types[1]
2693#define SWIGTYPE_p_double swig_types[2]
2694#define SWIGTYPE_p_f_double_double__int swig_types[3]
2695#define SWIGTYPE_p_f_double_double_p_double_p_double_p_void__void swig_types[4]
2696#define SWIGTYPE_p_f_int_double_p_char_int_p_void__void swig_types[5]
2697#define SWIGTYPE_p_f_int_p_double_p_double__void swig_types[6]
2698#define SWIGTYPE_p_f_int_p_q_const__double_p_q_const__double__void swig_types[7]
2699#define SWIGTYPE_p_int swig_types[8]
2700#define SWIGTYPE_p_p_char swig_types[9]
2701#define SWIGTYPE_p_p_double swig_types[10]
2702#define SWIGTYPE_p_unsigned_int swig_types[11]
2705#define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
2706#define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
2710#define SWIG_name "plplotluac"
2711#define SWIG_init luaopen_plplotluac
2712#define SWIG_init_user luaopen_plplotluac_user
2714#define SWIG_LUACODE luaopen_plplotluac_luacode
2719#define LUA_ALLOC_ARRAY( TYPE, LEN ) (TYPE *) malloc( LEN * sizeof ( TYPE ) )
2720#define LUA_FREE_ARRAY( PTR ) if ( PTR ) { free( PTR ); PTR = NULL;}
2724#define LUA_DECLARE_TYPEMAP_ARR_FN( NAME, TYPE ) \
2725 SWIGINTERN int LUA_read_ ## NAME ## _num_array( lua_State * L, int index, TYPE * array, int size ){ \
2727 for ( i = 0; i < size; i++ ) { \
2728 lua_rawgeti( L, index, i + 1 ); \
2729 if ( lua_isnumber( L, -1 ) ) { \
2730 array[i] = (TYPE) lua_tonumber( L, -1 ); \
2739 SWIGINTERN TYPE* LUA_get_ ## NAME ## _num_array_var( lua_State * L, int index, int* size ) \
2742 if ( !lua_istable( L, index ) ) { \
2743 lua_pushstring( L, "expected a table" ); \
2746 *size = SWIG_itable_size( L, index ); \
2747 if ( *size < 1 ) { \
2748 array = LUA_ALLOC_ARRAY( TYPE, 1 ); \
2749 array[0] = (TYPE) 0; \
2752 array = LUA_ALLOC_ARRAY( TYPE, *size ); \
2753 if ( !LUA_read_ ## NAME ## _num_array( L, index, array, *size ) ) { \
2754 lua_pushstring( L, "table must contain numbers" ); \
2755 LUA_FREE_ARRAY( array ); \
2770#define SWIG_ALLOC_ARRAY(TYPE,LEN) new TYPE[LEN]
2771#define SWIG_FREE_ARRAY(PTR) delete[] PTR
2773#define SWIG_ALLOC_ARRAY(TYPE,LEN) (TYPE *)malloc(LEN*sizeof(TYPE))
2774#define SWIG_FREE_ARRAY(PTR) free(PTR)
2781 lua_rawgeti(L,index,n+1);
2782 if (lua_isnil(L,-1))
break;
2794 while (lua_next(L, index) != 0) {
2802#define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME,TYPE)\
2803 SWIGINTERN int SWIG_read_##NAME##_num_array(lua_State* L,int index,TYPE *array,int size){\
2805 for (i = 0; i < size; i++) {\
2806 lua_rawgeti(L,index,i+1);\
2807 if (lua_isnumber(L,-1)){\
2808 array[i] = (TYPE)lua_tonumber(L,-1);\
2817 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_fixed(lua_State* L, int index, int size){\
2819 if (!lua_istable(L,index) || SWIG_itable_size(L,index) != size) {\
2820 SWIG_Lua_pushferrstring(L,"expected a table of size %d",size);\
2823 array=SWIG_ALLOC_ARRAY(TYPE,size);\
2824 if (!SWIG_read_##NAME##_num_array(L,index,array,size)){\
2825 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
2826 SWIG_FREE_ARRAY(array);\
2831 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_var(lua_State* L, int index, int* size)\
2834 if (!lua_istable(L,index)) {\
2835 SWIG_Lua_pusherrstring(L,"expected a table");\
2838 *size=SWIG_itable_size(L,index);\
2840 SWIG_Lua_pusherrstring(L,"table appears to be empty");\
2843 array=SWIG_ALLOC_ARRAY(TYPE,*size);\
2844 if (!SWIG_read_##NAME##_num_array(L,index,array,*size)){\
2845 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
2846 SWIG_FREE_ARRAY(array);\
2851 SWIGINTERN void SWIG_write_##NAME##_num_array(lua_State* L,TYPE *array,int size){\
2854 for (i = 0; i < size; i++){\
2855 lua_pushnumber(L,(lua_Number)array[i]);\
2856 lua_rawseti(L,-2,i+1); \
2873 for (i = 0; i < size; i++) {
2874 lua_rawgeti(L,index,i+1);
2875 if (!lua_isuserdata(L,-1) ||
SWIG_ConvertPtr(L,-1,&array[i],type,0)==-1){
2899 if (!lua_istable(L,index)) {
2919 for (i = 0; i < size; i++){
2921 lua_rawseti(L,-2,i+1);
2936 if ( !lua_istable( L, index ) )
2938 lua_pushstring( L,
"expected a table" );
2944 lua_pushstring( L,
"table appears to be empty" );
2948 for ( i = 0; i < *nx; i++ )
2951 lua_rawgeti( L, index, 1 );
2952 if ( !lua_istable( L, -1 ) )
2955 lua_pushstring( L,
"expected a table" );
2962 lua_pushstring( L,
"table appears to be empty" );
2968 for ( i = 0; i < *nx; i++ )
2970 lua_rawgeti( L, index, i + 1 );
2971 if ( !lua_istable( L, -1 ) )
2974 lua_pushstring( L,
"expected a table" );
2975 for ( j = 0; j < *ny; j++ )
2983 lua_pushstring( L,
"inconsistent table sizes" );
2984 for ( j = 0; j < i; j++ )
2990 for ( j = 0; j < *ny; j++ )
2992 lua_rawgeti( L, -1, j + 1 );
2993 if ( lua_isnumber( L, -1 ) )
2995 matrix[i][j] = (
PLFLT) lua_tonumber( L, -1 );
3000 lua_pushstring( L,
"table must contain numbers" );
3001 for ( j = 0; j < i + 1; j++ )
3022 PLFLT *xtemp, *ytemp;
3028 fprintf( stderr,
"Lua state is not set!" );
3034 lua_pushnumber(
myL, n );
3035 SWIG_write_double_num_array(
myL, x, n );
3036 SWIG_write_double_num_array(
myL, y, n );
3039 if ( lua_pcall(
myL, 3, 2, 0 ) != 0 )
3040 fprintf( stderr,
"error running function `%s':%s",
3044 if ( !lua_istable(
myL, -2 ) )
3046 fprintf( stderr,
"function `%s' must return a table as 1st result",
mapform_funcstr );
3049 if ( !lua_istable(
myL, -1 ) )
3051 fprintf( stderr,
"function `%s' must return a table as 2nd result",
mapform_funcstr );
3054 xtemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -2, &len );
3055 if ( !xtemp || len != n )
3057 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3060 for ( i = 0; i < n; i++ )
3064 ytemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -1, &len );
3065 if ( !ytemp || len != n )
3067 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3070 for ( i = 0; i < n; i++ )
3105 fprintf( stderr,
"Lua state is not set!" );
3111 lua_pushnumber(
myL, x );
3112 lua_pushnumber(
myL, y );
3115 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3116 fprintf( stderr,
"error running function `%s':%s",
3120 if ( !lua_isnumber(
myL, -2 ) )
3122 fprintf( stderr,
"function `%s' must return a number as 1st result",
mypltr_funcstr );
3125 if ( !lua_isnumber(
myL, -1 ) )
3127 fprintf( stderr,
"function `%s' must return a number as 2nd result",
mypltr_funcstr );
3130 *tx = lua_tonumber(
myL, -2 );
3131 *ty = lua_tonumber(
myL, -1 );
3149 fprintf( stderr,
"Lua state is not set!" );
3155 lua_pushnumber(
myL, x );
3156 lua_pushnumber(
myL, y );
3159 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3160 fprintf( stderr,
"error running function `%s':%s",
3164 if ( !lua_isnumber(
myL, -2 ) )
3166 fprintf( stderr,
"function `%s' must return a number as 1st result",
myct_funcstr );
3169 if ( !lua_isnumber(
myL, -1 ) )
3171 fprintf( stderr,
"function `%s' must return a number as 2nd result",
myct_funcstr );
3174 *tx = lua_tonumber(
myL, -2 );
3175 *ty = lua_tonumber(
myL, -1 );
3188 fprintf( stderr,
"Lua state is not set!" );
3194 lua_pushnumber(
myL, axis );
3198 if ( lua_pcall(
myL, 2, 1, 0 ) != 0 )
3199 fprintf( stderr,
"error running function `%s':%s",
3203 if ( !lua_isstring(
myL, -1 ) )
3205 fprintf( stderr,
"function `%s' must return a string as result",
mylabel_funcstr );
3208 strncpy( label, lua_tostring(
myL, -1 ), length );
3220 int ret = lua_isstring(L, idx);
3222 ret = lua_isnil(L, idx);
3236 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::type",2,
"int");
3242 arg2 = (int)lua_tonumber(L, 2);
3243 if (arg1) (arg1)->type = arg2;
3265 result = (int) ((arg1)->type);
3266 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3282 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::state",2,
"unsigned int");
3289 arg2 = (
unsigned int)lua_tonumber(L, 2);
3290 if (arg1) (arg1)->state = arg2;
3303 unsigned int result;
3312 result = (
unsigned int) ((arg1)->state);
3313 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3329 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::keysym",2,
"unsigned int");
3336 arg2 = (
unsigned int)lua_tonumber(L, 2);
3337 if (arg1) (arg1)->keysym = arg2;
3350 unsigned int result;
3359 result = (
unsigned int) ((arg1)->keysym);
3360 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3376 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::button",2,
"unsigned int");
3383 arg2 = (
unsigned int)lua_tonumber(L, 2);
3384 if (arg1) (arg1)->button = arg2;
3397 unsigned int result;
3406 result = (
unsigned int) ((arg1)->button);
3407 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3423 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::subwindow",2,
"PLINT");
3429 arg2 = (
PLINT)lua_tonumber(L, 2);
3430 if (arg1) (arg1)->subwindow = arg2;
3452 result = (
PLINT) ((arg1)->subwindow);
3453 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3475 arg2 = (
char *)lua_tostring(L, 2);
3478 strncpy((
char*)arg1->string, (
const char *)arg2, 16-1);
3479 arg1->string[16-1] = 0;
3481 arg1->string[0] = 0;
3505 result = (
char *)(
char *) ((arg1)->
string);
3506 lua_pushstring(L,(
const char *)result); SWIG_arg++;
3522 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pX",2,
"int");
3528 arg2 = (int)lua_tonumber(L, 2);
3529 if (arg1) (arg1)->pX = arg2;
3551 result = (int) ((arg1)->pX);
3552 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3568 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pY",2,
"int");
3574 arg2 = (int)lua_tonumber(L, 2);
3575 if (arg1) (arg1)->pY = arg2;
3597 result = (int) ((arg1)->pY);
3598 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3614 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dX",2,
"PLFLT");
3620 arg2 = (
PLFLT)lua_tonumber(L, 2);
3621 if (arg1) (arg1)->dX = arg2;
3643 result = (
PLFLT) ((arg1)->dX);
3644 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3660 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dY",2,
"PLFLT");
3666 arg2 = (
PLFLT)lua_tonumber(L, 2);
3667 if (arg1) (arg1)->dY = arg2;
3689 result = (
PLFLT) ((arg1)->dY);
3690 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3706 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wX",2,
"PLFLT");
3712 arg2 = (
PLFLT)lua_tonumber(L, 2);
3713 if (arg1) (arg1)->wX = arg2;
3735 result = (
PLFLT) ((arg1)->wX);
3736 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3752 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wY",2,
"PLFLT");
3758 arg2 = (
PLFLT)lua_tonumber(L, 2);
3759 if (arg1) (arg1)->wY = arg2;
3781 result = (
PLFLT) ((arg1)->wY);
3782 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3811 assert(lua_istable(L,1));
3813 assert(!lua_isnil(L,-1));
3815 lua_call(L,lua_gettop(L)-1,1);
3863static 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 };
3871 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelformat",1,
"PLINT");
3872 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelformat",2,
"PLINT");
3873 arg1 = (
PLINT)lua_tonumber(L, 1);
3874 arg2 = (
PLINT)lua_tonumber(L, 2);
3893 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelparam",1,
"PLFLT");
3894 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelparam",2,
"PLFLT");
3895 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pl_setcontlabelparam",3,
"PLFLT");
3896 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"pl_setcontlabelparam",4,
"PLINT");
3897 arg1 = (
PLFLT)lua_tonumber(L, 1);
3898 arg2 = (
PLFLT)lua_tonumber(L, 2);
3899 arg3 = (
PLFLT)lua_tonumber(L, 3);
3900 arg4 = (
PLINT)lua_tonumber(L, 4);
3917 arg1 = (
PLINT)lua_tonumber(L, 1);
3948 arg1 = (
PLFLT)lua_tonumber(L, 1);
3949 arg2 = (
PLFLT)lua_tonumber(L, 2);
3950 arg3 = (
PLFLT)lua_tonumber(L, 3);
3951 arg4 = (
PLFLT)lua_tonumber(L, 4);
3952 arg5 = (
PLFLT)lua_tonumber(L, 5);
3953 arg6 = (
PLFLT)lua_tonumber(L, 6);
3954 arg7 = (
PLFLT)lua_tonumber(L, 7);
3955 arg8 = (
PLBOOL)lua_tonumber(L, 8);
3956 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
3970 char *arg3 = (
char *) 0 ;
3973 char *arg6 = (
char *) 0 ;
3986 arg1 = (
PLFLT)lua_tonumber(L, 1);
3987 arg2 = (
PLFLT)lua_tonumber(L, 2);
3988 arg3 = (
char *)lua_tostring(L, 3);
3989 arg4 = (
PLFLT)lua_tonumber(L, 4);
3990 arg5 = (
PLINT)lua_tonumber(L, 5);
3991 arg6 = (
char *)lua_tostring(L, 6);
3992 arg7 = (
PLFLT)lua_tonumber(L, 7);
3993 arg8 = (
PLINT)lua_tonumber(L, 8);
3994 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
4016 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4022 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4025 if ( temp3 !=
Alen )
4027 lua_pushfstring( L,
"Tables must be of same length." );
4031 arg4 = (
PLINT)lua_tonumber(L, 3);
4032 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
4078 arg7 = (
PLFLT)lua_tonumber(L, 1);
4079 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4081 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4082 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4083 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4084 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4085 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4086 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
4111 char *arg1 = (
char *) 0 ;
4114 char *arg4 = (
char *) 0 ;
4125 arg1 = (
char *)lua_tostring(L, 1);
4126 arg2 = (
PLFLT)lua_tonumber(L, 2);
4127 arg3 = (
PLINT)lua_tonumber(L, 3);
4128 arg4 = (
char *)lua_tostring(L, 4);
4129 arg5 = (
PLFLT)lua_tonumber(L, 5);
4130 arg6 = (
PLINT)lua_tonumber(L, 6);
4131 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
4143 char *arg1 = (
char *) 0 ;
4144 char *arg2 = (
char *) 0 ;
4147 char *arg5 = (
char *) 0 ;
4148 char *arg6 = (
char *) 0 ;
4151 char *arg9 = (
char *) 0 ;
4152 char *arg10 = (
char *) 0 ;
4169 arg1 = (
char *)lua_tostring(L, 1);
4170 arg2 = (
char *)lua_tostring(L, 2);
4171 arg3 = (
PLFLT)lua_tonumber(L, 3);
4172 arg4 = (
PLINT)lua_tonumber(L, 4);
4173 arg5 = (
char *)lua_tostring(L, 5);
4174 arg6 = (
char *)lua_tostring(L, 6);
4175 arg7 = (
PLFLT)lua_tonumber(L, 7);
4176 arg8 = (
PLINT)lua_tonumber(L, 8);
4177 arg9 = (
char *)lua_tostring(L, 9);
4178 arg10 = (
char *)lua_tostring(L, 10);
4179 arg11 = (
PLFLT)lua_tonumber(L, 11);
4180 arg12 = (
PLINT)lua_tonumber(L, 12);
4181 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);
4206 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcalc_world",1,
"PLFLT");
4207 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcalc_world",2,
"PLFLT");
4208 arg1 = (
PLFLT)lua_tonumber(L, 1);
4209 arg2 = (
PLFLT)lua_tonumber(L, 2);
4212 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4213 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4214 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4243 arg1 = (
PLINT)lua_tonumber(L, 1);
4260 arg1 = (
PLFLT)lua_tonumber(L, 1);
4286 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plconfigtime",1,
"PLFLT");
4287 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plconfigtime",2,
"PLFLT");
4288 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plconfigtime",3,
"PLFLT");
4289 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plconfigtime",4,
"PLINT");
4290 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plconfigtime",5,
"PLBOOL");
4291 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plconfigtime",6,
"PLINT");
4292 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plconfigtime",7,
"PLINT");
4293 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plconfigtime",8,
"PLINT");
4294 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plconfigtime",9,
"PLINT");
4295 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plconfigtime",10,
"PLINT");
4296 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plconfigtime",11,
"PLFLT");
4297 arg1 = (
PLFLT)lua_tonumber(L, 1);
4298 arg2 = (
PLFLT)lua_tonumber(L, 2);
4299 arg3 = (
PLFLT)lua_tonumber(L, 3);
4300 arg4 = (
PLINT)lua_tonumber(L, 4);
4301 arg5 = (
PLBOOL)lua_tonumber(L, 5);
4302 arg6 = (
PLINT)lua_tonumber(L, 6);
4303 arg7 = (
PLINT)lua_tonumber(L, 7);
4304 arg8 = (
PLINT)lua_tonumber(L, 8);
4305 arg9 = (
PLINT)lua_tonumber(L, 9);
4306 arg10 = (
PLINT)lua_tonumber(L, 10);
4307 arg11 = (
PLFLT)lua_tonumber(L, 11);
4308 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
4336 cgrid111.
xg = cgrid111.yg = cgrid111.zg = NULL;
4337 cgrid111.nx = cgrid111.ny = cgrid111.nz = 0;
4338 cgrid211.xg = cgrid211.yg = cgrid211.zg = NULL;
4339 cgrid211.nx = cgrid211.ny = 0;
4361 arg4 = (
PLINT)lua_tonumber(L, 2);
4362 arg5 = (
PLINT)lua_tonumber(L, 3);
4363 arg6 = (
PLINT)lua_tonumber(L, 4);
4364 arg7 = (
PLINT)lua_tonumber(L, 5);
4367 arg8 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
4372 if(lua_gettop(L)>=7){
4377 if ( lua_isstring( L, 7 ) )
4379 const char* funcstr = lua_tostring( L, 7 );
4380 if ( strcmp(
"pltr0", funcstr ) == 0 )
4384 else if ( strcmp(
"pltr1", funcstr ) == 0 )
4388 else if ( strcmp(
"pltr2", funcstr ) == 0 )
4403 if(lua_gettop(L)>=8){
4408 lua_pushstring( L,
"xg" );
4409 lua_gettable( L, 8 );
4410 if ( !lua_istable( L, -1 ) )
4413 lua_pushstring( L,
"expected a table xg" );
4416 lua_rawgeti( L, -1, 1 );
4417 if ( lua_istable( L, -1 ) )
4419 else if ( lua_isnumber( L, -1 ) )
4425 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
4429 if ( gridmode == 1 )
4431 cgrid111.xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
4439 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
4452 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4455 lua_pushfstring( L,
"Vectors must match matrix." );
4463 lua_pushstring( L,
"yg" );
4464 lua_gettable( L, 8 );
4465 if ( !lua_istable( L, -1 ) )
4468 lua_pushstring( L,
"expected a table yg" );
4471 lua_rawgeti( L, -1, 1 );
4472 if ( gridmode == 2 )
4474 if ( !lua_istable( L, -1 ) )
4478 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
4484 if ( !lua_isnumber( L, -1 ) )
4488 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
4493 if ( gridmode == 1 )
4495 cgrid111.yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
4503 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
4516 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4519 lua_pushfstring( L,
"Vectors must match matrix." );
4526 if ( gridmode == 1 )
4528 else if ( gridmode == 2 )
4532 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
4539 for ( i = 0; i < ii1; i++ )
4558 for ( i = 0; i <
Xlen; i++ )
4564 for ( i = 0; i <
Xlen; i++ )
4577 for ( i = 0; i < ii1; i++ )
4596 for ( i = 0; i <
Xlen; i++ )
4602 for ( i = 0; i <
Xlen; i++ )
4631 arg1 = (
PLINT)lua_tonumber(L, 1);
4632 arg2 = (
PLINT)lua_tonumber(L, 2);
4633 arg3 = (
PLINT)lua_tonumber(L, 3);
4634 arg4 = (
PLINT)lua_tonumber(L, 4);
4635 arg5 = (
PLINT)lua_tonumber(L, 5);
4636 arg6 = (
PLFLT)lua_tonumber(L, 6);
4637 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4639 lua_pushnumber(L, (lua_Number) *arg7); SWIG_arg++;
4655 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcpstrm",2,
"PLBOOL");
4656 arg1 = (
PLINT)lua_tonumber(L, 1);
4657 arg2 = (
PLBOOL)lua_tonumber(L, 2);
4712 arg1 = (
PLFLT)lua_tonumber(L, 1);
4713 arg2 = (
PLFLT)lua_tonumber(L, 2);
4714 arg3 = (
PLFLT)lua_tonumber(L, 3);
4715 arg4 = (
PLFLT)lua_tonumber(L, 4);
4716 arg5 = (
PLINT)lua_tonumber(L, 5);
4717 arg6 = (
PLINT)lua_tonumber(L, 6);
4718 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
4744 arg1 = (
PLFLT)lua_tonumber(L, 1);
4745 arg2 = (
PLFLT)lua_tonumber(L, 2);
4746 arg3 = (
PLFLT)lua_tonumber(L, 3);
4747 arg4 = (
PLFLT)lua_tonumber(L, 4);
4748 arg5 = (
PLINT)lua_tonumber(L, 5);
4749 arg6 = (
PLINT)lua_tonumber(L, 6);
4750 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
4786 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4792 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4795 if ( temp3 !=
Alen )
4797 lua_pushfstring( L,
"Tables must be of same length." );
4802 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4805 if ( temp4 !=
Alen )
4807 lua_pushfstring( L,
"Tables must be of same length." );
4811 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4851 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4857 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4860 if ( temp3 !=
Alen )
4862 lua_pushfstring( L,
"Tables must be of same length." );
4867 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4870 if ( temp4 !=
Alen )
4872 lua_pushfstring( L,
"Tables must be of same length." );
4876 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4928 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4934 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4937 if ( temp3 !=
Alen )
4939 lua_pushfstring( L,
"Tables must be of same length." );
4943 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
4977 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4983 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4986 if ( temp3 !=
Alen )
4988 lua_pushfstring( L,
"Tables must be of same length." );
4993 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4996 if ( temp4 !=
Alen )
4998 lua_pushfstring( L,
"Tables must be of same length." );
5002 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5039 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plgradient",3,
"PLFLT");
5042 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5048 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5051 if ( temp3 !=
Alen )
5053 lua_pushfstring( L,
"Tables must be of same length." );
5057 arg4 = (
PLFLT)lua_tonumber(L, 3);
5058 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
5100 arg1 = (
PLINT)lua_tonumber(L, 1);
5117 arg1 = (
PLINT)lua_tonumber(L, 1);
5140 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5141 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5165 arg1 = (
PLINT)lua_tonumber(L, 1);
5168 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5169 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5170 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5197 arg1 = (
PLINT)lua_tonumber(L, 1);
5198 plgcol0a(arg1,arg2,arg3,arg4,arg5);
5200 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5201 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5202 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5203 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5227 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5228 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5229 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5256 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5257 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5258 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5259 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5277 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5288 char *arg1 = (
char *) 0 ;
5298 lua_pushstring( L, arg1 );
5327 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5328 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5329 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5330 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5348 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5375 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5376 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5377 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5378 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5402 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5403 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5404 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5422 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5433 char *arg1 = (
char *) 0 ;
5443 lua_pushstring( L, arg1 );
5469 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5470 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5471 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5489 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5520 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
5522 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5523 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5524 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5525 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5526 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5527 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
5566 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plgriddata",6,
"PLINT");
5567 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plgriddata",7,
"PLFLT");
5570 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5576 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp2 );
5579 if ( temp2 !=
Alen )
5581 lua_pushfstring( L,
"Tables must be of same length." );
5587 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp );
5592 lua_pushfstring( L,
"Tables must be of same length." );
5599 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
5607 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
5615 for ( i = 0; i <
Xlen; i++ )
5618 for ( i = 0; i <
Xlen; i++ )
5625 arg10 = (
PLINT)lua_tonumber(L, 6);
5626 arg11 = (
PLFLT)lua_tonumber(L, 7);
5627 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
5635 for ( i = 0; i <
Xlen; i++ )
5637 SWIG_write_double_num_array( L, arg9[i],
Ylen );
5638 lua_rawseti( L, -2, i + 1 );
5662 for ( i = 0; i <
Xlen; i++ )
5689 for ( i = 0; i <
Xlen; i++ )
5715 plgspa(arg1,arg2,arg3,arg4);
5717 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5718 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5719 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5720 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5738 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5749 char *arg1 = (
char *) 0 ;
5759 lua_pushstring( L, arg1 );
5786 plgvpd(arg1,arg2,arg3,arg4);
5788 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5789 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5790 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5791 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5816 plgvpw(arg1,arg2,arg3,arg4);
5818 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5819 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5820 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5821 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5842 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5843 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5864 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5865 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5886 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5887 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5912 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5917 arg3 = (
PLFLT)lua_tonumber(L, 2);
5918 arg4 = (
PLFLT)lua_tonumber(L, 3);
5919 arg5 = (
PLINT)lua_tonumber(L, 4);
5920 arg6 = (
PLINT)lua_tonumber(L, 5);
5921 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
5956 arg1 = (
PLFLT)lua_tonumber(L, 1);
5957 arg2 = (
PLFLT)lua_tonumber(L, 2);
5958 arg3 = (
PLFLT)lua_tonumber(L, 3);
5959 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
5961 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5962 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5963 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
5998 arg1 = (
PLFLT)lua_tonumber(L, 1);
5999 arg2 = (
PLFLT)lua_tonumber(L, 2);
6000 arg3 = (
PLFLT)lua_tonumber(L, 3);
6001 arg4 = (
PLFLT)lua_tonumber(L, 4);
6002 pljoin(arg1,arg2,arg3,arg4);
6014 char *arg1 = (
char *) 0 ;
6015 char *arg2 = (
char *) 0 ;
6016 char *arg3 = (
char *) 0 ;
6022 arg1 = (
char *)lua_tostring(L, 1);
6023 arg2 = (
char *)lua_tostring(L, 2);
6024 arg3 = (
char *)lua_tostring(L, 3);
6025 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
6056 char **arg20 = (
char **) 0 ;
6067 char **arg31 = (
char **) 0 ;
6124 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"pllegend",10,
"PLINT");
6125 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"pllegend",12,
"PLFLT");
6126 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"pllegend",13,
"PLFLT");
6127 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"pllegend",14,
"PLFLT");
6128 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"pllegend",15,
"PLFLT");
6129 if(!lua_istable(L,17))
SWIG_fail_arg(
"pllegend",17,
"char const **");
6130 if(lua_gettop(L)>=28 && !lua_istable(L,28))
SWIG_fail_arg(
"pllegend",28,
"char const **");
6131 arg3 = (
PLINT)lua_tonumber(L, 1);
6132 arg4 = (
PLINT)lua_tonumber(L, 2);
6133 arg5 = (
PLFLT)lua_tonumber(L, 3);
6134 arg6 = (
PLFLT)lua_tonumber(L, 4);
6135 arg7 = (
PLFLT)lua_tonumber(L, 5);
6136 arg8 = (
PLINT)lua_tonumber(L, 6);
6137 arg9 = (
PLINT)lua_tonumber(L, 7);
6138 arg10 = (
PLINT)lua_tonumber(L, 8);
6139 arg11 = (
PLINT)lua_tonumber(L, 9);
6140 arg12 = (
PLINT)lua_tonumber(L, 10);
6142 arg14 = (
PLINT *) LUA_get_int_num_array_var( L, 11, &arg13 );
6147 arg15 = (
PLFLT)lua_tonumber(L, 12);
6148 arg16 = (
PLFLT)lua_tonumber(L, 13);
6149 arg17 = (
PLFLT)lua_tonumber(L, 14);
6150 arg18 = (
PLFLT)lua_tonumber(L, 15);
6152 arg19 = (
PLINT *) LUA_get_int_num_array_var( L, 16, &temp19 );
6155 if ( temp19 !=
Alen )
6157 lua_pushfstring( L,
"Tables must be of same length." );
6167 lua_pushfstring( L,
"Tables must be of same length." );
6170 arg20 = malloc(
sizeof (
char* ) *
Alen );
6171 for ( i = 1; i <=
Alen; i++ )
6173 lua_rawgeti( L, 17, i );
6174 if ( lua_isstring( L, -1 ) )
6176 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6181 lua_pushfstring( L,
"Requires a sequence of strings." );
6188 if(lua_gettop(L)>=18){
6190 if ( lua_isnil( L, 18 ) )
6196 arg21 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp21 );
6199 if ( temp21 !=
Alen )
6201 lua_pushfstring( L,
"Tables must be of same length." );
6207 if(lua_gettop(L)>=19){
6209 if ( lua_isnil( L, 19 ) )
6215 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp22 );
6218 if ( temp22 !=
Alen )
6220 lua_pushfstring( L,
"Tables must be of same length." );
6226 if(lua_gettop(L)>=20){
6228 if ( lua_isnil( L, 20 ) )
6234 arg23 = (
PLFLT *) LUA_get_double_num_array_var( L, 20, &temp23 );
6237 if ( temp23 !=
Alen )
6239 lua_pushfstring( L,
"Tables must be of same length." );
6245 if(lua_gettop(L)>=21){
6247 if ( lua_isnil( L, 21 ) )
6253 arg24 = (
PLFLT *) LUA_get_double_num_array_var( L, 21, &temp24 );
6256 if ( temp24 !=
Alen )
6258 lua_pushfstring( L,
"Tables must be of same length." );
6264 if(lua_gettop(L)>=22){
6266 if ( lua_isnil( L, 22 ) )
6272 arg25 = (
PLINT *) LUA_get_int_num_array_var( L, 22, &temp25 );
6275 if ( temp25 !=
Alen )
6277 lua_pushfstring( L,
"Tables must be of same length." );
6283 if(lua_gettop(L)>=23){
6285 if ( lua_isnil( L, 23 ) )
6291 arg26 = (
PLINT *) LUA_get_int_num_array_var( L, 23, &temp26 );
6294 if ( temp26 !=
Alen )
6296 lua_pushfstring( L,
"Tables must be of same length." );
6302 if(lua_gettop(L)>=24){
6304 if ( lua_isnil( L, 24 ) )
6310 arg27 = (
PLFLT *) LUA_get_double_num_array_var( L, 24, &temp27 );
6313 if ( temp27 !=
Alen )
6315 lua_pushfstring( L,
"Tables must be of same length." );
6321 if(lua_gettop(L)>=25){
6323 if ( lua_isnil( L, 25 ) )
6329 arg28 = (
PLINT *) LUA_get_int_num_array_var( L, 25, &temp28 );
6332 if ( temp28 !=
Alen )
6334 lua_pushfstring( L,
"Tables must be of same length." );
6340 if(lua_gettop(L)>=26){
6342 if ( lua_isnil( L, 26 ) )
6348 arg29 = (
PLFLT *) LUA_get_double_num_array_var( L, 26, &temp29 );
6351 if ( temp29 !=
Alen )
6353 lua_pushfstring( L,
"Tables must be of same length." );
6359 if(lua_gettop(L)>=27){
6361 if ( lua_isnil( L, 27 ) )
6367 arg30 = (
PLINT *) LUA_get_int_num_array_var( L, 27, &temp30 );
6370 if ( temp30 !=
Alen )
6372 lua_pushfstring( L,
"Tables must be of same length." );
6378 if(lua_gettop(L)>=28){
6385 lua_pushfstring( L,
"Tables must be of same length." );
6388 arg31 = malloc(
sizeof (
char* ) *
Alen );
6389 for ( i = 1; i <=
Alen; i++ )
6391 lua_rawgeti( L, 28, i );
6392 if ( lua_isstring( L, -1 ) )
6394 arg31[i - 1] = (
char *) lua_tostring( L, -1 );
6399 lua_pushfstring( L,
"Requires a sequence of strings." );
6407 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);
6409 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6410 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6420 free( arg20 ); arg20 = NULL;
6456 free( arg31 ); arg31 = NULL;
6471 free( arg20 ); arg20 = NULL;
6507 free( arg31 ); arg31 = NULL;
6534 char **arg18 = (
char **) 0 ;
6536 char **arg20 = (
char **) 0 ;
6551 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcolorbar",1,
"PLINT");
6552 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcolorbar",2,
"PLINT");
6553 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plcolorbar",3,
"PLFLT");
6554 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plcolorbar",4,
"PLFLT");
6555 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plcolorbar",5,
"PLFLT");
6556 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plcolorbar",6,
"PLFLT");
6557 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plcolorbar",7,
"PLINT");
6558 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plcolorbar",8,
"PLINT");
6559 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plcolorbar",9,
"PLINT");
6560 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plcolorbar",10,
"PLFLT");
6561 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plcolorbar",11,
"PLFLT");
6562 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plcolorbar",12,
"PLINT");
6563 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plcolorbar",13,
"PLFLT");
6564 if(!lua_istable(L,15))
SWIG_fail_arg(
"plcolorbar",15,
"char const **");
6565 arg3 = (
PLINT)lua_tonumber(L, 1);
6566 arg4 = (
PLINT)lua_tonumber(L, 2);
6567 arg5 = (
PLFLT)lua_tonumber(L, 3);
6568 arg6 = (
PLFLT)lua_tonumber(L, 4);
6569 arg7 = (
PLFLT)lua_tonumber(L, 5);
6570 arg8 = (
PLFLT)lua_tonumber(L, 6);
6571 arg9 = (
PLINT)lua_tonumber(L, 7);
6572 arg10 = (
PLINT)lua_tonumber(L, 8);
6573 arg11 = (
PLINT)lua_tonumber(L, 9);
6574 arg12 = (
PLFLT)lua_tonumber(L, 10);
6575 arg13 = (
PLFLT)lua_tonumber(L, 11);
6576 arg14 = (
PLINT)lua_tonumber(L, 12);
6577 arg15 = (
PLFLT)lua_tonumber(L, 13);
6579 arg17 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &arg16 );
6590 lua_pushfstring( L,
"Tables must be of same length." );
6593 arg18 = malloc(
sizeof (
char* ) *
Alen );
6594 for ( i = 1; i <=
Alen; i++ )
6596 lua_rawgeti( L, 15, i );
6597 if ( lua_isstring( L, -1 ) )
6599 arg18[i - 1] = (
char *) lua_tostring( L, -1 );
6604 lua_pushfstring( L,
"Requires a sequence of strings." );
6616 arg20 = malloc(
sizeof (
char* ) *
Alen );
6617 for ( i = 1; i <=
Alen; i++ )
6619 lua_rawgeti( L, 16, i );
6620 if ( lua_isstring( L, -1 ) )
6622 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6627 lua_pushfstring( L,
"Requires a sequence of strings." );
6634 arg21 = (
PLFLT *) LUA_get_double_num_array_var( L, 17, &temp21 );
6637 if ( temp21 !=
Alen )
6639 lua_pushfstring( L,
"Tables must be of same length." );
6644 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp22 );
6647 if ( temp22 !=
Alen )
6649 lua_pushfstring( L,
"Tables must be of same length." );
6656 arg23 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp23 );
6659 if ( temp23 !=
Alen )
6661 lua_pushfstring( L,
"Tables must be of same length." );
6667 for ( i = 0; i <
Xlen; i++ )
6668 if ( arg23[i] >
Ylen )
6677 if ( ( ii24 !=
Xlen ) || ( jj !=
Ylen ) )
6679 lua_pushfstring( L,
"Vectors must match matrix." );
6683 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);
6685 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6686 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6693 free( arg18 ); arg18 = NULL;
6699 free( arg20 ); arg20 = NULL;
6716 for ( i = 0; i < ii24; i++ )
6730 free( arg18 ); arg18 = NULL;
6736 free( arg20 ); arg20 = NULL;
6753 for ( i = 0; i < ii24; i++ )
6770 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pllightsource",1,
"PLFLT");
6771 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pllightsource",2,
"PLFLT");
6772 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pllightsource",3,
"PLFLT");
6773 arg1 = (
PLFLT)lua_tonumber(L, 1);
6774 arg2 = (
PLFLT)lua_tonumber(L, 2);
6775 arg3 = (
PLFLT)lua_tonumber(L, 3);
6796 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6802 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6805 if ( temp3 !=
Alen )
6807 lua_pushfstring( L,
"Tables must be of same length." );
6811 plline(arg1,(
double const *)arg2,(
double const *)arg3);
6845 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6851 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6854 if ( temp3 !=
Alen )
6856 lua_pushfstring( L,
"Tables must be of same length." );
6861 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
6864 if ( temp4 !=
Alen )
6866 lua_pushfstring( L,
"Tables must be of same length." );
6870 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
6904 arg1 = (
PLINT)lua_tonumber(L, 1);
6929 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6936 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6949 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6951 lua_pushfstring( L,
"Vectors must match matrix." );
6955 arg6 = (
PLINT)lua_tonumber(L, 4);
6956 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
6969 for ( i = 0; i < ii3; i++ )
6988 for ( i = 0; i < ii3; i++ )
7014 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7021 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7034 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7036 lua_pushfstring( L,
"Vectors must match matrix." );
7040 arg6 = (
PLINT)lua_tonumber(L, 4);
7043 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7048 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7061 for ( i = 0; i < ii3; i++ )
7083 for ( i = 0; i < ii3; i++ )
7105 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
7116 char *arg1 = (
char *) 0 ;
7120 char *arg5 = (
char *) 0 ;
7128 arg1 = (
char *)lua_tostring(L, 1);
7129 arg2 = (
PLFLT)lua_tonumber(L, 2);
7130 arg3 = (
PLFLT)lua_tonumber(L, 3);
7131 arg4 = (
PLFLT)lua_tonumber(L, 4);
7132 arg5 = (
char *)lua_tostring(L, 5);
7133 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7145 char *arg1 = (
char *) 0 ;
7149 char *arg5 = (
char *) 0 ;
7157 arg1 = (
char *)lua_tostring(L, 1);
7158 arg2 = (
PLFLT)lua_tonumber(L, 2);
7159 arg3 = (
PLFLT)lua_tonumber(L, 3);
7160 arg4 = (
PLFLT)lua_tonumber(L, 4);
7161 arg5 = (
char *)lua_tostring(L, 5);
7162 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7188 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7195 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7208 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7210 lua_pushfstring( L,
"Vectors must match matrix." );
7214 arg6 = (
PLINT)lua_tonumber(L, 4);
7215 arg7 = (
PLBOOL)lua_tonumber(L, 5);
7216 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
7229 for ( i = 0; i < ii3; i++ )
7248 for ( i = 0; i < ii3; i++ )
7274 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7281 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7294 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7296 lua_pushfstring( L,
"Vectors must match matrix." );
7300 arg6 = (
PLINT)lua_tonumber(L, 4);
7303 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7308 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7321 for ( i = 0; i < ii3; i++ )
7343 for ( i = 0; i < ii3; i++ )
7378 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7385 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7398 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7400 lua_pushfstring( L,
"Vectors must match matrix." );
7404 arg6 = (
PLINT)lua_tonumber(L, 4);
7407 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7412 arg9 = (
PLINT)lua_tonumber(L, 6);
7414 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7420 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7423 if ( temp12 !=
Alen )
7425 lua_pushfstring( L,
"Tables must be of same length." );
7429 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);
7442 for ( i = 0; i < ii3; i++ )
7470 for ( i = 0; i < ii3; i++ )
7505 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7512 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7525 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7527 lua_pushfstring( L,
"Vectors must match matrix." );
7531 arg6 = (
PLINT)lua_tonumber(L, 4);
7534 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7539 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7552 for ( i = 0; i < ii3; i++ )
7574 for ( i = 0; i < ii3; i++ )
7605 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plsurf3dl",4,
"PLINT");
7606 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plsurf3dl",6,
"PLINT");
7609 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7616 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7629 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7631 lua_pushfstring( L,
"Vectors must match matrix." );
7635 arg6 = (
PLINT)lua_tonumber(L, 4);
7638 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7643 arg9 = (
PLINT)lua_tonumber(L, 6);
7645 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7651 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7654 if ( temp12 !=
Alen )
7656 lua_pushfstring( L,
"Tables must be of same length." );
7660 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);
7673 for ( i = 0; i < ii3; i++ )
7701 for ( i = 0; i < ii3; i++ )
7722 int *arg1 = (
int *) 0 ;
7723 char **arg2 = (
char **) 0 ;
7728 if(!lua_istable(L,1))
SWIG_fail_arg(
"plparseopts",1,
"int *");
7729 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plparseopts",2,
"PLINT");
7738 lua_rawgeti( L, 1, i );
7739 if ( lua_isnil( L, -1 ) )
7752 for ( i = 0; i < n; i++ )
7754 lua_rawgeti( L, 1, i );
7755 if ( lua_isstring( L, -1 ) )
7757 arg2[i] = (
char *) lua_tostring( L, -1 );
7762 lua_pushfstring( L,
"List items must be strings" );
7770 arg3 = (
PLINT)lua_tonumber(L, 2);
7772 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
7796 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
7802 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
7805 if ( temp3 !=
Alen )
7807 lua_pushfstring( L,
"Tables must be of same length." );
7811 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
7847 arg1 = (
PLINT)lua_tonumber(L, 1);
7848 arg2 = (
PLFLT)lua_tonumber(L, 2);
7849 arg3 = (
PLFLT)lua_tonumber(L, 3);
7850 arg4 = (
PLFLT)lua_tonumber(L, 4);
7851 arg5 = (
PLFLT)lua_tonumber(L, 5);
7852 plpath(arg1,arg2,arg3,arg4,arg5);
7874 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7880 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7883 if ( temp3 !=
Alen )
7885 lua_pushfstring( L,
"Tables must be of same length." );
7889 arg4 = (
PLINT)lua_tonumber(L, 3);
7890 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
7926 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7932 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7935 if ( temp3 !=
Alen )
7937 lua_pushfstring( L,
"Tables must be of same length." );
7942 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7945 if ( temp4 !=
Alen )
7947 lua_pushfstring( L,
"Tables must be of same length." );
7951 arg5 = (
PLINT)lua_tonumber(L, 4);
7952 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
7996 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8002 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8005 if ( temp3 !=
Alen )
8007 lua_pushfstring( L,
"Tables must be of same length." );
8012 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8015 if ( temp4 !=
Alen )
8017 lua_pushfstring( L,
"Tables must be of same length." );
8022 arg5 = (
PLINT *) LUA_get_int_num_array_var( L, 4, &temp5 );
8025 if ( temp5 <
Alen - 1 )
8027 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8031 arg6 = (
PLBOOL)lua_tonumber(L, 5);
8032 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
8074 arg1 = (
PLINT)lua_tonumber(L, 1);
8075 arg2 = (
PLINT)lua_tonumber(L, 2);
8092 arg1 = (
PLINT)lua_tonumber(L, 1);
8110 char *arg6 = (
char *) 0 ;
8119 arg1 = (
PLFLT)lua_tonumber(L, 1);
8120 arg2 = (
PLFLT)lua_tonumber(L, 2);
8121 arg3 = (
PLFLT)lua_tonumber(L, 3);
8122 arg4 = (
PLFLT)lua_tonumber(L, 4);
8123 arg5 = (
PLFLT)lua_tonumber(L, 5);
8124 arg6 = (
char *)lua_tostring(L, 6);
8125 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
8147 char *arg11 = (
char *) 0 ;
8159 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plptex3",10,
"PLFLT");
8161 arg1 = (
PLFLT)lua_tonumber(L, 1);
8162 arg2 = (
PLFLT)lua_tonumber(L, 2);
8163 arg3 = (
PLFLT)lua_tonumber(L, 3);
8164 arg4 = (
PLFLT)lua_tonumber(L, 4);
8165 arg5 = (
PLFLT)lua_tonumber(L, 5);
8166 arg6 = (
PLFLT)lua_tonumber(L, 6);
8167 arg7 = (
PLFLT)lua_tonumber(L, 7);
8168 arg8 = (
PLFLT)lua_tonumber(L, 8);
8169 arg9 = (
PLFLT)lua_tonumber(L, 9);
8170 arg10 = (
PLFLT)lua_tonumber(L, 10);
8171 arg11 = (
char *)lua_tostring(L, 11);
8172 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
8188 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
8230 arg1 = (
PLFLT)lua_tonumber(L, 1);
8231 arg2 = (
PLFLT)lua_tonumber(L, 2);
8232 arg3 = (
PLFLT)lua_tonumber(L, 3);
8233 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
8235 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
8236 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
8237 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
8254 arg1 = (
PLFLT)lua_tonumber(L, 1);
8255 arg2 = (
PLFLT)lua_tonumber(L, 2);
8278 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8284 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8287 if ( temp2 !=
Alen )
8289 lua_pushfstring( L,
"Tables must be of same length." );
8294 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8297 if ( temp3 !=
Alen )
8299 lua_pushfstring( L,
"Tables must be of same length." );
8304 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8345 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8351 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8354 if ( temp2 !=
Alen )
8356 lua_pushfstring( L,
"Tables must be of same length." );
8361 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8364 if ( temp3 !=
Alen )
8366 lua_pushfstring( L,
"Tables must be of same length." );
8372 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8377 lua_pushfstring( L,
"Tables must be of same length." );
8382 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8421 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap0n",1,
"PLINT");
8422 arg1 = (
PLINT)lua_tonumber(L, 1);
8445 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8451 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8454 if ( temp2 !=
Alen )
8456 lua_pushfstring( L,
"Tables must be of same length." );
8461 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8464 if ( temp3 !=
Alen )
8466 lua_pushfstring( L,
"Tables must be of same length." );
8471 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8512 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8518 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8521 if ( temp2 !=
Alen )
8523 lua_pushfstring( L,
"Tables must be of same length." );
8528 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8531 if ( temp3 !=
Alen )
8533 lua_pushfstring( L,
"Tables must be of same length." );
8539 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8544 lua_pushfstring( L,
"Tables must be of same length." );
8549 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8601 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1l",1,
"PLBOOL");
8602 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8605 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8611 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8614 if ( temp4 !=
Alen )
8616 lua_pushfstring( L,
"Tables must be of same length." );
8621 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8624 if ( temp5 !=
Alen )
8626 lua_pushfstring( L,
"Tables must be of same length." );
8631 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8634 if ( temp6 !=
Alen )
8636 lua_pushfstring( L,
"Tables must be of same length." );
8640 if(lua_gettop(L)>=6){
8642 if ( lua_isnil( L, 6 ) )
8648 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 6, &temp7 );
8651 if ( temp7 <
Alen - 1 )
8653 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8659 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
8719 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1la",1,
"PLBOOL");
8720 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8723 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8729 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8732 if ( temp4 !=
Alen )
8734 lua_pushfstring( L,
"Tables must be of same length." );
8739 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8742 if ( temp5 !=
Alen )
8744 lua_pushfstring( L,
"Tables must be of same length." );
8749 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8752 if ( temp6 !=
Alen )
8754 lua_pushfstring( L,
"Tables must be of same length." );
8759 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp7 );
8762 if ( temp7 !=
Alen )
8764 lua_pushfstring( L,
"Tables must be of same length." );
8768 if(lua_gettop(L)>=7){
8770 if ( lua_isnil( L, 7 ) )
8776 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp8 );
8779 if ( temp8 <
Alen - 1 )
8781 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8787 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
8838 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1n",1,
"PLINT");
8839 arg1 = (
PLINT)lua_tonumber(L, 1);
8856 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1_range",1,
"PLFLT");
8857 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscmap1_range",2,
"PLFLT");
8858 arg1 = (
PLFLT)lua_tonumber(L, 1);
8859 arg2 = (
PLFLT)lua_tonumber(L, 2);
8882 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
8883 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
8904 arg1 = (
PLINT)lua_tonumber(L, 1);
8905 arg2 = (
PLINT)lua_tonumber(L, 2);
8906 arg3 = (
PLINT)lua_tonumber(L, 3);
8907 arg4 = (
PLINT)lua_tonumber(L, 4);
8932 arg1 = (
PLINT)lua_tonumber(L, 1);
8933 arg2 = (
PLINT)lua_tonumber(L, 2);
8934 arg3 = (
PLINT)lua_tonumber(L, 3);
8935 arg4 = (
PLINT)lua_tonumber(L, 4);
8936 arg5 = (
PLFLT)lua_tonumber(L, 5);
8937 plscol0a(arg1,arg2,arg3,arg4,arg5);
8957 arg1 = (
PLINT)lua_tonumber(L, 1);
8958 arg2 = (
PLINT)lua_tonumber(L, 2);
8959 arg3 = (
PLINT)lua_tonumber(L, 3);
8978 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscolbga",1,
"PLINT");
8979 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscolbga",2,
"PLINT");
8980 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plscolbga",3,
"PLINT");
8981 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plscolbga",4,
"PLFLT");
8982 arg1 = (
PLINT)lua_tonumber(L, 1);
8983 arg2 = (
PLINT)lua_tonumber(L, 2);
8984 arg3 = (
PLINT)lua_tonumber(L, 3);
8985 arg4 = (
PLFLT)lua_tonumber(L, 4);
9002 arg1 = (
PLINT)lua_tonumber(L, 1);
9018 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscompression",1,
"PLINT");
9019 arg1 = (
PLINT)lua_tonumber(L, 1);
9032 char *arg1 = (
char *) 0 ;
9036 arg1 = (
char *)lua_tostring(L, 1);
9037 plsdev((
char const *)arg1);
9059 arg1 = (
PLFLT)lua_tonumber(L, 1);
9060 arg2 = (
PLFLT)lua_tonumber(L, 2);
9061 arg3 = (
PLFLT)lua_tonumber(L, 3);
9062 arg4 = (
PLFLT)lua_tonumber(L, 4);
9089 arg1 = (
PLINT)lua_tonumber(L, 1);
9090 arg2 = (
PLINT)lua_tonumber(L, 2);
9091 arg3 = (
PLINT)lua_tonumber(L, 3);
9092 arg4 = (
PLINT)lua_tonumber(L, 4);
9093 arg5 = (
PLFLT)lua_tonumber(L, 5);
9094 arg6 = (
PLFLT)lua_tonumber(L, 6);
9095 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
9111 arg1 = (
PLFLT)lua_tonumber(L, 1);
9134 arg1 = (
PLFLT)lua_tonumber(L, 1);
9135 arg2 = (
PLFLT)lua_tonumber(L, 2);
9136 arg3 = (
PLFLT)lua_tonumber(L, 3);
9137 arg4 = (
PLFLT)lua_tonumber(L, 4);
9160 arg1 = (
PLFLT)lua_tonumber(L, 1);
9161 arg2 = (
PLFLT)lua_tonumber(L, 2);
9162 arg3 = (
PLFLT)lua_tonumber(L, 3);
9163 arg4 = (
PLFLT)lua_tonumber(L, 4);
9179 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plseed",1,
"unsigned int");
9181 arg1 = (
unsigned int)lua_tonumber(L, 1);
9198 arg1 = (lua_tostring(L, 1))[0];
9211 char *arg1 = (
char *) 0 ;
9212 char *arg2 = (
char *) 0 ;
9218 arg1 = (
char *)lua_tostring(L, 1);
9219 arg2 = (
char *)lua_tostring(L, 2);
9220 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
9221 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
9240 arg1 = (
PLINT)lua_tonumber(L, 1);
9241 arg2 = (
PLINT)lua_tonumber(L, 2);
9242 arg3 = (
PLINT)lua_tonumber(L, 3);
9258 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plsfci",1,
"PLUNICODE");
9273 char *arg1 = (
char *) 0 ;
9277 arg1 = (
char *)lua_tostring(L, 1);
9298 arg1 = (
PLINT)lua_tonumber(L, 1);
9299 arg2 = (
PLINT)lua_tonumber(L, 2);
9300 arg3 = (
PLINT)lua_tonumber(L, 3);
9335 cgrid117.
xg = cgrid117.yg = cgrid117.zg = NULL;
9336 cgrid117.nx = cgrid117.ny = cgrid117.nz = 0;
9337 cgrid217.xg = cgrid217.yg = cgrid217.zg = NULL;
9338 cgrid217.nx = cgrid217.ny = 0;
9360 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshades",10,
"PLBOOL");
9370 arg5 = (
PLFLT)lua_tonumber(L, 2);
9371 arg6 = (
PLFLT)lua_tonumber(L, 3);
9372 arg7 = (
PLFLT)lua_tonumber(L, 4);
9373 arg8 = (
PLFLT)lua_tonumber(L, 5);
9376 arg9 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
9379 arg10 =
Alen = temp;
9381 arg11 = (
PLFLT)lua_tonumber(L, 7);
9382 arg12 = (
PLINT)lua_tonumber(L, 8);
9383 arg13 = (
PLFLT)lua_tonumber(L, 9);
9384 arg15 = (
PLBOOL)lua_tonumber(L, 10);
9385 if(lua_gettop(L)>=11){
9390 if ( lua_isstring( L, 11 ) )
9392 const char* funcstr = lua_tostring( L, 11 );
9393 if ( strcmp(
"pltr0", funcstr ) == 0 )
9397 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9401 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9416 if(lua_gettop(L)>=12){
9421 lua_pushstring( L,
"xg" );
9422 lua_gettable( L, 12 );
9423 if ( !lua_istable( L, -1 ) )
9426 lua_pushstring( L,
"expected a table xg" );
9429 lua_rawgeti( L, -1, 1 );
9430 if ( lua_istable( L, -1 ) )
9432 else if ( lua_isnumber( L, -1 ) )
9438 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9442 if ( gridmode == 1 )
9444 cgrid117.xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9452 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9465 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9468 lua_pushfstring( L,
"Vectors must match matrix." );
9476 lua_pushstring( L,
"yg" );
9477 lua_gettable( L, 12 );
9478 if ( !lua_istable( L, -1 ) )
9481 lua_pushstring( L,
"expected a table yg" );
9484 lua_rawgeti( L, -1, 1 );
9485 if ( gridmode == 2 )
9487 if ( !lua_istable( L, -1 ) )
9491 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9497 if ( !lua_isnumber( L, -1 ) )
9501 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9506 if ( gridmode == 1 )
9508 cgrid117.yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9516 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9529 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9532 lua_pushfstring( L,
"Vectors must match matrix." );
9539 if ( gridmode == 1 )
9541 else if ( gridmode == 2 )
9545 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
9552 for ( i = 0; i < ii1; i++ )
9571 for ( i = 0; i <
Xlen; i++ )
9577 for ( i = 0; i <
Xlen; i++ )
9590 for ( i = 0; i < ii1; i++ )
9609 for ( i = 0; i <
Xlen; i++ )
9615 for ( i = 0; i <
Xlen; i++ )
9653 cgrid121.
xg = cgrid121.yg = cgrid121.zg = NULL;
9654 cgrid121.nx = cgrid121.ny = cgrid121.nz = 0;
9655 cgrid221.xg = cgrid221.yg = cgrid221.zg = NULL;
9656 cgrid221.nx = cgrid221.ny = 0;
9679 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshade",10,
"PLFLT");
9680 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plshade",11,
"PLINT");
9681 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plshade",12,
"PLFLT");
9682 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plshade",13,
"PLINT");
9683 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"plshade",14,
"PLFLT");
9684 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"plshade",15,
"PLBOOL");
9694 arg5 = (
PLFLT)lua_tonumber(L, 2);
9695 arg6 = (
PLFLT)lua_tonumber(L, 3);
9696 arg7 = (
PLFLT)lua_tonumber(L, 4);
9697 arg8 = (
PLFLT)lua_tonumber(L, 5);
9698 arg9 = (
PLFLT)lua_tonumber(L, 6);
9699 arg10 = (
PLFLT)lua_tonumber(L, 7);
9700 arg11 = (
PLINT)lua_tonumber(L, 8);
9701 arg12 = (
PLFLT)lua_tonumber(L, 9);
9702 arg13 = (
PLFLT)lua_tonumber(L, 10);
9703 arg14 = (
PLINT)lua_tonumber(L, 11);
9704 arg15 = (
PLFLT)lua_tonumber(L, 12);
9705 arg16 = (
PLINT)lua_tonumber(L, 13);
9706 arg17 = (
PLFLT)lua_tonumber(L, 14);
9707 arg19 = (
PLBOOL)lua_tonumber(L, 15);
9708 if(lua_gettop(L)>=16){
9713 if ( lua_isstring( L, 16 ) )
9715 const char* funcstr = lua_tostring( L, 16 );
9716 if ( strcmp(
"pltr0", funcstr ) == 0 )
9720 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9724 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9739 if(lua_gettop(L)>=17){
9744 lua_pushstring( L,
"xg" );
9745 lua_gettable( L, 17 );
9746 if ( !lua_istable( L, -1 ) )
9749 lua_pushstring( L,
"expected a table xg" );
9752 lua_rawgeti( L, -1, 1 );
9753 if ( lua_istable( L, -1 ) )
9755 else if ( lua_isnumber( L, -1 ) )
9761 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9765 if ( gridmode == 1 )
9767 cgrid121.xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9775 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9788 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9791 lua_pushfstring( L,
"Vectors must match matrix." );
9799 lua_pushstring( L,
"yg" );
9800 lua_gettable( L, 17 );
9801 if ( !lua_istable( L, -1 ) )
9804 lua_pushstring( L,
"expected a table yg" );
9807 lua_rawgeti( L, -1, 1 );
9808 if ( gridmode == 2 )
9810 if ( !lua_istable( L, -1 ) )
9814 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9820 if ( !lua_isnumber( L, -1 ) )
9824 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9829 if ( gridmode == 1 )
9831 cgrid121.yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9839 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9852 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9855 lua_pushfstring( L,
"Vectors must match matrix." );
9862 if ( gridmode == 1 )
9864 else if ( gridmode == 2 )
9868 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
9875 for ( i = 0; i < ii1; i++ )
9891 for ( i = 0; i <
Xlen; i++ )
9897 for ( i = 0; i <
Xlen; i++ )
9910 for ( i = 0; i < ii1; i++ )
9926 for ( i = 0; i <
Xlen; i++ )
9932 for ( i = 0; i <
Xlen; i++ )
9955 if ( lua_isnil( L, 1 ) )
9959 else if ( lua_isstring( L, 1 ) )
9992 arg1 = (
PLFLT)lua_tonumber(L, 1);
9993 arg2 = (
PLFLT)lua_tonumber(L, 2);
10012 arg1 = (
PLFLT)lua_tonumber(L, 1);
10013 arg2 = (
PLFLT)lua_tonumber(L, 2);
10030 arg1 = (
PLINT)lua_tonumber(L, 1);
10057 arg1 = (
PLFLT)lua_tonumber(L, 1);
10058 arg2 = (
PLFLT)lua_tonumber(L, 2);
10059 arg3 = (
PLINT)lua_tonumber(L, 3);
10060 arg4 = (
PLINT)lua_tonumber(L, 4);
10061 arg5 = (
PLINT)lua_tonumber(L, 5);
10062 arg6 = (
PLINT)lua_tonumber(L, 6);
10063 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
10075 char *arg1 = (
char *) 0 ;
10079 arg1 = (
char *)lua_tostring(L, 1);
10092 char *arg1 = (
char *) 0 ;
10097 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plspal1",2,
"PLBOOL");
10098 arg1 = (
char *)lua_tostring(L, 1);
10099 arg2 = (
PLBOOL)lua_tonumber(L, 2);
10100 plspal1((
char const *)arg1,arg2);
10115 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plspause",1,
"PLBOOL");
10116 arg1 = (
PLBOOL)lua_tonumber(L, 1);
10133 arg1 = (
PLINT)lua_tonumber(L, 1);
10152 arg1 = (
PLINT)lua_tonumber(L, 1);
10153 arg2 = (
PLINT)lua_tonumber(L, 2);
10172 arg1 = (
PLFLT)lua_tonumber(L, 1);
10173 arg2 = (
PLFLT)lua_tonumber(L, 2);
10192 arg1 = (
PLINT)lua_tonumber(L, 1);
10193 arg2 = (
PLINT)lua_tonumber(L, 2);
10206 char *arg1 = (
char *) 0 ;
10214 arg1 = (
char *)lua_tostring(L, 1);
10215 arg2 = (
PLINT)lua_tonumber(L, 2);
10216 arg3 = (
PLINT)lua_tonumber(L, 3);
10217 plstart((
char const *)arg1,arg2,arg3);
10240 if(lua_gettop(L)>=1){
10245 if ( lua_isstring( L, 1 ) )
10247 const char* funcstr = lua_tostring( L, 1 );
10271 char *arg4 = (
char *) 0 ;
10278 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10281 arg1 =
Alen = temp;
10284 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10287 if ( temp3 !=
Alen )
10289 lua_pushfstring( L,
"Tables must be of same length." );
10293 arg4 = (
char *)lua_tostring(L, 3);
10294 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
10322 char *arg5 = (
char *) 0 ;
10330 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10333 arg1 =
Alen = temp;
10336 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10339 if ( temp3 !=
Alen )
10341 lua_pushfstring( L,
"Tables must be of same length." );
10346 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
10349 if ( temp4 !=
Alen )
10351 lua_pushfstring( L,
"Tables must be of same length." );
10355 arg5 = (
char *)lua_tostring(L, 4);
10356 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
10392 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripa",1,
"PLINT");
10393 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plstripa",2,
"PLINT");
10394 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripa",3,
"PLFLT");
10395 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripa",4,
"PLFLT");
10396 arg1 = (
PLINT)lua_tonumber(L, 1);
10397 arg2 = (
PLINT)lua_tonumber(L, 2);
10398 arg3 = (
PLFLT)lua_tonumber(L, 3);
10399 arg4 = (
PLFLT)lua_tonumber(L, 4);
10413 char *arg2 = (
char *) 0 ;
10414 char *arg3 = (
char *) 0 ;
10429 char *arg18 = (
char *) 0 ;
10430 char *arg19 = (
char *) 0 ;
10431 char *arg20 = (
char *) 0 ;
10443 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripc",3,
"PLFLT");
10444 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripc",4,
"PLFLT");
10445 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plstripc",5,
"PLFLT");
10446 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plstripc",6,
"PLFLT");
10447 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plstripc",7,
"PLFLT");
10448 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plstripc",8,
"PLFLT");
10449 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plstripc",9,
"PLFLT");
10450 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plstripc",10,
"PLBOOL");
10451 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plstripc",11,
"PLBOOL");
10452 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plstripc",12,
"PLINT");
10453 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plstripc",13,
"PLINT");
10454 if(lua_gettop(L)>=16 && !lua_istable(L,16))
SWIG_fail_arg(
"plstripc",16,
"char const *[4]");
10458 arg2 = (
char *)lua_tostring(L, 1);
10459 arg3 = (
char *)lua_tostring(L, 2);
10460 arg4 = (
PLFLT)lua_tonumber(L, 3);
10461 arg5 = (
PLFLT)lua_tonumber(L, 4);
10462 arg6 = (
PLFLT)lua_tonumber(L, 5);
10463 arg7 = (
PLFLT)lua_tonumber(L, 6);
10464 arg8 = (
PLFLT)lua_tonumber(L, 7);
10465 arg9 = (
PLFLT)lua_tonumber(L, 8);
10466 arg10 = (
PLFLT)lua_tonumber(L, 9);
10467 arg11 = (
PLBOOL)lua_tonumber(L, 10);
10468 arg12 = (
PLBOOL)lua_tonumber(L, 11);
10469 arg13 = (
PLINT)lua_tonumber(L, 12);
10470 arg14 = (
PLINT)lua_tonumber(L, 13);
10472 arg15 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &temp15 );
10478 arg16 = (
PLINT *) LUA_get_int_num_array_var( L, 15, &temp16 );
10481 if ( temp16 !=
Alen )
10483 lua_pushfstring( L,
"Tables must be of same length." );
10487 if(lua_gettop(L)>=16){
10494 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10499 lua_pushfstring( L,
"colline and styline args must be length 4." );
10503 arg17 = malloc(
sizeof (
char* ) * 4 );
10504 for ( i = 1; i <= 4; i++ )
10506 lua_rawgeti( L, 16, i );
10507 if ( lua_isstring( L, -1 ) )
10509 arg17[i - 1] = (
char *) lua_tostring( L, -1 );
10514 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10522 if(lua_gettop(L)>=17){
10523 arg18 = (
char *)lua_tostring(L, 17);
10525 if(lua_gettop(L)>=18){
10526 arg19 = (
char *)lua_tostring(L, 18);
10528 if(lua_gettop(L)>=19){
10529 arg20 = (
char *)lua_tostring(L, 19);
10531 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);
10533 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
10543 free( arg17 ); arg17 = NULL;
10558 free( arg17 ); arg17 = NULL;
10571 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripd",1,
"PLINT");
10572 arg1 = (
PLINT)lua_tonumber(L, 1);
10592 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
10598 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
10601 if ( temp3 !=
Alen )
10603 lua_pushfstring( L,
"Tables must be of same length." );
10607 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
10637 arg2 = NULL; arg3 = 0;
10643 if(lua_gettop(L)>=3 && !lua_isnumber(L,3))
SWIG_fail_arg(
"plsvect",3,
"PLBOOL");
10646 if ( lua_isnil( L, 1 ) )
10653 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10659 if(lua_gettop(L)>=2){
10662 if ( lua_isnil( L, 2 ) )
10668 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
10671 if ( temp !=
Alen )
10673 lua_pushfstring( L,
"Tables must be of same length." );
10680 if(lua_gettop(L)>=3){
10681 arg4 = (
PLBOOL)lua_tonumber(L, 3);
10683 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
10711 arg1 = (
PLFLT)lua_tonumber(L, 1);
10712 arg2 = (
PLFLT)lua_tonumber(L, 2);
10713 arg3 = (
PLFLT)lua_tonumber(L, 3);
10714 arg4 = (
PLFLT)lua_tonumber(L, 4);
10715 plsvpa(arg1,arg2,arg3,arg4);
10733 arg1 = (
PLINT)lua_tonumber(L, 1);
10734 arg2 = (
PLINT)lua_tonumber(L, 2);
10753 arg1 = (
PLINT)lua_tonumber(L, 1);
10754 arg2 = (
PLINT)lua_tonumber(L, 2);
10777 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10780 arg1 =
Alen = temp;
10783 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10786 if ( temp3 !=
Alen )
10788 lua_pushfstring( L,
"Tables must be of same length." );
10792 arg4 = (
PLINT)lua_tonumber(L, 3);
10793 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
10823 arg1 = (
PLINT)lua_tonumber(L, 1);
10824 arg2 = (
PLINT)lua_tonumber(L, 2);
10851 char *arg1 = (
char *) 0 ;
10855 arg1 = (
char *)lua_tostring(L, 1);
10872 arg1 = (
PLFLT)lua_tonumber(L, 1);
10898 cgrid17.
xg = cgrid17.yg = cgrid17.zg = NULL;
10899 cgrid17.nx = cgrid17.ny = cgrid17.nz = 0;
10900 cgrid27.xg = cgrid27.yg = cgrid27.zg = NULL;
10901 cgrid27.nx = cgrid27.ny = 0;
10928 if ( ( arg3 !=
Xlen ) || ( arg4 !=
Ylen ) )
10930 lua_pushfstring( L,
"Vectors must match matrix." );
10934 arg5 = (
PLFLT)lua_tonumber(L, 3);
10935 if(lua_gettop(L)>=4){
10940 if ( lua_isstring( L, 4 ) )
10942 const char* funcstr = lua_tostring( L, 4 );
10943 if ( strcmp(
"pltr0", funcstr ) == 0 )
10947 else if ( strcmp(
"pltr1", funcstr ) == 0 )
10951 else if ( strcmp(
"pltr2", funcstr ) == 0 )
10966 if(lua_gettop(L)>=5){
10971 lua_pushstring( L,
"xg" );
10972 lua_gettable( L, 5 );
10973 if ( !lua_istable( L, -1 ) )
10976 lua_pushstring( L,
"expected a table xg" );
10979 lua_rawgeti( L, -1, 1 );
10980 if ( lua_istable( L, -1 ) )
10982 else if ( lua_isnumber( L, -1 ) )
10988 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
10992 if ( gridmode == 1 )
10994 cgrid17.xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
11002 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
11015 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11018 lua_pushfstring( L,
"Vectors must match matrix." );
11026 lua_pushstring( L,
"yg" );
11027 lua_gettable( L, 5 );
11028 if ( !lua_istable( L, -1 ) )
11031 lua_pushstring( L,
"expected a table yg" );
11034 lua_rawgeti( L, -1, 1 );
11035 if ( gridmode == 2 )
11037 if ( !lua_istable( L, -1 ) )
11041 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
11047 if ( !lua_isnumber( L, -1 ) )
11051 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
11056 if ( gridmode == 1 )
11058 cgrid17.yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
11066 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
11079 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11082 lua_pushfstring( L,
"Vectors must match matrix." );
11089 if ( gridmode == 1 )
11091 else if ( gridmode == 2 )
11095 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
11102 for ( i = 0; i < ii1; i++ )
11112 for ( i = 0; i < ii2; i++ )
11128 for ( i = 0; i <
Xlen; i++ )
11134 for ( i = 0; i <
Xlen; i++ )
11147 for ( i = 0; i < ii1; i++ )
11157 for ( i = 0; i < ii2; i++ )
11173 for ( i = 0; i <
Xlen; i++ )
11179 for ( i = 0; i <
Xlen; i++ )
11203 arg1 = (
PLFLT)lua_tonumber(L, 1);
11204 arg2 = (
PLFLT)lua_tonumber(L, 2);
11205 arg3 = (
PLFLT)lua_tonumber(L, 3);
11206 arg4 = (
PLFLT)lua_tonumber(L, 4);
11207 arg5 = (
PLFLT)lua_tonumber(L, 5);
11208 plvpas(arg1,arg2,arg3,arg4,arg5);
11230 arg1 = (
PLFLT)lua_tonumber(L, 1);
11231 arg2 = (
PLFLT)lua_tonumber(L, 2);
11232 arg3 = (
PLFLT)lua_tonumber(L, 3);
11233 arg4 = (
PLFLT)lua_tonumber(L, 4);
11234 plvpor(arg1,arg2,arg3,arg4);
11284 arg1 = (
PLFLT)lua_tonumber(L, 1);
11285 arg2 = (
PLFLT)lua_tonumber(L, 2);
11286 arg3 = (
PLFLT)lua_tonumber(L, 3);
11287 arg4 = (
PLFLT)lua_tonumber(L, 4);
11288 arg5 = (
PLFLT)lua_tonumber(L, 5);
11289 arg6 = (
PLFLT)lua_tonumber(L, 6);
11290 arg7 = (
PLFLT)lua_tonumber(L, 7);
11291 arg8 = (
PLFLT)lua_tonumber(L, 8);
11292 arg9 = (
PLFLT)lua_tonumber(L, 9);
11293 arg10 = (
PLFLT)lua_tonumber(L, 10);
11294 arg11 = (
PLFLT)lua_tonumber(L, 11);
11295 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
11311 arg1 = (
PLFLT)lua_tonumber(L, 1);
11334 arg1 = (
PLFLT)lua_tonumber(L, 1);
11335 arg2 = (
PLFLT)lua_tonumber(L, 2);
11336 arg3 = (
PLFLT)lua_tonumber(L, 3);
11337 arg4 = (
PLFLT)lua_tonumber(L, 4);
11338 plwind(arg1,arg2,arg3,arg4);
11356 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plxormod",1,
"PLBOOL");
11357 arg1 = (
PLBOOL)lua_tonumber(L, 1);
11360 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
11372 char *arg2 = (
char *) 0 ;
11388 if ( lua_isnil( L, 1 ) )
11392 else if ( lua_isstring( L, 1 ) )
11401 arg2 = (
char *)lua_tostring(L, 2);
11402 arg3 = (
PLFLT)lua_tonumber(L, 3);
11403 arg4 = (
PLFLT)lua_tonumber(L, 4);
11404 arg5 = (
PLFLT)lua_tonumber(L, 5);
11405 arg6 = (
PLFLT)lua_tonumber(L, 6);
11406 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
11425 char *arg2 = (
char *) 0 ;
11436 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapline",3,
"PLFLT");
11437 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapline",4,
"PLFLT");
11438 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapline",5,
"PLFLT");
11439 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapline",6,
"PLFLT");
11444 if ( lua_isnil( L, 1 ) )
11448 else if ( lua_isstring( L, 1 ) )
11457 arg2 = (
char *)lua_tostring(L, 2);
11458 arg3 = (
PLFLT)lua_tonumber(L, 3);
11459 arg4 = (
PLFLT)lua_tonumber(L, 4);
11460 arg5 = (
PLFLT)lua_tonumber(L, 5);
11461 arg6 = (
PLFLT)lua_tonumber(L, 6);
11463 if ( lua_isnil( L, 7 ) )
11470 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
11476 plmapline(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11501 char *arg2 = (
char *) 0 ;
11502 char *arg3 = (
char *) 0 ;
11514 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapstring",4,
"PLFLT");
11515 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapstring",5,
"PLFLT");
11516 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapstring",6,
"PLFLT");
11517 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmapstring",7,
"PLFLT");
11522 if ( lua_isnil( L, 1 ) )
11526 else if ( lua_isstring( L, 1 ) )
11535 arg2 = (
char *)lua_tostring(L, 2);
11536 arg3 = (
char *)lua_tostring(L, 3);
11537 arg4 = (
PLFLT)lua_tonumber(L, 4);
11538 arg5 = (
PLFLT)lua_tonumber(L, 5);
11539 arg6 = (
PLFLT)lua_tonumber(L, 6);
11540 arg7 = (
PLFLT)lua_tonumber(L, 7);
11542 if ( lua_isnil( L, 8 ) )
11549 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp8 );
11555 plmapstring(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,(
int const *)arg8,arg9);
11580 char *arg2 = (
char *) 0 ;
11584 char *arg6 = (
char *) 0 ;
11593 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmaptex",3,
"PLFLT");
11594 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmaptex",4,
"PLFLT");
11595 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmaptex",5,
"PLFLT");
11597 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmaptex",7,
"PLFLT");
11598 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plmaptex",8,
"PLFLT");
11599 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plmaptex",9,
"PLFLT");
11600 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plmaptex",10,
"PLFLT");
11601 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plmaptex",11,
"PLINT");
11606 if ( lua_isnil( L, 1 ) )
11610 else if ( lua_isstring( L, 1 ) )
11619 arg2 = (
char *)lua_tostring(L, 2);
11620 arg3 = (
PLFLT)lua_tonumber(L, 3);
11621 arg4 = (
PLFLT)lua_tonumber(L, 4);
11622 arg5 = (
PLFLT)lua_tonumber(L, 5);
11623 arg6 = (
char *)lua_tostring(L, 6);
11624 arg7 = (
PLFLT)lua_tonumber(L, 7);
11625 arg8 = (
PLFLT)lua_tonumber(L, 8);
11626 arg9 = (
PLFLT)lua_tonumber(L, 9);
11627 arg10 = (
PLFLT)lua_tonumber(L, 10);
11628 arg11 = (
PLINT)lua_tonumber(L, 11);
11629 plmaptex(arg1,(
char const *)arg2,arg3,arg4,arg5,(
char const *)arg6,arg7,arg8,arg9,arg10,arg11);
11648 char *arg2 = (
char *) 0 ;
11659 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapfill",3,
"PLFLT");
11660 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapfill",4,
"PLFLT");
11661 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapfill",5,
"PLFLT");
11662 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapfill",6,
"PLFLT");
11667 if ( lua_isnil( L, 1 ) )
11671 else if ( lua_isstring( L, 1 ) )
11680 arg2 = (
char *)lua_tostring(L, 2);
11681 arg3 = (
PLFLT)lua_tonumber(L, 3);
11682 arg4 = (
PLFLT)lua_tonumber(L, 4);
11683 arg5 = (
PLFLT)lua_tonumber(L, 5);
11684 arg6 = (
PLFLT)lua_tonumber(L, 6);
11686 if ( lua_isnil( L, 7 ) )
11693 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
11699 plmapfill(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11732 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plmeridians",2,
"PLFLT");
11733 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmeridians",3,
"PLFLT");
11734 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmeridians",4,
"PLFLT");
11735 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmeridians",5,
"PLFLT");
11736 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmeridians",6,
"PLFLT");
11737 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmeridians",7,
"PLFLT");
11742 if ( lua_isnil( L, 1 ) )
11746 else if ( lua_isstring( L, 1 ) )
11755 arg2 = (
PLFLT)lua_tonumber(L, 2);
11756 arg3 = (
PLFLT)lua_tonumber(L, 3);
11757 arg4 = (
PLFLT)lua_tonumber(L, 4);
11758 arg5 = (
PLFLT)lua_tonumber(L, 5);
11759 arg6 = (
PLFLT)lua_tonumber(L, 6);
11760 arg7 = (
PLFLT)lua_tonumber(L, 7);
11803 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plimage",10,
"PLFLT");
11804 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plimage",11,
"PLFLT");
11814 arg4 = (
PLFLT)lua_tonumber(L, 2);
11815 arg5 = (
PLFLT)lua_tonumber(L, 3);
11816 arg6 = (
PLFLT)lua_tonumber(L, 4);
11817 arg7 = (
PLFLT)lua_tonumber(L, 5);
11818 arg8 = (
PLFLT)lua_tonumber(L, 6);
11819 arg9 = (
PLFLT)lua_tonumber(L, 7);
11820 arg10 = (
PLFLT)lua_tonumber(L, 8);
11821 arg11 = (
PLFLT)lua_tonumber(L, 9);
11822 arg12 = (
PLFLT)lua_tonumber(L, 10);
11823 arg13 = (
PLFLT)lua_tonumber(L, 11);
11824 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
11831 for ( i = 0; i < ii1; i++ )
11844 for ( i = 0; i < ii1; i++ )
11874 cgrid113.
xg = cgrid113.yg = cgrid113.zg = NULL;
11875 cgrid113.nx = cgrid113.ny = cgrid113.nz = 0;
11876 cgrid213.xg = cgrid213.yg = cgrid213.zg = NULL;
11877 cgrid213.nx = cgrid213.ny = 0;
11886 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plimagefr",2,
"PLFLT");
11887 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plimagefr",3,
"PLFLT");
11888 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plimagefr",4,
"PLFLT");
11889 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plimagefr",5,
"PLFLT");
11890 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plimagefr",6,
"PLFLT");
11891 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plimagefr",7,
"PLFLT");
11892 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plimagefr",8,
"PLFLT");
11893 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plimagefr",9,
"PLFLT");
11903 arg4 = (
PLFLT)lua_tonumber(L, 2);
11904 arg5 = (
PLFLT)lua_tonumber(L, 3);
11905 arg6 = (
PLFLT)lua_tonumber(L, 4);
11906 arg7 = (
PLFLT)lua_tonumber(L, 5);
11907 arg8 = (
PLFLT)lua_tonumber(L, 6);
11908 arg9 = (
PLFLT)lua_tonumber(L, 7);
11909 arg10 = (
PLFLT)lua_tonumber(L, 8);
11910 arg11 = (
PLFLT)lua_tonumber(L, 9);
11911 if(lua_gettop(L)>=10){
11916 if ( lua_isstring( L, 10 ) )
11918 const char* funcstr = lua_tostring( L, 10 );
11919 if ( strcmp(
"pltr0", funcstr ) == 0 )
11923 else if ( strcmp(
"pltr1", funcstr ) == 0 )
11927 else if ( strcmp(
"pltr2", funcstr ) == 0 )
11942 if(lua_gettop(L)>=11){
11947 lua_pushstring( L,
"xg" );
11948 lua_gettable( L, 11 );
11949 if ( !lua_istable( L, -1 ) )
11952 lua_pushstring( L,
"expected a table xg" );
11955 lua_rawgeti( L, -1, 1 );
11956 if ( lua_istable( L, -1 ) )
11958 else if ( lua_isnumber( L, -1 ) )
11964 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
11968 if ( gridmode == 1 )
11970 cgrid113.xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
11971 if ( !cgrid113.xg )
11978 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
11986 if ( !cgrid213.xg )
11991 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11994 lua_pushfstring( L,
"Vectors must match matrix." );
12002 lua_pushstring( L,
"yg" );
12003 lua_gettable( L, 11 );
12004 if ( !lua_istable( L, -1 ) )
12007 lua_pushstring( L,
"expected a table yg" );
12010 lua_rawgeti( L, -1, 1 );
12011 if ( gridmode == 2 )
12013 if ( !lua_istable( L, -1 ) )
12017 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
12023 if ( !lua_isnumber( L, -1 ) )
12027 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
12032 if ( gridmode == 1 )
12034 cgrid113.yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
12035 if ( !cgrid113.yg )
12042 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
12050 if ( !cgrid213.yg )
12055 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12058 lua_pushfstring( L,
"Vectors must match matrix." );
12065 if ( gridmode == 1 )
12067 else if ( gridmode == 2 )
12071 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
12078 for ( i = 0; i < ii1; i++ )
12094 for ( i = 0; i <
Xlen; i++ )
12100 for ( i = 0; i <
Xlen; i++ )
12113 for ( i = 0; i < ii1; i++ )
12129 for ( i = 0; i <
Xlen; i++ )
12135 for ( i = 0; i <
Xlen; i++ )
12175 char *arg1 = (
char *) 0 ;
12176 char *arg2 = (
char *) 0 ;
12181 arg1 = (
char *)lua_tostring(L, 1);
12182 arg2 = (
char *)lua_tostring(L, 2);
12183 plSetUsage((
char const *)arg1,(
char const *)arg2);
12232 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
12233 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
12239 for ( i = 0; i < ii1; i++ )
12252 for ( i = 0; i < ii1; i++ )
12275 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
12286 char *arg1 = (
char *) 0 ;
12289 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plwarn",1,
"char const *");
12291 arg1 = (
char *) lua_tostring( L, 1 );
12293 plwarn((
char const *)arg1);
12305 char *arg1 = (
char *) 0 ;
12308 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plabort",1,
"char const *");
12310 arg1 = (
char *) lua_tostring( L, 1 );
12823#define SWIGRUNTIME_DEBUG
12826#ifndef SWIG_INIT_CLIENT_DATA_TYPE
12827#define SWIG_INIT_CLIENT_DATA_TYPE void *
12849 if (!module_head) {
12862 }
while (iter!= module_head);
12873 if (init == 0)
return;
12876#ifdef SWIGRUNTIME_DEBUG
12877 printf(
"SWIG_InitializeModule: size %lu\n", (
unsigned long)
swig_module.size);
12884#ifdef SWIGRUNTIME_DEBUG
12885 printf(
"SWIG_InitializeModule: type %lu %s\n", (
unsigned long)i,
swig_module.type_initial[i]->name);
12894#ifdef SWIGRUNTIME_DEBUG
12895 printf(
"SWIG_InitializeModule: found type %s\n", type->name);
12898 type->clientdata =
swig_module.type_initial[i]->clientdata;
12899#ifdef SWIGRUNTIME_DEBUG
12900 printf(
"SWIG_InitializeModule: found and overwrite type %s \n", type->name);
12909 while (cast->
type) {
12913#ifdef SWIGRUNTIME_DEBUG
12914 printf(
"SWIG_InitializeModule: look cast %s\n", cast->
type->
name);
12918#ifdef SWIGRUNTIME_DEBUG
12919 if (ret) printf(
"SWIG_InitializeModule: found cast %s\n", ret->name);
12924#ifdef SWIGRUNTIME_DEBUG
12925 printf(
"SWIG_InitializeModule: skip old type %s\n", ret->name);
12932#ifdef SWIGRUNTIME_DEBUG
12933 if (ocast) printf(
"SWIG_InitializeModule: skip old cast %s\n", ret->name);
12935 if (!ocast) ret = 0;
12940#ifdef SWIGRUNTIME_DEBUG
12941 printf(
"SWIG_InitializeModule: adding cast %s\n", cast->
type->
name);
12944 type->cast->prev = cast;
12945 cast->
next = type->cast;
12956#ifdef SWIGRUNTIME_DEBUG
12957 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
12961 printf(
"SWIG_InitializeModule: type %lu %s\n", (
unsigned long)i,
swig_module.type_initial[i]->name);
12962 while (cast->
type) {
12963 printf(
"SWIG_InitializeModule: cast type %s\n", cast->
type->
name);
12967 printf(
"---- Total casts: %d\n",j);
12969 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
12982 static int init_run = 0;
12984 if (init_run)
return;
12991 if (!equiv->converter) {
12992 if (equiv->type && !equiv->type->clientdata)
12995 equiv = equiv->next;
13020#if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
13026#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13028 int globalRegister = 0;
13036#if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)) || defined(SWIG_LUA_ELUA_EMULATE)
13042#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13049#ifdef SWIG_LUA_MODULE_GLOBAL
13050 globalRegister = 1;
13054#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
13058#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
13066#if defined(SWIG_LUA_ELUA_EMULATE)
13069 SWIG_Lua_elua_emulate_register_clear(L);
13070 if(globalRegister) {
13072 lua_pushvalue(L,-2);
13079#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13099 " 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 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