new func. Parses message header zone and returns a Glist of all header

1999-05-26  bertrand  <Bertrand.Guiheneuf@inria.fr>

	* camel/gmime-utils.c (get_header_lines_from_file):
	new func. Parses message header zone and returns
	a Glist of all header lines.

	* tests/test2.c: tests message parsing

	* camel/gmime-utils.c (write_header_table_to_file):
	new func to write a table of headers.

svn path=/trunk/; revision=948

1 files changed, 114 insertions, 1 deletions

diff --git a/camel/gmime-utils.c b/camel/gmime-utils.c
index b2ead8310c..f4009e91cf 100644
--- a/camel/gmime-utils.c
+++ b/camel/gmime-utils.c
@@ -25,7 +25,7 @@
 
 #include "gmime-utils.h"
 void
-gmime_write_header_pair_to_file(FILE* file, gchar* name, GString *value)
+gmime_write_header_pair_to_file (FILE* file, gchar* name, GString *value)
 {
 	g_assert(name);
 
@@ -34,3 +34,116 @@ gmime_write_header_pair_to_file(FILE* file, gchar* name, GString *value)
 }
 
 
+static void
+_write_one_header_to_file (gpointer key, gpointer value, gpointer user_data)
+{
+	GString *header_name = (GString *)key;
+	GString *header_value = (GString *)value;
+	FILE *file = (FILE *)user_data;
+
+	if ( (header_name) && (header_name->str) && 
+	     (header_value) && (header_value->str) )
+		fprintf(file, "%s: %s\n", header_name->str, header_value->str);		
+}
+
+void 
+write_header_table_to_file (FILE *file, GHashTable *header_table)
+{
+	g_hash_table_foreach (header_table, 
+			      _write_one_header_to_file, 
+			      (gpointer)file);
+}
+
+
+void 
+write_header_with_glist_to_file (FILE *file, gchar *header_name, GList *header_values)
+{
+	
+	GString *current;
+	
+	if ( (header_name) && (header_values) )
+		{
+			gboolean first;
+			
+			fprintf(file, "%s: ", header_name);
+			first = TRUE;
+			while (header_values) {
+				current = (GString *)header_values->data;
+				if ( (current) && (current->str) ) {
+					if (!first) fprintf(file, ", ");
+					else first = FALSE;
+					fprintf(file, "%s", current->str);
+				}
+				header_values = g_list_next(header_values);
+			}
+			fprintf(file, "\n");
+		}
+	
+}	
+
+
+
+
+
+/* * * * * * * * * * * */
+/* scanning functions  */
+
+
+GList *
+get_header_lines_from_file (FILE *file)
+{
+	int next_char;
+
+	gboolean crlf = FALSE;
+	gboolean end_of_header_line = FALSE;
+	gboolean end_of_headers = FALSE;
+	gboolean end_of_file = FALSE;
+	GString *header_line=NULL;
+	GList *header_lines=NULL;
+
+	next_char = fgetc (file);
+	do {
+		header_line = g_string_new("");
+		end_of_header_line = FALSE;
+		crlf = FALSE;
+		
+		/* read a whole header line */
+		do {
+			switch (next_char) {
+			case EOF:
+				end_of_file=TRUE;
+				end_of_header_line = TRUE;
+				break;
+			case '\n': /* a blank line means end of headers */
+				if (crlf) {
+					end_of_headers=TRUE;
+					end_of_header_line = TRUE;
+				}
+				else crlf = TRUE;
+				break;
+			case ' ':
+			case 't':
+				if (crlf) crlf = FALSE;
+				
+			default:
+				if (!crlf) header_line = g_string_append_c (header_line, next_char);
+				else end_of_header_line = TRUE;
+			}
+			/* if we have read a whole header line, we have also read
+			   the first character of the next line to be sure the 
+			   crlf was not followed by a space or a tab char */
+			if (!end_of_header_line) next_char = fgetc (file);
+
+		} while ( !end_of_header_line );
+		
+		if ( strlen(header_line->str) ) 
+			header_lines = g_list_append (header_lines, header_line);
+		else 
+			g_string_free (header_line, FALSE);
+
+	} while ( (!end_of_headers) && (!end_of_file) );
+
+	return header_lines;
+}
+		
+