16 #define SWIG_LUA_TARGET SWIG_LUA_FLAVOR_LUA 17 #define SWIG_LUA_MODULE_GLOBAL 25 #ifndef SWIGTEMPLATEDISAMBIGUATOR 26 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560) 27 # define SWIGTEMPLATEDISAMBIGUATOR template 28 # elif defined(__HP_aCC) 31 # define SWIGTEMPLATEDISAMBIGUATOR template 33 # define SWIGTEMPLATEDISAMBIGUATOR 39 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__)) 40 # define SWIGINLINE inline 48 # if defined(__GNUC__) 49 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)) 50 # define SWIGUNUSED __attribute__ ((__unused__)) 55 # define SWIGUNUSED __attribute__ ((__unused__)) 61 #ifndef SWIG_MSC_UNSUPPRESS_4505 62 # if defined(_MSC_VER) 63 # pragma warning(disable : 4505) 67 #ifndef SWIGUNUSEDPARM 69 # define SWIGUNUSEDPARM(p) 71 # define SWIGUNUSEDPARM(p) p SWIGUNUSED 77 # define SWIGINTERN static SWIGUNUSED 81 #ifndef SWIGINTERNINLINE 82 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE 87 # if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4) 88 # ifndef GCC_HASCLASSVISIBILITY 89 # define GCC_HASCLASSVISIBILITY 95 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) 96 # if defined(STATIC_LINKED) 99 # define SWIGEXPORT __declspec(dllexport) 102 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY) 103 # define SWIGEXPORT __attribute__ ((visibility("default"))) 112 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__) 113 # define SWIGSTDCALL __stdcall 120 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE) 121 # define _CRT_SECURE_NO_DEPRECATE 125 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE) 126 # define _SCL_SECURE_NO_DEPRECATE 130 #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES) 131 # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0 139 #ifdef __INTEL_COMPILER 140 # pragma warning disable 592 152 #define SWIG_RUNTIME_VERSION "4" 155 #ifdef SWIG_TYPE_TABLE 156 # define SWIG_QUOTE_STRING(x) #x 157 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x) 158 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE) 160 # define SWIG_TYPE_TABLE_NAME 173 # define SWIGRUNTIME SWIGINTERN 176 #ifndef SWIGRUNTIMEINLINE 177 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE 181 #ifndef SWIG_BUFFER_SIZE 182 # define SWIG_BUFFER_SIZE 1024 186 #define SWIG_POINTER_DISOWN 0x1 187 #define SWIG_CAST_NEW_MEMORY 0x2 188 #define SWIG_POINTER_NO_NULL 0x4 191 #define SWIG_POINTER_OWN 0x1 274 #define SWIG_ERROR (-1) 275 #define SWIG_IsOK(r) (r >= 0) 276 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError) 279 #define SWIG_CASTRANKLIMIT (1 << 8) 281 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1) 283 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1) 285 #define SWIG_BADOBJ (SWIG_ERROR) 286 #define SWIG_OLDOBJ (SWIG_OK) 287 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK) 288 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK) 290 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r) 291 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r) 292 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK)) 293 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r) 294 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r) 295 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK)) 298 #if defined(SWIG_CASTRANK_MODE) 299 # ifndef SWIG_TypeRank 300 # define SWIG_TypeRank unsigned long 302 # ifndef SWIG_MAXCASTRANK 303 # define SWIG_MAXCASTRANK (2) 305 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1) 306 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK) 311 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
314 # define SWIG_AddCast(r) (r) 315 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0) 325 typedef void *(*swig_converter_func)(
void *,
int *);
367 const char *f2,
const char *l2) {
368 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
369 while ((*f1 ==
' ') && (f1 != l1)) ++f1;
370 while ((*f2 ==
' ') && (f2 != l2)) ++f2;
371 if (*f1 != *f2)
return (*f1 > *f2) ? 1 : -1;
373 return (
int)((l1 - f1) - (l2 - f2));
383 const char* te = tb + strlen(tb);
385 while (equiv != 0 && *ne) {
386 for (nb = ne; *ne; ++ne) {
387 if (*ne ==
'|')
break;
412 if (strcmp(iter->
type->
name, c) == 0) {
413 if (iter == ty->
cast)
439 if (iter->
type == from) {
440 if (iter == ty->
cast)
472 if (!ty || !ty->
dcast)
return ty;
473 while (ty && (ty->
dcast)) {
474 ty = (*ty->
dcast)(ptr);
498 if (!type)
return NULL;
499 if (type->
str != NULL) {
500 const char *last_name = type->
str;
502 for (s = type->
str; *s; s++)
503 if (*s ==
'|') last_name = s+1;
551 size_t r = iter->
size - 1;
554 size_t i = (l + r) >> 1;
555 const char *iname = iter->
types[i]->
name;
557 int compare = strcmp(
name, iname);
559 return iter->
types[i];
560 }
else if (compare < 0) {
566 }
else if (compare > 0) {
575 }
while (iter != end);
602 for (; i < iter->
size; ++i) {
604 return iter->
types[i];
607 }
while (iter != end);
619 static const char hex[17] =
"0123456789abcdef";
620 const unsigned char *u = (
unsigned char *) ptr;
621 const unsigned char *eu = u + sz;
622 for (; u != eu; ++u) {
623 unsigned char uu = *u;
624 *(c++) = hex[(uu & 0xf0) >> 4];
625 *(c++) = hex[uu & 0xf];
635 unsigned char *u = (
unsigned char *) ptr;
636 const unsigned char *eu = u + sz;
637 for (; u != eu; ++u) {
640 if ((d >=
'0') && (d <=
'9'))
641 uu = (
unsigned char)((d -
'0') << 4);
642 else if ((d >=
'a') && (d <=
'f'))
643 uu = (
unsigned char)((d - (
'a'-10)) << 4);
647 if ((d >=
'0') && (d <=
'9'))
648 uu |= (
unsigned char)(d -
'0');
649 else if ((d >=
'a') && (d <=
'f'))
650 uu |= (
unsigned char)(d - (
'a'-10));
664 if ((2*
sizeof(
void *) + 2) > bsz)
return 0;
667 if (strlen(
name) + 1 > (bsz - (r - buff)))
return 0;
675 if (strcmp(c,
"NULL") == 0) {
688 size_t lname = (
name ? strlen(
name) : 0);
689 if ((2*sz + 2 + lname) > bsz)
return 0;
693 strncpy(r,
name,lname+1);
703 if (strcmp(c,
"NULL") == 0) {
718 #define SWIG_UnknownError -1 719 #define SWIG_IOError -2 720 #define SWIG_RuntimeError -3 721 #define SWIG_IndexError -4 722 #define SWIG_TypeError -5 723 #define SWIG_DivisionByZero -6 724 #define SWIG_OverflowError -7 725 #define SWIG_SyntaxError -8 726 #define SWIG_ValueError -9 727 #define SWIG_SystemError -10 728 #define SWIG_AttributeError -11 729 #define SWIG_MemoryError -12 730 #define SWIG_NullReferenceError -13 755 #define SWIG_LUA_FLAVOR_LUA 1 756 #define SWIG_LUA_FLAVOR_ELUA 2 757 #define SWIG_LUA_FLAVOR_ELUAC 3 759 #if !defined(SWIG_LUA_TARGET) 760 # error SWIG_LUA_TARGET not defined 763 #if defined(SWIG_LUA_ELUA_EMULATE) 765 struct swig_elua_entry;
767 typedef struct swig_elua_key {
775 typedef struct swig_elua_val {
779 const struct swig_elua_entry *table;
781 lua_CFunction
function;
791 typedef struct swig_elua_entry {
796 #define LSTRKEY(x) {LUA_TSTRING, {.strkey = x} } 797 #define LNUMKEY(x) {LUA_TNUMBER, {.numkey = x} } 798 #define LNILKEY {LUA_TNIL, {.strkey = 0} } 800 #define LNUMVAL(x) {LUA_TNUMBER, {.number = x} } 801 #define LFUNCVAL(x) {LUA_TFUNCTION, {.function = x} } 802 #define LROVAL(x) {LUA_TTABLE, {.table = x} } 803 #define LNILVAL {LUA_TNIL, {.string = 0} } 804 #define LSTRVAL(x) {LUA_TSTRING, {.string = x} } 806 #define LUA_REG_TYPE swig_elua_entry 808 #define SWIG_LUA_ELUA_EMUL_METATABLE_KEY "__metatable" 810 #define lua_pushrotable(L,p)\ 813 SWIG_Lua_elua_emulate_register(L,(swig_elua_entry*)(p)); 815 #define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\ 816 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={0,0,(void*)(C),&D} } } 818 #define SWIG_LUA_CONSTTAB_BINARY(B,S,C,D)\ 819 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={1,S,(void*)(C),&D} } } 822 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC) 823 # define SWIG_LUA_CONSTTAB_INT(B, C) LSTRKEY(B), LNUMVAL(C) 824 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) LSTRKEY(B), LNUMVAL(C) 825 # define SWIG_LUA_CONSTTAB_STRING(B, C) LSTRKEY(B), LSTRVAL(C) 826 # define SWIG_LUA_CONSTTAB_CHAR(B, C) LSTRKEY(B), LNUMVAL(C) 829 #ifndef SWIG_LUA_CONSTTAB_POINTER 830 #warning eLua does not support pointers as constants. By default, nil will be used as value 831 #define SWIG_LUA_CONSTTAB_POINTER(B,C,D) LSTRKEY(B), LNILVAL 834 #ifndef SWIG_LUA_CONSTTAB_BINARY 835 #warning eLua does not support pointers to member as constants. By default, nil will be used as value 836 #define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D) LSTRKEY(B), LNILVAL 839 # define SWIG_LUA_CONSTTAB_INT(B, C) SWIG_LUA_INT, (char *)B, (long)C, 0, 0, 0 840 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) SWIG_LUA_FLOAT, (char *)B, 0, (double)C, 0, 0 841 # define SWIG_LUA_CONSTTAB_STRING(B, C) SWIG_LUA_STRING, (char *)B, 0, 0, (void *)C, 0 842 # define SWIG_LUA_CONSTTAB_CHAR(B, C) SWIG_LUA_CHAR, (char *)B, (long)C, 0, 0, 0 843 # define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\ 844 SWIG_LUA_POINTER, (char *)B, 0, 0, (void *)C, &D 845 # define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D)\ 846 SWIG_LUA_BINARY, (char *)B, S, 0, (void *)C, &D 849 #ifndef SWIG_LUA_ELUA_EMULATE 850 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC) 851 # define LRO_STRVAL(v) {{.p = (char *) v}, LUA_TSTRING} 852 # define LSTRVAL LRO_STRVAL 856 #ifndef SWIG_LUA_ELUA_EMULATE 857 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC) 859 #ifndef MIN_OPT_LEVEL 860 #define MIN_OPT_LEVEL 2 864 #include "lrotable.h" 879 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501 880 # define lua_rawlen lua_strlen 881 #elif LUA_VERSION_NUM == 501 882 # define lua_rawlen lua_objlen 889 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502 890 # define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX) 894 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502 895 # define lua_absindex(L,i) ((i)>0 || (i) <= LUA_REGISTRYINDEX ? (i) : lua_gettop(L) + (i) + 1) 899 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502 900 #define lua_rawsetp(L,index,ptr)\ 901 lua_pushlightuserdata(L,(void*)(ptr));\ 905 #define lua_rawgetp(L,index,ptr)\ 906 lua_pushlightuserdata(L,(void*)(ptr));\ 922 lua_pushstring (L, str);
935 lua_pushvfstring(L, fmt, argp);
945 #define SWIG_LUA_INT 1 946 #define SWIG_LUA_FLOAT 2 947 #define SWIG_LUA_STRING 3 948 #define SWIG_LUA_POINTER 4 949 #define SWIG_LUA_BINARY 5 950 #define SWIG_LUA_CHAR 6 959 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC) 1029 #define SWIG_NewPointerObj(L, ptr, type, owner) SWIG_Lua_NewPointerObj(L, (void *)ptr, type, owner) 1030 #define SWIG_ConvertPtr(L,idx, ptr, type, flags) SWIG_Lua_ConvertPtr(L,idx,ptr,type,flags) 1031 #define SWIG_MustGetPtr(L,idx, type,flags, argnum,fnname) SWIG_Lua_MustGetPtr(L,idx, type,flags, argnum,fnname) 1033 #define SWIG_ConvertMember(L, idx, ptr, sz, ty) SWIG_Lua_ConvertPacked(L, idx, ptr, sz, ty) 1034 #define SWIG_NewMemberObj(L, ptr, sz, type) SWIG_Lua_NewPackedObj(L, ptr, sz, type) 1037 #define SWIG_GetModule(clientdata) SWIG_Lua_GetModule((lua_State*)(clientdata)) 1038 #define SWIG_SetModule(clientdata, pointer) SWIG_Lua_SetModule((lua_State*) (clientdata), pointer) 1039 #define SWIG_MODULE_CLIENTDATA_TYPE lua_State* 1042 #define SWIG_contract_assert(expr, msg) \ 1043 if (!(expr)) { SWIG_Lua_pusherrstring(L, (char *) msg); goto fail; } else 1047 #define SWIG_fail {goto fail;} 1048 #define SWIG_fail_arg(func_name,argnum,type) \ 1049 {SWIG_Lua_pushferrstring(L,"Error in %s (arg %d), expected '%s' got '%s'",\ 1050 func_name,argnum,type,SWIG_Lua_typename(L,argnum));\ 1052 #define SWIG_fail_ptr(func_name,argnum,type) \ 1053 SWIG_fail_arg(func_name,argnum,(type && type->str)?type->str:"void*") 1054 #define SWIG_check_num_args(func_name,a,b) \ 1055 if (lua_gettop(L)<a || lua_gettop(L)>b) \ 1056 {SWIG_Lua_pushferrstring(L,"Error in %s expected %d..%d args, got %d",func_name,a,b,lua_gettop(L));\ 1060 #define SWIG_Lua_get_table(L,n) \ 1061 (lua_pushstring(L, n), lua_rawget(L,-2)) 1063 #define SWIG_Lua_add_function(L,n,f) \ 1064 (lua_pushstring(L, n), \ 1065 lua_pushcfunction(L, f), \ 1068 #define SWIG_Lua_add_boolean(L,n,b) \ 1069 (lua_pushstring(L, n), \ 1070 lua_pushboolean(L, b), \ 1074 #define SWIG_isptrtype(L,I) (lua_isuserdata(L,I) || lua_isnil(L,I)) 1087 lua_rawget(L,LUA_REGISTRYINDEX);
1088 if (lua_islightuserdata(L,-1))
1098 lua_pushlightuserdata(L,(
void*)module);
1099 lua_rawset(L,LUA_REGISTRYINDEX);
1112 #ifndef SWIGLUA_IGNORE_SET_IMMUTABLE 1114 luaL_error(L,
"This variable is immutable");
1119 #ifdef SWIG_LUA_ELUA_EMULATE 1123 static int swig_lua_elua_emulate_unique_key;
1126 SWIGINTERN void SWIG_Lua_elua_emulate_register(lua_State *L,
const swig_elua_entry *table)
1128 int i, table_parsed, parsed_tables_array, target_table;
1129 assert(lua_istable(L,-1));
1130 target_table = lua_gettop(L);
1132 lua_rawgetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1133 if(lua_isnil(L,-1)) {
1136 lua_pushvalue(L,-1);
1137 lua_rawsetp(L,LUA_REGISTRYINDEX,(
void*)(&swig_lua_elua_emulate_unique_key));
1139 parsed_tables_array = lua_gettop(L);
1140 lua_pushvalue(L,target_table);
1143 const int SWIGUNUSED pairs_start = lua_gettop(L);
1144 for(i = 0;table[i].key.type != LUA_TNIL || table[i].value.type != LUA_TNIL;i++)
1146 const swig_elua_entry *entry = table + i;
1147 int is_metatable = 0;
1148 switch(entry->key.type) {
1150 lua_pushstring(L,entry->key.key.strkey);
1151 if(strcmp(entry->key.key.strkey, SWIG_LUA_ELUA_EMUL_METATABLE_KEY) == 0)
1155 lua_pushnumber(L,entry->key.key.numkey);
1163 switch(entry->value.type) {
1165 lua_pushstring(L,entry->value.value.string);
1168 lua_pushnumber(L,entry->value.value.number);
1171 lua_pushcfunction(L,entry->value.value.function);
1174 lua_rawgetp(L,parsed_tables_array, entry->value.value.table);
1175 table_parsed = !lua_isnil(L,-1);
1179 SWIG_Lua_elua_emulate_register(L,entry->value.value.table);
1182 assert(lua_istable(L,-1));
1183 lua_pushvalue(L,-1);
1184 lua_setmetatable(L,target_table);
1189 if(entry->value.value.userdata.member)
1191 entry->value.value.userdata.lvalue,
1192 *(entry->value.value.userdata.ptype));
1195 *(entry->value.value.userdata.ptype),0);
1203 assert(lua_gettop(L) == pairs_start + 2);
1204 lua_rawset(L,target_table);
1207 assert(lua_gettop(L) == target_table);
1210 SWIGINTERN void SWIG_Lua_elua_emulate_register_clear(lua_State *L)
1213 lua_rawsetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1218 SWIGINTERN int SWIG_Lua_emulate_elua_getmetatable(lua_State *L)
1222 lua_getfield(L,-1,
"lua_getmetatable");
1224 assert(!lua_isnil(L,-1));
1226 assert(lua_gettop(L) == 3);
1228 if(!lua_isnil(L,-1))
1231 assert(lua_gettop(L) == 2);
1232 if(lua_istable(L,-2)) {
1234 lua_getfield(L,-1, SWIG_LUA_ELUA_EMUL_METATABLE_KEY);
1236 assert(lua_gettop(L) == 2);
1244 SWIGINTERN void SWIG_Lua_emulate_elua_swap_getmetatable(lua_State *L)
1248 lua_pushstring(L,
"lua_getmetatable");
1249 lua_getfield(L,-2,
"getmetatable");
1250 assert(!lua_isnil(L,-1));
1252 lua_pushstring(L,
"getmetatable");
1253 lua_pushcfunction(L, SWIG_Lua_emulate_elua_getmetatable);
1271 assert(lua_istable(L,-2));
1272 lua_getmetatable(L,-2);
1273 assert(lua_istable(L,-1));
1275 assert(lua_istable(L,-1));
1280 if (lua_iscfunction(L,-1))
1289 assert(lua_istable(L,-1));
1293 if (lua_isfunction(L,-1))
1310 assert(lua_istable(L,1));
1311 lua_getmetatable(L,1);
1312 assert(lua_istable(L,-1));
1315 if (lua_istable(L,-1))
1320 if (lua_iscfunction(L,-1))
1334 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 1344 assert(lua_istable(L,-1));
1351 lua_getmetatable(L,-1);
1369 assert(lua_istable(L,-1));
1373 if( classes != 0 ) {
1374 while(*classes != 0) {
1391 assert(lua_istable(L,-1));
1392 lua_checkstack(L,5);
1397 lua_pushstring(L,
".get");
1401 lua_pushstring(L,
".set");
1405 lua_pushstring(L,
".fn");
1413 lua_setmetatable(L,-2);
1421 if( sub_namespace != 0) {
1422 while(*sub_namespace != 0) {
1430 lua_pushstring(L,ns->
name);
1431 lua_pushvalue(L,-2);
1434 assert(lua_gettop(L) == begin+1);
1451 int last_arg = lua_gettop(L);
1452 int original_metatable = last_arg + 1;
1457 lua_getmetatable(L,first_arg);
1460 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 1462 assert(lua_istable(L,-1));
1464 bases_table = lua_gettop(L);
1468 assert(swig_type!=0);
1471 const char **base_names= ((
swig_lua_class*)(swig_type->clientdata))->base_names;
1473 for(;base_names[bases_count];
1484 int subcall_last_arg;
1485 int subcall_first_arg = lua_gettop(L) + 1;
1488 for(j=first_arg;j<=last_arg;j++)
1490 subcall_last_arg = lua_gettop(L);
1493 for(i=0;i<bases_count;i++) {
1495 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 1496 lua_rawgeti(L,bases_table,i+1);
1498 if(lua_isnil(L,-1)) {
1512 assert(base_swig_type != 0);
1518 assert(lua_isuserdata(L, subcall_first_arg));
1519 assert(lua_istable(L,-1));
1520 lua_setmetatable(L,subcall_first_arg);
1521 assert(lua_gettop(L) == subcall_last_arg);
1522 result = func(L, base_swig_type,subcall_first_arg, ret);
1528 lua_pushvalue(L,original_metatable);
1529 lua_setmetatable(L,first_arg);
1531 to_remove = subcall_last_arg - last_arg;
1532 for(j=0;j<to_remove;j++)
1533 lua_remove(L,last_arg+1);
1536 lua_pop(L, lua_gettop(L) - last_arg);
1538 if(ret) assert(lua_gettop(L) == last_arg + *ret);
1552 int bases_search_result;
1553 int substack_start = lua_gettop(L)-2;
1554 assert(first_arg == substack_start+1);
1555 lua_checkstack(L,5);
1556 assert(lua_isuserdata(L,-2));
1557 lua_getmetatable(L,-2);
1558 assert(lua_istable(L,-1));
1562 if (lua_iscfunction(L,-1))
1564 lua_pushvalue(L,substack_start+1);
1565 lua_pushvalue(L,substack_start+2);
1576 return bases_search_result;
1590 int bases_search_result;
1591 int substack_start = lua_gettop(L)-2;
1592 assert(first_arg == substack_start+1);
1593 lua_checkstack(L,5);
1594 assert(lua_isuserdata(L,-2));
1595 lua_getmetatable(L,-2);
1596 assert(lua_istable(L,-1));
1598 assert(lua_istable(L,-1));
1600 lua_pushvalue(L,substack_start+2);
1603 if (lua_iscfunction(L,-1))
1605 lua_pushvalue(L,substack_start+1);
1615 assert(lua_istable(L,-1));
1616 lua_pushvalue(L,substack_start+2);
1619 if (lua_isfunction(L,-1))
1631 return bases_search_result;
1646 assert(lua_isuserdata(L,1));
1671 int bases_search_result;
1672 int substack_start = lua_gettop(L) - 3;
1673 lua_checkstack(L,5);
1674 assert(lua_isuserdata(L,substack_start+1));
1675 lua_getmetatable(L,substack_start+1);
1676 assert(lua_istable(L,-1));
1681 if (lua_istable(L,-1))
1684 lua_pushvalue(L,substack_start+2);
1687 if (lua_iscfunction(L,-1))
1689 lua_pushvalue(L,substack_start+1);
1690 lua_pushvalue(L,substack_start+3);
1692 lua_remove(L,substack_start+4);
1702 if (lua_iscfunction(L,-1))
1704 lua_pushvalue(L,substack_start+1);
1705 lua_pushvalue(L,substack_start+2);
1706 lua_pushvalue(L,substack_start+3);
1718 assert(lua_gettop(L) == substack_start + 3);
1719 return bases_search_result;
1736 assert(lua_isuserdata(L,1));
1741 SWIG_Lua_pushferrstring(L,
"Assignment not possible. No setter/member with this name. For custom assignments implement __setitem method.");
1756 assert(lua_isuserdata(L,-1));
1775 const char *className;
1777 assert(lua_isuserdata(L,1));
1778 userData = lua_touserdata(L,1);
1779 lua_getmetatable(L,1);
1780 assert(lua_istable(L,-1));
1782 lua_getfield(L, -1,
".type");
1783 className = lua_tostring(L, -1);
1785 lua_pushfstring(L,
"<%s userdata: %p>", className, userData);
1795 assert(lua_isuserdata(L,-1));
1809 if (!lua_isuserdata(L,1) || !lua_isuserdata(L,2))
1814 result=(usr1->
ptr==usr2->
ptr);
1815 lua_pushboolean(L,result);
1843 lua_pushstring(L,
"SWIG");
1848 lua_pushstring(L,
".library");
1852 lua_pushstring(L,
"inheritable_metamethods");
1860 lua_rawset(L,LUA_REGISTRYINDEX);
1867 lua_pushstring(L,
"SWIG");
1868 lua_rawget(L,LUA_REGISTRYINDEX);
1869 if (!lua_istable(L,-1))
1874 lua_pushstring(L,
"SWIG");
1875 lua_rawget(L,LUA_REGISTRYINDEX);
1882 lua_pushstring(L,
".library");
1884 assert( !lua_isnil(L,-1) );
1885 lua_pushstring(L,
"inheritable_metamethods");
1897 lua_pushstring(L,cname);
1915 if (clss->
bases[i]==0)
1924 #if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 1926 SWIGINTERN void SWIG_Lua_merge_tables_by_index(lua_State *L,
int target,
int source)
1930 while (lua_next(L,source) != 0) {
1933 lua_pushvalue(L,-2);
1934 lua_pushvalue(L,-2);
1935 lua_rawset(L, target);
1942 SWIGINTERN void SWIG_Lua_merge_tables(lua_State *L,
const char*
name,
int original,
int base)
1945 lua_pushstring(L,
name);
1946 lua_rawget(L,original);
1947 int original_table = lua_gettop(L);
1948 lua_pushstring(L,
name);
1950 int base_table = lua_gettop(L);
1951 SWIG_Lua_merge_tables_by_index(L, original_table, base_table);
1960 assert(lua_istable(L,-1));
1961 int original = lua_gettop(L);
1963 int base = lua_gettop(L);
1964 SWIG_Lua_merge_tables(L,
".fn", original, base );
1965 SWIG_Lua_merge_tables(L,
".set", original, base );
1966 SWIG_Lua_merge_tables(L,
".get", original, base );
1977 if (clss->
bases[i]==0)
1983 SWIG_Lua_class_squash_base(L, clss->
bases[i]);
1989 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 1993 assert(lua_istable(L,-1));
1995 assert(lua_istable(L,-1));
2001 assert(lua_istable(L,-1));
2012 assert(lua_istable(L,-1));
2014 for(i=0;clss->
bases[i];i++)
2028 size_t bases_count = 0;
2031 assert(lua_istable(L,-1));
2032 for(i=0;clss->
bases[i];i++)
2036 assert(lua_istable(L,-1));
2037 lua_rawseti(L,-2,i+1);
2048 assert(lua_istable(L,-1));
2049 for(i=0;clss->
methods[i].name;i++){
2063 #if !defined(SWIG_LUA_SQUASH_BASES) 2105 lua_pushvalue(L, metamethod_name_idx);
2119 for(i=0;clss->
bases[i];i++)
2134 int metamethod_name_idx;
2138 lua_checkstack(L,5);
2139 numargs = lua_gettop(L);
2142 lua_pushvalue(L, lua_upvalueindex(1));
2143 metamethod_name_idx = lua_gettop(L);
2145 lua_pushvalue(L, lua_upvalueindex(2));
2152 SWIG_Lua_pushferrstring(L,
"The metamethod proxy is set, but it failed to find actual metamethod. Memory corruption is most likely explanation.");
2159 lua_call(L, numargs, LUA_MULTRET);
2160 return lua_gettop(L);
2175 assert(lua_isstring(L,-1));
2177 key_index = lua_gettop(L);
2180 lua_pushvalue(L,key_index);
2181 lua_gettable(L,metatable_index);
2182 if( !lua_isnil(L,-1) ) {
2189 for(i=0;clss->
bases[i];i++)
2193 lua_pushvalue(L, key_index);
2195 if( !lua_isnil(L,-1) ) {
2196 lua_pushvalue(L, key_index);
2199 lua_pushvalue(L, key_index);
2200 lua_pushlightuserdata(L, clss);
2203 lua_rawset(L, metatable_index);
2218 int metatable_index;
2219 int metamethods_info_index;
2220 int tostring_undefined;
2221 int eq_undefined = 0;
2224 metatable_index = lua_gettop(L);
2226 assert(lua_istable(L,-1));
2227 metamethods_info_index = lua_gettop(L);
2229 while(lua_next(L, metamethods_info_index) != 0 ) {
2231 const int is_inheritable = lua_toboolean(L,-2);
2234 if(is_inheritable) {
2242 lua_pushstring(L,
"__tostring");
2243 lua_pushvalue(L,-1);
2244 lua_rawget(L,metatable_index);
2245 tostring_undefined = lua_isnil(L,-1);
2247 if( tostring_undefined ) {
2249 lua_rawset(L, metatable_index);
2255 lua_pushstring(L,
"__eq");
2256 lua_pushvalue(L,-1);
2257 lua_rawget(L,metatable_index);
2258 eq_undefined = lua_isnil(L,-1);
2260 if( eq_undefined ) {
2262 lua_rawset(L, metatable_index);
2276 lua_checkstack(L,5);
2277 assert(lua_istable(L,-1));
2282 assert(lua_istable(L,-1));
2290 lua_getmetatable(L,-1);
2291 assert(lua_istable(L,-1));
2296 assert(lua_istable(L,-1));
2301 assert( lua_gettop(L) == begin );
2313 lua_pushstring(L,clss->
fqname);
2315 if(!lua_isnil(L,-1)) {
2317 assert(lua_gettop(L)==begin);
2322 for(i=0;clss->
bases[i];i++)
2328 lua_pushstring(L,clss->
fqname);
2330 #if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 2337 for(i=0;clss->
bases[i];i++)
2342 SWIG_Lua_merge_tables_by_index(L,new_metatable_index, base_metatable);
2349 lua_pushstring(L,
".type");
2350 lua_pushstring(L,clss->
fqname);
2353 lua_pushstring(L,
".bases");
2357 lua_pushstring(L,
".get");
2361 lua_pushstring(L,
".set");
2365 lua_pushstring(L,
".fn");
2377 assert(lua_gettop(L) == begin);
2379 #if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 2381 SWIG_Lua_class_squash_bases(L,clss);
2386 assert( lua_gettop(L) == begin );
2392 assert(lua_istable(L,-1));
2406 begin = lua_gettop(L);
2409 assert(lua_istable(L,-1));
2410 lua_getmetatable(L,-1);
2411 assert(lua_istable(L,-1));
2412 lua_pushstring(L,
".instance");
2415 assert(lua_istable(L,-1));
2416 lua_pushstring(L,
".static");
2417 lua_pushvalue(L, -4);
2418 assert(lua_istable(L,-1));
2422 assert(lua_gettop(L) == begin);
2426 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC) 2433 lua_pushstring(L,clss->
fqname);
2435 if(!lua_isnil(L,-1)) {
2437 assert(lua_gettop(L)==begin);
2442 for(i=0;clss->
bases[i];i++)
2444 SWIG_Lua_elua_class_register_instance(L,clss->
bases[i]);
2448 lua_pushstring(L,clss->
fqname);
2450 lua_pushrotable(L, (
void*)(clss->
metatable));
2453 assert(lua_gettop(L) == begin);
2467 if (lua_istable(L,-1))
2469 lua_setmetatable(L,-2);
2490 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC) 2502 if (lua_isnil(L,index))
2532 int argnum,
const char *func_name){
2535 luaL_error (L,
"Error in %s, expected a %s at argument number %d\n",
2536 func_name,(type && type->
str)?type->
str:
"void*",argnum);
2549 memcpy(raw->
data,ptr,size);
2559 if (type==0 || type==raw->
type)
2561 memcpy(ptr,raw->
data,size);
2571 if (lua_isuserdata(L,tp))
2576 return "userdata (unknown type)";
2578 return lua_typename(L,lua_type(L,tp));
2592 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)) 2597 for (i = 0; constants[i].
type; i++) {
2598 switch(constants[i].type) {
2600 lua_pushstring(L,constants[i].
name);
2601 lua_pushinteger(L,(lua_Integer)constants[i].lvalue);
2605 lua_pushstring(L,constants[i].
name);
2606 lua_pushnumber(L,(lua_Number)constants[i].dvalue);
2610 lua_pushstring(L,constants[i].
name);
2612 char c = (char)constants[i].lvalue;
2613 lua_pushlstring(L,&c,1);
2618 lua_pushstring(L,constants[i].
name);
2619 lua_pushstring(L,(
char *) constants[i].pvalue);
2623 lua_pushstring(L,constants[i].
name);
2628 lua_pushstring(L,constants[i].
name);
2629 SWIG_NewMemberObj(L,constants[i].pvalue,constants[i].lvalue,*(constants[i]).ptype);
2643 #ifndef SWIG_DOSTRING_FAIL 2644 #define SWIG_DOSTRING_FAIL(S) fprintf(stderr,"%s\n",S) 2654 if (str==0 || str[0]==0)
return 0;
2656 #if (defined(LUA_VERSION_NUM) && (LUA_VERSION_NUM>=501)) 2657 ok=luaL_dostring(L,str);
2659 ok=lua_dostring(L,str);
2677 #define SWIGTYPE_p_PLGraphicsIn swig_types[0] 2678 #define SWIGTYPE_p_char swig_types[1] 2679 #define SWIGTYPE_p_double swig_types[2] 2680 #define SWIGTYPE_p_f_double_double__int swig_types[3] 2681 #define SWIGTYPE_p_f_double_double_p_double_p_double_p_void__void swig_types[4] 2682 #define SWIGTYPE_p_f_int_double_p_char_int_p_void__void swig_types[5] 2683 #define SWIGTYPE_p_f_int_p_double_p_double__void swig_types[6] 2684 #define SWIGTYPE_p_f_int_p_q_const__double_p_q_const__double__void swig_types[7] 2685 #define SWIGTYPE_p_int swig_types[8] 2686 #define SWIGTYPE_p_p_char swig_types[9] 2687 #define SWIGTYPE_p_p_double swig_types[10] 2688 #define SWIGTYPE_p_unsigned_int swig_types[11] 2691 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name) 2692 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name) 2696 #define SWIG_name "plplotluac" 2697 #define SWIG_init luaopen_plplotluac 2698 #define SWIG_init_user luaopen_plplotluac_user 2700 #define SWIG_LUACODE luaopen_plplotluac_luacode 2705 #define LUA_ALLOC_ARRAY( TYPE, LEN ) (TYPE *) malloc( LEN * sizeof ( TYPE ) ) 2706 #define LUA_FREE_ARRAY( PTR ) if ( PTR ) { free( PTR ); PTR = NULL;} 2710 #define LUA_DECLARE_TYPEMAP_ARR_FN( NAME, TYPE ) \ 2711 SWIGINTERN int LUA_read_ ## NAME ## _num_array( lua_State * L, int index, TYPE * array, int size ){ \ 2713 for ( i = 0; i < size; i++ ) { \ 2714 lua_rawgeti( L, index, i + 1 ); \ 2715 if ( lua_isnumber( L, -1 ) ) { \ 2716 array[i] = (TYPE) lua_tonumber( L, -1 ); \ 2725 SWIGINTERN TYPE* LUA_get_ ## NAME ## _num_array_var( lua_State * L, int index, int* size ) \ 2728 if ( !lua_istable( L, index ) ) { \ 2729 lua_pushstring( L, "expected a table" ); \ 2732 *size = SWIG_itable_size( L, index ); \ 2733 if ( *size < 1 ) { \ 2734 array = LUA_ALLOC_ARRAY( TYPE, 1 ); \ 2735 array[0] = (TYPE) 0; \ 2738 array = LUA_ALLOC_ARRAY( TYPE, *size ); \ 2739 if ( !LUA_read_ ## NAME ## _num_array( L, index, array, *size ) ) { \ 2740 lua_pushstring( L, "table must contain numbers" ); \ 2741 LUA_FREE_ARRAY( array ); \ 2756 #define SWIG_ALLOC_ARRAY(TYPE,LEN) new TYPE[LEN] 2757 #define SWIG_FREE_ARRAY(PTR) delete[] PTR 2759 #define SWIG_ALLOC_ARRAY(TYPE,LEN) (TYPE *)malloc(LEN*sizeof(TYPE)) 2760 #define SWIG_FREE_ARRAY(PTR) free(PTR) 2767 lua_rawgeti(L,index,n+1);
2768 if (lua_isnil(L,-1))
break;
2780 while (lua_next(L, index) != 0) {
2788 #define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME,TYPE)\ 2789 SWIGINTERN int SWIG_read_##NAME##_num_array(lua_State* L,int index,TYPE *array,int size){\ 2791 for (i = 0; i < size; i++) {\ 2792 lua_rawgeti(L,index,i+1);\ 2793 if (lua_isnumber(L,-1)){\ 2794 array[i] = (TYPE)lua_tonumber(L,-1);\ 2803 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_fixed(lua_State* L, int index, int size){\ 2805 if (!lua_istable(L,index) || SWIG_itable_size(L,index) != size) {\ 2806 SWIG_Lua_pushferrstring(L,"expected a table of size %d",size);\ 2809 array=SWIG_ALLOC_ARRAY(TYPE,size);\ 2810 if (!SWIG_read_##NAME##_num_array(L,index,array,size)){\ 2811 SWIG_Lua_pusherrstring(L,"table must contain numbers");\ 2812 SWIG_FREE_ARRAY(array);\ 2817 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_var(lua_State* L, int index, int* size)\ 2820 if (!lua_istable(L,index)) {\ 2821 SWIG_Lua_pusherrstring(L,"expected a table");\ 2824 *size=SWIG_itable_size(L,index);\ 2826 SWIG_Lua_pusherrstring(L,"table appears to be empty");\ 2829 array=SWIG_ALLOC_ARRAY(TYPE,*size);\ 2830 if (!SWIG_read_##NAME##_num_array(L,index,array,*size)){\ 2831 SWIG_Lua_pusherrstring(L,"table must contain numbers");\ 2832 SWIG_FREE_ARRAY(array);\ 2837 SWIGINTERN void SWIG_write_##NAME##_num_array(lua_State* L,TYPE *array,int size){\ 2840 for (i = 0; i < size; i++){\ 2841 lua_pushnumber(L,(lua_Number)array[i]);\ 2842 lua_rawseti(L,-2,i+1); \ 2859 for (i = 0; i < size; i++) {
2860 lua_rawgeti(L,index,i+1);
2861 if (!lua_isuserdata(L,-1) ||
SWIG_ConvertPtr(L,-1,&array[i],type,0)==-1){
2885 if (!lua_istable(L,index)) {
2905 for (i = 0; i < size; i++){
2907 lua_rawseti(L,-2,i+1);
2922 if ( !lua_istable( L, index ) )
2924 lua_pushstring( L,
"expected a table" );
2930 lua_pushstring( L,
"table appears to be empty" );
2934 for ( i = 0; i < *nx; i++ )
2937 lua_rawgeti( L, index, 1 );
2938 if ( !lua_istable( L, -1 ) )
2941 lua_pushstring( L,
"expected a table" );
2948 lua_pushstring( L,
"table appears to be empty" );
2954 for ( i = 0; i < *nx; i++ )
2956 lua_rawgeti( L, index, i + 1 );
2957 if ( !lua_istable( L, -1 ) )
2960 lua_pushstring( L,
"expected a table" );
2961 for ( j = 0; j < *ny; j++ )
2969 lua_pushstring( L,
"inconsistent table sizes" );
2970 for ( j = 0; j < i; j++ )
2976 for ( j = 0; j < *ny; j++ )
2978 lua_rawgeti( L, -1, j + 1 );
2979 if ( lua_isnumber( L, -1 ) )
2981 matrix[i][j] = (
PLFLT) lua_tonumber( L, -1 );
2986 lua_pushstring( L,
"table must contain numbers" );
2987 for ( j = 0; j < i + 1; j++ )
3008 PLFLT *xtemp, *ytemp;
3014 fprintf( stderr,
"Lua state is not set!" );
3020 lua_pushnumber(
myL, n );
3021 SWIG_write_double_num_array(
myL, x, n );
3022 SWIG_write_double_num_array(
myL, y, n );
3025 if ( lua_pcall(
myL, 3, 2, 0 ) != 0 )
3026 fprintf( stderr,
"error running function `%s':%s",
3030 if ( !lua_istable(
myL, -2 ) )
3032 fprintf( stderr,
"function `%s' must return a table as 1st result",
mapform_funcstr );
3035 if ( !lua_istable(
myL, -1 ) )
3037 fprintf( stderr,
"function `%s' must return a table as 2nd result",
mapform_funcstr );
3040 xtemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -2, &len );
3041 if ( !xtemp || len != n )
3043 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3046 for ( i = 0; i < n; i++ )
3050 ytemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -1, &len );
3051 if ( !ytemp || len != n )
3053 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3056 for ( i = 0; i < n; i++ )
3091 fprintf( stderr,
"Lua state is not set!" );
3097 lua_pushnumber(
myL, x );
3098 lua_pushnumber(
myL, y );
3101 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3102 fprintf( stderr,
"error running function `%s':%s",
3106 if ( !lua_isnumber(
myL, -2 ) )
3108 fprintf( stderr,
"function `%s' must return a number as 1st result",
mypltr_funcstr );
3111 if ( !lua_isnumber(
myL, -1 ) )
3113 fprintf( stderr,
"function `%s' must return a number as 2nd result",
mypltr_funcstr );
3116 *tx = lua_tonumber(
myL, -2 );
3117 *ty = lua_tonumber(
myL, -1 );
3135 fprintf( stderr,
"Lua state is not set!" );
3141 lua_pushnumber(
myL, x );
3142 lua_pushnumber(
myL, y );
3145 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3146 fprintf( stderr,
"error running function `%s':%s",
3150 if ( !lua_isnumber(
myL, -2 ) )
3152 fprintf( stderr,
"function `%s' must return a number as 1st result",
myct_funcstr );
3155 if ( !lua_isnumber(
myL, -1 ) )
3157 fprintf( stderr,
"function `%s' must return a number as 2nd result",
myct_funcstr );
3160 *tx = lua_tonumber(
myL, -2 );
3161 *ty = lua_tonumber(
myL, -1 );
3174 fprintf( stderr,
"Lua state is not set!" );
3180 lua_pushnumber(
myL, axis );
3184 if ( lua_pcall(
myL, 2, 1, 0 ) != 0 )
3185 fprintf( stderr,
"error running function `%s':%s",
3189 if ( !lua_isstring(
myL, -1 ) )
3191 fprintf( stderr,
"function `%s' must return a string as result",
mylabel_funcstr );
3194 strncpy( label, lua_tostring(
myL, -1 ), length );
3203 int ret = lua_isstring(L, idx);
3205 ret = lua_isnil(L, idx);
3219 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::type",2,
"int");
3225 arg2 = (int)lua_tonumber(L, 2);
3226 if (arg1) (arg1)->type = arg2;
3250 result = (int) ((arg1)->type);
3251 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3269 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::state",2,
"unsigned int");
3276 arg2 = (
unsigned int)lua_tonumber(L, 2);
3277 if (arg1) (arg1)->state = arg2;
3292 unsigned int result;
3301 result = (
unsigned int) ((arg1)->state);
3302 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3320 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::keysym",2,
"unsigned int");
3327 arg2 = (
unsigned int)lua_tonumber(L, 2);
3328 if (arg1) (arg1)->keysym = arg2;
3343 unsigned int result;
3352 result = (
unsigned int) ((arg1)->keysym);
3353 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3371 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::button",2,
"unsigned int");
3378 arg2 = (
unsigned int)lua_tonumber(L, 2);
3379 if (arg1) (arg1)->button = arg2;
3394 unsigned int result;
3403 result = (
unsigned int) ((arg1)->button);
3404 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3422 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::subwindow",2,
"PLINT");
3428 arg2 = (
PLINT)lua_tonumber(L, 2);
3429 if (arg1) (arg1)->subwindow = arg2;
3453 result = (
PLINT) ((arg1)->subwindow);
3454 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3478 arg2 = (
char *)lua_tostring(L, 2);
3481 strncpy((
char*)arg1->string, (
const char *)arg2, 16-1);
3482 arg1->string[16-1] = 0;
3484 arg1->string[0] = 0;
3510 result = (
char *)(
char *) ((arg1)->
string);
3511 lua_pushstring(L,(
const char *)result); SWIG_arg++;
3529 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pX",2,
"int");
3535 arg2 = (int)lua_tonumber(L, 2);
3536 if (arg1) (arg1)->pX = arg2;
3560 result = (int) ((arg1)->pX);
3561 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3579 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pY",2,
"int");
3585 arg2 = (int)lua_tonumber(L, 2);
3586 if (arg1) (arg1)->pY = arg2;
3610 result = (int) ((arg1)->pY);
3611 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3629 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dX",2,
"PLFLT");
3635 arg2 = (
PLFLT)lua_tonumber(L, 2);
3636 if (arg1) (arg1)->dX = arg2;
3660 result = (
PLFLT) ((arg1)->dX);
3661 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3679 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dY",2,
"PLFLT");
3685 arg2 = (
PLFLT)lua_tonumber(L, 2);
3686 if (arg1) (arg1)->dY = arg2;
3710 result = (
PLFLT) ((arg1)->dY);
3711 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3729 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wX",2,
"PLFLT");
3735 arg2 = (
PLFLT)lua_tonumber(L, 2);
3736 if (arg1) (arg1)->wX = arg2;
3760 result = (
PLFLT) ((arg1)->wX);
3761 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3779 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wY",2,
"PLFLT");
3785 arg2 = (
PLFLT)lua_tonumber(L, 2);
3786 if (arg1) (arg1)->wY = arg2;
3810 result = (
PLFLT) ((arg1)->wY);
3811 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3841 free((
char *) arg1);
3844 assert(lua_istable(L,1));
3846 assert(!lua_isnil(L,-1));
3848 lua_call(L,lua_gettop(L)-1,1);
3896 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 };
3904 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelformat",1,
"PLINT");
3905 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelformat",2,
"PLINT");
3906 arg1 = (
PLINT)lua_tonumber(L, 1);
3907 arg2 = (
PLINT)lua_tonumber(L, 2);
3928 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelparam",1,
"PLFLT");
3929 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelparam",2,
"PLFLT");
3930 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pl_setcontlabelparam",3,
"PLFLT");
3931 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"pl_setcontlabelparam",4,
"PLINT");
3932 arg1 = (
PLFLT)lua_tonumber(L, 1);
3933 arg2 = (
PLFLT)lua_tonumber(L, 2);
3934 arg3 = (
PLFLT)lua_tonumber(L, 3);
3935 arg4 = (
PLINT)lua_tonumber(L, 4);
3954 arg1 = (
PLINT)lua_tonumber(L, 1);
3987 arg1 = (
PLFLT)lua_tonumber(L, 1);
3988 arg2 = (
PLFLT)lua_tonumber(L, 2);
3989 arg3 = (
PLFLT)lua_tonumber(L, 3);
3990 arg4 = (
PLFLT)lua_tonumber(L, 4);
3991 arg5 = (
PLFLT)lua_tonumber(L, 5);
3992 arg6 = (
PLFLT)lua_tonumber(L, 6);
3993 arg7 = (
PLFLT)lua_tonumber(L, 7);
3994 arg8 = (
PLBOOL)lua_tonumber(L, 8);
3995 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
4011 char *arg3 = (
char *) 0 ;
4014 char *arg6 = (
char *) 0 ;
4027 arg1 = (
PLFLT)lua_tonumber(L, 1);
4028 arg2 = (
PLFLT)lua_tonumber(L, 2);
4029 arg3 = (
char *)lua_tostring(L, 3);
4030 arg4 = (
PLFLT)lua_tonumber(L, 4);
4031 arg5 = (
PLINT)lua_tonumber(L, 5);
4032 arg6 = (
char *)lua_tostring(L, 6);
4033 arg7 = (
PLFLT)lua_tonumber(L, 7);
4034 arg8 = (
PLINT)lua_tonumber(L, 8);
4035 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
4059 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4065 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4068 if ( temp3 !=
Alen )
4070 lua_pushfstring( L,
"Tables must be of same length." );
4074 arg4 = (
PLINT)lua_tonumber(L, 3);
4075 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
4123 arg7 = (
PLFLT)lua_tonumber(L, 1);
4124 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4126 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4127 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4128 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4129 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4130 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4131 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
4160 char *arg1 = (
char *) 0 ;
4163 char *arg4 = (
char *) 0 ;
4174 arg1 = (
char *)lua_tostring(L, 1);
4175 arg2 = (
PLFLT)lua_tonumber(L, 2);
4176 arg3 = (
PLINT)lua_tonumber(L, 3);
4177 arg4 = (
char *)lua_tostring(L, 4);
4178 arg5 = (
PLFLT)lua_tonumber(L, 5);
4179 arg6 = (
PLINT)lua_tonumber(L, 6);
4180 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
4194 char *arg1 = (
char *) 0 ;
4195 char *arg2 = (
char *) 0 ;
4198 char *arg5 = (
char *) 0 ;
4199 char *arg6 = (
char *) 0 ;
4202 char *arg9 = (
char *) 0 ;
4203 char *arg10 = (
char *) 0 ;
4220 arg1 = (
char *)lua_tostring(L, 1);
4221 arg2 = (
char *)lua_tostring(L, 2);
4222 arg3 = (
PLFLT)lua_tonumber(L, 3);
4223 arg4 = (
PLINT)lua_tonumber(L, 4);
4224 arg5 = (
char *)lua_tostring(L, 5);
4225 arg6 = (
char *)lua_tostring(L, 6);
4226 arg7 = (
PLFLT)lua_tonumber(L, 7);
4227 arg8 = (
PLINT)lua_tonumber(L, 8);
4228 arg9 = (
char *)lua_tostring(L, 9);
4229 arg10 = (
char *)lua_tostring(L, 10);
4230 arg11 = (
PLFLT)lua_tonumber(L, 11);
4231 arg12 = (
PLINT)lua_tonumber(L, 12);
4232 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);
4259 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcalc_world",1,
"PLFLT");
4260 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcalc_world",2,
"PLFLT");
4261 arg1 = (
PLFLT)lua_tonumber(L, 1);
4262 arg2 = (
PLFLT)lua_tonumber(L, 2);
4265 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4266 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4267 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4300 arg1 = (
PLINT)lua_tonumber(L, 1);
4319 arg1 = (
PLFLT)lua_tonumber(L, 1);
4347 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plconfigtime",1,
"PLFLT");
4348 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plconfigtime",2,
"PLFLT");
4349 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plconfigtime",3,
"PLFLT");
4350 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plconfigtime",4,
"PLINT");
4351 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plconfigtime",5,
"PLBOOL");
4352 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plconfigtime",6,
"PLINT");
4353 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plconfigtime",7,
"PLINT");
4354 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plconfigtime",8,
"PLINT");
4355 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plconfigtime",9,
"PLINT");
4356 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plconfigtime",10,
"PLINT");
4357 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plconfigtime",11,
"PLFLT");
4358 arg1 = (
PLFLT)lua_tonumber(L, 1);
4359 arg2 = (
PLFLT)lua_tonumber(L, 2);
4360 arg3 = (
PLFLT)lua_tonumber(L, 3);
4361 arg4 = (
PLINT)lua_tonumber(L, 4);
4362 arg5 = (
PLBOOL)lua_tonumber(L, 5);
4363 arg6 = (
PLINT)lua_tonumber(L, 6);
4364 arg7 = (
PLINT)lua_tonumber(L, 7);
4365 arg8 = (
PLINT)lua_tonumber(L, 8);
4366 arg9 = (
PLINT)lua_tonumber(L, 9);
4367 arg10 = (
PLINT)lua_tonumber(L, 10);
4368 arg11 = (
PLFLT)lua_tonumber(L, 11);
4369 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
4399 cgrid111.
xg = cgrid111.
yg = cgrid111.
zg = NULL;
4400 cgrid111.
nx = cgrid111.
ny = cgrid111.
nz = 0;
4401 cgrid211.
xg = cgrid211.
yg = cgrid211.
zg = NULL;
4402 cgrid211.
nx = cgrid211.
ny = 0;
4424 arg4 = (
PLINT)lua_tonumber(L, 2);
4425 arg5 = (
PLINT)lua_tonumber(L, 3);
4426 arg6 = (
PLINT)lua_tonumber(L, 4);
4427 arg7 = (
PLINT)lua_tonumber(L, 5);
4430 arg8 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
4435 if(lua_gettop(L)>=7){
4440 if ( lua_isstring( L, 7 ) )
4442 const char* funcstr = lua_tostring( L, 7 );
4443 if ( strcmp(
"pltr0", funcstr ) == 0 )
4447 else if ( strcmp(
"pltr1", funcstr ) == 0 )
4451 else if ( strcmp(
"pltr2", funcstr ) == 0 )
4466 if(lua_gettop(L)>=8){
4471 lua_pushstring( L,
"xg" );
4472 lua_gettable( L, 8 );
4473 if ( !lua_istable( L, -1 ) )
4476 lua_pushstring( L,
"expected a table xg" );
4479 lua_rawgeti( L, -1, 1 );
4480 if ( lua_istable( L, -1 ) )
4482 else if ( lua_isnumber( L, -1 ) )
4488 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
4492 if ( gridmode == 1 )
4494 cgrid111.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
4502 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
4515 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4518 lua_pushfstring( L,
"Vectors must match matrix." );
4526 lua_pushstring( L,
"yg" );
4527 lua_gettable( L, 8 );
4528 if ( !lua_istable( L, -1 ) )
4531 lua_pushstring( L,
"expected a table yg" );
4534 lua_rawgeti( L, -1, 1 );
4535 if ( gridmode == 2 )
4537 if ( !lua_istable( L, -1 ) )
4541 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
4547 if ( !lua_isnumber( L, -1 ) )
4551 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
4556 if ( gridmode == 1 )
4558 cgrid111.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
4566 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
4579 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4582 lua_pushfstring( L,
"Vectors must match matrix." );
4589 if ( gridmode == 1 )
4591 else if ( gridmode == 2 )
4595 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
4602 for ( i = 0; i < ii1; i++ )
4621 for ( i = 0; i <
Xlen; i++ )
4627 for ( i = 0; i <
Xlen; i++ )
4642 for ( i = 0; i < ii1; i++ )
4661 for ( i = 0; i <
Xlen; i++ )
4667 for ( i = 0; i <
Xlen; i++ )
4696 arg1 = (
PLINT)lua_tonumber(L, 1);
4697 arg2 = (
PLINT)lua_tonumber(L, 2);
4698 arg3 = (
PLINT)lua_tonumber(L, 3);
4699 arg4 = (
PLINT)lua_tonumber(L, 4);
4700 arg5 = (
PLINT)lua_tonumber(L, 5);
4701 arg6 = (
PLFLT)lua_tonumber(L, 6);
4702 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4704 lua_pushnumber(L, (lua_Number) *arg7); SWIG_arg++;
4722 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcpstrm",2,
"PLBOOL");
4723 arg1 = (
PLINT)lua_tonumber(L, 1);
4724 arg2 = (
PLBOOL)lua_tonumber(L, 2);
4785 arg1 = (
PLFLT)lua_tonumber(L, 1);
4786 arg2 = (
PLFLT)lua_tonumber(L, 2);
4787 arg3 = (
PLFLT)lua_tonumber(L, 3);
4788 arg4 = (
PLFLT)lua_tonumber(L, 4);
4789 arg5 = (
PLINT)lua_tonumber(L, 5);
4790 arg6 = (
PLINT)lua_tonumber(L, 6);
4791 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
4819 arg1 = (
PLFLT)lua_tonumber(L, 1);
4820 arg2 = (
PLFLT)lua_tonumber(L, 2);
4821 arg3 = (
PLFLT)lua_tonumber(L, 3);
4822 arg4 = (
PLFLT)lua_tonumber(L, 4);
4823 arg5 = (
PLINT)lua_tonumber(L, 5);
4824 arg6 = (
PLINT)lua_tonumber(L, 6);
4825 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
4865 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4871 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4874 if ( temp3 !=
Alen )
4876 lua_pushfstring( L,
"Tables must be of same length." );
4881 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4884 if ( temp4 !=
Alen )
4886 lua_pushfstring( L,
"Tables must be of same length." );
4890 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4932 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4938 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4941 if ( temp3 !=
Alen )
4943 lua_pushfstring( L,
"Tables must be of same length." );
4948 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4951 if ( temp4 !=
Alen )
4953 lua_pushfstring( L,
"Tables must be of same length." );
4957 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5013 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5019 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5022 if ( temp3 !=
Alen )
5024 lua_pushfstring( L,
"Tables must be of same length." );
5028 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
5064 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5070 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5073 if ( temp3 !=
Alen )
5075 lua_pushfstring( L,
"Tables must be of same length." );
5080 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
5083 if ( temp4 !=
Alen )
5085 lua_pushfstring( L,
"Tables must be of same length." );
5089 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5128 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plgradient",3,
"PLFLT");
5131 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5137 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5140 if ( temp3 !=
Alen )
5142 lua_pushfstring( L,
"Tables must be of same length." );
5146 arg4 = (
PLFLT)lua_tonumber(L, 3);
5147 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
5193 arg1 = (
PLINT)lua_tonumber(L, 1);
5212 arg1 = (
PLINT)lua_tonumber(L, 1);
5237 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5238 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5264 arg1 = (
PLINT)lua_tonumber(L, 1);
5267 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5268 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5269 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5298 arg1 = (
PLINT)lua_tonumber(L, 1);
5299 plgcol0a(arg1,arg2,arg3,arg4,arg5);
5301 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5302 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5303 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5304 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5330 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5331 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5332 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5361 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5362 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5363 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5364 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5384 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5397 char *arg1 = (
char *) 0 ;
5407 lua_pushstring( L, arg1 );
5438 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5439 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5440 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5441 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5461 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5490 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5491 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5492 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5493 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5519 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5520 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5521 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5541 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5554 char *arg1 = (
char *) 0 ;
5564 lua_pushstring( L, arg1 );
5592 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5593 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5594 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5614 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5647 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
5649 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5650 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5651 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5652 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5653 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5654 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
5697 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plgriddata",6,
"PLINT");
5698 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plgriddata",7,
"PLFLT");
5701 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5707 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp2 );
5710 if ( temp2 !=
Alen )
5712 lua_pushfstring( L,
"Tables must be of same length." );
5718 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp );
5723 lua_pushfstring( L,
"Tables must be of same length." );
5730 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
5738 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
5746 for ( i = 0; i <
Xlen; i++ )
5749 for ( i = 0; i <
Xlen; i++ )
5756 arg10 = (
PLINT)lua_tonumber(L, 6);
5757 arg11 = (
PLFLT)lua_tonumber(L, 7);
5758 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
5766 for ( i = 0; i <
Xlen; i++ )
5768 SWIG_write_double_num_array( L, arg9[i],
Ylen );
5769 lua_rawseti( L, -2, i + 1 );
5793 for ( i = 0; i <
Xlen; i++ )
5822 for ( i = 0; i <
Xlen; i++ )
5848 plgspa(arg1,arg2,arg3,arg4);
5850 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5851 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5852 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5853 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5873 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5886 char *arg1 = (
char *) 0 ;
5896 lua_pushstring( L, arg1 );
5925 plgvpd(arg1,arg2,arg3,arg4);
5927 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5928 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5929 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5930 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5957 plgvpw(arg1,arg2,arg3,arg4);
5959 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5960 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5961 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5962 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5985 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5986 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6009 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6010 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6033 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6034 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6061 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6066 arg3 = (
PLFLT)lua_tonumber(L, 2);
6067 arg4 = (
PLFLT)lua_tonumber(L, 3);
6068 arg5 = (
PLINT)lua_tonumber(L, 4);
6069 arg6 = (
PLINT)lua_tonumber(L, 5);
6070 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
6107 arg1 = (
PLFLT)lua_tonumber(L, 1);
6108 arg2 = (
PLFLT)lua_tonumber(L, 2);
6109 arg3 = (
PLFLT)lua_tonumber(L, 3);
6110 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
6112 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
6113 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
6114 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
6153 arg1 = (
PLFLT)lua_tonumber(L, 1);
6154 arg2 = (
PLFLT)lua_tonumber(L, 2);
6155 arg3 = (
PLFLT)lua_tonumber(L, 3);
6156 arg4 = (
PLFLT)lua_tonumber(L, 4);
6157 pljoin(arg1,arg2,arg3,arg4);
6171 char *arg1 = (
char *) 0 ;
6172 char *arg2 = (
char *) 0 ;
6173 char *arg3 = (
char *) 0 ;
6179 arg1 = (
char *)lua_tostring(L, 1);
6180 arg2 = (
char *)lua_tostring(L, 2);
6181 arg3 = (
char *)lua_tostring(L, 3);
6182 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
6215 char **arg20 = (
char **) 0 ;
6226 char **arg31 = (
char **) 0 ;
6283 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"pllegend",10,
"PLINT");
6284 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"pllegend",12,
"PLFLT");
6285 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"pllegend",13,
"PLFLT");
6286 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"pllegend",14,
"PLFLT");
6287 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"pllegend",15,
"PLFLT");
6288 if(!lua_istable(L,17))
SWIG_fail_arg(
"pllegend",17,
"char const **");
6289 if(lua_gettop(L)>=28 && !lua_istable(L,28))
SWIG_fail_arg(
"pllegend",28,
"char const **");
6290 arg3 = (
PLINT)lua_tonumber(L, 1);
6291 arg4 = (
PLINT)lua_tonumber(L, 2);
6292 arg5 = (
PLFLT)lua_tonumber(L, 3);
6293 arg6 = (
PLFLT)lua_tonumber(L, 4);
6294 arg7 = (
PLFLT)lua_tonumber(L, 5);
6295 arg8 = (
PLINT)lua_tonumber(L, 6);
6296 arg9 = (
PLINT)lua_tonumber(L, 7);
6297 arg10 = (
PLINT)lua_tonumber(L, 8);
6298 arg11 = (
PLINT)lua_tonumber(L, 9);
6299 arg12 = (
PLINT)lua_tonumber(L, 10);
6301 arg14 = (
PLINT *) LUA_get_int_num_array_var( L, 11, &arg13 );
6306 arg15 = (
PLFLT)lua_tonumber(L, 12);
6307 arg16 = (
PLFLT)lua_tonumber(L, 13);
6308 arg17 = (
PLFLT)lua_tonumber(L, 14);
6309 arg18 = (
PLFLT)lua_tonumber(L, 15);
6311 arg19 = (
PLINT *) LUA_get_int_num_array_var( L, 16, &temp19 );
6314 if ( temp19 !=
Alen )
6316 lua_pushfstring( L,
"Tables must be of same length." );
6326 lua_pushfstring( L,
"Tables must be of same length." );
6329 arg20 = malloc(
sizeof (
char* ) *
Alen );
6330 for ( i = 1; i <=
Alen; i++ )
6332 lua_rawgeti( L, 17, i );
6333 if ( lua_isstring( L, -1 ) )
6335 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6340 lua_pushfstring( L,
"Requires a sequence of strings." );
6347 if(lua_gettop(L)>=18){
6349 if ( lua_isnil( L, 18 ) )
6355 arg21 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp21 );
6358 if ( temp21 !=
Alen )
6360 lua_pushfstring( L,
"Tables must be of same length." );
6366 if(lua_gettop(L)>=19){
6368 if ( lua_isnil( L, 19 ) )
6374 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp22 );
6377 if ( temp22 !=
Alen )
6379 lua_pushfstring( L,
"Tables must be of same length." );
6385 if(lua_gettop(L)>=20){
6387 if ( lua_isnil( L, 20 ) )
6393 arg23 = (
PLFLT *) LUA_get_double_num_array_var( L, 20, &temp23 );
6396 if ( temp23 !=
Alen )
6398 lua_pushfstring( L,
"Tables must be of same length." );
6404 if(lua_gettop(L)>=21){
6406 if ( lua_isnil( L, 21 ) )
6412 arg24 = (
PLFLT *) LUA_get_double_num_array_var( L, 21, &temp24 );
6415 if ( temp24 !=
Alen )
6417 lua_pushfstring( L,
"Tables must be of same length." );
6423 if(lua_gettop(L)>=22){
6425 if ( lua_isnil( L, 22 ) )
6431 arg25 = (
PLINT *) LUA_get_int_num_array_var( L, 22, &temp25 );
6434 if ( temp25 !=
Alen )
6436 lua_pushfstring( L,
"Tables must be of same length." );
6442 if(lua_gettop(L)>=23){
6444 if ( lua_isnil( L, 23 ) )
6450 arg26 = (
PLINT *) LUA_get_int_num_array_var( L, 23, &temp26 );
6453 if ( temp26 !=
Alen )
6455 lua_pushfstring( L,
"Tables must be of same length." );
6461 if(lua_gettop(L)>=24){
6463 if ( lua_isnil( L, 24 ) )
6469 arg27 = (
PLFLT *) LUA_get_double_num_array_var( L, 24, &temp27 );
6472 if ( temp27 !=
Alen )
6474 lua_pushfstring( L,
"Tables must be of same length." );
6480 if(lua_gettop(L)>=25){
6482 if ( lua_isnil( L, 25 ) )
6488 arg28 = (
PLINT *) LUA_get_int_num_array_var( L, 25, &temp28 );
6491 if ( temp28 !=
Alen )
6493 lua_pushfstring( L,
"Tables must be of same length." );
6499 if(lua_gettop(L)>=26){
6501 if ( lua_isnil( L, 26 ) )
6507 arg29 = (
PLFLT *) LUA_get_double_num_array_var( L, 26, &temp29 );
6510 if ( temp29 !=
Alen )
6512 lua_pushfstring( L,
"Tables must be of same length." );
6518 if(lua_gettop(L)>=27){
6520 if ( lua_isnil( L, 27 ) )
6526 arg30 = (
PLINT *) LUA_get_int_num_array_var( L, 27, &temp30 );
6529 if ( temp30 !=
Alen )
6531 lua_pushfstring( L,
"Tables must be of same length." );
6537 if(lua_gettop(L)>=28){
6544 lua_pushfstring( L,
"Tables must be of same length." );
6547 arg31 = malloc(
sizeof (
char* ) *
Alen );
6548 for ( i = 1; i <=
Alen; i++ )
6550 lua_rawgeti( L, 28, i );
6551 if ( lua_isstring( L, -1 ) )
6553 arg31[i - 1] = (
char *) lua_tostring( L, -1 );
6558 lua_pushfstring( L,
"Requires a sequence of strings." );
6566 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);
6568 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6569 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6579 free( arg20 ); arg20 = NULL;
6615 free( arg31 ); arg31 = NULL;
6632 free( arg20 ); arg20 = NULL;
6668 free( arg31 ); arg31 = NULL;
6695 char **arg18 = (
char **) 0 ;
6697 char **arg20 = (
char **) 0 ;
6712 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcolorbar",1,
"PLINT");
6713 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcolorbar",2,
"PLINT");
6714 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plcolorbar",3,
"PLFLT");
6715 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plcolorbar",4,
"PLFLT");
6716 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plcolorbar",5,
"PLFLT");
6717 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plcolorbar",6,
"PLFLT");
6718 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plcolorbar",7,
"PLINT");
6719 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plcolorbar",8,
"PLINT");
6720 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plcolorbar",9,
"PLINT");
6721 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plcolorbar",10,
"PLFLT");
6722 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plcolorbar",11,
"PLFLT");
6723 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plcolorbar",12,
"PLINT");
6724 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plcolorbar",13,
"PLFLT");
6725 if(!lua_istable(L,15))
SWIG_fail_arg(
"plcolorbar",15,
"char const **");
6726 arg3 = (
PLINT)lua_tonumber(L, 1);
6727 arg4 = (
PLINT)lua_tonumber(L, 2);
6728 arg5 = (
PLFLT)lua_tonumber(L, 3);
6729 arg6 = (
PLFLT)lua_tonumber(L, 4);
6730 arg7 = (
PLFLT)lua_tonumber(L, 5);
6731 arg8 = (
PLFLT)lua_tonumber(L, 6);
6732 arg9 = (
PLINT)lua_tonumber(L, 7);
6733 arg10 = (
PLINT)lua_tonumber(L, 8);
6734 arg11 = (
PLINT)lua_tonumber(L, 9);
6735 arg12 = (
PLFLT)lua_tonumber(L, 10);
6736 arg13 = (
PLFLT)lua_tonumber(L, 11);
6737 arg14 = (
PLINT)lua_tonumber(L, 12);
6738 arg15 = (
PLFLT)lua_tonumber(L, 13);
6740 arg17 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &arg16 );
6751 lua_pushfstring( L,
"Tables must be of same length." );
6754 arg18 = malloc(
sizeof (
char* ) *
Alen );
6755 for ( i = 1; i <=
Alen; i++ )
6757 lua_rawgeti( L, 15, i );
6758 if ( lua_isstring( L, -1 ) )
6760 arg18[i - 1] = (
char *) lua_tostring( L, -1 );
6765 lua_pushfstring( L,
"Requires a sequence of strings." );
6777 arg20 = malloc(
sizeof (
char* ) *
Alen );
6778 for ( i = 1; i <=
Alen; i++ )
6780 lua_rawgeti( L, 16, i );
6781 if ( lua_isstring( L, -1 ) )
6783 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6788 lua_pushfstring( L,
"Requires a sequence of strings." );
6795 arg21 = (
PLFLT *) LUA_get_double_num_array_var( L, 17, &temp21 );
6798 if ( temp21 !=
Alen )
6800 lua_pushfstring( L,
"Tables must be of same length." );
6805 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp22 );
6808 if ( temp22 !=
Alen )
6810 lua_pushfstring( L,
"Tables must be of same length." );
6817 arg23 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp23 );
6820 if ( temp23 !=
Alen )
6822 lua_pushfstring( L,
"Tables must be of same length." );
6828 for ( i = 0; i <
Xlen; i++ )
6829 if ( arg23[i] >
Ylen )
6838 if ( ( ii24 !=
Xlen ) || ( jj !=
Ylen ) )
6840 lua_pushfstring( L,
"Vectors must match matrix." );
6844 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);
6846 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6847 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6854 free( arg18 ); arg18 = NULL;
6860 free( arg20 ); arg20 = NULL;
6877 for ( i = 0; i < ii24; i++ )
6893 free( arg18 ); arg18 = NULL;
6899 free( arg20 ); arg20 = NULL;
6916 for ( i = 0; i < ii24; i++ )
6933 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pllightsource",1,
"PLFLT");
6934 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pllightsource",2,
"PLFLT");
6935 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pllightsource",3,
"PLFLT");
6936 arg1 = (
PLFLT)lua_tonumber(L, 1);
6937 arg2 = (
PLFLT)lua_tonumber(L, 2);
6938 arg3 = (
PLFLT)lua_tonumber(L, 3);
6961 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6967 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6970 if ( temp3 !=
Alen )
6972 lua_pushfstring( L,
"Tables must be of same length." );
6976 plline(arg1,(
double const *)arg2,(
double const *)arg3);
7012 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7018 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7021 if ( temp3 !=
Alen )
7023 lua_pushfstring( L,
"Tables must be of same length." );
7028 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7031 if ( temp4 !=
Alen )
7033 lua_pushfstring( L,
"Tables must be of same length." );
7037 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
7073 arg1 = (
PLINT)lua_tonumber(L, 1);
7100 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7107 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7120 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7122 lua_pushfstring( L,
"Vectors must match matrix." );
7126 arg6 = (
PLINT)lua_tonumber(L, 4);
7127 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
7140 for ( i = 0; i < ii3; i++ )
7161 for ( i = 0; i < ii3; i++ )
7187 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7194 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7207 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7209 lua_pushfstring( L,
"Vectors must match matrix." );
7213 arg6 = (
PLINT)lua_tonumber(L, 4);
7216 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7221 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7234 for ( i = 0; i < ii3; i++ )
7258 for ( i = 0; i < ii3; i++ )
7280 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
7293 char *arg1 = (
char *) 0 ;
7297 char *arg5 = (
char *) 0 ;
7305 arg1 = (
char *)lua_tostring(L, 1);
7306 arg2 = (
PLFLT)lua_tonumber(L, 2);
7307 arg3 = (
PLFLT)lua_tonumber(L, 3);
7308 arg4 = (
PLFLT)lua_tonumber(L, 4);
7309 arg5 = (
char *)lua_tostring(L, 5);
7310 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7324 char *arg1 = (
char *) 0 ;
7328 char *arg5 = (
char *) 0 ;
7336 arg1 = (
char *)lua_tostring(L, 1);
7337 arg2 = (
PLFLT)lua_tonumber(L, 2);
7338 arg3 = (
PLFLT)lua_tonumber(L, 3);
7339 arg4 = (
PLFLT)lua_tonumber(L, 4);
7340 arg5 = (
char *)lua_tostring(L, 5);
7341 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7369 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7376 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7389 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7391 lua_pushfstring( L,
"Vectors must match matrix." );
7395 arg6 = (
PLINT)lua_tonumber(L, 4);
7396 arg7 = (
PLBOOL)lua_tonumber(L, 5);
7397 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
7410 for ( i = 0; i < ii3; i++ )
7431 for ( i = 0; i < ii3; i++ )
7457 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7464 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7477 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7479 lua_pushfstring( L,
"Vectors must match matrix." );
7483 arg6 = (
PLINT)lua_tonumber(L, 4);
7486 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7491 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7504 for ( i = 0; i < ii3; i++ )
7528 for ( i = 0; i < ii3; i++ )
7563 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7570 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7583 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7585 lua_pushfstring( L,
"Vectors must match matrix." );
7589 arg6 = (
PLINT)lua_tonumber(L, 4);
7592 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7597 arg9 = (
PLINT)lua_tonumber(L, 6);
7599 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7605 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7608 if ( temp12 !=
Alen )
7610 lua_pushfstring( L,
"Tables must be of same length." );
7614 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);
7627 for ( i = 0; i < ii3; i++ )
7657 for ( i = 0; i < ii3; i++ )
7692 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7699 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7712 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7714 lua_pushfstring( L,
"Vectors must match matrix." );
7718 arg6 = (
PLINT)lua_tonumber(L, 4);
7721 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7726 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7739 for ( i = 0; i < ii3; i++ )
7763 for ( i = 0; i < ii3; i++ )
7794 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plsurf3dl",4,
"PLINT");
7795 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plsurf3dl",6,
"PLINT");
7798 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7805 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7818 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7820 lua_pushfstring( L,
"Vectors must match matrix." );
7824 arg6 = (
PLINT)lua_tonumber(L, 4);
7827 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7832 arg9 = (
PLINT)lua_tonumber(L, 6);
7834 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7840 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7843 if ( temp12 !=
Alen )
7845 lua_pushfstring( L,
"Tables must be of same length." );
7849 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);
7862 for ( i = 0; i < ii3; i++ )
7892 for ( i = 0; i < ii3; i++ )
7913 int *arg1 = (
int *) 0 ;
7914 char **arg2 = (
char **) 0 ;
7919 if(!lua_istable(L,1))
SWIG_fail_arg(
"plparseopts",1,
"int *");
7920 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plparseopts",2,
"PLINT");
7929 lua_rawgeti( L, 1, i );
7930 if ( lua_isnil( L, -1 ) )
7943 for ( i = 0; i < n; i++ )
7945 lua_rawgeti( L, 1, i );
7946 if ( lua_isstring( L, -1 ) )
7948 arg2[i] = (
char *) lua_tostring( L, -1 );
7953 lua_pushfstring( L,
"List items must be strings" );
7961 arg3 = (
PLINT)lua_tonumber(L, 2);
7963 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
7989 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
7995 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
7998 if ( temp3 !=
Alen )
8000 lua_pushfstring( L,
"Tables must be of same length." );
8004 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
8042 arg1 = (
PLINT)lua_tonumber(L, 1);
8043 arg2 = (
PLFLT)lua_tonumber(L, 2);
8044 arg3 = (
PLFLT)lua_tonumber(L, 3);
8045 arg4 = (
PLFLT)lua_tonumber(L, 4);
8046 arg5 = (
PLFLT)lua_tonumber(L, 5);
8047 plpath(arg1,arg2,arg3,arg4,arg5);
8071 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8077 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8080 if ( temp3 !=
Alen )
8082 lua_pushfstring( L,
"Tables must be of same length." );
8086 arg4 = (
PLINT)lua_tonumber(L, 3);
8087 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
8125 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8131 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8134 if ( temp3 !=
Alen )
8136 lua_pushfstring( L,
"Tables must be of same length." );
8141 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8144 if ( temp4 !=
Alen )
8146 lua_pushfstring( L,
"Tables must be of same length." );
8150 arg5 = (
PLINT)lua_tonumber(L, 4);
8151 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
8197 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8203 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8206 if ( temp3 !=
Alen )
8208 lua_pushfstring( L,
"Tables must be of same length." );
8213 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8216 if ( temp4 !=
Alen )
8218 lua_pushfstring( L,
"Tables must be of same length." );
8223 arg5 = (
PLINT *) LUA_get_int_num_array_var( L, 4, &temp5 );
8226 if ( temp5 <
Alen - 1 )
8228 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8232 arg6 = (
PLBOOL)lua_tonumber(L, 5);
8233 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
8277 arg1 = (
PLINT)lua_tonumber(L, 1);
8278 arg2 = (
PLINT)lua_tonumber(L, 2);
8297 arg1 = (
PLINT)lua_tonumber(L, 1);
8317 char *arg6 = (
char *) 0 ;
8326 arg1 = (
PLFLT)lua_tonumber(L, 1);
8327 arg2 = (
PLFLT)lua_tonumber(L, 2);
8328 arg3 = (
PLFLT)lua_tonumber(L, 3);
8329 arg4 = (
PLFLT)lua_tonumber(L, 4);
8330 arg5 = (
PLFLT)lua_tonumber(L, 5);
8331 arg6 = (
char *)lua_tostring(L, 6);
8332 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
8356 char *arg11 = (
char *) 0 ;
8368 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plptex3",10,
"PLFLT");
8370 arg1 = (
PLFLT)lua_tonumber(L, 1);
8371 arg2 = (
PLFLT)lua_tonumber(L, 2);
8372 arg3 = (
PLFLT)lua_tonumber(L, 3);
8373 arg4 = (
PLFLT)lua_tonumber(L, 4);
8374 arg5 = (
PLFLT)lua_tonumber(L, 5);
8375 arg6 = (
PLFLT)lua_tonumber(L, 6);
8376 arg7 = (
PLFLT)lua_tonumber(L, 7);
8377 arg8 = (
PLFLT)lua_tonumber(L, 8);
8378 arg9 = (
PLFLT)lua_tonumber(L, 9);
8379 arg10 = (
PLFLT)lua_tonumber(L, 10);
8380 arg11 = (
char *)lua_tostring(L, 11);
8381 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
8399 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
8445 arg1 = (
PLFLT)lua_tonumber(L, 1);
8446 arg2 = (
PLFLT)lua_tonumber(L, 2);
8447 arg3 = (
PLFLT)lua_tonumber(L, 3);
8448 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
8450 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
8451 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
8452 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
8471 arg1 = (
PLFLT)lua_tonumber(L, 1);
8472 arg2 = (
PLFLT)lua_tonumber(L, 2);
8497 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8503 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8506 if ( temp2 !=
Alen )
8508 lua_pushfstring( L,
"Tables must be of same length." );
8513 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8516 if ( temp3 !=
Alen )
8518 lua_pushfstring( L,
"Tables must be of same length." );
8523 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8566 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8572 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8575 if ( temp2 !=
Alen )
8577 lua_pushfstring( L,
"Tables must be of same length." );
8582 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8585 if ( temp3 !=
Alen )
8587 lua_pushfstring( L,
"Tables must be of same length." );
8593 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8598 lua_pushfstring( L,
"Tables must be of same length." );
8603 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8644 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap0n",1,
"PLINT");
8645 arg1 = (
PLINT)lua_tonumber(L, 1);
8670 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8676 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8679 if ( temp2 !=
Alen )
8681 lua_pushfstring( L,
"Tables must be of same length." );
8686 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8689 if ( temp3 !=
Alen )
8691 lua_pushfstring( L,
"Tables must be of same length." );
8696 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8739 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8745 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8748 if ( temp2 !=
Alen )
8750 lua_pushfstring( L,
"Tables must be of same length." );
8755 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8758 if ( temp3 !=
Alen )
8760 lua_pushfstring( L,
"Tables must be of same length." );
8766 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8771 lua_pushfstring( L,
"Tables must be of same length." );
8776 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8830 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1l",1,
"PLBOOL");
8831 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8834 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8840 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8843 if ( temp4 !=
Alen )
8845 lua_pushfstring( L,
"Tables must be of same length." );
8850 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8853 if ( temp5 !=
Alen )
8855 lua_pushfstring( L,
"Tables must be of same length." );
8860 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8863 if ( temp6 !=
Alen )
8865 lua_pushfstring( L,
"Tables must be of same length." );
8869 if(lua_gettop(L)>=6){
8871 if ( lua_isnil( L, 6 ) )
8877 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 6, &temp7 );
8880 if ( temp7 <
Alen - 1 )
8882 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8888 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
8950 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1la",1,
"PLBOOL");
8951 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8954 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8960 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8963 if ( temp4 !=
Alen )
8965 lua_pushfstring( L,
"Tables must be of same length." );
8970 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8973 if ( temp5 !=
Alen )
8975 lua_pushfstring( L,
"Tables must be of same length." );
8980 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8983 if ( temp6 !=
Alen )
8985 lua_pushfstring( L,
"Tables must be of same length." );
8990 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp7 );
8993 if ( temp7 !=
Alen )
8995 lua_pushfstring( L,
"Tables must be of same length." );
8999 if(lua_gettop(L)>=7){
9001 if ( lua_isnil( L, 7 ) )
9007 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp8 );
9010 if ( temp8 <
Alen - 1 )
9012 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
9018 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
9071 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1n",1,
"PLINT");
9072 arg1 = (
PLINT)lua_tonumber(L, 1);
9091 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1_range",1,
"PLFLT");
9092 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscmap1_range",2,
"PLFLT");
9093 arg1 = (
PLFLT)lua_tonumber(L, 1);
9094 arg2 = (
PLFLT)lua_tonumber(L, 2);
9119 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
9120 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
9143 arg1 = (
PLINT)lua_tonumber(L, 1);
9144 arg2 = (
PLINT)lua_tonumber(L, 2);
9145 arg3 = (
PLINT)lua_tonumber(L, 3);
9146 arg4 = (
PLINT)lua_tonumber(L, 4);
9173 arg1 = (
PLINT)lua_tonumber(L, 1);
9174 arg2 = (
PLINT)lua_tonumber(L, 2);
9175 arg3 = (
PLINT)lua_tonumber(L, 3);
9176 arg4 = (
PLINT)lua_tonumber(L, 4);
9177 arg5 = (
PLFLT)lua_tonumber(L, 5);
9178 plscol0a(arg1,arg2,arg3,arg4,arg5);
9200 arg1 = (
PLINT)lua_tonumber(L, 1);
9201 arg2 = (
PLINT)lua_tonumber(L, 2);
9202 arg3 = (
PLINT)lua_tonumber(L, 3);
9223 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscolbga",1,
"PLINT");
9224 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscolbga",2,
"PLINT");
9225 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plscolbga",3,
"PLINT");
9226 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plscolbga",4,
"PLFLT");
9227 arg1 = (
PLINT)lua_tonumber(L, 1);
9228 arg2 = (
PLINT)lua_tonumber(L, 2);
9229 arg3 = (
PLINT)lua_tonumber(L, 3);
9230 arg4 = (
PLFLT)lua_tonumber(L, 4);
9249 arg1 = (
PLINT)lua_tonumber(L, 1);
9267 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscompression",1,
"PLINT");
9268 arg1 = (
PLINT)lua_tonumber(L, 1);
9283 char *arg1 = (
char *) 0 ;
9287 arg1 = (
char *)lua_tostring(L, 1);
9288 plsdev((
char const *)arg1);
9312 arg1 = (
PLFLT)lua_tonumber(L, 1);
9313 arg2 = (
PLFLT)lua_tonumber(L, 2);
9314 arg3 = (
PLFLT)lua_tonumber(L, 3);
9315 arg4 = (
PLFLT)lua_tonumber(L, 4);
9344 arg1 = (
PLINT)lua_tonumber(L, 1);
9345 arg2 = (
PLINT)lua_tonumber(L, 2);
9346 arg3 = (
PLINT)lua_tonumber(L, 3);
9347 arg4 = (
PLINT)lua_tonumber(L, 4);
9348 arg5 = (
PLFLT)lua_tonumber(L, 5);
9349 arg6 = (
PLFLT)lua_tonumber(L, 6);
9350 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
9368 arg1 = (
PLFLT)lua_tonumber(L, 1);
9393 arg1 = (
PLFLT)lua_tonumber(L, 1);
9394 arg2 = (
PLFLT)lua_tonumber(L, 2);
9395 arg3 = (
PLFLT)lua_tonumber(L, 3);
9396 arg4 = (
PLFLT)lua_tonumber(L, 4);
9421 arg1 = (
PLFLT)lua_tonumber(L, 1);
9422 arg2 = (
PLFLT)lua_tonumber(L, 2);
9423 arg3 = (
PLFLT)lua_tonumber(L, 3);
9424 arg4 = (
PLFLT)lua_tonumber(L, 4);
9442 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plseed",1,
"unsigned int");
9444 arg1 = (
unsigned int)lua_tonumber(L, 1);
9463 arg1 = (lua_tostring(L, 1))[0];
9478 char *arg1 = (
char *) 0 ;
9479 char *arg2 = (
char *) 0 ;
9485 arg1 = (
char *)lua_tostring(L, 1);
9486 arg2 = (
char *)lua_tostring(L, 2);
9487 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
9488 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
9509 arg1 = (
PLINT)lua_tonumber(L, 1);
9510 arg2 = (
PLINT)lua_tonumber(L, 2);
9511 arg3 = (
PLINT)lua_tonumber(L, 3);
9529 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plsfci",1,
"PLUNICODE");
9546 char *arg1 = (
char *) 0 ;
9550 arg1 = (
char *)lua_tostring(L, 1);
9573 arg1 = (
PLINT)lua_tonumber(L, 1);
9574 arg2 = (
PLINT)lua_tonumber(L, 2);
9575 arg3 = (
PLINT)lua_tonumber(L, 3);
9612 cgrid117.
xg = cgrid117.
yg = cgrid117.
zg = NULL;
9613 cgrid117.
nx = cgrid117.
ny = cgrid117.
nz = 0;
9614 cgrid217.
xg = cgrid217.
yg = cgrid217.
zg = NULL;
9615 cgrid217.
nx = cgrid217.
ny = 0;
9637 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshades",10,
"PLBOOL");
9647 arg5 = (
PLFLT)lua_tonumber(L, 2);
9648 arg6 = (
PLFLT)lua_tonumber(L, 3);
9649 arg7 = (
PLFLT)lua_tonumber(L, 4);
9650 arg8 = (
PLFLT)lua_tonumber(L, 5);
9653 arg9 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
9656 arg10 =
Alen = temp;
9658 arg11 = (
PLFLT)lua_tonumber(L, 7);
9659 arg12 = (
PLINT)lua_tonumber(L, 8);
9660 arg13 = (
PLFLT)lua_tonumber(L, 9);
9661 arg15 = (
PLBOOL)lua_tonumber(L, 10);
9662 if(lua_gettop(L)>=11){
9667 if ( lua_isstring( L, 11 ) )
9669 const char* funcstr = lua_tostring( L, 11 );
9670 if ( strcmp(
"pltr0", funcstr ) == 0 )
9674 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9678 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9693 if(lua_gettop(L)>=12){
9698 lua_pushstring( L,
"xg" );
9699 lua_gettable( L, 12 );
9700 if ( !lua_istable( L, -1 ) )
9703 lua_pushstring( L,
"expected a table xg" );
9706 lua_rawgeti( L, -1, 1 );
9707 if ( lua_istable( L, -1 ) )
9709 else if ( lua_isnumber( L, -1 ) )
9715 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9719 if ( gridmode == 1 )
9721 cgrid117.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9729 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9742 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9745 lua_pushfstring( L,
"Vectors must match matrix." );
9753 lua_pushstring( L,
"yg" );
9754 lua_gettable( L, 12 );
9755 if ( !lua_istable( L, -1 ) )
9758 lua_pushstring( L,
"expected a table yg" );
9761 lua_rawgeti( L, -1, 1 );
9762 if ( gridmode == 2 )
9764 if ( !lua_istable( L, -1 ) )
9768 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9774 if ( !lua_isnumber( L, -1 ) )
9778 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9783 if ( gridmode == 1 )
9785 cgrid117.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9793 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9806 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9809 lua_pushfstring( L,
"Vectors must match matrix." );
9816 if ( gridmode == 1 )
9818 else if ( gridmode == 2 )
9822 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
9829 for ( i = 0; i < ii1; i++ )
9848 for ( i = 0; i <
Xlen; i++ )
9854 for ( i = 0; i <
Xlen; i++ )
9869 for ( i = 0; i < ii1; i++ )
9888 for ( i = 0; i <
Xlen; i++ )
9894 for ( i = 0; i <
Xlen; i++ )
9932 cgrid121.
xg = cgrid121.
yg = cgrid121.
zg = NULL;
9933 cgrid121.
nx = cgrid121.
ny = cgrid121.
nz = 0;
9934 cgrid221.
xg = cgrid221.
yg = cgrid221.
zg = NULL;
9935 cgrid221.
nx = cgrid221.
ny = 0;
9958 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshade",10,
"PLFLT");
9959 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plshade",11,
"PLINT");
9960 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plshade",12,
"PLFLT");
9961 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plshade",13,
"PLINT");
9962 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"plshade",14,
"PLFLT");
9963 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"plshade",15,
"PLBOOL");
9973 arg5 = (
PLFLT)lua_tonumber(L, 2);
9974 arg6 = (
PLFLT)lua_tonumber(L, 3);
9975 arg7 = (
PLFLT)lua_tonumber(L, 4);
9976 arg8 = (
PLFLT)lua_tonumber(L, 5);
9977 arg9 = (
PLFLT)lua_tonumber(L, 6);
9978 arg10 = (
PLFLT)lua_tonumber(L, 7);
9979 arg11 = (
PLINT)lua_tonumber(L, 8);
9980 arg12 = (
PLFLT)lua_tonumber(L, 9);
9981 arg13 = (
PLFLT)lua_tonumber(L, 10);
9982 arg14 = (
PLINT)lua_tonumber(L, 11);
9983 arg15 = (
PLFLT)lua_tonumber(L, 12);
9984 arg16 = (
PLINT)lua_tonumber(L, 13);
9985 arg17 = (
PLFLT)lua_tonumber(L, 14);
9986 arg19 = (
PLBOOL)lua_tonumber(L, 15);
9987 if(lua_gettop(L)>=16){
9992 if ( lua_isstring( L, 16 ) )
9994 const char* funcstr = lua_tostring( L, 16 );
9995 if ( strcmp(
"pltr0", funcstr ) == 0 )
9999 else if ( strcmp(
"pltr1", funcstr ) == 0 )
10003 else if ( strcmp(
"pltr2", funcstr ) == 0 )
10018 if(lua_gettop(L)>=17){
10023 lua_pushstring( L,
"xg" );
10024 lua_gettable( L, 17 );
10025 if ( !lua_istable( L, -1 ) )
10028 lua_pushstring( L,
"expected a table xg" );
10031 lua_rawgeti( L, -1, 1 );
10032 if ( lua_istable( L, -1 ) )
10034 else if ( lua_isnumber( L, -1 ) )
10040 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
10044 if ( gridmode == 1 )
10046 cgrid121.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
10047 if ( !cgrid121.
xg )
10054 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
10062 if ( !cgrid221.
xg )
10067 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10070 lua_pushfstring( L,
"Vectors must match matrix." );
10078 lua_pushstring( L,
"yg" );
10079 lua_gettable( L, 17 );
10080 if ( !lua_istable( L, -1 ) )
10083 lua_pushstring( L,
"expected a table yg" );
10086 lua_rawgeti( L, -1, 1 );
10087 if ( gridmode == 2 )
10089 if ( !lua_istable( L, -1 ) )
10093 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
10099 if ( !lua_isnumber( L, -1 ) )
10103 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
10108 if ( gridmode == 1 )
10110 cgrid121.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
10111 if ( !cgrid121.
yg )
10118 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
10126 if ( !cgrid221.
yg )
10131 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10134 lua_pushfstring( L,
"Vectors must match matrix." );
10141 if ( gridmode == 1 )
10143 else if ( gridmode == 2 )
10147 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
10154 for ( i = 0; i < ii1; i++ )
10170 for ( i = 0; i <
Xlen; i++ )
10176 for ( i = 0; i <
Xlen; i++ )
10191 for ( i = 0; i < ii1; i++ )
10207 for ( i = 0; i <
Xlen; i++ )
10213 for ( i = 0; i <
Xlen; i++ )
10236 if ( lua_isnil( L, 1 ) )
10240 else if ( lua_isstring( L, 1 ) )
10275 arg1 = (
PLFLT)lua_tonumber(L, 1);
10276 arg2 = (
PLFLT)lua_tonumber(L, 2);
10297 arg1 = (
PLFLT)lua_tonumber(L, 1);
10298 arg2 = (
PLFLT)lua_tonumber(L, 2);
10317 arg1 = (
PLINT)lua_tonumber(L, 1);
10346 arg1 = (
PLFLT)lua_tonumber(L, 1);
10347 arg2 = (
PLFLT)lua_tonumber(L, 2);
10348 arg3 = (
PLINT)lua_tonumber(L, 3);
10349 arg4 = (
PLINT)lua_tonumber(L, 4);
10350 arg5 = (
PLINT)lua_tonumber(L, 5);
10351 arg6 = (
PLINT)lua_tonumber(L, 6);
10352 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
10366 char *arg1 = (
char *) 0 ;
10370 arg1 = (
char *)lua_tostring(L, 1);
10385 char *arg1 = (
char *) 0 ;
10390 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plspal1",2,
"PLBOOL");
10391 arg1 = (
char *)lua_tostring(L, 1);
10392 arg2 = (
PLBOOL)lua_tonumber(L, 2);
10393 plspal1((
char const *)arg1,arg2);
10410 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plspause",1,
"PLBOOL");
10411 arg1 = (
PLBOOL)lua_tonumber(L, 1);
10430 arg1 = (
PLINT)lua_tonumber(L, 1);
10451 arg1 = (
PLINT)lua_tonumber(L, 1);
10452 arg2 = (
PLINT)lua_tonumber(L, 2);
10473 arg1 = (
PLFLT)lua_tonumber(L, 1);
10474 arg2 = (
PLFLT)lua_tonumber(L, 2);
10495 arg1 = (
PLINT)lua_tonumber(L, 1);
10496 arg2 = (
PLINT)lua_tonumber(L, 2);
10511 char *arg1 = (
char *) 0 ;
10519 arg1 = (
char *)lua_tostring(L, 1);
10520 arg2 = (
PLINT)lua_tonumber(L, 2);
10521 arg3 = (
PLINT)lua_tonumber(L, 3);
10522 plstart((
char const *)arg1,arg2,arg3);
10547 if(lua_gettop(L)>=1){
10552 if ( lua_isstring( L, 1 ) )
10554 const char* funcstr = lua_tostring( L, 1 );
10580 char *arg4 = (
char *) 0 ;
10587 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10590 arg1 =
Alen = temp;
10593 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10596 if ( temp3 !=
Alen )
10598 lua_pushfstring( L,
"Tables must be of same length." );
10602 arg4 = (
char *)lua_tostring(L, 3);
10603 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
10633 char *arg5 = (
char *) 0 ;
10641 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10644 arg1 =
Alen = temp;
10647 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10650 if ( temp3 !=
Alen )
10652 lua_pushfstring( L,
"Tables must be of same length." );
10657 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
10660 if ( temp4 !=
Alen )
10662 lua_pushfstring( L,
"Tables must be of same length." );
10666 arg5 = (
char *)lua_tostring(L, 4);
10667 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
10705 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripa",1,
"PLINT");
10706 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plstripa",2,
"PLINT");
10707 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripa",3,
"PLFLT");
10708 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripa",4,
"PLFLT");
10709 arg1 = (
PLINT)lua_tonumber(L, 1);
10710 arg2 = (
PLINT)lua_tonumber(L, 2);
10711 arg3 = (
PLFLT)lua_tonumber(L, 3);
10712 arg4 = (
PLFLT)lua_tonumber(L, 4);
10728 char *arg2 = (
char *) 0 ;
10729 char *arg3 = (
char *) 0 ;
10744 char *arg18 = (
char *) 0 ;
10745 char *arg19 = (
char *) 0 ;
10746 char *arg20 = (
char *) 0 ;
10758 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripc",3,
"PLFLT");
10759 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripc",4,
"PLFLT");
10760 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plstripc",5,
"PLFLT");
10761 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plstripc",6,
"PLFLT");
10762 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plstripc",7,
"PLFLT");
10763 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plstripc",8,
"PLFLT");
10764 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plstripc",9,
"PLFLT");
10765 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plstripc",10,
"PLBOOL");
10766 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plstripc",11,
"PLBOOL");
10767 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plstripc",12,
"PLINT");
10768 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plstripc",13,
"PLINT");
10769 if(lua_gettop(L)>=16 && !lua_istable(L,16))
SWIG_fail_arg(
"plstripc",16,
"char const *[4]");
10773 arg2 = (
char *)lua_tostring(L, 1);
10774 arg3 = (
char *)lua_tostring(L, 2);
10775 arg4 = (
PLFLT)lua_tonumber(L, 3);
10776 arg5 = (
PLFLT)lua_tonumber(L, 4);
10777 arg6 = (
PLFLT)lua_tonumber(L, 5);
10778 arg7 = (
PLFLT)lua_tonumber(L, 6);
10779 arg8 = (
PLFLT)lua_tonumber(L, 7);
10780 arg9 = (
PLFLT)lua_tonumber(L, 8);
10781 arg10 = (
PLFLT)lua_tonumber(L, 9);
10782 arg11 = (
PLBOOL)lua_tonumber(L, 10);
10783 arg12 = (
PLBOOL)lua_tonumber(L, 11);
10784 arg13 = (
PLINT)lua_tonumber(L, 12);
10785 arg14 = (
PLINT)lua_tonumber(L, 13);
10787 arg15 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &temp15 );
10793 arg16 = (
PLINT *) LUA_get_int_num_array_var( L, 15, &temp16 );
10796 if ( temp16 !=
Alen )
10798 lua_pushfstring( L,
"Tables must be of same length." );
10802 if(lua_gettop(L)>=16){
10809 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10814 lua_pushfstring( L,
"colline and styline args must be length 4." );
10818 arg17 = malloc(
sizeof (
char* ) * 4 );
10819 for ( i = 1; i <= 4; i++ )
10821 lua_rawgeti( L, 16, i );
10822 if ( lua_isstring( L, -1 ) )
10824 arg17[i - 1] = (
char *) lua_tostring( L, -1 );
10829 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10837 if(lua_gettop(L)>=17){
10838 arg18 = (
char *)lua_tostring(L, 17);
10840 if(lua_gettop(L)>=18){
10841 arg19 = (
char *)lua_tostring(L, 18);
10843 if(lua_gettop(L)>=19){
10844 arg20 = (
char *)lua_tostring(L, 19);
10846 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);
10848 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
10858 free( arg17 ); arg17 = NULL;
10875 free( arg17 ); arg17 = NULL;
10888 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripd",1,
"PLINT");
10889 arg1 = (
PLINT)lua_tonumber(L, 1);
10911 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
10917 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
10920 if ( temp3 !=
Alen )
10922 lua_pushfstring( L,
"Tables must be of same length." );
10926 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
10958 arg2 = NULL; arg3 = 0;
10964 if(lua_gettop(L)>=3 && !lua_isnumber(L,3))
SWIG_fail_arg(
"plsvect",3,
"PLBOOL");
10967 if ( lua_isnil( L, 1 ) )
10974 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10980 if(lua_gettop(L)>=2){
10983 if ( lua_isnil( L, 2 ) )
10989 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
10992 if ( temp !=
Alen )
10994 lua_pushfstring( L,
"Tables must be of same length." );
11001 if(lua_gettop(L)>=3){
11002 arg4 = (
PLBOOL)lua_tonumber(L, 3);
11004 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
11034 arg1 = (
PLFLT)lua_tonumber(L, 1);
11035 arg2 = (
PLFLT)lua_tonumber(L, 2);
11036 arg3 = (
PLFLT)lua_tonumber(L, 3);
11037 arg4 = (
PLFLT)lua_tonumber(L, 4);
11038 plsvpa(arg1,arg2,arg3,arg4);
11058 arg1 = (
PLINT)lua_tonumber(L, 1);
11059 arg2 = (
PLINT)lua_tonumber(L, 2);
11080 arg1 = (
PLINT)lua_tonumber(L, 1);
11081 arg2 = (
PLINT)lua_tonumber(L, 2);
11106 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
11109 arg1 =
Alen = temp;
11112 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
11115 if ( temp3 !=
Alen )
11117 lua_pushfstring( L,
"Tables must be of same length." );
11121 arg4 = (
PLINT)lua_tonumber(L, 3);
11122 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
11154 arg1 = (
PLINT)lua_tonumber(L, 1);
11155 arg2 = (
PLINT)lua_tonumber(L, 2);
11186 char *arg1 = (
char *) 0 ;
11190 arg1 = (
char *)lua_tostring(L, 1);
11209 arg1 = (
PLFLT)lua_tonumber(L, 1);
11237 cgrid17.
xg = cgrid17.
yg = cgrid17.
zg = NULL;
11238 cgrid17.
nx = cgrid17.
ny = cgrid17.
nz = 0;
11239 cgrid27.
xg = cgrid27.
yg = cgrid27.
zg = NULL;
11240 cgrid27.
nx = cgrid27.
ny = 0;
11267 if ( ( arg3 !=
Xlen ) || ( arg4 !=
Ylen ) )
11269 lua_pushfstring( L,
"Vectors must match matrix." );
11273 arg5 = (
PLFLT)lua_tonumber(L, 3);
11274 if(lua_gettop(L)>=4){
11279 if ( lua_isstring( L, 4 ) )
11281 const char* funcstr = lua_tostring( L, 4 );
11282 if ( strcmp(
"pltr0", funcstr ) == 0 )
11286 else if ( strcmp(
"pltr1", funcstr ) == 0 )
11290 else if ( strcmp(
"pltr2", funcstr ) == 0 )
11305 if(lua_gettop(L)>=5){
11310 lua_pushstring( L,
"xg" );
11311 lua_gettable( L, 5 );
11312 if ( !lua_istable( L, -1 ) )
11315 lua_pushstring( L,
"expected a table xg" );
11318 lua_rawgeti( L, -1, 1 );
11319 if ( lua_istable( L, -1 ) )
11321 else if ( lua_isnumber( L, -1 ) )
11327 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
11331 if ( gridmode == 1 )
11333 cgrid17.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
11341 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
11354 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11357 lua_pushfstring( L,
"Vectors must match matrix." );
11365 lua_pushstring( L,
"yg" );
11366 lua_gettable( L, 5 );
11367 if ( !lua_istable( L, -1 ) )
11370 lua_pushstring( L,
"expected a table yg" );
11373 lua_rawgeti( L, -1, 1 );
11374 if ( gridmode == 2 )
11376 if ( !lua_istable( L, -1 ) )
11380 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
11386 if ( !lua_isnumber( L, -1 ) )
11390 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
11395 if ( gridmode == 1 )
11397 cgrid17.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
11405 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
11418 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11421 lua_pushfstring( L,
"Vectors must match matrix." );
11428 if ( gridmode == 1 )
11430 else if ( gridmode == 2 )
11434 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
11441 for ( i = 0; i < ii1; i++ )
11451 for ( i = 0; i < ii2; i++ )
11467 for ( i = 0; i <
Xlen; i++ )
11473 for ( i = 0; i <
Xlen; i++ )
11488 for ( i = 0; i < ii1; i++ )
11498 for ( i = 0; i < ii2; i++ )
11514 for ( i = 0; i <
Xlen; i++ )
11520 for ( i = 0; i <
Xlen; i++ )
11544 arg1 = (
PLFLT)lua_tonumber(L, 1);
11545 arg2 = (
PLFLT)lua_tonumber(L, 2);
11546 arg3 = (
PLFLT)lua_tonumber(L, 3);
11547 arg4 = (
PLFLT)lua_tonumber(L, 4);
11548 arg5 = (
PLFLT)lua_tonumber(L, 5);
11549 plvpas(arg1,arg2,arg3,arg4,arg5);
11573 arg1 = (
PLFLT)lua_tonumber(L, 1);
11574 arg2 = (
PLFLT)lua_tonumber(L, 2);
11575 arg3 = (
PLFLT)lua_tonumber(L, 3);
11576 arg4 = (
PLFLT)lua_tonumber(L, 4);
11577 plvpor(arg1,arg2,arg3,arg4);
11631 arg1 = (
PLFLT)lua_tonumber(L, 1);
11632 arg2 = (
PLFLT)lua_tonumber(L, 2);
11633 arg3 = (
PLFLT)lua_tonumber(L, 3);
11634 arg4 = (
PLFLT)lua_tonumber(L, 4);
11635 arg5 = (
PLFLT)lua_tonumber(L, 5);
11636 arg6 = (
PLFLT)lua_tonumber(L, 6);
11637 arg7 = (
PLFLT)lua_tonumber(L, 7);
11638 arg8 = (
PLFLT)lua_tonumber(L, 8);
11639 arg9 = (
PLFLT)lua_tonumber(L, 9);
11640 arg10 = (
PLFLT)lua_tonumber(L, 10);
11641 arg11 = (
PLFLT)lua_tonumber(L, 11);
11642 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
11660 arg1 = (
PLFLT)lua_tonumber(L, 1);
11685 arg1 = (
PLFLT)lua_tonumber(L, 1);
11686 arg2 = (
PLFLT)lua_tonumber(L, 2);
11687 arg3 = (
PLFLT)lua_tonumber(L, 3);
11688 arg4 = (
PLFLT)lua_tonumber(L, 4);
11689 plwind(arg1,arg2,arg3,arg4);
11709 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plxormod",1,
"PLBOOL");
11710 arg1 = (
PLBOOL)lua_tonumber(L, 1);
11713 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
11727 char *arg2 = (
char *) 0 ;
11743 if ( lua_isnil( L, 1 ) )
11747 else if ( lua_isstring( L, 1 ) )
11756 arg2 = (
char *)lua_tostring(L, 2);
11757 arg3 = (
PLFLT)lua_tonumber(L, 3);
11758 arg4 = (
PLFLT)lua_tonumber(L, 4);
11759 arg5 = (
PLFLT)lua_tonumber(L, 5);
11760 arg6 = (
PLFLT)lua_tonumber(L, 6);
11761 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
11782 char *arg2 = (
char *) 0 ;
11793 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapline",3,
"PLFLT");
11794 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapline",4,
"PLFLT");
11795 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapline",5,
"PLFLT");
11796 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapline",6,
"PLFLT");
11801 if ( lua_isnil( L, 1 ) )
11805 else if ( lua_isstring( L, 1 ) )
11814 arg2 = (
char *)lua_tostring(L, 2);
11815 arg3 = (
PLFLT)lua_tonumber(L, 3);
11816 arg4 = (
PLFLT)lua_tonumber(L, 4);
11817 arg5 = (
PLFLT)lua_tonumber(L, 5);
11818 arg6 = (
PLFLT)lua_tonumber(L, 6);
11820 if ( lua_isnil( L, 7 ) )
11827 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
11833 plmapline(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11860 char *arg2 = (
char *) 0 ;
11861 char *arg3 = (
char *) 0 ;
11873 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapstring",4,
"PLFLT");
11874 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapstring",5,
"PLFLT");
11875 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapstring",6,
"PLFLT");
11876 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmapstring",7,
"PLFLT");
11881 if ( lua_isnil( L, 1 ) )
11885 else if ( lua_isstring( L, 1 ) )
11894 arg2 = (
char *)lua_tostring(L, 2);
11895 arg3 = (
char *)lua_tostring(L, 3);
11896 arg4 = (
PLFLT)lua_tonumber(L, 4);
11897 arg5 = (
PLFLT)lua_tonumber(L, 5);
11898 arg6 = (
PLFLT)lua_tonumber(L, 6);
11899 arg7 = (
PLFLT)lua_tonumber(L, 7);
11901 if ( lua_isnil( L, 8 ) )
11908 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp8 );
11914 plmapstring(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,(
int const *)arg8,arg9);
11941 char *arg2 = (
char *) 0 ;
11945 char *arg6 = (
char *) 0 ;
11954 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmaptex",3,
"PLFLT");
11955 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmaptex",4,
"PLFLT");
11956 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmaptex",5,
"PLFLT");
11958 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmaptex",7,
"PLFLT");
11959 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plmaptex",8,
"PLFLT");
11960 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plmaptex",9,
"PLFLT");
11961 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plmaptex",10,
"PLFLT");
11962 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plmaptex",11,
"PLINT");
11967 if ( lua_isnil( L, 1 ) )
11971 else if ( lua_isstring( L, 1 ) )
11980 arg2 = (
char *)lua_tostring(L, 2);
11981 arg3 = (
PLFLT)lua_tonumber(L, 3);
11982 arg4 = (
PLFLT)lua_tonumber(L, 4);
11983 arg5 = (
PLFLT)lua_tonumber(L, 5);
11984 arg6 = (
char *)lua_tostring(L, 6);
11985 arg7 = (
PLFLT)lua_tonumber(L, 7);
11986 arg8 = (
PLFLT)lua_tonumber(L, 8);
11987 arg9 = (
PLFLT)lua_tonumber(L, 9);
11988 arg10 = (
PLFLT)lua_tonumber(L, 10);
11989 arg11 = (
PLINT)lua_tonumber(L, 11);
11990 plmaptex(arg1,(
char const *)arg2,arg3,arg4,arg5,(
char const *)arg6,arg7,arg8,arg9,arg10,arg11);
12011 char *arg2 = (
char *) 0 ;
12022 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapfill",3,
"PLFLT");
12023 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapfill",4,
"PLFLT");
12024 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapfill",5,
"PLFLT");
12025 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapfill",6,
"PLFLT");
12030 if ( lua_isnil( L, 1 ) )
12034 else if ( lua_isstring( L, 1 ) )
12043 arg2 = (
char *)lua_tostring(L, 2);
12044 arg3 = (
PLFLT)lua_tonumber(L, 3);
12045 arg4 = (
PLFLT)lua_tonumber(L, 4);
12046 arg5 = (
PLFLT)lua_tonumber(L, 5);
12047 arg6 = (
PLFLT)lua_tonumber(L, 6);
12049 if ( lua_isnil( L, 7 ) )
12056 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
12062 plmapfill(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
12097 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plmeridians",2,
"PLFLT");
12098 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmeridians",3,
"PLFLT");
12099 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmeridians",4,
"PLFLT");
12100 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmeridians",5,
"PLFLT");
12101 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmeridians",6,
"PLFLT");
12102 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmeridians",7,
"PLFLT");
12107 if ( lua_isnil( L, 1 ) )
12111 else if ( lua_isstring( L, 1 ) )
12120 arg2 = (
PLFLT)lua_tonumber(L, 2);
12121 arg3 = (
PLFLT)lua_tonumber(L, 3);
12122 arg4 = (
PLFLT)lua_tonumber(L, 4);
12123 arg5 = (
PLFLT)lua_tonumber(L, 5);
12124 arg6 = (
PLFLT)lua_tonumber(L, 6);
12125 arg7 = (
PLFLT)lua_tonumber(L, 7);
12170 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plimage",10,
"PLFLT");
12171 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plimage",11,
"PLFLT");
12181 arg4 = (
PLFLT)lua_tonumber(L, 2);
12182 arg5 = (
PLFLT)lua_tonumber(L, 3);
12183 arg6 = (
PLFLT)lua_tonumber(L, 4);
12184 arg7 = (
PLFLT)lua_tonumber(L, 5);
12185 arg8 = (
PLFLT)lua_tonumber(L, 6);
12186 arg9 = (
PLFLT)lua_tonumber(L, 7);
12187 arg10 = (
PLFLT)lua_tonumber(L, 8);
12188 arg11 = (
PLFLT)lua_tonumber(L, 9);
12189 arg12 = (
PLFLT)lua_tonumber(L, 10);
12190 arg13 = (
PLFLT)lua_tonumber(L, 11);
12191 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
12198 for ( i = 0; i < ii1; i++ )
12213 for ( i = 0; i < ii1; i++ )
12243 cgrid113.
xg = cgrid113.
yg = cgrid113.
zg = NULL;
12244 cgrid113.
nx = cgrid113.
ny = cgrid113.
nz = 0;
12245 cgrid213.
xg = cgrid213.
yg = cgrid213.
zg = NULL;
12246 cgrid213.
nx = cgrid213.
ny = 0;
12255 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plimagefr",2,
"PLFLT");
12256 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plimagefr",3,
"PLFLT");
12257 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plimagefr",4,
"PLFLT");
12258 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plimagefr",5,
"PLFLT");
12259 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plimagefr",6,
"PLFLT");
12260 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plimagefr",7,
"PLFLT");
12261 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plimagefr",8,
"PLFLT");
12262 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plimagefr",9,
"PLFLT");
12272 arg4 = (
PLFLT)lua_tonumber(L, 2);
12273 arg5 = (
PLFLT)lua_tonumber(L, 3);
12274 arg6 = (
PLFLT)lua_tonumber(L, 4);
12275 arg7 = (
PLFLT)lua_tonumber(L, 5);
12276 arg8 = (
PLFLT)lua_tonumber(L, 6);
12277 arg9 = (
PLFLT)lua_tonumber(L, 7);
12278 arg10 = (
PLFLT)lua_tonumber(L, 8);
12279 arg11 = (
PLFLT)lua_tonumber(L, 9);
12280 if(lua_gettop(L)>=10){
12285 if ( lua_isstring( L, 10 ) )
12287 const char* funcstr = lua_tostring( L, 10 );
12288 if ( strcmp(
"pltr0", funcstr ) == 0 )
12292 else if ( strcmp(
"pltr1", funcstr ) == 0 )
12296 else if ( strcmp(
"pltr2", funcstr ) == 0 )
12311 if(lua_gettop(L)>=11){
12316 lua_pushstring( L,
"xg" );
12317 lua_gettable( L, 11 );
12318 if ( !lua_istable( L, -1 ) )
12321 lua_pushstring( L,
"expected a table xg" );
12324 lua_rawgeti( L, -1, 1 );
12325 if ( lua_istable( L, -1 ) )
12327 else if ( lua_isnumber( L, -1 ) )
12333 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
12337 if ( gridmode == 1 )
12339 cgrid113.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
12340 if ( !cgrid113.
xg )
12347 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
12355 if ( !cgrid213.
xg )
12360 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12363 lua_pushfstring( L,
"Vectors must match matrix." );
12371 lua_pushstring( L,
"yg" );
12372 lua_gettable( L, 11 );
12373 if ( !lua_istable( L, -1 ) )
12376 lua_pushstring( L,
"expected a table yg" );
12379 lua_rawgeti( L, -1, 1 );
12380 if ( gridmode == 2 )
12382 if ( !lua_istable( L, -1 ) )
12386 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
12392 if ( !lua_isnumber( L, -1 ) )
12396 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
12401 if ( gridmode == 1 )
12403 cgrid113.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
12404 if ( !cgrid113.
yg )
12411 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
12419 if ( !cgrid213.
yg )
12424 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12427 lua_pushfstring( L,
"Vectors must match matrix." );
12434 if ( gridmode == 1 )
12436 else if ( gridmode == 2 )
12440 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
12447 for ( i = 0; i < ii1; i++ )
12463 for ( i = 0; i <
Xlen; i++ )
12469 for ( i = 0; i <
Xlen; i++ )
12484 for ( i = 0; i < ii1; i++ )
12500 for ( i = 0; i <
Xlen; i++ )
12506 for ( i = 0; i <
Xlen; i++ )
12550 char *arg1 = (
char *) 0 ;
12551 char *arg2 = (
char *) 0 ;
12556 arg1 = (
char *)lua_tostring(L, 1);
12557 arg2 = (
char *)lua_tostring(L, 2);
12558 plSetUsage((
char const *)arg1,(
char const *)arg2);
12611 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
12612 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
12618 for ( i = 0; i < ii1; i++ )
12633 for ( i = 0; i < ii1; i++ )
12656 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
12669 char *arg1 = (
char *) 0 ;
12672 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plwarn",1,
"char const *");
12674 arg1 = (
char *) lua_tostring( L, 1 );
12676 plwarn((
char const *)arg1);
12690 char *arg1 = (
char *) 0 ;
12693 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plabort",1,
"char const *");
12695 arg1 = (
char *) lua_tostring( L, 1 );
13202 #define SWIGRUNTIME_DEBUG 13225 if (!module_head) {
13238 }
while (iter!= module_head);
13249 if (init == 0)
return;
13252 #ifdef SWIGRUNTIME_DEBUG 13253 printf(
"SWIG_InitializeModule: size %lu\n", (
unsigned long)
swig_module.
size);
13260 #ifdef SWIGRUNTIME_DEBUG 13270 #ifdef SWIGRUNTIME_DEBUG 13271 printf(
"SWIG_InitializeModule: found type %s\n", type->
name);
13275 #ifdef SWIGRUNTIME_DEBUG 13276 printf(
"SWIG_InitializeModule: found and overwrite type %s \n", type->
name);
13285 while (cast->
type) {
13289 #ifdef SWIGRUNTIME_DEBUG 13290 printf(
"SWIG_InitializeModule: look cast %s\n", cast->
type->
name);
13294 #ifdef SWIGRUNTIME_DEBUG 13295 if (ret) printf(
"SWIG_InitializeModule: found cast %s\n", ret->
name);
13300 #ifdef SWIGRUNTIME_DEBUG 13301 printf(
"SWIG_InitializeModule: skip old type %s\n", ret->
name);
13308 #ifdef SWIGRUNTIME_DEBUG 13309 if (ocast) printf(
"SWIG_InitializeModule: skip old cast %s\n", ret->
name);
13311 if (!ocast) ret = 0;
13316 #ifdef SWIGRUNTIME_DEBUG 13317 printf(
"SWIG_InitializeModule: adding cast %s\n", cast->
type->
name);
13332 #ifdef SWIGRUNTIME_DEBUG 13333 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13338 while (cast->
type) {
13339 printf(
"SWIG_InitializeModule: cast type %s\n", cast->
type->
name);
13343 printf(
"---- Total casts: %d\n",j);
13345 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13358 static int init_run = 0;
13360 if (init_run)
return;
13371 equiv = equiv->
next;
13396 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)) 13402 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC) 13404 int globalRegister = 0;
13412 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)) || defined(SWIG_LUA_ELUA_EMULATE) 13418 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC) 13425 #ifdef SWIG_LUA_MODULE_GLOBAL 13426 globalRegister = 1;
13430 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA) 13434 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC) 13442 #if defined(SWIG_LUA_ELUA_EMULATE) 13445 SWIG_Lua_elua_emulate_register_clear(L);
13446 if(globalRegister) {
13448 lua_pushvalue(L,-2);
13455 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC) 13475 " 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)
#define SWIG_NullReferenceError
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
void pltr1(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, PLPointer pltr_data)
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)
void plSetUsage(PLCHAR_VECTOR program_string, PLCHAR_VECTOR usage_string)
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)
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 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)
void pltr0(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, PLPointer PL_UNUSED(pltr_data))
SWIGRUNTIME void SWIG_TypeClientData(swig_type_info *ti, void *clientdata)
static PLFLT value(double n1, double n2, double hue)
SWIGRUNTIME int SWIG_Lua_type(lua_State *L)
void pltr2(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, PLPointer pltr_data)
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
#define SWIG_POINTER_NO_NULL
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 plMinMax2dGrid(PLFLT_MATRIX f, PLINT nx, PLINT ny, PLFLT *fnmax, PLFLT *fnmin)
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)