Added ESEXP_RES_TIME for time values. (ESExpResult): Added a "time_t

2001-04-03  Federico Mena Quintero  <federico@ximian.com>

	* e-sexp.h (ESExpResultType): Added ESEXP_RES_TIME for time
	values.
	(ESExpResult): Added a "time_t value.time" field.
	(ESExpTermType): Added ESEXP_TERM_TIME.
	(ESExpTerm): Added a "time_t value.time" field.

	* e-sexp.c (e_sexp_result_free): Deal with time values.  Also, be
	more paranoid; added a default clause with g_assert_not_reached().
	(term_eval_lt): Deal with time values.
	(term_eval_gt): Likewise.
	(term_eval_eq): Likewise.
	(term_eval_plus): Likewise.
	(term_eval_sub): Likewise.
	(e_sexp_term_eval): Likewise.
	(eval_dump_result): Likewise.
	(parse_dump_term): Likewise.
	(parse_term_free): Likewise.

svn path=/trunk/; revision=9130

e-util/ChangeLog

@@ -1,3 +1,23 @@
+2001-04-03  Federico Mena Quintero  <federico@ximian.com>
+
+	* e-sexp.h (ESExpResultType): Added ESEXP_RES_TIME for time
+	values.
+	(ESExpResult): Added a "time_t value.time" field.
+	(ESExpTermType): Added ESEXP_TERM_TIME.
+	(ESExpTerm): Added a "time_t value.time" field.
+
+	* e-sexp.c (e_sexp_result_free): Deal with time values.  Also, be
+	more paranoid; added a default clause with g_assert_not_reached().
+	(term_eval_lt): Deal with time values.
+	(term_eval_gt): Likewise.
+	(term_eval_eq): Likewise.
+	(term_eval_plus): Likewise.
+	(term_eval_sub): Likewise.
+	(e_sexp_term_eval): Likewise.
+	(eval_dump_result): Likewise.
+	(parse_dump_term): Likewise.
+	(parse_term_free): Likewise.
+
 2001-04-01  Gediminas Paulauskas <menesis@delfi.lt>
 
 	* e-gui-utils.h: new type EPixmap, which is used to cache pixmaps for

e-util/e-sexp.c

@@ -43,9 +43,15 @@
   string = (+ string*)
 	Concat strings.
 
+  time_t = (+ time_t*)
+	Add time_t values.
+
   int = (- int int*)
 	Subtract integers from the first.
 
+  time_t = (- time_t*)
+	Subtract time_t values from the first.
+
   Comparison operators:
 
   bool = (< int int)
@@ -55,7 +61,11 @@
   bool = (< string string)
   bool = (> string string)
   bool = (= string string)
-	Perform a comparision of 2 integers, or 2 string values.
+
+  bool = (< time_t time_t)
+  bool = (> time_t time_t)
+  bool = (= time_t time_t)
+	Perform a comparision of 2 integers, 2 string values, or 2 time values.
 
   Function flow:
 
@@ -168,12 +178,15 @@ e_sexp_result_free(struct _ESExp *f, struct _ESExpResult *t)
 		break;
 	case ESEXP_RES_BOOL:
 	case ESEXP_RES_INT:
+	case ESEXP_RES_TIME:
 		break;
 	case ESEXP_RES_STRING:
 		g_free(t->value.string);
 		break;
 	case ESEXP_RES_UNDEFINED:
 		break;
+	default:
+		g_assert_not_reached();
 	}
 	e_memchunk_free(f->result_chunks, t);
 }
@@ -358,6 +371,9 @@ term_eval_lt(struct _ESExp *f, int argc, struct _ESExpTerm **argv, void *data)
 		} else if (r1->type == ESEXP_RES_INT) {
 			r->type = ESEXP_RES_BOOL;
 			r->value.bool = r1->value.number < r2->value.number;
+		} else if (r1->type == ESEXP_RES_TIME) {
+			r->type = ESEXP_RES_BOOL;
+			r->value.bool = r1->value.time < r2->value.time;
 		} else if (r1->type == ESEXP_RES_STRING) {
 			r->type = ESEXP_RES_BOOL;
 			r->value.bool = strcmp(r1->value.string, r2->value.string) < 0;
@@ -387,6 +403,9 @@ term_eval_gt(struct _ESExp *f, int argc, struct _ESExpTerm **argv, void *data)
 		} else if (r1->type == ESEXP_RES_INT) {
 			r->type = ESEXP_RES_BOOL;
 			r->value.bool = r1->value.number > r2->value.number;
+		} else if (r1->type == ESEXP_RES_TIME) {
+			r->type = ESEXP_RES_BOOL;
+			r->value.bool = r1->value.time > r2->value.time;
 		} else if (r1->type == ESEXP_RES_STRING) {
 			r->type = ESEXP_RES_BOOL;
 			r->value.bool = strcmp(r1->value.string, r2->value.string) > 0;
@@ -414,6 +433,8 @@ term_eval_eq(struct _ESExp *f, int argc, struct _ESExpTerm **argv, void *data)
 			r->value.bool = r1->value.number == r2->value.number;
 		} else if (r1->type == ESEXP_RES_BOOL) {
 			r->value.bool = r1->value.bool == r2->value.bool;
+		} else if (r1->type == ESEXP_RES_TIME) {
+			r->value.bool = r1->value.time == r2->value.time;
 		} else if (r1->type == ESEXP_RES_STRING) {
 			r->value.bool = strcmp(r1->value.string, r2->value.string) == 0;
 		}
@@ -458,7 +479,22 @@ term_eval_plus(struct _ESExp *f, int argc, struct _ESExpResult **argv, void *dat
 			r->value.string = s->str;
 			g_string_free(s, FALSE);
 			break; }
-			
+		case ESEXP_RES_TIME: {
+			time_t total;
+
+			total = argv[0]->value.time;
+
+			for (i = 1; i < argc && argv[i]->type == ESEXP_RES_TIME; i++)
+				total += argv[i]->value.time;
+
+			if (i < argc) {
+				e_sexp_resultv_free (f, argc, argv);
+				e_sexp_fatal_error (f, "Invalid types in (+ time_t)");
+			}
+
+			r = e_sexp_result_new (f, ESEXP_RES_TIME);
+			r->value.time = total;
+			break; }
 		}
 	}
 
@@ -491,6 +527,22 @@ term_eval_sub(struct _ESExp *f, int argc, struct _ESExpResult **argv, void *data
 			r = e_sexp_result_new(f, ESEXP_RES_INT);
 			r->value.number = total;
 			break; }
+		case ESEXP_RES_TIME: {
+			time_t total;
+
+			total = argv[0]->value.time;
+
+			for (i = 1; i < argc && argv[i]->type == ESEXP_RES_TIME; i++)
+				total -= argv[i]->value.time;
+
+			if (i < argc) {
+				e_sexp_resultv_free (f, argc, argv);
+				e_sexp_fatal_error (f, "Invalid types in (- time_t)");
+			}
+
+			r = e_sexp_result_new (f, ESEXP_RES_TIME);
+			r->value.time = total;
+			break; }
 		}
 	}
 
@@ -570,6 +622,11 @@ e_sexp_term_eval(struct _ESExp *f, struct _ESExpTerm *t)
 		r = e_sexp_result_new(f, ESEXP_RES_BOOL);
 		r->value.bool = t->value.bool;
 		break;
+	case ESEXP_TERM_TIME:
+		r(printf(" (time_t %d)\n", t->value.time));
+		r = e_sexp_result_new (f, ESEXP_RES_TIME);
+		r->value.time = t->value.time;
+		break;
 	case ESEXP_TERM_IFUNC:
 		if (t->value.func.sym->f.ifunc)
 			r = t->value.func.sym->f.ifunc(f, t->value.func.termcount, t->value.func.terms, t->value.func.sym->data);
@@ -623,6 +680,9 @@ eval_dump_result(ESExpResult *r, int depth)
 	case ESEXP_RES_BOOL:
 		printf("bool: %c\n", r->value.bool?'t':'f');
 		break;
+	case ESEXP_RES_TIME:
+		printf("time_t: %ld\n", (long) r->value.time);
+		break;
 	case ESEXP_RES_UNDEFINED:
 		printf(" <undefined>\n");
 		break;
@@ -654,6 +714,9 @@ parse_dump_term(struct _ESExpTerm *t, int depth)
 	case ESEXP_TERM_BOOL:
 		printf(" #%c", t->value.bool?'t':'f');
 		break;
+	case ESEXP_TERM_TIME:
+		printf(" %ld", (long) t->value.time);
+		break;
 	case ESEXP_TERM_IFUNC:
 	case ESEXP_TERM_FUNC:
 		printf(" (function %s\n", t->value.func.sym->name);
@@ -711,6 +774,8 @@ parse_term_free(struct _ESExp *f, struct _ESExpTerm *t)
 		break;
 	case ESEXP_TERM_INT:
 		break;
+	case ESEXP_TERM_TIME:
+		break;
 	default:
 		printf("parse_term_free: unknown type: %d\n", t->type);
 	}

e-util/e-sexp.h

@@ -5,6 +5,7 @@
 #define _E_SEXP_H
 
 #include <setjmp.h>
+#include <time.h>
 #include <glib.h>
 
 #ifdef E_SEXP_IS_GTK_OBJECT
@@ -42,6 +43,7 @@ enum _ESExpResultType {
 	ESEXP_RES_INT,		/* type is a number */
 	ESEXP_RES_STRING,	/* type is a pointer to a single string */
 	ESEXP_RES_BOOL,		/* boolean type */
+	ESEXP_RES_TIME,		/* time_t type */
 	ESEXP_RES_UNDEFINED	/* unknown type */
 };
 
@@ -52,6 +54,7 @@ struct _ESExpResult {
 		int number;
 		char *string;
 		int bool;
+		time_t time;
 	} value;
 };
 
@@ -59,6 +62,7 @@ enum _ESExpTermType {
 	ESEXP_TERM_INT	= 0,	/* integer literal */
 	ESEXP_TERM_BOOL,	/* boolean literal */
 	ESEXP_TERM_STRING,	/* string literal */
+	ESEXP_TERM_TIME,	/* time_t literal (number of seconds past the epoch) */
 	ESEXP_TERM_FUNC,	/* normal function, arguments are evaluated before calling */
 	ESEXP_TERM_IFUNC,	/* immediate function, raw terms are arguments */
 	ESEXP_TERM_VAR,		/* variable reference */
@@ -80,6 +84,7 @@ struct _ESExpTerm {
 		char *string;
 		int number;
 		int bool;
+		time_t time;
 		struct {
 			struct _ESExpSymbol *sym;
 			struct _ESExpTerm **terms;