407 lines
22 KiB
C
407 lines
22 KiB
C
|
/*
|
||
|
|
* $Id$
|
||
|
|
*
|
||
|
|
Copyright (c) 2014-2017 Chung, Hyung-Hwan. All rights reserved.
|
||
|
|
|
||
|
|
Redistribution and use in source and binary forms, with or without
|
||
|
|
modification, are permitted provided that the following conditions
|
||
|
|
are met:
|
||
|
|
1. Redistributions of source code must retain the above copyright
|
||
|
|
notice, this list of conditions and the following disclaimer.
|
||
|
|
2. Redistributions in binary form must reproduce the above copyright
|
||
|
|
notice, this list of conditions and the following disclaimer in the
|
||
|
|
documentation and/or other materials provided with the distribution.
|
||
|
|
|
||
|
|
THIS SOFTWARE IS PROVIDED BY THE AUTHOR "AS IS" AND ANY EXPRESS OR
|
||
|
|
IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
||
|
|
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
||
|
|
IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
||
|
|
INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
||
|
|
NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
||
|
|
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
||
|
|
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||
|
|
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
||
|
|
THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "hcl-prv.h"
|
||
|
|
|
||
|
|
|
||
|
|
/* BEGIN: GENERATED WITH generr.hcl */
|
||
|
|
|
||
|
|
static hcl_ooch_t errstr_0[] = {'n','o',' ','e','r','r','o','r','\0'};
|
||
|
|
static hcl_ooch_t errstr_1[] = {'g','e','n','e','r','i','c',' ','e','r','r','o','r','\0'};
|
||
|
|
static hcl_ooch_t errstr_2[] = {'n','o','t',' ','i','m','p','l','e','m','e','n','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t errstr_3[] = {'s','u','b','s','y','s','t','e','m',' ','e','r','r','o','r','\0'};
|
||
|
|
static hcl_ooch_t errstr_4[] = {'i','n','t','e','r','n','a','l',' ','e','r','r','o','r',' ','t','h','a','t',' ','s','h','o','u','l','d',' ','n','e','v','e','r',' ','h','a','v','e',' ','h','a','p','p','e','n','e','d','\0'};
|
||
|
|
static hcl_ooch_t errstr_5[] = {'i','n','s','u','f','f','i','c','i','e','n','t',' ','s','y','s','t','e','m',' ','m','e','m','o','r','y','\0'};
|
||
|
|
static hcl_ooch_t errstr_6[] = {'i','n','s','u','f','f','i','c','i','e','n','t',' ','o','b','j','e','c','t',' ','m','e','m','o','r','y','\0'};
|
||
|
|
static hcl_ooch_t errstr_7[] = {'i','n','v','a','l','i','d',' ','c','l','a','s','s','/','t','y','p','e','\0'};
|
||
|
|
static hcl_ooch_t errstr_8[] = {'i','n','v','a','l','i','d',' ','p','a','r','a','m','e','t','e','r',' ','o','r',' ','a','r','g','u','m','e','n','t','\0'};
|
||
|
|
static hcl_ooch_t errstr_9[] = {'d','a','t','a',' ','n','o','t',' ','f','o','u','n','d','\0'};
|
||
|
|
static hcl_ooch_t errstr_10[] = {'e','x','i','s','t','i','n','g','/','d','u','p','l','i','c','a','t','e',' ','d','a','t','a','\0'};
|
||
|
|
static hcl_ooch_t errstr_11[] = {'b','u','s','y','\0'};
|
||
|
|
static hcl_ooch_t errstr_12[] = {'a','c','c','e','s','s',' ','d','e','n','i','e','d','\0'};
|
||
|
|
static hcl_ooch_t errstr_13[] = {'o','p','e','r','a','t','i','o','n',' ','n','o','t',' ','p','e','r','m','i','t','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t errstr_14[] = {'n','o','t',' ','a',' ','d','i','r','e','c','t','o','r','y','\0'};
|
||
|
|
static hcl_ooch_t errstr_15[] = {'i','n','t','e','r','r','u','p','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t errstr_16[] = {'p','i','p','e',' ','e','r','r','o','r','\0'};
|
||
|
|
static hcl_ooch_t errstr_17[] = {'r','e','s','o','u','r','c','e',' ','t','e','m','p','o','r','a','r','i','l','y',' ','u','n','a','v','a','i','l','a','b','l','e','\0'};
|
||
|
|
static hcl_ooch_t errstr_18[] = {'b','a','d',' ','s','y','s','t','e','m',' ','h','a','n','d','l','e','\0'};
|
||
|
|
static hcl_ooch_t errstr_19[] = {'t','o','o',' ','m','a','n','y',' ','f','r','a','m','e','s','\0'};
|
||
|
|
static hcl_ooch_t errstr_20[] = {'m','e','s','s','a','g','e',' ','r','e','c','e','i','v','e','r',' ','e','r','r','o','r','\0'};
|
||
|
|
static hcl_ooch_t errstr_21[] = {'m','e','s','s','a','g','e',' ','s','e','n','d','i','n','g',' ','e','r','r','o','r','\0'};
|
||
|
|
static hcl_ooch_t errstr_22[] = {'w','r','o','n','g',' ','n','u','m','b','e','r',' ','o','f',' ','a','r','g','u','m','e','n','t','s','\0'};
|
||
|
|
static hcl_ooch_t errstr_23[] = {'r','a','n','g','e',' ','e','r','r','o','r','\0'};
|
||
|
|
static hcl_ooch_t errstr_24[] = {'b','y','t','e','-','c','o','d','e',' ','f','u','l','l','\0'};
|
||
|
|
static hcl_ooch_t errstr_25[] = {'d','i','c','t','i','o','n','a','r','y',' ','f','u','l','l','\0'};
|
||
|
|
static hcl_ooch_t errstr_26[] = {'n','o',' ','m','o','r','e',' ','i','n','t','u','t','\0'};
|
||
|
|
static hcl_ooch_t errstr_27[] = {'t','o','o',' ','m','a','n','y',' ','p','a','r','a','m','e','t','e','r','s','\0'};
|
||
|
|
static hcl_ooch_t errstr_28[] = {'*','*','*',' ','u','n','d','e','f','i','n','e','d',' ','e','r','r','o','r',' ','*','*','*','\0'};
|
||
|
|
static hcl_ooch_t errstr_29[] = {'d','i','v','i','d','e',' ','b','y',' ','z','e','r','o','\0'};
|
||
|
|
static hcl_ooch_t errstr_30[] = {'I','/','O',' ','e','r','r','o','r','\0'};
|
||
|
|
static hcl_ooch_t errstr_31[] = {'e','n','c','o','d','i','n','g',' ','c','o','n','v','e','r','s','i','o','n',' ','e','r','r','o','r','\0'};
|
||
|
|
static hcl_ooch_t errstr_32[] = {'b','u','f','f','e','r',' ','f','u','l','l','\0'};
|
||
|
|
static hcl_ooch_t* errstr[] =
|
||
|
|
{
|
||
|
|
errstr_0, errstr_1, errstr_2, errstr_3, errstr_4, errstr_5, errstr_6, errstr_7,
|
||
|
|
errstr_8, errstr_9, errstr_10, errstr_11, errstr_12, errstr_13, errstr_14, errstr_15,
|
||
|
|
errstr_16, errstr_17, errstr_18, errstr_19, errstr_20, errstr_21, errstr_22, errstr_23,
|
||
|
|
errstr_24, errstr_25, errstr_26, errstr_27, errstr_28, errstr_29, errstr_30, errstr_31,
|
||
|
|
errstr_32
|
||
|
|
};
|
||
|
|
|
||
|
|
#if defined(HCL_INCLUDE_COMPILER)
|
||
|
|
static hcl_ooch_t synerrstr_0[] = {'n','o',' ','e','r','r','o','r','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_1[] = {'i','l','l','e','g','a','l',' ','c','h','a','r','a','c','t','e','r','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_2[] = {'c','o','m','m','e','n','t',' ','n','o','t',' ','c','l','o','s','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_3[] = {'s','t','r','i','n','g',' ','n','o','t',' ','c','l','o','s','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_4[] = {'n','o',' ','c','h','a','r','a','c','t','e','r',' ','a','f','t','e','r',' ','$','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_5[] = {'n','o',' ','v','a','l','i','d',' ','c','h','a','r','a','c','t','e','r',' ','a','f','t','e','r',' ','#','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_6[] = {'w','r','o','n','g',' ','c','h','a','r','a','c','t','e','r',' ','l','i','t','e','r','a','l','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_7[] = {'c','o','l','o','n',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_8[] = {'s','t','r','i','n','g',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_9[] = {'i','n','v','a','l','i','d',' ','r','a','d','i','x','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_10[] = {'i','n','v','a','l','i','d',' ','n','u','m','e','r','i','c',' ','l','i','t','e','r','a','l','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_11[] = {'b','y','t','e',' ','t','o','o',' ','s','m','a','l','l',' ','o','r',' ','t','o','o',' ','l','a','r','g','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_12[] = {'w','r','o','n','g',' ','e','r','r','o','r',' ','l','i','t','e','r','a','l','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_13[] = {'{',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_14[] = {'}',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_15[] = {'(',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_16[] = {')',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_17[] = {']',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_18[] = {'.',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_19[] = {',',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_20[] = {'|',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_21[] = {'>',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_22[] = {':','=',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_23[] = {'i','d','e','n','t','i','f','i','e','r',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_24[] = {'i','n','t','e','g','e','r',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_25[] = {'p','r','i','m','i','t','i','v','e',':',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_26[] = {'w','r','o','n','g',' ','d','i','r','e','c','t','i','v','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_27[] = {'u','n','d','e','f','i','n','e','d',' ','c','l','a','s','s','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_28[] = {'d','u','p','l','i','c','a','t','e',' ','c','l','a','s','s','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_29[] = {'c','o','n','t','r','a','d','i','c','t','o','r','y',' ','c','l','a','s','s',' ','d','e','f','i','n','i','t','i','o','n','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_30[] = {'w','r','o','n','g',' ','c','l','a','s','s',' ','n','a','m','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_31[] = {'i','n','v','a','l','i','d',' ','n','o','n','-','p','o','i','n','t','e','r',' ','i','n','s','t','a','n','c','e',' ','s','i','z','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_32[] = {'p','r','o','h','i','b','i','t','e','d',' ','i','n','h','e','r','i','t','a','n','c','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_33[] = {'v','a','r','i','a','b','l','e',' ','d','e','c','l','a','r','a','t','i','o','n',' ','n','o','t',' ','a','l','l','o','w','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_34[] = {'m','o','d','i','f','i','e','r',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_35[] = {'w','r','o','n','g',' ','m','o','d','i','f','i','e','r','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_36[] = {'d','i','s','a','l','l','o','w','e','d',' ','m','o','d','i','f','i','e','r','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_37[] = {'d','u','p','l','i','c','a','t','e',' ','m','o','d','i','f','i','e','r','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_38[] = {'m','e','t','h','o','d',' ','n','a','m','e',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_39[] = {'d','u','p','l','i','c','a','t','e',' ','m','e','t','h','o','d',' ','n','a','m','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_40[] = {'i','n','v','a','l','i','d',' ','v','a','r','i','a','d','i','c',' ','m','e','t','h','o','d',' ','d','e','f','i','n','i','t','i','o','n','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_41[] = {'v','a','r','i','a','b','l','e',' ','n','a','m','e',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_42[] = {'d','u','p','l','i','c','a','t','e',' ','a','r','g','u','m','e','n','t',' ','n','a','m','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_43[] = {'d','u','p','l','i','c','a','t','e',' ','t','e','m','p','o','r','a','r','y',' ','v','a','r','i','a','b','l','e',' ','n','a','m','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_44[] = {'d','u','p','l','i','c','a','t','e',' ','v','a','r','i','a','b','l','e',' ','n','a','m','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_45[] = {'d','u','p','l','i','c','a','t','e',' ','b','l','o','c','k',' ','a','r','g','u','m','e','n','t',' ','n','a','m','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_46[] = {'u','n','d','e','c','l','a','r','e','d',' ','v','a','r','i','a','b','l','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_47[] = {'u','n','u','s','a','b','l','e',' ','v','a','r','i','a','b','l','e',' ','i','n',' ','c','o','m','p','i','l','e','d',' ','c','o','d','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_48[] = {'i','n','a','c','c','e','s','s','i','b','l','e',' ','v','a','r','i','a','b','l','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_49[] = {'a','m','b','i','g','u','o','u','s',' ','v','a','r','i','a','b','l','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_50[] = {'t','o','o',' ','m','a','n','y',' ','i','n','s','t','a','n','c','e','/','c','l','a','s','s',' ','v','a','r','i','a','b','l','e','s','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_51[] = {'i','n','a','c','c','e','s','s','i','b','l','e',' ','s','e','l','f','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_52[] = {'w','r','o','n','g',' ','e','x','p','r','e','s','s','i','o','n',' ','p','r','i','m','a','r','y','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_53[] = {'t','o','o',' ','m','a','n','y',' ','t','e','m','p','o','r','a','r','i','e','s','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_54[] = {'t','o','o',' ','m','a','n','y',' ','a','r','g','u','m','e','n','t','s','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_55[] = {'t','o','o',' ','m','a','n','y',' ','b','l','o','c','k',' ','t','e','m','p','o','r','a','r','i','e','s','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_56[] = {'t','o','o',' ','m','a','n','y',' ','b','l','o','c','k',' ','a','r','g','u','m','e','n','t','s','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_57[] = {'t','o','o',' ','l','a','r','g','e',' ','b','l','o','c','k','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_58[] = {'t','o','o',' ','l','a','r','g','e',' ','a','r','r','a','y',' ','e','x','p','r','e','s','s','i','o','n','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_59[] = {'w','r','o','n','g',' ','p','r','i','m','i','t','i','v','e',' ','f','u','n','c','t','i','o','n',' ','n','u','m','b','e','r','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_60[] = {'w','r','o','n','g',' ','p','r','i','m','i','t','i','v','e',' ','f','u','n','c','t','i','o','n',' ','i','d','e','n','t','i','f','i','e','r','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_61[] = {'w','r','o','n','g',' ','p','r','i','m','i','t','i','v','e',' ','f','u','n','c','t','i','o','n',' ','a','r','g','u','m','e','n','t',' ','d','e','f','i','n','i','t','i','o','n','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_62[] = {'w','r','o','n','g',' ','m','o','d','u','l','e',' ','n','a','m','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_63[] = {'f','a','i','l','e','d',' ','t','o',' ','i','m','p','o','r','t',' ','m','o','d','u','l','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_64[] = {'#','i','n','c','l','u','d','e',' ','e','r','r','o','r','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_65[] = {'w','r','o','n','g',' ','p','r','a','g','m','a',' ','n','a','m','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_66[] = {'w','r','o','n','g',' ','n','a','m','e','s','p','a','c','e',' ','n','a','m','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_67[] = {'w','r','o','n','g',' ','p','o','o','l',' ','d','i','c','t','i','o','n','a','r','y',' ','n','a','m','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_68[] = {'d','u','p','l','i','c','a','t','e',' ','p','o','o','l',' ','d','i','c','t','i','o','n','a','r','y',' ','n','a','m','e','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_69[] = {'l','i','t','e','r','a','l',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_70[] = {'b','r','e','a','k',' ','o','r',' ','c','o','n','t','i','n','u','e',' ','n','o','t',' ','w','i','t','h','i','n',' ','a',' ','l','o','o','p','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_71[] = {'b','r','e','a','k',' ','o','r',' ','c','o','n','t','i','n','u','e',' ','w','i','t','h','i','n',' ','a',' ','b','l','o','c','k','\0'};
|
||
|
|
static hcl_ooch_t synerrstr_72[] = {'w','h','i','l','e',' ','e','x','p','e','c','t','e','d','\0'};
|
||
|
|
static hcl_ooch_t* synerrstr[] =
|
||
|
|
{
|
||
|
|
synerrstr_0, synerrstr_1, synerrstr_2, synerrstr_3, synerrstr_4, synerrstr_5, synerrstr_6, synerrstr_7,
|
||
|
|
synerrstr_8, synerrstr_9, synerrstr_10, synerrstr_11, synerrstr_12, synerrstr_13, synerrstr_14, synerrstr_15,
|
||
|
|
synerrstr_16, synerrstr_17, synerrstr_18, synerrstr_19, synerrstr_20, synerrstr_21, synerrstr_22, synerrstr_23,
|
||
|
|
synerrstr_24, synerrstr_25, synerrstr_26, synerrstr_27, synerrstr_28, synerrstr_29, synerrstr_30, synerrstr_31,
|
||
|
|
synerrstr_32, synerrstr_33, synerrstr_34, synerrstr_35, synerrstr_36, synerrstr_37, synerrstr_38, synerrstr_39,
|
||
|
|
synerrstr_40, synerrstr_41, synerrstr_42, synerrstr_43, synerrstr_44, synerrstr_45, synerrstr_46, synerrstr_47,
|
||
|
|
synerrstr_48, synerrstr_49, synerrstr_50, synerrstr_51, synerrstr_52, synerrstr_53, synerrstr_54, synerrstr_55,
|
||
|
|
synerrstr_56, synerrstr_57, synerrstr_58, synerrstr_59, synerrstr_60, synerrstr_61, synerrstr_62, synerrstr_63,
|
||
|
|
synerrstr_64, synerrstr_65, synerrstr_66, synerrstr_67, synerrstr_68, synerrstr_69, synerrstr_70, synerrstr_71,
|
||
|
|
synerrstr_72
|
||
|
|
};
|
||
|
|
#endif
|
||
|
|
/* END: GENERATED WITH generr.hcl */
|
||
|
|
|
||
|
|
/* --------------------------------------------------------------------------
|
||
|
|
* ERROR NUMBER TO STRING CONVERSION
|
||
|
|
* -------------------------------------------------------------------------- */
|
||
|
|
const hcl_ooch_t* hcl_errnum_to_errstr (hcl_errnum_t errnum)
|
||
|
|
{
|
||
|
|
static hcl_ooch_t e_unknown[] = {'u','n','k','n','o','w','n',' ','e','r','r','o','r','\0'};
|
||
|
|
return (errnum >= 0 && errnum < HCL_COUNTOF(errstr))? errstr[errnum]: e_unknown;
|
||
|
|
}
|
||
|
|
|
||
|
|
#if defined(HCL_INCLUDE_COMPILER)
|
||
|
|
const hcl_ooch_t* hcl_synerrnum_to_errstr (hcl_synerrnum_t errnum)
|
||
|
|
{
|
||
|
|
static hcl_ooch_t e_unknown[] = {'u','n','k','n','o','w','n',' ','e','r','r','o','r','\0'};
|
||
|
|
return (errnum >= 0 && errnum < HCL_COUNTOF(synerrstr))? synerrstr[errnum]: e_unknown;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* --------------------------------------------------------------------------
|
||
|
|
* SYSTEM DEPENDENT FUNCTIONS
|
||
|
|
* -------------------------------------------------------------------------- */
|
||
|
|
|
||
|
|
#if defined(HAVE_EXECINFO_H)
|
||
|
|
# include <execinfo.h>
|
||
|
|
# include <stdlib.h>
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if defined(_WIN32)
|
||
|
|
# include <windows.h>
|
||
|
|
#elif defined(__OS2__)
|
||
|
|
# define INCL_DOSPROCESS
|
||
|
|
# define INCL_DOSFILEMGR
|
||
|
|
# define INCL_DOSERRORS
|
||
|
|
# include <os2.h>
|
||
|
|
#elif defined(__DOS__)
|
||
|
|
# include <dos.h>
|
||
|
|
# if defined(_INTELC32_)
|
||
|
|
# define DOS_EXIT 0x4C
|
||
|
|
# else
|
||
|
|
# include <dosfunc.h>
|
||
|
|
# endif
|
||
|
|
# include <errno.h>
|
||
|
|
#elif defined(vms) || defined(__vms)
|
||
|
|
# define __NEW_STARLET 1
|
||
|
|
# include <starlet.h> /* (SYS$...) */
|
||
|
|
# include <ssdef.h> /* (SS$...) */
|
||
|
|
# include <lib$routines.h> /* (lib$...) */
|
||
|
|
#elif defined(macintosh)
|
||
|
|
# include <MacErrors.h>
|
||
|
|
# include <Process.h>
|
||
|
|
# include <Dialogs.h>
|
||
|
|
# include <TextUtils.h>
|
||
|
|
#else
|
||
|
|
# include <sys/types.h>
|
||
|
|
# include <unistd.h>
|
||
|
|
# include <signal.h>
|
||
|
|
# include <errno.h>
|
||
|
|
#endif
|
||
|
|
|
||
|
|
hcl_errnum_t hcl_syserr_to_errnum (int e)
|
||
|
|
{
|
||
|
|
#if defined(__OS2__)
|
||
|
|
/* APIRET e */
|
||
|
|
switch (e)
|
||
|
|
{
|
||
|
|
case ERROR_NOT_ENOUGH_MEMORY: return HCL_ESYSMEM;
|
||
|
|
|
||
|
|
case ERROR_INVALID_PARAMETER:
|
||
|
|
case ERROR_INVALID_HANDLE:
|
||
|
|
case ERROR_INVALID_NAME: return HCL_EINVAL;
|
||
|
|
|
||
|
|
case ERROR_ACCESS_DENIED:
|
||
|
|
case ERROR_SHARING_VIOLATION: return HCL_EACCES;
|
||
|
|
|
||
|
|
case ERROR_FILE_NOT_FOUND:
|
||
|
|
case ERROR_PATH_NOT_FOUND: return HCL_ENOENT;
|
||
|
|
|
||
|
|
case ERROR_ALREADY_EXISTS: return HCL_EEXIST;
|
||
|
|
|
||
|
|
/*TODO: add more mappings */
|
||
|
|
default: return HCL_ESYSERR;
|
||
|
|
}
|
||
|
|
#elif defined(macintosh)
|
||
|
|
switch (e)
|
||
|
|
{
|
||
|
|
case notEnoughMemoryErr: return HCL_ESYSMEM;
|
||
|
|
case paramErr: return HCL_EINVAL;
|
||
|
|
|
||
|
|
case qErr: /* queue element not found during deletion */
|
||
|
|
case fnfErr: /* file not found */
|
||
|
|
case dirNFErr: /* direcotry not found */
|
||
|
|
case resNotFound: /* resource not found */
|
||
|
|
case resFNotFound: /* resource file not found */
|
||
|
|
case nbpNotFound: /* name not found on remove */
|
||
|
|
return HCL_ENOENT;
|
||
|
|
|
||
|
|
/*TODO: add more mappings */
|
||
|
|
default: return HCL_ESYSERR;
|
||
|
|
}
|
||
|
|
|
||
|
|
#else
|
||
|
|
switch (e)
|
||
|
|
{
|
||
|
|
case ENOMEM: return HCL_ESYSMEM;
|
||
|
|
case EINVAL: return HCL_EINVAL;
|
||
|
|
|
||
|
|
#if defined(EBUSY)
|
||
|
|
case EBUSY: return HCL_EBUSY;
|
||
|
|
#endif
|
||
|
|
case EACCES: return HCL_EACCES;
|
||
|
|
#if defined(EPERM)
|
||
|
|
case EPERM: return HCL_EPERM;
|
||
|
|
#endif
|
||
|
|
#if defined(ENOTDIR)
|
||
|
|
case ENOTDIR: return HCL_ENOTDIR;
|
||
|
|
#endif
|
||
|
|
case ENOENT: return HCL_ENOENT;
|
||
|
|
#if defined(EEXIST)
|
||
|
|
case EEXIST: return HCL_EEXIST;
|
||
|
|
#endif
|
||
|
|
#if defined(EINTR)
|
||
|
|
case EINTR: return HCL_EINTR;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if defined(EPIPE)
|
||
|
|
case EPIPE: return HCL_EPIPE;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if defined(EAGAIN) && defined(EWOULDBLOCK) && (EAGAIN != EWOULDBLOCK)
|
||
|
|
case EAGAIN:
|
||
|
|
case EWOULDBLOCK: return HCL_EAGAIN;
|
||
|
|
#elif defined(EAGAIN)
|
||
|
|
case EAGAIN: return HCL_EAGAIN;
|
||
|
|
#elif defined(EWOULDBLOCK)
|
||
|
|
case EWOULDBLOCK: return HCL_EAGAIN;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if defined(EBADF)
|
||
|
|
case EBADF: return HCL_EBADHND;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if defined(EIO)
|
||
|
|
case EIO: return HCL_EIOERR;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
default: return HCL_ESYSERR;
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
/* --------------------------------------------------------------------------
|
||
|
|
* ERROR NUMBER/MESSAGE HANDLING
|
||
|
|
* -------------------------------------------------------------------------- */
|
||
|
|
|
||
|
|
const hcl_ooch_t* hcl_geterrstr (hcl_t* hcl)
|
||
|
|
{
|
||
|
|
return hcl_errnum_to_errstr (hcl->errnum);
|
||
|
|
}
|
||
|
|
|
||
|
|
const hcl_ooch_t* hcl_geterrmsg (hcl_t* hcl)
|
||
|
|
{
|
||
|
|
if (hcl->errmsg.len <= 0) return hcl_errnum_to_errstr (hcl->errnum);
|
||
|
|
return hcl->errmsg.buf;
|
||
|
|
}
|
||
|
|
|
||
|
|
const hcl_ooch_t* hcl_backuperrmsg (hcl_t* hcl)
|
||
|
|
{
|
||
|
|
hcl_copyoocstr (hcl->errmsg.tmpbuf.ooch, HCL_COUNTOF(hcl->errmsg.tmpbuf.ooch), hcl->errmsg.buf);
|
||
|
|
return hcl->errmsg.tmpbuf.ooch;
|
||
|
|
}
|
||
|
|
|
||
|
|
void hcl_seterrwithsyserr (hcl_t* hcl, int syserr)
|
||
|
|
{
|
||
|
|
if (hcl->vmprim.syserrstrb)
|
||
|
|
{
|
||
|
|
hcl->vmprim.syserrstrb (hcl, syserr, hcl->errmsg.tmpbuf.bch, HCL_COUNTOF(hcl->errmsg.tmpbuf.bch));
|
||
|
|
hcl_seterrbfmt (hcl, hcl_syserr_to_errnum(syserr), "%hs", hcl->errmsg.tmpbuf.bch);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
HCL_ASSERT (hcl, hcl->vmprim.syserrstru != HCL_NULL);
|
||
|
|
hcl->vmprim.syserrstru (hcl, syserr, hcl->errmsg.tmpbuf.uch, HCL_COUNTOF(hcl->errmsg.tmpbuf.uch));
|
||
|
|
hcl_seterrbfmt (hcl, hcl_syserr_to_errnum(syserr), "%ls", hcl->errmsg.tmpbuf.uch);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/* --------------------------------------------------------------------------
|
||
|
|
* ASSERTION FAILURE HANDLERsemaphore heap full
|
||
|
|
* -------------------------------------------------------------------------- */
|
||
|
|
|
||
|
|
void hcl_assertfailed (hcl_t* hcl, const hcl_bch_t* expr, const hcl_bch_t* file, hcl_oow_t line)
|
||
|
|
{
|
||
|
|
#if defined(HAVE_BACKTRACE)
|
||
|
|
void* btarray[128];
|
||
|
|
hcl_oow_t btsize;
|
||
|
|
char** btsyms;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
hcl_logbfmt (hcl, HCL_LOG_UNTYPED | HCL_LOG_FATAL, "ASSERTION FAILURE: %s at %s:%zu\n", expr, file, line);
|
||
|
|
|
||
|
|
|
||
|
|
#if defined(HAVE_BACKTRACE)
|
||
|
|
btsize = backtrace (btarray, HCL_COUNTOF(btarray));
|
||
|
|
btsyms = backtrace_symbols (btarray, btsize);
|
||
|
|
if (btsyms)
|
||
|
|
{
|
||
|
|
hcl_oow_t i;
|
||
|
|
hcl_logbfmt (hcl, HCL_LOG_UNTYPED | HCL_LOG_DEBUG, "[BACKTRACE]\n");
|
||
|
|
|
||
|
|
for (i = 0; i < btsize; i++)
|
||
|
|
{
|
||
|
|
hcl_logbfmt(hcl, HCL_LOG_UNTYPED | HCL_LOG_DEBUG, " %s\n", btsyms[i]);
|
||
|
|
}
|
||
|
|
free (btsyms);
|
||
|
|
}
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|
||
|
|
#if defined(_WIN32)
|
||
|
|
ExitProcess (249);
|
||
|
|
#elif defined(__OS2__)
|
||
|
|
DosExit (EXIT_PROCESS, 249);
|
||
|
|
#elif defined(__DOS__)
|
||
|
|
{
|
||
|
|
union REGS regs;
|
||
|
|
regs.h.ah = DOS_EXIT;
|
||
|
|
regs.h.al = 249;
|
||
|
|
intdos (®s, ®s);
|
||
|
|
}
|
||
|
|
#elif defined(vms) || defined(__vms)
|
||
|
|
lib$stop (SS$_ABORT); /* use SS$_OPCCUS instead? */
|
||
|
|
/* this won't be reached since lib$stop() terminates the process */
|
||
|
|
sys$exit (SS$_ABORT); /* this condition code can be shown with
|
||
|
|
* 'show symbol $status' from the command-line. */
|
||
|
|
#elif defined(macintosh)
|
||
|
|
|
||
|
|
ExitToShell ();
|
||
|
|
|
||
|
|
#else
|
||
|
|
|
||
|
|
kill (getpid(), SIGABRT);
|
||
|
|
_exit (1);
|
||
|
|
#endif
|
||
|
|
}
|