source/texk/web2c/luatexdir/utils/avlstuff.w

   1 % avlstuff.w
   2 %
   3 % Copyright 1996-2006 Han The Thanh <thanh@@pdftex.org>
   4 % Copyright 2006-2009 Taco Hoekwater <taco@@luatex.org>
   5 %
   6 % This file is part of LuaTeX.
   7 %
   8 % LuaTeX is free software; you can redistribute it and/or modify it under
   9 % the terms of the GNU General Public License as published by the Free
  10 % Software Foundation; either version 2 of the License, or (at your
  11 % option) any later version.
  12 %
  13 % LuaTeX is distributed in the hope that it will be useful, but WITHOUT
  14 % ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  15 % FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  16 % License for more details.
  17 %
  18 % You should have received a copy of the GNU General Public License along
  19 % with LuaTeX; if not, see <http://www.gnu.org/licenses/>.
  20
  21 @* AVL helper functions.
  22
  23 @ @c
  24
  25
  26 #include "ptexlib.h"
  27 #include "utils/avl.h"
  28
  29 @ memory management functions for AVL
  30 @c
  31 static void *avl_xmalloc(struct libavl_allocator *allocator, size_t size)
  32 {
  33     assert(allocator != NULL && size > 0);
  34     return xmalloc((unsigned) size);
  35 }
  36
  37 static void avl_xfree(struct libavl_allocator *allocator, void *block)
  38 {
  39     assert(allocator != NULL && block != NULL);
  40     xfree(block);
  41 }
  42
  43 struct libavl_allocator avl_xallocator = {
  44     avl_xmalloc,
  45     avl_xfree
  46 };
  47
  48 @ general AVL comparison functions
  49 @c
  50 int comp_int_entry(const void *pa, const void *pb, void *p)
  51 {
  52     (void) p;
  53     cmp_return(*(const int *) pa, *(const int *) pb);
  54     return 0;
  55 }
  56
  57 int comp_string_entry(const void *pa, const void *pb, void *p)
  58 {
  59     (void) p;
  60     return strcmp((const char *) pa, (const char *) pb);
  61 }