The original upstream from Debian orig.tar.gz tarball.0.9.7

1 files changed, 110 insertions, 0 deletions

diff --git a/wlp/C/commands.y b/wlp/C/commands.y
new file mode 100644
index 0000000..8b720d7
--- /dev/null
+++ b/wlp/C/commands.y
@@ -0,0 +1,110 @@
+
+%{
+/*#define YYSTYPE 	char**/
+/*#define DEBUG*/
+#include "macro.h"
+%}
+
+%union {
+	char *text;
+	char c;
+}
+
+%token <text> VARID
+%token <text> VALID
+%token <text> OWNERID
+
+%token ERROR
+%token EOFTOK
+
+
+%{
+char left[80], right[80], owner[80];
+char type = 0; /*unused*/
+%}
+
+%%
+
+
+block:
+	blockstatement
+	| block  blockstatement
+	;
+	
+blockstatement:
+	owner '{' commandline '}'
+	;	
+	
+commandline: 
+	command | commandline command
+	;
+	
+command:
+	varpart '=' valpart { found(left,right,owner); }
+	;
+	
+owner:
+	OWNERID	{
+			DBG("Owner %s\n",$1);
+			strncpy(owner,$1,strlen($1)+1);
+		}
+	;
+
+varpart:
+	VARID	{
+			DBG("Left %s\n",$1);
+			strncpy(left,$1,strlen($1)+1);
+		}
+	;
+	
+valpart:
+	VALID	{
+			DBG("Right %s\n",$1);
+			strncpy(right,$1,strlen($1)+1);
+		}
+	;
+
+%%
+
+#include <ctype.h>
+#include <stdio.h>
+#include "structs.h"
+
+extern struct wlp_list_t *list;
+
+int yyerror (char *s)  /* Called by yyparse on error */
+{
+	printf ("error: %s\n", s);
+	return 1;
+}
+
+int found(const char* left, const char* right, const char *owner)
+{
+	static struct wlp_node_t *node;
+
+	/* alloc node with non-empty fields (ie alloc them too)*/
+	node = wlpn_alloc(FALSE);
+	if(!node) {
+		DBG("wlpn_alloc in found returned NULL\n");
+	}
+	
+	strncpy(node->right,right,strlen(right));
+	strncpy(node->left,left,strlen(left));
+	strncpy(node->owner,owner,strlen(owner));
+
+	#ifndef WITHQUOTES
+	/* remove quotes of value part */
+	node->right += 1;
+	node->right[strlen(node->right)-1] = '\0';
+	#endif
+	#ifndef WITHANGBRACKETS
+	/* remove angle brackets of owner part */
+	node->owner += 1;
+	node->owner[strlen(node->owner)-1] = '\0';
+	#endif
+
+	if(!list)
+		list = wlpl_init(node);
+	else
+		wlpn_add(list,node);
+}