1 files changed, 68 insertions, 0 deletions
diff --git a/libkcal/libical/examples/parse_text.c b/libkcal/libical/examples/parse_text.c
new file mode 100644
index 000000000..b7eba43b8
--- /dev/null
+++ b/libkcal/libical/examples/parse_text.c
@@ -0,0 +1,68 @@
+/* parse_text.c
+   
+ */
+#include <stdio.h>
+#include <errno.h>
+#include <stdio.h>
+#include <string.h>
+#include "ical.h"
+
+#include <stdlib.h>
+
+/* The icalparser_get_line routine will create a single *content* line
+out of one or more input lines. The content line is all of the
+properties and values for a single property, and it can span several
+input lines. So, icalparser_get_line will need to be able to get more
+data on its own. Read_string is a routine that does this. You can
+write your own version of read stream to get data from other types of
+files, sockets, etc. */
+
+char* read_stream(char *s, size_t size, void *d)
+{
+  char *c = fgets(s,size, (FILE*)d);
+
+  return c;
+
+}
+
+void parse_text(int argc, char* argv[])
+{
+
+    char* line; 
+    FILE* stream;
+    icalcomponent *c; 
+
+    /* Create a new parser object */
+    icalparser *parser = icalparser_new();
+
+    stream = fopen(argv[1],"r");
+
+    assert(stream != 0);
+
+    /* Tell the parser what input routie it should use. */
+    icalparser_set_gen_data(parser,stream);
+
+    do{
+    
+	/* Get a single content line by making one or more calls to
+           read_stream()*/
+	line = icalparser_get_line(parser,read_stream);
+
+	/* Now, add that line into the parser object. If that line
+           completes a component, c will be non-zero */
+	c = icalparser_add_line(parser,line);
+
+
+	if (c != 0){
+	    printf("%s",icalcomponent_as_ical_string(c));
+
+	    printf("\n---------------\n");
+
+	    icalcomponent_free(c);
+	}
+
+    } while ( line != 0);
+
+
+    icalparser_free(parser);
+}