1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
   2: /* $Header: B1tlt.h,v 1.1 84/06/28 00:48:39 timo Exp $ */
   3: 
   4: /************************************************************************/
   5: /* Private definitions for small texts, lists and tables module         */
   6: /* A text is modelled as a sequence of len characters.                  */
   7: /*                                                                      */
   8: /* A list is modelled as a sequence of len values,                      */
   9: /*         each of which corresponds to a list entry.                   */
  10: /*                                                                      */
  11: /* A table is modelled as a sequence of len values,                     */
  12: /*         each of which corresponds to a table entry;                  */
  13: /*     table entries are modelled as a compound with two fields.        */
  14: /************************************************************************/
  15: 
  16: #define Cts(v) (*Ats(v))
  17: #define Dts(v) (*(Ats(v)+1))
  18: 
  19: #define List_elem(l, i) (*(Ats(l)+i)) /*counts from 0; takes no copy*/
  20: #define Key(t, i) (Ats(*(Ats(t)+i))) /*Ditto*/
  21: #define Assoc(t, i) (Ats(*(Ats(t)+i))+1) /*Ditto*/
  22: 
  23: bool found();
  24: value list_elem();
  25: value key_elem();
Last modified: 1985-08-27
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 901
Valid CSS Valid XHTML 1.0 Strict