Merge "next" branch into "master".
[openvswitch] / lib / ovsdb-idl.c
1 /* Copyright (c) 2009, 2010 Nicira Networks.
2  *
3  * Licensed under the Apache License, Version 2.0 (the "License");
4  * you may not use this file except in compliance with the License.
5  * You may obtain a copy of the License at:
6  *
7  *     http://www.apache.org/licenses/LICENSE-2.0
8  *
9  * Unless required by applicable law or agreed to in writing, software
10  * distributed under the License is distributed on an "AS IS" BASIS,
11  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12  * See the License for the specific language governing permissions and
13  * limitations under the License.
14  */
15
16 #include <config.h>
17
18 #include "ovsdb-idl.h"
19
20 #include <assert.h>
21 #include <errno.h>
22 #include <inttypes.h>
23 #include <limits.h>
24 #include <stdlib.h>
25
26 #include "bitmap.h"
27 #include "dynamic-string.h"
28 #include "json.h"
29 #include "jsonrpc.h"
30 #include "ovsdb-data.h"
31 #include "ovsdb-error.h"
32 #include "ovsdb-idl-provider.h"
33 #include "poll-loop.h"
34 #include "shash.h"
35 #include "util.h"
36
37 #define THIS_MODULE VLM_ovsdb_idl
38 #include "vlog.h"
39
40 /* An arc from one idl_row to another.  When row A contains a UUID that
41  * references row B, this is represented by an arc from A (the source) to B
42  * (the destination).
43  *
44  * Arcs from a row to itself are omitted, that is, src and dst are always
45  * different.
46  *
47  * Arcs are never duplicated, that is, even if there are multiple references
48  * from A to B, there is only a single arc from A to B.
49  *
50  * Arcs are directed: an arc from A to B is the converse of an an arc from B to
51  * A.  Both an arc and its converse may both be present, if each row refers
52  * to the other circularly.
53  *
54  * The source and destination row may be in the same table or in different
55  * tables.
56  */
57 struct ovsdb_idl_arc {
58     struct list src_node;       /* In src->src_arcs list. */
59     struct list dst_node;       /* In dst->dst_arcs list. */
60     struct ovsdb_idl_row *src;  /* Source row. */
61     struct ovsdb_idl_row *dst;  /* Destination row. */
62 };
63
64 struct ovsdb_idl {
65     const struct ovsdb_idl_class *class;
66     struct jsonrpc_session *session;
67     struct shash table_by_name;
68     struct ovsdb_idl_table *tables;
69     struct json *monitor_request_id;
70     unsigned int last_monitor_request_seqno;
71     unsigned int change_seqno;
72
73     /* Transaction support. */
74     struct ovsdb_idl_txn *txn;
75     struct hmap outstanding_txns;
76 };
77
78 struct ovsdb_idl_txn {
79     struct hmap_node hmap_node;
80     struct json *request_id;
81     struct ovsdb_idl *idl;
82     struct hmap txn_rows;
83     enum ovsdb_idl_txn_status status;
84     char *error;
85     bool dry_run;
86     struct ds comment;
87
88     /* Increments. */
89     char *inc_table;
90     char *inc_column;
91     struct json *inc_where;
92     unsigned int inc_index;
93     int64_t inc_new_value;
94
95     /* Inserted rows. */
96     struct hmap inserted_rows;
97 };
98
99 struct ovsdb_idl_txn_insert {
100     struct hmap_node hmap_node; /* In struct ovsdb_idl_txn's inserted_rows. */
101     struct uuid dummy;          /* Dummy UUID used locally. */
102     int op_index;               /* Index into transaction's operation array. */
103     struct uuid real;           /* Real UUID used by database server. */
104 };
105
106 static struct vlog_rate_limit syntax_rl = VLOG_RATE_LIMIT_INIT(1, 5);
107 static struct vlog_rate_limit semantic_rl = VLOG_RATE_LIMIT_INIT(1, 5);
108
109 static void ovsdb_idl_clear(struct ovsdb_idl *);
110 static void ovsdb_idl_send_monitor_request(struct ovsdb_idl *);
111 static void ovsdb_idl_parse_update(struct ovsdb_idl *, const struct json *);
112 static struct ovsdb_error *ovsdb_idl_parse_update__(struct ovsdb_idl *,
113                                                     const struct json *);
114 static void ovsdb_idl_process_update(struct ovsdb_idl_table *,
115                                      const struct uuid *,
116                                      const struct json *old,
117                                      const struct json *new);
118 static void ovsdb_idl_insert_row(struct ovsdb_idl_row *, const struct json *);
119 static void ovsdb_idl_delete_row(struct ovsdb_idl_row *);
120 static void ovsdb_idl_modify_row(struct ovsdb_idl_row *, const struct json *);
121
122 static bool ovsdb_idl_row_is_orphan(const struct ovsdb_idl_row *);
123 static struct ovsdb_idl_row *ovsdb_idl_row_create__(
124     const struct ovsdb_idl_table_class *);
125 static struct ovsdb_idl_row *ovsdb_idl_row_create(struct ovsdb_idl_table *,
126                                                   const struct uuid *);
127 static void ovsdb_idl_row_destroy(struct ovsdb_idl_row *);
128
129 static void ovsdb_idl_row_parse(struct ovsdb_idl_row *);
130 static void ovsdb_idl_row_unparse(struct ovsdb_idl_row *);
131 static void ovsdb_idl_row_clear_old(struct ovsdb_idl_row *);
132 static void ovsdb_idl_row_clear_new(struct ovsdb_idl_row *);
133
134 static void ovsdb_idl_txn_abort_all(struct ovsdb_idl *);
135 static bool ovsdb_idl_txn_process_reply(struct ovsdb_idl *,
136                                         const struct jsonrpc_msg *msg);
137
138 struct ovsdb_idl *
139 ovsdb_idl_create(const char *remote, const struct ovsdb_idl_class *class)
140 {
141     struct ovsdb_idl *idl;
142     size_t i;
143
144     idl = xzalloc(sizeof *idl);
145     idl->class = class;
146     idl->session = jsonrpc_session_open(remote);
147     shash_init(&idl->table_by_name);
148     idl->tables = xmalloc(class->n_tables * sizeof *idl->tables);
149     for (i = 0; i < class->n_tables; i++) {
150         const struct ovsdb_idl_table_class *tc = &class->tables[i];
151         struct ovsdb_idl_table *table = &idl->tables[i];
152         size_t j;
153
154         assert(!shash_find(&idl->table_by_name, tc->name));
155         shash_add(&idl->table_by_name, tc->name, table);
156         table->class = tc;
157         shash_init(&table->columns);
158         for (j = 0; j < tc->n_columns; j++) {
159             const struct ovsdb_idl_column *column = &tc->columns[j];
160
161             assert(!shash_find(&table->columns, column->name));
162             shash_add(&table->columns, column->name, column);
163         }
164         hmap_init(&table->rows);
165         table->idl = idl;
166     }
167     idl->last_monitor_request_seqno = UINT_MAX;
168     hmap_init(&idl->outstanding_txns);
169
170     return idl;
171 }
172
173 void
174 ovsdb_idl_destroy(struct ovsdb_idl *idl)
175 {
176     if (idl) {
177         size_t i;
178
179         assert(!idl->txn);
180         ovsdb_idl_clear(idl);
181         jsonrpc_session_close(idl->session);
182
183         for (i = 0; i < idl->class->n_tables; i++) {
184             struct ovsdb_idl_table *table = &idl->tables[i];
185             shash_destroy(&table->columns);
186             hmap_destroy(&table->rows);
187         }
188         shash_destroy(&idl->table_by_name);
189         free(idl->tables);
190         json_destroy(idl->monitor_request_id);
191         free(idl);
192     }
193 }
194
195 static void
196 ovsdb_idl_clear(struct ovsdb_idl *idl)
197 {
198     bool changed = false;
199     size_t i;
200
201     for (i = 0; i < idl->class->n_tables; i++) {
202         struct ovsdb_idl_table *table = &idl->tables[i];
203         struct ovsdb_idl_row *row, *next_row;
204
205         if (hmap_is_empty(&table->rows)) {
206             continue;
207         }
208
209         changed = true;
210         HMAP_FOR_EACH_SAFE (row, next_row, struct ovsdb_idl_row, hmap_node,
211                             &table->rows) {
212             struct ovsdb_idl_arc *arc, *next_arc;
213
214             if (!ovsdb_idl_row_is_orphan(row)) {
215                 ovsdb_idl_row_unparse(row);
216             }
217             LIST_FOR_EACH_SAFE (arc, next_arc, struct ovsdb_idl_arc, src_node,
218                                 &row->src_arcs) {
219                 free(arc);
220             }
221             /* No need to do anything with dst_arcs: some node has those arcs
222              * as forward arcs and will destroy them itself. */
223
224             ovsdb_idl_row_destroy(row);
225         }
226     }
227
228     if (changed) {
229         idl->change_seqno++;
230     }
231 }
232
233 void
234 ovsdb_idl_run(struct ovsdb_idl *idl)
235 {
236     int i;
237
238     assert(!idl->txn);
239     jsonrpc_session_run(idl->session);
240     for (i = 0; jsonrpc_session_is_connected(idl->session) && i < 50; i++) {
241         struct jsonrpc_msg *msg, *reply;
242         unsigned int seqno;
243
244         seqno = jsonrpc_session_get_seqno(idl->session);
245         if (idl->last_monitor_request_seqno != seqno) {
246             idl->last_monitor_request_seqno = seqno;
247             ovsdb_idl_txn_abort_all(idl);
248             ovsdb_idl_send_monitor_request(idl);
249             break;
250         }
251
252         msg = jsonrpc_session_recv(idl->session);
253         if (!msg) {
254             break;
255         }
256
257         reply = NULL;
258         if (msg->type == JSONRPC_NOTIFY
259                    && !strcmp(msg->method, "update")
260                    && msg->params->type == JSON_ARRAY
261                    && msg->params->u.array.n == 2
262                    && msg->params->u.array.elems[0]->type == JSON_NULL) {
263             ovsdb_idl_parse_update(idl, msg->params->u.array.elems[1]);
264         } else if (msg->type == JSONRPC_REPLY
265                    && idl->monitor_request_id
266                    && json_equal(idl->monitor_request_id, msg->id)) {
267             json_destroy(idl->monitor_request_id);
268             idl->monitor_request_id = NULL;
269             ovsdb_idl_clear(idl);
270             ovsdb_idl_parse_update(idl, msg->result);
271         } else if (msg->type == JSONRPC_REPLY
272                    && msg->id && msg->id->type == JSON_STRING
273                    && !strcmp(msg->id->u.string, "echo")) {
274             /* It's a reply to our echo request.  Ignore it. */
275         } else if ((msg->type == JSONRPC_ERROR
276                     || msg->type == JSONRPC_REPLY)
277                    && ovsdb_idl_txn_process_reply(idl, msg)) {
278             /* ovsdb_idl_txn_process_reply() did everything needful. */
279         } else {
280             /* This can happen if ovsdb_idl_txn_destroy() is called to destroy
281              * a transaction before we receive the reply, so keep the log level
282              * low. */
283             VLOG_DBG("%s: received unexpected %s message",
284                      jsonrpc_session_get_name(idl->session),
285                      jsonrpc_msg_type_to_string(msg->type));
286         }
287         if (reply) {
288             jsonrpc_session_send(idl->session, reply);
289         }
290         jsonrpc_msg_destroy(msg);
291     }
292 }
293
294 void
295 ovsdb_idl_wait(struct ovsdb_idl *idl)
296 {
297     jsonrpc_session_wait(idl->session);
298     jsonrpc_session_recv_wait(idl->session);
299 }
300
301 unsigned int
302 ovsdb_idl_get_seqno(const struct ovsdb_idl *idl)
303 {
304     return idl->change_seqno;
305 }
306
307 bool
308 ovsdb_idl_has_ever_connected(const struct ovsdb_idl *idl)
309 {
310     return ovsdb_idl_get_seqno(idl) != 0;
311 }
312
313 void
314 ovsdb_idl_force_reconnect(struct ovsdb_idl *idl)
315 {
316     jsonrpc_session_force_reconnect(idl->session);
317 }
318 \f
319 static void
320 ovsdb_idl_send_monitor_request(struct ovsdb_idl *idl)
321 {
322     struct json *monitor_requests;
323     struct jsonrpc_msg *msg;
324     size_t i;
325
326     monitor_requests = json_object_create();
327     for (i = 0; i < idl->class->n_tables; i++) {
328         const struct ovsdb_idl_table *table = &idl->tables[i];
329         const struct ovsdb_idl_table_class *tc = table->class;
330         struct json *monitor_request, *columns;
331         size_t i;
332
333         monitor_request = json_object_create();
334         columns = json_array_create_empty();
335         for (i = 0; i < tc->n_columns; i++) {
336             const struct ovsdb_idl_column *column = &tc->columns[i];
337             json_array_add(columns, json_string_create(column->name));
338         }
339         json_object_put(monitor_request, "columns", columns);
340         json_object_put(monitor_requests, tc->name, monitor_request);
341     }
342
343     json_destroy(idl->monitor_request_id);
344     msg = jsonrpc_create_request(
345         "monitor",
346         json_array_create_3(json_string_create(idl->class->database),
347                             json_null_create(), monitor_requests),
348         &idl->monitor_request_id);
349     jsonrpc_session_send(idl->session, msg);
350 }
351
352 static void
353 ovsdb_idl_parse_update(struct ovsdb_idl *idl, const struct json *table_updates)
354 {
355     struct ovsdb_error *error;
356
357     idl->change_seqno++;
358
359     error = ovsdb_idl_parse_update__(idl, table_updates);
360     if (error) {
361         if (!VLOG_DROP_WARN(&syntax_rl)) {
362             char *s = ovsdb_error_to_string(error);
363             VLOG_WARN_RL(&syntax_rl, "%s", s);
364             free(s);
365         }
366         ovsdb_error_destroy(error);
367     }
368 }
369
370 static struct ovsdb_error *
371 ovsdb_idl_parse_update__(struct ovsdb_idl *idl,
372                          const struct json *table_updates)
373 {
374     const struct shash_node *tables_node;
375
376     if (table_updates->type != JSON_OBJECT) {
377         return ovsdb_syntax_error(table_updates, NULL,
378                                   "<table-updates> is not an object");
379     }
380     SHASH_FOR_EACH (tables_node, json_object(table_updates)) {
381         const struct json *table_update = tables_node->data;
382         const struct shash_node *table_node;
383         struct ovsdb_idl_table *table;
384
385         table = shash_find_data(&idl->table_by_name, tables_node->name);
386         if (!table) {
387             return ovsdb_syntax_error(
388                 table_updates, NULL,
389                 "<table-updates> includes unknown table \"%s\"",
390                 tables_node->name);
391         }
392
393         if (table_update->type != JSON_OBJECT) {
394             return ovsdb_syntax_error(table_update, NULL,
395                                       "<table-update> for table \"%s\" is "
396                                       "not an object", table->class->name);
397         }
398         SHASH_FOR_EACH (table_node, json_object(table_update)) {
399             const struct json *row_update = table_node->data;
400             const struct json *old_json, *new_json;
401             struct uuid uuid;
402
403             if (!uuid_from_string(&uuid, table_node->name)) {
404                 return ovsdb_syntax_error(table_update, NULL,
405                                           "<table-update> for table \"%s\" "
406                                           "contains bad UUID "
407                                           "\"%s\" as member name",
408                                           table->class->name,
409                                           table_node->name);
410             }
411             if (row_update->type != JSON_OBJECT) {
412                 return ovsdb_syntax_error(row_update, NULL,
413                                           "<table-update> for table \"%s\" "
414                                           "contains <row-update> for %s that "
415                                           "is not an object",
416                                           table->class->name,
417                                           table_node->name);
418             }
419
420             old_json = shash_find_data(json_object(row_update), "old");
421             new_json = shash_find_data(json_object(row_update), "new");
422             if (old_json && old_json->type != JSON_OBJECT) {
423                 return ovsdb_syntax_error(old_json, NULL,
424                                           "\"old\" <row> is not object");
425             } else if (new_json && new_json->type != JSON_OBJECT) {
426                 return ovsdb_syntax_error(new_json, NULL,
427                                           "\"new\" <row> is not object");
428             } else if ((old_json != NULL) + (new_json != NULL)
429                        != shash_count(json_object(row_update))) {
430                 return ovsdb_syntax_error(row_update, NULL,
431                                           "<row-update> contains unexpected "
432                                           "member");
433             } else if (!old_json && !new_json) {
434                 return ovsdb_syntax_error(row_update, NULL,
435                                           "<row-update> missing \"old\" "
436                                           "and \"new\" members");
437             }
438
439             ovsdb_idl_process_update(table, &uuid, old_json, new_json);
440         }
441     }
442
443     return NULL;
444 }
445
446 static struct ovsdb_idl_row *
447 ovsdb_idl_get_row(struct ovsdb_idl_table *table, const struct uuid *uuid)
448 {
449     struct ovsdb_idl_row *row;
450
451     HMAP_FOR_EACH_WITH_HASH (row, struct ovsdb_idl_row, hmap_node,
452                              uuid_hash(uuid), &table->rows) {
453         if (uuid_equals(&row->uuid, uuid)) {
454             return row;
455         }
456     }
457     return NULL;
458 }
459
460 static void
461 ovsdb_idl_process_update(struct ovsdb_idl_table *table,
462                          const struct uuid *uuid, const struct json *old,
463                          const struct json *new)
464 {
465     struct ovsdb_idl_row *row;
466
467     row = ovsdb_idl_get_row(table, uuid);
468     if (!new) {
469         /* Delete row. */
470         if (row && !ovsdb_idl_row_is_orphan(row)) {
471             /* XXX perhaps we should check the 'old' values? */
472             ovsdb_idl_delete_row(row);
473         } else {
474             VLOG_WARN_RL(&semantic_rl, "cannot delete missing row "UUID_FMT" "
475                          "from table %s",
476                          UUID_ARGS(uuid), table->class->name);
477         }
478     } else if (!old) {
479         /* Insert row. */
480         if (!row) {
481             ovsdb_idl_insert_row(ovsdb_idl_row_create(table, uuid), new);
482         } else if (ovsdb_idl_row_is_orphan(row)) {
483             ovsdb_idl_insert_row(row, new);
484         } else {
485             VLOG_WARN_RL(&semantic_rl, "cannot add existing row "UUID_FMT" to "
486                          "table %s", UUID_ARGS(uuid), table->class->name);
487             ovsdb_idl_modify_row(row, new);
488         }
489     } else {
490         /* Modify row. */
491         if (row) {
492             /* XXX perhaps we should check the 'old' values? */
493             if (!ovsdb_idl_row_is_orphan(row)) {
494                 ovsdb_idl_modify_row(row, new);
495             } else {
496                 VLOG_WARN_RL(&semantic_rl, "cannot modify missing but "
497                              "referenced row "UUID_FMT" in table %s",
498                              UUID_ARGS(uuid), table->class->name);
499                 ovsdb_idl_insert_row(row, new);
500             }
501         } else {
502             VLOG_WARN_RL(&semantic_rl, "cannot modify missing row "UUID_FMT" "
503                          "in table %s", UUID_ARGS(uuid), table->class->name);
504             ovsdb_idl_insert_row(ovsdb_idl_row_create(table, uuid), new);
505         }
506     }
507 }
508
509 static void
510 ovsdb_idl_row_update(struct ovsdb_idl_row *row, const struct json *row_json)
511 {
512     struct ovsdb_idl_table *table = row->table;
513     struct shash_node *node;
514
515     SHASH_FOR_EACH (node, json_object(row_json)) {
516         const char *column_name = node->name;
517         const struct ovsdb_idl_column *column;
518         struct ovsdb_datum datum;
519         struct ovsdb_error *error;
520
521         column = shash_find_data(&table->columns, column_name);
522         if (!column) {
523             VLOG_WARN_RL(&syntax_rl, "unknown column %s updating row "UUID_FMT,
524                          column_name, UUID_ARGS(&row->uuid));
525             continue;
526         }
527
528         error = ovsdb_datum_from_json(&datum, &column->type, node->data, NULL);
529         if (!error) {
530             ovsdb_datum_swap(&row->old[column - table->class->columns],
531                              &datum);
532             ovsdb_datum_destroy(&datum, &column->type);
533         } else {
534             char *s = ovsdb_error_to_string(error);
535             VLOG_WARN_RL(&syntax_rl, "error parsing column %s in row "UUID_FMT
536                          " in table %s: %s", column_name,
537                          UUID_ARGS(&row->uuid), table->class->name, s);
538             free(s);
539             ovsdb_error_destroy(error);
540         }
541     }
542 }
543
544 /* When a row A refers to row B through a column with a "refTable" constraint,
545  * but row B does not exist, row B is called an "orphan row".  Orphan rows
546  * should not persist, because the database enforces referential integrity, but
547  * they can appear transiently as changes from the database are received (the
548  * database doesn't try to topologically sort them and circular references mean
549  * it isn't always possible anyhow).
550  *
551  * This function returns true if 'row' is an orphan row, otherwise false.
552  */
553 static bool
554 ovsdb_idl_row_is_orphan(const struct ovsdb_idl_row *row)
555 {
556     return !row->old && !row->new;
557 }
558
559 /* Returns true if 'row' is conceptually part of the database as modified by
560  * the current transaction (if any), false otherwise.
561  *
562  * This function will return true if 'row' is not an orphan (see the comment on
563  * ovsdb_idl_row_is_orphan()) and:
564  *
565  *   - 'row' exists in the database and has not been deleted within the
566  *     current transaction (if any).
567  *
568  *   - 'row' was inserted within the current transaction and has not been
569  *     deleted.  (In the latter case you should not have passed 'row' in at
570  *     all, because ovsdb_idl_txn_delete() freed it.)
571  *
572  * This function will return false if 'row' is an orphan or if 'row' was
573  * deleted within the current transaction.
574  */
575 static bool
576 ovsdb_idl_row_exists(const struct ovsdb_idl_row *row)
577 {
578     return row->new != NULL;
579 }
580
581 static void
582 ovsdb_idl_row_parse(struct ovsdb_idl_row *row)
583 {
584     const struct ovsdb_idl_table_class *class = row->table->class;
585     size_t i;
586
587     for (i = 0; i < class->n_columns; i++) {
588         const struct ovsdb_idl_column *c = &class->columns[i];
589         (c->parse)(row, &row->old[i]);
590     }
591 }
592
593 static void
594 ovsdb_idl_row_unparse(struct ovsdb_idl_row *row)
595 {
596     const struct ovsdb_idl_table_class *class = row->table->class;
597     size_t i;
598
599     for (i = 0; i < class->n_columns; i++) {
600         const struct ovsdb_idl_column *c = &class->columns[i];
601         (c->unparse)(row);
602     }
603 }
604
605 static void
606 ovsdb_idl_row_clear_old(struct ovsdb_idl_row *row)
607 {
608     assert(row->old == row->new);
609     if (!ovsdb_idl_row_is_orphan(row)) {
610         const struct ovsdb_idl_table_class *class = row->table->class;
611         size_t i;
612
613         for (i = 0; i < class->n_columns; i++) {
614             ovsdb_datum_destroy(&row->old[i], &class->columns[i].type);
615         }
616         free(row->old);
617         row->old = row->new = NULL;
618     }
619 }
620
621 static void
622 ovsdb_idl_row_clear_new(struct ovsdb_idl_row *row)
623 {
624     if (row->old != row->new) {
625         if (row->new) {
626             const struct ovsdb_idl_table_class *class = row->table->class;
627             size_t i;
628
629             BITMAP_FOR_EACH_1 (i, class->n_columns, row->written) {
630                 ovsdb_datum_destroy(&row->new[i], &class->columns[i].type);
631             }
632             free(row->new);
633             free(row->written);
634             row->written = NULL;
635         }
636         row->new = row->old;
637     }
638 }
639
640 static void
641 ovsdb_idl_row_clear_arcs(struct ovsdb_idl_row *row, bool destroy_dsts)
642 {
643     struct ovsdb_idl_arc *arc, *next;
644
645     /* Delete all forward arcs.  If 'destroy_dsts', destroy any orphaned rows
646      * that this causes to be unreferenced. */
647     LIST_FOR_EACH_SAFE (arc, next, struct ovsdb_idl_arc, src_node,
648                         &row->src_arcs) {
649         list_remove(&arc->dst_node);
650         if (destroy_dsts
651             && ovsdb_idl_row_is_orphan(arc->dst)
652             && list_is_empty(&arc->dst->dst_arcs)) {
653             ovsdb_idl_row_destroy(arc->dst);
654         }
655         free(arc);
656     }
657     list_init(&row->src_arcs);
658 }
659
660 /* Force nodes that reference 'row' to reparse. */
661 static void
662 ovsdb_idl_row_reparse_backrefs(struct ovsdb_idl_row *row)
663 {
664     struct ovsdb_idl_arc *arc, *next;
665
666     /* This is trickier than it looks.  ovsdb_idl_row_clear_arcs() will destroy
667      * 'arc', so we need to use the "safe" variant of list traversal.  However,
668      * calling an ovsdb_idl_column's 'parse' function will add an arc
669      * equivalent to 'arc' to row->arcs.  That could be a problem for
670      * traversal, but it adds it at the beginning of the list to prevent us
671      * from stumbling upon it again.
672      *
673      * (If duplicate arcs were possible then we would need to make sure that
674      * 'next' didn't also point into 'arc''s destination, but we forbid
675      * duplicate arcs.) */
676     LIST_FOR_EACH_SAFE (arc, next, struct ovsdb_idl_arc, dst_node,
677                         &row->dst_arcs) {
678         struct ovsdb_idl_row *ref = arc->src;
679
680         ovsdb_idl_row_unparse(ref);
681         ovsdb_idl_row_clear_arcs(ref, false);
682         ovsdb_idl_row_parse(ref);
683     }
684 }
685
686 static struct ovsdb_idl_row *
687 ovsdb_idl_row_create__(const struct ovsdb_idl_table_class *class)
688 {
689     struct ovsdb_idl_row *row = xzalloc(class->allocation_size);
690     list_init(&row->src_arcs);
691     list_init(&row->dst_arcs);
692     hmap_node_nullify(&row->txn_node);
693     return row;
694 }
695
696 static struct ovsdb_idl_row *
697 ovsdb_idl_row_create(struct ovsdb_idl_table *table, const struct uuid *uuid)
698 {
699     struct ovsdb_idl_row *row = ovsdb_idl_row_create__(table->class);
700     hmap_insert(&table->rows, &row->hmap_node, uuid_hash(uuid));
701     row->uuid = *uuid;
702     row->table = table;
703     return row;
704 }
705
706 static void
707 ovsdb_idl_row_destroy(struct ovsdb_idl_row *row)
708 {
709     if (row) {
710         ovsdb_idl_row_clear_old(row);
711         hmap_remove(&row->table->rows, &row->hmap_node);
712         free(row);
713     }
714 }
715
716 static void
717 ovsdb_idl_insert_row(struct ovsdb_idl_row *row, const struct json *row_json)
718 {
719     const struct ovsdb_idl_table_class *class = row->table->class;
720     size_t i;
721
722     assert(!row->old && !row->new);
723     row->old = row->new = xmalloc(class->n_columns * sizeof *row->old);
724     for (i = 0; i < class->n_columns; i++) {
725         ovsdb_datum_init_default(&row->old[i], &class->columns[i].type);
726     }
727     ovsdb_idl_row_update(row, row_json);
728     ovsdb_idl_row_parse(row);
729
730     ovsdb_idl_row_reparse_backrefs(row);
731 }
732
733 static void
734 ovsdb_idl_delete_row(struct ovsdb_idl_row *row)
735 {
736     ovsdb_idl_row_unparse(row);
737     ovsdb_idl_row_clear_arcs(row, true);
738     ovsdb_idl_row_clear_old(row);
739     if (list_is_empty(&row->dst_arcs)) {
740         ovsdb_idl_row_destroy(row);
741     } else {
742         ovsdb_idl_row_reparse_backrefs(row);
743     }
744 }
745
746 static void
747 ovsdb_idl_modify_row(struct ovsdb_idl_row *row, const struct json *row_json)
748 {
749     ovsdb_idl_row_unparse(row);
750     ovsdb_idl_row_clear_arcs(row, true);
751     ovsdb_idl_row_update(row, row_json);
752     ovsdb_idl_row_parse(row);
753 }
754
755 static bool
756 may_add_arc(const struct ovsdb_idl_row *src, const struct ovsdb_idl_row *dst)
757 {
758     const struct ovsdb_idl_arc *arc;
759
760     /* No self-arcs. */
761     if (src == dst) {
762         return false;
763     }
764
765     /* No duplicate arcs.
766      *
767      * We only need to test whether the first arc in dst->dst_arcs originates
768      * at 'src', since we add all of the arcs from a given source in a clump
769      * (in a single call to ovsdb_idl_row_parse()) and new arcs are always
770      * added at the front of the dst_arcs list. */
771     if (list_is_empty(&dst->dst_arcs)) {
772         return true;
773     }
774     arc = CONTAINER_OF(dst->dst_arcs.next, struct ovsdb_idl_arc, dst_node);
775     return arc->src != src;
776 }
777
778 static struct ovsdb_idl_table *
779 ovsdb_idl_table_from_class(const struct ovsdb_idl *idl,
780                            const struct ovsdb_idl_table_class *table_class)
781 {
782     return &idl->tables[table_class - idl->class->tables];
783 }
784
785 struct ovsdb_idl_row *
786 ovsdb_idl_get_row_arc(struct ovsdb_idl_row *src,
787                       struct ovsdb_idl_table_class *dst_table_class,
788                       const struct uuid *dst_uuid)
789 {
790     struct ovsdb_idl *idl = src->table->idl;
791     struct ovsdb_idl_table *dst_table;
792     struct ovsdb_idl_arc *arc;
793     struct ovsdb_idl_row *dst;
794
795     dst_table = ovsdb_idl_table_from_class(idl, dst_table_class);
796     dst = ovsdb_idl_get_row(dst_table, dst_uuid);
797     if (idl->txn) {
798         /* We're being called from ovsdb_idl_txn_write().  We must not update
799          * any arcs, because the transaction will be backed out at commit or
800          * abort time and we don't want our graph screwed up.
801          *
802          * Just return the destination row, if there is one and it has not been
803          * deleted. */
804         if (dst && (hmap_node_is_null(&dst->txn_node) || dst->new)) {
805             return dst;
806         }
807         return NULL;
808     } else {
809         /* We're being called from some other context.  Update the graph. */
810         if (!dst) {
811             dst = ovsdb_idl_row_create(dst_table, dst_uuid);
812         }
813
814         /* Add a new arc, if it wouldn't be a self-arc or a duplicate arc. */
815         if (may_add_arc(src, dst)) {
816             /* The arc *must* be added at the front of the dst_arcs list.  See
817              * ovsdb_idl_row_reparse_backrefs() for details. */
818             arc = xmalloc(sizeof *arc);
819             list_push_front(&src->src_arcs, &arc->src_node);
820             list_push_front(&dst->dst_arcs, &arc->dst_node);
821             arc->src = src;
822             arc->dst = dst;
823         }
824
825         return !ovsdb_idl_row_is_orphan(dst) ? dst : NULL;
826     }
827 }
828
829 const struct ovsdb_idl_row *
830 ovsdb_idl_get_row_for_uuid(const struct ovsdb_idl *idl,
831                            const struct ovsdb_idl_table_class *tc,
832                            const struct uuid *uuid)
833 {
834     return ovsdb_idl_get_row(ovsdb_idl_table_from_class(idl, tc), uuid);
835 }
836
837 static struct ovsdb_idl_row *
838 next_real_row(struct ovsdb_idl_table *table, struct hmap_node *node)
839 {
840     for (; node; node = hmap_next(&table->rows, node)) {
841         struct ovsdb_idl_row *row;
842
843         row = CONTAINER_OF(node, struct ovsdb_idl_row, hmap_node);
844         if (ovsdb_idl_row_exists(row)) {
845             return row;
846         }
847     }
848     return NULL;
849 }
850
851 const struct ovsdb_idl_row *
852 ovsdb_idl_first_row(const struct ovsdb_idl *idl,
853                     const struct ovsdb_idl_table_class *table_class)
854 {
855     struct ovsdb_idl_table *table
856         = ovsdb_idl_table_from_class(idl, table_class);
857     return next_real_row(table, hmap_first(&table->rows));
858 }
859
860 const struct ovsdb_idl_row *
861 ovsdb_idl_next_row(const struct ovsdb_idl_row *row)
862 {
863     struct ovsdb_idl_table *table = row->table;
864
865     return next_real_row(table, hmap_next(&table->rows, &row->hmap_node));
866 }
867 \f
868 /* Transactions. */
869
870 static void ovsdb_idl_txn_complete(struct ovsdb_idl_txn *txn,
871                                    enum ovsdb_idl_txn_status);
872
873 const char *
874 ovsdb_idl_txn_status_to_string(enum ovsdb_idl_txn_status status)
875 {
876     switch (status) {
877     case TXN_UNCHANGED:
878         return "unchanged";
879     case TXN_INCOMPLETE:
880         return "incomplete";
881     case TXN_ABORTED:
882         return "aborted";
883     case TXN_SUCCESS:
884         return "success";
885     case TXN_TRY_AGAIN:
886         return "try again";
887     case TXN_ERROR:
888         return "error";
889     }
890     return "<unknown>";
891 }
892
893 struct ovsdb_idl_txn *
894 ovsdb_idl_txn_create(struct ovsdb_idl *idl)
895 {
896     struct ovsdb_idl_txn *txn;
897
898     assert(!idl->txn);
899     idl->txn = txn = xmalloc(sizeof *txn);
900     txn->request_id = NULL;
901     txn->idl = idl;
902     hmap_init(&txn->txn_rows);
903     txn->status = TXN_INCOMPLETE;
904     txn->error = NULL;
905     txn->dry_run = false;
906     ds_init(&txn->comment);
907
908     txn->inc_table = NULL;
909     txn->inc_column = NULL;
910     txn->inc_where = NULL;
911
912     hmap_init(&txn->inserted_rows);
913
914     return txn;
915 }
916
917 /* Appends 's', which is treated as a printf()-type format string, to the
918  * comments that will be passed to the OVSDB server when 'txn' is committed.
919  * (The comment will be committed to the OVSDB log, which "ovsdb-tool
920  * show-log" can print in a relatively human-readable form.) */
921 void
922 ovsdb_idl_txn_add_comment(struct ovsdb_idl_txn *txn, const char *s, ...)
923 {
924     va_list args;
925
926     if (txn->comment.length) {
927         ds_put_char(&txn->comment, '\n');
928     }
929
930     va_start(args, s);
931     ds_put_format_valist(&txn->comment, s, args);
932     va_end(args);
933 }
934
935 void
936 ovsdb_idl_txn_set_dry_run(struct ovsdb_idl_txn *txn)
937 {
938     txn->dry_run = true;
939 }
940
941 void
942 ovsdb_idl_txn_increment(struct ovsdb_idl_txn *txn, const char *table,
943                         const char *column, const struct json *where)
944 {
945     assert(!txn->inc_table);
946     txn->inc_table = xstrdup(table);
947     txn->inc_column = xstrdup(column);
948     txn->inc_where = where ? json_clone(where) : json_array_create_empty();
949 }
950
951 void
952 ovsdb_idl_txn_destroy(struct ovsdb_idl_txn *txn)
953 {
954     struct ovsdb_idl_txn_insert *insert, *next;
955
956     json_destroy(txn->request_id);
957     if (txn->status == TXN_INCOMPLETE) {
958         hmap_remove(&txn->idl->outstanding_txns, &txn->hmap_node);
959     }
960     ovsdb_idl_txn_abort(txn);
961     ds_destroy(&txn->comment);
962     free(txn->error);
963     free(txn->inc_table);
964     free(txn->inc_column);
965     json_destroy(txn->inc_where);
966     HMAP_FOR_EACH_SAFE (insert, next, struct ovsdb_idl_txn_insert, hmap_node,
967                         &txn->inserted_rows) {
968         free(insert);
969     }
970     hmap_destroy(&txn->inserted_rows);
971     free(txn);
972 }
973
974 void
975 ovsdb_idl_txn_wait(const struct ovsdb_idl_txn *txn)
976 {
977     if (txn->status != TXN_INCOMPLETE) {
978         poll_immediate_wake();
979     }
980 }
981
982 static struct json *
983 where_uuid_equals(const struct uuid *uuid)
984 {
985     return
986         json_array_create_1(
987             json_array_create_3(
988                 json_string_create("_uuid"),
989                 json_string_create("=="),
990                 json_array_create_2(
991                     json_string_create("uuid"),
992                     json_string_create_nocopy(
993                         xasprintf(UUID_FMT, UUID_ARGS(uuid))))));
994 }
995
996 static char *
997 uuid_name_from_uuid(const struct uuid *uuid)
998 {
999     char *name;
1000     char *p;
1001
1002     name = xasprintf("row"UUID_FMT, UUID_ARGS(uuid));
1003     for (p = name; *p != '\0'; p++) {
1004         if (*p == '-') {
1005             *p = '_';
1006         }
1007     }
1008
1009     return name;
1010 }
1011
1012 static const struct ovsdb_idl_row *
1013 ovsdb_idl_txn_get_row(const struct ovsdb_idl_txn *txn, const struct uuid *uuid)
1014 {
1015     const struct ovsdb_idl_row *row;
1016
1017     HMAP_FOR_EACH_WITH_HASH (row, struct ovsdb_idl_row, txn_node,
1018                              uuid_hash(uuid), &txn->txn_rows) {
1019         if (uuid_equals(&row->uuid, uuid)) {
1020             return row;
1021         }
1022     }
1023     return NULL;
1024 }
1025
1026 /* XXX there must be a cleaner way to do this */
1027 static struct json *
1028 substitute_uuids(struct json *json, const struct ovsdb_idl_txn *txn)
1029 {
1030     if (json->type == JSON_ARRAY) {
1031         struct uuid uuid;
1032         size_t i;
1033
1034         if (json->u.array.n == 2
1035             && json->u.array.elems[0]->type == JSON_STRING
1036             && json->u.array.elems[1]->type == JSON_STRING
1037             && !strcmp(json->u.array.elems[0]->u.string, "uuid")
1038             && uuid_from_string(&uuid, json->u.array.elems[1]->u.string)) {
1039             const struct ovsdb_idl_row *row;
1040
1041             row = ovsdb_idl_txn_get_row(txn, &uuid);
1042             if (row && !row->old && row->new) {
1043                 json_destroy(json);
1044
1045                 return json_array_create_2(
1046                     json_string_create("named-uuid"),
1047                     json_string_create_nocopy(uuid_name_from_uuid(&uuid)));
1048             }
1049         }
1050
1051         for (i = 0; i < json->u.array.n; i++) {
1052             json->u.array.elems[i] = substitute_uuids(json->u.array.elems[i],
1053                                                       txn);
1054         }
1055     } else if (json->type == JSON_OBJECT) {
1056         struct shash_node *node;
1057
1058         SHASH_FOR_EACH (node, json_object(json)) {
1059             node->data = substitute_uuids(node->data, txn);
1060         }
1061     }
1062     return json;
1063 }
1064
1065 static void
1066 ovsdb_idl_txn_disassemble(struct ovsdb_idl_txn *txn)
1067 {
1068     struct ovsdb_idl_row *row, *next;
1069
1070     /* This must happen early.  Otherwise, ovsdb_idl_row_parse() will call an
1071      * ovsdb_idl_column's 'parse' function, which will call
1072      * ovsdb_idl_get_row_arc(), which will seen that the IDL is in a
1073      * transaction and fail to update the graph.  */
1074     txn->idl->txn = NULL;
1075
1076     HMAP_FOR_EACH_SAFE (row, next, struct ovsdb_idl_row, txn_node,
1077                         &txn->txn_rows) {
1078         if (row->old) {
1079             if (row->written) {
1080                 ovsdb_idl_row_unparse(row);
1081                 ovsdb_idl_row_clear_arcs(row, false);
1082                 ovsdb_idl_row_parse(row);
1083             }
1084         } else {
1085             ovsdb_idl_row_unparse(row);
1086         }
1087         ovsdb_idl_row_clear_new(row);
1088
1089         free(row->prereqs);
1090         row->prereqs = NULL;
1091
1092         free(row->written);
1093         row->written = NULL;
1094
1095         hmap_remove(&txn->txn_rows, &row->txn_node);
1096         hmap_node_nullify(&row->txn_node);
1097         if (!row->old) {
1098             hmap_remove(&row->table->rows, &row->hmap_node);
1099             free(row);
1100         }
1101     }
1102     hmap_destroy(&txn->txn_rows);
1103     hmap_init(&txn->txn_rows);
1104 }
1105
1106 enum ovsdb_idl_txn_status
1107 ovsdb_idl_txn_commit(struct ovsdb_idl_txn *txn)
1108 {
1109     struct ovsdb_idl_row *row;
1110     struct json *operations;
1111     bool any_updates;
1112
1113     if (txn != txn->idl->txn) {
1114         return txn->status;
1115     }
1116
1117     operations = json_array_create_1(
1118         json_string_create(txn->idl->class->database));
1119
1120     /* Add prerequisites and declarations of new rows. */
1121     HMAP_FOR_EACH (row, struct ovsdb_idl_row, txn_node, &txn->txn_rows) {
1122         /* XXX check that deleted rows exist even if no prereqs? */
1123         if (row->prereqs) {
1124             const struct ovsdb_idl_table_class *class = row->table->class;
1125             size_t n_columns = class->n_columns;
1126             struct json *op, *columns, *row_json;
1127             size_t idx;
1128
1129             op = json_object_create();
1130             json_array_add(operations, op);
1131             json_object_put_string(op, "op", "wait");
1132             json_object_put_string(op, "table", class->name);
1133             json_object_put(op, "timeout", json_integer_create(0));
1134             json_object_put(op, "where", where_uuid_equals(&row->uuid));
1135             json_object_put_string(op, "until", "==");
1136             columns = json_array_create_empty();
1137             json_object_put(op, "columns", columns);
1138             row_json = json_object_create();
1139             json_object_put(op, "rows", json_array_create_1(row_json));
1140
1141             BITMAP_FOR_EACH_1 (idx, n_columns, row->prereqs) {
1142                 const struct ovsdb_idl_column *column = &class->columns[idx];
1143                 json_array_add(columns, json_string_create(column->name));
1144                 json_object_put(row_json, column->name,
1145                                 ovsdb_datum_to_json(&row->old[idx],
1146                                                     &column->type));
1147             }
1148         }
1149     }
1150
1151     /* Add updates. */
1152     any_updates = false;
1153     HMAP_FOR_EACH (row, struct ovsdb_idl_row, txn_node, &txn->txn_rows) {
1154         const struct ovsdb_idl_table_class *class = row->table->class;
1155
1156         if (row->old == row->new) {
1157             continue;
1158         } else if (!row->new) {
1159             struct json *op = json_object_create();
1160             json_object_put_string(op, "op", "delete");
1161             json_object_put_string(op, "table", class->name);
1162             json_object_put(op, "where", where_uuid_equals(&row->uuid));
1163             json_array_add(operations, op);
1164             any_updates = true;
1165         } else {
1166             struct json *row_json;
1167             struct json *op;
1168             size_t idx;
1169
1170             op = json_object_create();
1171             json_object_put_string(op, "op", row->old ? "update" : "insert");
1172             json_object_put_string(op, "table", class->name);
1173             if (row->old) {
1174                 json_object_put(op, "where", where_uuid_equals(&row->uuid));
1175             } else {
1176                 struct ovsdb_idl_txn_insert *insert;
1177
1178                 json_object_put(op, "uuid-name",
1179                                 json_string_create_nocopy(
1180                                     uuid_name_from_uuid(&row->uuid)));
1181
1182                 insert = xmalloc(sizeof *insert);
1183                 insert->dummy = row->uuid;
1184                 insert->op_index = operations->u.array.n - 1;
1185                 uuid_zero(&insert->real);
1186                 hmap_insert(&txn->inserted_rows, &insert->hmap_node,
1187                             uuid_hash(&insert->dummy));
1188             }
1189             row_json = json_object_create();
1190             json_object_put(op, "row", row_json);
1191
1192             BITMAP_FOR_EACH_1 (idx, class->n_columns, row->written) {
1193                 const struct ovsdb_idl_column *column = &class->columns[idx];
1194
1195                 if (row->old
1196                     ? !ovsdb_datum_equals(&row->old[idx], &row->new[idx],
1197                                           &column->type)
1198                     : !ovsdb_datum_is_default(&row->new[idx], &column->type)) {
1199                     json_object_put(row_json, column->name,
1200                                     substitute_uuids(
1201                                         ovsdb_datum_to_json(&row->new[idx],
1202                                                             &column->type),
1203                                         txn));
1204                 }
1205             }
1206
1207             if (!row->old || !shash_is_empty(json_object(row_json))) {
1208                 json_array_add(operations, op);
1209                 any_updates = true;
1210             } else {
1211                 json_destroy(op);
1212             }
1213         }
1214     }
1215
1216     /* Add increment. */
1217     if (txn->inc_table && any_updates) {
1218         struct json *op;
1219
1220         txn->inc_index = operations->u.array.n - 1;
1221
1222         op = json_object_create();
1223         json_object_put_string(op, "op", "mutate");
1224         json_object_put_string(op, "table", txn->inc_table);
1225         json_object_put(op, "where",
1226                         substitute_uuids(json_clone(txn->inc_where), txn));
1227         json_object_put(op, "mutations",
1228                         json_array_create_1(
1229                             json_array_create_3(
1230                                 json_string_create(txn->inc_column),
1231                                 json_string_create("+="),
1232                                 json_integer_create(1))));
1233         json_array_add(operations, op);
1234
1235         op = json_object_create();
1236         json_object_put_string(op, "op", "select");
1237         json_object_put_string(op, "table", txn->inc_table);
1238         json_object_put(op, "where",
1239                         substitute_uuids(json_clone(txn->inc_where), txn));
1240         json_object_put(op, "columns",
1241                         json_array_create_1(json_string_create(
1242                                                 txn->inc_column)));
1243         json_array_add(operations, op);
1244     }
1245
1246     if (txn->comment.length) {
1247         struct json *op = json_object_create();
1248         json_object_put_string(op, "op", "comment");
1249         json_object_put_string(op, "comment", ds_cstr(&txn->comment));
1250         json_array_add(operations, op);
1251     }
1252
1253     if (txn->dry_run) {
1254         struct json *op = json_object_create();
1255         json_object_put_string(op, "op", "abort");
1256         json_array_add(operations, op);
1257     }
1258
1259     if (!any_updates) {
1260         txn->status = TXN_UNCHANGED;
1261         json_destroy(operations);
1262     } else if (!jsonrpc_session_send(
1263                    txn->idl->session,
1264                    jsonrpc_create_request(
1265                        "transact", operations, &txn->request_id))) {
1266         hmap_insert(&txn->idl->outstanding_txns, &txn->hmap_node,
1267                     json_hash(txn->request_id, 0));
1268     } else {
1269         txn->status = TXN_TRY_AGAIN;
1270     }
1271
1272     ovsdb_idl_txn_disassemble(txn);
1273     return txn->status;
1274 }
1275
1276 /* Attempts to commit 'txn', blocking until the commit either succeeds or
1277  * fails.  Returns the final commit status, which may be any TXN_* value other
1278  * than TXN_INCOMPLETE. */
1279 enum ovsdb_idl_txn_status
1280 ovsdb_idl_txn_commit_block(struct ovsdb_idl_txn *txn)
1281 {
1282     enum ovsdb_idl_txn_status status;
1283
1284     while ((status = ovsdb_idl_txn_commit(txn)) == TXN_INCOMPLETE) {
1285         ovsdb_idl_run(txn->idl);
1286         ovsdb_idl_wait(txn->idl);
1287         ovsdb_idl_txn_wait(txn);
1288         poll_block();
1289     }
1290     return status;
1291 }
1292
1293 int64_t
1294 ovsdb_idl_txn_get_increment_new_value(const struct ovsdb_idl_txn *txn)
1295 {
1296     assert(txn->status == TXN_SUCCESS);
1297     return txn->inc_new_value;
1298 }
1299
1300 void
1301 ovsdb_idl_txn_abort(struct ovsdb_idl_txn *txn)
1302 {
1303     ovsdb_idl_txn_disassemble(txn);
1304     if (txn->status == TXN_INCOMPLETE) {
1305         txn->status = TXN_ABORTED;
1306     }
1307 }
1308
1309 const char *
1310 ovsdb_idl_txn_get_error(const struct ovsdb_idl_txn *txn)
1311 {
1312     if (txn->status != TXN_ERROR) {
1313         return ovsdb_idl_txn_status_to_string(txn->status);
1314     } else if (txn->error) {
1315         return txn->error;
1316     } else {
1317         return "no error details available";
1318     }
1319 }
1320
1321 static void
1322 ovsdb_idl_txn_set_error_json(struct ovsdb_idl_txn *txn,
1323                              const struct json *json)
1324 {
1325     if (txn->error == NULL) {
1326         txn->error = json_to_string(json, JSSF_SORT);
1327     }
1328 }
1329
1330 /* For transaction 'txn' that completed successfully, finds and returns the
1331  * permanent UUID that the database assigned to a newly inserted row, given the
1332  * 'uuid' that ovsdb_idl_txn_insert() assigned locally to that row.
1333  *
1334  * Returns NULL if 'uuid' is not a UUID assigned by ovsdb_idl_txn_insert() or
1335  * if it was assigned by that function and then deleted by
1336  * ovsdb_idl_txn_delete() within the same transaction.  (Rows that are inserted
1337  * and then deleted within a single transaction are never sent to the database
1338  * server, so it never assigns them a permanent UUID.) */
1339 const struct uuid *
1340 ovsdb_idl_txn_get_insert_uuid(const struct ovsdb_idl_txn *txn,
1341                               const struct uuid *uuid)
1342 {
1343     const struct ovsdb_idl_txn_insert *insert;
1344
1345     assert(txn->status == TXN_SUCCESS || txn->status == TXN_UNCHANGED);
1346     HMAP_FOR_EACH_IN_BUCKET (insert, struct ovsdb_idl_txn_insert, hmap_node,
1347                              uuid_hash(uuid), &txn->inserted_rows) {
1348         if (uuid_equals(uuid, &insert->dummy)) {
1349             return &insert->real;
1350         }
1351     }
1352     return NULL;
1353 }
1354
1355 static void
1356 ovsdb_idl_txn_complete(struct ovsdb_idl_txn *txn,
1357                        enum ovsdb_idl_txn_status status)
1358 {
1359     txn->status = status;
1360     hmap_remove(&txn->idl->outstanding_txns, &txn->hmap_node);
1361 }
1362
1363 void
1364 ovsdb_idl_txn_read(const struct ovsdb_idl_row *row,
1365                    const struct ovsdb_idl_column *column,
1366                    struct ovsdb_datum *datum)
1367 {
1368     const struct ovsdb_idl_table_class *class = row->table->class;
1369     size_t column_idx = column - class->columns;
1370
1371     assert(row->new != NULL);
1372     if (row->written && bitmap_is_set(row->written, column_idx)) {
1373         ovsdb_datum_clone(datum, &row->new[column_idx], &column->type);
1374     } else if (row->old) {
1375         ovsdb_datum_clone(datum, &row->old[column_idx], &column->type);
1376     } else {
1377         ovsdb_datum_init_default(datum, &column->type);
1378     }
1379 }
1380
1381 void
1382 ovsdb_idl_txn_write(const struct ovsdb_idl_row *row_,
1383                     const struct ovsdb_idl_column *column,
1384                     struct ovsdb_datum *datum)
1385 {
1386     struct ovsdb_idl_row *row = (struct ovsdb_idl_row *) row_;
1387     const struct ovsdb_idl_table_class *class = row->table->class;
1388     size_t column_idx = column - class->columns;
1389
1390     assert(row->new != NULL);
1391     assert(column_idx < class->n_columns);
1392     if (hmap_node_is_null(&row->txn_node)) {
1393         hmap_insert(&row->table->idl->txn->txn_rows, &row->txn_node,
1394                     uuid_hash(&row->uuid));
1395     }
1396     if (row->old == row->new) {
1397         row->new = xmalloc(class->n_columns * sizeof *row->new);
1398     }
1399     if (!row->written) {
1400         row->written = bitmap_allocate(class->n_columns);
1401     }
1402     if (bitmap_is_set(row->written, column_idx)) {
1403         ovsdb_datum_destroy(&row->new[column_idx], &column->type);
1404     } else {
1405         bitmap_set1(row->written, column_idx);
1406     }
1407     row->new[column_idx] = *datum;
1408     (column->unparse)(row);
1409     (column->parse)(row, &row->new[column_idx]);
1410 }
1411
1412 void
1413 ovsdb_idl_txn_verify(const struct ovsdb_idl_row *row_,
1414                      const struct ovsdb_idl_column *column)
1415 {
1416     struct ovsdb_idl_row *row = (struct ovsdb_idl_row *) row_;
1417     const struct ovsdb_idl_table_class *class = row->table->class;
1418     size_t column_idx = column - class->columns;
1419
1420     assert(row->new != NULL);
1421     if (!row->old
1422         || (row->written && bitmap_is_set(row->written, column_idx))) {
1423         return;
1424     }
1425
1426     if (hmap_node_is_null(&row->txn_node)) {
1427         hmap_insert(&row->table->idl->txn->txn_rows, &row->txn_node,
1428                     uuid_hash(&row->uuid));
1429     }
1430     if (!row->prereqs) {
1431         row->prereqs = bitmap_allocate(class->n_columns);
1432     }
1433     bitmap_set1(row->prereqs, column_idx);
1434 }
1435
1436 void
1437 ovsdb_idl_txn_delete(const struct ovsdb_idl_row *row_)
1438 {
1439     struct ovsdb_idl_row *row = (struct ovsdb_idl_row *) row_;
1440
1441     assert(row->new != NULL);
1442     if (!row->old) {
1443         ovsdb_idl_row_unparse(row);
1444         ovsdb_idl_row_clear_new(row);
1445         assert(!row->prereqs);
1446         hmap_remove(&row->table->rows, &row->hmap_node);
1447         hmap_remove(&row->table->idl->txn->txn_rows, &row->txn_node);
1448         free(row);
1449         return;
1450     }
1451     if (hmap_node_is_null(&row->txn_node)) {
1452         hmap_insert(&row->table->idl->txn->txn_rows, &row->txn_node,
1453                     uuid_hash(&row->uuid));
1454     }
1455     ovsdb_idl_row_clear_new(row);
1456     row->new = NULL;
1457 }
1458
1459 const struct ovsdb_idl_row *
1460 ovsdb_idl_txn_insert(struct ovsdb_idl_txn *txn,
1461                      const struct ovsdb_idl_table_class *class)
1462 {
1463     struct ovsdb_idl_row *row = ovsdb_idl_row_create__(class);
1464     uuid_generate(&row->uuid);
1465     row->table = ovsdb_idl_table_from_class(txn->idl, class);
1466     row->new = xmalloc(class->n_columns * sizeof *row->new);
1467     row->written = bitmap_allocate(class->n_columns);
1468     hmap_insert(&row->table->rows, &row->hmap_node, uuid_hash(&row->uuid));
1469     hmap_insert(&txn->txn_rows, &row->txn_node, uuid_hash(&row->uuid));
1470     return row;
1471 }
1472
1473 static void
1474 ovsdb_idl_txn_abort_all(struct ovsdb_idl *idl)
1475 {
1476     struct ovsdb_idl_txn *txn;
1477
1478     HMAP_FOR_EACH (txn, struct ovsdb_idl_txn, hmap_node,
1479                    &idl->outstanding_txns) {
1480         ovsdb_idl_txn_complete(txn, TXN_TRY_AGAIN);
1481     }
1482 }
1483
1484 static struct ovsdb_idl_txn *
1485 ovsdb_idl_txn_find(struct ovsdb_idl *idl, const struct json *id)
1486 {
1487     struct ovsdb_idl_txn *txn;
1488
1489     HMAP_FOR_EACH_WITH_HASH (txn, struct ovsdb_idl_txn, hmap_node,
1490                              json_hash(id, 0), &idl->outstanding_txns) {
1491         if (json_equal(id, txn->request_id)) {
1492             return txn;
1493         }
1494     }
1495     return NULL;
1496 }
1497
1498 static bool
1499 check_json_type(const struct json *json, enum json_type type, const char *name)
1500 {
1501     if (!json) {
1502         VLOG_WARN_RL(&syntax_rl, "%s is missing", name);
1503         return false;
1504     } else if (json->type != type) {
1505         VLOG_WARN_RL(&syntax_rl, "%s is %s instead of %s",
1506                      name, json_type_to_string(json->type),
1507                      json_type_to_string(type));
1508         return false;
1509     } else {
1510         return true;
1511     }
1512 }
1513
1514 static bool
1515 ovsdb_idl_txn_process_inc_reply(struct ovsdb_idl_txn *txn,
1516                                 const struct json_array *results)
1517 {
1518     struct json *count, *rows, *row, *column;
1519     struct shash *mutate, *select;
1520
1521     if (txn->inc_index + 2 > results->n) {
1522         VLOG_WARN_RL(&syntax_rl, "reply does not contain enough operations "
1523                      "for increment (has %u, needs %u)",
1524                      results->n, txn->inc_index + 2);
1525         return false;
1526     }
1527
1528     /* We know that this is a JSON object because the loop in
1529      * ovsdb_idl_txn_process_reply() checked. */
1530     mutate = json_object(results->elems[txn->inc_index]);
1531     count = shash_find_data(mutate, "count");
1532     if (!check_json_type(count, JSON_INTEGER, "\"mutate\" reply \"count\"")) {
1533         return false;
1534     }
1535     if (count->u.integer != 1) {
1536         VLOG_WARN_RL(&syntax_rl,
1537                      "\"mutate\" reply \"count\" is %"PRId64" instead of 1",
1538                      count->u.integer);
1539         return false;
1540     }
1541
1542     select = json_object(results->elems[txn->inc_index + 1]);
1543     rows = shash_find_data(select, "rows");
1544     if (!check_json_type(rows, JSON_ARRAY, "\"select\" reply \"rows\"")) {
1545         return false;
1546     }
1547     if (rows->u.array.n != 1) {
1548         VLOG_WARN_RL(&syntax_rl, "\"select\" reply \"rows\" has %u elements "
1549                      "instead of 1",
1550                      rows->u.array.n);
1551         return false;
1552     }
1553     row = rows->u.array.elems[0];
1554     if (!check_json_type(row, JSON_OBJECT, "\"select\" reply row")) {
1555         return false;
1556     }
1557     column = shash_find_data(json_object(row), txn->inc_column);
1558     if (!check_json_type(column, JSON_INTEGER,
1559                          "\"select\" reply inc column")) {
1560         return false;
1561     }
1562     txn->inc_new_value = column->u.integer;
1563     return true;
1564 }
1565
1566 static bool
1567 ovsdb_idl_txn_process_insert_reply(struct ovsdb_idl_txn_insert *insert,
1568                                    const struct json_array *results)
1569 {
1570     static const struct ovsdb_base_type uuid_type = OVSDB_BASE_UUID_INIT;
1571     struct ovsdb_error *error;
1572     struct json *json_uuid;
1573     union ovsdb_atom uuid;
1574     struct shash *reply;
1575
1576     if (insert->op_index >= results->n) {
1577         VLOG_WARN_RL(&syntax_rl, "reply does not contain enough operations "
1578                      "for insert (has %u, needs %u)",
1579                      results->n, insert->op_index);
1580         return false;
1581     }
1582
1583     /* We know that this is a JSON object because the loop in
1584      * ovsdb_idl_txn_process_reply() checked. */
1585     reply = json_object(results->elems[insert->op_index]);
1586     json_uuid = shash_find_data(reply, "uuid");
1587     if (!check_json_type(json_uuid, JSON_ARRAY, "\"insert\" reply \"uuid\"")) {
1588         return false;
1589     }
1590
1591     error = ovsdb_atom_from_json(&uuid, &uuid_type, json_uuid, NULL);
1592     if (error) {
1593         char *s = ovsdb_error_to_string(error);
1594         VLOG_WARN_RL(&syntax_rl, "\"insert\" reply \"uuid\" is not a JSON "
1595                      "UUID: %s", s);
1596         free(s);
1597         return false;
1598     }
1599
1600     insert->real = uuid.uuid;
1601
1602     return true;
1603 }
1604
1605 static bool
1606 ovsdb_idl_txn_process_reply(struct ovsdb_idl *idl,
1607                             const struct jsonrpc_msg *msg)
1608 {
1609     struct ovsdb_idl_txn *txn;
1610     enum ovsdb_idl_txn_status status;
1611
1612     txn = ovsdb_idl_txn_find(idl, msg->id);
1613     if (!txn) {
1614         return false;
1615     }
1616
1617     if (msg->type == JSONRPC_ERROR) {
1618         status = TXN_ERROR;
1619     } else if (msg->result->type != JSON_ARRAY) {
1620         VLOG_WARN_RL(&syntax_rl, "reply to \"transact\" is not JSON array");
1621         status = TXN_ERROR;
1622     } else {
1623         struct json_array *ops = &msg->result->u.array;
1624         int hard_errors = 0;
1625         int soft_errors = 0;
1626         size_t i;
1627
1628         for (i = 0; i < ops->n; i++) {
1629             struct json *op = ops->elems[i];
1630
1631             if (op->type == JSON_NULL) {
1632                 /* This isn't an error in itself but indicates that some prior
1633                  * operation failed, so make sure that we know about it. */
1634                 soft_errors++;
1635             } else if (op->type == JSON_OBJECT) {
1636                 struct json *error;
1637
1638                 error = shash_find_data(json_object(op), "error");
1639                 if (error) {
1640                     if (error->type == JSON_STRING) {
1641                         if (!strcmp(error->u.string, "timed out")) {
1642                             soft_errors++;
1643                         } else if (strcmp(error->u.string, "aborted")) {
1644                             hard_errors++;
1645                             ovsdb_idl_txn_set_error_json(txn, op);
1646                         }
1647                     } else {
1648                         hard_errors++;
1649                         ovsdb_idl_txn_set_error_json(txn, op);
1650                         VLOG_WARN_RL(&syntax_rl,
1651                                      "\"error\" in reply is not JSON string");
1652                     }
1653                 }
1654             } else {
1655                 hard_errors++;
1656                 ovsdb_idl_txn_set_error_json(txn, op);
1657                 VLOG_WARN_RL(&syntax_rl,
1658                              "operation reply is not JSON null or object");
1659             }
1660         }
1661
1662         if (!soft_errors && !hard_errors) {
1663             struct ovsdb_idl_txn_insert *insert;
1664
1665             if (txn->inc_table && !ovsdb_idl_txn_process_inc_reply(txn, ops)) {
1666                 hard_errors++;
1667             }
1668
1669             HMAP_FOR_EACH (insert, struct ovsdb_idl_txn_insert, hmap_node,
1670                            &txn->inserted_rows) {
1671                 if (!ovsdb_idl_txn_process_insert_reply(insert, ops)) {
1672                     hard_errors++;
1673                 }
1674             }
1675         }
1676
1677         status = (hard_errors ? TXN_ERROR
1678                   : soft_errors ? TXN_TRY_AGAIN
1679                   : TXN_SUCCESS);
1680     }
1681
1682     ovsdb_idl_txn_complete(txn, status);
1683     return true;
1684 }
1685
1686 struct ovsdb_idl_txn *
1687 ovsdb_idl_txn_get(const struct ovsdb_idl_row *row)
1688 {
1689     struct ovsdb_idl_txn *txn = row->table->idl->txn;
1690     assert(txn != NULL);
1691     return txn;
1692 }
1693
1694 struct ovsdb_idl *
1695 ovsdb_idl_txn_get_idl (struct ovsdb_idl_txn *txn)
1696 {
1697     return txn->idl;
1698 }
1699