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 190 #define SWIG_POINTER_OWN 0x1 273 #define SWIG_ERROR (-1) 274 #define SWIG_IsOK(r) (r >= 0) 275 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError) 278 #define SWIG_CASTRANKLIMIT (1 << 8) 280 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1) 282 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1) 284 #define SWIG_BADOBJ (SWIG_ERROR) 285 #define SWIG_OLDOBJ (SWIG_OK) 286 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK) 287 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK) 289 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r) 290 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r) 291 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK)) 292 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r) 293 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r) 294 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK)) 297 #if defined(SWIG_CASTRANK_MODE) 298 # ifndef SWIG_TypeRank 299 # define SWIG_TypeRank unsigned long 301 # ifndef SWIG_MAXCASTRANK 302 # define SWIG_MAXCASTRANK (2) 304 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1) 305 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK) 310 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
313 # define SWIG_AddCast(r) (r) 314 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0) 324 typedef void *(*swig_converter_func)(
void *,
int *);
366 const char *f2,
const char *l2) {
367 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
368 while ((*f1 ==
' ') && (f1 != l1)) ++f1;
369 while ((*f2 ==
' ') && (f2 != l2)) ++f2;
370 if (*f1 != *f2)
return (*f1 > *f2) ? 1 : -1;
372 return (
int)((l1 - f1) - (l2 - f2));
382 const char* te = tb + strlen(tb);
384 while (equiv != 0 && *ne) {
385 for (nb = ne; *ne; ++ne) {
386 if (*ne ==
'|')
break;
411 if (strcmp(iter->
type->
name, c) == 0) {
412 if (iter == ty->
cast)
438 if (iter->
type == from) {
439 if (iter == ty->
cast)
471 if (!ty || !ty->
dcast)
return ty;
472 while (ty && (ty->
dcast)) {
473 ty = (*ty->
dcast)(ptr);
497 if (!type)
return NULL;
498 if (type->
str != NULL) {
499 const char *last_name = type->
str;
501 for (s = type->
str; *s; s++)
502 if (*s ==
'|') last_name = s+1;
550 size_t r = iter->
size - 1;
553 size_t i = (l + r) >> 1;
554 const char *iname = iter->
types[i]->
name;
556 int compare = strcmp(name, iname);
558 return iter->
types[i];
559 }
else if (compare < 0) {
565 }
else if (compare > 0) {
574 }
while (iter != end);
601 for (; i < iter->
size; ++i) {
603 return iter->
types[i];
606 }
while (iter != end);
618 static const char hex[17] =
"0123456789abcdef";
619 const unsigned char *u = (
unsigned char *) ptr;
620 const unsigned char *eu = u + sz;
621 for (; u != eu; ++u) {
622 unsigned char uu = *u;
623 *(c++) = hex[(uu & 0xf0) >> 4];
624 *(c++) = hex[uu & 0xf];
634 unsigned char *u = (
unsigned char *) ptr;
635 const unsigned char *eu = u + sz;
636 for (; u != eu; ++u) {
639 if ((d >=
'0') && (d <=
'9'))
640 uu = (
unsigned char)((d -
'0') << 4);
641 else if ((d >=
'a') && (d <=
'f'))
642 uu = (
unsigned char)((d - (
'a'-10)) << 4);
646 if ((d >=
'0') && (d <=
'9'))
647 uu |= (
unsigned char)(d -
'0');
648 else if ((d >=
'a') && (d <=
'f'))
649 uu |= (
unsigned char)(d - (
'a'-10));
663 if ((2*
sizeof(
void *) + 2) > bsz)
return 0;
666 if (strlen(name) + 1 > (bsz - (r - buff)))
return 0;
674 if (strcmp(c,
"NULL") == 0) {
687 size_t lname = (name ? strlen(name) : 0);
688 if ((2*sz + 2 + lname) > bsz)
return 0;
692 strncpy(r,name,lname+1);
702 if (strcmp(c,
"NULL") == 0) {
737 #define SWIG_LUA_FLAVOR_LUA 1 738 #define SWIG_LUA_FLAVOR_ELUA 2 739 #define SWIG_LUA_FLAVOR_ELUAC 3 741 #if !defined(SWIG_LUA_TARGET) 742 # error SWIG_LUA_TARGET not defined 745 #if defined(SWIG_LUA_ELUA_EMULATE) 747 struct swig_elua_entry;
749 typedef struct swig_elua_key {
757 typedef struct swig_elua_val {
761 const struct swig_elua_entry *table;
763 lua_CFunction
function;
773 typedef struct swig_elua_entry {
778 #define LSTRKEY(x) {LUA_TSTRING, {.strkey = x} } 779 #define LNUMKEY(x) {LUA_TNUMBER, {.numkey = x} } 780 #define LNILKEY {LUA_TNIL, {.strkey = 0} } 782 #define LNUMVAL(x) {LUA_TNUMBER, {.number = x} } 783 #define LFUNCVAL(x) {LUA_TFUNCTION, {.function = x} } 784 #define LROVAL(x) {LUA_TTABLE, {.table = x} } 785 #define LNILVAL {LUA_TNIL, {.string = 0} } 786 #define LSTRVAL(x) {LUA_TSTRING, {.string = x} } 788 #define LUA_REG_TYPE swig_elua_entry 790 #define SWIG_LUA_ELUA_EMUL_METATABLE_KEY "__metatable" 792 #define lua_pushrotable(L,p)\ 795 SWIG_Lua_elua_emulate_register(L,(swig_elua_entry*)(p)); 797 #define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\ 798 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={0,0,(void*)(C),&D} } } 800 #define SWIG_LUA_CONSTTAB_BINARY(B,S,C,D)\ 801 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={1,S,(void*)(C),&D} } } 804 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC) 805 # define SWIG_LUA_CONSTTAB_INT(B, C) LSTRKEY(B), LNUMVAL(C) 806 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) LSTRKEY(B), LNUMVAL(C) 807 # define SWIG_LUA_CONSTTAB_STRING(B, C) LSTRKEY(B), LSTRVAL(C) 808 # define SWIG_LUA_CONSTTAB_CHAR(B, C) LSTRKEY(B), LNUMVAL(C) 811 #ifndef SWIG_LUA_CONSTTAB_POINTER 812 #warning eLua does not support pointers as constants. By default, nil will be used as value 813 #define SWIG_LUA_CONSTTAB_POINTER(B,C,D) LSTRKEY(B), LNILVAL 816 #ifndef SWIG_LUA_CONSTTAB_BINARY 817 #warning eLua does not support pointers to member as constants. By default, nil will be used as value 818 #define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D) LSTRKEY(B), LNILVAL 821 # define SWIG_LUA_CONSTTAB_INT(B, C) SWIG_LUA_INT, (char *)B, (long)C, 0, 0, 0 822 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) SWIG_LUA_FLOAT, (char *)B, 0, (double)C, 0, 0 823 # define SWIG_LUA_CONSTTAB_STRING(B, C) SWIG_LUA_STRING, (char *)B, 0, 0, (void *)C, 0 824 # define SWIG_LUA_CONSTTAB_CHAR(B, C) SWIG_LUA_CHAR, (char *)B, (long)C, 0, 0, 0 825 # define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\ 826 SWIG_LUA_POINTER, (char *)B, 0, 0, (void *)C, &D 827 # define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D)\ 828 SWIG_LUA_BINARY, (char *)B, S, 0, (void *)C, &D 831 #ifndef SWIG_LUA_ELUA_EMULATE 832 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC) 833 # define LRO_STRVAL(v) {{.p = (char *) v}, LUA_TSTRING} 834 # define LSTRVAL LRO_STRVAL 838 #ifndef SWIG_LUA_ELUA_EMULATE 839 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC) 841 #ifndef MIN_OPT_LEVEL 842 #define MIN_OPT_LEVEL 2 846 #include "lrotable.h" 861 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501 862 # define lua_rawlen lua_strlen 863 #elif LUA_VERSION_NUM == 501 864 # define lua_rawlen lua_objlen 871 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502 872 # define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX) 876 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502 877 # define lua_absindex(L,i) ((i)>0 || (i) <= LUA_REGISTRYINDEX ? (i) : lua_gettop(L) + (i) + 1) 881 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502 882 #define lua_rawsetp(L,index,ptr)\ 883 lua_pushlightuserdata(L,(void*)(ptr));\ 887 #define lua_rawgetp(L,index,ptr)\ 888 lua_pushlightuserdata(L,(void*)(ptr));\ 904 lua_pushstring (L, str);
917 lua_pushvfstring(L, fmt, argp);
927 #define SWIG_LUA_INT 1 928 #define SWIG_LUA_FLOAT 2 929 #define SWIG_LUA_STRING 3 930 #define SWIG_LUA_POINTER 4 931 #define SWIG_LUA_BINARY 5 932 #define SWIG_LUA_CHAR 6 941 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC) 955 } swig_lua_const_info;
982 void (*destructor)(
void *);
1011 #define SWIG_NewPointerObj(L, ptr, type, owner) SWIG_Lua_NewPointerObj(L, (void *)ptr, type, owner) 1012 #define SWIG_ConvertPtr(L,idx, ptr, type, flags) SWIG_Lua_ConvertPtr(L,idx,ptr,type,flags) 1013 #define SWIG_MustGetPtr(L,idx, type,flags, argnum,fnname) SWIG_Lua_MustGetPtr(L,idx, type,flags, argnum,fnname) 1015 #define SWIG_ConvertMember(L, idx, ptr, sz, ty) SWIG_Lua_ConvertPacked(L, idx, ptr, sz, ty) 1016 #define SWIG_NewMemberObj(L, ptr, sz, type) SWIG_Lua_NewPackedObj(L, ptr, sz, type) 1019 #define SWIG_GetModule(clientdata) SWIG_Lua_GetModule((lua_State*)(clientdata)) 1020 #define SWIG_SetModule(clientdata, pointer) SWIG_Lua_SetModule((lua_State*) (clientdata), pointer) 1021 #define SWIG_MODULE_CLIENTDATA_TYPE lua_State* 1024 #define SWIG_contract_assert(expr, msg) \ 1025 if (!(expr)) { SWIG_Lua_pusherrstring(L, (char *) msg); goto fail; } else 1029 #define SWIG_fail {goto fail;} 1030 #define SWIG_fail_arg(func_name,argnum,type) \ 1031 {SWIG_Lua_pushferrstring(L,"Error in %s (arg %d), expected '%s' got '%s'",\ 1032 func_name,argnum,type,SWIG_Lua_typename(L,argnum));\ 1034 #define SWIG_fail_ptr(func_name,argnum,type) \ 1035 SWIG_fail_arg(func_name,argnum,(type && type->str)?type->str:"void*") 1036 #define SWIG_check_num_args(func_name,a,b) \ 1037 if (lua_gettop(L)<a || lua_gettop(L)>b) \ 1038 {SWIG_Lua_pushferrstring(L,"Error in %s expected %d..%d args, got %d",func_name,a,b,lua_gettop(L));\ 1042 #define SWIG_Lua_get_table(L,n) \ 1043 (lua_pushstring(L, n), lua_rawget(L,-2)) 1045 #define SWIG_Lua_add_function(L,n,f) \ 1046 (lua_pushstring(L, n), \ 1047 lua_pushcfunction(L, f), \ 1050 #define SWIG_Lua_add_boolean(L,n,b) \ 1051 (lua_pushstring(L, n), \ 1052 lua_pushboolean(L, b), \ 1056 #define SWIG_isptrtype(L,I) (lua_isuserdata(L,I) || lua_isnil(L,I)) 1069 lua_rawget(L,LUA_REGISTRYINDEX);
1070 if (lua_islightuserdata(L,-1))
1080 lua_pushlightuserdata(L,(
void*)module);
1081 lua_rawset(L,LUA_REGISTRYINDEX);
1094 #ifndef SWIGLUA_IGNORE_SET_IMMUTABLE 1096 luaL_error(L,
"This variable is immutable");
1101 #ifdef SWIG_LUA_ELUA_EMULATE 1105 static int swig_lua_elua_emulate_unique_key;
1108 SWIGINTERN void SWIG_Lua_elua_emulate_register(lua_State *L,
const swig_elua_entry *table)
1110 int i, table_parsed, parsed_tables_array, target_table;
1111 assert(lua_istable(L,-1));
1112 target_table = lua_gettop(L);
1114 lua_rawgetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1115 if(lua_isnil(L,-1)) {
1118 lua_pushvalue(L,-1);
1119 lua_rawsetp(L,LUA_REGISTRYINDEX,(
void*)(&swig_lua_elua_emulate_unique_key));
1121 parsed_tables_array = lua_gettop(L);
1122 lua_pushvalue(L,target_table);
1125 const int SWIGUNUSED pairs_start = lua_gettop(L);
1126 for(i = 0;table[i].key.type != LUA_TNIL || table[i].value.type != LUA_TNIL;i++)
1128 const swig_elua_entry *entry = table + i;
1129 int is_metatable = 0;
1130 switch(entry->key.type) {
1132 lua_pushstring(L,entry->key.key.strkey);
1133 if(strcmp(entry->key.key.strkey, SWIG_LUA_ELUA_EMUL_METATABLE_KEY) == 0)
1137 lua_pushnumber(L,entry->key.key.numkey);
1145 switch(entry->value.type) {
1147 lua_pushstring(L,entry->value.value.string);
1150 lua_pushnumber(L,entry->value.value.number);
1153 lua_pushcfunction(L,entry->value.value.function);
1156 lua_rawgetp(L,parsed_tables_array, entry->value.value.table);
1157 table_parsed = !lua_isnil(L,-1);
1161 SWIG_Lua_elua_emulate_register(L,entry->value.value.table);
1164 assert(lua_istable(L,-1));
1165 lua_pushvalue(L,-1);
1166 lua_setmetatable(L,target_table);
1171 if(entry->value.value.userdata.member)
1173 entry->value.value.userdata.lvalue,
1174 *(entry->value.value.userdata.ptype));
1177 *(entry->value.value.userdata.ptype),0);
1185 assert(lua_gettop(L) == pairs_start + 2);
1186 lua_rawset(L,target_table);
1189 assert(lua_gettop(L) == target_table);
1192 SWIGINTERN void SWIG_Lua_elua_emulate_register_clear(lua_State *L)
1195 lua_rawsetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1200 SWIGINTERN int SWIG_Lua_emulate_elua_getmetatable(lua_State *L)
1204 lua_getfield(L,-1,
"lua_getmetatable");
1206 assert(!lua_isnil(L,-1));
1208 assert(lua_gettop(L) == 3);
1210 if(!lua_isnil(L,-1))
1213 assert(lua_gettop(L) == 2);
1214 if(lua_istable(L,-2)) {
1216 lua_getfield(L,-1, SWIG_LUA_ELUA_EMUL_METATABLE_KEY);
1218 assert(lua_gettop(L) == 2);
1226 SWIGINTERN void SWIG_Lua_emulate_elua_swap_getmetatable(lua_State *L)
1230 lua_pushstring(L,
"lua_getmetatable");
1231 lua_getfield(L,-2,
"getmetatable");
1232 assert(!lua_isnil(L,-1));
1234 lua_pushstring(L,
"getmetatable");
1235 lua_pushcfunction(L, SWIG_Lua_emulate_elua_getmetatable);
1253 assert(lua_istable(L,-2));
1254 lua_getmetatable(L,-2);
1255 assert(lua_istable(L,-1));
1257 assert(lua_istable(L,-1));
1262 if (lua_iscfunction(L,-1))
1271 assert(lua_istable(L,-1));
1275 if (lua_isfunction(L,-1))
1292 assert(lua_istable(L,1));
1293 lua_getmetatable(L,1);
1294 assert(lua_istable(L,-1));
1297 if (lua_istable(L,-1))
1302 if (lua_iscfunction(L,-1))
1316 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 1326 assert(lua_istable(L,-1));
1333 lua_getmetatable(L,-1);
1351 assert(lua_istable(L,-1));
1355 if( classes != 0 ) {
1356 while(*classes != 0) {
1373 assert(lua_istable(L,-1));
1374 lua_checkstack(L,5);
1379 lua_pushstring(L,
".get");
1383 lua_pushstring(L,
".set");
1387 lua_pushstring(L,
".fn");
1395 lua_setmetatable(L,-2);
1403 if( sub_namespace != 0) {
1404 while(*sub_namespace != 0) {
1412 lua_pushstring(L,ns->
name);
1413 lua_pushvalue(L,-2);
1416 assert(lua_gettop(L) == begin+1);
1433 int last_arg = lua_gettop(L);
1434 int original_metatable = last_arg + 1;
1439 lua_getmetatable(L,first_arg);
1442 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 1444 assert(lua_istable(L,-1));
1446 bases_table = lua_gettop(L);
1450 assert(swig_type!=0);
1453 const char **base_names= ((
swig_lua_class*)(swig_type->clientdata))->base_names;
1455 for(;base_names[bases_count];
1466 int subcall_last_arg;
1467 int subcall_first_arg = lua_gettop(L) + 1;
1469 swig_type_info *base_swig_type = 0;
1470 for(j=first_arg;j<=last_arg;j++)
1472 subcall_last_arg = lua_gettop(L);
1475 for(i=0;i<bases_count;i++) {
1477 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 1478 lua_rawgeti(L,bases_table,i+1);
1480 if(lua_isnil(L,-1)) {
1494 assert(base_swig_type != 0);
1500 assert(lua_isuserdata(L, subcall_first_arg));
1501 assert(lua_istable(L,-1));
1502 lua_setmetatable(L,subcall_first_arg);
1503 assert(lua_gettop(L) == subcall_last_arg);
1504 result = func(L, base_swig_type,subcall_first_arg, ret);
1510 lua_pushvalue(L,original_metatable);
1511 lua_setmetatable(L,first_arg);
1513 to_remove = subcall_last_arg - last_arg;
1514 for(j=0;j<to_remove;j++)
1515 lua_remove(L,last_arg+1);
1518 lua_pop(L, lua_gettop(L) - last_arg);
1520 if(ret) assert(lua_gettop(L) == last_arg + *ret);
1534 int bases_search_result;
1535 int substack_start = lua_gettop(L)-2;
1536 assert(first_arg == substack_start+1);
1537 lua_checkstack(L,5);
1538 assert(lua_isuserdata(L,-2));
1539 lua_getmetatable(L,-2);
1540 assert(lua_istable(L,-1));
1544 if (lua_iscfunction(L,-1))
1546 lua_pushvalue(L,substack_start+1);
1547 lua_pushvalue(L,substack_start+2);
1558 return bases_search_result;
1572 int bases_search_result;
1573 int substack_start = lua_gettop(L)-2;
1574 assert(first_arg == substack_start+1);
1575 lua_checkstack(L,5);
1576 assert(lua_isuserdata(L,-2));
1577 lua_getmetatable(L,-2);
1578 assert(lua_istable(L,-1));
1580 assert(lua_istable(L,-1));
1582 lua_pushvalue(L,substack_start+2);
1585 if (lua_iscfunction(L,-1))
1587 lua_pushvalue(L,substack_start+1);
1597 assert(lua_istable(L,-1));
1598 lua_pushvalue(L,substack_start+2);
1601 if (lua_isfunction(L,-1))
1613 return bases_search_result;
1626 swig_type_info *type;
1628 assert(lua_isuserdata(L,1));
1653 int bases_search_result;
1654 int substack_start = lua_gettop(L) - 3;
1655 lua_checkstack(L,5);
1656 assert(lua_isuserdata(L,substack_start+1));
1657 lua_getmetatable(L,substack_start+1);
1658 assert(lua_istable(L,-1));
1663 if (lua_istable(L,-1))
1666 lua_pushvalue(L,substack_start+2);
1669 if (lua_iscfunction(L,-1))
1671 lua_pushvalue(L,substack_start+1);
1672 lua_pushvalue(L,substack_start+3);
1674 lua_remove(L,substack_start+4);
1684 if (lua_iscfunction(L,-1))
1686 lua_pushvalue(L,substack_start+1);
1687 lua_pushvalue(L,substack_start+2);
1688 lua_pushvalue(L,substack_start+3);
1700 assert(lua_gettop(L) == substack_start + 3);
1701 return bases_search_result;
1717 swig_type_info *type;
1718 assert(lua_isuserdata(L,1));
1723 SWIG_Lua_pushferrstring(L,
"Assignment not possible. No setter/member with this name. For custom assignments implement __setitem method.");
1738 assert(lua_isuserdata(L,-1));
1757 const char *className;
1759 assert(lua_isuserdata(L,1));
1760 userData = lua_touserdata(L,1);
1761 lua_getmetatable(L,1);
1762 assert(lua_istable(L,-1));
1764 lua_getfield(L, -1,
".type");
1765 className = lua_tostring(L, -1);
1767 lua_pushfstring(L,
"<%s userdata: %p>", className, userData);
1777 assert(lua_isuserdata(L,-1));
1791 if (!lua_isuserdata(L,1) || !lua_isuserdata(L,2))
1796 result=(usr1->
ptr==usr2->
ptr);
1797 lua_pushboolean(L,result);
1825 lua_pushstring(L,
"SWIG");
1830 lua_pushstring(L,
".library");
1834 lua_pushstring(L,
"inheritable_metamethods");
1842 lua_rawset(L,LUA_REGISTRYINDEX);
1849 lua_pushstring(L,
"SWIG");
1850 lua_rawget(L,LUA_REGISTRYINDEX);
1851 if (!lua_istable(L,-1))
1856 lua_pushstring(L,
"SWIG");
1857 lua_rawget(L,LUA_REGISTRYINDEX);
1864 lua_pushstring(L,
".library");
1866 assert( !lua_isnil(L,-1) );
1867 lua_pushstring(L,
"inheritable_metamethods");
1879 lua_pushstring(L,cname);
1897 if (clss->
bases[i]==0)
1906 #if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 1908 SWIGINTERN void SWIG_Lua_merge_tables_by_index(lua_State *L,
int target,
int source)
1912 while (lua_next(L,source) != 0) {
1915 lua_pushvalue(L,-2);
1916 lua_pushvalue(L,-2);
1917 lua_rawset(L, target);
1924 SWIGINTERN void SWIG_Lua_merge_tables(lua_State *L,
const char* name,
int original,
int base)
1927 lua_pushstring(L,name);
1928 lua_rawget(L,original);
1929 int original_table = lua_gettop(L);
1930 lua_pushstring(L,name);
1932 int base_table = lua_gettop(L);
1933 SWIG_Lua_merge_tables_by_index(L, original_table, base_table);
1942 assert(lua_istable(L,-1));
1943 int original = lua_gettop(L);
1945 int base = lua_gettop(L);
1946 SWIG_Lua_merge_tables(L,
".fn", original, base );
1947 SWIG_Lua_merge_tables(L,
".set", original, base );
1948 SWIG_Lua_merge_tables(L,
".get", original, base );
1959 if (clss->
bases[i]==0)
1965 SWIG_Lua_class_squash_base(L, clss->
bases[i]);
1971 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 1975 assert(lua_istable(L,-1));
1977 assert(lua_istable(L,-1));
1983 assert(lua_istable(L,-1));
1994 assert(lua_istable(L,-1));
1996 for(i=0;clss->
bases[i];i++)
2010 size_t bases_count = 0;
2013 assert(lua_istable(L,-1));
2014 for(i=0;clss->
bases[i];i++)
2018 assert(lua_istable(L,-1));
2019 lua_rawseti(L,-2,i+1);
2030 assert(lua_istable(L,-1));
2031 for(i=0;clss->
methods[i].name;i++){
2045 #if !defined(SWIG_LUA_SQUASH_BASES) 2087 lua_pushvalue(L, metamethod_name_idx);
2093 if (!lua_isnil(L,-1) && lua_tocfunction(L,-1) != SWIG_Lua_resolve_metamethod ) {
2101 for(i=0;clss->
bases[i];i++)
2116 int metamethod_name_idx;
2120 lua_checkstack(L,5);
2121 numargs = lua_gettop(L);
2124 lua_pushvalue(L, lua_upvalueindex(1));
2125 metamethod_name_idx = lua_gettop(L);
2127 lua_pushvalue(L, lua_upvalueindex(2));
2134 SWIG_Lua_pushferrstring(L,
"The metamethod proxy is set, but it failed to find actual metamethod. Memory corruption is most likely explanation.");
2141 lua_call(L, numargs, LUA_MULTRET);
2142 return lua_gettop(L);
2157 assert(lua_isstring(L,-1));
2159 key_index = lua_gettop(L);
2162 lua_pushvalue(L,key_index);
2163 lua_gettable(L,metatable_index);
2164 if( !lua_isnil(L,-1) ) {
2171 for(i=0;clss->
bases[i];i++)
2175 lua_pushvalue(L, key_index);
2177 if( !lua_isnil(L,-1) ) {
2178 lua_pushvalue(L, key_index);
2181 lua_pushvalue(L, key_index);
2182 lua_pushlightuserdata(L, clss);
2183 lua_pushcclosure(L, SWIG_Lua_resolve_metamethod, 2);
2185 lua_rawset(L, metatable_index);
2200 int metatable_index;
2201 int metamethods_info_index;
2202 int tostring_undefined;
2203 int eq_undefined = 0;
2206 metatable_index = lua_gettop(L);
2208 assert(lua_istable(L,-1));
2209 metamethods_info_index = lua_gettop(L);
2211 while(lua_next(L, metamethods_info_index) != 0 ) {
2213 const int is_inheritable = lua_toboolean(L,-2);
2216 if(is_inheritable) {
2224 lua_pushstring(L,
"__tostring");
2225 lua_pushvalue(L,-1);
2226 lua_rawget(L,metatable_index);
2227 tostring_undefined = lua_isnil(L,-1);
2229 if( tostring_undefined ) {
2231 lua_rawset(L, metatable_index);
2237 lua_pushstring(L,
"__eq");
2238 lua_pushvalue(L,-1);
2239 lua_rawget(L,metatable_index);
2240 eq_undefined = lua_isnil(L,-1);
2242 if( eq_undefined ) {
2244 lua_rawset(L, metatable_index);
2258 lua_checkstack(L,5);
2259 assert(lua_istable(L,-1));
2264 assert(lua_istable(L,-1));
2272 lua_getmetatable(L,-1);
2273 assert(lua_istable(L,-1));
2278 assert(lua_istable(L,-1));
2283 assert( lua_gettop(L) == begin );
2295 lua_pushstring(L,clss->
fqname);
2297 if(!lua_isnil(L,-1)) {
2299 assert(lua_gettop(L)==begin);
2304 for(i=0;clss->
bases[i];i++)
2310 lua_pushstring(L,clss->
fqname);
2312 #if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 2319 for(i=0;clss->
bases[i];i++)
2324 SWIG_Lua_merge_tables_by_index(L,new_metatable_index, base_metatable);
2331 lua_pushstring(L,
".type");
2332 lua_pushstring(L,clss->
fqname);
2335 lua_pushstring(L,
".bases");
2339 lua_pushstring(L,
".get");
2343 lua_pushstring(L,
".set");
2347 lua_pushstring(L,
".fn");
2359 assert(lua_gettop(L) == begin);
2361 #if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 2363 SWIG_Lua_class_squash_bases(L,clss);
2368 assert( lua_gettop(L) == begin );
2374 assert(lua_istable(L,-1));
2388 begin = lua_gettop(L);
2391 assert(lua_istable(L,-1));
2392 lua_getmetatable(L,-1);
2393 assert(lua_istable(L,-1));
2394 lua_pushstring(L,
".instance");
2397 assert(lua_istable(L,-1));
2398 lua_pushstring(L,
".static");
2399 lua_pushvalue(L, -4);
2400 assert(lua_istable(L,-1));
2404 assert(lua_gettop(L) == begin);
2408 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC) 2415 lua_pushstring(L,clss->
fqname);
2417 if(!lua_isnil(L,-1)) {
2419 assert(lua_gettop(L)==begin);
2424 for(i=0;clss->
bases[i];i++)
2426 SWIG_Lua_elua_class_register_instance(L,clss->
bases[i]);
2430 lua_pushstring(L,clss->
fqname);
2432 lua_pushrotable(L, (
void*)(clss->
metatable));
2435 assert(lua_gettop(L) == begin);
2449 if (lua_istable(L,-1))
2451 lua_setmetatable(L,-2);
2472 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC) 2483 if (lua_isnil(L,index)){*ptr=0;
return SWIG_OK;}
2509 int argnum,
const char *func_name){
2512 luaL_error (L,
"Error in %s, expected a %s at argument number %d\n",
2513 func_name,(type && type->
str)?type->
str:
"void*",argnum);
2526 memcpy(raw->
data,ptr,size);
2536 if (type==0 || type==raw->
type)
2538 memcpy(ptr,raw->
data,size);
2548 if (lua_isuserdata(L,tp))
2553 return "userdata (unknown type)";
2555 return lua_typename(L,lua_type(L,tp));
2569 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)) 2574 for (i = 0; constants[i].
type; i++) {
2575 switch(constants[i].type) {
2577 lua_pushstring(L,constants[i].name);
2578 lua_pushinteger(L,(lua_Number)constants[i].lvalue);
2582 lua_pushstring(L,constants[i].name);
2583 lua_pushnumber(L,(lua_Number)constants[i].dvalue);
2587 lua_pushstring(L,constants[i].name);
2589 char c = constants[i].
lvalue;
2590 lua_pushlstring(L,&c,1);
2595 lua_pushstring(L,constants[i].name);
2596 lua_pushstring(L,(
char *) constants[i].pvalue);
2600 lua_pushstring(L,constants[i].name);
2605 lua_pushstring(L,constants[i].name);
2606 SWIG_NewMemberObj(L,constants[i].pvalue,constants[i].lvalue,*(constants[i]).ptype);
2620 #ifndef SWIG_DOSTRING_FAIL 2621 #define SWIG_DOSTRING_FAIL(S) fprintf(stderr,"%s\n",S) 2631 if (str==0 || str[0]==0)
return 0;
2633 #if (defined(LUA_VERSION_NUM) && (LUA_VERSION_NUM>=501)) 2634 ok=luaL_dostring(L,str);
2636 ok=lua_dostring(L,str);
2654 #define SWIGTYPE_p_PLGraphicsIn swig_types[0] 2655 #define SWIGTYPE_p_char swig_types[1] 2656 #define SWIGTYPE_p_double swig_types[2] 2657 #define SWIGTYPE_p_f_double_double__int swig_types[3] 2658 #define SWIGTYPE_p_f_double_double_p_double_p_double_p_void__void swig_types[4] 2659 #define SWIGTYPE_p_f_int_double_p_char_int_p_void__void swig_types[5] 2660 #define SWIGTYPE_p_f_int_p_double_p_double__void swig_types[6] 2661 #define SWIGTYPE_p_f_int_p_q_const__double_p_q_const__double__void swig_types[7] 2662 #define SWIGTYPE_p_int swig_types[8] 2663 #define SWIGTYPE_p_p_char swig_types[9] 2664 #define SWIGTYPE_p_p_double swig_types[10] 2665 #define SWIGTYPE_p_unsigned_int swig_types[11] 2668 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name) 2669 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name) 2673 #define SWIG_name "plplotluac" 2674 #define SWIG_init luaopen_plplotluac 2675 #define SWIG_init_user luaopen_plplotluac_user 2677 #define SWIG_LUACODE luaopen_plplotluac_luacode 2682 #define LUA_ALLOC_ARRAY( TYPE, LEN ) (TYPE *) malloc( LEN * sizeof ( TYPE ) ) 2683 #define LUA_FREE_ARRAY( PTR ) if ( PTR ) { free( PTR ); PTR = NULL;} 2687 #define LUA_DECLARE_TYPEMAP_ARR_FN( NAME, TYPE ) \ 2688 SWIGINTERN int LUA_read_ ## NAME ## _num_array( lua_State * L, int index, TYPE * array, int size ){ \ 2690 for ( i = 0; i < size; i++ ) { \ 2691 lua_rawgeti( L, index, i + 1 ); \ 2692 if ( lua_isnumber( L, -1 ) ) { \ 2693 array[i] = (TYPE) lua_tonumber( L, -1 ); \ 2702 SWIGINTERN TYPE* LUA_get_ ## NAME ## _num_array_var( lua_State * L, int index, int* size ) \ 2705 if ( !lua_istable( L, index ) ) { \ 2706 lua_pushstring( L, "expected a table" ); \ 2709 *size = SWIG_itable_size( L, index ); \ 2710 if ( *size < 1 ) { \ 2711 array = LUA_ALLOC_ARRAY( TYPE, 1 ); \ 2712 array[0] = (TYPE) 0; \ 2715 array = LUA_ALLOC_ARRAY( TYPE, *size ); \ 2716 if ( !LUA_read_ ## NAME ## _num_array( L, index, array, *size ) ) { \ 2717 lua_pushstring( L, "table must contain numbers" ); \ 2718 LUA_FREE_ARRAY( array ); \ 2733 #define SWIG_ALLOC_ARRAY(TYPE,LEN) new TYPE[LEN] 2734 #define SWIG_FREE_ARRAY(PTR) delete[] PTR 2736 #define SWIG_ALLOC_ARRAY(TYPE,LEN) (TYPE *)malloc(LEN*sizeof(TYPE)) 2737 #define SWIG_FREE_ARRAY(PTR) free(PTR) 2744 lua_rawgeti(L,index,n+1);
2745 if (lua_isnil(L,-1))
break;
2757 while (lua_next(L, index) != 0) {
2765 #define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME,TYPE)\ 2766 SWIGINTERN int SWIG_read_##NAME##_num_array(lua_State* L,int index,TYPE *array,int size){\ 2768 for (i = 0; i < size; i++) {\ 2769 lua_rawgeti(L,index,i+1);\ 2770 if (lua_isnumber(L,-1)){\ 2771 array[i] = (TYPE)lua_tonumber(L,-1);\ 2780 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_fixed(lua_State* L, int index, int size){\ 2782 if (!lua_istable(L,index) || SWIG_itable_size(L,index) != size) {\ 2783 SWIG_Lua_pushferrstring(L,"expected a table of size %d",size);\ 2786 array=SWIG_ALLOC_ARRAY(TYPE,size);\ 2787 if (!SWIG_read_##NAME##_num_array(L,index,array,size)){\ 2788 SWIG_Lua_pusherrstring(L,"table must contain numbers");\ 2789 SWIG_FREE_ARRAY(array);\ 2794 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_var(lua_State* L, int index, int* size)\ 2797 if (!lua_istable(L,index)) {\ 2798 SWIG_Lua_pusherrstring(L,"expected a table");\ 2801 *size=SWIG_itable_size(L,index);\ 2803 SWIG_Lua_pusherrstring(L,"table appears to be empty");\ 2806 array=SWIG_ALLOC_ARRAY(TYPE,*size);\ 2807 if (!SWIG_read_##NAME##_num_array(L,index,array,*size)){\ 2808 SWIG_Lua_pusherrstring(L,"table must contain numbers");\ 2809 SWIG_FREE_ARRAY(array);\ 2814 SWIGINTERN void SWIG_write_##NAME##_num_array(lua_State* L,TYPE *array,int size){\ 2817 for (i = 0; i < size; i++){\ 2818 lua_pushnumber(L,(lua_Number)array[i]);\ 2819 lua_rawseti(L,-2,i+1); \ 2836 for (i = 0; i < size; i++) {
2837 lua_rawgeti(L,index,i+1);
2838 if (!lua_isuserdata(L,-1) ||
SWIG_ConvertPtr(L,-1,&array[i],type,0)==-1){
2862 if (!lua_istable(L,index)) {
2882 for (i = 0; i < size; i++){
2884 lua_rawseti(L,-2,i+1);
2899 if ( !lua_istable( L, index ) )
2901 lua_pushstring( L,
"expected a table" );
2907 lua_pushstring( L,
"table appears to be empty" );
2911 for ( i = 0; i < *nx; i++ )
2914 lua_rawgeti( L, index, 1 );
2915 if ( !lua_istable( L, -1 ) )
2918 lua_pushstring( L,
"expected a table" );
2925 lua_pushstring( L,
"table appears to be empty" );
2931 for ( i = 0; i < *nx; i++ )
2933 lua_rawgeti( L, index, i + 1 );
2934 if ( !lua_istable( L, -1 ) )
2937 lua_pushstring( L,
"expected a table" );
2938 for ( j = 0; j < *ny; j++ )
2946 lua_pushstring( L,
"inconsistent table sizes" );
2947 for ( j = 0; j < i; j++ )
2953 for ( j = 0; j < *ny; j++ )
2955 lua_rawgeti( L, -1, j + 1 );
2956 if ( lua_isnumber( L, -1 ) )
2958 matrix[i][j] = (
PLFLT) lua_tonumber( L, -1 );
2963 lua_pushstring( L,
"table must contain numbers" );
2964 for ( j = 0; j < i + 1; j++ )
2985 PLFLT *xtemp, *ytemp;
2991 fprintf( stderr,
"Lua state is not set!" );
2997 lua_pushnumber(
myL, n );
2998 SWIG_write_double_num_array(
myL, x, n );
2999 SWIG_write_double_num_array(
myL, y, n );
3002 if ( lua_pcall(
myL, 3, 2, 0 ) != 0 )
3003 fprintf( stderr,
"error running function `%s':%s",
3007 if ( !lua_istable(
myL, -2 ) )
3009 fprintf( stderr,
"function `%s' must return a table as 1st result",
mapform_funcstr );
3012 if ( !lua_istable(
myL, -1 ) )
3014 fprintf( stderr,
"function `%s' must return a table as 2nd result",
mapform_funcstr );
3017 xtemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -2, &len );
3018 if ( !xtemp || len != n )
3020 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3023 for ( i = 0; i < n; i++ )
3027 ytemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -1, &len );
3028 if ( !ytemp || len != n )
3030 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3033 for ( i = 0; i < n; i++ )
3068 fprintf( stderr,
"Lua state is not set!" );
3074 lua_pushnumber(
myL, x );
3075 lua_pushnumber(
myL, y );
3078 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3079 fprintf( stderr,
"error running function `%s':%s",
3083 if ( !lua_isnumber(
myL, -2 ) )
3085 fprintf( stderr,
"function `%s' must return a number as 1st result",
mypltr_funcstr );
3088 if ( !lua_isnumber(
myL, -1 ) )
3090 fprintf( stderr,
"function `%s' must return a number as 2nd result",
mypltr_funcstr );
3093 *tx = lua_tonumber(
myL, -2 );
3094 *ty = lua_tonumber(
myL, -1 );
3112 fprintf( stderr,
"Lua state is not set!" );
3117 lua_getglobal(
myL, myct_funcstr );
3118 lua_pushnumber(
myL, x );
3119 lua_pushnumber(
myL, y );
3122 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3123 fprintf( stderr,
"error running function `%s':%s",
3124 myct_funcstr, lua_tostring(
myL, -1 ) );
3127 if ( !lua_isnumber(
myL, -2 ) )
3129 fprintf( stderr,
"function `%s' must return a number as 1st result", myct_funcstr );
3132 if ( !lua_isnumber(
myL, -1 ) )
3134 fprintf( stderr,
"function `%s' must return a number as 2nd result", myct_funcstr );
3137 *tx = lua_tonumber(
myL, -2 );
3138 *ty = lua_tonumber(
myL, -1 );
3151 fprintf( stderr,
"Lua state is not set!" );
3156 lua_getglobal(
myL, mylabel_funcstr );
3157 lua_pushnumber(
myL, axis );
3158 lua_pushnumber(
myL, value );
3161 if ( lua_pcall(
myL, 2, 1, 0 ) != 0 )
3162 fprintf( stderr,
"error running function `%s':%s",
3163 mylabel_funcstr, lua_tostring(
myL, -1 ) );
3166 if ( !lua_isstring(
myL, -1 ) )
3168 fprintf( stderr,
"function `%s' must return a string as result", mylabel_funcstr );
3171 strncpy( label, lua_tostring(
myL, -1 ), length );
3180 int ret = lua_isstring(L, idx);
3182 ret = lua_isnil(L, idx);
3196 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::type",2,
"int");
3202 arg2 = (int)lua_tonumber(L, 2);
3203 if (arg1) (arg1)->type = arg2;
3227 result = (int) ((arg1)->type);
3228 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3246 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::state",2,
"unsigned int");
3253 arg2 = (
unsigned int)lua_tonumber(L, 2);
3254 if (arg1) (arg1)->state = arg2;
3269 unsigned int result;
3278 result = (
unsigned int) ((arg1)->state);
3279 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3297 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::keysym",2,
"unsigned int");
3304 arg2 = (
unsigned int)lua_tonumber(L, 2);
3305 if (arg1) (arg1)->keysym = arg2;
3320 unsigned int result;
3329 result = (
unsigned int) ((arg1)->keysym);
3330 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3348 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::button",2,
"unsigned int");
3355 arg2 = (
unsigned int)lua_tonumber(L, 2);
3356 if (arg1) (arg1)->button = arg2;
3371 unsigned int result;
3380 result = (
unsigned int) ((arg1)->button);
3381 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3399 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::subwindow",2,
"PLINT");
3405 arg2 = (
PLINT)lua_tonumber(L, 2);
3406 if (arg1) (arg1)->subwindow = arg2;
3430 result = (
PLINT) ((arg1)->subwindow);
3431 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3455 arg2 = (
char *)lua_tostring(L, 2);
3458 strncpy((
char*)arg1->string, (
const char *)arg2, 16-1);
3459 arg1->string[16-1] = 0;
3461 arg1->string[0] = 0;
3487 result = (
char *)(
char *) ((arg1)->
string);
3488 lua_pushstring(L,(
const char *)result); SWIG_arg++;
3506 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pX",2,
"int");
3512 arg2 = (int)lua_tonumber(L, 2);
3513 if (arg1) (arg1)->pX = arg2;
3537 result = (int) ((arg1)->pX);
3538 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3556 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pY",2,
"int");
3562 arg2 = (int)lua_tonumber(L, 2);
3563 if (arg1) (arg1)->pY = arg2;
3587 result = (int) ((arg1)->pY);
3588 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3606 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dX",2,
"PLFLT");
3612 arg2 = (
PLFLT)lua_tonumber(L, 2);
3613 if (arg1) (arg1)->dX = arg2;
3637 result = (
PLFLT) ((arg1)->dX);
3638 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3656 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dY",2,
"PLFLT");
3662 arg2 = (
PLFLT)lua_tonumber(L, 2);
3663 if (arg1) (arg1)->dY = arg2;
3687 result = (
PLFLT) ((arg1)->dY);
3688 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3706 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wX",2,
"PLFLT");
3712 arg2 = (
PLFLT)lua_tonumber(L, 2);
3713 if (arg1) (arg1)->wX = arg2;
3737 result = (
PLFLT) ((arg1)->wX);
3738 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3756 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wY",2,
"PLFLT");
3762 arg2 = (
PLFLT)lua_tonumber(L, 2);
3763 if (arg1) (arg1)->wY = arg2;
3787 result = (
PLFLT) ((arg1)->wY);
3788 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3818 free((
char *) arg1);
3821 assert(lua_istable(L,1));
3823 assert(!lua_isnil(L,-1));
3825 lua_call(L,lua_gettop(L)-1,1);
3873 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 };
3881 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelformat",1,
"PLINT");
3882 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelformat",2,
"PLINT");
3883 arg1 = (
PLINT)lua_tonumber(L, 1);
3884 arg2 = (
PLINT)lua_tonumber(L, 2);
3905 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelparam",1,
"PLFLT");
3906 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelparam",2,
"PLFLT");
3907 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pl_setcontlabelparam",3,
"PLFLT");
3908 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"pl_setcontlabelparam",4,
"PLINT");
3909 arg1 = (
PLFLT)lua_tonumber(L, 1);
3910 arg2 = (
PLFLT)lua_tonumber(L, 2);
3911 arg3 = (
PLFLT)lua_tonumber(L, 3);
3912 arg4 = (
PLINT)lua_tonumber(L, 4);
3931 arg1 = (
PLINT)lua_tonumber(L, 1);
3964 arg1 = (
PLFLT)lua_tonumber(L, 1);
3965 arg2 = (
PLFLT)lua_tonumber(L, 2);
3966 arg3 = (
PLFLT)lua_tonumber(L, 3);
3967 arg4 = (
PLFLT)lua_tonumber(L, 4);
3968 arg5 = (
PLFLT)lua_tonumber(L, 5);
3969 arg6 = (
PLFLT)lua_tonumber(L, 6);
3970 arg7 = (
PLFLT)lua_tonumber(L, 7);
3971 arg8 = (
PLBOOL)lua_tonumber(L, 8);
3972 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
3988 char *arg3 = (
char *) 0 ;
3991 char *arg6 = (
char *) 0 ;
4004 arg1 = (
PLFLT)lua_tonumber(L, 1);
4005 arg2 = (
PLFLT)lua_tonumber(L, 2);
4006 arg3 = (
char *)lua_tostring(L, 3);
4007 arg4 = (
PLFLT)lua_tonumber(L, 4);
4008 arg5 = (
PLINT)lua_tonumber(L, 5);
4009 arg6 = (
char *)lua_tostring(L, 6);
4010 arg7 = (
PLFLT)lua_tonumber(L, 7);
4011 arg8 = (
PLINT)lua_tonumber(L, 8);
4012 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
4036 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4042 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4045 if ( temp3 !=
Alen )
4047 lua_pushfstring( L,
"Tables must be of same length." );
4051 arg4 = (
PLINT)lua_tonumber(L, 3);
4052 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
4100 arg7 = (
PLFLT)lua_tonumber(L, 1);
4101 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4103 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4104 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4105 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4106 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4107 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4108 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
4137 char *arg1 = (
char *) 0 ;
4140 char *arg4 = (
char *) 0 ;
4151 arg1 = (
char *)lua_tostring(L, 1);
4152 arg2 = (
PLFLT)lua_tonumber(L, 2);
4153 arg3 = (
PLINT)lua_tonumber(L, 3);
4154 arg4 = (
char *)lua_tostring(L, 4);
4155 arg5 = (
PLFLT)lua_tonumber(L, 5);
4156 arg6 = (
PLINT)lua_tonumber(L, 6);
4157 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
4171 char *arg1 = (
char *) 0 ;
4172 char *arg2 = (
char *) 0 ;
4175 char *arg5 = (
char *) 0 ;
4176 char *arg6 = (
char *) 0 ;
4179 char *arg9 = (
char *) 0 ;
4180 char *arg10 = (
char *) 0 ;
4197 arg1 = (
char *)lua_tostring(L, 1);
4198 arg2 = (
char *)lua_tostring(L, 2);
4199 arg3 = (
PLFLT)lua_tonumber(L, 3);
4200 arg4 = (
PLINT)lua_tonumber(L, 4);
4201 arg5 = (
char *)lua_tostring(L, 5);
4202 arg6 = (
char *)lua_tostring(L, 6);
4203 arg7 = (
PLFLT)lua_tonumber(L, 7);
4204 arg8 = (
PLINT)lua_tonumber(L, 8);
4205 arg9 = (
char *)lua_tostring(L, 9);
4206 arg10 = (
char *)lua_tostring(L, 10);
4207 arg11 = (
PLFLT)lua_tonumber(L, 11);
4208 arg12 = (
PLINT)lua_tonumber(L, 12);
4209 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);
4236 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcalc_world",1,
"PLFLT");
4237 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcalc_world",2,
"PLFLT");
4238 arg1 = (
PLFLT)lua_tonumber(L, 1);
4239 arg2 = (
PLFLT)lua_tonumber(L, 2);
4242 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4243 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4244 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4277 arg1 = (
PLINT)lua_tonumber(L, 1);
4296 arg1 = (
PLFLT)lua_tonumber(L, 1);
4324 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plconfigtime",1,
"PLFLT");
4325 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plconfigtime",2,
"PLFLT");
4326 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plconfigtime",3,
"PLFLT");
4327 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plconfigtime",4,
"PLINT");
4328 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plconfigtime",5,
"PLBOOL");
4329 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plconfigtime",6,
"PLINT");
4330 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plconfigtime",7,
"PLINT");
4331 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plconfigtime",8,
"PLINT");
4332 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plconfigtime",9,
"PLINT");
4333 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plconfigtime",10,
"PLINT");
4334 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plconfigtime",11,
"PLFLT");
4335 arg1 = (
PLFLT)lua_tonumber(L, 1);
4336 arg2 = (
PLFLT)lua_tonumber(L, 2);
4337 arg3 = (
PLFLT)lua_tonumber(L, 3);
4338 arg4 = (
PLINT)lua_tonumber(L, 4);
4339 arg5 = (
PLBOOL)lua_tonumber(L, 5);
4340 arg6 = (
PLINT)lua_tonumber(L, 6);
4341 arg7 = (
PLINT)lua_tonumber(L, 7);
4342 arg8 = (
PLINT)lua_tonumber(L, 8);
4343 arg9 = (
PLINT)lua_tonumber(L, 9);
4344 arg10 = (
PLINT)lua_tonumber(L, 10);
4345 arg11 = (
PLFLT)lua_tonumber(L, 11);
4346 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
4376 cgrid111.
xg = cgrid111.
yg = cgrid111.
zg = NULL;
4377 cgrid111.
nx = cgrid111.
ny = cgrid111.
nz = 0;
4378 cgrid211.
xg = cgrid211.
yg = cgrid211.
zg = NULL;
4379 cgrid211.
nx = cgrid211.
ny = 0;
4401 arg4 = (
PLINT)lua_tonumber(L, 2);
4402 arg5 = (
PLINT)lua_tonumber(L, 3);
4403 arg6 = (
PLINT)lua_tonumber(L, 4);
4404 arg7 = (
PLINT)lua_tonumber(L, 5);
4407 arg8 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
4412 if(lua_gettop(L)>=7){
4417 if ( lua_isstring( L, 7 ) )
4419 const char* funcstr = lua_tostring( L, 7 );
4420 if ( strcmp(
"pltr0", funcstr ) == 0 )
4424 else if ( strcmp(
"pltr1", funcstr ) == 0 )
4428 else if ( strcmp(
"pltr2", funcstr ) == 0 )
4443 if(lua_gettop(L)>=8){
4448 lua_pushstring( L,
"xg" );
4449 lua_gettable( L, 8 );
4450 if ( !lua_istable( L, -1 ) )
4453 lua_pushstring( L,
"expected a table xg" );
4456 lua_rawgeti( L, -1, 1 );
4457 if ( lua_istable( L, -1 ) )
4459 else if ( lua_isnumber( L, -1 ) )
4465 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
4469 if ( gridmode == 1 )
4471 cgrid111.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
4479 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
4492 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4495 lua_pushfstring( L,
"Vectors must match matrix." );
4503 lua_pushstring( L,
"yg" );
4504 lua_gettable( L, 8 );
4505 if ( !lua_istable( L, -1 ) )
4508 lua_pushstring( L,
"expected a table yg" );
4511 lua_rawgeti( L, -1, 1 );
4512 if ( gridmode == 2 )
4514 if ( !lua_istable( L, -1 ) )
4518 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
4524 if ( !lua_isnumber( L, -1 ) )
4528 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
4533 if ( gridmode == 1 )
4535 cgrid111.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
4543 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
4556 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4559 lua_pushfstring( L,
"Vectors must match matrix." );
4566 if ( gridmode == 1 )
4568 else if ( gridmode == 2 )
4572 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
4579 for ( i = 0; i < ii1; i++ )
4598 for ( i = 0; i <
Xlen; i++ )
4604 for ( i = 0; i <
Xlen; i++ )
4619 for ( i = 0; i < ii1; i++ )
4638 for ( i = 0; i <
Xlen; i++ )
4644 for ( i = 0; i <
Xlen; i++ )
4673 arg1 = (
PLINT)lua_tonumber(L, 1);
4674 arg2 = (
PLINT)lua_tonumber(L, 2);
4675 arg3 = (
PLINT)lua_tonumber(L, 3);
4676 arg4 = (
PLINT)lua_tonumber(L, 4);
4677 arg5 = (
PLINT)lua_tonumber(L, 5);
4678 arg6 = (
PLFLT)lua_tonumber(L, 6);
4679 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4681 lua_pushnumber(L, (lua_Number) *arg7); SWIG_arg++;
4699 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcpstrm",2,
"PLBOOL");
4700 arg1 = (
PLINT)lua_tonumber(L, 1);
4701 arg2 = (
PLBOOL)lua_tonumber(L, 2);
4762 arg1 = (
PLFLT)lua_tonumber(L, 1);
4763 arg2 = (
PLFLT)lua_tonumber(L, 2);
4764 arg3 = (
PLFLT)lua_tonumber(L, 3);
4765 arg4 = (
PLFLT)lua_tonumber(L, 4);
4766 arg5 = (
PLINT)lua_tonumber(L, 5);
4767 arg6 = (
PLINT)lua_tonumber(L, 6);
4768 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
4796 arg1 = (
PLFLT)lua_tonumber(L, 1);
4797 arg2 = (
PLFLT)lua_tonumber(L, 2);
4798 arg3 = (
PLFLT)lua_tonumber(L, 3);
4799 arg4 = (
PLFLT)lua_tonumber(L, 4);
4800 arg5 = (
PLINT)lua_tonumber(L, 5);
4801 arg6 = (
PLINT)lua_tonumber(L, 6);
4802 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
4842 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4848 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4851 if ( temp3 !=
Alen )
4853 lua_pushfstring( L,
"Tables must be of same length." );
4858 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4861 if ( temp4 !=
Alen )
4863 lua_pushfstring( L,
"Tables must be of same length." );
4867 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4909 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4915 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4918 if ( temp3 !=
Alen )
4920 lua_pushfstring( L,
"Tables must be of same length." );
4925 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4928 if ( temp4 !=
Alen )
4930 lua_pushfstring( L,
"Tables must be of same length." );
4934 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4990 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4996 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4999 if ( temp3 !=
Alen )
5001 lua_pushfstring( L,
"Tables must be of same length." );
5005 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
5041 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5047 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5050 if ( temp3 !=
Alen )
5052 lua_pushfstring( L,
"Tables must be of same length." );
5057 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
5060 if ( temp4 !=
Alen )
5062 lua_pushfstring( L,
"Tables must be of same length." );
5066 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5105 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plgradient",3,
"PLFLT");
5108 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5114 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5117 if ( temp3 !=
Alen )
5119 lua_pushfstring( L,
"Tables must be of same length." );
5123 arg4 = (
PLFLT)lua_tonumber(L, 3);
5124 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
5170 arg1 = (
PLINT)lua_tonumber(L, 1);
5189 arg1 = (
PLINT)lua_tonumber(L, 1);
5214 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5215 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5241 arg1 = (
PLINT)lua_tonumber(L, 1);
5244 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5245 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5246 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5275 arg1 = (
PLINT)lua_tonumber(L, 1);
5276 plgcol0a(arg1,arg2,arg3,arg4,arg5);
5278 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5279 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5280 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5281 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5307 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5308 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5309 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5338 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5339 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5340 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5341 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5361 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5374 char *arg1 = (
char *) 0 ;
5384 lua_pushstring( L, arg1 );
5415 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5416 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5417 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5418 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5438 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5467 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5468 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5469 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5470 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5496 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5497 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5498 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5518 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5531 char *arg1 = (
char *) 0 ;
5541 lua_pushstring( L, arg1 );
5569 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5570 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5571 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5591 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5624 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
5626 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5627 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5628 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5629 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5630 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5631 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
5674 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plgriddata",6,
"PLINT");
5675 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plgriddata",7,
"PLFLT");
5678 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5684 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp2 );
5687 if ( temp2 !=
Alen )
5689 lua_pushfstring( L,
"Tables must be of same length." );
5695 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp );
5700 lua_pushfstring( L,
"Tables must be of same length." );
5707 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
5715 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
5723 for ( i = 0; i <
Xlen; i++ )
5726 for ( i = 0; i <
Xlen; i++ )
5733 arg10 = (
PLINT)lua_tonumber(L, 6);
5734 arg11 = (
PLFLT)lua_tonumber(L, 7);
5735 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
5743 for ( i = 0; i <
Xlen; i++ )
5745 SWIG_write_double_num_array( L, arg9[i],
Ylen );
5746 lua_rawseti( L, -2, i + 1 );
5770 for ( i = 0; i <
Xlen; i++ )
5799 for ( i = 0; i <
Xlen; i++ )
5825 plgspa(arg1,arg2,arg3,arg4);
5827 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5828 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5829 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5830 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5850 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5863 char *arg1 = (
char *) 0 ;
5873 lua_pushstring( L, arg1 );
5902 plgvpd(arg1,arg2,arg3,arg4);
5904 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5905 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5906 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5907 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5934 plgvpw(arg1,arg2,arg3,arg4);
5936 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5937 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5938 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5939 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5962 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5963 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5986 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5987 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6010 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6011 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6038 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6043 arg3 = (
PLFLT)lua_tonumber(L, 2);
6044 arg4 = (
PLFLT)lua_tonumber(L, 3);
6045 arg5 = (
PLINT)lua_tonumber(L, 4);
6046 arg6 = (
PLINT)lua_tonumber(L, 5);
6047 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
6084 arg1 = (
PLFLT)lua_tonumber(L, 1);
6085 arg2 = (
PLFLT)lua_tonumber(L, 2);
6086 arg3 = (
PLFLT)lua_tonumber(L, 3);
6087 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
6089 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
6090 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
6091 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
6130 arg1 = (
PLFLT)lua_tonumber(L, 1);
6131 arg2 = (
PLFLT)lua_tonumber(L, 2);
6132 arg3 = (
PLFLT)lua_tonumber(L, 3);
6133 arg4 = (
PLFLT)lua_tonumber(L, 4);
6134 pljoin(arg1,arg2,arg3,arg4);
6148 char *arg1 = (
char *) 0 ;
6149 char *arg2 = (
char *) 0 ;
6150 char *arg3 = (
char *) 0 ;
6156 arg1 = (
char *)lua_tostring(L, 1);
6157 arg2 = (
char *)lua_tostring(L, 2);
6158 arg3 = (
char *)lua_tostring(L, 3);
6159 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
6192 char **arg20 = (
char **) 0 ;
6203 char **arg31 = (
char **) 0 ;
6260 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"pllegend",10,
"PLINT");
6261 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"pllegend",12,
"PLFLT");
6262 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"pllegend",13,
"PLFLT");
6263 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"pllegend",14,
"PLFLT");
6264 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"pllegend",15,
"PLFLT");
6265 if(!lua_istable(L,17))
SWIG_fail_arg(
"pllegend",17,
"char const **");
6266 if(lua_gettop(L)>=28 && !lua_istable(L,28))
SWIG_fail_arg(
"pllegend",28,
"char const **");
6267 arg3 = (
PLINT)lua_tonumber(L, 1);
6268 arg4 = (
PLINT)lua_tonumber(L, 2);
6269 arg5 = (
PLFLT)lua_tonumber(L, 3);
6270 arg6 = (
PLFLT)lua_tonumber(L, 4);
6271 arg7 = (
PLFLT)lua_tonumber(L, 5);
6272 arg8 = (
PLINT)lua_tonumber(L, 6);
6273 arg9 = (
PLINT)lua_tonumber(L, 7);
6274 arg10 = (
PLINT)lua_tonumber(L, 8);
6275 arg11 = (
PLINT)lua_tonumber(L, 9);
6276 arg12 = (
PLINT)lua_tonumber(L, 10);
6278 arg14 = (
PLINT *) LUA_get_int_num_array_var( L, 11, &arg13 );
6283 arg15 = (
PLFLT)lua_tonumber(L, 12);
6284 arg16 = (
PLFLT)lua_tonumber(L, 13);
6285 arg17 = (
PLFLT)lua_tonumber(L, 14);
6286 arg18 = (
PLFLT)lua_tonumber(L, 15);
6288 arg19 = (
PLINT *) LUA_get_int_num_array_var( L, 16, &temp19 );
6291 if ( temp19 !=
Alen )
6293 lua_pushfstring( L,
"Tables must be of same length." );
6303 lua_pushfstring( L,
"Tables must be of same length." );
6306 arg20 = malloc(
sizeof (
char* ) *
Alen );
6307 for ( i = 1; i <=
Alen; i++ )
6309 lua_rawgeti( L, 17, i );
6310 if ( lua_isstring( L, -1 ) )
6312 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6317 lua_pushfstring( L,
"Requires a sequence of strings." );
6324 if(lua_gettop(L)>=18){
6326 if ( lua_isnil( L, 18 ) )
6332 arg21 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp21 );
6335 if ( temp21 !=
Alen )
6337 lua_pushfstring( L,
"Tables must be of same length." );
6343 if(lua_gettop(L)>=19){
6345 if ( lua_isnil( L, 19 ) )
6351 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp22 );
6354 if ( temp22 !=
Alen )
6356 lua_pushfstring( L,
"Tables must be of same length." );
6362 if(lua_gettop(L)>=20){
6364 if ( lua_isnil( L, 20 ) )
6370 arg23 = (
PLFLT *) LUA_get_double_num_array_var( L, 20, &temp23 );
6373 if ( temp23 !=
Alen )
6375 lua_pushfstring( L,
"Tables must be of same length." );
6381 if(lua_gettop(L)>=21){
6383 if ( lua_isnil( L, 21 ) )
6389 arg24 = (
PLFLT *) LUA_get_double_num_array_var( L, 21, &temp24 );
6392 if ( temp24 !=
Alen )
6394 lua_pushfstring( L,
"Tables must be of same length." );
6400 if(lua_gettop(L)>=22){
6402 if ( lua_isnil( L, 22 ) )
6408 arg25 = (
PLINT *) LUA_get_int_num_array_var( L, 22, &temp25 );
6411 if ( temp25 !=
Alen )
6413 lua_pushfstring( L,
"Tables must be of same length." );
6419 if(lua_gettop(L)>=23){
6421 if ( lua_isnil( L, 23 ) )
6427 arg26 = (
PLINT *) LUA_get_int_num_array_var( L, 23, &temp26 );
6430 if ( temp26 !=
Alen )
6432 lua_pushfstring( L,
"Tables must be of same length." );
6438 if(lua_gettop(L)>=24){
6440 if ( lua_isnil( L, 24 ) )
6446 arg27 = (
PLFLT *) LUA_get_double_num_array_var( L, 24, &temp27 );
6449 if ( temp27 !=
Alen )
6451 lua_pushfstring( L,
"Tables must be of same length." );
6457 if(lua_gettop(L)>=25){
6459 if ( lua_isnil( L, 25 ) )
6465 arg28 = (
PLINT *) LUA_get_int_num_array_var( L, 25, &temp28 );
6468 if ( temp28 !=
Alen )
6470 lua_pushfstring( L,
"Tables must be of same length." );
6476 if(lua_gettop(L)>=26){
6478 if ( lua_isnil( L, 26 ) )
6484 arg29 = (
PLFLT *) LUA_get_double_num_array_var( L, 26, &temp29 );
6487 if ( temp29 !=
Alen )
6489 lua_pushfstring( L,
"Tables must be of same length." );
6495 if(lua_gettop(L)>=27){
6497 if ( lua_isnil( L, 27 ) )
6503 arg30 = (
PLINT *) LUA_get_int_num_array_var( L, 27, &temp30 );
6506 if ( temp30 !=
Alen )
6508 lua_pushfstring( L,
"Tables must be of same length." );
6514 if(lua_gettop(L)>=28){
6521 lua_pushfstring( L,
"Tables must be of same length." );
6524 arg31 = malloc(
sizeof (
char* ) *
Alen );
6525 for ( i = 1; i <=
Alen; i++ )
6527 lua_rawgeti( L, 28, i );
6528 if ( lua_isstring( L, -1 ) )
6530 arg31[i - 1] = (
char *) lua_tostring( L, -1 );
6535 lua_pushfstring( L,
"Requires a sequence of strings." );
6543 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);
6545 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6546 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6556 free( arg20 ); arg20 = NULL;
6592 free( arg31 ); arg31 = NULL;
6609 free( arg20 ); arg20 = NULL;
6645 free( arg31 ); arg31 = NULL;
6672 char **arg18 = (
char **) 0 ;
6674 char **arg20 = (
char **) 0 ;
6689 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcolorbar",1,
"PLINT");
6690 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcolorbar",2,
"PLINT");
6691 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plcolorbar",3,
"PLFLT");
6692 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plcolorbar",4,
"PLFLT");
6693 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plcolorbar",5,
"PLFLT");
6694 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plcolorbar",6,
"PLFLT");
6695 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plcolorbar",7,
"PLINT");
6696 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plcolorbar",8,
"PLINT");
6697 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plcolorbar",9,
"PLINT");
6698 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plcolorbar",10,
"PLFLT");
6699 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plcolorbar",11,
"PLFLT");
6700 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plcolorbar",12,
"PLINT");
6701 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plcolorbar",13,
"PLFLT");
6702 if(!lua_istable(L,15))
SWIG_fail_arg(
"plcolorbar",15,
"char const **");
6703 arg3 = (
PLINT)lua_tonumber(L, 1);
6704 arg4 = (
PLINT)lua_tonumber(L, 2);
6705 arg5 = (
PLFLT)lua_tonumber(L, 3);
6706 arg6 = (
PLFLT)lua_tonumber(L, 4);
6707 arg7 = (
PLFLT)lua_tonumber(L, 5);
6708 arg8 = (
PLFLT)lua_tonumber(L, 6);
6709 arg9 = (
PLINT)lua_tonumber(L, 7);
6710 arg10 = (
PLINT)lua_tonumber(L, 8);
6711 arg11 = (
PLINT)lua_tonumber(L, 9);
6712 arg12 = (
PLFLT)lua_tonumber(L, 10);
6713 arg13 = (
PLFLT)lua_tonumber(L, 11);
6714 arg14 = (
PLINT)lua_tonumber(L, 12);
6715 arg15 = (
PLFLT)lua_tonumber(L, 13);
6717 arg17 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &arg16 );
6728 lua_pushfstring( L,
"Tables must be of same length." );
6731 arg18 = malloc(
sizeof (
char* ) *
Alen );
6732 for ( i = 1; i <=
Alen; i++ )
6734 lua_rawgeti( L, 15, i );
6735 if ( lua_isstring( L, -1 ) )
6737 arg18[i - 1] = (
char *) lua_tostring( L, -1 );
6742 lua_pushfstring( L,
"Requires a sequence of strings." );
6754 arg20 = malloc(
sizeof (
char* ) *
Alen );
6755 for ( i = 1; i <=
Alen; i++ )
6757 lua_rawgeti( L, 16, i );
6758 if ( lua_isstring( L, -1 ) )
6760 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6765 lua_pushfstring( L,
"Requires a sequence of strings." );
6772 arg21 = (
PLFLT *) LUA_get_double_num_array_var( L, 17, &temp21 );
6775 if ( temp21 !=
Alen )
6777 lua_pushfstring( L,
"Tables must be of same length." );
6782 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp22 );
6785 if ( temp22 !=
Alen )
6787 lua_pushfstring( L,
"Tables must be of same length." );
6794 arg23 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp23 );
6797 if ( temp23 !=
Alen )
6799 lua_pushfstring( L,
"Tables must be of same length." );
6805 for ( i = 0; i <
Xlen; i++ )
6806 if ( arg23[i] >
Ylen )
6815 if ( ( ii24 !=
Xlen ) || ( jj !=
Ylen ) )
6817 lua_pushfstring( L,
"Vectors must match matrix." );
6821 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);
6823 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6824 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6831 free( arg18 ); arg18 = NULL;
6837 free( arg20 ); arg20 = NULL;
6854 for ( i = 0; i < ii24; i++ )
6870 free( arg18 ); arg18 = NULL;
6876 free( arg20 ); arg20 = NULL;
6893 for ( i = 0; i < ii24; i++ )
6910 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pllightsource",1,
"PLFLT");
6911 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pllightsource",2,
"PLFLT");
6912 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pllightsource",3,
"PLFLT");
6913 arg1 = (
PLFLT)lua_tonumber(L, 1);
6914 arg2 = (
PLFLT)lua_tonumber(L, 2);
6915 arg3 = (
PLFLT)lua_tonumber(L, 3);
6938 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6944 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6947 if ( temp3 !=
Alen )
6949 lua_pushfstring( L,
"Tables must be of same length." );
6953 plline(arg1,(
double const *)arg2,(
double const *)arg3);
6989 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6995 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6998 if ( temp3 !=
Alen )
7000 lua_pushfstring( L,
"Tables must be of same length." );
7005 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7008 if ( temp4 !=
Alen )
7010 lua_pushfstring( L,
"Tables must be of same length." );
7014 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
7050 arg1 = (
PLINT)lua_tonumber(L, 1);
7077 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7084 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7097 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7099 lua_pushfstring( L,
"Vectors must match matrix." );
7103 arg6 = (
PLINT)lua_tonumber(L, 4);
7104 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
7117 for ( i = 0; i < ii3; i++ )
7138 for ( i = 0; i < ii3; i++ )
7164 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7171 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7184 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7186 lua_pushfstring( L,
"Vectors must match matrix." );
7190 arg6 = (
PLINT)lua_tonumber(L, 4);
7193 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7198 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7211 for ( i = 0; i < ii3; i++ )
7235 for ( i = 0; i < ii3; i++ )
7257 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
7270 char *arg1 = (
char *) 0 ;
7274 char *arg5 = (
char *) 0 ;
7282 arg1 = (
char *)lua_tostring(L, 1);
7283 arg2 = (
PLFLT)lua_tonumber(L, 2);
7284 arg3 = (
PLFLT)lua_tonumber(L, 3);
7285 arg4 = (
PLFLT)lua_tonumber(L, 4);
7286 arg5 = (
char *)lua_tostring(L, 5);
7287 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7301 char *arg1 = (
char *) 0 ;
7305 char *arg5 = (
char *) 0 ;
7313 arg1 = (
char *)lua_tostring(L, 1);
7314 arg2 = (
PLFLT)lua_tonumber(L, 2);
7315 arg3 = (
PLFLT)lua_tonumber(L, 3);
7316 arg4 = (
PLFLT)lua_tonumber(L, 4);
7317 arg5 = (
char *)lua_tostring(L, 5);
7318 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7346 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7353 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7366 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7368 lua_pushfstring( L,
"Vectors must match matrix." );
7372 arg6 = (
PLINT)lua_tonumber(L, 4);
7373 arg7 = (
PLBOOL)lua_tonumber(L, 5);
7374 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
7387 for ( i = 0; i < ii3; i++ )
7408 for ( i = 0; i < ii3; i++ )
7434 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7441 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7454 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7456 lua_pushfstring( L,
"Vectors must match matrix." );
7460 arg6 = (
PLINT)lua_tonumber(L, 4);
7463 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7468 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7481 for ( i = 0; i < ii3; i++ )
7505 for ( i = 0; i < ii3; i++ )
7540 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7547 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7560 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7562 lua_pushfstring( L,
"Vectors must match matrix." );
7566 arg6 = (
PLINT)lua_tonumber(L, 4);
7569 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7574 arg9 = (
PLINT)lua_tonumber(L, 6);
7576 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7582 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7585 if ( temp12 !=
Alen )
7587 lua_pushfstring( L,
"Tables must be of same length." );
7591 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);
7604 for ( i = 0; i < ii3; i++ )
7634 for ( i = 0; i < ii3; i++ )
7669 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7676 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7689 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7691 lua_pushfstring( L,
"Vectors must match matrix." );
7695 arg6 = (
PLINT)lua_tonumber(L, 4);
7698 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7703 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7716 for ( i = 0; i < ii3; i++ )
7740 for ( i = 0; i < ii3; i++ )
7771 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plsurf3dl",4,
"PLINT");
7772 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plsurf3dl",6,
"PLINT");
7775 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7782 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7795 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7797 lua_pushfstring( L,
"Vectors must match matrix." );
7801 arg6 = (
PLINT)lua_tonumber(L, 4);
7804 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7809 arg9 = (
PLINT)lua_tonumber(L, 6);
7811 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7817 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7820 if ( temp12 !=
Alen )
7822 lua_pushfstring( L,
"Tables must be of same length." );
7826 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);
7839 for ( i = 0; i < ii3; i++ )
7869 for ( i = 0; i < ii3; i++ )
7890 int *arg1 = (
int *) 0 ;
7891 char **arg2 = (
char **) 0 ;
7896 if(!lua_istable(L,1))
SWIG_fail_arg(
"plparseopts",1,
"int *");
7897 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plparseopts",2,
"PLINT");
7906 lua_rawgeti( L, 1, i );
7907 if ( lua_isnil( L, -1 ) )
7920 for ( i = 0; i < n; i++ )
7922 lua_rawgeti( L, 1, i );
7923 if ( lua_isstring( L, -1 ) )
7925 arg2[i] = (
char *) lua_tostring( L, -1 );
7930 lua_pushfstring( L,
"List items must be strings" );
7938 arg3 = (
PLINT)lua_tonumber(L, 2);
7940 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
7966 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
7972 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
7975 if ( temp3 !=
Alen )
7977 lua_pushfstring( L,
"Tables must be of same length." );
7981 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
8019 arg1 = (
PLINT)lua_tonumber(L, 1);
8020 arg2 = (
PLFLT)lua_tonumber(L, 2);
8021 arg3 = (
PLFLT)lua_tonumber(L, 3);
8022 arg4 = (
PLFLT)lua_tonumber(L, 4);
8023 arg5 = (
PLFLT)lua_tonumber(L, 5);
8024 plpath(arg1,arg2,arg3,arg4,arg5);
8048 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8054 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8057 if ( temp3 !=
Alen )
8059 lua_pushfstring( L,
"Tables must be of same length." );
8063 arg4 = (
PLINT)lua_tonumber(L, 3);
8064 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
8102 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8108 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8111 if ( temp3 !=
Alen )
8113 lua_pushfstring( L,
"Tables must be of same length." );
8118 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8121 if ( temp4 !=
Alen )
8123 lua_pushfstring( L,
"Tables must be of same length." );
8127 arg5 = (
PLINT)lua_tonumber(L, 4);
8128 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
8174 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8180 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8183 if ( temp3 !=
Alen )
8185 lua_pushfstring( L,
"Tables must be of same length." );
8190 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8193 if ( temp4 !=
Alen )
8195 lua_pushfstring( L,
"Tables must be of same length." );
8200 arg5 = (
PLINT *) LUA_get_int_num_array_var( L, 4, &temp5 );
8203 if ( temp5 <
Alen - 1 )
8205 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8209 arg6 = (
PLBOOL)lua_tonumber(L, 5);
8210 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
8254 arg1 = (
PLINT)lua_tonumber(L, 1);
8255 arg2 = (
PLINT)lua_tonumber(L, 2);
8274 arg1 = (
PLINT)lua_tonumber(L, 1);
8294 char *arg6 = (
char *) 0 ;
8303 arg1 = (
PLFLT)lua_tonumber(L, 1);
8304 arg2 = (
PLFLT)lua_tonumber(L, 2);
8305 arg3 = (
PLFLT)lua_tonumber(L, 3);
8306 arg4 = (
PLFLT)lua_tonumber(L, 4);
8307 arg5 = (
PLFLT)lua_tonumber(L, 5);
8308 arg6 = (
char *)lua_tostring(L, 6);
8309 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
8333 char *arg11 = (
char *) 0 ;
8345 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plptex3",10,
"PLFLT");
8347 arg1 = (
PLFLT)lua_tonumber(L, 1);
8348 arg2 = (
PLFLT)lua_tonumber(L, 2);
8349 arg3 = (
PLFLT)lua_tonumber(L, 3);
8350 arg4 = (
PLFLT)lua_tonumber(L, 4);
8351 arg5 = (
PLFLT)lua_tonumber(L, 5);
8352 arg6 = (
PLFLT)lua_tonumber(L, 6);
8353 arg7 = (
PLFLT)lua_tonumber(L, 7);
8354 arg8 = (
PLFLT)lua_tonumber(L, 8);
8355 arg9 = (
PLFLT)lua_tonumber(L, 9);
8356 arg10 = (
PLFLT)lua_tonumber(L, 10);
8357 arg11 = (
char *)lua_tostring(L, 11);
8358 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
8376 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
8422 arg1 = (
PLFLT)lua_tonumber(L, 1);
8423 arg2 = (
PLFLT)lua_tonumber(L, 2);
8424 arg3 = (
PLFLT)lua_tonumber(L, 3);
8425 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
8427 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
8428 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
8429 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
8448 arg1 = (
PLFLT)lua_tonumber(L, 1);
8449 arg2 = (
PLFLT)lua_tonumber(L, 2);
8474 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8480 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8483 if ( temp2 !=
Alen )
8485 lua_pushfstring( L,
"Tables must be of same length." );
8490 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8493 if ( temp3 !=
Alen )
8495 lua_pushfstring( L,
"Tables must be of same length." );
8500 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8543 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8549 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8552 if ( temp2 !=
Alen )
8554 lua_pushfstring( L,
"Tables must be of same length." );
8559 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8562 if ( temp3 !=
Alen )
8564 lua_pushfstring( L,
"Tables must be of same length." );
8570 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8575 lua_pushfstring( L,
"Tables must be of same length." );
8580 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8621 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap0n",1,
"PLINT");
8622 arg1 = (
PLINT)lua_tonumber(L, 1);
8647 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8653 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8656 if ( temp2 !=
Alen )
8658 lua_pushfstring( L,
"Tables must be of same length." );
8663 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8666 if ( temp3 !=
Alen )
8668 lua_pushfstring( L,
"Tables must be of same length." );
8673 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8716 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8722 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8725 if ( temp2 !=
Alen )
8727 lua_pushfstring( L,
"Tables must be of same length." );
8732 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8735 if ( temp3 !=
Alen )
8737 lua_pushfstring( L,
"Tables must be of same length." );
8743 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8748 lua_pushfstring( L,
"Tables must be of same length." );
8753 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8807 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1l",1,
"PLBOOL");
8808 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8811 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8817 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8820 if ( temp4 !=
Alen )
8822 lua_pushfstring( L,
"Tables must be of same length." );
8827 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8830 if ( temp5 !=
Alen )
8832 lua_pushfstring( L,
"Tables must be of same length." );
8837 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8840 if ( temp6 !=
Alen )
8842 lua_pushfstring( L,
"Tables must be of same length." );
8846 if(lua_gettop(L)>=6){
8848 if ( lua_isnil( L, 6 ) )
8854 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 6, &temp7 );
8857 if ( temp7 <
Alen - 1 )
8859 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8865 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
8927 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1la",1,
"PLBOOL");
8928 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8931 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8937 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8940 if ( temp4 !=
Alen )
8942 lua_pushfstring( L,
"Tables must be of same length." );
8947 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8950 if ( temp5 !=
Alen )
8952 lua_pushfstring( L,
"Tables must be of same length." );
8957 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8960 if ( temp6 !=
Alen )
8962 lua_pushfstring( L,
"Tables must be of same length." );
8967 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp7 );
8970 if ( temp7 !=
Alen )
8972 lua_pushfstring( L,
"Tables must be of same length." );
8976 if(lua_gettop(L)>=7){
8978 if ( lua_isnil( L, 7 ) )
8984 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp8 );
8987 if ( temp8 <
Alen - 1 )
8989 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8995 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
9048 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1n",1,
"PLINT");
9049 arg1 = (
PLINT)lua_tonumber(L, 1);
9068 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1_range",1,
"PLFLT");
9069 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscmap1_range",2,
"PLFLT");
9070 arg1 = (
PLFLT)lua_tonumber(L, 1);
9071 arg2 = (
PLFLT)lua_tonumber(L, 2);
9096 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
9097 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
9120 arg1 = (
PLINT)lua_tonumber(L, 1);
9121 arg2 = (
PLINT)lua_tonumber(L, 2);
9122 arg3 = (
PLINT)lua_tonumber(L, 3);
9123 arg4 = (
PLINT)lua_tonumber(L, 4);
9150 arg1 = (
PLINT)lua_tonumber(L, 1);
9151 arg2 = (
PLINT)lua_tonumber(L, 2);
9152 arg3 = (
PLINT)lua_tonumber(L, 3);
9153 arg4 = (
PLINT)lua_tonumber(L, 4);
9154 arg5 = (
PLFLT)lua_tonumber(L, 5);
9155 plscol0a(arg1,arg2,arg3,arg4,arg5);
9177 arg1 = (
PLINT)lua_tonumber(L, 1);
9178 arg2 = (
PLINT)lua_tonumber(L, 2);
9179 arg3 = (
PLINT)lua_tonumber(L, 3);
9200 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscolbga",1,
"PLINT");
9201 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscolbga",2,
"PLINT");
9202 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plscolbga",3,
"PLINT");
9203 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plscolbga",4,
"PLFLT");
9204 arg1 = (
PLINT)lua_tonumber(L, 1);
9205 arg2 = (
PLINT)lua_tonumber(L, 2);
9206 arg3 = (
PLINT)lua_tonumber(L, 3);
9207 arg4 = (
PLFLT)lua_tonumber(L, 4);
9226 arg1 = (
PLINT)lua_tonumber(L, 1);
9244 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscompression",1,
"PLINT");
9245 arg1 = (
PLINT)lua_tonumber(L, 1);
9260 char *arg1 = (
char *) 0 ;
9264 arg1 = (
char *)lua_tostring(L, 1);
9265 plsdev((
char const *)arg1);
9289 arg1 = (
PLFLT)lua_tonumber(L, 1);
9290 arg2 = (
PLFLT)lua_tonumber(L, 2);
9291 arg3 = (
PLFLT)lua_tonumber(L, 3);
9292 arg4 = (
PLFLT)lua_tonumber(L, 4);
9321 arg1 = (
PLINT)lua_tonumber(L, 1);
9322 arg2 = (
PLINT)lua_tonumber(L, 2);
9323 arg3 = (
PLINT)lua_tonumber(L, 3);
9324 arg4 = (
PLINT)lua_tonumber(L, 4);
9325 arg5 = (
PLFLT)lua_tonumber(L, 5);
9326 arg6 = (
PLFLT)lua_tonumber(L, 6);
9327 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
9345 arg1 = (
PLFLT)lua_tonumber(L, 1);
9370 arg1 = (
PLFLT)lua_tonumber(L, 1);
9371 arg2 = (
PLFLT)lua_tonumber(L, 2);
9372 arg3 = (
PLFLT)lua_tonumber(L, 3);
9373 arg4 = (
PLFLT)lua_tonumber(L, 4);
9398 arg1 = (
PLFLT)lua_tonumber(L, 1);
9399 arg2 = (
PLFLT)lua_tonumber(L, 2);
9400 arg3 = (
PLFLT)lua_tonumber(L, 3);
9401 arg4 = (
PLFLT)lua_tonumber(L, 4);
9419 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plseed",1,
"unsigned int");
9421 arg1 = (
unsigned int)lua_tonumber(L, 1);
9440 arg1 = (lua_tostring(L, 1))[0];
9455 char *arg1 = (
char *) 0 ;
9456 char *arg2 = (
char *) 0 ;
9462 arg1 = (
char *)lua_tostring(L, 1);
9463 arg2 = (
char *)lua_tostring(L, 2);
9464 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
9465 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
9486 arg1 = (
PLINT)lua_tonumber(L, 1);
9487 arg2 = (
PLINT)lua_tonumber(L, 2);
9488 arg3 = (
PLINT)lua_tonumber(L, 3);
9506 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plsfci",1,
"PLUNICODE");
9523 char *arg1 = (
char *) 0 ;
9527 arg1 = (
char *)lua_tostring(L, 1);
9550 arg1 = (
PLINT)lua_tonumber(L, 1);
9551 arg2 = (
PLINT)lua_tonumber(L, 2);
9552 arg3 = (
PLINT)lua_tonumber(L, 3);
9589 cgrid117.
xg = cgrid117.
yg = cgrid117.
zg = NULL;
9590 cgrid117.
nx = cgrid117.
ny = cgrid117.
nz = 0;
9591 cgrid217.
xg = cgrid217.
yg = cgrid217.
zg = NULL;
9592 cgrid217.
nx = cgrid217.
ny = 0;
9614 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshades",10,
"PLBOOL");
9624 arg5 = (
PLFLT)lua_tonumber(L, 2);
9625 arg6 = (
PLFLT)lua_tonumber(L, 3);
9626 arg7 = (
PLFLT)lua_tonumber(L, 4);
9627 arg8 = (
PLFLT)lua_tonumber(L, 5);
9630 arg9 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
9633 arg10 =
Alen = temp;
9635 arg11 = (
PLFLT)lua_tonumber(L, 7);
9636 arg12 = (
PLINT)lua_tonumber(L, 8);
9637 arg13 = (
PLFLT)lua_tonumber(L, 9);
9638 arg15 = (
PLBOOL)lua_tonumber(L, 10);
9639 if(lua_gettop(L)>=11){
9644 if ( lua_isstring( L, 11 ) )
9646 const char* funcstr = lua_tostring( L, 11 );
9647 if ( strcmp(
"pltr0", funcstr ) == 0 )
9651 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9655 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9670 if(lua_gettop(L)>=12){
9675 lua_pushstring( L,
"xg" );
9676 lua_gettable( L, 12 );
9677 if ( !lua_istable( L, -1 ) )
9680 lua_pushstring( L,
"expected a table xg" );
9683 lua_rawgeti( L, -1, 1 );
9684 if ( lua_istable( L, -1 ) )
9686 else if ( lua_isnumber( L, -1 ) )
9692 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9696 if ( gridmode == 1 )
9698 cgrid117.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9706 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9719 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9722 lua_pushfstring( L,
"Vectors must match matrix." );
9730 lua_pushstring( L,
"yg" );
9731 lua_gettable( L, 12 );
9732 if ( !lua_istable( L, -1 ) )
9735 lua_pushstring( L,
"expected a table yg" );
9738 lua_rawgeti( L, -1, 1 );
9739 if ( gridmode == 2 )
9741 if ( !lua_istable( L, -1 ) )
9745 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9751 if ( !lua_isnumber( L, -1 ) )
9755 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9760 if ( gridmode == 1 )
9762 cgrid117.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9770 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9783 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9786 lua_pushfstring( L,
"Vectors must match matrix." );
9793 if ( gridmode == 1 )
9795 else if ( gridmode == 2 )
9799 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
9806 for ( i = 0; i < ii1; i++ )
9825 for ( i = 0; i <
Xlen; i++ )
9831 for ( i = 0; i <
Xlen; i++ )
9846 for ( i = 0; i < ii1; i++ )
9865 for ( i = 0; i <
Xlen; i++ )
9871 for ( i = 0; i <
Xlen; i++ )
9909 cgrid121.
xg = cgrid121.
yg = cgrid121.
zg = NULL;
9910 cgrid121.
nx = cgrid121.
ny = cgrid121.
nz = 0;
9911 cgrid221.
xg = cgrid221.
yg = cgrid221.
zg = NULL;
9912 cgrid221.
nx = cgrid221.
ny = 0;
9935 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshade",10,
"PLFLT");
9936 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plshade",11,
"PLINT");
9937 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plshade",12,
"PLFLT");
9938 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plshade",13,
"PLINT");
9939 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"plshade",14,
"PLFLT");
9940 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"plshade",15,
"PLBOOL");
9950 arg5 = (
PLFLT)lua_tonumber(L, 2);
9951 arg6 = (
PLFLT)lua_tonumber(L, 3);
9952 arg7 = (
PLFLT)lua_tonumber(L, 4);
9953 arg8 = (
PLFLT)lua_tonumber(L, 5);
9954 arg9 = (
PLFLT)lua_tonumber(L, 6);
9955 arg10 = (
PLFLT)lua_tonumber(L, 7);
9956 arg11 = (
PLINT)lua_tonumber(L, 8);
9957 arg12 = (
PLFLT)lua_tonumber(L, 9);
9958 arg13 = (
PLFLT)lua_tonumber(L, 10);
9959 arg14 = (
PLINT)lua_tonumber(L, 11);
9960 arg15 = (
PLFLT)lua_tonumber(L, 12);
9961 arg16 = (
PLINT)lua_tonumber(L, 13);
9962 arg17 = (
PLFLT)lua_tonumber(L, 14);
9963 arg19 = (
PLBOOL)lua_tonumber(L, 15);
9964 if(lua_gettop(L)>=16){
9969 if ( lua_isstring( L, 16 ) )
9971 const char* funcstr = lua_tostring( L, 16 );
9972 if ( strcmp(
"pltr0", funcstr ) == 0 )
9976 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9980 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9995 if(lua_gettop(L)>=17){
10000 lua_pushstring( L,
"xg" );
10001 lua_gettable( L, 17 );
10002 if ( !lua_istable( L, -1 ) )
10005 lua_pushstring( L,
"expected a table xg" );
10008 lua_rawgeti( L, -1, 1 );
10009 if ( lua_istable( L, -1 ) )
10011 else if ( lua_isnumber( L, -1 ) )
10017 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
10021 if ( gridmode == 1 )
10023 cgrid121.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
10024 if ( !cgrid121.
xg )
10031 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
10039 if ( !cgrid221.
xg )
10044 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10047 lua_pushfstring( L,
"Vectors must match matrix." );
10055 lua_pushstring( L,
"yg" );
10056 lua_gettable( L, 17 );
10057 if ( !lua_istable( L, -1 ) )
10060 lua_pushstring( L,
"expected a table yg" );
10063 lua_rawgeti( L, -1, 1 );
10064 if ( gridmode == 2 )
10066 if ( !lua_istable( L, -1 ) )
10070 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
10076 if ( !lua_isnumber( L, -1 ) )
10080 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
10085 if ( gridmode == 1 )
10087 cgrid121.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
10088 if ( !cgrid121.
yg )
10095 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
10103 if ( !cgrid221.
yg )
10108 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10111 lua_pushfstring( L,
"Vectors must match matrix." );
10118 if ( gridmode == 1 )
10120 else if ( gridmode == 2 )
10124 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
10131 for ( i = 0; i < ii1; i++ )
10147 for ( i = 0; i <
Xlen; i++ )
10153 for ( i = 0; i <
Xlen; i++ )
10168 for ( i = 0; i < ii1; i++ )
10184 for ( i = 0; i <
Xlen; i++ )
10190 for ( i = 0; i <
Xlen; i++ )
10211 mylabel_funcstr[0] =
'\0';
10213 if ( lua_isnil( L, 1 ) )
10217 else if ( lua_isstring( L, 1 ) )
10220 strncpy( mylabel_funcstr, lua_tostring( L, 1 ), 255 );
10252 arg1 = (
PLFLT)lua_tonumber(L, 1);
10253 arg2 = (
PLFLT)lua_tonumber(L, 2);
10274 arg1 = (
PLFLT)lua_tonumber(L, 1);
10275 arg2 = (
PLFLT)lua_tonumber(L, 2);
10294 arg1 = (
PLINT)lua_tonumber(L, 1);
10323 arg1 = (
PLFLT)lua_tonumber(L, 1);
10324 arg2 = (
PLFLT)lua_tonumber(L, 2);
10325 arg3 = (
PLINT)lua_tonumber(L, 3);
10326 arg4 = (
PLINT)lua_tonumber(L, 4);
10327 arg5 = (
PLINT)lua_tonumber(L, 5);
10328 arg6 = (
PLINT)lua_tonumber(L, 6);
10329 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
10343 char *arg1 = (
char *) 0 ;
10347 arg1 = (
char *)lua_tostring(L, 1);
10362 char *arg1 = (
char *) 0 ;
10367 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plspal1",2,
"PLBOOL");
10368 arg1 = (
char *)lua_tostring(L, 1);
10369 arg2 = (
PLBOOL)lua_tonumber(L, 2);
10370 plspal1((
char const *)arg1,arg2);
10387 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plspause",1,
"PLBOOL");
10388 arg1 = (
PLBOOL)lua_tonumber(L, 1);
10407 arg1 = (
PLINT)lua_tonumber(L, 1);
10428 arg1 = (
PLINT)lua_tonumber(L, 1);
10429 arg2 = (
PLINT)lua_tonumber(L, 2);
10450 arg1 = (
PLFLT)lua_tonumber(L, 1);
10451 arg2 = (
PLFLT)lua_tonumber(L, 2);
10472 arg1 = (
PLINT)lua_tonumber(L, 1);
10473 arg2 = (
PLINT)lua_tonumber(L, 2);
10488 char *arg1 = (
char *) 0 ;
10496 arg1 = (
char *)lua_tostring(L, 1);
10497 arg2 = (
PLINT)lua_tonumber(L, 2);
10498 arg3 = (
PLINT)lua_tonumber(L, 3);
10499 plstart((
char const *)arg1,arg2,arg3);
10518 myct_funcstr[0] =
'\0';
10524 if(lua_gettop(L)>=1){
10527 myct_funcstr[0] =
'\0';
10529 if ( lua_isstring( L, 1 ) )
10531 const char* funcstr = lua_tostring( L, 1 );
10533 strncpy( myct_funcstr, funcstr, 255 );
10557 char *arg4 = (
char *) 0 ;
10564 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10567 arg1 =
Alen = temp;
10570 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10573 if ( temp3 !=
Alen )
10575 lua_pushfstring( L,
"Tables must be of same length." );
10579 arg4 = (
char *)lua_tostring(L, 3);
10580 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
10610 char *arg5 = (
char *) 0 ;
10618 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10621 arg1 =
Alen = temp;
10624 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10627 if ( temp3 !=
Alen )
10629 lua_pushfstring( L,
"Tables must be of same length." );
10634 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
10637 if ( temp4 !=
Alen )
10639 lua_pushfstring( L,
"Tables must be of same length." );
10643 arg5 = (
char *)lua_tostring(L, 4);
10644 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
10682 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripa",1,
"PLINT");
10683 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plstripa",2,
"PLINT");
10684 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripa",3,
"PLFLT");
10685 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripa",4,
"PLFLT");
10686 arg1 = (
PLINT)lua_tonumber(L, 1);
10687 arg2 = (
PLINT)lua_tonumber(L, 2);
10688 arg3 = (
PLFLT)lua_tonumber(L, 3);
10689 arg4 = (
PLFLT)lua_tonumber(L, 4);
10705 char *arg2 = (
char *) 0 ;
10706 char *arg3 = (
char *) 0 ;
10721 char *arg18 = (
char *) 0 ;
10722 char *arg19 = (
char *) 0 ;
10723 char *arg20 = (
char *) 0 ;
10735 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripc",3,
"PLFLT");
10736 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripc",4,
"PLFLT");
10737 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plstripc",5,
"PLFLT");
10738 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plstripc",6,
"PLFLT");
10739 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plstripc",7,
"PLFLT");
10740 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plstripc",8,
"PLFLT");
10741 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plstripc",9,
"PLFLT");
10742 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plstripc",10,
"PLBOOL");
10743 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plstripc",11,
"PLBOOL");
10744 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plstripc",12,
"PLINT");
10745 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plstripc",13,
"PLINT");
10746 if(lua_gettop(L)>=16 && !lua_istable(L,16))
SWIG_fail_arg(
"plstripc",16,
"char const *[4]");
10750 arg2 = (
char *)lua_tostring(L, 1);
10751 arg3 = (
char *)lua_tostring(L, 2);
10752 arg4 = (
PLFLT)lua_tonumber(L, 3);
10753 arg5 = (
PLFLT)lua_tonumber(L, 4);
10754 arg6 = (
PLFLT)lua_tonumber(L, 5);
10755 arg7 = (
PLFLT)lua_tonumber(L, 6);
10756 arg8 = (
PLFLT)lua_tonumber(L, 7);
10757 arg9 = (
PLFLT)lua_tonumber(L, 8);
10758 arg10 = (
PLFLT)lua_tonumber(L, 9);
10759 arg11 = (
PLBOOL)lua_tonumber(L, 10);
10760 arg12 = (
PLBOOL)lua_tonumber(L, 11);
10761 arg13 = (
PLINT)lua_tonumber(L, 12);
10762 arg14 = (
PLINT)lua_tonumber(L, 13);
10764 arg15 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &temp15 );
10770 arg16 = (
PLINT *) LUA_get_int_num_array_var( L, 15, &temp16 );
10773 if ( temp16 !=
Alen )
10775 lua_pushfstring( L,
"Tables must be of same length." );
10779 if(lua_gettop(L)>=16){
10786 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10791 lua_pushfstring( L,
"colline and styline args must be length 4." );
10795 arg17 = malloc(
sizeof (
char* ) * 4 );
10796 for ( i = 1; i <= 4; i++ )
10798 lua_rawgeti( L, 16, i );
10799 if ( lua_isstring( L, -1 ) )
10801 arg17[i - 1] = (
char *) lua_tostring( L, -1 );
10806 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10814 if(lua_gettop(L)>=17){
10815 arg18 = (
char *)lua_tostring(L, 17);
10817 if(lua_gettop(L)>=18){
10818 arg19 = (
char *)lua_tostring(L, 18);
10820 if(lua_gettop(L)>=19){
10821 arg20 = (
char *)lua_tostring(L, 19);
10823 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);
10825 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
10835 free( arg17 ); arg17 = NULL;
10852 free( arg17 ); arg17 = NULL;
10865 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripd",1,
"PLINT");
10866 arg1 = (
PLINT)lua_tonumber(L, 1);
10888 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
10894 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
10897 if ( temp3 !=
Alen )
10899 lua_pushfstring( L,
"Tables must be of same length." );
10903 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
10935 arg2 = NULL; arg3 = 0;
10941 if(lua_gettop(L)>=3 && !lua_isnumber(L,3))
SWIG_fail_arg(
"plsvect",3,
"PLBOOL");
10944 if ( lua_isnil( L, 1 ) )
10951 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10957 if(lua_gettop(L)>=2){
10960 if ( lua_isnil( L, 2 ) )
10966 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
10969 if ( temp !=
Alen )
10971 lua_pushfstring( L,
"Tables must be of same length." );
10978 if(lua_gettop(L)>=3){
10979 arg4 = (
PLBOOL)lua_tonumber(L, 3);
10981 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
11011 arg1 = (
PLFLT)lua_tonumber(L, 1);
11012 arg2 = (
PLFLT)lua_tonumber(L, 2);
11013 arg3 = (
PLFLT)lua_tonumber(L, 3);
11014 arg4 = (
PLFLT)lua_tonumber(L, 4);
11015 plsvpa(arg1,arg2,arg3,arg4);
11035 arg1 = (
PLINT)lua_tonumber(L, 1);
11036 arg2 = (
PLINT)lua_tonumber(L, 2);
11057 arg1 = (
PLINT)lua_tonumber(L, 1);
11058 arg2 = (
PLINT)lua_tonumber(L, 2);
11083 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
11086 arg1 =
Alen = temp;
11089 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
11092 if ( temp3 !=
Alen )
11094 lua_pushfstring( L,
"Tables must be of same length." );
11098 arg4 = (
PLINT)lua_tonumber(L, 3);
11099 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
11131 arg1 = (
PLINT)lua_tonumber(L, 1);
11132 arg2 = (
PLINT)lua_tonumber(L, 2);
11163 char *arg1 = (
char *) 0 ;
11167 arg1 = (
char *)lua_tostring(L, 1);
11186 arg1 = (
PLFLT)lua_tonumber(L, 1);
11214 cgrid17.
xg = cgrid17.
yg = cgrid17.
zg = NULL;
11215 cgrid17.
nx = cgrid17.
ny = cgrid17.
nz = 0;
11216 cgrid27.
xg = cgrid27.
yg = cgrid27.
zg = NULL;
11217 cgrid27.
nx = cgrid27.
ny = 0;
11244 if ( ( arg3 !=
Xlen ) || ( arg4 !=
Ylen ) )
11246 lua_pushfstring( L,
"Vectors must match matrix." );
11250 arg5 = (
PLFLT)lua_tonumber(L, 3);
11251 if(lua_gettop(L)>=4){
11256 if ( lua_isstring( L, 4 ) )
11258 const char* funcstr = lua_tostring( L, 4 );
11259 if ( strcmp(
"pltr0", funcstr ) == 0 )
11263 else if ( strcmp(
"pltr1", funcstr ) == 0 )
11267 else if ( strcmp(
"pltr2", funcstr ) == 0 )
11282 if(lua_gettop(L)>=5){
11287 lua_pushstring( L,
"xg" );
11288 lua_gettable( L, 5 );
11289 if ( !lua_istable( L, -1 ) )
11292 lua_pushstring( L,
"expected a table xg" );
11295 lua_rawgeti( L, -1, 1 );
11296 if ( lua_istable( L, -1 ) )
11298 else if ( lua_isnumber( L, -1 ) )
11304 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
11308 if ( gridmode == 1 )
11310 cgrid17.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
11318 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
11331 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11334 lua_pushfstring( L,
"Vectors must match matrix." );
11342 lua_pushstring( L,
"yg" );
11343 lua_gettable( L, 5 );
11344 if ( !lua_istable( L, -1 ) )
11347 lua_pushstring( L,
"expected a table yg" );
11350 lua_rawgeti( L, -1, 1 );
11351 if ( gridmode == 2 )
11353 if ( !lua_istable( L, -1 ) )
11357 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
11363 if ( !lua_isnumber( L, -1 ) )
11367 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
11372 if ( gridmode == 1 )
11374 cgrid17.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
11382 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
11395 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11398 lua_pushfstring( L,
"Vectors must match matrix." );
11405 if ( gridmode == 1 )
11407 else if ( gridmode == 2 )
11411 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
11418 for ( i = 0; i < ii1; i++ )
11428 for ( i = 0; i < ii2; i++ )
11444 for ( i = 0; i <
Xlen; i++ )
11450 for ( i = 0; i <
Xlen; i++ )
11465 for ( i = 0; i < ii1; i++ )
11475 for ( i = 0; i < ii2; i++ )
11491 for ( i = 0; i <
Xlen; i++ )
11497 for ( i = 0; i <
Xlen; i++ )
11521 arg1 = (
PLFLT)lua_tonumber(L, 1);
11522 arg2 = (
PLFLT)lua_tonumber(L, 2);
11523 arg3 = (
PLFLT)lua_tonumber(L, 3);
11524 arg4 = (
PLFLT)lua_tonumber(L, 4);
11525 arg5 = (
PLFLT)lua_tonumber(L, 5);
11526 plvpas(arg1,arg2,arg3,arg4,arg5);
11550 arg1 = (
PLFLT)lua_tonumber(L, 1);
11551 arg2 = (
PLFLT)lua_tonumber(L, 2);
11552 arg3 = (
PLFLT)lua_tonumber(L, 3);
11553 arg4 = (
PLFLT)lua_tonumber(L, 4);
11554 plvpor(arg1,arg2,arg3,arg4);
11608 arg1 = (
PLFLT)lua_tonumber(L, 1);
11609 arg2 = (
PLFLT)lua_tonumber(L, 2);
11610 arg3 = (
PLFLT)lua_tonumber(L, 3);
11611 arg4 = (
PLFLT)lua_tonumber(L, 4);
11612 arg5 = (
PLFLT)lua_tonumber(L, 5);
11613 arg6 = (
PLFLT)lua_tonumber(L, 6);
11614 arg7 = (
PLFLT)lua_tonumber(L, 7);
11615 arg8 = (
PLFLT)lua_tonumber(L, 8);
11616 arg9 = (
PLFLT)lua_tonumber(L, 9);
11617 arg10 = (
PLFLT)lua_tonumber(L, 10);
11618 arg11 = (
PLFLT)lua_tonumber(L, 11);
11619 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
11637 arg1 = (
PLFLT)lua_tonumber(L, 1);
11662 arg1 = (
PLFLT)lua_tonumber(L, 1);
11663 arg2 = (
PLFLT)lua_tonumber(L, 2);
11664 arg3 = (
PLFLT)lua_tonumber(L, 3);
11665 arg4 = (
PLFLT)lua_tonumber(L, 4);
11666 plwind(arg1,arg2,arg3,arg4);
11686 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plxormod",1,
"PLBOOL");
11687 arg1 = (
PLBOOL)lua_tonumber(L, 1);
11690 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
11704 char *arg2 = (
char *) 0 ;
11720 if ( lua_isnil( L, 1 ) )
11724 else if ( lua_isstring( L, 1 ) )
11733 arg2 = (
char *)lua_tostring(L, 2);
11734 arg3 = (
PLFLT)lua_tonumber(L, 3);
11735 arg4 = (
PLFLT)lua_tonumber(L, 4);
11736 arg5 = (
PLFLT)lua_tonumber(L, 5);
11737 arg6 = (
PLFLT)lua_tonumber(L, 6);
11738 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
11759 char *arg2 = (
char *) 0 ;
11770 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapline",3,
"PLFLT");
11771 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapline",4,
"PLFLT");
11772 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapline",5,
"PLFLT");
11773 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapline",6,
"PLFLT");
11778 if ( lua_isnil( L, 1 ) )
11782 else if ( lua_isstring( L, 1 ) )
11791 arg2 = (
char *)lua_tostring(L, 2);
11792 arg3 = (
PLFLT)lua_tonumber(L, 3);
11793 arg4 = (
PLFLT)lua_tonumber(L, 4);
11794 arg5 = (
PLFLT)lua_tonumber(L, 5);
11795 arg6 = (
PLFLT)lua_tonumber(L, 6);
11797 if ( lua_isnil( L, 7 ) )
11804 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
11810 plmapline(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11837 char *arg2 = (
char *) 0 ;
11838 char *arg3 = (
char *) 0 ;
11850 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapstring",4,
"PLFLT");
11851 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapstring",5,
"PLFLT");
11852 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapstring",6,
"PLFLT");
11853 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmapstring",7,
"PLFLT");
11858 if ( lua_isnil( L, 1 ) )
11862 else if ( lua_isstring( L, 1 ) )
11871 arg2 = (
char *)lua_tostring(L, 2);
11872 arg3 = (
char *)lua_tostring(L, 3);
11873 arg4 = (
PLFLT)lua_tonumber(L, 4);
11874 arg5 = (
PLFLT)lua_tonumber(L, 5);
11875 arg6 = (
PLFLT)lua_tonumber(L, 6);
11876 arg7 = (
PLFLT)lua_tonumber(L, 7);
11878 if ( lua_isnil( L, 8 ) )
11885 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp8 );
11891 plmapstring(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,(
int const *)arg8,arg9);
11918 char *arg2 = (
char *) 0 ;
11922 char *arg6 = (
char *) 0 ;
11931 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmaptex",3,
"PLFLT");
11932 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmaptex",4,
"PLFLT");
11933 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmaptex",5,
"PLFLT");
11935 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmaptex",7,
"PLFLT");
11936 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plmaptex",8,
"PLFLT");
11937 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plmaptex",9,
"PLFLT");
11938 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plmaptex",10,
"PLFLT");
11939 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plmaptex",11,
"PLINT");
11944 if ( lua_isnil( L, 1 ) )
11948 else if ( lua_isstring( L, 1 ) )
11957 arg2 = (
char *)lua_tostring(L, 2);
11958 arg3 = (
PLFLT)lua_tonumber(L, 3);
11959 arg4 = (
PLFLT)lua_tonumber(L, 4);
11960 arg5 = (
PLFLT)lua_tonumber(L, 5);
11961 arg6 = (
char *)lua_tostring(L, 6);
11962 arg7 = (
PLFLT)lua_tonumber(L, 7);
11963 arg8 = (
PLFLT)lua_tonumber(L, 8);
11964 arg9 = (
PLFLT)lua_tonumber(L, 9);
11965 arg10 = (
PLFLT)lua_tonumber(L, 10);
11966 arg11 = (
PLINT)lua_tonumber(L, 11);
11967 plmaptex(arg1,(
char const *)arg2,arg3,arg4,arg5,(
char const *)arg6,arg7,arg8,arg9,arg10,arg11);
11988 char *arg2 = (
char *) 0 ;
11999 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapfill",3,
"PLFLT");
12000 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapfill",4,
"PLFLT");
12001 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapfill",5,
"PLFLT");
12002 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapfill",6,
"PLFLT");
12007 if ( lua_isnil( L, 1 ) )
12011 else if ( lua_isstring( L, 1 ) )
12020 arg2 = (
char *)lua_tostring(L, 2);
12021 arg3 = (
PLFLT)lua_tonumber(L, 3);
12022 arg4 = (
PLFLT)lua_tonumber(L, 4);
12023 arg5 = (
PLFLT)lua_tonumber(L, 5);
12024 arg6 = (
PLFLT)lua_tonumber(L, 6);
12026 if ( lua_isnil( L, 7 ) )
12033 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
12039 plmapfill(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
12074 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plmeridians",2,
"PLFLT");
12075 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmeridians",3,
"PLFLT");
12076 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmeridians",4,
"PLFLT");
12077 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmeridians",5,
"PLFLT");
12078 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmeridians",6,
"PLFLT");
12079 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmeridians",7,
"PLFLT");
12084 if ( lua_isnil( L, 1 ) )
12088 else if ( lua_isstring( L, 1 ) )
12097 arg2 = (
PLFLT)lua_tonumber(L, 2);
12098 arg3 = (
PLFLT)lua_tonumber(L, 3);
12099 arg4 = (
PLFLT)lua_tonumber(L, 4);
12100 arg5 = (
PLFLT)lua_tonumber(L, 5);
12101 arg6 = (
PLFLT)lua_tonumber(L, 6);
12102 arg7 = (
PLFLT)lua_tonumber(L, 7);
12147 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plimage",10,
"PLFLT");
12148 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plimage",11,
"PLFLT");
12158 arg4 = (
PLFLT)lua_tonumber(L, 2);
12159 arg5 = (
PLFLT)lua_tonumber(L, 3);
12160 arg6 = (
PLFLT)lua_tonumber(L, 4);
12161 arg7 = (
PLFLT)lua_tonumber(L, 5);
12162 arg8 = (
PLFLT)lua_tonumber(L, 6);
12163 arg9 = (
PLFLT)lua_tonumber(L, 7);
12164 arg10 = (
PLFLT)lua_tonumber(L, 8);
12165 arg11 = (
PLFLT)lua_tonumber(L, 9);
12166 arg12 = (
PLFLT)lua_tonumber(L, 10);
12167 arg13 = (
PLFLT)lua_tonumber(L, 11);
12168 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
12175 for ( i = 0; i < ii1; i++ )
12190 for ( i = 0; i < ii1; i++ )
12220 cgrid113.
xg = cgrid113.
yg = cgrid113.
zg = NULL;
12221 cgrid113.
nx = cgrid113.
ny = cgrid113.
nz = 0;
12222 cgrid213.
xg = cgrid213.
yg = cgrid213.
zg = NULL;
12223 cgrid213.
nx = cgrid213.
ny = 0;
12232 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plimagefr",2,
"PLFLT");
12233 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plimagefr",3,
"PLFLT");
12234 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plimagefr",4,
"PLFLT");
12235 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plimagefr",5,
"PLFLT");
12236 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plimagefr",6,
"PLFLT");
12237 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plimagefr",7,
"PLFLT");
12238 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plimagefr",8,
"PLFLT");
12239 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plimagefr",9,
"PLFLT");
12249 arg4 = (
PLFLT)lua_tonumber(L, 2);
12250 arg5 = (
PLFLT)lua_tonumber(L, 3);
12251 arg6 = (
PLFLT)lua_tonumber(L, 4);
12252 arg7 = (
PLFLT)lua_tonumber(L, 5);
12253 arg8 = (
PLFLT)lua_tonumber(L, 6);
12254 arg9 = (
PLFLT)lua_tonumber(L, 7);
12255 arg10 = (
PLFLT)lua_tonumber(L, 8);
12256 arg11 = (
PLFLT)lua_tonumber(L, 9);
12257 if(lua_gettop(L)>=10){
12262 if ( lua_isstring( L, 10 ) )
12264 const char* funcstr = lua_tostring( L, 10 );
12265 if ( strcmp(
"pltr0", funcstr ) == 0 )
12269 else if ( strcmp(
"pltr1", funcstr ) == 0 )
12273 else if ( strcmp(
"pltr2", funcstr ) == 0 )
12288 if(lua_gettop(L)>=11){
12293 lua_pushstring( L,
"xg" );
12294 lua_gettable( L, 11 );
12295 if ( !lua_istable( L, -1 ) )
12298 lua_pushstring( L,
"expected a table xg" );
12301 lua_rawgeti( L, -1, 1 );
12302 if ( lua_istable( L, -1 ) )
12304 else if ( lua_isnumber( L, -1 ) )
12310 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
12314 if ( gridmode == 1 )
12316 cgrid113.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
12317 if ( !cgrid113.
xg )
12324 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
12332 if ( !cgrid213.
xg )
12337 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12340 lua_pushfstring( L,
"Vectors must match matrix." );
12348 lua_pushstring( L,
"yg" );
12349 lua_gettable( L, 11 );
12350 if ( !lua_istable( L, -1 ) )
12353 lua_pushstring( L,
"expected a table yg" );
12356 lua_rawgeti( L, -1, 1 );
12357 if ( gridmode == 2 )
12359 if ( !lua_istable( L, -1 ) )
12363 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
12369 if ( !lua_isnumber( L, -1 ) )
12373 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
12378 if ( gridmode == 1 )
12380 cgrid113.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
12381 if ( !cgrid113.
yg )
12388 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
12396 if ( !cgrid213.
yg )
12401 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12404 lua_pushfstring( L,
"Vectors must match matrix." );
12411 if ( gridmode == 1 )
12413 else if ( gridmode == 2 )
12417 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
12424 for ( i = 0; i < ii1; i++ )
12440 for ( i = 0; i <
Xlen; i++ )
12446 for ( i = 0; i <
Xlen; i++ )
12461 for ( i = 0; i < ii1; i++ )
12477 for ( i = 0; i <
Xlen; i++ )
12483 for ( i = 0; i <
Xlen; i++ )
12527 char *arg1 = (
char *) 0 ;
12528 char *arg2 = (
char *) 0 ;
12533 arg1 = (
char *)lua_tostring(L, 1);
12534 arg2 = (
char *)lua_tostring(L, 2);
12535 plSetUsage((
char const *)arg1,(
char const *)arg2);
12588 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
12589 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
12595 for ( i = 0; i < ii1; i++ )
12610 for ( i = 0; i < ii1; i++ )
12633 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
12646 char *arg1 = (
char *) 0 ;
12649 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plwarn",1,
"char const *");
12651 arg1 = (
char *) lua_tostring( L, 1 );
12653 plwarn((
char const *)arg1);
12667 char *arg1 = (
char *) 0 ;
12670 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plabort",1,
"char const *");
12672 arg1 = (
char *) lua_tostring( L, 1 );
13071 swig_SwigModule_namespaces
13187 #define SWIGRUNTIME_DEBUG 13198 if (swig_module.
next==0) {
13210 if (!module_head) {
13218 if (iter==&swig_module) {
13223 }
while (iter!= module_head);
13226 swig_module.
next = module_head->
next;
13234 if (init == 0)
return;
13237 #ifdef SWIGRUNTIME_DEBUG 13238 printf(
"SWIG_InitializeModule: size %d\n", swig_module.
size);
13240 for (i = 0; i < swig_module.
size; ++i) {
13245 #ifdef SWIGRUNTIME_DEBUG 13246 printf(
"SWIG_InitializeModule: type %d %s\n", i, swig_module.
type_initial[i]->
name);
13250 if (swig_module.
next != &swig_module) {
13255 #ifdef SWIGRUNTIME_DEBUG 13256 printf(
"SWIG_InitializeModule: found type %s\n", type->
name);
13260 #ifdef SWIGRUNTIME_DEBUG 13261 printf(
"SWIG_InitializeModule: found and overwrite type %s \n", type->
name);
13270 while (cast->
type) {
13274 #ifdef SWIGRUNTIME_DEBUG 13275 printf(
"SWIG_InitializeModule: look cast %s\n", cast->
type->
name);
13277 if (swig_module.
next != &swig_module) {
13279 #ifdef SWIGRUNTIME_DEBUG 13280 if (ret) printf(
"SWIG_InitializeModule: found cast %s\n", ret->
name);
13285 #ifdef SWIGRUNTIME_DEBUG 13286 printf(
"SWIG_InitializeModule: skip old type %s\n", ret->
name);
13293 #ifdef SWIGRUNTIME_DEBUG 13294 if (ocast) printf(
"SWIG_InitializeModule: skip old cast %s\n", ret->
name);
13296 if (!ocast) ret = 0;
13301 #ifdef SWIGRUNTIME_DEBUG 13302 printf(
"SWIG_InitializeModule: adding cast %s\n", cast->
type->
name);
13313 swig_module.
types[i] = type;
13315 swig_module.
types[i] = 0;
13317 #ifdef SWIGRUNTIME_DEBUG 13318 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13319 for (i = 0; i < swig_module.
size; ++i) {
13322 printf(
"SWIG_InitializeModule: type %d %s\n", i, swig_module.
type_initial[i]->
name);
13323 while (cast->
type) {
13324 printf(
"SWIG_InitializeModule: cast type %s\n", cast->
type->
name);
13328 printf(
"---- Total casts: %d\n",j);
13330 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13343 static int init_run = 0;
13345 if (init_run)
return;
13348 for (i = 0; i < swig_module.
size; i++) {
13356 equiv = equiv->
next;
13381 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)) 13387 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC) 13389 int globalRegister = 0;
13397 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)) || defined(SWIG_LUA_ELUA_EMULATE) 13403 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC) 13405 for (i = 0; swig_types[i]; i++){
13410 #ifdef SWIG_LUA_MODULE_GLOBAL 13411 globalRegister = 1;
13415 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 13419 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC) 13420 for (i = 0; swig_types[i]; i++){
13427 #if defined(SWIG_LUA_ELUA_EMULATE) 13430 SWIG_Lua_elua_emulate_register_clear(L);
13431 if(globalRegister) {
13433 lua_pushvalue(L,-2);
13440 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC) 13460 " pl = plplotluac";
static int _wrap_bin(lua_State *L)
static swig_lua_namespace swig_SwigModule
swig_lua_method * metatable
static swig_cast_info _swigc__p_f_double_double__int[]
struct swig_type_info swig_type_info
static int _wrap_rgbhls(lua_State *L)
static char myct_funcstr[255]
static int _wrap_box(lua_State *L)
static int _wrap_PLGraphicsIn_pX_get(lua_State *L)
static swig_module_info swig_module
SWIGINTERN void SWIG_Lua_get_class_registry(lua_State *L)
void(* ct_func)(PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer)
SWIGRUNTIME char * SWIG_PackData(char *c, void *ptr, size_t sz)
static int _wrap_mtex3(lua_State *L)
void(* fill_func)(PLINT, const PLFLT *, const PLFLT *)
static int _wrap_PLGraphicsIn_string_set(lua_State *L)
PLINT plGetCursor(PLGraphicsIn *plg)
static swig_lua_attribute swig_PLGraphicsIn_attributes[]
static int _wrap_plot3d(lua_State *L)
static int _wrap_spal1(lua_State *L)
static swig_type_info _swigt__p_char
struct swig_lua_class ** ns_classes
static int _wrap_scmap1a(lua_State *L)
SWIGINTERN void SWIG_write_ptr_array(lua_State *L, void **array, int size, swig_type_info *type, int own)
SWIGINTERN int SWIG_Lua_do_resolve_metamethod(lua_State *L, const swig_lua_class *clss, int metamethod_name_idx, int skip_check)
static int _wrap_sfont(lua_State *L)
static int _wrap_imagefr(lua_State *L)
static int _wrap_gfam(lua_State *L)
static int _wrap_gra(lua_State *L)
static int _wrap_PLGraphicsIn_keysym_set(lua_State *L)
#define SWIG_LUA_CONSTTAB_INT(B, C)
static int _wrap_PLGraphicsIn_wX_get(lua_State *L)
SWIGRUNTIME swig_type_info * SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr)
SWIGINTERN void SWIG_Lua_InstallConstants(lua_State *L, swig_lua_const_info constants[])
SWIGINTERN void ** SWIG_get_ptr_array_fixed(lua_State *L, int index, int size, swig_type_info *type)
static void swig_delete_PLGraphicsIn(void *obj)
static int _wrap_scolor(lua_State *L)
static int _wrap_setopt(lua_State *L)
#define SWIG_Lua_get_table(L, n)
static int _wrap_vsta(lua_State *L)
static int _wrap_PLGraphicsIn_subwindow_get(lua_State *L)
static int _wrap_plGetCursor(lua_State *L)
SWIGINTERN void SWIG_Lua_get_class_metatable(lua_State *L, const char *cname)
static char mylabel_funcstr[255]
static int _wrap_pat(lua_State *L)
static int _wrap_PLGraphicsIn_dY_set(lua_State *L)
void(* mapform_func)(PLINT, PLFLT *, PLFLT *)
static int _wrap_scmap1la(lua_State *L)
static int _wrap_scompression(lua_State *L)
SWIGINTERN void SWIG_Lua_create_class_registry(lua_State *L)
static int _wrap_spause(lua_State *L)
static swig_lua_attribute swig_SwigModule_attributes[]
SWIGINTERN int SWIG_Lua_class_set(lua_State *L)
static int _wrap_poin(lua_State *L)
SWIGINTERN int SWIG_Lua_namespace_set(lua_State *L)
static int _wrap_arc(lua_State *L)
SWIGRUNTIME int SWIG_TypeCmp(const char *nb, const char *tb)
SWIGINTERN void SWIG_Lua_class_register(lua_State *L, swig_lua_class *clss)
static int _wrap_eop(lua_State *L)
SWIGRUNTIMEINLINE const char * SWIG_TypeName(const swig_type_info *ty)
SWIGINTERN void SWIG_Lua_init_base_class(lua_State *L, swig_lua_class *clss)
SWIGINTERN void ** SWIG_get_ptr_array_var(lua_State *L, int index, int *size, swig_type_info *type)
SWIGINTERN int SWIG_Lua_dostring(lua_State *L, const char *str)
static int _wrap_gdev(lua_State *L)
static int _wrap_mapline(lua_State *L)
void plmapline(PLMAPFORM_callback mapform, PLCHAR_VECTOR name, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy, PLINT_VECTOR plotentries, PLINT nplotentries)
static int _wrap_scolbg(lua_State *L)
#define pl_setcontlabelparam
#define SWIG_DOSTRING_FAIL(S)
static int _wrap_szax(lua_State *L)
#define LUA_DECLARE_TYPEMAP_ARR_FN(NAME, TYPE)
static int _wrap_vpas(lua_State *L)
static int _wrap_plClearOpts(lua_State *L)
static int _wrap_scol0a(lua_State *L)
static int _wrap_PLGraphicsIn_pY_set(lua_State *L)
swig_lua_namespace * cls_static
static swig_type_info _swigt__p_p_double
static int _wrap_PLGraphicsIn_dX_set(lua_State *L)
struct swig_cast_info * cast
static int _wrap_PLGraphicsIn_type_get(lua_State *L)
#define SWIG_ConvertPtr(L, idx, ptr, type, flags)
static int _wrap_lightsource(lua_State *L)
SWIGRUNTIME swig_cast_info * SWIG_TypeCheck(const char *c, swig_type_info *ty)
#define SWIG_RUNTIME_VERSION
static int _wrap_image(lua_State *L)
#define SWIGRUNTIMEINLINE
static int _wrap_plot3dcl(lua_State *L)
static int _wrap_setcontlabelformat(lua_State *L)
static int _wrap_PLGraphicsIn_dY_get(lua_State *L)
SWIGRUNTIME void SWIG_Lua_NewPointerObj(lua_State *L, void *ptr, swig_type_info *type, int own)
void plmeridians(PLMAPFORM_callback mapform, PLFLT dlong, PLFLT dlat, PLFLT minlong, PLFLT maxlong, PLFLT minlat, PLFLT maxlat)
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)
static int _wrap_scol0(lua_State *L)
static int _wrap_poin3(lua_State *L)
#define lua_rawsetp(L, index, ptr)
SWIGINTERN int SWIG_Lua_class_tostring(lua_State *L)
static int _wrap_gcol0(lua_State *L)
static int _wrap_prec(lua_State *L)
static int _wrap_scolbga(lua_State *L)
static int _wrap_plend(lua_State *L)
static int _wrap_slabelfunc(lua_State *L)
void plabort(PLCHAR_VECTOR errormsg)
static int _wrap_plOptUsage(lua_State *L)
static int _wrap_start(lua_State *L)
static swig_type_info _swigt__p_int
static swig_type_info _swigt__p_double
static int _wrap_lab(lua_State *L)
static int _wrap_sesc(lua_State *L)
#define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME, TYPE)
#define SWIG_GetModule(clientdata)
static int _wrap_map(lua_State *L)
SWIGINTERN void SWIG_Lua_class_register_instance(lua_State *L, swig_lua_class *clss)
static swig_type_info _swigt__p_f_int_p_double_p_double__void
static int _wrap_replot(lua_State *L)
SWIGINTERN int SWIG_Lua_class_get(lua_State *L)
static int _wrap_gcolbga(lua_State *L)
SWIGINTERN int SWIG_itable_size(lua_State *L, int index)
static char mapform_funcstr[255]
static const char * swig_PLGraphicsIn_base_names[]
static int _wrap_gcolbg(lua_State *L)
static int _wrap_schr(lua_State *L)
SWIGINTERN int SWIG_Lua_class_disown(lua_State *L)
static int _wrap_randd(lua_State *L)
SWIGRUNTIME int SWIG_Lua_ConvertPtr(lua_State *L, int index, void **ptr, swig_type_info *type, int flags)
static int _wrap_poly3(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)
SWIGRUNTIME swig_cast_info * SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty)
swig_lua_attribute * attributes
SWIGINTERN void SWIG_Lua_class_register_static(lua_State *L, swig_lua_class *clss)
SWIGINTERN void SWIG_Lua_populate_inheritable_metamethods(lua_State *L)
static int _wrap_string3(lua_State *L)
static swig_type_info _swigt__p_f_double_double_p_double_p_double_p_void__void
SWIGRUNTIME int SWIG_TypeEquiv(const char *nb, const char *tb)
static int _wrap_PLGraphicsIn_wY_get(lua_State *L)
static int _wrap_stripa(lua_State *L)
PLINT(* defined_func)(PLFLT, PLFLT)
SWIGINTERN void SWIG_Lua_namespace_register(lua_State *L, swig_lua_namespace *ns, int reg)
static int _wrap_PLGraphicsIn_state_set(lua_State *L)
static int _wrap_mapstring(lua_State *L)
static int _wrap_sdiori(lua_State *L)
static int _wrap_erry(lua_State *L)
SWIGINTERN void SWIG_Lua_add_variable(lua_State *L, const char *name, lua_CFunction getFn, lua_CFunction setFn)
SWIGRUNTIME swig_type_info * SWIG_TypeQueryModule(swig_module_info *start, swig_module_info *end, const char *name)
static int _wrap_scmap1n(lua_State *L)
#define SWIG_fail_arg(func_name, argnum, type)
#define lua_rawgetp(L, index, ptr)
#define SWIG_FREE_ARRAY(PTR)
static int _wrap_meshc(lua_State *L)
static swig_type_info _swigt__p_PLGraphicsIn
SWIGINTERN void SWIG_Lua_add_class_instance_details(lua_State *L, swig_lua_class *clss)
static int _wrap_PLGraphicsIn_wX_set(lua_State *L)
static int _wrap_smaj(lua_State *L)
static int _wrap_sori(lua_State *L)
static int _wrap_surf3d(lua_State *L)
static int _wrap_line(lua_State *L)
SWIGINTERN void SWIG_Lua_add_namespace_classes(lua_State *L, swig_lua_namespace *ns)
SWIGRUNTIME int SWIG_Lua_ConvertPacked(lua_State *L, int index, void *ptr, size_t size, swig_type_info *type)
static int _wrap_new_PLGraphicsIn(lua_State *L)
static int _wrap_col1(lua_State *L)
static int _wrap_legend(lua_State *L)
static int _wrap_stransform(lua_State *L)
#define SWIG_LUA_CONSTTAB_FLOAT(B, C)
static int _wrap_glevel(lua_State *L)
static swig_cast_info _swigc__p_f_int_p_double_p_double__void[]
void mypltr(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, void *pltr_data)
static swig_cast_info _swigc__p_double[]
#define lua_pushglobaltable(L)
static int _wrap_font(lua_State *L)
static int _wrap_scmap1(lua_State *L)
static swig_lua_method swig_PLGraphicsIn_meta[]
SWIGRUNTIME void SWIG_InitializeModule(void *clientdata)
static int _wrap_ssym(lua_State *L)
struct swig_module_info * next
#define SWIGTYPE_p_PLGraphicsIn
static int _wrap_path(lua_State *L)
SWIGRUNTIME void SWIG_Lua_SetModule(lua_State *L, swig_module_info *module)
#define SWIG_SetModule(clientdata, pointer)
static int _wrap_scmap0n(lua_State *L)
static int _wrap_box3(lua_State *L)
static int _wrap_spal0(lua_State *L)
SWIGRUNTIME int SWIG_TypeNameComp(const char *f1, const char *l1, const char *f2, const char *l2)
static int _wrap_plend1(lua_State *L)
static int _wrap_gspa(lua_State *L)
static int _wrap_plSetUsage(lua_State *L)
static swig_lua_class * swig_PLGraphicsIn_Sf_SwigStatic_classes[]
static swig_lua_const_info swig_SwigModule_constants[]
static int _wrap_gfont(lua_State *L)
static int _wrap_sdiplz(lua_State *L)
static int _wrap_gdidev(lua_State *L)
swig_converter_func converter
static int _wrap_ptex3(lua_State *L)
static int _wrap_PLGraphicsIn_type_set(lua_State *L)
static int _wrap_adv(lua_State *L)
void mapform(PLINT n, PLFLT *x, PLFLT *y)
static int _wrap_sfam(lua_State *L)
static swig_cast_info _swigc__p_f_double_double_p_double_p_double_p_void__void[]
struct swig_lua_namespace swig_lua_namespace
SWIGINTERN int SWIG_Lua_add_class_user_metamethod(lua_State *L, swig_lua_class *clss, const int metatable_index)
static int _wrap_vasp(lua_State *L)
static swig_type_info _swigt__p_p_char
static int _wrap_PLGraphicsIn_button_set(lua_State *L)
static int _wrap_bop(lua_State *L)
static int _wrap_cont(lua_State *L)
#define SWIG_fail_ptr(func_name, argnum, type)
static int _wrap_plot3dc(lua_State *L)
static int _wrap_surf3dl(lua_State *L)
SWIGRUNTIME swig_module_info * SWIG_Lua_GetModule(lua_State *L)
PLFLT ** read_double_Matrix(lua_State *L, int index, int *nx, int *ny)
SWIGINTERN int SWIG_lua_isnilstring(lua_State *L, int idx)
static swig_lua_class * swig_PLGraphicsIn_bases[]
int(* swig_lua_base_iterator_func)(lua_State *, swig_type_info *, int, int *ret)
static swig_lua_method swig_PLGraphicsIn_Sf_SwigStatic_methods[]
SWIGINTERN void SWIG_Lua_add_class_static_details(lua_State *L, swig_lua_class *clss)
static swig_lua_namespace swig_PLGraphicsIn_Sf_SwigStatic
SWIGRUNTIMEINLINE void * SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory)
lua_CFunction constructor
static int _wrap_lsty(lua_State *L)
static int _wrap_smin(lua_State *L)
static int _wrap_mkstrm(lua_State *L)
static swig_cast_info _swigc__p_p_char[]
static int _wrap_wind(lua_State *L)
static int _wrap_vect(lua_State *L)
static int _wrap_cpstrm(lua_State *L)
static int _proxy__wrap_new_PLGraphicsIn(lua_State *L)
static PLFLT value(double n1, double n2, double hue)
static int _wrap_sfci(lua_State *L)
static int _wrap_text(lua_State *L)
static int _wrap_parseopts(lua_State *L)
#define SWIG_TYPE_TABLE_NAME
SWIGRUNTIME const char * SWIG_Lua_typename(lua_State *L, int tp)
static int _wrap_hist(lua_State *L)
static char mypltr_funcstr[255]
SWIGINTERN void SWIG_Lua_AddMetatable(lua_State *L, swig_type_info *type)
static int _wrap_gpage(lua_State *L)
SWIGRUNTIME void SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata)
static int _wrap_mapfill(lua_State *L)
static int _wrap_svpa(lua_State *L)
#define SWIG_NewMemberObj(L, ptr, sz, type)
void myct(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, void *pltr_data)
static swig_type_info _swigt__p_f_int_double_p_char_int_p_void__void
void plmapfill(PLMAPFORM_callback mapform, PLCHAR_VECTOR name, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy, PLINT_VECTOR plotentries, PLINT nplotentries)
static int _wrap_fill(lua_State *L)
SWIGINTERN int SWIG_table_size(lua_State *L, int index)
static int _wrap_gver(lua_State *L)
static int _wrap_gfci(lua_State *L)
static int _wrap_famadv(lua_State *L)
static int _wrap_fontld(lua_State *L)
static int _wrap_sym(lua_State *L)
static int _wrap_gyax(lua_State *L)
SWIGRUNTIME void SWIG_TypeClientData(swig_type_info *ti, void *clientdata)
SWIGRUNTIME int SWIG_Lua_type(lua_State *L)
SWIGRUNTIME const char * SWIG_UnpackData(const char *c, void *ptr, size_t sz)
static int _wrap_plResetOpts(lua_State *L)
static int _wrap_PLGraphicsIn_state_get(lua_State *L)
#define SWIG_NewPointerObj(L, ptr, type, owner)
struct swig_lua_namespace ** ns_namespaces
static int _wrap_ptex(lua_State *L)
SWIGINTERN int SWIG_Lua_class_destruct(lua_State *L)
static int _wrap_env(lua_State *L)
#define SWIG_ALLOC_ARRAY(TYPE, LEN)
static int _wrap_mesh(lua_State *L)
SWIGRUNTIME swig_type_info * SWIG_MangledTypeQueryModule(swig_module_info *start, swig_module_info *end, const char *name)
static int _wrap_maptex(lua_State *L)
SWIGINTERN int SWIG_read_ptr_array(lua_State *L, int index, void **array, int size, swig_type_info *type)
static int _wrap_gvpw(lua_State *L)
#define SWIG_Lua_add_function(L, n, f)
static int _wrap_w3d(lua_State *L)
static int _wrap_griddata(lua_State *L)
void *(* swig_converter_func)(void *, int *)
static int _wrap_MinMax2dGrid(lua_State *L)
SWIGRUNTIME char * SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz)
static swig_lua_method swig_SwigModule_methods[]
void mylabel(PLINT axis, PLFLT value, char *label, PLINT length, PLPointer data)
struct swig_module_info swig_module_info
static int _wrap_warn(lua_State *L)
static int _wrap_mtex(lua_State *L)
swig_lua_method * methods
static int _wrap_flush(lua_State *L)
SWIGRUNTIME const char * SWIG_TypePrettyName(const swig_type_info *type)
static int _wrap_configtime(lua_State *L)
static swig_type_info * swig_types[13]
static int _wrap_sxax(lua_State *L)
SWIGRUNTIME int SWIG_Lua_resolve_metamethod(lua_State *L)
SWIGINTERN int SWIG_Lua_class_do_set(lua_State *L, swig_type_info *type, int first_arg, int *ret)
SWIGRUNTIME void SWIG_PropagateClientData(void)
static swig_cast_info _swigc__p_f_int_p_q_const__double_p_q_const__double__void[]
#define SWIG_Lua_add_boolean(L, n, b)
static int _wrap_init(lua_State *L)
static int _wrap_shades(lua_State *L)
static swig_type_info _swigt__p_f_int_p_q_const__double_p_q_const__double__void
static int _wrap_gzax(lua_State *L)
#define SWIG_isptrtype(L, I)
swig_lua_const_info * ns_constants
static int _wrap_star(lua_State *L)
static swig_cast_info * swig_cast_initial[]
static int _wrap_scmap1l(lua_State *L)
struct swig_cast_info * next
static int _wrap_meridians(lua_State *L)
struct swig_lua_class swig_lua_class
swig_lua_method * ns_methods
static swig_cast_info _swigc__p_int[]
static int _wrap_PLGraphicsIn_pX_set(lua_State *L)
static int _wrap_gcompression(lua_State *L)
static int _wrap_ctime(lua_State *L)
struct swig_type_info *(* swig_dycast_func)(void **)
static int _wrap_scmap0(lua_State *L)
#define LUA_FREE_ARRAY(PTR)
#define SWIG_CheckState(r)
static int _wrap_timefmt(lua_State *L)
static int _wrap_axes(lua_State *L)
static int _wrap_gcmap1_range(lua_State *L)
static swig_cast_info _swigc__p_p_double[]
#define LUA_ALLOC_ARRAY(TYPE, LEN)
static int _wrap_stripd(lua_State *L)
static int _wrap_PLGraphicsIn_pY_get(lua_State *L)
static swig_lua_class _wrap_class_PLGraphicsIn
static swig_type_info _swigt__p_unsigned_int
static swig_type_info _swigt__p_f_double_double__int
SWIGINTERN int SWIG_Lua_class_do_get_item(lua_State *L, swig_type_info *type, int SWIGUNUSED first_arg, int *ret)
static int _wrap_sdev(lua_State *L)
static int _wrap_stripc(lua_State *L)
static int _wrap_PLGraphicsIn_keysym_get(lua_State *L)
static int _wrap_gxax(lua_State *L)
void plwarn(PLCHAR_VECTOR errormsg)
static int _wrap_PLGraphicsIn_string_get(lua_State *L)
#define pl_setcontlabelformat
static int _wrap_gvpd(lua_State *L)
struct swig_lua_class ** bases
static int _wrap_gchr(lua_State *L)
SWIGINTERN void SWIG_Lua_add_class_user_metamethods(lua_State *L, swig_lua_class *clss)
#define SWIG_check_num_args(func_name, a, b)
struct swig_cast_info * prev
static int _wrap_sdidev(lua_State *L)
static swig_lua_method swig_PLGraphicsIn_methods[]
static int _wrap_scmap1_range(lua_State *L)
swig_cast_info ** cast_initial
#define SWIG_POINTER_DISOWN
static int _wrap_PLGraphicsIn_button_get(lua_State *L)
swig_lua_attribute * ns_attributes
static int _wrap_colorbar(lua_State *L)
void plmap(PLMAPFORM_callback mapform, PLCHAR_VECTOR name, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy)
#define lua_absindex(L, i)
static swig_lua_attribute swig_PLGraphicsIn_Sf_SwigStatic_attributes[]
#define SWIG_contract_assert(expr, msg)
static int _wrap_width(lua_State *L)
SWIGINTERN int SWIG_Lua_class_do_get(lua_State *L, swig_type_info *type, int SWIGUNUSED first_arg, int *ret)
static swig_cast_info _swigc__p_char[]
struct swig_cast_info swig_cast_info
SWIGRUNTIME const char * SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name)
static int _wrap_shade(lua_State *L)
static int _wrap_gradient(lua_State *L)
static int _wrap_join(lua_State *L)
swig_type_info ** type_initial
static int _wrap_PLGraphicsIn_dX_get(lua_State *L)
static int _wrap_hlsrgb(lua_State *L)
static int _wrap_psty(lua_State *L)
static int _wrap_gdiplt(lua_State *L)
static int _wrap_setcontlabelparam(lua_State *L)
static int _wrap_gdiori(lua_State *L)
SWIGINTERN int SWIG_Lua_namespace_get(lua_State *L)
SWIGRUNTIME char * SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz)
static int _wrap_line3(lua_State *L)
static int _wrap_sstrm(lua_State *L)
SWIGRUNTIME void SWIG_Lua_pusherrstring(lua_State *L, const char *str)
static swig_type_info * swig_type_initial[]
static swig_cast_info _swigc__p_unsigned_int[]
void plmapstring(PLMAPFORM_callback mapform, PLCHAR_VECTOR name, PLCHAR_VECTOR string, PLFLT minx, PLFLT maxx, PLFLT miny, PLFLT maxy, PLINT_VECTOR plotentries, PLINT nplotentries)
static int _wrap_sfnam(lua_State *L)
void(* pltr_func)(PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer)
static int _wrap_seed(lua_State *L)
static int _wrap_abort(lua_State *L)
static swig_cast_info _swigc__p_PLGraphicsIn[]
static int _wrap_gfnam(lua_State *L)
static int _wrap_sdimap(lua_State *L)
static int _wrap_col0(lua_State *L)
SWIGINTERN void SWIG_Lua_get_inheritable_metamethods(lua_State *L)
static int _wrap_svect(lua_State *L)
static int _wrap_styl(lua_State *L)
static int _wrap_gstrm(lua_State *L)
void(* destructor)(void *)
static int _wrap_clear(lua_State *L)
static int _wrap_spage(lua_State *L)
static swig_cast_info _swigc__p_f_int_double_p_char_int_p_void__void[]
static int _wrap_vpor(lua_State *L)
void(* label_func)(PLINT, PLFLT, char *, PLINT, PLPointer)
static swig_lua_class * swig_SwigModule_classes[]
static int _wrap_errx(lua_State *L)
static int _wrap_gcol0a(lua_State *L)
static int _wrap_scmap0a(lua_State *L)
static int _wrap_calc_world(lua_State *L)
SWIGRUNTIME void SWIG_Lua_NewPackedObj(lua_State *L, void *ptr, size_t size, swig_type_info *type)
static swig_lua_namespace * swig_SwigModule_namespaces[]
SWIGRUNTIME int SWIG_Lua_class_equal(lua_State *L)
PLFLT(* f2eval_func)(PLINT, PLINT, PLPointer)
static int _wrap_sdiplt(lua_State *L)
static int _wrap_string(lua_State *L)
static swig_lua_const_info swig_PLGraphicsIn_Sf_SwigStatic_constants[]
static int _wrap_PLGraphicsIn_wY_set(lua_State *L)
static int _wrap_btime(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)
SWIGINTERN int SWIG_Lua_set_immutable(lua_State *L)
static int _wrap_env0(lua_State *L)
SWIGINTERN int SWIG_Lua_add_namespace_details(lua_State *L, swig_lua_namespace *ns)
static int _wrap_PLGraphicsIn_subwindow_set(lua_State *L)
SWIGRUNTIME void SWIG_Lua_pushferrstring(lua_State *L, const char *fmt,...)
static int _wrap_ssub(lua_State *L)
SWIGRUNTIME const char * SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name)
static int _wrap_xormod(lua_State *L)
static int _wrap_fill3(lua_State *L)
static int _wrap_syax(lua_State *L)