1 files changed, 404 insertions, 0 deletions

diff --git a/libical/src/libical/icalyacc.y b/libical/src/libical/icalyacc.y
new file mode 100644
index 0000000..4f53d84
--- a/dev/null
+++ b/libical/src/libical/icalyacc.y
@@ -0,0 +1,404 @@
+%{
+/* -*- Mode: C -*-
+  ======================================================================
+  FILE: icalitip.y
+  CREATOR: eric 10 June 1999
+  
+  DESCRIPTION:
+  
+  $Id$
+  $Locker$
+
+  (C) COPYRIGHT 1999 Eric Busboom 
+  http://www.softwarestudio.org
+
+  The contents of this file are subject to the Mozilla Public License
+  Version 1.0 (the "License"); you may not use this file except in
+  compliance with the License. You may obtain a copy of the License at
+  http://www.mozilla.org/MPL/
+ 
+  Software distributed under the License is distributed on an "AS IS"
+  basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+  the License for the specific language governing rights and
+  limitations under the License.
+
+  The original author is Eric Busboom
+  The original code is icalitip.y
+
+
+
+  =======================================================================*/
+
+#include <stdlib.h>
+#include <string.h> /* for strdup() */
+#include "icalparser.h"
+#include "pvl.h"
+
+icalvalue *icalparser_yy_value; /* Current Value */
+
+void ical_yyerror(char* s);
+void icalparser_clear_flex_input();  
+int ical_yy_lex(void);
+
+/* Globals for UTCOFFSET values */
+int utc; 
+int utc_b; 
+int utcsign;
+
+/* Globals for DURATION values */
+struct icaldurationtype duration;
+
+/* Globals for TRIGGER values */
+struct icaltriggertype trigger;
+
+void copy_list(short* array, size_t size);
+void add_prop(icalproperty_kind);
+void icalparser_fill_date(struct tm* t, char* dstr);
+void icalparser_fill_time(struct tm* t, char* tstr);
+void set_value_type(icalvalue_kind kind);
+void set_parser_value_state();
+struct icaltimetype fill_datetime(char* d, char* t);
+void ical_yy_error(char *s); /* Don't know why I need this.... */
+int yylex(void); /* Or this. */
+
+
+
+/* Set the state of the lexer so it will interpret values ( iCAL
+   VALUEs, that is, ) correctly. */
+
+%}
+
+%union {
+        float v_float;
+        int   v_int;
+        char* v_string;
+}
+
+
+  /* Renaming hack */
+
+/*
+#define    yymaxdepth ical_yy_maxdepth
+#define    yyparse ical_yy_parse
+#define    yyerror ical_yy_error
+#define    yylval  ical_yy_lval
+#define    yychar  ical_yy_char
+#define    yydebug ical_yy_debug
+#define    yypact  ical_yy_pact
+#define    yyr1    ical_yy_r1
+#define    yyr2    ical_yy_r2
+#define    yydef   ical_yy_def
+#define    yychk   ical_yy_chk
+#define    yypgo   ical_yy_pgo
+#define    yyact   ical_yy_act
+#define    yyexca  ical_yy_exca
+#define yyerrflag ical_yy_errflag
+#define yynerrs    ical_yy_nerrs
+#define    yyps    ical_yy_ps
+#define    yypv    ical_yy_pv
+#define    yys     ical_yy_s
+#define    yy_yys  ical_yy_yys
+#define    yystate ical_yy_state
+#define    yytmp   ical_yy_tmp
+#define    yyv     ical_yy_v
+#define    yy_yyv  ical_yy_yyv
+#define    yyval   ical_yy_val
+#define    yylloc  ical_yy_lloc
+#define yyreds     ical_yy_reds
+#define yytoks     ical_yy_toks
+#define yylhs      ical_yy_yylhs
+#define yylen      ical_yy_yylen
+#define yydefred ical_yy_yydefred
+#define yydgoto    ical_yy_yydgoto
+#define yydefred ical_yy_yydefred
+#define yydgoto    ical_yy_yydgoto
+#define yysindex ical_yy_yysindex
+#define yyrindex ical_yy_yyrindex
+#define yygindex ical_yy_yygindex
+#define yytable     ical_yy_yytable
+#define yycheck     ical_yy_yycheck
+#define yyname   ical_yy_yyname
+#define yyrule   ical_yy_yyrule
+#define yy_scan_bytes ical_yy_scan_bytes
+#define yy_scan_string ical_yy_scan_string
+#define yy_scan_buffer ical_yy_scan_buffer
+*/
+
+/* These are redefined with the -P option to flex */
+/*
+#define yy_create_buffer  ical_yy_create_buffer 
+#define yy_delete_buffer ical_yy_delete_buffer
+#define yy_flex_debug ical_yy_flex_debug
+#define yy_init_buffer ical_yy_init_buffer
+#define yy_flush_buffer ical_yy_flush_buffer
+#define yy_load_buffer_state ical_yy_load_buffer_state
+#define yy_switch_to_buffer ical_yy_switch_to_buffer
+#define yyin ical_yyin
+#define yyleng ical_yyleng
+#define yylex ical_yylex
+#define yylineno ical_yylineno
+#define yyout ical_yyout
+#define yyrestart ical_yyrestart
+#define yytext ical_yytext
+#define yywrap ical_yywrap             
+*/
+
+
+%token <v_string> DIGITS
+%token <v_int> INTNUMBER
+%token <v_float> FLOATNUMBER
+%token <v_string> STRING   
+%token EOL EQUALS CHARACTER COLON COMMA SEMICOLON MINUS TIMESEPERATOR 
+
+%token TRUE FALSE
+
+%token FREQ BYDAY BYHOUR BYMINUTE BYMONTH BYMONTHDAY BYSECOND BYSETPOS BYWEEKNO
+%token BYYEARDAY DAILY MINUTELY MONTHLY SECONDLY WEEKLY HOURLY YEARLY
+%token INTERVAL COUNT UNTIL WKST MO SA SU TU WE TH FR 
+
+%token BIT8 ACCEPTED ADD AUDIO BASE64 BINARY BOOLEAN BUSY BUSYTENTATIVE
+%token BUSYUNAVAILABLE CALADDRESS CANCEL CANCELLED CHAIR CHILD COMPLETED
+%token CONFIDENTIAL CONFIRMED COUNTER DATE DATETIME DECLINECOUNTER DECLINED
+%token DELEGATED DISPLAY DRAFT DURATION EMAIL END FINAL FLOAT FREE GREGORIAN
+%token GROUP INDIVIDUAL INPROCESS INTEGER NEEDSACTION NONPARTICIPANT
+%token OPAQUE OPTPARTICIPANT PARENT PERIOD PRIVATE PROCEDURE PUBLIC PUBLISH
+%token RECUR REFRESH REPLY REQPARTICIPANT REQUEST RESOURCE ROOM SIBLING
+%token START TENTATIVE TEXT THISANDFUTURE THISANDPRIOR TIME TRANSPAENT
+%token UNKNOWN UTCOFFSET XNAME
+
+%token ALTREP CN CUTYPE DAYLIGHT DIR ENCODING EVENT FBTYPE FMTTYPE LANGUAGE 
+%token MEMBER PARTSTAT RANGE RELATED RELTYPE ROLE RSVP SENTBY STANDARD URI
+
+%token TIME_CHAR UTC_CHAR
+
+
+%%
+
+value:
+        date_value
+        | datetime_value
+        | duration_value
+        | period_value
+        | utcoffset_value
+        | error { 
+                  icalparser_yy_value = 0;
+                  icalparser_clear_flex_input();
+                  yyclearin;
+                  }
+
+
+date_value: DIGITS
+        {
+            struct icaltimetype stm;
+
+            stm = fill_datetime($1,0);
+
+            stm.hour = -1;
+            stm.minute = -1;
+            stm.second = -1;
+            stm.is_utc = 0;
+            stm.is_date = 1;
+
+            icalparser_yy_value = icalvalue_new_date(stm);
+        }
+
+utc_char: 
+        /*empty*/  {utc = 0;}
+        | UTC_CHAR {utc = 1;}
+
+/* This is used in the period_value, where there may be two utc characters per rule. */
+utc_char_b: 
+        /*empty*/  {utc_b = 0;}
+        | UTC_CHAR {utc_b = 1;}
+
+datetime_value: 
+        DIGITS TIME_CHAR DIGITS utc_char
+        {
+            struct  icaltimetype stm;
+            stm = fill_datetime($1, $3);
+            stm.is_utc = utc;
+            stm.is_date = 0;
+
+            icalparser_yy_value = 
+                icalvalue_new_datetime(stm);
+        }
+
+
+/* Duration */
+
+
+dur_date: dur_day
+        | dur_day dur_time
+
+dur_week: DIGITS 'W'
+        {
+            duration.weeks = atoi($1);
+        }
+
+dur_time: TIME_CHAR dur_hour 
+        {
+        }
+        | TIME_CHAR dur_minute
+        {
+        }
+        | TIME_CHAR dur_second
+        {
+        }
+
+dur_hour: DIGITS 'H'
+        {
+            duration.hours = atoi($1);
+        }
+        | DIGITS 'H' dur_minute
+        {
+            duration.hours = atoi($1);
+        }
+
+dur_minute: DIGITS 'M'
+        {
+            duration.minutes = atoi($1);
+        }
+        | DIGITS 'M' dur_second
+        {
+            duration.minutes = atoi($1);
+        }
+
+dur_second: DIGITS 'S'
+        {
+            duration.seconds = atoi($1);
+        }
+
+dur_day: DIGITS 'D'
+        {
+            duration.days = atoi($1);
+        }
+
+dur_prefix: /* empty */
+        {
+            duration.is_neg = 0;
+        } 
+        | '+'
+        {
+            duration.is_neg = 0;
+        }
+        | '-'
+        { 
+            duration.is_neg = 1;
+        }
+
+duration_value: dur_prefix 'P' dur_date
+        { 
+            icalparser_yy_value = icalvalue_new_duration(duration); 
+            memset(&duration,0, sizeof(duration));
+        }
+        | dur_prefix 'P' dur_time
+        { 
+            icalparser_yy_value = icalvalue_new_duration(duration); 
+            memset(&duration,0, sizeof(duration));
+        }
+        | dur_prefix 'P' dur_week
+        { 
+            icalparser_yy_value = icalvalue_new_duration(duration); 
+            memset(&duration,0, sizeof(duration));
+        }
+
+
+/* Period */
+
+period_value:  DIGITS TIME_CHAR DIGITS utc_char '/'  DIGITS TIME_CHAR DIGITS utc_char_b
+        {
+            struct icalperiodtype p;
+        
+            p.start = fill_datetime($1,$3);
+            p.start.is_utc = utc;
+            p.start.is_date = 0;
+
+
+            p.end = fill_datetime($6,$8);
+            p.end.is_utc = utc_b;
+            p.end.is_date = 0;
+                
+            p.duration.days = -1;
+            p.duration.weeks = -1;
+            p.duration.hours = -1;
+            p.duration.minutes = -1;
+            p.duration.seconds = -1;
+
+            icalparser_yy_value = icalvalue_new_period(p);
+        }
+        | DIGITS TIME_CHAR DIGITS utc_char '/'  duration_value
+        {
+            struct icalperiodtype p;
+            
+            p.start = fill_datetime($1,$3);
+            p.start.is_utc = utc;
+            p.start.is_date = 0;
+
+            p.end.year = -1;
+            p.end.month = -1;
+            p.end.day = -1;
+            p.end.hour = -1;
+            p.end.minute = -1;
+            p.end.second = -1;
+                   
+            /* The duration_value rule setes the global 'duration'
+               variable, but it also creates a new value in
+               icalparser_yy_value. So, free that, then copy
+               'duration' into the icalperiodtype struct. */
+
+            p.duration = icalvalue_get_duration(icalparser_yy_value);
+            icalvalue_free(icalparser_yy_value);
+            icalparser_yy_value = 0;
+
+            icalparser_yy_value = icalvalue_new_period(p);
+
+        }
+
+
+trigger: 
+        
+
+
+/* UTC Offset */
+
+plusminus: '+' { utcsign = 1; }
+        | '-' { utcsign = -1; }
+
+utcoffset_value: 
+        plusminus INTNUMBER INTNUMBER
+        {
+            icalparser_yy_value = icalvalue_new_utcoffset( utcsign * ($2*3600) + ($3*60) );
+          }
+
+        | plusminus INTNUMBER INTNUMBER INTNUMBER
+        {
+            icalparser_yy_value = icalvalue_new_utcoffset(utcsign * ($2*3600) + ($3*60) +($4));
+          }
+
+%%
+
+struct icaltimetype fill_datetime(char* datestr, char* timestr)
+{
+            struct icaltimetype stm;
+
+            memset(&stm,0,sizeof(stm));
+
+            if (datestr != 0){
+                sscanf(datestr,"%4d%2d%2d",&(stm.year), &(stm.month), 
+                       &(stm.day));
+            }
+
+            if (timestr != 0){
+                sscanf(timestr,"%2d%2d%2d", &(stm.hour), &(stm.minute), 
+                       &(stm.second));
+            }
+
+            return stm;
+
+}
+
+void ical_yyerror(char* s)
+{
+    /*fprintf(stderr,"Parse error \'%s\'\n", s);*/
+}
+