From 8357d7b199e26e4d071b267a314447b22f2ddb3c Mon Sep 17 00:00:00 2001
From: JP Rosevear <jpr@src.gnome.org>
Date: Thu, 24 Aug 2000 19:31:03 +0000
Subject: Initial revision

svn path=/trunk/; revision=5011
---
 libical/examples/errors.c | 70 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100644 libical/examples/errors.c

(limited to 'libical/examples/errors.c')

diff --git a/libical/examples/errors.c b/libical/examples/errors.c
new file mode 100644
index 0000000000..071a2de816
--- /dev/null
+++ b/libical/examples/errors.c
@@ -0,0 +1,70 @@
+/* errors.c */
+
+#include "ical.h"
+#include <stdio.h>
+
+void program_errors()
+{
+    /*Most routines will set icalerrno on errors. This is an
+      enumeration defined in icalerror.h */
+    
+    icalcomponent *c; 
+
+    icalerror_clear_errno();
+
+    c = icalcomponent_new(ICAL_VEVENT_COMPONENT);
+
+    if (icalerrno != ICAL_NO_ERROR){
+
+	fprintf(stderr,"Horrible libical error: %s\n",
+		icalerror_strerror(icalerrno));
+		
+    }
+
+}
+
+void component_errors(icalcomponent *comp)
+{
+    int errors;
+    icalproperty *p;
+
+    /* presume that we just got this component from the parser */
+
+    errors = icalcomponent_count_errors(comp);
+
+    printf("This component has %d parsing errors\n");
+
+    /* Print out all of the parsing errors. This is not strictly
+       correct, because it does not descend into any sub-components,
+       as icalcomponent_count_errors() does. */
+
+    for(p = icalcomponent_get_first_property(comp,ICAL_XLICERROR_PROPERTY);
+	p != 0;
+	p = icalcomponent_get_next_property(comp,ICAL_XLICERROR_PROPERTY))
+    {
+	
+	printf("-- The error is %s:\n",icalproperty_get_xlicerror(p));
+    }
+
+
+
+    /* Check the component for iTIP compilance, and add more
+       X-LIC-ERROR properties if it is non-compilant. */
+    icalrestriction_check(comp);
+    
+
+    /* Count the new errors.  */
+    if(errors != icalcomponent_count_errors(comp)){
+       printf(" -- The component also has iTIP restriction errors \n");	
+    }
+
+    /* Since there are iTIP restriction errors, it may be impossible
+       to process this component as an iTIP request. In this case, the
+       X-LIC-ERROR proeprties should be expressed as REQUEST-STATUS
+       properties in the reply. This following routine makes this
+       conversion */
+
+
+    icalcomponent_convert_errors(comp);
+
+}
-- 
cgit v1.2.3