16 #define SWIG_LUA_TARGET SWIG_LUA_FLAVOR_LUA
17 #define SWIG_LUA_MODULE_GLOBAL
25 #ifndef SWIGTEMPLATEDISAMBIGUATOR
26 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
27 # define SWIGTEMPLATEDISAMBIGUATOR template
28 # elif defined(__HP_aCC)
31 # define SWIGTEMPLATEDISAMBIGUATOR template
33 # define SWIGTEMPLATEDISAMBIGUATOR
39 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
40 # define SWIGINLINE inline
48 # if defined(__GNUC__)
49 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
50 # define SWIGUNUSED __attribute__ ((__unused__))
55 # define SWIGUNUSED __attribute__ ((__unused__))
61 #ifndef SWIG_MSC_UNSUPPRESS_4505
62 # if defined(_MSC_VER)
63 # pragma warning(disable : 4505)
67 #ifndef SWIGUNUSEDPARM
69 # define SWIGUNUSEDPARM(p)
71 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
77 # define SWIGINTERN static SWIGUNUSED
81 #ifndef SWIGINTERNINLINE
82 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
87 # if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
88 # ifndef GCC_HASCLASSVISIBILITY
89 # define GCC_HASCLASSVISIBILITY
95 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
96 # if defined(STATIC_LINKED)
99 # define SWIGEXPORT __declspec(dllexport)
102 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
103 # define SWIGEXPORT __attribute__ ((visibility("default")))
112 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
113 # define SWIGSTDCALL __stdcall
120 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
121 # define _CRT_SECURE_NO_DEPRECATE
125 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
126 # define _SCL_SECURE_NO_DEPRECATE
130 #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
131 # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
139 #ifdef __INTEL_COMPILER
140 # pragma warning disable 592
152 #define SWIG_RUNTIME_VERSION "4"
155 #ifdef SWIG_TYPE_TABLE
156 # define SWIG_QUOTE_STRING(x) #x
157 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
158 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
160 # define SWIG_TYPE_TABLE_NAME
173 # define SWIGRUNTIME SWIGINTERN
176 #ifndef SWIGRUNTIMEINLINE
177 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
181 #ifndef SWIG_BUFFER_SIZE
182 # define SWIG_BUFFER_SIZE 1024
186 #define SWIG_POINTER_DISOWN 0x1
187 #define SWIG_CAST_NEW_MEMORY 0x2
188 #define SWIG_POINTER_NO_NULL 0x4
191 #define SWIG_POINTER_OWN 0x1
274 #define SWIG_ERROR (-1)
275 #define SWIG_IsOK(r) (r >= 0)
276 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
279 #define SWIG_CASTRANKLIMIT (1 << 8)
281 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
283 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
285 #define SWIG_BADOBJ (SWIG_ERROR)
286 #define SWIG_OLDOBJ (SWIG_OK)
287 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
288 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
290 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
291 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
292 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
293 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
294 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
295 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
298 #if defined(SWIG_CASTRANK_MODE)
299 # ifndef SWIG_TypeRank
300 # define SWIG_TypeRank unsigned long
302 # ifndef SWIG_MAXCASTRANK
303 # define SWIG_MAXCASTRANK (2)
305 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
306 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
311 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
314 # define SWIG_AddCast(r) (r)
315 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
325 typedef void *(*swig_converter_func)(
void *,
int *);
367 const char *f2,
const char *l2) {
368 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
369 while ((*f1 ==
' ') && (f1 != l1)) ++f1;
370 while ((*f2 ==
' ') && (f2 != l2)) ++f2;
371 if (*f1 != *f2)
return (*f1 > *f2) ? 1 : -1;
373 return (
int)((l1 - f1) - (l2 - f2));
383 const char* te = tb + strlen(tb);
385 while (equiv != 0 && *ne) {
386 for (nb = ne; *ne; ++ne) {
387 if (*ne ==
'|')
break;
412 if (strcmp(iter->
type->
name, c) == 0) {
413 if (iter == ty->
cast)
439 if (iter->
type == from) {
440 if (iter == ty->
cast)
472 if (!ty || !ty->
dcast)
return ty;
473 while (ty && (ty->
dcast)) {
474 ty = (*ty->
dcast)(ptr);
498 if (!type)
return NULL;
499 if (type->
str != NULL) {
500 const char *last_name = type->
str;
502 for (s = type->
str; *s; s++)
503 if (*s ==
'|') last_name = s+1;
551 size_t r = iter->
size - 1;
554 size_t i = (l + r) >> 1;
555 const char *iname = iter->
types[i]->
name;
557 int compare = strcmp(
name, iname);
559 return iter->
types[i];
560 }
else if (compare < 0) {
566 }
else if (compare > 0) {
575 }
while (iter != end);
602 for (; i < iter->
size; ++i) {
604 return iter->
types[i];
607 }
while (iter != end);
619 static const char hex[17] =
"0123456789abcdef";
620 const unsigned char *u = (
unsigned char *) ptr;
621 const unsigned char *eu = u + sz;
622 for (; u != eu; ++u) {
623 unsigned char uu = *u;
624 *(c++) = hex[(uu & 0xf0) >> 4];
625 *(c++) = hex[uu & 0xf];
635 unsigned char *u = (
unsigned char *) ptr;
636 const unsigned char *eu = u + sz;
637 for (; u != eu; ++u) {
640 if ((d >=
'0') && (d <=
'9'))
641 uu = (
unsigned char)((d -
'0') << 4);
642 else if ((d >=
'a') && (d <=
'f'))
643 uu = (
unsigned char)((d - (
'a'-10)) << 4);
647 if ((d >=
'0') && (d <=
'9'))
648 uu |= (
unsigned char)(d -
'0');
649 else if ((d >=
'a') && (d <=
'f'))
650 uu |= (
unsigned char)(d - (
'a'-10));
664 if ((2*
sizeof(
void *) + 2) > bsz)
return 0;
667 if (strlen(
name) + 1 > (bsz - (r - buff)))
return 0;
675 if (strcmp(c,
"NULL") == 0) {
688 size_t lname = (
name ? strlen(
name) : 0);
689 if ((2*sz + 2 + lname) > bsz)
return 0;
693 strncpy(r,
name,lname+1);
703 if (strcmp(c,
"NULL") == 0) {
718 #define SWIG_UnknownError -1
719 #define SWIG_IOError -2
720 #define SWIG_RuntimeError -3
721 #define SWIG_IndexError -4
722 #define SWIG_TypeError -5
723 #define SWIG_DivisionByZero -6
724 #define SWIG_OverflowError -7
725 #define SWIG_SyntaxError -8
726 #define SWIG_ValueError -9
727 #define SWIG_SystemError -10
728 #define SWIG_AttributeError -11
729 #define SWIG_MemoryError -12
730 #define SWIG_NullReferenceError -13
755 #define SWIG_LUA_FLAVOR_LUA 1
756 #define SWIG_LUA_FLAVOR_ELUA 2
757 #define SWIG_LUA_FLAVOR_ELUAC 3
759 #if !defined(SWIG_LUA_TARGET)
760 # error SWIG_LUA_TARGET not defined
763 #if defined(SWIG_LUA_ELUA_EMULATE)
765 struct swig_elua_entry;
767 typedef struct swig_elua_key {
775 typedef struct swig_elua_val {
779 const struct swig_elua_entry *table;
781 lua_CFunction
function;
791 typedef struct swig_elua_entry {
796 #define LSTRKEY(x) {LUA_TSTRING, {.strkey = x} }
797 #define LNUMKEY(x) {LUA_TNUMBER, {.numkey = x} }
798 #define LNILKEY {LUA_TNIL, {.strkey = 0} }
800 #define LNUMVAL(x) {LUA_TNUMBER, {.number = x} }
801 #define LFUNCVAL(x) {LUA_TFUNCTION, {.function = x} }
802 #define LROVAL(x) {LUA_TTABLE, {.table = x} }
803 #define LNILVAL {LUA_TNIL, {.string = 0} }
804 #define LSTRVAL(x) {LUA_TSTRING, {.string = x} }
806 #define LUA_REG_TYPE swig_elua_entry
808 #define SWIG_LUA_ELUA_EMUL_METATABLE_KEY "__metatable"
810 #define lua_pushrotable(L,p)\
813 SWIG_Lua_elua_emulate_register(L,(swig_elua_entry*)(p));
815 #define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\
816 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={0,0,(void*)(C),&D} } }
818 #define SWIG_LUA_CONSTTAB_BINARY(B,S,C,D)\
819 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={1,S,(void*)(C),&D} } }
822 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
823 # define SWIG_LUA_CONSTTAB_INT(B, C) LSTRKEY(B), LNUMVAL(C)
824 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) LSTRKEY(B), LNUMVAL(C)
825 # define SWIG_LUA_CONSTTAB_STRING(B, C) LSTRKEY(B), LSTRVAL(C)
826 # define SWIG_LUA_CONSTTAB_CHAR(B, C) LSTRKEY(B), LNUMVAL(C)
829 #ifndef SWIG_LUA_CONSTTAB_POINTER
830 #warning eLua does not support pointers as constants. By default, nil will be used as value
831 #define SWIG_LUA_CONSTTAB_POINTER(B,C,D) LSTRKEY(B), LNILVAL
834 #ifndef SWIG_LUA_CONSTTAB_BINARY
835 #warning eLua does not support pointers to member as constants. By default, nil will be used as value
836 #define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D) LSTRKEY(B), LNILVAL
839 # define SWIG_LUA_CONSTTAB_INT(B, C) SWIG_LUA_INT, (char *)B, (long)C, 0, 0, 0
840 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) SWIG_LUA_FLOAT, (char *)B, 0, (double)C, 0, 0
841 # define SWIG_LUA_CONSTTAB_STRING(B, C) SWIG_LUA_STRING, (char *)B, 0, 0, (void *)C, 0
842 # define SWIG_LUA_CONSTTAB_CHAR(B, C) SWIG_LUA_CHAR, (char *)B, (long)C, 0, 0, 0
843 # define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\
844 SWIG_LUA_POINTER, (char *)B, 0, 0, (void *)C, &D
845 # define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D)\
846 SWIG_LUA_BINARY, (char *)B, S, 0, (void *)C, &D
849 #ifndef SWIG_LUA_ELUA_EMULATE
850 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
851 # define LRO_STRVAL(v) {{.p = (char *) v}, LUA_TSTRING}
852 # define LSTRVAL LRO_STRVAL
856 #ifndef SWIG_LUA_ELUA_EMULATE
857 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
859 #ifndef MIN_OPT_LEVEL
860 #define MIN_OPT_LEVEL 2
864 #include "lrotable.h"
879 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
880 # define lua_rawlen lua_strlen
881 #elif LUA_VERSION_NUM == 501
882 # define lua_rawlen lua_objlen
889 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
890 # define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX)
894 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
895 # define lua_absindex(L,i) ((i)>0 || (i) <= LUA_REGISTRYINDEX ? (i) : lua_gettop(L) + (i) + 1)
899 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
900 #define lua_rawsetp(L,index,ptr)\
901 lua_pushlightuserdata(L,(void*)(ptr));\
905 #define lua_rawgetp(L,index,ptr)\
906 lua_pushlightuserdata(L,(void*)(ptr));\
922 lua_pushstring (L, str);
935 lua_pushvfstring(L, fmt, argp);
945 #define SWIG_LUA_INT 1
946 #define SWIG_LUA_FLOAT 2
947 #define SWIG_LUA_STRING 3
948 #define SWIG_LUA_POINTER 4
949 #define SWIG_LUA_BINARY 5
950 #define SWIG_LUA_CHAR 6
959 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
1029 #define SWIG_NewPointerObj(L, ptr, type, owner) SWIG_Lua_NewPointerObj(L, (void *)ptr, type, owner)
1030 #define SWIG_ConvertPtr(L,idx, ptr, type, flags) SWIG_Lua_ConvertPtr(L,idx,ptr,type,flags)
1031 #define SWIG_MustGetPtr(L,idx, type,flags, argnum,fnname) SWIG_Lua_MustGetPtr(L,idx, type,flags, argnum,fnname)
1033 #define SWIG_ConvertMember(L, idx, ptr, sz, ty) SWIG_Lua_ConvertPacked(L, idx, ptr, sz, ty)
1034 #define SWIG_NewMemberObj(L, ptr, sz, type) SWIG_Lua_NewPackedObj(L, ptr, sz, type)
1037 #define SWIG_GetModule(clientdata) SWIG_Lua_GetModule((lua_State*)(clientdata))
1038 #define SWIG_SetModule(clientdata, pointer) SWIG_Lua_SetModule((lua_State*) (clientdata), pointer)
1039 #define SWIG_MODULE_CLIENTDATA_TYPE lua_State*
1042 #define SWIG_contract_assert(expr, msg) \
1043 if (!(expr)) { SWIG_Lua_pusherrstring(L, (char *) msg); goto fail; } else
1047 #define SWIG_fail {goto fail;}
1048 #define SWIG_fail_arg(func_name,argnum,type) \
1049 {SWIG_Lua_pushferrstring(L,"Error in %s (arg %d), expected '%s' got '%s'",\
1050 func_name,argnum,type,SWIG_Lua_typename(L,argnum));\
1052 #define SWIG_fail_ptr(func_name,argnum,type) \
1053 SWIG_fail_arg(func_name,argnum,(type && type->str)?type->str:"void*")
1054 #define SWIG_check_num_args(func_name,a,b) \
1055 if (lua_gettop(L)<a || lua_gettop(L)>b) \
1056 {SWIG_Lua_pushferrstring(L,"Error in %s expected %d..%d args, got %d",func_name,a,b,lua_gettop(L));\
1060 #define SWIG_Lua_get_table(L,n) \
1061 (lua_pushstring(L, n), lua_rawget(L,-2))
1063 #define SWIG_Lua_add_function(L,n,f) \
1064 (lua_pushstring(L, n), \
1065 lua_pushcfunction(L, f), \
1068 #define SWIG_Lua_add_boolean(L,n,b) \
1069 (lua_pushstring(L, n), \
1070 lua_pushboolean(L, b), \
1074 #define SWIG_isptrtype(L,I) (lua_isuserdata(L,I) || lua_isnil(L,I))
1087 lua_rawget(L,LUA_REGISTRYINDEX);
1088 if (lua_islightuserdata(L,-1))
1098 lua_pushlightuserdata(L,(
void*)module);
1099 lua_rawset(L,LUA_REGISTRYINDEX);
1112 #ifndef SWIGLUA_IGNORE_SET_IMMUTABLE
1114 luaL_error(L,
"This variable is immutable");
1119 #ifdef SWIG_LUA_ELUA_EMULATE
1123 static int swig_lua_elua_emulate_unique_key;
1126 SWIGINTERN void SWIG_Lua_elua_emulate_register(lua_State *L,
const swig_elua_entry *table)
1128 int i, table_parsed, parsed_tables_array, target_table;
1129 assert(lua_istable(L,-1));
1130 target_table = lua_gettop(L);
1132 lua_rawgetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1133 if(lua_isnil(L,-1)) {
1136 lua_pushvalue(L,-1);
1137 lua_rawsetp(L,LUA_REGISTRYINDEX,(
void*)(&swig_lua_elua_emulate_unique_key));
1139 parsed_tables_array = lua_gettop(L);
1140 lua_pushvalue(L,target_table);
1143 const int SWIGUNUSED pairs_start = lua_gettop(L);
1144 for(i = 0;table[i].key.type != LUA_TNIL || table[i].value.type != LUA_TNIL;i++)
1146 const swig_elua_entry *entry = table + i;
1147 int is_metatable = 0;
1148 switch(entry->key.type) {
1150 lua_pushstring(L,entry->key.key.strkey);
1151 if(strcmp(entry->key.key.strkey, SWIG_LUA_ELUA_EMUL_METATABLE_KEY) == 0)
1155 lua_pushnumber(L,entry->key.key.numkey);
1163 switch(entry->value.type) {
1165 lua_pushstring(L,entry->value.value.string);
1168 lua_pushnumber(L,entry->value.value.number);
1171 lua_pushcfunction(L,entry->value.value.function);
1174 lua_rawgetp(L,parsed_tables_array, entry->value.value.table);
1175 table_parsed = !lua_isnil(L,-1);
1179 SWIG_Lua_elua_emulate_register(L,entry->value.value.table);
1182 assert(lua_istable(L,-1));
1183 lua_pushvalue(L,-1);
1184 lua_setmetatable(L,target_table);
1189 if(entry->value.value.userdata.member)
1191 entry->value.value.userdata.lvalue,
1192 *(entry->value.value.userdata.ptype));
1195 *(entry->value.value.userdata.ptype),0);
1203 assert(lua_gettop(L) == pairs_start + 2);
1204 lua_rawset(L,target_table);
1207 assert(lua_gettop(L) == target_table);
1210 SWIGINTERN void SWIG_Lua_elua_emulate_register_clear(lua_State *L)
1213 lua_rawsetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1218 SWIGINTERN int SWIG_Lua_emulate_elua_getmetatable(lua_State *L)
1222 lua_getfield(L,-1,
"lua_getmetatable");
1224 assert(!lua_isnil(L,-1));
1226 assert(lua_gettop(L) == 3);
1228 if(!lua_isnil(L,-1))
1231 assert(lua_gettop(L) == 2);
1232 if(lua_istable(L,-2)) {
1234 lua_getfield(L,-1, SWIG_LUA_ELUA_EMUL_METATABLE_KEY);
1236 assert(lua_gettop(L) == 2);
1244 SWIGINTERN void SWIG_Lua_emulate_elua_swap_getmetatable(lua_State *L)
1248 lua_pushstring(L,
"lua_getmetatable");
1249 lua_getfield(L,-2,
"getmetatable");
1250 assert(!lua_isnil(L,-1));
1252 lua_pushstring(L,
"getmetatable");
1253 lua_pushcfunction(L, SWIG_Lua_emulate_elua_getmetatable);
1271 assert(lua_istable(L,-2));
1272 lua_getmetatable(L,-2);
1273 assert(lua_istable(L,-1));
1275 assert(lua_istable(L,-1));
1280 if (lua_iscfunction(L,-1))
1289 assert(lua_istable(L,-1));
1293 if (lua_isfunction(L,-1))
1310 assert(lua_istable(L,1));
1311 lua_getmetatable(L,1);
1312 assert(lua_istable(L,-1));
1315 if (lua_istable(L,-1))
1320 if (lua_iscfunction(L,-1))
1334 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1344 assert(lua_istable(L,-1));
1351 lua_getmetatable(L,-1);
1369 assert(lua_istable(L,-1));
1373 if( classes != 0 ) {
1374 while(*classes != 0) {
1391 assert(lua_istable(L,-1));
1392 lua_checkstack(L,5);
1397 lua_pushstring(L,
".get");
1401 lua_pushstring(L,
".set");
1405 lua_pushstring(L,
".fn");
1413 lua_setmetatable(L,-2);
1421 if( sub_namespace != 0) {
1422 while(*sub_namespace != 0) {
1430 lua_pushstring(L,ns->
name);
1431 lua_pushvalue(L,-2);
1434 assert(lua_gettop(L) == begin+1);
1451 int last_arg = lua_gettop(L);
1452 int original_metatable = last_arg + 1;
1457 lua_getmetatable(L,first_arg);
1460 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1462 assert(lua_istable(L,-1));
1464 bases_table = lua_gettop(L);
1468 assert(swig_type!=0);
1471 const char **base_names= ((
swig_lua_class*)(swig_type->clientdata))->base_names;
1473 for(;base_names[bases_count];
1484 int subcall_last_arg;
1485 int subcall_first_arg = lua_gettop(L) + 1;
1488 for(j=first_arg;j<=last_arg;j++)
1490 subcall_last_arg = lua_gettop(L);
1493 for(i=0;i<bases_count;i++) {
1495 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1496 lua_rawgeti(L,bases_table,i+1);
1498 if(lua_isnil(L,-1)) {
1512 assert(base_swig_type != 0);
1518 assert(lua_isuserdata(L, subcall_first_arg));
1519 assert(lua_istable(L,-1));
1520 lua_setmetatable(L,subcall_first_arg);
1521 assert(lua_gettop(L) == subcall_last_arg);
1522 result = func(L, base_swig_type,subcall_first_arg, ret);
1528 lua_pushvalue(L,original_metatable);
1529 lua_setmetatable(L,first_arg);
1531 to_remove = subcall_last_arg - last_arg;
1532 for(j=0;j<to_remove;j++)
1533 lua_remove(L,last_arg+1);
1536 lua_pop(L, lua_gettop(L) - last_arg);
1538 if(ret) assert(lua_gettop(L) == last_arg + *ret);
1552 int bases_search_result;
1553 int substack_start = lua_gettop(L)-2;
1554 assert(first_arg == substack_start+1);
1555 lua_checkstack(L,5);
1556 assert(lua_isuserdata(L,-2));
1557 lua_getmetatable(L,-2);
1558 assert(lua_istable(L,-1));
1562 if (lua_iscfunction(L,-1))
1564 lua_pushvalue(L,substack_start+1);
1565 lua_pushvalue(L,substack_start+2);
1576 return bases_search_result;
1590 int bases_search_result;
1591 int substack_start = lua_gettop(L)-2;
1592 assert(first_arg == substack_start+1);
1593 lua_checkstack(L,5);
1594 assert(lua_isuserdata(L,-2));
1595 lua_getmetatable(L,-2);
1596 assert(lua_istable(L,-1));
1598 assert(lua_istable(L,-1));
1600 lua_pushvalue(L,substack_start+2);
1603 if (lua_iscfunction(L,-1))
1605 lua_pushvalue(L,substack_start+1);
1615 assert(lua_istable(L,-1));
1616 lua_pushvalue(L,substack_start+2);
1619 if (lua_isfunction(L,-1))
1631 return bases_search_result;
1646 assert(lua_isuserdata(L,1));
1671 int bases_search_result;
1672 int substack_start = lua_gettop(L) - 3;
1673 lua_checkstack(L,5);
1674 assert(lua_isuserdata(L,substack_start+1));
1675 lua_getmetatable(L,substack_start+1);
1676 assert(lua_istable(L,-1));
1681 if (lua_istable(L,-1))
1684 lua_pushvalue(L,substack_start+2);
1687 if (lua_iscfunction(L,-1))
1689 lua_pushvalue(L,substack_start+1);
1690 lua_pushvalue(L,substack_start+3);
1692 lua_remove(L,substack_start+4);
1702 if (lua_iscfunction(L,-1))
1704 lua_pushvalue(L,substack_start+1);
1705 lua_pushvalue(L,substack_start+2);
1706 lua_pushvalue(L,substack_start+3);
1718 assert(lua_gettop(L) == substack_start + 3);
1719 return bases_search_result;
1736 assert(lua_isuserdata(L,1));
1741 SWIG_Lua_pushferrstring(L,
"Assignment not possible. No setter/member with this name. For custom assignments implement __setitem method.");
1756 assert(lua_isuserdata(L,-1));
1776 assert(lua_isuserdata(L,1));
1779 lua_pushfstring(L,
"<userdata of type '%s' at %p>", userData->
type->
str, userData->
ptr);
1789 assert(lua_isuserdata(L,-1));
1803 if (!lua_isuserdata(L,1) || !lua_isuserdata(L,2))
1808 result=(usr1->
ptr==usr2->
ptr);
1809 lua_pushboolean(L,result);
1837 lua_pushstring(L,
"SWIG");
1842 lua_pushstring(L,
".library");
1846 lua_pushstring(L,
"inheritable_metamethods");
1854 lua_rawset(L,LUA_REGISTRYINDEX);
1861 lua_pushstring(L,
"SWIG");
1862 lua_rawget(L,LUA_REGISTRYINDEX);
1863 if (!lua_istable(L,-1))
1868 lua_pushstring(L,
"SWIG");
1869 lua_rawget(L,LUA_REGISTRYINDEX);
1876 lua_pushstring(L,
".library");
1878 assert( !lua_isnil(L,-1) );
1879 lua_pushstring(L,
"inheritable_metamethods");
1891 lua_pushstring(L,cname);
1909 if (clss->
bases[i]==0)
1918 #if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1920 SWIGINTERN void SWIG_Lua_merge_tables_by_index(lua_State *L,
int target,
int source)
1924 while (lua_next(L,source) != 0) {
1927 lua_pushvalue(L,-2);
1928 lua_pushvalue(L,-2);
1929 lua_rawset(L, target);
1936 SWIGINTERN void SWIG_Lua_merge_tables(lua_State *L,
const char*
name,
int original,
int base)
1939 lua_pushstring(L,
name);
1940 lua_rawget(L,original);
1941 int original_table = lua_gettop(L);
1942 lua_pushstring(L,
name);
1944 int base_table = lua_gettop(L);
1945 SWIG_Lua_merge_tables_by_index(L, original_table, base_table);
1954 assert(lua_istable(L,-1));
1955 int original = lua_gettop(L);
1957 int base = lua_gettop(L);
1958 SWIG_Lua_merge_tables(L,
".fn", original, base );
1959 SWIG_Lua_merge_tables(L,
".set", original, base );
1960 SWIG_Lua_merge_tables(L,
".get", original, base );
1971 if (clss->
bases[i]==0)
1977 SWIG_Lua_class_squash_base(L, clss->
bases[i]);
1983 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1987 assert(lua_istable(L,-1));
1989 assert(lua_istable(L,-1));
1995 assert(lua_istable(L,-1));
2006 assert(lua_istable(L,-1));
2008 for(i=0;clss->
bases[i];i++)
2022 size_t bases_count = 0;
2025 assert(lua_istable(L,-1));
2026 for(i=0;clss->
bases[i];i++)
2030 assert(lua_istable(L,-1));
2031 lua_rawseti(L,-2,i+1);
2042 assert(lua_istable(L,-1));
2043 for(i=0;clss->
methods[i].name;i++){
2057 #if !defined(SWIG_LUA_SQUASH_BASES)
2099 lua_pushvalue(L, metamethod_name_idx);
2113 for(i=0;clss->
bases[i];i++)
2128 int metamethod_name_idx;
2132 lua_checkstack(L,5);
2133 numargs = lua_gettop(L);
2136 lua_pushvalue(L, lua_upvalueindex(1));
2137 metamethod_name_idx = lua_gettop(L);
2139 lua_pushvalue(L, lua_upvalueindex(2));
2146 SWIG_Lua_pushferrstring(L,
"The metamethod proxy is set, but it failed to find actual metamethod. Memory corruption is most likely explanation.");
2153 lua_call(L, numargs, LUA_MULTRET);
2154 return lua_gettop(L);
2169 assert(lua_isstring(L,-1));
2171 key_index = lua_gettop(L);
2174 lua_pushvalue(L,key_index);
2175 lua_gettable(L,metatable_index);
2176 if( !lua_isnil(L,-1) ) {
2183 for(i=0;clss->
bases[i];i++)
2187 lua_pushvalue(L, key_index);
2189 if( !lua_isnil(L,-1) ) {
2190 lua_pushvalue(L, key_index);
2193 lua_pushvalue(L, key_index);
2194 lua_pushlightuserdata(L, clss);
2197 lua_rawset(L, metatable_index);
2212 int metatable_index;
2213 int metamethods_info_index;
2214 int tostring_undefined;
2215 int eq_undefined = 0;
2218 metatable_index = lua_gettop(L);
2220 assert(lua_istable(L,-1));
2221 metamethods_info_index = lua_gettop(L);
2223 while(lua_next(L, metamethods_info_index) != 0 ) {
2225 const int is_inheritable = lua_toboolean(L,-2);
2228 if(is_inheritable) {
2236 lua_pushstring(L,
"__tostring");
2237 lua_pushvalue(L,-1);
2238 lua_rawget(L,metatable_index);
2239 tostring_undefined = lua_isnil(L,-1);
2241 if( tostring_undefined ) {
2243 lua_rawset(L, metatable_index);
2249 lua_pushstring(L,
"__eq");
2250 lua_pushvalue(L,-1);
2251 lua_rawget(L,metatable_index);
2252 eq_undefined = lua_isnil(L,-1);
2254 if( eq_undefined ) {
2256 lua_rawset(L, metatable_index);
2270 lua_checkstack(L,5);
2271 assert(lua_istable(L,-1));
2276 assert(lua_istable(L,-1));
2284 lua_getmetatable(L,-1);
2285 assert(lua_istable(L,-1));
2290 assert(lua_istable(L,-1));
2295 assert( lua_gettop(L) == begin );
2307 lua_pushstring(L,clss->
fqname);
2309 if(!lua_isnil(L,-1)) {
2311 assert(lua_gettop(L)==begin);
2316 for(i=0;clss->
bases[i];i++)
2322 lua_pushstring(L,clss->
fqname);
2324 #if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2331 for(i=0;clss->
bases[i];i++)
2336 SWIG_Lua_merge_tables_by_index(L,new_metatable_index, base_metatable);
2343 lua_pushstring(L,
".type");
2344 lua_pushstring(L,clss->
fqname);
2347 lua_pushstring(L,
".bases");
2351 lua_pushstring(L,
".get");
2355 lua_pushstring(L,
".set");
2359 lua_pushstring(L,
".fn");
2371 assert(lua_gettop(L) == begin);
2373 #if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2375 SWIG_Lua_class_squash_bases(L,clss);
2380 assert( lua_gettop(L) == begin );
2386 assert(lua_istable(L,-1));
2400 begin = lua_gettop(L);
2403 assert(lua_istable(L,-1));
2404 lua_getmetatable(L,-1);
2405 assert(lua_istable(L,-1));
2406 lua_pushstring(L,
".instance");
2409 assert(lua_istable(L,-1));
2410 lua_pushstring(L,
".static");
2411 lua_pushvalue(L, -4);
2412 assert(lua_istable(L,-1));
2416 assert(lua_gettop(L) == begin);
2420 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
2427 lua_pushstring(L,clss->
fqname);
2429 if(!lua_isnil(L,-1)) {
2431 assert(lua_gettop(L)==begin);
2436 for(i=0;clss->
bases[i];i++)
2438 SWIG_Lua_elua_class_register_instance(L,clss->
bases[i]);
2442 lua_pushstring(L,clss->
fqname);
2444 lua_pushrotable(L, (
void*)(clss->
metatable));
2447 assert(lua_gettop(L) == begin);
2461 if (lua_istable(L,-1))
2463 lua_setmetatable(L,-2);
2484 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
2496 if (lua_isnil(L,index))
2501 if (lua_islightuserdata(L,index))
2503 *ptr=lua_touserdata(L,index);
2531 int argnum,
const char *func_name){
2534 luaL_error (L,
"Error in %s, expected a %s at argument number %d\n",
2535 func_name,(type && type->
str)?type->
str:
"void*",argnum);
2548 memcpy(raw->
data,ptr,size);
2558 if (type==0 || type==raw->
type)
2560 memcpy(ptr,raw->
data,size);
2570 if (lua_isuserdata(L,tp))
2575 return "userdata (unknown type)";
2577 return lua_typename(L,lua_type(L,tp));
2591 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
2596 for (i = 0; constants[i].
type; i++) {
2597 switch(constants[i].type) {
2599 lua_pushstring(L,constants[i].
name);
2600 lua_pushinteger(L,(lua_Integer)constants[i].lvalue);
2604 lua_pushstring(L,constants[i].
name);
2605 lua_pushnumber(L,(lua_Number)constants[i].dvalue);
2609 lua_pushstring(L,constants[i].
name);
2611 char c = (char)constants[i].lvalue;
2612 lua_pushlstring(L,&c,1);
2617 lua_pushstring(L,constants[i].
name);
2618 lua_pushstring(L,(
char *) constants[i].pvalue);
2622 lua_pushstring(L,constants[i].
name);
2627 lua_pushstring(L,constants[i].
name);
2628 SWIG_NewMemberObj(L,constants[i].pvalue,constants[i].lvalue,*(constants[i]).ptype);
2642 #ifndef SWIG_DOSTRING_FAIL
2643 #define SWIG_DOSTRING_FAIL(S) fprintf(stderr,"%s\n",S)
2653 if (str==0 || str[0]==0)
return 0;
2655 #if (defined(LUA_VERSION_NUM) && (LUA_VERSION_NUM>=501))
2656 ok=luaL_dostring(L,str);
2658 ok=lua_dostring(L,str);
2676 #define SWIGTYPE_p_PLGraphicsIn swig_types[0]
2677 #define SWIGTYPE_p_char swig_types[1]
2678 #define SWIGTYPE_p_double swig_types[2]
2679 #define SWIGTYPE_p_f_double_double__int swig_types[3]
2680 #define SWIGTYPE_p_f_double_double_p_double_p_double_p_void__void swig_types[4]
2681 #define SWIGTYPE_p_f_int_double_p_char_int_p_void__void swig_types[5]
2682 #define SWIGTYPE_p_f_int_p_double_p_double__void swig_types[6]
2683 #define SWIGTYPE_p_f_int_p_q_const__double_p_q_const__double__void swig_types[7]
2684 #define SWIGTYPE_p_int swig_types[8]
2685 #define SWIGTYPE_p_p_char swig_types[9]
2686 #define SWIGTYPE_p_p_double swig_types[10]
2687 #define SWIGTYPE_p_unsigned_int swig_types[11]
2690 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
2691 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
2695 #define SWIG_name "plplotluac"
2696 #define SWIG_init luaopen_plplotluac
2697 #define SWIG_init_user luaopen_plplotluac_user
2699 #define SWIG_LUACODE luaopen_plplotluac_luacode
2704 #define LUA_ALLOC_ARRAY( TYPE, LEN ) (TYPE *) malloc( LEN * sizeof ( TYPE ) )
2705 #define LUA_FREE_ARRAY( PTR ) if ( PTR ) { free( PTR ); PTR = NULL;}
2709 #define LUA_DECLARE_TYPEMAP_ARR_FN( NAME, TYPE ) \
2710 SWIGINTERN int LUA_read_ ## NAME ## _num_array( lua_State * L, int index, TYPE * array, int size ){ \
2712 for ( i = 0; i < size; i++ ) { \
2713 lua_rawgeti( L, index, i + 1 ); \
2714 if ( lua_isnumber( L, -1 ) ) { \
2715 array[i] = (TYPE) lua_tonumber( L, -1 ); \
2724 SWIGINTERN TYPE* LUA_get_ ## NAME ## _num_array_var( lua_State * L, int index, int* size ) \
2727 if ( !lua_istable( L, index ) ) { \
2728 lua_pushstring( L, "expected a table" ); \
2731 *size = SWIG_itable_size( L, index ); \
2732 if ( *size < 1 ) { \
2733 array = LUA_ALLOC_ARRAY( TYPE, 1 ); \
2734 array[0] = (TYPE) 0; \
2737 array = LUA_ALLOC_ARRAY( TYPE, *size ); \
2738 if ( !LUA_read_ ## NAME ## _num_array( L, index, array, *size ) ) { \
2739 lua_pushstring( L, "table must contain numbers" ); \
2740 LUA_FREE_ARRAY( array ); \
2755 #define SWIG_ALLOC_ARRAY(TYPE,LEN) new TYPE[LEN]
2756 #define SWIG_FREE_ARRAY(PTR) delete[] PTR
2758 #define SWIG_ALLOC_ARRAY(TYPE,LEN) (TYPE *)malloc(LEN*sizeof(TYPE))
2759 #define SWIG_FREE_ARRAY(PTR) free(PTR)
2766 lua_rawgeti(L,index,n+1);
2767 if (lua_isnil(L,-1))
break;
2779 while (lua_next(L, index) != 0) {
2787 #define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME,TYPE)\
2788 SWIGINTERN int SWIG_read_##NAME##_num_array(lua_State* L,int index,TYPE *array,int size){\
2790 for (i = 0; i < size; i++) {\
2791 lua_rawgeti(L,index,i+1);\
2792 if (lua_isnumber(L,-1)){\
2793 array[i] = (TYPE)lua_tonumber(L,-1);\
2802 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_fixed(lua_State* L, int index, int size){\
2804 if (!lua_istable(L,index) || SWIG_itable_size(L,index) != size) {\
2805 SWIG_Lua_pushferrstring(L,"expected a table of size %d",size);\
2808 array=SWIG_ALLOC_ARRAY(TYPE,size);\
2809 if (!SWIG_read_##NAME##_num_array(L,index,array,size)){\
2810 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
2811 SWIG_FREE_ARRAY(array);\
2816 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_var(lua_State* L, int index, int* size)\
2819 if (!lua_istable(L,index)) {\
2820 SWIG_Lua_pusherrstring(L,"expected a table");\
2823 *size=SWIG_itable_size(L,index);\
2825 SWIG_Lua_pusherrstring(L,"table appears to be empty");\
2828 array=SWIG_ALLOC_ARRAY(TYPE,*size);\
2829 if (!SWIG_read_##NAME##_num_array(L,index,array,*size)){\
2830 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
2831 SWIG_FREE_ARRAY(array);\
2836 SWIGINTERN void SWIG_write_##NAME##_num_array(lua_State* L,TYPE *array,int size){\
2839 for (i = 0; i < size; i++){\
2840 lua_pushnumber(L,(lua_Number)array[i]);\
2841 lua_rawseti(L,-2,i+1);
\
2858 for (i = 0; i < size; i++) {
2859 lua_rawgeti(L,index,i+1);
2860 if (!lua_isuserdata(L,-1) ||
SWIG_ConvertPtr(L,-1,&array[i],type,0)==-1){
2884 if (!lua_istable(L,index)) {
2904 for (i = 0; i < size; i++){
2906 lua_rawseti(L,-2,i+1);
2921 if ( !lua_istable( L, index ) )
2923 lua_pushstring( L,
"expected a table" );
2929 lua_pushstring( L,
"table appears to be empty" );
2933 for ( i = 0; i < *nx; i++ )
2936 lua_rawgeti( L, index, 1 );
2937 if ( !lua_istable( L, -1 ) )
2940 lua_pushstring( L,
"expected a table" );
2947 lua_pushstring( L,
"table appears to be empty" );
2953 for ( i = 0; i < *nx; i++ )
2955 lua_rawgeti( L, index, i + 1 );
2956 if ( !lua_istable( L, -1 ) )
2959 lua_pushstring( L,
"expected a table" );
2960 for ( j = 0; j < *ny; j++ )
2968 lua_pushstring( L,
"inconsistent table sizes" );
2969 for ( j = 0; j < i; j++ )
2975 for ( j = 0; j < *ny; j++ )
2977 lua_rawgeti( L, -1, j + 1 );
2978 if ( lua_isnumber( L, -1 ) )
2980 matrix[i][j] = (
PLFLT) lua_tonumber( L, -1 );
2985 lua_pushstring( L,
"table must contain numbers" );
2986 for ( j = 0; j < i + 1; j++ )
3007 PLFLT *xtemp, *ytemp;
3013 fprintf( stderr,
"Lua state is not set!" );
3019 lua_pushnumber(
myL, n );
3020 SWIG_write_double_num_array(
myL, x, n );
3021 SWIG_write_double_num_array(
myL, y, n );
3024 if ( lua_pcall(
myL, 3, 2, 0 ) != 0 )
3025 fprintf( stderr,
"error running function `%s':%s",
3029 if ( !lua_istable(
myL, -2 ) )
3031 fprintf( stderr,
"function `%s' must return a table as 1st result",
mapform_funcstr );
3034 if ( !lua_istable(
myL, -1 ) )
3036 fprintf( stderr,
"function `%s' must return a table as 2nd result",
mapform_funcstr );
3039 xtemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -2, &len );
3040 if ( !xtemp || len != n )
3042 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3045 for ( i = 0; i < n; i++ )
3049 ytemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -1, &len );
3050 if ( !ytemp || len != n )
3052 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3055 for ( i = 0; i < n; i++ )
3090 fprintf( stderr,
"Lua state is not set!" );
3096 lua_pushnumber(
myL, x );
3097 lua_pushnumber(
myL, y );
3100 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3101 fprintf( stderr,
"error running function `%s':%s",
3105 if ( !lua_isnumber(
myL, -2 ) )
3107 fprintf( stderr,
"function `%s' must return a number as 1st result",
mypltr_funcstr );
3110 if ( !lua_isnumber(
myL, -1 ) )
3112 fprintf( stderr,
"function `%s' must return a number as 2nd result",
mypltr_funcstr );
3115 *tx = lua_tonumber(
myL, -2 );
3116 *ty = lua_tonumber(
myL, -1 );
3134 fprintf( stderr,
"Lua state is not set!" );
3140 lua_pushnumber(
myL, x );
3141 lua_pushnumber(
myL, y );
3144 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3145 fprintf( stderr,
"error running function `%s':%s",
3149 if ( !lua_isnumber(
myL, -2 ) )
3151 fprintf( stderr,
"function `%s' must return a number as 1st result",
myct_funcstr );
3154 if ( !lua_isnumber(
myL, -1 ) )
3156 fprintf( stderr,
"function `%s' must return a number as 2nd result",
myct_funcstr );
3159 *tx = lua_tonumber(
myL, -2 );
3160 *ty = lua_tonumber(
myL, -1 );
3173 fprintf( stderr,
"Lua state is not set!" );
3179 lua_pushnumber(
myL, axis );
3183 if ( lua_pcall(
myL, 2, 1, 0 ) != 0 )
3184 fprintf( stderr,
"error running function `%s':%s",
3188 if ( !lua_isstring(
myL, -1 ) )
3190 fprintf( stderr,
"function `%s' must return a string as result",
mylabel_funcstr );
3193 strncpy( label, lua_tostring(
myL, -1 ), length );
3202 int ret = lua_isstring(L, idx);
3204 ret = lua_isnil(L, idx);
3218 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::type",2,
"int");
3224 arg2 = (int)lua_tonumber(L, 2);
3225 if (arg1) (arg1)->type = arg2;
3249 result = (int) ((arg1)->type);
3250 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3268 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::state",2,
"unsigned int");
3275 arg2 = (
unsigned int)lua_tonumber(L, 2);
3276 if (arg1) (arg1)->state = arg2;
3291 unsigned int result;
3300 result = (
unsigned int) ((arg1)->state);
3301 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3319 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::keysym",2,
"unsigned int");
3326 arg2 = (
unsigned int)lua_tonumber(L, 2);
3327 if (arg1) (arg1)->keysym = arg2;
3342 unsigned int result;
3351 result = (
unsigned int) ((arg1)->keysym);
3352 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3370 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::button",2,
"unsigned int");
3377 arg2 = (
unsigned int)lua_tonumber(L, 2);
3378 if (arg1) (arg1)->button = arg2;
3393 unsigned int result;
3402 result = (
unsigned int) ((arg1)->button);
3403 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3421 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::subwindow",2,
"PLINT");
3427 arg2 = (
PLINT)lua_tonumber(L, 2);
3428 if (arg1) (arg1)->subwindow = arg2;
3452 result = (
PLINT) ((arg1)->subwindow);
3453 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3477 arg2 = (
char *)lua_tostring(L, 2);
3480 strncpy((
char*)arg1->
string, (
const char *)arg2, 16-1);
3509 result = (
char *)(
char *) ((arg1)->
string);
3510 lua_pushstring(L,(
const char *)result); SWIG_arg++;
3528 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pX",2,
"int");
3534 arg2 = (int)lua_tonumber(L, 2);
3535 if (arg1) (arg1)->pX = arg2;
3559 result = (int) ((arg1)->pX);
3560 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3578 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pY",2,
"int");
3584 arg2 = (int)lua_tonumber(L, 2);
3585 if (arg1) (arg1)->pY = arg2;
3609 result = (int) ((arg1)->pY);
3610 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3628 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dX",2,
"PLFLT");
3634 arg2 = (
PLFLT)lua_tonumber(L, 2);
3635 if (arg1) (arg1)->dX = arg2;
3659 result = (
PLFLT) ((arg1)->dX);
3660 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3678 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dY",2,
"PLFLT");
3684 arg2 = (
PLFLT)lua_tonumber(L, 2);
3685 if (arg1) (arg1)->dY = arg2;
3709 result = (
PLFLT) ((arg1)->dY);
3710 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3728 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wX",2,
"PLFLT");
3734 arg2 = (
PLFLT)lua_tonumber(L, 2);
3735 if (arg1) (arg1)->wX = arg2;
3759 result = (
PLFLT) ((arg1)->wX);
3760 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3778 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wY",2,
"PLFLT");
3784 arg2 = (
PLFLT)lua_tonumber(L, 2);
3785 if (arg1) (arg1)->wY = arg2;
3809 result = (
PLFLT) ((arg1)->wY);
3810 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3840 free((
char *) arg1);
3843 assert(lua_istable(L,1));
3845 assert(!lua_isnil(L,-1));
3847 lua_call(L,lua_gettop(L)-1,1);
3895 static 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 };
3903 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelformat",1,
"PLINT");
3904 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelformat",2,
"PLINT");
3905 arg1 = (
PLINT)lua_tonumber(L, 1);
3906 arg2 = (
PLINT)lua_tonumber(L, 2);
3927 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelparam",1,
"PLFLT");
3928 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelparam",2,
"PLFLT");
3929 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pl_setcontlabelparam",3,
"PLFLT");
3930 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"pl_setcontlabelparam",4,
"PLINT");
3931 arg1 = (
PLFLT)lua_tonumber(L, 1);
3932 arg2 = (
PLFLT)lua_tonumber(L, 2);
3933 arg3 = (
PLFLT)lua_tonumber(L, 3);
3934 arg4 = (
PLINT)lua_tonumber(L, 4);
3953 arg1 = (
PLINT)lua_tonumber(L, 1);
3986 arg1 = (
PLFLT)lua_tonumber(L, 1);
3987 arg2 = (
PLFLT)lua_tonumber(L, 2);
3988 arg3 = (
PLFLT)lua_tonumber(L, 3);
3989 arg4 = (
PLFLT)lua_tonumber(L, 4);
3990 arg5 = (
PLFLT)lua_tonumber(L, 5);
3991 arg6 = (
PLFLT)lua_tonumber(L, 6);
3992 arg7 = (
PLFLT)lua_tonumber(L, 7);
3993 arg8 = (
PLBOOL)lua_tonumber(L, 8);
3994 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
4010 char *arg3 = (
char *) 0 ;
4013 char *arg6 = (
char *) 0 ;
4026 arg1 = (
PLFLT)lua_tonumber(L, 1);
4027 arg2 = (
PLFLT)lua_tonumber(L, 2);
4028 arg3 = (
char *)lua_tostring(L, 3);
4029 arg4 = (
PLFLT)lua_tonumber(L, 4);
4030 arg5 = (
PLINT)lua_tonumber(L, 5);
4031 arg6 = (
char *)lua_tostring(L, 6);
4032 arg7 = (
PLFLT)lua_tonumber(L, 7);
4033 arg8 = (
PLINT)lua_tonumber(L, 8);
4034 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
4058 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4064 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4067 if ( temp3 !=
Alen )
4069 lua_pushfstring( L,
"Tables must be of same length." );
4073 arg4 = (
PLINT)lua_tonumber(L, 3);
4074 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
4122 arg7 = (
PLFLT)lua_tonumber(L, 1);
4123 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4125 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4126 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4127 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4128 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4129 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4130 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
4159 char *arg1 = (
char *) 0 ;
4162 char *arg4 = (
char *) 0 ;
4173 arg1 = (
char *)lua_tostring(L, 1);
4174 arg2 = (
PLFLT)lua_tonumber(L, 2);
4175 arg3 = (
PLINT)lua_tonumber(L, 3);
4176 arg4 = (
char *)lua_tostring(L, 4);
4177 arg5 = (
PLFLT)lua_tonumber(L, 5);
4178 arg6 = (
PLINT)lua_tonumber(L, 6);
4179 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
4193 char *arg1 = (
char *) 0 ;
4194 char *arg2 = (
char *) 0 ;
4197 char *arg5 = (
char *) 0 ;
4198 char *arg6 = (
char *) 0 ;
4201 char *arg9 = (
char *) 0 ;
4202 char *arg10 = (
char *) 0 ;
4219 arg1 = (
char *)lua_tostring(L, 1);
4220 arg2 = (
char *)lua_tostring(L, 2);
4221 arg3 = (
PLFLT)lua_tonumber(L, 3);
4222 arg4 = (
PLINT)lua_tonumber(L, 4);
4223 arg5 = (
char *)lua_tostring(L, 5);
4224 arg6 = (
char *)lua_tostring(L, 6);
4225 arg7 = (
PLFLT)lua_tonumber(L, 7);
4226 arg8 = (
PLINT)lua_tonumber(L, 8);
4227 arg9 = (
char *)lua_tostring(L, 9);
4228 arg10 = (
char *)lua_tostring(L, 10);
4229 arg11 = (
PLFLT)lua_tonumber(L, 11);
4230 arg12 = (
PLINT)lua_tonumber(L, 12);
4231 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);
4258 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcalc_world",1,
"PLFLT");
4259 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcalc_world",2,
"PLFLT");
4260 arg1 = (
PLFLT)lua_tonumber(L, 1);
4261 arg2 = (
PLFLT)lua_tonumber(L, 2);
4264 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4265 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4266 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4299 arg1 = (
PLINT)lua_tonumber(L, 1);
4318 arg1 = (
PLFLT)lua_tonumber(L, 1);
4346 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plconfigtime",1,
"PLFLT");
4347 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plconfigtime",2,
"PLFLT");
4348 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plconfigtime",3,
"PLFLT");
4349 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plconfigtime",4,
"PLINT");
4350 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plconfigtime",5,
"PLBOOL");
4351 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plconfigtime",6,
"PLINT");
4352 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plconfigtime",7,
"PLINT");
4353 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plconfigtime",8,
"PLINT");
4354 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plconfigtime",9,
"PLINT");
4355 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plconfigtime",10,
"PLINT");
4356 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plconfigtime",11,
"PLFLT");
4357 arg1 = (
PLFLT)lua_tonumber(L, 1);
4358 arg2 = (
PLFLT)lua_tonumber(L, 2);
4359 arg3 = (
PLFLT)lua_tonumber(L, 3);
4360 arg4 = (
PLINT)lua_tonumber(L, 4);
4361 arg5 = (
PLBOOL)lua_tonumber(L, 5);
4362 arg6 = (
PLINT)lua_tonumber(L, 6);
4363 arg7 = (
PLINT)lua_tonumber(L, 7);
4364 arg8 = (
PLINT)lua_tonumber(L, 8);
4365 arg9 = (
PLINT)lua_tonumber(L, 9);
4366 arg10 = (
PLINT)lua_tonumber(L, 10);
4367 arg11 = (
PLFLT)lua_tonumber(L, 11);
4368 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
4398 cgrid111.
xg = cgrid111.
yg = cgrid111.
zg = NULL;
4399 cgrid111.
nx = cgrid111.
ny = cgrid111.
nz = 0;
4400 cgrid211.
xg = cgrid211.
yg = cgrid211.
zg = NULL;
4401 cgrid211.
nx = cgrid211.
ny = 0;
4423 arg4 = (
PLINT)lua_tonumber(L, 2);
4424 arg5 = (
PLINT)lua_tonumber(L, 3);
4425 arg6 = (
PLINT)lua_tonumber(L, 4);
4426 arg7 = (
PLINT)lua_tonumber(L, 5);
4429 arg8 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
4434 if(lua_gettop(L)>=7){
4439 if ( lua_isstring( L, 7 ) )
4441 const char* funcstr = lua_tostring( L, 7 );
4442 if ( strcmp(
"pltr0", funcstr ) == 0 )
4446 else if ( strcmp(
"pltr1", funcstr ) == 0 )
4450 else if ( strcmp(
"pltr2", funcstr ) == 0 )
4465 if(lua_gettop(L)>=8){
4470 lua_pushstring( L,
"xg" );
4471 lua_gettable( L, 8 );
4472 if ( !lua_istable( L, -1 ) )
4475 lua_pushstring( L,
"expected a table xg" );
4478 lua_rawgeti( L, -1, 1 );
4479 if ( lua_istable( L, -1 ) )
4481 else if ( lua_isnumber( L, -1 ) )
4487 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
4491 if ( gridmode == 1 )
4493 cgrid111.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
4501 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
4514 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4517 lua_pushfstring( L,
"Vectors must match matrix." );
4525 lua_pushstring( L,
"yg" );
4526 lua_gettable( L, 8 );
4527 if ( !lua_istable( L, -1 ) )
4530 lua_pushstring( L,
"expected a table yg" );
4533 lua_rawgeti( L, -1, 1 );
4534 if ( gridmode == 2 )
4536 if ( !lua_istable( L, -1 ) )
4540 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
4546 if ( !lua_isnumber( L, -1 ) )
4550 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
4555 if ( gridmode == 1 )
4557 cgrid111.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
4565 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
4578 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4581 lua_pushfstring( L,
"Vectors must match matrix." );
4588 if ( gridmode == 1 )
4590 else if ( gridmode == 2 )
4594 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
4601 for ( i = 0; i < ii1; i++ )
4620 for ( i = 0; i <
Xlen; i++ )
4626 for ( i = 0; i <
Xlen; i++ )
4641 for ( i = 0; i < ii1; i++ )
4660 for ( i = 0; i <
Xlen; i++ )
4666 for ( i = 0; i <
Xlen; i++ )
4695 arg1 = (
PLINT)lua_tonumber(L, 1);
4696 arg2 = (
PLINT)lua_tonumber(L, 2);
4697 arg3 = (
PLINT)lua_tonumber(L, 3);
4698 arg4 = (
PLINT)lua_tonumber(L, 4);
4699 arg5 = (
PLINT)lua_tonumber(L, 5);
4700 arg6 = (
PLFLT)lua_tonumber(L, 6);
4701 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4703 lua_pushnumber(L, (lua_Number) *arg7); SWIG_arg++;
4721 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcpstrm",2,
"PLBOOL");
4722 arg1 = (
PLINT)lua_tonumber(L, 1);
4723 arg2 = (
PLBOOL)lua_tonumber(L, 2);
4784 arg1 = (
PLFLT)lua_tonumber(L, 1);
4785 arg2 = (
PLFLT)lua_tonumber(L, 2);
4786 arg3 = (
PLFLT)lua_tonumber(L, 3);
4787 arg4 = (
PLFLT)lua_tonumber(L, 4);
4788 arg5 = (
PLINT)lua_tonumber(L, 5);
4789 arg6 = (
PLINT)lua_tonumber(L, 6);
4790 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
4818 arg1 = (
PLFLT)lua_tonumber(L, 1);
4819 arg2 = (
PLFLT)lua_tonumber(L, 2);
4820 arg3 = (
PLFLT)lua_tonumber(L, 3);
4821 arg4 = (
PLFLT)lua_tonumber(L, 4);
4822 arg5 = (
PLINT)lua_tonumber(L, 5);
4823 arg6 = (
PLINT)lua_tonumber(L, 6);
4824 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
4864 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4870 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4873 if ( temp3 !=
Alen )
4875 lua_pushfstring( L,
"Tables must be of same length." );
4880 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4883 if ( temp4 !=
Alen )
4885 lua_pushfstring( L,
"Tables must be of same length." );
4889 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4931 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4937 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4940 if ( temp3 !=
Alen )
4942 lua_pushfstring( L,
"Tables must be of same length." );
4947 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4950 if ( temp4 !=
Alen )
4952 lua_pushfstring( L,
"Tables must be of same length." );
4956 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5012 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5018 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5021 if ( temp3 !=
Alen )
5023 lua_pushfstring( L,
"Tables must be of same length." );
5027 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
5063 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5069 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5072 if ( temp3 !=
Alen )
5074 lua_pushfstring( L,
"Tables must be of same length." );
5079 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
5082 if ( temp4 !=
Alen )
5084 lua_pushfstring( L,
"Tables must be of same length." );
5088 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5127 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plgradient",3,
"PLFLT");
5130 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5136 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5139 if ( temp3 !=
Alen )
5141 lua_pushfstring( L,
"Tables must be of same length." );
5145 arg4 = (
PLFLT)lua_tonumber(L, 3);
5146 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
5192 arg1 = (
PLINT)lua_tonumber(L, 1);
5211 arg1 = (
PLINT)lua_tonumber(L, 1);
5236 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5237 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5263 arg1 = (
PLINT)lua_tonumber(L, 1);
5266 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5267 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5268 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5297 arg1 = (
PLINT)lua_tonumber(L, 1);
5298 plgcol0a(arg1,arg2,arg3,arg4,arg5);
5300 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5301 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5302 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5303 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5329 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5330 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5331 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5360 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5361 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5362 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5363 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5383 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5396 char *arg1 = (
char *) 0 ;
5406 lua_pushstring( L, arg1 );
5437 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5438 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5439 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5440 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5460 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5489 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5490 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5491 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5492 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5518 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5519 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5520 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5540 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5553 char *arg1 = (
char *) 0 ;
5563 lua_pushstring( L, arg1 );
5591 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5592 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5593 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5613 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5646 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
5648 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5649 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5650 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5651 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5652 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5653 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
5696 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plgriddata",6,
"PLINT");
5697 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plgriddata",7,
"PLFLT");
5700 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5706 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp2 );
5709 if ( temp2 !=
Alen )
5711 lua_pushfstring( L,
"Tables must be of same length." );
5717 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp );
5722 lua_pushfstring( L,
"Tables must be of same length." );
5729 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
5737 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
5745 for ( i = 0; i <
Xlen; i++ )
5748 for ( i = 0; i <
Xlen; i++ )
5755 arg10 = (
PLINT)lua_tonumber(L, 6);
5756 arg11 = (
PLFLT)lua_tonumber(L, 7);
5757 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
5765 for ( i = 0; i <
Xlen; i++ )
5767 SWIG_write_double_num_array( L, arg9[i],
Ylen );
5768 lua_rawseti( L, -2, i + 1 );
5792 for ( i = 0; i <
Xlen; i++ )
5821 for ( i = 0; i <
Xlen; i++ )
5847 plgspa(arg1,arg2,arg3,arg4);
5849 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5850 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5851 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5852 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5872 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5885 char *arg1 = (
char *) 0 ;
5895 lua_pushstring( L, arg1 );
5924 plgvpd(arg1,arg2,arg3,arg4);
5926 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5927 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5928 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5929 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5956 plgvpw(arg1,arg2,arg3,arg4);
5958 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5959 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5960 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5961 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5984 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5985 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6008 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6009 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6032 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6033 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6060 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6065 arg3 = (
PLFLT)lua_tonumber(L, 2);
6066 arg4 = (
PLFLT)lua_tonumber(L, 3);
6067 arg5 = (
PLINT)lua_tonumber(L, 4);
6068 arg6 = (
PLINT)lua_tonumber(L, 5);
6069 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
6106 arg1 = (
PLFLT)lua_tonumber(L, 1);
6107 arg2 = (
PLFLT)lua_tonumber(L, 2);
6108 arg3 = (
PLFLT)lua_tonumber(L, 3);
6109 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
6111 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
6112 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
6113 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
6152 arg1 = (
PLFLT)lua_tonumber(L, 1);
6153 arg2 = (
PLFLT)lua_tonumber(L, 2);
6154 arg3 = (
PLFLT)lua_tonumber(L, 3);
6155 arg4 = (
PLFLT)lua_tonumber(L, 4);
6156 pljoin(arg1,arg2,arg3,arg4);
6170 char *arg1 = (
char *) 0 ;
6171 char *arg2 = (
char *) 0 ;
6172 char *arg3 = (
char *) 0 ;
6178 arg1 = (
char *)lua_tostring(L, 1);
6179 arg2 = (
char *)lua_tostring(L, 2);
6180 arg3 = (
char *)lua_tostring(L, 3);
6181 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
6214 char **arg20 = (
char **) 0 ;
6225 char **arg31 = (
char **) 0 ;
6282 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"pllegend",10,
"PLINT");
6283 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"pllegend",12,
"PLFLT");
6284 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"pllegend",13,
"PLFLT");
6285 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"pllegend",14,
"PLFLT");
6286 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"pllegend",15,
"PLFLT");
6287 if(!lua_istable(L,17))
SWIG_fail_arg(
"pllegend",17,
"char const **");
6288 if(lua_gettop(L)>=28 && !lua_istable(L,28))
SWIG_fail_arg(
"pllegend",28,
"char const **");
6289 arg3 = (
PLINT)lua_tonumber(L, 1);
6290 arg4 = (
PLINT)lua_tonumber(L, 2);
6291 arg5 = (
PLFLT)lua_tonumber(L, 3);
6292 arg6 = (
PLFLT)lua_tonumber(L, 4);
6293 arg7 = (
PLFLT)lua_tonumber(L, 5);
6294 arg8 = (
PLINT)lua_tonumber(L, 6);
6295 arg9 = (
PLINT)lua_tonumber(L, 7);
6296 arg10 = (
PLINT)lua_tonumber(L, 8);
6297 arg11 = (
PLINT)lua_tonumber(L, 9);
6298 arg12 = (
PLINT)lua_tonumber(L, 10);
6300 arg14 = (
PLINT *) LUA_get_int_num_array_var( L, 11, &arg13 );
6305 arg15 = (
PLFLT)lua_tonumber(L, 12);
6306 arg16 = (
PLFLT)lua_tonumber(L, 13);
6307 arg17 = (
PLFLT)lua_tonumber(L, 14);
6308 arg18 = (
PLFLT)lua_tonumber(L, 15);
6310 arg19 = (
PLINT *) LUA_get_int_num_array_var( L, 16, &temp19 );
6313 if ( temp19 !=
Alen )
6315 lua_pushfstring( L,
"Tables must be of same length." );
6325 lua_pushfstring( L,
"Tables must be of same length." );
6328 arg20 = malloc(
sizeof (
char* ) *
Alen );
6329 for ( i = 1; i <=
Alen; i++ )
6331 lua_rawgeti( L, 17, i );
6332 if ( lua_isstring( L, -1 ) )
6334 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6339 lua_pushfstring( L,
"Requires a sequence of strings." );
6346 if(lua_gettop(L)>=18){
6348 if ( lua_isnil( L, 18 ) )
6354 arg21 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp21 );
6357 if ( temp21 !=
Alen )
6359 lua_pushfstring( L,
"Tables must be of same length." );
6365 if(lua_gettop(L)>=19){
6367 if ( lua_isnil( L, 19 ) )
6373 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp22 );
6376 if ( temp22 !=
Alen )
6378 lua_pushfstring( L,
"Tables must be of same length." );
6384 if(lua_gettop(L)>=20){
6386 if ( lua_isnil( L, 20 ) )
6392 arg23 = (
PLFLT *) LUA_get_double_num_array_var( L, 20, &temp23 );
6395 if ( temp23 !=
Alen )
6397 lua_pushfstring( L,
"Tables must be of same length." );
6403 if(lua_gettop(L)>=21){
6405 if ( lua_isnil( L, 21 ) )
6411 arg24 = (
PLFLT *) LUA_get_double_num_array_var( L, 21, &temp24 );
6414 if ( temp24 !=
Alen )
6416 lua_pushfstring( L,
"Tables must be of same length." );
6422 if(lua_gettop(L)>=22){
6424 if ( lua_isnil( L, 22 ) )
6430 arg25 = (
PLINT *) LUA_get_int_num_array_var( L, 22, &temp25 );
6433 if ( temp25 !=
Alen )
6435 lua_pushfstring( L,
"Tables must be of same length." );
6441 if(lua_gettop(L)>=23){
6443 if ( lua_isnil( L, 23 ) )
6449 arg26 = (
PLINT *) LUA_get_int_num_array_var( L, 23, &temp26 );
6452 if ( temp26 !=
Alen )
6454 lua_pushfstring( L,
"Tables must be of same length." );
6460 if(lua_gettop(L)>=24){
6462 if ( lua_isnil( L, 24 ) )
6468 arg27 = (
PLFLT *) LUA_get_double_num_array_var( L, 24, &temp27 );
6471 if ( temp27 !=
Alen )
6473 lua_pushfstring( L,
"Tables must be of same length." );
6479 if(lua_gettop(L)>=25){
6481 if ( lua_isnil( L, 25 ) )
6487 arg28 = (
PLINT *) LUA_get_int_num_array_var( L, 25, &temp28 );
6490 if ( temp28 !=
Alen )
6492 lua_pushfstring( L,
"Tables must be of same length." );
6498 if(lua_gettop(L)>=26){
6500 if ( lua_isnil( L, 26 ) )
6506 arg29 = (
PLFLT *) LUA_get_double_num_array_var( L, 26, &temp29 );
6509 if ( temp29 !=
Alen )
6511 lua_pushfstring( L,
"Tables must be of same length." );
6517 if(lua_gettop(L)>=27){
6519 if ( lua_isnil( L, 27 ) )
6525 arg30 = (
PLINT *) LUA_get_int_num_array_var( L, 27, &temp30 );
6528 if ( temp30 !=
Alen )
6530 lua_pushfstring( L,
"Tables must be of same length." );
6536 if(lua_gettop(L)>=28){
6543 lua_pushfstring( L,
"Tables must be of same length." );
6546 arg31 = malloc(
sizeof (
char* ) *
Alen );
6547 for ( i = 1; i <=
Alen; i++ )
6549 lua_rawgeti( L, 28, i );
6550 if ( lua_isstring( L, -1 ) )
6552 arg31[i - 1] = (
char *) lua_tostring( L, -1 );
6557 lua_pushfstring( L,
"Requires a sequence of strings." );
6565 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);
6567 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6568 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6578 free( arg20 ); arg20 = NULL;
6614 free( arg31 ); arg31 = NULL;
6631 free( arg20 ); arg20 = NULL;
6667 free( arg31 ); arg31 = NULL;
6694 char **arg18 = (
char **) 0 ;
6696 char **arg20 = (
char **) 0 ;
6711 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcolorbar",1,
"PLINT");
6712 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcolorbar",2,
"PLINT");
6713 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plcolorbar",3,
"PLFLT");
6714 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plcolorbar",4,
"PLFLT");
6715 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plcolorbar",5,
"PLFLT");
6716 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plcolorbar",6,
"PLFLT");
6717 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plcolorbar",7,
"PLINT");
6718 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plcolorbar",8,
"PLINT");
6719 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plcolorbar",9,
"PLINT");
6720 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plcolorbar",10,
"PLFLT");
6721 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plcolorbar",11,
"PLFLT");
6722 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plcolorbar",12,
"PLINT");
6723 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plcolorbar",13,
"PLFLT");
6724 if(!lua_istable(L,15))
SWIG_fail_arg(
"plcolorbar",15,
"char const **");
6725 arg3 = (
PLINT)lua_tonumber(L, 1);
6726 arg4 = (
PLINT)lua_tonumber(L, 2);
6727 arg5 = (
PLFLT)lua_tonumber(L, 3);
6728 arg6 = (
PLFLT)lua_tonumber(L, 4);
6729 arg7 = (
PLFLT)lua_tonumber(L, 5);
6730 arg8 = (
PLFLT)lua_tonumber(L, 6);
6731 arg9 = (
PLINT)lua_tonumber(L, 7);
6732 arg10 = (
PLINT)lua_tonumber(L, 8);
6733 arg11 = (
PLINT)lua_tonumber(L, 9);
6734 arg12 = (
PLFLT)lua_tonumber(L, 10);
6735 arg13 = (
PLFLT)lua_tonumber(L, 11);
6736 arg14 = (
PLINT)lua_tonumber(L, 12);
6737 arg15 = (
PLFLT)lua_tonumber(L, 13);
6739 arg17 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &arg16 );
6750 lua_pushfstring( L,
"Tables must be of same length." );
6753 arg18 = malloc(
sizeof (
char* ) *
Alen );
6754 for ( i = 1; i <=
Alen; i++ )
6756 lua_rawgeti( L, 15, i );
6757 if ( lua_isstring( L, -1 ) )
6759 arg18[i - 1] = (
char *) lua_tostring( L, -1 );
6764 lua_pushfstring( L,
"Requires a sequence of strings." );
6776 arg20 = malloc(
sizeof (
char* ) *
Alen );
6777 for ( i = 1; i <=
Alen; i++ )
6779 lua_rawgeti( L, 16, i );
6780 if ( lua_isstring( L, -1 ) )
6782 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6787 lua_pushfstring( L,
"Requires a sequence of strings." );
6794 arg21 = (
PLFLT *) LUA_get_double_num_array_var( L, 17, &temp21 );
6797 if ( temp21 !=
Alen )
6799 lua_pushfstring( L,
"Tables must be of same length." );
6804 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp22 );
6807 if ( temp22 !=
Alen )
6809 lua_pushfstring( L,
"Tables must be of same length." );
6816 arg23 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp23 );
6819 if ( temp23 !=
Alen )
6821 lua_pushfstring( L,
"Tables must be of same length." );
6827 for ( i = 0; i <
Xlen; i++ )
6828 if ( arg23[i] >
Ylen )
6837 if ( ( ii24 !=
Xlen ) || ( jj !=
Ylen ) )
6839 lua_pushfstring( L,
"Vectors must match matrix." );
6843 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);
6845 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6846 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6853 free( arg18 ); arg18 = NULL;
6859 free( arg20 ); arg20 = NULL;
6876 for ( i = 0; i < ii24; i++ )
6892 free( arg18 ); arg18 = NULL;
6898 free( arg20 ); arg20 = NULL;
6915 for ( i = 0; i < ii24; i++ )
6932 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pllightsource",1,
"PLFLT");
6933 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pllightsource",2,
"PLFLT");
6934 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pllightsource",3,
"PLFLT");
6935 arg1 = (
PLFLT)lua_tonumber(L, 1);
6936 arg2 = (
PLFLT)lua_tonumber(L, 2);
6937 arg3 = (
PLFLT)lua_tonumber(L, 3);
6960 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6966 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6969 if ( temp3 !=
Alen )
6971 lua_pushfstring( L,
"Tables must be of same length." );
6975 plline(arg1,(
double const *)arg2,(
double const *)arg3);
7011 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7017 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7020 if ( temp3 !=
Alen )
7022 lua_pushfstring( L,
"Tables must be of same length." );
7027 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7030 if ( temp4 !=
Alen )
7032 lua_pushfstring( L,
"Tables must be of same length." );
7036 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
7072 arg1 = (
PLINT)lua_tonumber(L, 1);
7099 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7106 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7119 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7121 lua_pushfstring( L,
"Vectors must match matrix." );
7125 arg6 = (
PLINT)lua_tonumber(L, 4);
7126 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
7139 for ( i = 0; i < ii3; i++ )
7160 for ( i = 0; i < ii3; i++ )
7186 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7193 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7206 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7208 lua_pushfstring( L,
"Vectors must match matrix." );
7212 arg6 = (
PLINT)lua_tonumber(L, 4);
7215 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7220 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7233 for ( i = 0; i < ii3; i++ )
7257 for ( i = 0; i < ii3; i++ )
7279 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
7292 char *arg1 = (
char *) 0 ;
7296 char *arg5 = (
char *) 0 ;
7304 arg1 = (
char *)lua_tostring(L, 1);
7305 arg2 = (
PLFLT)lua_tonumber(L, 2);
7306 arg3 = (
PLFLT)lua_tonumber(L, 3);
7307 arg4 = (
PLFLT)lua_tonumber(L, 4);
7308 arg5 = (
char *)lua_tostring(L, 5);
7309 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7323 char *arg1 = (
char *) 0 ;
7327 char *arg5 = (
char *) 0 ;
7335 arg1 = (
char *)lua_tostring(L, 1);
7336 arg2 = (
PLFLT)lua_tonumber(L, 2);
7337 arg3 = (
PLFLT)lua_tonumber(L, 3);
7338 arg4 = (
PLFLT)lua_tonumber(L, 4);
7339 arg5 = (
char *)lua_tostring(L, 5);
7340 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7368 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7375 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7388 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7390 lua_pushfstring( L,
"Vectors must match matrix." );
7394 arg6 = (
PLINT)lua_tonumber(L, 4);
7395 arg7 = (
PLBOOL)lua_tonumber(L, 5);
7396 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
7409 for ( i = 0; i < ii3; i++ )
7430 for ( i = 0; i < ii3; i++ )
7456 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7463 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7476 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7478 lua_pushfstring( L,
"Vectors must match matrix." );
7482 arg6 = (
PLINT)lua_tonumber(L, 4);
7485 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7490 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7503 for ( i = 0; i < ii3; i++ )
7527 for ( i = 0; i < ii3; i++ )
7562 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7569 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7582 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7584 lua_pushfstring( L,
"Vectors must match matrix." );
7588 arg6 = (
PLINT)lua_tonumber(L, 4);
7591 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7596 arg9 = (
PLINT)lua_tonumber(L, 6);
7598 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7604 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7607 if ( temp12 !=
Alen )
7609 lua_pushfstring( L,
"Tables must be of same length." );
7613 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);
7626 for ( i = 0; i < ii3; i++ )
7656 for ( i = 0; i < ii3; i++ )
7691 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7698 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7711 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7713 lua_pushfstring( L,
"Vectors must match matrix." );
7717 arg6 = (
PLINT)lua_tonumber(L, 4);
7720 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7725 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7738 for ( i = 0; i < ii3; i++ )
7762 for ( i = 0; i < ii3; i++ )
7793 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plsurf3dl",4,
"PLINT");
7794 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plsurf3dl",6,
"PLINT");
7797 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7804 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7817 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7819 lua_pushfstring( L,
"Vectors must match matrix." );
7823 arg6 = (
PLINT)lua_tonumber(L, 4);
7826 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7831 arg9 = (
PLINT)lua_tonumber(L, 6);
7833 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7839 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7842 if ( temp12 !=
Alen )
7844 lua_pushfstring( L,
"Tables must be of same length." );
7848 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);
7861 for ( i = 0; i < ii3; i++ )
7891 for ( i = 0; i < ii3; i++ )
7912 int *arg1 = (
int *) 0 ;
7913 char **arg2 = (
char **) 0 ;
7918 if(!lua_istable(L,1))
SWIG_fail_arg(
"plparseopts",1,
"int *");
7919 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plparseopts",2,
"PLINT");
7928 lua_rawgeti( L, 1, i );
7929 if ( lua_isnil( L, -1 ) )
7942 for ( i = 0; i < n; i++ )
7944 lua_rawgeti( L, 1, i );
7945 if ( lua_isstring( L, -1 ) )
7947 arg2[i] = (
char *) lua_tostring( L, -1 );
7952 lua_pushfstring( L,
"List items must be strings" );
7960 arg3 = (
PLINT)lua_tonumber(L, 2);
7962 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
7988 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
7994 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
7997 if ( temp3 !=
Alen )
7999 lua_pushfstring( L,
"Tables must be of same length." );
8003 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
8041 arg1 = (
PLINT)lua_tonumber(L, 1);
8042 arg2 = (
PLFLT)lua_tonumber(L, 2);
8043 arg3 = (
PLFLT)lua_tonumber(L, 3);
8044 arg4 = (
PLFLT)lua_tonumber(L, 4);
8045 arg5 = (
PLFLT)lua_tonumber(L, 5);
8046 plpath(arg1,arg2,arg3,arg4,arg5);
8070 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8076 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8079 if ( temp3 !=
Alen )
8081 lua_pushfstring( L,
"Tables must be of same length." );
8085 arg4 = (
PLINT)lua_tonumber(L, 3);
8086 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
8124 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8130 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8133 if ( temp3 !=
Alen )
8135 lua_pushfstring( L,
"Tables must be of same length." );
8140 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8143 if ( temp4 !=
Alen )
8145 lua_pushfstring( L,
"Tables must be of same length." );
8149 arg5 = (
PLINT)lua_tonumber(L, 4);
8150 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
8196 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8202 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8205 if ( temp3 !=
Alen )
8207 lua_pushfstring( L,
"Tables must be of same length." );
8212 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8215 if ( temp4 !=
Alen )
8217 lua_pushfstring( L,
"Tables must be of same length." );
8222 arg5 = (
PLINT *) LUA_get_int_num_array_var( L, 4, &temp5 );
8225 if ( temp5 <
Alen - 1 )
8227 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8231 arg6 = (
PLBOOL)lua_tonumber(L, 5);
8232 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
8276 arg1 = (
PLINT)lua_tonumber(L, 1);
8277 arg2 = (
PLINT)lua_tonumber(L, 2);
8296 arg1 = (
PLINT)lua_tonumber(L, 1);
8316 char *arg6 = (
char *) 0 ;
8325 arg1 = (
PLFLT)lua_tonumber(L, 1);
8326 arg2 = (
PLFLT)lua_tonumber(L, 2);
8327 arg3 = (
PLFLT)lua_tonumber(L, 3);
8328 arg4 = (
PLFLT)lua_tonumber(L, 4);
8329 arg5 = (
PLFLT)lua_tonumber(L, 5);
8330 arg6 = (
char *)lua_tostring(L, 6);
8331 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
8355 char *arg11 = (
char *) 0 ;
8367 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plptex3",10,
"PLFLT");
8369 arg1 = (
PLFLT)lua_tonumber(L, 1);
8370 arg2 = (
PLFLT)lua_tonumber(L, 2);
8371 arg3 = (
PLFLT)lua_tonumber(L, 3);
8372 arg4 = (
PLFLT)lua_tonumber(L, 4);
8373 arg5 = (
PLFLT)lua_tonumber(L, 5);
8374 arg6 = (
PLFLT)lua_tonumber(L, 6);
8375 arg7 = (
PLFLT)lua_tonumber(L, 7);
8376 arg8 = (
PLFLT)lua_tonumber(L, 8);
8377 arg9 = (
PLFLT)lua_tonumber(L, 9);
8378 arg10 = (
PLFLT)lua_tonumber(L, 10);
8379 arg11 = (
char *)lua_tostring(L, 11);
8380 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
8398 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
8444 arg1 = (
PLFLT)lua_tonumber(L, 1);
8445 arg2 = (
PLFLT)lua_tonumber(L, 2);
8446 arg3 = (
PLFLT)lua_tonumber(L, 3);
8447 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
8449 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
8450 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
8451 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
8470 arg1 = (
PLFLT)lua_tonumber(L, 1);
8471 arg2 = (
PLFLT)lua_tonumber(L, 2);
8496 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8502 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8505 if ( temp2 !=
Alen )
8507 lua_pushfstring( L,
"Tables must be of same length." );
8512 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8515 if ( temp3 !=
Alen )
8517 lua_pushfstring( L,
"Tables must be of same length." );
8522 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8565 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8571 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8574 if ( temp2 !=
Alen )
8576 lua_pushfstring( L,
"Tables must be of same length." );
8581 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8584 if ( temp3 !=
Alen )
8586 lua_pushfstring( L,
"Tables must be of same length." );
8592 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8597 lua_pushfstring( L,
"Tables must be of same length." );
8602 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8643 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap0n",1,
"PLINT");
8644 arg1 = (
PLINT)lua_tonumber(L, 1);
8669 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8675 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8678 if ( temp2 !=
Alen )
8680 lua_pushfstring( L,
"Tables must be of same length." );
8685 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8688 if ( temp3 !=
Alen )
8690 lua_pushfstring( L,
"Tables must be of same length." );
8695 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8738 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8744 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8747 if ( temp2 !=
Alen )
8749 lua_pushfstring( L,
"Tables must be of same length." );
8754 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8757 if ( temp3 !=
Alen )
8759 lua_pushfstring( L,
"Tables must be of same length." );
8765 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8770 lua_pushfstring( L,
"Tables must be of same length." );
8775 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8829 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1l",1,
"PLBOOL");
8830 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8833 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8839 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8842 if ( temp4 !=
Alen )
8844 lua_pushfstring( L,
"Tables must be of same length." );
8849 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8852 if ( temp5 !=
Alen )
8854 lua_pushfstring( L,
"Tables must be of same length." );
8859 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8862 if ( temp6 !=
Alen )
8864 lua_pushfstring( L,
"Tables must be of same length." );
8868 if(lua_gettop(L)>=6){
8870 if ( lua_isnil( L, 6 ) )
8876 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 6, &temp7 );
8879 if ( temp7 <
Alen - 1 )
8881 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8887 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
8949 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1la",1,
"PLBOOL");
8950 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8953 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8959 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8962 if ( temp4 !=
Alen )
8964 lua_pushfstring( L,
"Tables must be of same length." );
8969 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8972 if ( temp5 !=
Alen )
8974 lua_pushfstring( L,
"Tables must be of same length." );
8979 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8982 if ( temp6 !=
Alen )
8984 lua_pushfstring( L,
"Tables must be of same length." );
8989 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp7 );
8992 if ( temp7 !=
Alen )
8994 lua_pushfstring( L,
"Tables must be of same length." );
8998 if(lua_gettop(L)>=7){
9000 if ( lua_isnil( L, 7 ) )
9006 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp8 );
9009 if ( temp8 <
Alen - 1 )
9011 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
9017 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
9070 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1n",1,
"PLINT");
9071 arg1 = (
PLINT)lua_tonumber(L, 1);
9090 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1_range",1,
"PLFLT");
9091 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscmap1_range",2,
"PLFLT");
9092 arg1 = (
PLFLT)lua_tonumber(L, 1);
9093 arg2 = (
PLFLT)lua_tonumber(L, 2);
9118 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
9119 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
9142 arg1 = (
PLINT)lua_tonumber(L, 1);
9143 arg2 = (
PLINT)lua_tonumber(L, 2);
9144 arg3 = (
PLINT)lua_tonumber(L, 3);
9145 arg4 = (
PLINT)lua_tonumber(L, 4);
9172 arg1 = (
PLINT)lua_tonumber(L, 1);
9173 arg2 = (
PLINT)lua_tonumber(L, 2);
9174 arg3 = (
PLINT)lua_tonumber(L, 3);
9175 arg4 = (
PLINT)lua_tonumber(L, 4);
9176 arg5 = (
PLFLT)lua_tonumber(L, 5);
9177 plscol0a(arg1,arg2,arg3,arg4,arg5);
9199 arg1 = (
PLINT)lua_tonumber(L, 1);
9200 arg2 = (
PLINT)lua_tonumber(L, 2);
9201 arg3 = (
PLINT)lua_tonumber(L, 3);
9222 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscolbga",1,
"PLINT");
9223 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscolbga",2,
"PLINT");
9224 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plscolbga",3,
"PLINT");
9225 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plscolbga",4,
"PLFLT");
9226 arg1 = (
PLINT)lua_tonumber(L, 1);
9227 arg2 = (
PLINT)lua_tonumber(L, 2);
9228 arg3 = (
PLINT)lua_tonumber(L, 3);
9229 arg4 = (
PLFLT)lua_tonumber(L, 4);
9248 arg1 = (
PLINT)lua_tonumber(L, 1);
9266 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscompression",1,
"PLINT");
9267 arg1 = (
PLINT)lua_tonumber(L, 1);
9282 char *arg1 = (
char *) 0 ;
9286 arg1 = (
char *)lua_tostring(L, 1);
9287 plsdev((
char const *)arg1);
9311 arg1 = (
PLFLT)lua_tonumber(L, 1);
9312 arg2 = (
PLFLT)lua_tonumber(L, 2);
9313 arg3 = (
PLFLT)lua_tonumber(L, 3);
9314 arg4 = (
PLFLT)lua_tonumber(L, 4);
9343 arg1 = (
PLINT)lua_tonumber(L, 1);
9344 arg2 = (
PLINT)lua_tonumber(L, 2);
9345 arg3 = (
PLINT)lua_tonumber(L, 3);
9346 arg4 = (
PLINT)lua_tonumber(L, 4);
9347 arg5 = (
PLFLT)lua_tonumber(L, 5);
9348 arg6 = (
PLFLT)lua_tonumber(L, 6);
9349 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
9367 arg1 = (
PLFLT)lua_tonumber(L, 1);
9392 arg1 = (
PLFLT)lua_tonumber(L, 1);
9393 arg2 = (
PLFLT)lua_tonumber(L, 2);
9394 arg3 = (
PLFLT)lua_tonumber(L, 3);
9395 arg4 = (
PLFLT)lua_tonumber(L, 4);
9420 arg1 = (
PLFLT)lua_tonumber(L, 1);
9421 arg2 = (
PLFLT)lua_tonumber(L, 2);
9422 arg3 = (
PLFLT)lua_tonumber(L, 3);
9423 arg4 = (
PLFLT)lua_tonumber(L, 4);
9441 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plseed",1,
"unsigned int");
9443 arg1 = (
unsigned int)lua_tonumber(L, 1);
9462 arg1 = (lua_tostring(L, 1))[0];
9477 char *arg1 = (
char *) 0 ;
9478 char *arg2 = (
char *) 0 ;
9484 arg1 = (
char *)lua_tostring(L, 1);
9485 arg2 = (
char *)lua_tostring(L, 2);
9486 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
9487 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
9508 arg1 = (
PLINT)lua_tonumber(L, 1);
9509 arg2 = (
PLINT)lua_tonumber(L, 2);
9510 arg3 = (
PLINT)lua_tonumber(L, 3);
9528 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plsfci",1,
"PLUNICODE");
9545 char *arg1 = (
char *) 0 ;
9549 arg1 = (
char *)lua_tostring(L, 1);
9572 arg1 = (
PLINT)lua_tonumber(L, 1);
9573 arg2 = (
PLINT)lua_tonumber(L, 2);
9574 arg3 = (
PLINT)lua_tonumber(L, 3);
9611 cgrid117.
xg = cgrid117.
yg = cgrid117.
zg = NULL;
9612 cgrid117.
nx = cgrid117.
ny = cgrid117.
nz = 0;
9613 cgrid217.
xg = cgrid217.
yg = cgrid217.
zg = NULL;
9614 cgrid217.
nx = cgrid217.
ny = 0;
9636 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshades",10,
"PLBOOL");
9646 arg5 = (
PLFLT)lua_tonumber(L, 2);
9647 arg6 = (
PLFLT)lua_tonumber(L, 3);
9648 arg7 = (
PLFLT)lua_tonumber(L, 4);
9649 arg8 = (
PLFLT)lua_tonumber(L, 5);
9652 arg9 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
9655 arg10 =
Alen = temp;
9657 arg11 = (
PLFLT)lua_tonumber(L, 7);
9658 arg12 = (
PLINT)lua_tonumber(L, 8);
9659 arg13 = (
PLFLT)lua_tonumber(L, 9);
9660 arg15 = (
PLBOOL)lua_tonumber(L, 10);
9661 if(lua_gettop(L)>=11){
9666 if ( lua_isstring( L, 11 ) )
9668 const char* funcstr = lua_tostring( L, 11 );
9669 if ( strcmp(
"pltr0", funcstr ) == 0 )
9673 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9677 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9692 if(lua_gettop(L)>=12){
9697 lua_pushstring( L,
"xg" );
9698 lua_gettable( L, 12 );
9699 if ( !lua_istable( L, -1 ) )
9702 lua_pushstring( L,
"expected a table xg" );
9705 lua_rawgeti( L, -1, 1 );
9706 if ( lua_istable( L, -1 ) )
9708 else if ( lua_isnumber( L, -1 ) )
9714 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9718 if ( gridmode == 1 )
9720 cgrid117.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9728 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9741 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9744 lua_pushfstring( L,
"Vectors must match matrix." );
9752 lua_pushstring( L,
"yg" );
9753 lua_gettable( L, 12 );
9754 if ( !lua_istable( L, -1 ) )
9757 lua_pushstring( L,
"expected a table yg" );
9760 lua_rawgeti( L, -1, 1 );
9761 if ( gridmode == 2 )
9763 if ( !lua_istable( L, -1 ) )
9767 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9773 if ( !lua_isnumber( L, -1 ) )
9777 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9782 if ( gridmode == 1 )
9784 cgrid117.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9792 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9805 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9808 lua_pushfstring( L,
"Vectors must match matrix." );
9815 if ( gridmode == 1 )
9817 else if ( gridmode == 2 )
9821 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
9828 for ( i = 0; i < ii1; i++ )
9847 for ( i = 0; i <
Xlen; i++ )
9853 for ( i = 0; i <
Xlen; i++ )
9868 for ( i = 0; i < ii1; i++ )
9887 for ( i = 0; i <
Xlen; i++ )
9893 for ( i = 0; i <
Xlen; i++ )
9931 cgrid121.
xg = cgrid121.
yg = cgrid121.
zg = NULL;
9932 cgrid121.
nx = cgrid121.
ny = cgrid121.
nz = 0;
9933 cgrid221.
xg = cgrid221.
yg = cgrid221.
zg = NULL;
9934 cgrid221.
nx = cgrid221.
ny = 0;
9957 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshade",10,
"PLFLT");
9958 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plshade",11,
"PLINT");
9959 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plshade",12,
"PLFLT");
9960 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plshade",13,
"PLINT");
9961 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"plshade",14,
"PLFLT");
9962 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"plshade",15,
"PLBOOL");
9972 arg5 = (
PLFLT)lua_tonumber(L, 2);
9973 arg6 = (
PLFLT)lua_tonumber(L, 3);
9974 arg7 = (
PLFLT)lua_tonumber(L, 4);
9975 arg8 = (
PLFLT)lua_tonumber(L, 5);
9976 arg9 = (
PLFLT)lua_tonumber(L, 6);
9977 arg10 = (
PLFLT)lua_tonumber(L, 7);
9978 arg11 = (
PLINT)lua_tonumber(L, 8);
9979 arg12 = (
PLFLT)lua_tonumber(L, 9);
9980 arg13 = (
PLFLT)lua_tonumber(L, 10);
9981 arg14 = (
PLINT)lua_tonumber(L, 11);
9982 arg15 = (
PLFLT)lua_tonumber(L, 12);
9983 arg16 = (
PLINT)lua_tonumber(L, 13);
9984 arg17 = (
PLFLT)lua_tonumber(L, 14);
9985 arg19 = (
PLBOOL)lua_tonumber(L, 15);
9986 if(lua_gettop(L)>=16){
9991 if ( lua_isstring( L, 16 ) )
9993 const char* funcstr = lua_tostring( L, 16 );
9994 if ( strcmp(
"pltr0", funcstr ) == 0 )
9998 else if ( strcmp(
"pltr1", funcstr ) == 0 )
10002 else if ( strcmp(
"pltr2", funcstr ) == 0 )
10017 if(lua_gettop(L)>=17){
10022 lua_pushstring( L,
"xg" );
10023 lua_gettable( L, 17 );
10024 if ( !lua_istable( L, -1 ) )
10027 lua_pushstring( L,
"expected a table xg" );
10030 lua_rawgeti( L, -1, 1 );
10031 if ( lua_istable( L, -1 ) )
10033 else if ( lua_isnumber( L, -1 ) )
10039 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
10043 if ( gridmode == 1 )
10045 cgrid121.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
10046 if ( !cgrid121.
xg )
10053 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
10061 if ( !cgrid221.
xg )
10066 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10069 lua_pushfstring( L,
"Vectors must match matrix." );
10077 lua_pushstring( L,
"yg" );
10078 lua_gettable( L, 17 );
10079 if ( !lua_istable( L, -1 ) )
10082 lua_pushstring( L,
"expected a table yg" );
10085 lua_rawgeti( L, -1, 1 );
10086 if ( gridmode == 2 )
10088 if ( !lua_istable( L, -1 ) )
10092 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
10098 if ( !lua_isnumber( L, -1 ) )
10102 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
10107 if ( gridmode == 1 )
10109 cgrid121.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
10110 if ( !cgrid121.
yg )
10117 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
10125 if ( !cgrid221.
yg )
10130 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10133 lua_pushfstring( L,
"Vectors must match matrix." );
10140 if ( gridmode == 1 )
10142 else if ( gridmode == 2 )
10146 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
10153 for ( i = 0; i < ii1; i++ )
10169 for ( i = 0; i <
Xlen; i++ )
10175 for ( i = 0; i <
Xlen; i++ )
10190 for ( i = 0; i < ii1; i++ )
10206 for ( i = 0; i <
Xlen; i++ )
10212 for ( i = 0; i <
Xlen; i++ )
10235 if ( lua_isnil( L, 1 ) )
10239 else if ( lua_isstring( L, 1 ) )
10274 arg1 = (
PLFLT)lua_tonumber(L, 1);
10275 arg2 = (
PLFLT)lua_tonumber(L, 2);
10296 arg1 = (
PLFLT)lua_tonumber(L, 1);
10297 arg2 = (
PLFLT)lua_tonumber(L, 2);
10316 arg1 = (
PLINT)lua_tonumber(L, 1);
10345 arg1 = (
PLFLT)lua_tonumber(L, 1);
10346 arg2 = (
PLFLT)lua_tonumber(L, 2);
10347 arg3 = (
PLINT)lua_tonumber(L, 3);
10348 arg4 = (
PLINT)lua_tonumber(L, 4);
10349 arg5 = (
PLINT)lua_tonumber(L, 5);
10350 arg6 = (
PLINT)lua_tonumber(L, 6);
10351 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
10365 char *arg1 = (
char *) 0 ;
10369 arg1 = (
char *)lua_tostring(L, 1);
10384 char *arg1 = (
char *) 0 ;
10389 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plspal1",2,
"PLBOOL");
10390 arg1 = (
char *)lua_tostring(L, 1);
10391 arg2 = (
PLBOOL)lua_tonumber(L, 2);
10392 plspal1((
char const *)arg1,arg2);
10409 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plspause",1,
"PLBOOL");
10410 arg1 = (
PLBOOL)lua_tonumber(L, 1);
10429 arg1 = (
PLINT)lua_tonumber(L, 1);
10450 arg1 = (
PLINT)lua_tonumber(L, 1);
10451 arg2 = (
PLINT)lua_tonumber(L, 2);
10472 arg1 = (
PLFLT)lua_tonumber(L, 1);
10473 arg2 = (
PLFLT)lua_tonumber(L, 2);
10494 arg1 = (
PLINT)lua_tonumber(L, 1);
10495 arg2 = (
PLINT)lua_tonumber(L, 2);
10510 char *arg1 = (
char *) 0 ;
10518 arg1 = (
char *)lua_tostring(L, 1);
10519 arg2 = (
PLINT)lua_tonumber(L, 2);
10520 arg3 = (
PLINT)lua_tonumber(L, 3);
10521 plstart((
char const *)arg1,arg2,arg3);
10546 if(lua_gettop(L)>=1){
10551 if ( lua_isstring( L, 1 ) )
10553 const char* funcstr = lua_tostring( L, 1 );
10579 char *arg4 = (
char *) 0 ;
10586 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10589 arg1 =
Alen = temp;
10592 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10595 if ( temp3 !=
Alen )
10597 lua_pushfstring( L,
"Tables must be of same length." );
10601 arg4 = (
char *)lua_tostring(L, 3);
10602 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
10632 char *arg5 = (
char *) 0 ;
10640 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10643 arg1 =
Alen = temp;
10646 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10649 if ( temp3 !=
Alen )
10651 lua_pushfstring( L,
"Tables must be of same length." );
10656 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
10659 if ( temp4 !=
Alen )
10661 lua_pushfstring( L,
"Tables must be of same length." );
10665 arg5 = (
char *)lua_tostring(L, 4);
10666 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
10704 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripa",1,
"PLINT");
10705 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plstripa",2,
"PLINT");
10706 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripa",3,
"PLFLT");
10707 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripa",4,
"PLFLT");
10708 arg1 = (
PLINT)lua_tonumber(L, 1);
10709 arg2 = (
PLINT)lua_tonumber(L, 2);
10710 arg3 = (
PLFLT)lua_tonumber(L, 3);
10711 arg4 = (
PLFLT)lua_tonumber(L, 4);
10727 char *arg2 = (
char *) 0 ;
10728 char *arg3 = (
char *) 0 ;
10743 char *arg18 = (
char *) 0 ;
10744 char *arg19 = (
char *) 0 ;
10745 char *arg20 = (
char *) 0 ;
10757 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripc",3,
"PLFLT");
10758 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripc",4,
"PLFLT");
10759 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plstripc",5,
"PLFLT");
10760 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plstripc",6,
"PLFLT");
10761 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plstripc",7,
"PLFLT");
10762 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plstripc",8,
"PLFLT");
10763 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plstripc",9,
"PLFLT");
10764 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plstripc",10,
"PLBOOL");
10765 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plstripc",11,
"PLBOOL");
10766 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plstripc",12,
"PLINT");
10767 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plstripc",13,
"PLINT");
10768 if(lua_gettop(L)>=16 && !lua_istable(L,16))
SWIG_fail_arg(
"plstripc",16,
"char const *[4]");
10772 arg2 = (
char *)lua_tostring(L, 1);
10773 arg3 = (
char *)lua_tostring(L, 2);
10774 arg4 = (
PLFLT)lua_tonumber(L, 3);
10775 arg5 = (
PLFLT)lua_tonumber(L, 4);
10776 arg6 = (
PLFLT)lua_tonumber(L, 5);
10777 arg7 = (
PLFLT)lua_tonumber(L, 6);
10778 arg8 = (
PLFLT)lua_tonumber(L, 7);
10779 arg9 = (
PLFLT)lua_tonumber(L, 8);
10780 arg10 = (
PLFLT)lua_tonumber(L, 9);
10781 arg11 = (
PLBOOL)lua_tonumber(L, 10);
10782 arg12 = (
PLBOOL)lua_tonumber(L, 11);
10783 arg13 = (
PLINT)lua_tonumber(L, 12);
10784 arg14 = (
PLINT)lua_tonumber(L, 13);
10786 arg15 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &temp15 );
10792 arg16 = (
PLINT *) LUA_get_int_num_array_var( L, 15, &temp16 );
10795 if ( temp16 !=
Alen )
10797 lua_pushfstring( L,
"Tables must be of same length." );
10801 if(lua_gettop(L)>=16){
10808 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10813 lua_pushfstring( L,
"colline and styline args must be length 4." );
10817 arg17 = malloc(
sizeof (
char* ) * 4 );
10818 for ( i = 1; i <= 4; i++ )
10820 lua_rawgeti( L, 16, i );
10821 if ( lua_isstring( L, -1 ) )
10823 arg17[i - 1] = (
char *) lua_tostring( L, -1 );
10828 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10836 if(lua_gettop(L)>=17){
10837 arg18 = (
char *)lua_tostring(L, 17);
10839 if(lua_gettop(L)>=18){
10840 arg19 = (
char *)lua_tostring(L, 18);
10842 if(lua_gettop(L)>=19){
10843 arg20 = (
char *)lua_tostring(L, 19);
10845 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);
10847 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
10857 free( arg17 ); arg17 = NULL;
10874 free( arg17 ); arg17 = NULL;
10887 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripd",1,
"PLINT");
10888 arg1 = (
PLINT)lua_tonumber(L, 1);
10910 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
10916 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
10919 if ( temp3 !=
Alen )
10921 lua_pushfstring( L,
"Tables must be of same length." );
10925 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
10957 arg2 = NULL; arg3 = 0;
10963 if(lua_gettop(L)>=3 && !lua_isnumber(L,3))
SWIG_fail_arg(
"plsvect",3,
"PLBOOL");
10966 if ( lua_isnil( L, 1 ) )
10973 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10979 if(lua_gettop(L)>=2){
10982 if ( lua_isnil( L, 2 ) )
10988 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
10991 if ( temp !=
Alen )
10993 lua_pushfstring( L,
"Tables must be of same length." );
11000 if(lua_gettop(L)>=3){
11001 arg4 = (
PLBOOL)lua_tonumber(L, 3);
11003 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
11033 arg1 = (
PLFLT)lua_tonumber(L, 1);
11034 arg2 = (
PLFLT)lua_tonumber(L, 2);
11035 arg3 = (
PLFLT)lua_tonumber(L, 3);
11036 arg4 = (
PLFLT)lua_tonumber(L, 4);
11037 plsvpa(arg1,arg2,arg3,arg4);
11057 arg1 = (
PLINT)lua_tonumber(L, 1);
11058 arg2 = (
PLINT)lua_tonumber(L, 2);
11079 arg1 = (
PLINT)lua_tonumber(L, 1);
11080 arg2 = (
PLINT)lua_tonumber(L, 2);
11105 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
11108 arg1 =
Alen = temp;
11111 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
11114 if ( temp3 !=
Alen )
11116 lua_pushfstring( L,
"Tables must be of same length." );
11120 arg4 = (
PLINT)lua_tonumber(L, 3);
11121 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
11153 arg1 = (
PLINT)lua_tonumber(L, 1);
11154 arg2 = (
PLINT)lua_tonumber(L, 2);
11185 char *arg1 = (
char *) 0 ;
11189 arg1 = (
char *)lua_tostring(L, 1);
11208 arg1 = (
PLFLT)lua_tonumber(L, 1);
11236 cgrid17.
xg = cgrid17.
yg = cgrid17.
zg = NULL;
11237 cgrid17.
nx = cgrid17.
ny = cgrid17.
nz = 0;
11238 cgrid27.
xg = cgrid27.
yg = cgrid27.
zg = NULL;
11239 cgrid27.
nx = cgrid27.
ny = 0;
11266 if ( ( arg3 !=
Xlen ) || ( arg4 !=
Ylen ) )
11268 lua_pushfstring( L,
"Vectors must match matrix." );
11272 arg5 = (
PLFLT)lua_tonumber(L, 3);
11273 if(lua_gettop(L)>=4){
11278 if ( lua_isstring( L, 4 ) )
11280 const char* funcstr = lua_tostring( L, 4 );
11281 if ( strcmp(
"pltr0", funcstr ) == 0 )
11285 else if ( strcmp(
"pltr1", funcstr ) == 0 )
11289 else if ( strcmp(
"pltr2", funcstr ) == 0 )
11304 if(lua_gettop(L)>=5){
11309 lua_pushstring( L,
"xg" );
11310 lua_gettable( L, 5 );
11311 if ( !lua_istable( L, -1 ) )
11314 lua_pushstring( L,
"expected a table xg" );
11317 lua_rawgeti( L, -1, 1 );
11318 if ( lua_istable( L, -1 ) )
11320 else if ( lua_isnumber( L, -1 ) )
11326 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
11330 if ( gridmode == 1 )
11332 cgrid17.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
11340 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
11353 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11356 lua_pushfstring( L,
"Vectors must match matrix." );
11364 lua_pushstring( L,
"yg" );
11365 lua_gettable( L, 5 );
11366 if ( !lua_istable( L, -1 ) )
11369 lua_pushstring( L,
"expected a table yg" );
11372 lua_rawgeti( L, -1, 1 );
11373 if ( gridmode == 2 )
11375 if ( !lua_istable( L, -1 ) )
11379 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
11385 if ( !lua_isnumber( L, -1 ) )
11389 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
11394 if ( gridmode == 1 )
11396 cgrid17.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
11404 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
11417 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11420 lua_pushfstring( L,
"Vectors must match matrix." );
11427 if ( gridmode == 1 )
11429 else if ( gridmode == 2 )
11433 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
11440 for ( i = 0; i < ii1; i++ )
11450 for ( i = 0; i < ii2; i++ )
11466 for ( i = 0; i <
Xlen; i++ )
11472 for ( i = 0; i <
Xlen; i++ )
11487 for ( i = 0; i < ii1; i++ )
11497 for ( i = 0; i < ii2; i++ )
11513 for ( i = 0; i <
Xlen; i++ )
11519 for ( i = 0; i <
Xlen; i++ )
11543 arg1 = (
PLFLT)lua_tonumber(L, 1);
11544 arg2 = (
PLFLT)lua_tonumber(L, 2);
11545 arg3 = (
PLFLT)lua_tonumber(L, 3);
11546 arg4 = (
PLFLT)lua_tonumber(L, 4);
11547 arg5 = (
PLFLT)lua_tonumber(L, 5);
11548 plvpas(arg1,arg2,arg3,arg4,arg5);
11572 arg1 = (
PLFLT)lua_tonumber(L, 1);
11573 arg2 = (
PLFLT)lua_tonumber(L, 2);
11574 arg3 = (
PLFLT)lua_tonumber(L, 3);
11575 arg4 = (
PLFLT)lua_tonumber(L, 4);
11576 plvpor(arg1,arg2,arg3,arg4);
11630 arg1 = (
PLFLT)lua_tonumber(L, 1);
11631 arg2 = (
PLFLT)lua_tonumber(L, 2);
11632 arg3 = (
PLFLT)lua_tonumber(L, 3);
11633 arg4 = (
PLFLT)lua_tonumber(L, 4);
11634 arg5 = (
PLFLT)lua_tonumber(L, 5);
11635 arg6 = (
PLFLT)lua_tonumber(L, 6);
11636 arg7 = (
PLFLT)lua_tonumber(L, 7);
11637 arg8 = (
PLFLT)lua_tonumber(L, 8);
11638 arg9 = (
PLFLT)lua_tonumber(L, 9);
11639 arg10 = (
PLFLT)lua_tonumber(L, 10);
11640 arg11 = (
PLFLT)lua_tonumber(L, 11);
11641 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
11659 arg1 = (
PLFLT)lua_tonumber(L, 1);
11684 arg1 = (
PLFLT)lua_tonumber(L, 1);
11685 arg2 = (
PLFLT)lua_tonumber(L, 2);
11686 arg3 = (
PLFLT)lua_tonumber(L, 3);
11687 arg4 = (
PLFLT)lua_tonumber(L, 4);
11688 plwind(arg1,arg2,arg3,arg4);
11708 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plxormod",1,
"PLBOOL");
11709 arg1 = (
PLBOOL)lua_tonumber(L, 1);
11712 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
11726 char *arg2 = (
char *) 0 ;
11742 if ( lua_isnil( L, 1 ) )
11746 else if ( lua_isstring( L, 1 ) )
11755 arg2 = (
char *)lua_tostring(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 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
11781 char *arg2 = (
char *) 0 ;
11792 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapline",3,
"PLFLT");
11793 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapline",4,
"PLFLT");
11794 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapline",5,
"PLFLT");
11795 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapline",6,
"PLFLT");
11800 if ( lua_isnil( L, 1 ) )
11804 else if ( lua_isstring( L, 1 ) )
11813 arg2 = (
char *)lua_tostring(L, 2);
11814 arg3 = (
PLFLT)lua_tonumber(L, 3);
11815 arg4 = (
PLFLT)lua_tonumber(L, 4);
11816 arg5 = (
PLFLT)lua_tonumber(L, 5);
11817 arg6 = (
PLFLT)lua_tonumber(L, 6);
11819 if ( lua_isnil( L, 7 ) )
11826 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
11832 plmapline(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11859 char *arg2 = (
char *) 0 ;
11860 char *arg3 = (
char *) 0 ;
11872 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapstring",4,
"PLFLT");
11873 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapstring",5,
"PLFLT");
11874 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapstring",6,
"PLFLT");
11875 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmapstring",7,
"PLFLT");
11880 if ( lua_isnil( L, 1 ) )
11884 else if ( lua_isstring( L, 1 ) )
11893 arg2 = (
char *)lua_tostring(L, 2);
11894 arg3 = (
char *)lua_tostring(L, 3);
11895 arg4 = (
PLFLT)lua_tonumber(L, 4);
11896 arg5 = (
PLFLT)lua_tonumber(L, 5);
11897 arg6 = (
PLFLT)lua_tonumber(L, 6);
11898 arg7 = (
PLFLT)lua_tonumber(L, 7);
11900 if ( lua_isnil( L, 8 ) )
11907 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp8 );
11913 plmapstring(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,(
int const *)arg8,arg9);
11940 char *arg2 = (
char *) 0 ;
11944 char *arg6 = (
char *) 0 ;
11953 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmaptex",3,
"PLFLT");
11954 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmaptex",4,
"PLFLT");
11955 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmaptex",5,
"PLFLT");
11957 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmaptex",7,
"PLFLT");
11958 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plmaptex",8,
"PLFLT");
11959 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plmaptex",9,
"PLFLT");
11960 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plmaptex",10,
"PLFLT");
11961 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plmaptex",11,
"PLINT");
11966 if ( lua_isnil( L, 1 ) )
11970 else if ( lua_isstring( L, 1 ) )
11979 arg2 = (
char *)lua_tostring(L, 2);
11980 arg3 = (
PLFLT)lua_tonumber(L, 3);
11981 arg4 = (
PLFLT)lua_tonumber(L, 4);
11982 arg5 = (
PLFLT)lua_tonumber(L, 5);
11983 arg6 = (
char *)lua_tostring(L, 6);
11984 arg7 = (
PLFLT)lua_tonumber(L, 7);
11985 arg8 = (
PLFLT)lua_tonumber(L, 8);
11986 arg9 = (
PLFLT)lua_tonumber(L, 9);
11987 arg10 = (
PLFLT)lua_tonumber(L, 10);
11988 arg11 = (
PLINT)lua_tonumber(L, 11);
11989 plmaptex(arg1,(
char const *)arg2,arg3,arg4,arg5,(
char const *)arg6,arg7,arg8,arg9,arg10,arg11);
12010 char *arg2 = (
char *) 0 ;
12021 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapfill",3,
"PLFLT");
12022 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapfill",4,
"PLFLT");
12023 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapfill",5,
"PLFLT");
12024 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapfill",6,
"PLFLT");
12029 if ( lua_isnil( L, 1 ) )
12033 else if ( lua_isstring( L, 1 ) )
12042 arg2 = (
char *)lua_tostring(L, 2);
12043 arg3 = (
PLFLT)lua_tonumber(L, 3);
12044 arg4 = (
PLFLT)lua_tonumber(L, 4);
12045 arg5 = (
PLFLT)lua_tonumber(L, 5);
12046 arg6 = (
PLFLT)lua_tonumber(L, 6);
12048 if ( lua_isnil( L, 7 ) )
12055 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
12061 plmapfill(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
12096 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plmeridians",2,
"PLFLT");
12097 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmeridians",3,
"PLFLT");
12098 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmeridians",4,
"PLFLT");
12099 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmeridians",5,
"PLFLT");
12100 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmeridians",6,
"PLFLT");
12101 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmeridians",7,
"PLFLT");
12106 if ( lua_isnil( L, 1 ) )
12110 else if ( lua_isstring( L, 1 ) )
12119 arg2 = (
PLFLT)lua_tonumber(L, 2);
12120 arg3 = (
PLFLT)lua_tonumber(L, 3);
12121 arg4 = (
PLFLT)lua_tonumber(L, 4);
12122 arg5 = (
PLFLT)lua_tonumber(L, 5);
12123 arg6 = (
PLFLT)lua_tonumber(L, 6);
12124 arg7 = (
PLFLT)lua_tonumber(L, 7);
12169 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plimage",10,
"PLFLT");
12170 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plimage",11,
"PLFLT");
12180 arg4 = (
PLFLT)lua_tonumber(L, 2);
12181 arg5 = (
PLFLT)lua_tonumber(L, 3);
12182 arg6 = (
PLFLT)lua_tonumber(L, 4);
12183 arg7 = (
PLFLT)lua_tonumber(L, 5);
12184 arg8 = (
PLFLT)lua_tonumber(L, 6);
12185 arg9 = (
PLFLT)lua_tonumber(L, 7);
12186 arg10 = (
PLFLT)lua_tonumber(L, 8);
12187 arg11 = (
PLFLT)lua_tonumber(L, 9);
12188 arg12 = (
PLFLT)lua_tonumber(L, 10);
12189 arg13 = (
PLFLT)lua_tonumber(L, 11);
12190 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
12197 for ( i = 0; i < ii1; i++ )
12212 for ( i = 0; i < ii1; i++ )
12242 cgrid113.
xg = cgrid113.
yg = cgrid113.
zg = NULL;
12243 cgrid113.
nx = cgrid113.
ny = cgrid113.
nz = 0;
12244 cgrid213.
xg = cgrid213.
yg = cgrid213.
zg = NULL;
12245 cgrid213.
nx = cgrid213.
ny = 0;
12254 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plimagefr",2,
"PLFLT");
12255 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plimagefr",3,
"PLFLT");
12256 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plimagefr",4,
"PLFLT");
12257 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plimagefr",5,
"PLFLT");
12258 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plimagefr",6,
"PLFLT");
12259 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plimagefr",7,
"PLFLT");
12260 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plimagefr",8,
"PLFLT");
12261 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plimagefr",9,
"PLFLT");
12271 arg4 = (
PLFLT)lua_tonumber(L, 2);
12272 arg5 = (
PLFLT)lua_tonumber(L, 3);
12273 arg6 = (
PLFLT)lua_tonumber(L, 4);
12274 arg7 = (
PLFLT)lua_tonumber(L, 5);
12275 arg8 = (
PLFLT)lua_tonumber(L, 6);
12276 arg9 = (
PLFLT)lua_tonumber(L, 7);
12277 arg10 = (
PLFLT)lua_tonumber(L, 8);
12278 arg11 = (
PLFLT)lua_tonumber(L, 9);
12279 if(lua_gettop(L)>=10){
12284 if ( lua_isstring( L, 10 ) )
12286 const char* funcstr = lua_tostring( L, 10 );
12287 if ( strcmp(
"pltr0", funcstr ) == 0 )
12291 else if ( strcmp(
"pltr1", funcstr ) == 0 )
12295 else if ( strcmp(
"pltr2", funcstr ) == 0 )
12310 if(lua_gettop(L)>=11){
12315 lua_pushstring( L,
"xg" );
12316 lua_gettable( L, 11 );
12317 if ( !lua_istable( L, -1 ) )
12320 lua_pushstring( L,
"expected a table xg" );
12323 lua_rawgeti( L, -1, 1 );
12324 if ( lua_istable( L, -1 ) )
12326 else if ( lua_isnumber( L, -1 ) )
12332 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
12336 if ( gridmode == 1 )
12338 cgrid113.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
12339 if ( !cgrid113.
xg )
12346 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
12354 if ( !cgrid213.
xg )
12359 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12362 lua_pushfstring( L,
"Vectors must match matrix." );
12370 lua_pushstring( L,
"yg" );
12371 lua_gettable( L, 11 );
12372 if ( !lua_istable( L, -1 ) )
12375 lua_pushstring( L,
"expected a table yg" );
12378 lua_rawgeti( L, -1, 1 );
12379 if ( gridmode == 2 )
12381 if ( !lua_istable( L, -1 ) )
12385 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
12391 if ( !lua_isnumber( L, -1 ) )
12395 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
12400 if ( gridmode == 1 )
12402 cgrid113.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
12403 if ( !cgrid113.
yg )
12410 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
12418 if ( !cgrid213.
yg )
12423 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12426 lua_pushfstring( L,
"Vectors must match matrix." );
12433 if ( gridmode == 1 )
12435 else if ( gridmode == 2 )
12439 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
12446 for ( i = 0; i < ii1; i++ )
12462 for ( i = 0; i <
Xlen; i++ )
12468 for ( i = 0; i <
Xlen; i++ )
12483 for ( i = 0; i < ii1; i++ )
12499 for ( i = 0; i <
Xlen; i++ )
12505 for ( i = 0; i <
Xlen; i++ )
12549 char *arg1 = (
char *) 0 ;
12550 char *arg2 = (
char *) 0 ;
12555 arg1 = (
char *)lua_tostring(L, 1);
12556 arg2 = (
char *)lua_tostring(L, 2);
12557 plSetUsage((
char const *)arg1,(
char const *)arg2);
12610 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
12611 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
12617 for ( i = 0; i < ii1; i++ )
12632 for ( i = 0; i < ii1; i++ )
12655 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
12668 char *arg1 = (
char *) 0 ;
12671 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plwarn",1,
"char const *");
12673 arg1 = (
char *) lua_tostring( L, 1 );
12675 plwarn((
char const *)arg1);
12689 char *arg1 = (
char *) 0 ;
12692 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plabort",1,
"char const *");
12694 arg1 = (
char *) lua_tostring( L, 1 );
13209 #define SWIGRUNTIME_DEBUG
13232 if (!module_head) {
13245 }
while (iter!= module_head);
13256 if (init == 0)
return;
13259 #ifdef SWIGRUNTIME_DEBUG
13260 printf(
"SWIG_InitializeModule: size %lu\n", (
unsigned long)
swig_module.
size);
13267 #ifdef SWIGRUNTIME_DEBUG
13277 #ifdef SWIGRUNTIME_DEBUG
13278 printf(
"SWIG_InitializeModule: found type %s\n", type->
name);
13282 #ifdef SWIGRUNTIME_DEBUG
13283 printf(
"SWIG_InitializeModule: found and overwrite type %s \n", type->
name);
13292 while (cast->
type) {
13296 #ifdef SWIGRUNTIME_DEBUG
13297 printf(
"SWIG_InitializeModule: look cast %s\n", cast->
type->
name);
13301 #ifdef SWIGRUNTIME_DEBUG
13302 if (ret) printf(
"SWIG_InitializeModule: found cast %s\n", ret->
name);
13307 #ifdef SWIGRUNTIME_DEBUG
13308 printf(
"SWIG_InitializeModule: skip old type %s\n", ret->
name);
13315 #ifdef SWIGRUNTIME_DEBUG
13316 if (ocast) printf(
"SWIG_InitializeModule: skip old cast %s\n", ret->
name);
13318 if (!ocast) ret = 0;
13323 #ifdef SWIGRUNTIME_DEBUG
13324 printf(
"SWIG_InitializeModule: adding cast %s\n", cast->
type->
name);
13339 #ifdef SWIGRUNTIME_DEBUG
13340 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13345 while (cast->
type) {
13346 printf(
"SWIG_InitializeModule: cast type %s\n", cast->
type->
name);
13350 printf(
"---- Total casts: %d\n",j);
13352 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13365 static int init_run = 0;
13367 if (init_run)
return;
13378 equiv = equiv->
next;
13403 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
13409 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13411 int globalRegister = 0;
13419 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)) || defined(SWIG_LUA_ELUA_EMULATE)
13425 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13432 #ifdef SWIG_LUA_MODULE_GLOBAL
13433 globalRegister = 1;
13437 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
13441 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
13449 #if defined(SWIG_LUA_ELUA_EMULATE)
13452 SWIG_Lua_elua_emulate_register_clear(L);
13453 if(globalRegister) {
13455 lua_pushvalue(L,-2);
13462 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13482 " pl = plplotluac";
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 plmaptex(PLMAPFORM_callback mapform, PLCHAR_VECTOR name, PLFLT dx, PLFLT dy, PLFLT just, PLCHAR_VECTOR text, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy, PLINT plotentry)
void plmapstring(PLMAPFORM_callback mapform, PLCHAR_VECTOR name, PLCHAR_VECTOR string, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy, PLINT_VECTOR plotentries, PLINT nplotentries)
void plmapfill(PLMAPFORM_callback mapform, PLCHAR_VECTOR name, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy, PLINT_VECTOR plotentries, PLINT nplotentries)
void plmeridians(PLMAPFORM_callback mapform, PLFLT dlong, PLFLT dlat, PLFLT minlong, PLFLT maxlong, PLFLT minlat, PLFLT maxlat)
void plmap(PLMAPFORM_callback mapform, PLCHAR_VECTOR name, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy)
void plmapline(PLMAPFORM_callback mapform, PLCHAR_VECTOR name, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy, PLINT_VECTOR plotentries, PLINT nplotentries)
void plMinMax2dGrid(PLFLT_MATRIX f, PLINT nx, PLINT ny, PLFLT *fnmax, PLFLT *fnmin)
PLINT plGetCursor(PLGraphicsIn *plg)
#define pl_setcontlabelformat
#define pl_setcontlabelparam
SWIGRUNTIME int SWIG_Lua_class_equal(lua_State *L)
static int _wrap_ptex(lua_State *L)
static int _wrap_PLGraphicsIn_wX_get(lua_State *L)
static int _wrap_surf3dl(lua_State *L)
SWIGRUNTIME char * SWIG_PackData(char *c, void *ptr, size_t sz)
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)
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)
SWIGRUNTIME char * SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz)
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)
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
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)
SWIGRUNTIMEINLINE void * SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory)
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 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)
static int _wrap_colorbar(lua_State *L)
static int _wrap_flush(lua_State *L)
SWIGRUNTIME const char * SWIG_Lua_typename(lua_State *L, int tp)
static int _wrap_sym(lua_State *L)
SWIGRUNTIME const char * SWIG_TypePrettyName(const swig_type_info *type)
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)
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)
SWIGINTERN void ** SWIG_get_ptr_array_var(lua_State *L, int index, int *size, swig_type_info *type)
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)
SWIGRUNTIME swig_type_info * SWIG_TypeQueryModule(swig_module_info *start, swig_module_info *end, const char *name)
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)
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[]
void(* mapform_func)(PLINT, PLFLT *, PLFLT *)
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)
SWIGRUNTIMEINLINE const char * SWIG_TypeName(const swig_type_info *ty)
static int _wrap_famadv(lua_State *L)
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)
static swig_lua_class * swig_SwigModule_classes[]
SWIGINTERN int SWIG_itable_size(lua_State *L, int index)
static int _wrap_env(lua_State *L)
static int _wrap_PLGraphicsIn_string_get(lua_State *L)
void(* ct_func)(PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer)
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
SWIGRUNTIME int SWIG_TypeCmp(const char *nb, const char *tb)
static int _wrap_stripc(lua_State *L)
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[]
SWIGINTERN void ** SWIG_get_ptr_array_fixed(lua_State *L, int index, int size, swig_type_info *type)
SWIGRUNTIME void SWIG_InitializeModule(void *clientdata)
void(* fill_func)(PLINT, const PLFLT *, const PLFLT *)
SWIGRUNTIME const char * SWIG_UnpackData(const char *c, void *ptr, size_t sz)
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)
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)
SWIGRUNTIME swig_cast_info * SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty)
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
static int _wrap_vasp(lua_State *L)
#define SWIG_NewPointerObj(L, ptr, type, owner)
static int _wrap_imagefr(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 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)
static int _wrap_w3d(lua_State *L)
void(* label_func)(PLINT, PLFLT, char *, PLINT, PLPointer)
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)
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[]
SWIGRUNTIME const char * SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name)
void *(* swig_converter_func)(void *, int *)
#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)
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)
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)
static swig_type_info _swigt__p_PLGraphicsIn
SWIGRUNTIME swig_module_info * SWIG_Lua_GetModule(lua_State *L)
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)
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[]
static int _wrap_eop(lua_State *L)
SWIGRUNTIME void SWIG_PropagateClientData(void)
SWIGRUNTIME swig_cast_info * SWIG_TypeCheck(const char *c, swig_type_info *ty)
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[]
#define LUA_ALLOC_ARRAY(TYPE, LEN)
static int _wrap_prec(lua_State *L)
static int _wrap_sdev(lua_State *L)
#define SWIG_isptrtype(L, I)
static int _wrap_PLGraphicsIn_pX_set(lua_State *L)
#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
SWIGRUNTIME swig_type_info * SWIG_MangledTypeQueryModule(swig_module_info *start, swig_module_info *end, const char *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)
void(* pltr_func)(PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer)
static int _wrap_vsta(lua_State *L)
static swig_cast_info _swigc__p_PLGraphicsIn[]
static int _wrap_sfnam(lua_State *L)
SWIGRUNTIME swig_type_info * SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr)
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)
PLFLT(* f2eval_func)(PLINT, PLINT, PLPointer)
SWIGRUNTIME const char * SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name)
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)
static int _wrap_svpa(lua_State *L)
static int _wrap_scmap0(lua_State *L)
struct swig_type_info *(* swig_dycast_func)(void **)
static int _wrap_vpas(lua_State *L)
static int _wrap_schr(lua_State *L)
static int _wrap_sxax(lua_State *L)
PLINT(* defined_func)(PLFLT, PLFLT)
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)
static int _wrap_sdiori(lua_State *L)
static int _proxy__wrap_new_PLGraphicsIn(lua_State *L)
SWIGRUNTIME char * SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz)
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
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