1999-11-16 07:25:48 -08:00
|
|
|
/***********************************************************************/
|
|
|
|
|
/* */
|
2011-07-27 07:17:02 -07:00
|
|
|
/* OCaml */
|
1999-11-16 07:25:48 -08:00
|
|
|
/* */
|
|
|
|
|
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
|
|
|
|
|
/* */
|
|
|
|
|
/* Copyright 1999 Institut National de Recherche en Informatique et */
|
1999-11-17 10:59:06 -08:00
|
|
|
/* en Automatique. All rights reserved. This file is distributed */
|
2001-12-07 05:41:02 -08:00
|
|
|
/* under the terms of the GNU Library General Public License, with */
|
|
|
|
|
/* the special exception on linking described in file ../../LICENSE. */
|
1999-11-16 07:25:48 -08:00
|
|
|
/* */
|
|
|
|
|
/***********************************************************************/
|
|
|
|
|
|
|
|
|
|
/* $Id$ */
|
|
|
|
|
|
2000-02-10 06:04:59 -08:00
|
|
|
/* Nats are represented as unstructured blocks with tag Custom_tag. */
|
1995-11-06 05:09:04 -08:00
|
|
|
|
2003-10-24 02:18:01 -07:00
|
|
|
#define Digit_val(nat,pos) (((bng) Data_custom_val(nat))[pos])
|
