libextl/misc.c

   1 /*
   2  * libextl/misc.c
   3  *
   4  * Copyright (c) Tuomo Valkonen 2004-2005.
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  */
  11
  12 #include "private.h"
  13
  14
  15 bool extl_obj_error(int ndx, const char *got, const char *wanted)
  16 {
  17     extl_warn(TR("Type checking failed in level 2 call handler for "
  18                  "parameter %d (got %s, expected %s)."),
  19               ndx, got ? got : "nil", wanted);
  20
  21     return FALSE;
  22 }
  23