35 lines
1.5 KiB
C
35 lines
1.5 KiB
C
/**************************************************************************/
|
|
/* */
|
|
/* OCaml */
|
|
/* */
|
|
/* KC Sivaramakrishnan, Indian Institute of Technology, Madras */
|
|
/* Stephen Dolan, University of Cambridge */
|
|
/* */
|
|
/* Copyright 2019 Indian Institute of Technology, Madras */
|
|
/* Copyright 2019 University of Cambridge */
|
|
/* */
|
|
/* All rights reserved. This file is distributed under the terms of */
|
|
/* the GNU Lesser General Public License version 2.1, with the */
|
|
/* special exception on linking described in the file LICENSE. */
|
|
/* */
|
|
/**************************************************************************/
|
|
|
|
type t =
|
|
#define DOMAIN_STATE(type, name) | Domain_##name
|
|
#include "domain_state.tbl"
|
|
#undef DOMAIN_STATE
|
|
|
|
let idx_of_field =
|
|
let curr = 0 in
|
|
#define DOMAIN_STATE(type, name) \
|
|
let idx__##name = curr in \
|
|
let curr = curr + 1 in
|
|
#include "domain_state.tbl"
|
|
#undef DOMAIN_STATE
|
|
let _ = curr in
|
|
function
|
|
#define DOMAIN_STATE(type, name) \
|
|
| Domain_##name -> idx__##name
|
|
#include "domain_state.tbl"
|
|
#undef DOMAIN_STATE
|