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

diff --git a/lib/whenproto.x b/lib/whenproto.x
index 5754821..ff5edfb 100644
--- a/lib/whenproto.x
+++ b/lib/whenproto.x
@@ -70,6 +70,12 @@ union variable switch (variable_type t) {
    double f;                    /* C 'double' maps to an OCaml 'float' */
 };
 
+struct set_variable {
+  variable_name sv_name;
+  variable sv_value;
+};
+typedef set_variable set_variable_list<>;
+
 struct job {
   job_name job_name;
   string_big_int job_serial;
@@ -79,11 +85,13 @@ struct job {
 
 typedef job job_list<>;
 
+typedef job_name job_name_list<>;
+
 /* The API of the daemon. */
 program When {
   version V1 {
     status reload_file (void) = 1;
-    status set_variable (variable_name, variable) = 2;
+    status set_variable (variable_name, variable) = 2; /* obsolete */
     variable get_variable (variable_name) = 3;
     variable_name_list get_variable_names (void) = 4;
     status exit_daemon (void) = 5;
@@ -91,5 +99,9 @@ program When {
     status cancel_job (string_big_int) = 7;
     status start_job (job_name) = 8;
     job get_job (string_big_int) = 9;
+    status set_variables (set_variable_list) = 10;
+    job_name_list get_job_names (void) = 11;
+    job_name_list test_variables (set_variable_list) = 12;
+    status ping_daemon (void) = 13;
   } = 1;
 } = 0x20008081;