/*
- * Amanda, The Advanced Maryland Automatic Network Disk Archiver
+ * amanda, the advanced maryland automatic network disk archiver
* Copyright (c) 1991-2000 University of Maryland at College Park
* All Rights Reserved.
*
* file named AUTHORS, in the root directory of this distribution.
*/
/*
- * $Id: uscan.l,v 1.22 2004/02/11 13:03:29 martinea Exp $
+ * $Id$
*
* lexer for amrecover interactive language
*/
%{
#include "amanda.h"
-#undef ECHO
#include "uparse.h"
+/*
+ * We redefine this here to prevent compiler warning about ignoring fwrite
+ * return value...
+ */
+#undef ECHO
+#define ECHO do { \
+ if (fwrite(yytext, (size_t)yyleng, 1, yyout) <= 0) { \
+ yyerror("ECHO failure"); \
+ } \
+} while (0)
+
#define YY_NO_UNPUT
-#define DATE_ALLOC_SIZE sizeof("YYYY-MM-DD") /* includes null */
+#define YY_DECL int yylex(void)
+extern int yylex(void);
-extern void yyerror P((char *s));
-extern int yyparse P((void));
-static int ll_parse_date P((int type, char *text));
+extern void yyerror(char *s);
+extern int yyparse(void);
+int process_line(char *line);
%}
%x quotedstring
-
+%x needdevice
+%x needstring
+%x needmode
+%x astring
+%x propertyappend
+%x propertypriority
+
+LINEFEED [[:space:]]*("\n"|"\r"|"\r\n")
%{
static char *string_buf = NULL;
%}
/* literal keyword tokens */
%}
-listdisk { return LISTDISK; }
-sethost { return SETHOST; }
-setdisk { return SETDISK; }
-setdate { return SETDATE; }
-setmode { return SETMODE; }
-settape { return SETTAPE; }
-cd { return CD; }
-cdx { return CDX; }
-quit { return QUIT; }
-exit { return QUIT; }
-history { return DHIST; }
-ls { return LS; }
-add { return ADD; }
-addx { return ADDX; }
-list { return LIST; }
-delete { return DELETE; }
-deletex { return DELETEX; }
-pwd { return PWD; }
-clear { return CLEAR; }
-help { return HELP; }
-\? { return HELP; }
-lcd { return LCD; }
-lpwd { return LPWD; }
-extract { return EXTRACT; }
-smb { return SMB; }
-tar { return TAR; }
-mode { return MODE; }
+listhost { BEGIN(needstring); return LISTHOST; }
+listdisk { BEGIN(needstring); return LISTDISK; }
+listproperty { BEGIN(needstring); return LISTPROPERTY; }
+sethost { BEGIN(needstring); return SETHOST; }
+setdisk { BEGIN(needstring); return SETDISK; }
+setdate { BEGIN(needstring); return SETDATE; }
+setmode { BEGIN(needmode); return SETMODE; }
+settape { BEGIN(needstring); return SETTAPE; }
+setdevice { BEGIN(needdevice); return SETDEVICE; }
+setproperty { BEGIN(propertyappend); return SETPROPERTY; }
+<needdevice>-h { BEGIN(needstring); return DASH_H; }
+cd { BEGIN(needstring); return CD; }
+cdx { BEGIN(needstring); return CDX; }
+quit { BEGIN(needstring); return QUIT; }
+exit { BEGIN(needstring); return QUIT; }
+history { BEGIN(needstring); return DHIST; }
+ls { BEGIN(needstring); return LS; }
+add { BEGIN(needstring); return ADD; }
+addx { BEGIN(needstring); return ADDX; }
+list { BEGIN(needstring); return LIST; }
+delete { BEGIN(needstring); return DELETE; }
+deletex { BEGIN(needstring); return DELETEX; }
+pwd { BEGIN(needstring); return PWD; }
+clear { BEGIN(needstring); return CLEAR; }
+<INITIAL>help { BEGIN(INITIAL); return HELP; }
+\? { BEGIN(needstring); return HELP; }
+lcd { BEGIN(needstring); return LCD; }
+lpwd { BEGIN(needstring); return LPWD; }
+extract { BEGIN(needstring); return EXTRACT; }
+mode { BEGIN(needstring); return MODE; }
+<needmode>tar { BEGIN(needstring); return TAR; }
+<needmode>smb { BEGIN(needstring); return SMB; }
+<INITIAL,needdevice,needmode,needstring,astring,propertyappend,propertypriority>{LINEFEED} { BEGIN(INITIAL); return NL; }
%{
- /* dates */
+ /* quoted file names */
%}
----[0-9]+ { return ll_parse_date(1, yytext); }
---[0-9]+-[0-9]+ { return ll_parse_date(2, yytext); }
-[0-9]+-[0-9]+-[0-9]+ { return ll_parse_date(3, yytext); }
+<propertyappend>append {
+ BEGIN(propertypriority);
+ return APPEND;
+}
-%{
- /* file names */
-%}
+<propertyappend,propertypriority>priority {
+ BEGIN(needstring);
+ return PRIORITY;
+}
-[^ \t\r"]+ {
- yylval.strval = stralloc(yytext); return PATH;
+<needdevice,needmode,needstring,astring,propertyappend,propertypriority>\" {
+ if(string_buf != NULL) {
+ g_printf("ERROR:string_buf != NULL: %s\n",string_buf);
+ }
+ BEGIN(quotedstring);
+ strappend(string_buf, yytext);
}
-%{
- /* quoted file names */
-%}
+<quotedstring>[^\\\"\n\r]+ {
+ strappend(string_buf, yytext);
+}
-\" { if(string_buf != NULL) {printf("ERROR:string_buf != NULL: %s\n",string_buf);}; BEGIN(quotedstring); }
+<quotedstring>\\. {
+ /* escaped character (including quote) */
+ strappend(string_buf, yytext);
+}
-<quotedstring>\" { /* saw closing quote - all done */
- BEGIN(INITIAL);
- if(string_buf) {
+<quotedstring>\" { /* saw closing quote - all done */
+ strappend(string_buf, yytext);
yylval.strval = string_buf;
string_buf = NULL;
- } else {
- yylval.strval = "";
- }
- return PATH;
+ BEGIN(needstring);
+ return STRING;
}
-<quotedstring>\\\" {
- /* escaped quote */
- strappend(string_buf, "\\\"");
+<quotedstring>{LINEFEED} {
+ fprintf(stderr,"Unterminated quoted string\n");
+ string_buf = NULL;
+ BEGIN(INITIAL);
+ return NL;
}
-<quotedstring>\n {
- /* error - unterminated string constant */
- yyerror("unterminated string");
- amfree(string_buf);
-}
+%{
+ /* file names */
+%}
-<quotedstring>[^\\\n\"]+ { strappend(string_buf, yytext); }
+<INITIAL,needdevice,needmode,needstring,astring,propertyappend,propertypriority>[^[:space:][:cntrl:]"]+ {
+ yylval.strval = stralloc(yytext);
+ BEGIN(needstring);
+ return STRING;
+}
%{
/* whitespace */
%}
-[ \t\r]+ ; /* whitespace */
+<INITIAL,needdevice,needmode,needstring,astring,propertyappend,propertypriority>[[:space:]]+ ; /* whitespace */
%{
/* anything else */
%%
-int process_line(line)
-char *line;
+int
+process_line(
+ char * line)
{
YY_BUFFER_STATE b;
int result;
- b = yy_scan_string(line); /* tell lex to scan lineread */
+ char *line1 = stralloc2(line, "\n");
+ b = yy_scan_string(line1); /* tell lex to scan lineread */
result = yyparse(); /* parse lineread and act */
yy_delete_buffer(b);
+ amfree(line1);
return result;
}
-static int ll_parse_date(type, text)
-int type;
-char *text;
-{
- time_t now;
- struct tm *t;
- int y, m, d;
- int ret;
-
- now = time((time_t *)NULL);
- t = localtime(&now);
- y = 1900+t->tm_year;
- m = t->tm_mon+1;
- d = t->tm_mday;
- if(type == 1) {
- sscanf(text, "---%d", &d);
- } else if(type == 2) {
- sscanf(text, "--%d-%d", &m, &d);
- } else {
- sscanf(text, "%d-%d-%d", &y, &m, &d);
- if(y < 70) {
- y += 2000;
- } else if(y < 100) {
- y += 1900;
- }
- }
- ret = PATH; /* cause a parse error */
- if(y < 1000 || y > 9999) {
- yyerror("invalid year");
- } else if(m < 1 || m > 12) {
- yyerror("invalid month");
- } else if(d < 1 || d > 31) {
- yyerror("invalid day");
- } else {
- yylval.strval = alloc(DATE_ALLOC_SIZE);
- snprintf(yylval.strval, DATE_ALLOC_SIZE, "%04d-%02d-%02d", y, m, d);
- ret = DATE;
- }
- return ret;
-}
-int yywrap() {
+int
+yywrap(void)
+{
return 1;
}
+