[ekg2-commit] ekg2: perl_core.c (HEAD) perl_core.h (HEAD) [darkjames]

[CVS commit]

Module name:	ekg2
Changes by:	darkjames	2007-05-03 15:32:12

Modified files:
	perl_core.c perl_core.h

Log message:
[perl] SCR_* -> QUERY_*

Index: perl_core.c
===================================================================
RCS file: /home/cvs/ekg2/plugins/perl/perl_core.c,v
diff -d -u -r1.13 -r1.14
--- perl_core.c	16 Dec 2006 12:59:44 -0000	1.13
+++ perl_core.c	3 May 2007 13:32:12 -0000	1.14
@@ -63,6 +63,7 @@
 #include <ekg/scripts.h>
 #include <ekg/windows.h>
 #include <ekg/xmalloc.h>
+#include <ekg/queries.h>
 #undef _
 
 #include "perl_ekg.h"
@@ -136,23 +137,23 @@
 	for (i=0; i < scr_que->argc; i++) {
 		perlarg = NULL;
 		switch ( scr_que->argv_type[i] ) {
-			case (SCR_ARG_INT):   /* int */
+			case (QUERY_ARG_INT):   /* int */
 				perlarg = newSViv( *(int  *) args[i] );
 				break;
-			case (SCR_ARG_CHARP):  /* char * */
+			case (QUERY_ARG_CHARP):  /* char * */
 				perlarg = new_pv(*(char **) args[i]);
 				break;
-			case (SCR_ARG_CHARPP): {/* char ** */
+			case (QUERY_ARG_CHARPP): {/* char ** */
 				char *tmp = array_join((char **) args[i], " ");
 				if (xstrlen(tmp)) 
 					perlarg = new_pv(tmp);
 				xfree(tmp);
 				break;
 				}
-			case (SCR_ARG_WINDOW): /* window_t */
+			case (QUERY_ARG_WINDOW): /* window_t */
 				perlarg = ekg2_bless(BLESS_WINDOW, 0, (*(window_t **) args[i]));
 				break;
-			case (SCR_ARG_FSTRING): /* fstring_t */
+			case (QUERY_ARG_FSTRING): /* fstring_t */
 				perlarg = ekg2_bless(BLESS_FSTRING, 0, (*(fstring_t **) args[i]));
 				break;
 			default:

Index: perl_core.h
===================================================================
RCS file: /home/cvs/ekg2/plugins/perl/perl_core.h,v
diff -d -u -r1.8 -r1.9
--- perl_core.h	22 Jun 2006 16:29:42 -0000	1.8
+++ perl_core.h	3 May 2007 13:32:12 -0000	1.9
@@ -53,15 +53,15 @@
     if (change) {\
         for (i=0; i < scr_que->argc; i++) {\
                 switch ( scr_que->argv_type[i] ) {\
-                        case (SCR_ARG_INT):\
+                        case (QUERY_ARG_INT):\
 				*( (int *) args[i]) = SvIV(SvRV(perlargs[i]));\
 				break;\
 \
-                        case (SCR_ARG_CHARP):\
+                        case (QUERY_ARG_CHARP):\
 /*				xfree(*(char **) args[i]);  */\
 				*( (char **) args[i]) = xstrdup( SvPV_nolen(SvRV(perlargs[i])) ) ;\
 				break;\
-			case (SCR_ARG_CHARPP): /* wazne, zrobic. */\
+			case (QUERY_ARG_CHARPP): /* wazne, zrobic. */\
 				break;\
 \
                 }\