#pragma once

/*----------------------------------------------------------------------------*

 |                                                                            |

 |                                   avl.h                                    |

 |                                                                            |

 |                by W.T.  11-MAR-91, last revision 22-MAR-92                 |

 |                                                                            |

 *----------------------------------------------------------------------------*/

#ifndef AVL_H

#define AVL_H

#ifdef __cplusplus

extern "C" {

#define AVL_PROTOTYPES

#endif

#ifdef __STDC__

#define AVL_PROTOTYPES

#else

#ifdef VAX

#define AVL_PROTOTYPES

#endif

#endif

#define AVL_MAX_SAFE_OFFSET 1024

#ifdef WIN32

#undef TNZAPI

#ifdef TNZ_IS_COMMONLIB

#define TNZAPI __declspec(dllexport)

#else

#define TNZAPI __declspec(dllimport)

#endif

TNZAPI double Avl_Dummy[(AVL_MAX_SAFE_OFFSET / sizeof(double)) + 1];

#else

#ifdef AVL_C

double Avl_Dummy[(AVL_MAX_SAFE_OFFSET / sizeof(double)) + 1];

#else

extern double Avl_Dummy[];

#endif

#endif

#define avl_offset(structure, member)                                          \

  ((unsigned)((char *)&((structure *)Avl_Dummy)->member - (char *)Avl_Dummy))

#define AVL_NODUP_MBR (0 << 1)

#define AVL_NODUP_PTR (1 << 1)

#define AVL_NODUP_STR (2 << 1)

#define AVL_NODUP_LNG (3 << 1)

#define AVL_NODUP_INT (4 << 1)

#define AVL_NODUP_SHT (5 << 1)

#define AVL_NODUP_ULN (6 << 1)

#define AVL_NODUP_UIN (7 << 1)

#define AVL_NODUP_USH (8 << 1)

#define AVL_NODUP_CHR (9 << 1)

#define AVL_DUP_MBR (AVL_NODUP_MBR | 1)

#define AVL_DUP_PTR (AVL_NODUP_PTR | 1)

#define AVL_DUP_STR (AVL_NODUP_STR | 1)

#define AVL_DUP_LNG (AVL_NODUP_LNG | 1)

#define AVL_DUP_INT (AVL_NODUP_INT | 1)

#define AVL_DUP_SHT (AVL_NODUP_SHT | 1)

#define AVL_DUP_ULN (AVL_NODUP_ULN | 1)

#define AVL_DUP_UIN (AVL_NODUP_UIN | 1)

#define AVL_DUP_USH (AVL_NODUP_USH | 1)

#define AVL_DUP_CHR (AVL_NODUP_CHR | 1)

#define AVL_AVLCMP (int (*)())0

#define avl_tree_nodup(usrcmp) avl__tree(AVL_NODUP_MBR, (unsigned)0, (usrcmp))

#define avl_tree_nodup_mbr(structure, member, usrcmp)                          \

  avl__tree(AVL_NODUP_MBR, avl_offset(structure, member), (usrcmp))

#define avl_tree_nodup_ptr(structure, member, usrcmp)                          \

  avl__tree(AVL_NODUP_PTR, avl_offset(structure, member), (usrcmp))

#define avl_tree_nodup_str(structure, member)                                  \

  avl__tree(AVL_NODUP_STR, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_nodup_long(structure, member)                                 \

  avl__tree(AVL_NODUP_LNG, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_nodup_int(structure, member)                                  \

  avl__tree(AVL_NODUP_INT, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_nodup_short(structure, member)                                \

  avl__tree(AVL_NODUP_SHT, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_nodup_ulong(structure, member)                                \

  avl__tree(AVL_NODUP_ULN, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_nodup_uint(structure, member)                                 \

  avl__tree(AVL_NODUP_UIN, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_nodup_ushort(structure, member)                               \

  avl__tree(AVL_NODUP_USH, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_nodup_char(structure, member)                                 \

  avl__tree(AVL_NODUP_CHR, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_dup(usrcmp) avl__tree(AVL_DUP_MBR, (unsigned)0, (usrcmp))

#define avl_tree_dup_mbr(structure, member, usrcmp)                            \

  avl__tree(AVL_DUP_MBR, avl_offset(structure, member), (usrcmp))

#define avl_tree_dup_ptr(structure, member, usrcmp)                            \

  avl__tree(AVL_DUP_PTR, avl_offset(structure, member), (usrcmp))

#define avl_tree_dup_str(structure, member)                                    \

  avl__tree(AVL_DUP_STR, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_dup_long(structure, member)                                   \

  avl__tree(AVL_DUP_LNG, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_dup_int(structure, member)                                    \

  avl__tree(AVL_DUP_INT, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_dup_short(structure, member)                                  \

  avl__tree(AVL_DUP_SHT, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_dup_ulong(structure, member)                                  \

  avl__tree(AVL_DUP_ULN, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_dup_uint(structure, member)                                   \

  avl__tree(AVL_DUP_UIN, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_dup_ushort(structure, member)                                 \

  avl__tree(AVL_DUP_USH, avl_offset(structure, member), AVL_AVLCMP)

#define avl_tree_dup_char(structure, member)                                   \

  avl__tree(AVL_DUP_CHR, avl_offset(structure, member), AVL_AVLCMP)

#define avl_nodes(tree) ((tree)->nodes)

#define avl_locate(tree, key) avl__locate((tree), (long)(key))

#define avl_locate_ge(tree, key) avl__locate_ge((tree), (long)(key))

#define avl_locate_gt(tree, key) avl__locate_gt((tree), (long)(key))

#define avl_locate_le(tree, key) avl__locate_le((tree), (long)(key))

#define avl_locate_lt(tree, key) avl__locate_lt((tree), (long)(key))

#define avl_remove(tree, key) avl__remove((tree), (long)(key))

#define avl_scan(tree, usrfun) avl__scan((tree), (usrfun), 0)

#define avl_backscan(tree, usrfun) avl__scan((tree), (usrfun), 1)

#define avl_start(tree, key) avl__start((tree), (long)(key), 0)

#define avl_backstart(tree, key) avl__start((tree), (long)(key), 1)

#define avl_link(tree, structure, member)                                      \

  avl__link((tree), avl_offset(structure, member), 0)

#define avl_backlink(tree, structure, member)                                  \

  avl__link((tree), avl_offset(structure, member), 1)

#define AVL_MAX_PATHDEPTH ((int)sizeof(long) * 8 * 3 / 2 - 2)

union avl_key {

  void *ptr;

  long val;

};

struct avl_node {

  union avl_key key;

  void *data;

  struct avl_node *left;

  struct avl_node *right;

  int bal;

};

struct avl_path {

  struct avl_node **pathnode;

  char *pathright;

  struct avl_node *node[AVL_MAX_PATHDEPTH + 2];

  char right[AVL_MAX_PATHDEPTH + 2];

};

typedef struct avl_tree {

  unsigned short keyinfo;

  unsigned short keyoffs;

  int (*usrcmp)();

  long nodes;

  struct avl_node *root;

  struct avl_path *path;

} TREE;

#ifdef WIN32

#define TNZ_EXPORT_API __declspec(dllexport)

#define TNZ_IMPORT_API __declspec(dllimport)

#else

#define TNZ_EXPORT_API

#define TNZ_IMPORT_API

#endif

#undef TNZAPI

#ifdef TNZ_IS_COMMONLIB

#define TNZAPI TNZ_EXPORT_API

#else

#define TNZAPI TNZ_IMPORT_API

#endif

#ifndef AVL_PROTOTYPES

TNZAPI TREE *avl__tree();

TNZAPI TREE *avl_copy();

TNZAPI int avl_insert();

TNZAPI void *avl__locate();

TNZAPI void *avl__locate_ge();

TNZAPI void *avl__locate_gt();

TNZAPI void *avl__locate_le();

TNZAPI void *avl__locate_lt();

TNZAPI void *avl_locate_first();

TNZAPI void *avl_locate_last();

TNZAPI void *avl__remove();

TNZAPI void avl__scan();

TNZAPI void *avl_first();

TNZAPI void *avl_last();

TNZAPI void *avl__start();

TNZAPI void *avl_next();

TNZAPI void *avl_prev();

TNZAPI void avl_stop();

TNZAPI void *avl__link();

TNZAPI void avl_release();

TNZAPI void avl_reset();

TNZAPI void avl_close();

TNZAPI int avl_dump();

TNZAPI int avl_porting_problems();

#else

TNZAPI TREE *avl__tree(int treetype, unsigned keyoffs, int (*usrcmp)());

TNZAPI TREE *avl_copy(TREE *tree);

TNZAPI int avl_insert(TREE *tree, void *data);

TNZAPI void *avl__locate(TREE *tree, long keyval);

TNZAPI void *avl__locate_ge(TREE *tree, long keyval);

TNZAPI void *avl__locate_gt(TREE *tree, long keyval);

TNZAPI void *avl__locate_le(TREE *tree, long keyval);

TNZAPI void *avl__locate_lt(TREE *tree, long keyval);

TNZAPI void *avl_locate_first(TREE *tree);

TNZAPI void *avl_locate_last(TREE *tree);

TNZAPI void *avl__remove(TREE *tree, long keyval);

TNZAPI void avl__scan(TREE *tree, void (*usrfun)(), int back);

TNZAPI void *avl_first(TREE *tree);

TNZAPI void *avl_last(TREE *tree);

TNZAPI void *avl__start(TREE *tree, long keyval, int back);

TNZAPI void *avl_next(TREE *tree);

TNZAPI void *avl_prev(TREE *tree);

TNZAPI void avl_stop(TREE *tree);

TNZAPI void *avl__link(TREE *tree, unsigned ptroffs, int back);

TNZAPI void avl_release(TREE *tree, void (*usrfun)());

TNZAPI void avl_reset(TREE *tree);

TNZAPI void avl_close(TREE *tree);

TNZAPI int avl_dump(TREE *tree, void **dat_vect, int *lev_vect, int *pos_vect);

TNZAPI int avl_porting_problems(void);

#endif

#ifdef __cplusplus

}

#endif

#endif