X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=lib%2Fwhenproto.x;h=575482186a37e8430b8aa571fa1070d9175553b8;hb=03b83c1a4bab53d8914c6946ad892bca30df09d0;hp=603cf9161d8a0ec857b2cc8640935caa336cf4e7;hpb=acb316417965e2b40010aeb35f8ff990db0d1d42;p=whenjobs.git

diff --git a/lib/whenproto.x b/lib/whenproto.x
index 603cf91..5754821 100644
--- a/lib/whenproto.x
+++ b/lib/whenproto.x
@@ -24,11 +24,15 @@
 /* Maximum lengths and some useful typedefs. */
 const MAX_VARIABLE_NAME_LENGTH = 256;
 const MAX_VARIABLE_VALUE_LENGTH = 65536;
+const MAX_JOB_NAME_LENGTH = 256;
 const MAX_BIG_INT_LENGTH = 64; /* when encoded as a string */
+const MAX_PATH_LENGTH = 4096;
 
 typedef string variable_name<MAX_VARIABLE_NAME_LENGTH>;
 typedef string string_value<MAX_VARIABLE_VALUE_LENGTH>;
+typedef string job_name<MAX_JOB_NAME_LENGTH>;
 typedef string string_big_int<MAX_BIG_INT_LENGTH>;
+typedef string path<MAX_PATH_LENGTH>;
 
 typedef variable_name variable_name_list<>;
 
@@ -63,9 +67,18 @@ union variable switch (variable_type t) {
  case INT_T:
    string_big_int i;            /* OCaml [big_int], as a string. */
  case FLOAT_T:
-   double f;                 /* C 'double' maps to an OCaml 'float' */
+   double f;                    /* C 'double' maps to an OCaml 'float' */
 };
 
+struct job {
+  job_name job_name;
+  string_big_int job_serial;
+  path job_tmpdir;
+  hyper job_start_time;
+};
+
+typedef job job_list<>;
+
 /* The API of the daemon. */
 program When {
   version V1 {
@@ -74,5 +87,9 @@ program When {
     variable get_variable (variable_name) = 3;
     variable_name_list get_variable_names (void) = 4;
     status exit_daemon (void) = 5;
+    job_list get_jobs (void) = 6;
+    status cancel_job (string_big_int) = 7;
+    status start_job (job_name) = 8;
+    job get_job (string_big_int) = 9;
   } = 1;
 } = 0x20008081;