
(********************************************************************)
(*                                                                  *)
(*  actions.s7i   Generate C code for primitive actions.            *)
(*  Copyright (C) 1990 - 1994, 2004 - 2015  Thomas Mertes           *)
(*                                                                  *)
(*  This file is part of the Seed7 compiler.                        *)
(*                                                                  *)
(*  This program is free software; you can redistribute it and/or   *)
(*  modify it under the terms of the GNU General Public License as  *)
(*  published by the Free Software Foundation; either version 2 of  *)
(*  the License, or (at your option) any later version.             *)
(*                                                                  *)
(*  This program is distributed in the hope that it will be useful, *)
(*  but WITHOUT ANY WARRANTY; without even the implied warranty of  *)
(*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the   *)
(*  GNU General Public License for more details.                    *)
(*                                                                  *)
(*  You should have received a copy of the GNU General Public       *)
(*  License along with this program; if not, write to the           *)
(*  Free Software Foundation, Inc., 51 Franklin Street,             *)
(*  Fifth Floor, Boston, MA  02110-1301, USA.                       *)
(*                                                                  *)
(********************************************************************)


const proc: process_action (in reference: function, in ref_list: params,
    inout expr_type: c_expr) is forward;


const proc: declareExtern (inout file: c_prog, in string: prototype) is forward;


include "comp/act_act.s7i";
include "comp/arr_act.s7i";
include "comp/big_act.s7i";
include "comp/bin_act.s7i";
include "comp/bln_act.s7i";
include "comp/bst_act.s7i";
include "comp/chr_act.s7i";
include "comp/cmd_act.s7i";
include "comp/con_act.s7i";
include "comp/dcl_act.s7i";
include "comp/drw_act.s7i";
include "comp/enu_act.s7i";
include "comp/fil_act.s7i";
include "comp/flt_act.s7i";
include "comp/gkb_act.s7i";
include "comp/hsh_act.s7i";
include "comp/int_act.s7i";
include "comp/itf_act.s7i";
include "comp/kbd_act.s7i";
include "comp/pcs_act.s7i";
include "comp/pol_act.s7i";
include "comp/prc_act.s7i";
include "comp/prg_act.s7i";
include "comp/ref_act.s7i";
include "comp/rfl_act.s7i";
include "comp/sct_act.s7i";
include "comp/set_act.s7i";
include "comp/soc_act.s7i";
include "comp/sql_act.s7i";
include "comp/str_act.s7i";
include "comp/tim_act.s7i";
include "comp/typ_act.s7i";
include "comp/ut8_act.s7i";


const proc: declareExtern (inout file: c_prog, in string: prototype) is func

  begin
    write(c_prog, "extern ");
    if declare_with_extern_c then
      write(c_prog, "\"C\" ");
    end if;
    writeln(c_prog, prototype);
  end func;


const proc: process_unknown_action (in string: action_name, inout expr_type: c_expr) is func

  begin
    c_expr.expr &:= "/* ACTOBJECT { ";
    c_expr.expr &:= action_name;
    c_expr.expr &:= " }*/";
  end func;


const proc: process_action (in reference: function, in ref_list: params,
    inout expr_type: c_expr) is func

  local
    var ACTION: currentAction is action "PRC_NOOP";
    var string: actionName is "";
  begin
    currentAction := getValue(function, ACTION);
    actionName := str(currentAction);
    # c_expr.expr &:= "/* " <& actionName <& " */\n";
    case actionName of
      when {"ACT_CPY"}:
        process(ACT_CPY, function, params, c_expr);
      when {"ACT_EQ"}:
        process(ACT_EQ, function, params, c_expr);
      when {"ACT_GEN"}:
        process(ACT_GEN, function, params, c_expr);
      when {"ACT_ICONV1"}:
        process(ACT_ICONV1, function, params, c_expr);
      when {"ACT_ICONV3"}:
        process(ACT_ICONV3, function, params, c_expr);
      when {"ACT_NE"}:
        process(ACT_NE, function, params, c_expr);
      when {"ACT_ORD"}:
        process(ACT_ORD, function, params, c_expr);
      when {"ACT_STR"}:
        process(ACT_STR, function, params, c_expr);
      when {"ACT_VALUE"}:
        process(ACT_VALUE, function, params, c_expr);
      when {"ARR_APPEND"}:
        process(ARR_APPEND, function, params, c_expr);
      when {"ARR_ARRLIT"}:
        process(ARR_ARRLIT, function, params, c_expr);
      when {"ARR_ARRLIT2"}:
        process(ARR_ARRLIT2, function, params, c_expr);
      when {"ARR_BASELIT"}:
        process(ARR_BASELIT, function, params, c_expr);
      when {"ARR_BASELIT2"}:
        process(ARR_BASELIT2, function, params, c_expr);
      when {"ARR_CAT"}:
        process(ARR_CAT, function, params, c_expr);
      when {"ARR_CONV"}:
        process(ARR_CONV, function, params, c_expr);
      when {"ARR_CPY"}:
        process(ARR_CPY, function, params, c_expr);
      when {"ARR_CREATE"}:
        process(ARR_CREATE, function, params, c_expr);
      when {"ARR_DESTR"}:
        process(ARR_DESTR, function, params, c_expr);
      when {"ARR_EXTEND"}:
        process(ARR_EXTEND, function, params, c_expr);
      when {"ARR_GEN"}:
        process(ARR_GEN, function, params, c_expr);
      when {"ARR_HEAD"}:
        process(ARR_HEAD, function, params, c_expr);
      when {"ARR_IDX"}:
        process(ARR_IDX, function, params, c_expr);
      when {"ARR_INSERT"}:
        process(ARR_INSERT, function, params, c_expr);
      when {"ARR_INSERT_ARRAY"}:
        process(ARR_INSERT_ARRAY, function, params, c_expr);
      when {"ARR_LNG"}:
        process(ARR_LNG, function, params, c_expr);
      when {"ARR_MAXIDX"}:
        process(ARR_MAXIDX, function, params, c_expr);
      when {"ARR_MINIDX"}:
        process(ARR_MINIDX, function, params, c_expr);
      when {"ARR_PUSH"}:
        process(ARR_PUSH, function, params, c_expr);
      when {"ARR_RANGE"}:
        process(ARR_RANGE, function, params, c_expr);
      when {"ARR_REMOVE"}:
        process(ARR_REMOVE, function, params, c_expr);
      when {"ARR_REMOVE_ARRAY"}:
        process(ARR_REMOVE_ARRAY, function, params, c_expr);
      when {"ARR_SORT"}:
        process(ARR_SORT, function, params, c_expr);
      when {"ARR_SUBARR"}:
        process(ARR_SUBARR, function, params, c_expr);
      when {"ARR_TIMES"}:
        process(ARR_TIMES, function, params, c_expr);
      when {"ARR_TAIL"}:
        process(ARR_TAIL, function, params, c_expr);
      when {"BIG_ABS"}:
        process(BIG_ABS, function, params, c_expr);
      when {"BIG_ADD"}:
        process(BIG_ADD, function, params, c_expr);
      when {"BIG_ADD_ASSIGN"}:
        process(BIG_ADD_ASSIGN, function, params, c_expr);
      when {"BIG_BIT_LENGTH"}:
        process(BIG_BIT_LENGTH, function, params, c_expr);
      when {"BIG_CMP"}:
        process(BIG_CMP, function, params, c_expr);
      when {"BIG_CONV"}:
        process(BIG_CONV, function, params, c_expr);
      when {"BIG_CPY"}:
        process(BIG_CPY, function, params, c_expr);
      when {"BIG_DECR"}:
        process(BIG_DECR, function, params, c_expr);
      when {"BIG_DIV"}:
        process(BIG_DIV, function, params, c_expr);
      when {"BIG_DIV_REM"}:
        process(BIG_DIV_REM, function, params, c_expr);
      when {"BIG_EQ"}:
        process(BIG_EQ, function, params, c_expr);
      when {"BIG_FROM_BSTRI_BE"}:
        process(BIG_FROM_BSTRI_BE, function, params, c_expr);
      when {"BIG_FROM_BSTRI_LE"}:
        process(BIG_FROM_BSTRI_LE, function, params, c_expr);
      when {"BIG_GCD"}:
        process(BIG_GCD, function, params, c_expr);
      when {"BIG_GE"}:
        process(BIG_GE, function, params, c_expr);
      when {"BIG_GT"}:
        process(BIG_GT, function, params, c_expr);
      when {"BIG_HASHCODE"}:
        process(BIG_HASHCODE, function, params, c_expr);
      when {"BIG_ICONV1"}:
        process(BIG_ICONV1, function, params, c_expr);
      when {"BIG_ICONV3"}:
        process(BIG_ICONV3, function, params, c_expr);
      when {"BIG_INCR"}:
        process(BIG_INCR, function, params, c_expr);
      when {"BIG_IPOW"}:
        process(BIG_IPOW, function, params, c_expr);
      when {"BIG_LE"}:
        process(BIG_LE, function, params, c_expr);
      when {"BIG_LOG10"}:
        process(BIG_LOG10, function, params, c_expr);
      when {"BIG_LOG2"}:
        process(BIG_LOG2, function, params, c_expr);
      when {"BIG_LOWEST_SET_BIT"}:
        process(BIG_LOWEST_SET_BIT, function, params, c_expr);
      when {"BIG_LSHIFT"}:
        process(BIG_LSHIFT, function, params, c_expr);
      when {"BIG_LSHIFT_ASSIGN"}:
        process(BIG_LSHIFT_ASSIGN, function, params, c_expr);
      when {"BIG_LT"}:
        process(BIG_LT, function, params, c_expr);
      when {"BIG_MDIV"}:
        process(BIG_MDIV, function, params, c_expr);
      when {"BIG_MOD"}:
        process(BIG_MOD, function, params, c_expr);
      when {"BIG_MULT"}:
        process(BIG_MULT, function, params, c_expr);
      when {"BIG_MULT_ASSIGN"}:
        process(BIG_MULT_ASSIGN, function, params, c_expr);
      when {"BIG_NE"}:
        process(BIG_NE, function, params, c_expr);
      when {"BIG_NEGATE"}:
        process(BIG_NEGATE, function, params, c_expr);
      when {"BIG_ODD"}:
        process(BIG_ODD, function, params, c_expr);
      when {"BIG_ORD"}:
        process(BIG_ORD, function, params, c_expr);
      when {"BIG_PARSE1"}:
        process(BIG_PARSE1, function, params, c_expr);
      when {"BIG_PARSE_BASED"}:
        process(BIG_PARSE_BASED, function, params, c_expr);
      when {"BIG_PLUS"}:
        process(BIG_PLUS, function, params, c_expr);
      when {"BIG_PRED"}:
        process(BIG_PRED, function, params, c_expr);
      when {"BIG_radix"}:
        process(BIG_radix, function, params, c_expr);
      when {"BIG_RADIX"}:
        process(BIG_RADIX, function, params, c_expr);
      when {"BIG_RAND"}:
        process(BIG_RAND, function, params, c_expr);
      when {"BIG_REM"}:
        process(BIG_REM, function, params, c_expr);
      when {"BIG_RSHIFT"}:
        process(BIG_RSHIFT, function, params, c_expr);
      when {"BIG_RSHIFT_ASSIGN"}:
        process(BIG_RSHIFT_ASSIGN, function, params, c_expr);
      when {"BIG_SBTR"}:
        process(BIG_SBTR, function, params, c_expr);
      when {"BIG_SBTR_ASSIGN"}:
        process(BIG_SBTR_ASSIGN, function, params, c_expr);
      when {"BIG_STR"}:
        process(BIG_STR, function, params, c_expr);
      when {"BIG_SUCC"}:
        process(BIG_SUCC, function, params, c_expr);
      when {"BIG_TO_BSTRI_BE"}:
        process(BIG_TO_BSTRI_BE, function, params, c_expr);
      when {"BIG_TO_BSTRI_LE"}:
        process(BIG_TO_BSTRI_LE, function, params, c_expr);
      when {"BIG_VALUE"}:
        process(BIG_VALUE, function, params, c_expr);
      when {"BIN_AND"}:
        process(BIN_AND, function, params, c_expr);
      when {"BIN_AND_ASSIGN"}:
        process(BIN_AND_ASSIGN, function, params, c_expr);
      when {"BIN_BIG"}:
        process(BIN_BIG, function, params, c_expr);
      when {"BIN_BINARY"}:
        process(BIN_BINARY, function, params, c_expr);
      when {"BIN_CARD"}:
        process(BIN_CARD, function, params, c_expr);
      when {"BIN_CMP"}:
        process(BIN_CMP, function, params, c_expr);
      when {"BIN_GET_BINARY_FROM_SET"}:
        process(BIN_GET_BINARY_FROM_SET, function, params, c_expr);
      when {"BIN_LSHIFT"}:
        process(BIN_LSHIFT, function, params, c_expr);
      when {"BIN_LSHIFT_ASSIGN"}:
        process(BIN_LSHIFT_ASSIGN, function, params, c_expr);
      when {"BIN_OR"}:
        process(BIN_OR, function, params, c_expr);
      when {"BIN_OR_ASSIGN"}:
        process(BIN_OR_ASSIGN, function, params, c_expr);
      when {"BIN_radix"}:
        process(BIN_radix, function, params, c_expr);
      when {"BIN_RADIX"}:
        process(BIN_RADIX, function, params, c_expr);
      when {"BIN_RSHIFT"}:
        process(BIN_RSHIFT, function, params, c_expr);
      when {"BIN_RSHIFT_ASSIGN"}:
        process(BIN_RSHIFT_ASSIGN, function, params, c_expr);
      when {"BIN_STR"}:
        process(BIN_STR, function, params, c_expr);
      when {"BIN_XOR"}:
        process(BIN_XOR, function, params, c_expr);
      when {"BIN_XOR_ASSIGN"}:
        process(BIN_XOR_ASSIGN, function, params, c_expr);
      when {"BLN_AND"}:
        process(BLN_AND, function, params, c_expr);
      when {"BLN_CPY"}:
        process(BLN_CPY, function, params, c_expr);
      when {"BLN_EQ"}:
        process(BLN_EQ, function, params, c_expr);
      when {"BLN_GE"}:
        process(BLN_GE, function, params, c_expr);
      when {"BLN_GT"}:
        process(BLN_GT, function, params, c_expr);
      when {"BLN_ICONV1"}:
        process(BLN_ICONV1, function, params, c_expr);
      when {"BLN_ICONV3"}:
        process(BLN_ICONV3, function, params, c_expr);
      when {"BLN_LE"}:
        process(BLN_LE, function, params, c_expr);
      when {"BLN_LT"}:
        process(BLN_LT, function, params, c_expr);
      when {"BLN_NE"}:
        process(BLN_NE, function, params, c_expr);
      when {"BLN_NOT"}:
        process(BLN_NOT, function, params, c_expr);
      when {"BLN_OR"}:
        process(BLN_OR, function, params, c_expr);
      when {"BLN_ORD"}:
        process(BLN_ORD, function, params, c_expr);
      when {"BLN_TERNARY"}:
        process(BLN_TERNARY, function, params, c_expr);
      when {"BLN_VALUE"}:
        process(BLN_VALUE, function, params, c_expr);
      when {"BST_APPEND"}:
        process(BST_APPEND, function, params, c_expr);
      when {"BST_CMP"}:
        process(BST_CMP, function, params, c_expr);
      when {"BST_CPY"}:
        process(BST_CPY, function, params, c_expr);
      when {"BST_EQ"}:
        process(BST_EQ, function, params, c_expr);
      when {"BST_HASHCODE"}:
        process(BST_HASHCODE, function, params, c_expr);
      when {"BST_IDX"}:
        process(BST_IDX, function, params, c_expr);
      when {"BST_LNG"}:
        process(BST_LNG, function, params, c_expr);
      when {"BST_NE"}:
        process(BST_NE, function, params, c_expr);
      when {"BST_PARSE1"}:
        process(BST_PARSE1, function, params, c_expr);
      when {"BST_STR"}:
        process(BST_STR, function, params, c_expr);
      when {"BST_VALUE"}:
        process(BST_VALUE, function, params, c_expr);
      when {"CHR_CLIT"}:
        process(CHR_CLIT, function, params, c_expr);
      when {"CHR_CMP"}:
        process(CHR_CMP, function, params, c_expr);
      when {"CHR_CONV"}:
        process(CHR_CONV, function, params, c_expr);
      when {"CHR_CPY"}:
        process(CHR_CPY, function, params, c_expr);
      when {"CHR_EQ"}:
        process(CHR_EQ, function, params, c_expr);
      when {"CHR_DECR"}:
        process(CHR_DECR, function, params, c_expr);
      when {"CHR_GE"}:
        process(CHR_GE, function, params, c_expr);
      when {"CHR_GT"}:
        process(CHR_GT, function, params, c_expr);
      when {"CHR_HASHCODE"}:
        process(CHR_HASHCODE, function, params, c_expr);
      when {"CHR_ICONV1"}:
        process(CHR_ICONV1, function, params, c_expr);
      when {"CHR_ICONV3"}:
        process(CHR_ICONV3, function, params, c_expr);
      when {"CHR_INCR"}:
        process(CHR_INCR, function, params, c_expr);
      when {"CHR_IS_LETTER"}:
        process(CHR_IS_LETTER, function, params, c_expr);
      when {"CHR_LE"}:
        process(CHR_LE, function, params, c_expr);
      when {"CHR_LOW"}:
        process(CHR_LOW, function, params, c_expr);
      when {"CHR_LT"}:
        process(CHR_LT, function, params, c_expr);
      when {"CHR_NE"}:
        process(CHR_NE, function, params, c_expr);
      when {"CHR_ORD"}:
        process(CHR_ORD, function, params, c_expr);
      when {"CHR_PRED"}:
        process(CHR_PRED, function, params, c_expr);
      when {"CHR_STR"}:
        process(CHR_STR, function, params, c_expr);
      when {"CHR_SUCC"}:
        process(CHR_SUCC, function, params, c_expr);
      when {"CHR_UP"}:
        process(CHR_UP, function, params, c_expr);
      when {"CHR_VALUE"}:
        process(CHR_VALUE, function, params, c_expr);
      when {"CHR_WIDTH"}:
        process(CHR_WIDTH, function, params, c_expr);
      when {"CMD_BIG_FILESIZE"}:
        process(CMD_BIG_FILESIZE, function, params, c_expr);
      when {"CMD_CHDIR"}:
        process(CMD_CHDIR, function, params, c_expr);
      when {"CMD_CLONE_FILE"}:
        process(CMD_CLONE_FILE, function, params, c_expr);
      when {"CMD_CONFIG_VALUE"}:
        process(CMD_CONFIG_VALUE, function, params, c_expr);
      when {"CMD_COPY_FILE"}:
        process(CMD_COPY_FILE, function, params, c_expr);
      when {"CMD_ENVIRONMENT"}:
        process(CMD_ENVIRONMENT, function, params, c_expr);
      when {"CMD_FILEMODE"}:
        process(CMD_FILEMODE, function, params, c_expr);
      when {"CMD_FILESIZE"}:
        process(CMD_FILESIZE, function, params, c_expr);
      when {"CMD_FILETYPE"}:
        process(CMD_FILETYPE, function, params, c_expr);
      when {"CMD_FILETYPE_SL"}:
        process(CMD_FILETYPE_SL, function, params, c_expr);
      when {"CMD_GETCWD"}:
        process(CMD_GETCWD, function, params, c_expr);
      when {"CMD_GETENV"}:
        process(CMD_GETENV, function, params, c_expr);
      when {"CMD_GET_ATIME"}:
        process(CMD_GET_ATIME, function, params, c_expr);
      when {"CMD_GET_CTIME"}:
        process(CMD_GET_CTIME, function, params, c_expr);
      when {"CMD_GET_GROUP"}:
        process(CMD_GET_GROUP, function, params, c_expr);
      when {"CMD_GET_MTIME"}:
        process(CMD_GET_MTIME, function, params, c_expr);
      when {"CMD_GET_OWNER"}:
        process(CMD_GET_OWNER, function, params, c_expr);
      when {"CMD_GET_SEARCH_PATH"}:
        process(CMD_GET_SEARCH_PATH, function, params, c_expr);
      when {"CMD_HOME_DIR"}:
        process(CMD_HOME_DIR, function, params, c_expr);
      when {"CMD_LS"}:
        process(CMD_LS, function, params, c_expr);
      when {"CMD_MKDIR"}:
        process(CMD_MKDIR, function, params, c_expr);
      when {"CMD_MOVE"}:
        process(CMD_MOVE, function, params, c_expr);
      when {"CMD_READLINK"}:
        process(CMD_READLINK, function, params, c_expr);
      when {"CMD_REMOVE_FILE"}:
        process(CMD_REMOVE_FILE, function, params, c_expr);
      when {"CMD_REMOVE_TREE"}:
        process(CMD_REMOVE_TREE, function, params, c_expr);
      when {"CMD_SETENV"}:
        process(CMD_SETENV, function, params, c_expr);
      when {"CMD_SET_ATIME"}:
        process(CMD_SET_ATIME, function, params, c_expr);
      when {"CMD_SET_FILEMODE"}:
        process(CMD_SET_FILEMODE, function, params, c_expr);
      when {"CMD_SET_GROUP"}:
        process(CMD_SET_GROUP, function, params, c_expr);
      when {"CMD_SET_MTIME"}:
        process(CMD_SET_MTIME, function, params, c_expr);
      when {"CMD_SET_OWNER"}:
        process(CMD_SET_OWNER, function, params, c_expr);
      when {"CMD_SET_SEARCH_PATH"}:
        process(CMD_SET_SEARCH_PATH, function, params, c_expr);
      when {"CMD_SHELL"}:
        process(CMD_SHELL, function, params, c_expr);
      when {"CMD_SHELL_ESCAPE"}:
        process(CMD_SHELL_ESCAPE, function, params, c_expr);
      when {"CMD_SYMLINK"}:
        process(CMD_SYMLINK, function, params, c_expr);
      when {"CMD_TO_OS_PATH"}:
        process(CMD_TO_OS_PATH, function, params, c_expr);
      when {"CMD_UNSETENV"}:
        process(CMD_UNSETENV, function, params, c_expr);
      when {"CON_CLEAR"}:
        consoleLibraryUsed := TRUE;
        process(CON_CLEAR, function, params, c_expr);
      when {"CON_COLUMN"}:
        consoleLibraryUsed := TRUE;
        process(CON_COLUMN, function, params, c_expr);
      when {"CON_CURSOR"}:
        consoleLibraryUsed := TRUE;
        process(CON_CURSOR, function, params, c_expr);
      when {"CON_FLUSH"}:
        consoleLibraryUsed := TRUE;
        process(CON_FLUSH, function, params, c_expr);
      when {"CON_HEIGHT"}:
        consoleLibraryUsed := TRUE;
        process(CON_HEIGHT, function, params, c_expr);
      when {"CON_H_SCL"}:
        consoleLibraryUsed := TRUE;
        process(CON_H_SCL, function, params, c_expr);
      when {"CON_LINE"}:
        consoleLibraryUsed := TRUE;
        process(CON_LINE, function, params, c_expr);
      when {"CON_OPEN"}:
        consoleLibraryUsed := TRUE;
        process(CON_OPEN, function, params, c_expr);
      when {"CON_SETPOS"}:
        consoleLibraryUsed := TRUE;
        process(CON_SETPOS, function, params, c_expr);
      when {"CON_V_SCL"}:
        consoleLibraryUsed := TRUE;
        process(CON_V_SCL, function, params, c_expr);
      when {"CON_WIDTH"}:
        consoleLibraryUsed := TRUE;
        process(CON_WIDTH, function, params, c_expr);
      when {"CON_WRITE"}:
        consoleLibraryUsed := TRUE;
        process(CON_WRITE, function, params, c_expr);
      when {"DCL_CONST"}:
        process(DCL_CONST, function, params, c_expr);
      when {"DCL_FWD"}:
        process(DCL_FWD, function, params, c_expr);
      when {"DCL_GLOBAL"}:
        process(DCL_GLOBAL, function, params, c_expr);
      when {"DCL_VAR"}:
        process(DCL_VAR, function, params, c_expr);
      when {"DRW_ARC"}:
        drawLibraryUsed := TRUE;
        process(DRW_ARC, function, params, c_expr);
      when {"DRW_ARC2"}:
        drawLibraryUsed := TRUE;
        process(DRW_ARC2, function, params, c_expr);
      when {"DRW_BACKGROUND"}:
        drawLibraryUsed := TRUE;
        process(DRW_BACKGROUND, function, params, c_expr);
      when {"DRW_BORDER"}:
        drawLibraryUsed := TRUE;
        process(DRW_BORDER, function, params, c_expr);
      when {"DRW_CAPTURE"}:
        drawLibraryUsed := TRUE;
        process(DRW_CAPTURE, function, params, c_expr);
      when {"DRW_CIRCLE"}:
        drawLibraryUsed := TRUE;
        process(DRW_CIRCLE, function, params, c_expr);
      when {"DRW_CLEAR"}:
        drawLibraryUsed := TRUE;
        process(DRW_CLEAR, function, params, c_expr);
      when {"DRW_CMP"}:
        drawLibraryUsed := TRUE;
        process(DRW_CMP, function, params, c_expr);
      when {"DRW_COLOR"}:
        drawLibraryUsed := TRUE;
        process(DRW_COLOR, function, params, c_expr);
      when {"DRW_CONVPOINTLIST"}:
        drawLibraryUsed := TRUE;
        process(DRW_CONVPOINTLIST, function, params, c_expr);
      when {"DRW_COPYAREA"}:
        drawLibraryUsed := TRUE;
        process(DRW_COPYAREA, function, params, c_expr);
      when {"DRW_CPY"}:
        drawLibraryUsed := TRUE;
        process(DRW_CPY, function, params, c_expr);
      when {"DRW_EQ"}:
        drawLibraryUsed := TRUE;
        process(DRW_EQ, function, params, c_expr);
      when {"DRW_FARCCHORD"}:
        drawLibraryUsed := TRUE;
        process(DRW_FARCCHORD, function, params, c_expr);
      when {"DRW_FARCPIESLICE"}:
        drawLibraryUsed := TRUE;
        process(DRW_FARCPIESLICE, function, params, c_expr);
      when {"DRW_FCIRCLE"}:
        drawLibraryUsed := TRUE;
        process(DRW_FCIRCLE, function, params, c_expr);
      when {"DRW_FELLIPSE"}:
        drawLibraryUsed := TRUE;
        process(DRW_FELLIPSE, function, params, c_expr);
      when {"DRW_FLUSH"}:
        drawLibraryUsed := TRUE;
        process(DRW_FLUSH, function, params, c_expr);
      when {"DRW_FPOLYLINE"}:
        drawLibraryUsed := TRUE;
        process(DRW_FPOLYLINE, function, params, c_expr);
      when {"DRW_GENPOINTLIST"}:
        drawLibraryUsed := TRUE;
        process(DRW_GENPOINTLIST, function, params, c_expr);
      when {"DRW_GET"}:
        drawLibraryUsed := TRUE;
        process(DRW_GET, function, params, c_expr);
      when {"DRW_GETIMAGE"}:
        drawLibraryUsed := TRUE;
        process(DRW_GETIMAGE, function, params, c_expr);
      when {"DRW_GETIMAGEPIXEL"}:
        drawLibraryUsed := TRUE;
        process(DRW_GETIMAGEPIXEL, function, params, c_expr);
      when {"DRW_GETPIXEL"}:
        drawLibraryUsed := TRUE;
        process(DRW_GETPIXEL, function, params, c_expr);
      when {"DRW_HASHCODE"}:
        drawLibraryUsed := TRUE;
        process(DRW_HASHCODE, function, params, c_expr);
      when {"DRW_HEIGHT"}:
        drawLibraryUsed := TRUE;
        process(DRW_HEIGHT, function, params, c_expr);
      when {"DRW_IMAGE"}:
        drawLibraryUsed := TRUE;
        process(DRW_IMAGE, function, params, c_expr);
      when {"DRW_LINE"}:
        drawLibraryUsed := TRUE;
        process(DRW_LINE, function, params, c_expr);
      when {"DRW_NE"}:
        drawLibraryUsed := TRUE;
        process(DRW_NE, function, params, c_expr);
      when {"DRW_NEW_PIXMAP"}:
        drawLibraryUsed := TRUE;
        process(DRW_NEW_PIXMAP, function, params, c_expr);
      when {"DRW_OPEN"}:
        drawLibraryUsed := TRUE;
        process(DRW_OPEN, function, params, c_expr);
      when {"DRW_OPEN_SUB_WINDOW"}:
        drawLibraryUsed := TRUE;
        process(DRW_OPEN_SUB_WINDOW, function, params, c_expr);
      when {"DRW_PARC"}:
        drawLibraryUsed := TRUE;
        process(DRW_PARC, function, params, c_expr);
      when {"DRW_PCIRCLE"}:
        drawLibraryUsed := TRUE;
        process(DRW_PCIRCLE, function, params, c_expr);
      when {"DRW_PFARCCHORD"}:
        drawLibraryUsed := TRUE;
        process(DRW_PFARCCHORD, function, params, c_expr);
      when {"DRW_PFARCPIESLICE"}:
        drawLibraryUsed := TRUE;
        process(DRW_PFARCPIESLICE, function, params, c_expr);
      when {"DRW_PFCIRCLE"}:
        drawLibraryUsed := TRUE;
        process(DRW_PFCIRCLE, function, params, c_expr);
      when {"DRW_PFELLIPSE"}:
        drawLibraryUsed := TRUE;
        process(DRW_PFELLIPSE, function, params, c_expr);
      when {"DRW_PIXELTORGB"}:
        drawLibraryUsed := TRUE;
        process(DRW_PIXELTORGB, function, params, c_expr);
      when {"DRW_PLINE"}:
        drawLibraryUsed := TRUE;
        process(DRW_PLINE, function, params, c_expr);
      when {"DRW_POINT"}:
        drawLibraryUsed := TRUE;
        process(DRW_POINT, function, params, c_expr);
      when {"DRW_POINTER_XPOS"}:
        drawLibraryUsed := TRUE;
        process(DRW_POINTER_XPOS, function, params, c_expr);
      when {"DRW_POINTER_YPOS"}:
        drawLibraryUsed := TRUE;
        process(DRW_POINTER_YPOS, function, params, c_expr);
      when {"DRW_POLYLINE"}:
        drawLibraryUsed := TRUE;
        process(DRW_POLYLINE, function, params, c_expr);
      when {"DRW_PPOINT"}:
        drawLibraryUsed := TRUE;
        process(DRW_PPOINT, function, params, c_expr);
      when {"DRW_PRECT"}:
        drawLibraryUsed := TRUE;
        process(DRW_PRECT, function, params, c_expr);
      when {"DRW_PUT"}:
        drawLibraryUsed := TRUE;
        process(DRW_PUT, function, params, c_expr);
      when {"DRW_RECT"}:
        drawLibraryUsed := TRUE;
        process(DRW_RECT, function, params, c_expr);
      when {"DRW_RGBCOL"}:
        drawLibraryUsed := TRUE;
        process(DRW_RGBCOL, function, params, c_expr);
      when {"DRW_SCREEN_HEIGHT"}:
        drawLibraryUsed := TRUE;
        process(DRW_SCREEN_HEIGHT, function, params, c_expr);
      when {"DRW_SCREEN_WIDTH"}:
        drawLibraryUsed := TRUE;
        process(DRW_SCREEN_WIDTH, function, params, c_expr);
      when {"DRW_SETCLOSEACTION"}:
        drawLibraryUsed := TRUE;
        process(DRW_SETCLOSEACTION, function, params, c_expr);
      when {"DRW_SETCONTENT"}:
        drawLibraryUsed := TRUE;
        process(DRW_SETCONTENT, function, params, c_expr);
      when {"DRW_SETPOS"}:
        drawLibraryUsed := TRUE;
        process(DRW_SETPOS, function, params, c_expr);
      when {"DRW_SETTRANSPARENTCOLOR"}:
        drawLibraryUsed := TRUE;
        process(DRW_SETTRANSPARENTCOLOR, function, params, c_expr);
      when {"DRW_TEXT"}:
        drawLibraryUsed := TRUE;
        process(DRW_TEXT, function, params, c_expr);
      when {"DRW_TOBOTTOM"}:
        drawLibraryUsed := TRUE;
        process(DRW_TOBOTTOM, function, params, c_expr);
      when {"DRW_TOTOP"}:
        drawLibraryUsed := TRUE;
        process(DRW_TOTOP, function, params, c_expr);
      when {"DRW_VALUE"}:
        drawLibraryUsed := TRUE;
        process(DRW_VALUE, function, params, c_expr);
      when {"DRW_WIDTH"}:
        drawLibraryUsed := TRUE;
        process(DRW_WIDTH, function, params, c_expr);
      when {"DRW_XPOS"}:
        drawLibraryUsed := TRUE;
        process(DRW_XPOS, function, params, c_expr);
      when {"DRW_YPOS"}:
        drawLibraryUsed := TRUE;
        process(DRW_YPOS, function, params, c_expr);
      when {"ENU_CONV"}:
        process(ENU_CONV, function, params, c_expr);
      when {"ENU_CPY"}:
        process(ENU_CPY, function, params, c_expr);
      when {"ENU_EQ"}:
        process(ENU_EQ, function, params, c_expr);
      when {"ENU_ICONV2"}:
        process(ENU_ICONV2, function, params, c_expr);
      when {"ENU_NE"}:
        process(ENU_NE, function, params, c_expr);
      when {"ENU_ORD2"}:
        process(ENU_ORD2, function, params, c_expr);
      when {"ENU_VALUE"}:
        process(ENU_VALUE, function, params, c_expr);
      when {"FIL_BIG_LNG"}:
        process(FIL_BIG_LNG, function, params, c_expr);
      when {"FIL_BIG_SEEK"}:
        process(FIL_BIG_SEEK, function, params, c_expr);
      when {"FIL_BIG_TELL"}:
        process(FIL_BIG_TELL, function, params, c_expr);
      when {"FIL_CLOSE"}:
        process(FIL_CLOSE, function, params, c_expr);
      when {"FIL_CPY"}:
        process(FIL_CPY, function, params, c_expr);
      when {"FIL_EMPTY"}:
        process(FIL_EMPTY, function, params, c_expr);
      when {"FIL_EOF"}:
        process(FIL_EOF, function, params, c_expr);
      when {"FIL_EQ"}:
        process(FIL_EQ, function, params, c_expr);
      when {"FIL_ERR"}:
        process(FIL_ERR, function, params, c_expr);
      when {"FIL_FLUSH"}:
        process(FIL_FLUSH, function, params, c_expr);
      when {"FIL_GETC"}:
        process(FIL_GETC, function, params, c_expr);
      when {"FIL_GETS"}:
        process(FIL_GETS, function, params, c_expr);
      when {"FIL_HAS_NEXT"}:
        process(FIL_HAS_NEXT, function, params, c_expr);
      when {"FIL_IN"}:
        process(FIL_IN, function, params, c_expr);
      when {"FIL_INPUT_READY"}:
        process(FIL_INPUT_READY, function, params, c_expr);
      when {"FIL_LINE_READ"}:
        process(FIL_LINE_READ, function, params, c_expr);
      when {"FIL_LIT"}:
        process(FIL_LIT, function, params, c_expr);
      when {"FIL_LNG"}:
        process(FIL_LNG, function, params, c_expr);
      when {"FIL_NE"}:
        process(FIL_NE, function, params, c_expr);
      when {"FIL_OPEN"}:
        process(FIL_OPEN, function, params, c_expr);
      when {"FIL_OPEN_NULL_DEVICE"}:
        process(FIL_OPEN_NULL_DEVICE, function, params, c_expr);
      when {"FIL_OUT"}:
        process(FIL_OUT, function, params, c_expr);
      when {"FIL_PCLOSE"}:
        process(FIL_PCLOSE, function, params, c_expr);
      when {"FIL_PIPE"}:
        process(FIL_PIPE, function, params, c_expr);
      when {"FIL_POPEN"}:
        process(FIL_POPEN, function, params, c_expr);
      when {"FIL_PRINT"}:
        process(FIL_PRINT, function, params, c_expr);
      when {"FIL_SEEK"}:
        process(FIL_SEEK, function, params, c_expr);
      when {"FIL_SETBUF"}:
        process(FIL_SETBUF, function, params, c_expr);
      when {"FIL_TELL"}:
        process(FIL_TELL, function, params, c_expr);
      when {"FIL_TRUNCATE"}:
        process(FIL_TRUNCATE, function, params, c_expr);
      when {"FIL_VALUE"}:
        process(FIL_VALUE, function, params, c_expr);
      when {"FIL_WRITE"}:
        process(FIL_WRITE, function, params, c_expr);
      when {"FIL_WORD_READ"}:
        process(FIL_WORD_READ, function, params, c_expr);
      when {"FLT_ABS"}:
        process(FLT_ABS, function, params, c_expr);
      when {"FLT_ACOS"}:
        process(FLT_ACOS, function, params, c_expr);
      when {"FLT_ADD"}:
        process(FLT_ADD, function, params, c_expr);
      when {"FLT_ADD_ASSIGN"}:
        process(FLT_ADD_ASSIGN, function, params, c_expr);
      when {"FLT_ASIN"}:
        process(FLT_ASIN, function, params, c_expr);
      when {"FLT_ATAN"}:
        process(FLT_ATAN, function, params, c_expr);
      when {"FLT_ATAN2"}:
        process(FLT_ATAN2, function, params, c_expr);
      when {"FLT_BITS2DOUBLE"}:
        process(FLT_BITS2DOUBLE, function, params, c_expr);
      when {"FLT_BITS2SINGLE"}:
        process(FLT_BITS2SINGLE, function, params, c_expr);
      when {"FLT_CAST"}:
        process(FLT_CAST, function, params, c_expr);
      when {"FLT_CEIL"}:
        process(FLT_CEIL, function, params, c_expr);
      when {"FLT_CMP"}:
        process(FLT_CMP, function, params, c_expr);
      when {"FLT_COS"}:
        process(FLT_COS, function, params, c_expr);
      when {"FLT_COSH"}:
        process(FLT_COSH, function, params, c_expr);
      when {"FLT_CPY"}:
        process(FLT_CPY, function, params, c_expr);
      when {"FLT_DECOMPOSE"}:
        process(FLT_DECOMPOSE, function, params, c_expr);
      when {"FLT_DGTS"}:
        process(FLT_DGTS, function, params, c_expr);
      when {"FLT_DIV"}:
        process(FLT_DIV, function, params, c_expr);
      when {"FLT_DIV_ASSIGN"}:
        process(FLT_DIV_ASSIGN, function, params, c_expr);
      when {"FLT_DOUBLE2BITS"}:
        process(FLT_DOUBLE2BITS, function, params, c_expr);
      when {"FLT_EQ"}:
        process(FLT_EQ, function, params, c_expr);
      when {"FLT_EXP"}:
        process(FLT_EXP, function, params, c_expr);
      when {"FLT_FLOOR"}:
        process(FLT_FLOOR, function, params, c_expr);
      when {"FLT_GE"}:
        process(FLT_GE, function, params, c_expr);
      when {"FLT_GT"}:
        process(FLT_GT, function, params, c_expr);
      when {"FLT_HASHCODE"}:
        process(FLT_HASHCODE, function, params, c_expr);
      when {"FLT_ICAST"}:
        process(FLT_ICAST, function, params, c_expr);
      when {"FLT_ICONV1"}:
        process(FLT_ICONV1, function, params, c_expr);
      when {"FLT_ICONV3"}:
        process(FLT_ICONV3, function, params, c_expr);
      when {"FLT_IPOW"}:
        process(FLT_IPOW, function, params, c_expr);
      when {"FLT_ISNAN"}:
        process(FLT_ISNAN, function, params, c_expr);
      when {"FLT_ISNEGATIVEZERO"}:
        process(FLT_ISNEGATIVEZERO, function, params, c_expr);
      when {"FLT_LE"}:
        process(FLT_LE, function, params, c_expr);
      when {"FLT_LOG"}:
        process(FLT_LOG, function, params, c_expr);
      when {"FLT_LOG10"}:
        process(FLT_LOG10, function, params, c_expr);
      when {"FLT_LOG2"}:
        process(FLT_LOG2, function, params, c_expr);
      when {"FLT_LSHIFT"}:
        process(FLT_LSHIFT, function, params, c_expr);
      when {"FLT_LT"}:
        process(FLT_LT, function, params, c_expr);
      when {"FLT_MOD"}:
        process(FLT_MOD, function, params, c_expr);
      when {"FLT_MULT"}:
        process(FLT_MULT, function, params, c_expr);
      when {"FLT_MULT_ASSIGN"}:
        process(FLT_MULT_ASSIGN, function, params, c_expr);
      when {"FLT_NE"}:
        process(FLT_NE, function, params, c_expr);
      when {"FLT_NEGATE"}:
        process(FLT_NEGATE, function, params, c_expr);
      when {"FLT_PARSE1"}:
        process(FLT_PARSE1, function, params, c_expr);
      when {"FLT_PLUS"}:
        process(FLT_PLUS, function, params, c_expr);
      when {"FLT_POW"}:
        process(FLT_POW, function, params, c_expr);
      when {"FLT_RAND"}:
        process(FLT_RAND, function, params, c_expr);
      when {"FLT_REM"}:
        process(FLT_REM, function, params, c_expr);
      when {"FLT_ROUND"}:
        process(FLT_ROUND, function, params, c_expr);
      when {"FLT_RSHIFT"}:
        process(FLT_RSHIFT, function, params, c_expr);
      when {"FLT_SBTR"}:
        process(FLT_SBTR, function, params, c_expr);
      when {"FLT_SBTR_ASSIGN"}:
        process(FLT_SBTR_ASSIGN, function, params, c_expr);
      when {"FLT_SCI"}:
        process(FLT_SCI, function, params, c_expr);
      when {"FLT_SIN"}:
        process(FLT_SIN, function, params, c_expr);
      when {"FLT_SINGLE2BITS"}:
        process(FLT_SINGLE2BITS, function, params, c_expr);
      when {"FLT_SINH"}:
        process(FLT_SINH, function, params, c_expr);
      when {"FLT_SQRT"}:
        process(FLT_SQRT, function, params, c_expr);
      when {"FLT_STR"}:
        process(FLT_STR, function, params, c_expr);
      when {"FLT_TAN"}:
        process(FLT_TAN, function, params, c_expr);
      when {"FLT_TANH"}:
        process(FLT_TANH, function, params, c_expr);
      when {"FLT_TRUNC"}:
        process(FLT_TRUNC, function, params, c_expr);
      when {"FLT_VALUE"}:
        process(FLT_VALUE, function, params, c_expr);
      when {"GKB_BUSY_GETC"}:
        drawLibraryUsed := TRUE;
        process(GKB_BUSY_GETC, function, params, c_expr);
      when {"GKB_GETC"}:
        drawLibraryUsed := TRUE;
        process(GKB_GETC, function, params, c_expr);
      when {"GKB_GETS"}:
        drawLibraryUsed := TRUE;
        process(GKB_GETS, function, params, c_expr);
      when {"GKB_KEYPRESSED"}:
        drawLibraryUsed := TRUE;
        process(GKB_KEYPRESSED, function, params, c_expr);
      when {"GKB_LINE_READ"}:
        drawLibraryUsed := TRUE;
        process(GKB_LINE_READ, function, params, c_expr);
      when {"GKB_RAW_GETC"}:
        drawLibraryUsed := TRUE;
        process(GKB_RAW_GETC, function, params, c_expr);
      when {"GKB_WINDOW"}:
        drawLibraryUsed := TRUE;
        process(GKB_WINDOW, function, params, c_expr);
      when {"GKB_WORD_READ"}:
        drawLibraryUsed := TRUE;
        process(GKB_WORD_READ, function, params, c_expr);
      when {"GKB_BUTTON_PRESSED"}:
        drawLibraryUsed := TRUE;
        process(GKB_BUTTON_PRESSED, function, params, c_expr);
      when {"GKB_BUTTON_XPOS"}:
        drawLibraryUsed := TRUE;
        process(GKB_BUTTON_XPOS, function, params, c_expr);
      when {"GKB_BUTTON_YPOS"}:
        drawLibraryUsed := TRUE;
        process(GKB_BUTTON_YPOS, function, params, c_expr);
      when {"HSH_CONTAINS"}:
        process(HSH_CONTAINS, function, params, c_expr);
      when {"HSH_CPY"}:
        process(HSH_CPY, function, params, c_expr);
      when {"HSH_CREATE"}:
        process(HSH_CREATE, function, params, c_expr);
      when {"HSH_DESTR"}:
        process(HSH_DESTR, function, params, c_expr);
      when {"HSH_EXCL"}:
        process(HSH_EXCL, function, params, c_expr);
      when {"HSH_FOR"}:
        process(HSH_FOR, function, params, c_expr);
      when {"HSH_FOR_DATA_KEY"}:
        process(HSH_FOR_DATA_KEY, function, params, c_expr);
      when {"HSH_FOR_KEY"}:
        process(HSH_FOR_KEY, function, params, c_expr);
      when {"HSH_IDX"}:
        process(HSH_IDX, function, params, c_expr);
      when {"HSH_IDX2"}:
        process(HSH_IDX2, function, params, c_expr);
      when {"HSH_INCL"}:
        process(HSH_INCL, function, params, c_expr);
      when {"HSH_KEYS"}:
        process(HSH_KEYS, function, params, c_expr);
      when {"HSH_LNG"}:
        process(HSH_LNG, function, params, c_expr);
      when {"HSH_RAND_KEY"}:
        process(HSH_RAND_KEY, function, params, c_expr);
      when {"HSH_UPDATE"}:
        process(HSH_UPDATE, function, params, c_expr);
      when {"HSH_VALUES"}:
        process(HSH_VALUES, function, params, c_expr);
      when {"INT_ABS"}:
        process(INT_ABS, function, params, c_expr);
      when {"INT_ADD"}:
        process(INT_ADD, function, params, c_expr);
      when {"INT_ADD_ASSIGN"}:
        process(INT_ADD_ASSIGN, function, params, c_expr);
      when {"INT_BINOM"}:
        process(INT_BINOM, function, params, c_expr);
      when {"INT_BIT_LENGTH"}:
        process(INT_BIT_LENGTH, function, params, c_expr);
      when {"INT_BYTES_BE_2_INT"}:
        process(INT_BYTES_BE_2_INT, function, params, c_expr);
      when {"INT_BYTES_BE_2_UINT"}:
        process(INT_BYTES_BE_2_UINT, function, params, c_expr);
      when {"INT_BYTES_BE_SIGNED"}:
        process(INT_BYTES_BE_SIGNED, function, params, c_expr);
      when {"INT_BYTES_BE_UNSIGNED"}:
        process(INT_BYTES_BE_UNSIGNED, function, params, c_expr);
      when {"INT_BYTES_LE_2_INT"}:
        process(INT_BYTES_LE_2_INT, function, params, c_expr);
      when {"INT_BYTES_LE_2_UINT"}:
        process(INT_BYTES_LE_2_UINT, function, params, c_expr);
      when {"INT_BYTES_LE_SIGNED"}:
        process(INT_BYTES_LE_SIGNED, function, params, c_expr);
      when {"INT_BYTES_LE_UNSIGNED"}:
        process(INT_BYTES_LE_UNSIGNED, function, params, c_expr);
      when {"INT_CMP"}:
        process(INT_CMP, function, params, c_expr);
      when {"INT_CPY"}:
        process(INT_CPY, function, params, c_expr);
      when {"INT_DECR"}:
        process(INT_DECR, function, params, c_expr);
      when {"INT_DIV"}:
        process(INT_DIV, function, params, c_expr);
      when {"INT_EQ"}:
        process(INT_EQ, function, params, c_expr);
      when {"INT_FACT"}:
        process(INT_FACT, function, params, c_expr);
      when {"INT_GE"}:
        process(INT_GE, function, params, c_expr);
      when {"INT_GT"}:
        process(INT_GT, function, params, c_expr);
      when {"INT_HASHCODE"}:
        process(INT_HASHCODE, function, params, c_expr);
      when {"INT_ICONV1"}:
        process(INT_ICONV1, function, params, c_expr);
      when {"INT_ICONV3"}:
        process(INT_ICONV3, function, params, c_expr);
      when {"INT_INCR"}:
        process(INT_INCR, function, params, c_expr);
      when {"INT_LE"}:
        process(INT_LE, function, params, c_expr);
      when {"INT_LOG10"}:
        process(INT_LOG10, function, params, c_expr);
      when {"INT_LOG2"}:
        process(INT_LOG2, function, params, c_expr);
      when {"INT_LOWEST_SET_BIT"}:
        process(INT_LOWEST_SET_BIT, function, params, c_expr);
      when {"INT_LPAD0"}:
        process(INT_LPAD0, function, params, c_expr);
      when {"INT_LSHIFT"}:
        process(INT_LSHIFT, function, params, c_expr);
      when {"INT_LSHIFT_ASSIGN"}:
        process(INT_LSHIFT_ASSIGN, function, params, c_expr);
      when {"INT_LT"}:
        process(INT_LT, function, params, c_expr);
      when {"INT_MDIV"}:
        process(INT_MDIV, function, params, c_expr);
      when {"INT_MOD"}:
        process(INT_MOD, function, params, c_expr);
      when {"INT_MULT"}:
        process(INT_MULT, function, params, c_expr);
      when {"INT_MULT_ASSIGN"}:
        process(INT_MULT_ASSIGN, function, params, c_expr);
      when {"INT_NE"}:
        process(INT_NE, function, params, c_expr);
      when {"INT_NEGATE"}:
        process(INT_NEGATE, function, params, c_expr);
      when {"INT_ODD"}:
        process(INT_ODD, function, params, c_expr);
      when {"INT_PARSE1"}:
        process(INT_PARSE1, function, params, c_expr);
      when {"INT_PLUS"}:
        process(INT_PLUS, function, params, c_expr);
      when {"INT_POW"}:
        process(INT_POW, function, params, c_expr);
      when {"INT_PRED"}:
        process(INT_PRED, function, params, c_expr);
      when {"INT_radix"}:
        process(INT_radix, function, params, c_expr);
      when {"INT_RADIX"}:
        process(INT_RADIX, function, params, c_expr);
      when {"INT_RAND"}:
        process(INT_RAND, function, params, c_expr);
      when {"INT_REM"}:
        process(INT_REM, function, params, c_expr);
      when {"INT_RSHIFT"}:
        process(INT_RSHIFT, function, params, c_expr);
      when {"INT_RSHIFT_ASSIGN"}:
        process(INT_RSHIFT_ASSIGN, function, params, c_expr);
      when {"INT_SBTR"}:
        process(INT_SBTR, function, params, c_expr);
      when {"INT_SBTR_ASSIGN"}:
        process(INT_SBTR_ASSIGN, function, params, c_expr);
      when {"INT_SQRT"}:
        process(INT_SQRT, function, params, c_expr);
      when {"INT_STR"}:
        process(INT_STR, function, params, c_expr);
      when {"INT_SUCC"}:
        process(INT_SUCC, function, params, c_expr);
      when {"INT_VALUE"}:
        process(INT_VALUE, function, params, c_expr);
      when {"ITF_CMP"}:
        process(ITF_CMP, function, params, c_expr);
      when {"ITF_CONV2"}:
        process(ITF_CONV2, function, params, c_expr);
      when {"ITF_CPY"}:
        process(ITF_CPY, function, params, c_expr);
      when {"ITF_CPY2"}:
        process(ITF_CPY2, function, params, c_expr);
      when {"ITF_EQ"}:
        process(ITF_EQ, function, params, c_expr);
      when {"ITF_HASHCODE"}:
        process(ITF_HASHCODE, function, params, c_expr);
      when {"ITF_NE"}:
        process(ITF_NE, function, params, c_expr);
      when {"ITF_TO_INTERFACE"}:
        process(ITF_TO_INTERFACE, function, params, c_expr);
      when {"KBD_BUSY_GETC"}:
        consoleLibraryUsed := TRUE;
        process(KBD_BUSY_GETC, function, params, c_expr);
      when {"KBD_GETC"}:
        consoleLibraryUsed := TRUE;
        process(KBD_GETC, function, params, c_expr);
      when {"KBD_GETS"}:
        consoleLibraryUsed := TRUE;
        process(KBD_GETS, function, params, c_expr);
      when {"KBD_KEYPRESSED"}:
        consoleLibraryUsed := TRUE;
        process(KBD_KEYPRESSED, function, params, c_expr);
      when {"KBD_LINE_READ"}:
        consoleLibraryUsed := TRUE;
        process(KBD_LINE_READ, function, params, c_expr);
      when {"KBD_RAW_GETC"}:
        consoleLibraryUsed := TRUE;
        process(KBD_RAW_GETC, function, params, c_expr);
      when {"KBD_WORD_READ"}:
        consoleLibraryUsed := TRUE;
        process(KBD_WORD_READ, function, params, c_expr);
      when {"PCS_CHILD_STDERR"}:
        process(PCS_CHILD_STDERR, function, params, c_expr);
      when {"PCS_CHILD_STDIN"}:
        process(PCS_CHILD_STDIN, function, params, c_expr);
      when {"PCS_CHILD_STDOUT"}:
        process(PCS_CHILD_STDOUT, function, params, c_expr);
      when {"PCS_CMP"}:
        process(PCS_CMP, function, params, c_expr);
      when {"PCS_CPY"}:
        process(PCS_CPY, function, params, c_expr);
      when {"PCS_EQ"}:
        process(PCS_EQ, function, params, c_expr);
      when {"PCS_EXIT_VALUE"}:
        process(PCS_EXIT_VALUE, function, params, c_expr);
      when {"PCS_HASHCODE"}:
        process(PCS_HASHCODE, function, params, c_expr);
      when {"PCS_IS_ALIVE"}:
        process(PCS_IS_ALIVE, function, params, c_expr);
      when {"PCS_KILL"}:
        process(PCS_KILL, function, params, c_expr);
      when {"PCS_NE"}:
        process(PCS_NE, function, params, c_expr);
      when {"PCS_PIPE2"}:
        process(PCS_PIPE2, function, params, c_expr);
      when {"PCS_PTY"}:
        process(PCS_PTY, function, params, c_expr);
      when {"PCS_START"}:
        process(PCS_START, function, params, c_expr);
      when {"PCS_STR"}:
        process(PCS_STR, function, params, c_expr);
      when {"PCS_VALUE"}:
        process(PCS_VALUE, function, params, c_expr);
      when {"PCS_WAIT_FOR"}:
        process(PCS_WAIT_FOR, function, params, c_expr);
      when {"POL_ADD_CHECK"}:
        process(POL_ADD_CHECK, function, params, c_expr);
      when {"POL_CLEAR"}:
        process(POL_CLEAR, function, params, c_expr);
      when {"POL_CPY"}:
        process(POL_CPY, function, params, c_expr);
      when {"POL_GET_CHECK"}:
        process(POL_GET_CHECK, function, params, c_expr);
      when {"POL_GET_FINDING"}:
        process(POL_GET_FINDING, function, params, c_expr);
      when {"POL_HAS_NEXT"}:
        process(POL_HAS_NEXT, function, params, c_expr);
      when {"POL_ITER_CHECKS"}:
        process(POL_ITER_CHECKS, function, params, c_expr);
      when {"POL_ITER_FINDINGS"}:
        process(POL_ITER_FINDINGS, function, params, c_expr);
      when {"POL_NEXT_FILE"}:
        process(POL_NEXT_FILE, function, params, c_expr);
      when {"POL_POLL"}:
        process(POL_POLL, function, params, c_expr);
      when {"POL_REMOVE_CHECK"}:
        process(POL_REMOVE_CHECK, function, params, c_expr);
      when {"POL_VALUE"}:
        process(POL_VALUE, function, params, c_expr);
      when {"PRC_ARGS"}:
        process(PRC_ARGS, function, params, c_expr);
      when {"PRC_BLOCK"}:
        process(PRC_BLOCK, function, params, c_expr);
      when {"PRC_BLOCK_CATCH_ALL"}:
        process(PRC_BLOCK_CATCH_ALL, function, params, c_expr);
      when {"PRC_BLOCK_OTHERWISE"}:
        process(PRC_BLOCK_OTHERWISE, function, params, c_expr);
      when {"PRC_CASE"}:
        process(PRC_CASE, function, params, c_expr);
      when {"PRC_CASE_DEF"}:
        process(PRC_CASE_DEF, function, params, c_expr);
      when {"PRC_CASE_HASHSET"}:
        process(PRC_CASE_HASHSET, function, params, c_expr);
      when {"PRC_CASE_HASHSET_DEF"}:
        process(PRC_CASE_HASHSET_DEF, function, params, c_expr);
      when {"PRC_CPY"}:
        process(PRC_CPY, function, params, c_expr);
      when {"PRC_DYNAMIC"}:
        process(PRC_DYNAMIC, function, params, c_expr);
      when {"PRC_EXIT"}:
        process(PRC_EXIT, function, params, c_expr);
      when {"PRC_FOR_DOWNTO"}:
        process(PRC_FOR_DOWNTO, function, params, c_expr);
      when {"PRC_FOR_DOWNTO_STEP"}:
        process(PRC_FOR_DOWNTO_STEP, function, params, c_expr);
      when {"PRC_FOR_TO"}:
        process(PRC_FOR_TO, function, params, c_expr);
      when {"PRC_FOR_TO_STEP"}:
        process(PRC_FOR_TO_STEP, function, params, c_expr);
      when {"PRC_HEAPSTAT"}:
        process(PRC_HEAPSTAT, function, params, c_expr);
      when {"PRC_HSIZE"}:
        process(PRC_HSIZE, function, params, c_expr);
      when {"PRC_IF"}:
        process(PRC_IF, function, params, c_expr);
      when {"PRC_IF_ELSIF"}:
        process(PRC_IF_ELSIF, function, params, c_expr);
      when {"PRC_IF_NOOP"}:
        process(PRC_IF_NOOP, function, params, c_expr);
      when {"PRC_NOOP"}:
        process(PRC_NOOP, function, params, c_expr);
      when {"PRC_RAISE"}:
        process(PRC_RAISE, function, params, c_expr);
      when {"PRC_REPEAT"}:
        process(PRC_REPEAT, function, params, c_expr);
      when {"PRC_REPEAT_NOOP"}:
        process(PRC_REPEAT_NOOP, function, params, c_expr);
      when {"PRC_RETURN"}:
        process(PRC_RETURN, function, params, c_expr);
      when {"PRC_WHILE"}:
        process(PRC_WHILE, function, params, c_expr);
      when {"PRC_WHILE_NOOP"}:
        process(PRC_WHILE_NOOP, function, params, c_expr);
      when {"PRG_CPY"}:
        process(PRG_CPY, function, params, c_expr);
      when {"PRG_EQ"}:
        process(PRG_EQ, function, params, c_expr);
      when {"PRG_ERROR_COUNT"}:
        process(PRG_ERROR_COUNT, function, params, c_expr);
      when {"PRG_EVAL"}:
        process(PRG_EVAL, function, params, c_expr);
      when {"PRG_EXEC"}:
        process(PRG_EXEC, function, params, c_expr);
      when {"PRG_FIL_PARSE"}:
        process(PRG_FIL_PARSE, function, params, c_expr);
      when {"PRG_GLOBAL_OBJECTS"}:
        process(PRG_GLOBAL_OBJECTS, function, params, c_expr);
      when {"PRG_MATCH"}:
        process(PRG_MATCH, function, params, c_expr);
      when {"PRG_MATCH_EXPR"}:
        process(PRG_MATCH_EXPR, function, params, c_expr);
      when {"PRG_NAME"}:
        process(PRG_NAME, function, params, c_expr);
      when {"PRG_NE"}:
        process(PRG_NE, function, params, c_expr);
      when {"PRG_OWN_NAME"}:
        process(PRG_OWN_NAME, function, params, c_expr);
      when {"PRG_OWN_PATH"}:
        process(PRG_OWN_PATH, function, params, c_expr);
      when {"PRG_PATH"}:
        process(PRG_PATH, function, params, c_expr);
      when {"PRG_STR_PARSE"}:
        process(PRG_STR_PARSE, function, params, c_expr);
      when {"PRG_SYOBJECT"}:
        process(PRG_SYOBJECT, function, params, c_expr);
      when {"PRG_SYSVAR"}:
        process(PRG_SYSVAR, function, params, c_expr);
      when {"PRG_VALUE"}:
        process(PRG_VALUE, function, params, c_expr);
      when {"REF_ADDR"}:
        process(REF_ADDR, function, params, c_expr);
      when {"REF_ALLOC"}:
        process(REF_ALLOC, function, params, c_expr);
      when {"REF_ALLOC_INT"}:
        process(REF_ALLOC_INT, function, params, c_expr);
      when {"REF_ALLOC_STRI"}:
        process(REF_ALLOC_STRI, function, params, c_expr);
      when {"REF_ALLOC_VAR"}:
        process(REF_ALLOC_VAR, function, params, c_expr);
      when {"REF_ARRMAXIDX"}:
        process(REF_ARRMAXIDX, function, params, c_expr);
      when {"REF_ARRMINIDX"}:
        process(REF_ARRMINIDX, function, params, c_expr);
      when {"REF_ARRTOLIST"}:
        process(REF_ARRTOLIST, function, params, c_expr);
      when {"REF_BODY"}:
        process(REF_BODY, function, params, c_expr);
      when {"REF_CATEGORY"}:
        process(REF_CATEGORY, function, params, c_expr);
      when {"REF_CAT_PARSE"}:
        process(REF_CAT_PARSE, function, params, c_expr);
      when {"REF_CAT_STR"}:
        process(REF_CAT_STR, function, params, c_expr);
      when {"REF_CMP"}:
        process(REF_CMP, function, params, c_expr);
      when {"REF_CPY"}:
        process(REF_CPY, function, params, c_expr);
      when {"REF_DEREF"}:
        process(REF_DEREF, function, params, c_expr);
      when {"REF_EQ"}:
        process(REF_EQ, function, params, c_expr);
      when {"REF_FILE"}:
        process(REF_FILE, function, params, c_expr);
      when {"REF_GETREF"}:
        process(REF_GETREF, function, params, c_expr);
      when {"REF_HASHCODE"}:
        process(REF_HASHCODE, function, params, c_expr);
      when {"REF_HSHDATATOLIST"}:
        process(REF_HSHDATATOLIST, function, params, c_expr);
      when {"REF_HSHKEYSTOLIST"}:
        process(REF_HSHKEYSTOLIST, function, params, c_expr);
      when {"REF_HSHLENGTH"}:
        process(REF_HSHLENGTH, function, params, c_expr);
      when {"REF_ISVAR"}:
        process(REF_ISVAR, function, params, c_expr);
      when {"REF_ITFTOSCT"}:
        process(REF_ITFTOSCT, function, params, c_expr);
      when {"REF_LINE"}:
        process(REF_LINE, function, params, c_expr);
      when {"REF_LOCAL_CONSTS"}:
        process(REF_LOCAL_CONSTS, function, params, c_expr);
      when {"REF_LOCAL_VARS"}:
        process(REF_LOCAL_VARS, function, params, c_expr);
      when {"REF_NE"}:
        process(REF_NE, function, params, c_expr);
      when {"REF_NUM"}:
        process(REF_NUM, function, params, c_expr);
      when {"REF_PARAMS"}:
        process(REF_PARAMS, function, params, c_expr);
      when {"REF_RESINI"}:
        process(REF_RESINI, function, params, c_expr);
      when {"REF_RESULT"}:
        process(REF_RESULT, function, params, c_expr);
      when {"REF_SCTTOLIST"}:
        process(REF_SCTTOLIST, function, params, c_expr);
      when {"REF_SELECT"}:
        process(REF_SELECT, function, params, c_expr);
      when {"REF_SETCATEGORY"}:
        process(REF_SETCATEGORY, function, params, c_expr);
      when {"REF_SETPARAMS"}:
        process(REF_SETPARAMS, function, params, c_expr);
      when {"REF_SETTYPE"}:
        process(REF_SETTYPE, function, params, c_expr);
      when {"REF_SETVAR"}:
        process(REF_SETVAR, function, params, c_expr);
      when {"REF_STR"}:
        process(REF_STR, function, params, c_expr);
      when {"REF_TRACE"}:
        process(REF_TRACE, function, params, c_expr);
      when {"REF_TYPE"}:
        process(REF_TYPE, function, params, c_expr);
      when {"REF_VALUE"}:
        process(REF_VALUE, function, params, c_expr);
      when {"RFL_APPEND"}:
        process(RFL_APPEND, function, params, c_expr);
      when {"RFL_CAT"}:
        process(RFL_CAT, function, params, c_expr);
      when {"RFL_CPY"}:
        process(RFL_CPY, function, params, c_expr);
      when {"RFL_ELEM"}:
        process(RFL_ELEM, function, params, c_expr);
      when {"RFL_ELEMCPY"}:
        process(RFL_ELEMCPY, function, params, c_expr);
      when {"RFL_EQ"}:
        process(RFL_EQ, function, params, c_expr);
      when {"RFL_FOR"}:
        process(RFL_FOR, function, params, c_expr);
      when {"RFL_FOR_UNTIL"}:
        process(RFL_FOR_UNTIL, function, params, c_expr);
      when {"RFL_HEAD"}:
        process(RFL_HEAD, function, params, c_expr);
      when {"RFL_IDX"}:
        process(RFL_IDX, function, params, c_expr);
      when {"RFL_INCL"}:
        process(RFL_INCL, function, params, c_expr);
      when {"RFL_IPOS"}:
        process(RFL_IPOS, function, params, c_expr);
      when {"RFL_LNG"}:
        process(RFL_LNG, function, params, c_expr);
      when {"RFL_MKLIST"}:
        process(RFL_MKLIST, function, params, c_expr);
      when {"RFL_NE"}:
        process(RFL_NE, function, params, c_expr);
      when {"RFL_NOT_ELEM"}:
        process(RFL_NOT_ELEM, function, params, c_expr);
      when {"RFL_POS"}:
        process(RFL_POS, function, params, c_expr);
      when {"RFL_SET_VALUE"}:
        process(RFL_SET_VALUE, function, params, c_expr);
      when {"RFL_TAIL"}:
        process(RFL_TAIL, function, params, c_expr);
      when {"RFL_VALUE"}:
        process(RFL_VALUE, function, params, c_expr);
      when {"SCT_ALLOC"}:
        process(SCT_ALLOC, function, params, c_expr);
      when {"SCT_CONV"}:
        process(SCT_CONV, function, params, c_expr);
      when {"SCT_CPY"}:
        process(SCT_CPY, function, params, c_expr);
      when {"SCT_SELECT"}:
        process(SCT_SELECT, function, params, c_expr);
      when {"SET_ARRLIT"}:
        process(SET_ARRLIT, function, params, c_expr);
      when {"SET_BASELIT"}:
        process(SET_BASELIT, function, params, c_expr);
      when {"SET_CARD"}:
        process(SET_CARD, function, params, c_expr);
      when {"SET_CMP"}:
        process(SET_CMP, function, params, c_expr);
      when {"SET_CONV1"}:
        process(SET_CONV1, function, params, c_expr);
      when {"SET_CONV3"}:
        process(SET_CONV3, function, params, c_expr);
      when {"SET_CPY"}:
        process(SET_CPY, function, params, c_expr);
      when {"SET_DIFF"}:
        process(SET_DIFF, function, params, c_expr);
      when {"SET_ELEM"}:
        process(SET_ELEM, function, params, c_expr);
      when {"SET_EQ"}:
        process(SET_EQ, function, params, c_expr);
      when {"SET_EXCL"}:
        process(SET_EXCL, function, params, c_expr);
      when {"SET_GE"}:
        process(SET_GE, function, params, c_expr);
      when {"SET_GT"}:
        process(SET_GT, function, params, c_expr);
      when {"SET_HASHCODE"}:
        process(SET_HASHCODE, function, params, c_expr);
      when {"SET_ICONV1"}:
        process(SET_ICONV1, function, params, c_expr);
      when {"SET_ICONV3"}:
        process(SET_ICONV3, function, params, c_expr);
      when {"SET_INCL"}:
        process(SET_INCL, function, params, c_expr);
      when {"SET_INTERSECT"}:
        process(SET_INTERSECT, function, params, c_expr);
      when {"SET_INTERSECT_ASSIGN"}:
        process(SET_INTERSECT_ASSIGN, function, params, c_expr);
      when {"SET_LE"}:
        process(SET_LE, function, params, c_expr);
      when {"SET_LT"}:
        process(SET_LT, function, params, c_expr);
      when {"SET_MAX"}:
        process(SET_MAX, function, params, c_expr);
      when {"SET_MIN"}:
        process(SET_MIN, function, params, c_expr);
      when {"SET_NE"}:
        process(SET_NE, function, params, c_expr);
      when {"SET_NEXT"}:
        process(SET_NEXT, function, params, c_expr);
      when {"SET_NOT_ELEM"}:
        process(SET_NOT_ELEM, function, params, c_expr);
      when {"SET_RAND"}:
        process(SET_RAND, function, params, c_expr);
      when {"SET_RANGELIT"}:
        process(SET_RANGELIT, function, params, c_expr);
      when {"SET_SCONV1"}:
        process(SET_SCONV1, function, params, c_expr);
      when {"SET_SCONV3"}:
        process(SET_SCONV3, function, params, c_expr);
      when {"SET_SYMDIFF"}:
        process(SET_SYMDIFF, function, params, c_expr);
      when {"SET_UNION"}:
        process(SET_UNION, function, params, c_expr);
      when {"SET_UNION_ASSIGN"}:
        process(SET_UNION_ASSIGN, function, params, c_expr);
      when {"SET_VALUE"}:
        process(SET_VALUE, function, params, c_expr);
      when {"SOC_ACCEPT"}:
        process(SOC_ACCEPT, function, params, c_expr);
      when {"SOC_ADDR_FAMILY"}:
        process(SOC_ADDR_FAMILY, function, params, c_expr);
      when {"SOC_ADDR_NUMERIC"}:
        process(SOC_ADDR_NUMERIC, function, params, c_expr);
      when {"SOC_ADDR_SERVICE"}:
        process(SOC_ADDR_SERVICE, function, params, c_expr);
      when {"SOC_BIND"}:
        process(SOC_BIND, function, params, c_expr);
      when {"SOC_CLOSE"}:
        process(SOC_CLOSE, function, params, c_expr);
      when {"SOC_CONNECT"}:
        process(SOC_CONNECT, function, params, c_expr);
      when {"SOC_CPY"}:
        process(SOC_CPY, function, params, c_expr);
      when {"SOC_EQ"}:
        process(SOC_EQ, function, params, c_expr);
      when {"SOC_GETC"}:
        process(SOC_GETC, function, params, c_expr);
      when {"SOC_GETS"}:
        process(SOC_GETS, function, params, c_expr);
      when {"SOC_GET_HOSTNAME"}:
        process(SOC_GET_HOSTNAME, function, params, c_expr);
      when {"SOC_GET_LOCAL_ADDR"}:
        process(SOC_GET_LOCAL_ADDR, function, params, c_expr);
      when {"SOC_GET_PEER_ADDR"}:
        process(SOC_GET_PEER_ADDR, function, params, c_expr);
      when {"SOC_HAS_NEXT"}:
        process(SOC_HAS_NEXT, function, params, c_expr);
      when {"SOC_INET_ADDR"}:
        process(SOC_INET_ADDR, function, params, c_expr);
      when {"SOC_INET_LOCAL_ADDR"}:
        process(SOC_INET_LOCAL_ADDR, function, params, c_expr);
      when {"SOC_INET_SERV_ADDR"}:
        process(SOC_INET_SERV_ADDR, function, params, c_expr);
      when {"SOC_INPUT_READY"}:
        process(SOC_INPUT_READY, function, params, c_expr);
      when {"SOC_LINE_READ"}:
        process(SOC_LINE_READ, function, params, c_expr);
      when {"SOC_LISTEN"}:
        process(SOC_LISTEN, function, params, c_expr);
      when {"SOC_NE"}:
        process(SOC_NE, function, params, c_expr);
      when {"SOC_ORD"}:
        process(SOC_ORD, function, params, c_expr);
      when {"SOC_RECV"}:
        process(SOC_RECV, function, params, c_expr);
      when {"SOC_SEND"}:
        process(SOC_SEND, function, params, c_expr);
      when {"SOC_SET_OPT_BOOL"}:
        process(SOC_SET_OPT_BOOL, function, params, c_expr);
      when {"SOC_SOCKET"}:
        process(SOC_SOCKET, function, params, c_expr);
      when {"SOC_WORD_READ"}:
        process(SOC_WORD_READ, function, params, c_expr);
      when {"SOC_WRITE"}:
        process(SOC_WRITE, function, params, c_expr);
      when {"SQL_BIND_BIGINT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_BIND_BIGINT, function, params, c_expr);
      when {"SQL_BIND_BIGRAT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_BIND_BIGRAT, function, params, c_expr);
      when {"SQL_BIND_BOOL"}:
        databaseLibraryUsed := TRUE;
        process(SQL_BIND_BOOL, function, params, c_expr);
      when {"SQL_BIND_BSTRI"}:
        databaseLibraryUsed := TRUE;
        process(SQL_BIND_BSTRI, function, params, c_expr);
      when {"SQL_BIND_DURATION"}:
        databaseLibraryUsed := TRUE;
        process(SQL_BIND_DURATION, function, params, c_expr);
      when {"SQL_BIND_FLOAT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_BIND_FLOAT, function, params, c_expr);
      when {"SQL_BIND_INT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_BIND_INT, function, params, c_expr);
      when {"SQL_BIND_NULL"}:
        databaseLibraryUsed := TRUE;
        process(SQL_BIND_NULL, function, params, c_expr);
      when {"SQL_BIND_STRI"}:
        databaseLibraryUsed := TRUE;
        process(SQL_BIND_STRI, function, params, c_expr);
      when {"SQL_BIND_TIME"}:
        databaseLibraryUsed := TRUE;
        process(SQL_BIND_TIME, function, params, c_expr);
      when {"SQL_CLOSE"}:
        databaseLibraryUsed := TRUE;
        process(SQL_CLOSE, function, params, c_expr);
      when {"SQL_CMP_DB"}:
        databaseLibraryUsed := TRUE;
        process(SQL_CMP_DB, function, params, c_expr);
      when {"SQL_CMP_STMT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_CMP_STMT, function, params, c_expr);
      when {"SQL_COLUMN_BIGINT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_COLUMN_BIGINT, function, params, c_expr);
      when {"SQL_COLUMN_BIGRAT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_COLUMN_BIGRAT, function, params, c_expr);
      when {"SQL_COLUMN_BOOL"}:
        databaseLibraryUsed := TRUE;
        process(SQL_COLUMN_BOOL, function, params, c_expr);
      when {"SQL_COLUMN_BSTRI"}:
        databaseLibraryUsed := TRUE;
        process(SQL_COLUMN_BSTRI, function, params, c_expr);
      when {"SQL_COLUMN_DURATION"}:
        databaseLibraryUsed := TRUE;
        process(SQL_COLUMN_DURATION, function, params, c_expr);
      when {"SQL_COLUMN_FLOAT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_COLUMN_FLOAT, function, params, c_expr);
      when {"SQL_COLUMN_INT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_COLUMN_INT, function, params, c_expr);
      when {"SQL_COLUMN_STRI"}:
        databaseLibraryUsed := TRUE;
        process(SQL_COLUMN_STRI, function, params, c_expr);
      when {"SQL_COLUMN_TIME"}:
        databaseLibraryUsed := TRUE;
        process(SQL_COLUMN_TIME, function, params, c_expr);
      when {"SQL_COMMIT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_COMMIT, function, params, c_expr);
      when {"SQL_CPY_DB"}:
        databaseLibraryUsed := TRUE;
        process(SQL_CPY_DB, function, params, c_expr);
      when {"SQL_CPY_STMT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_CPY_STMT, function, params, c_expr);
      when {"SQL_DRIVER"}:
        databaseLibraryUsed := TRUE;
        process(SQL_DRIVER, function, params, c_expr);
      when {"SQL_EQ_DB"}:
        databaseLibraryUsed := TRUE;
        process(SQL_EQ_DB, function, params, c_expr);
      when {"SQL_EQ_STMT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_EQ_STMT, function, params, c_expr);
      when {"SQL_ERR_CODE"}:
        databaseLibraryUsed := TRUE;
        process(SQL_ERR_CODE, function, params, c_expr);
      when {"SQL_ERR_DB_FUNC"}:
        databaseLibraryUsed := TRUE;
        process(SQL_ERR_DB_FUNC, function, params, c_expr);
      when {"SQL_ERR_LIB_FUNC"}:
        databaseLibraryUsed := TRUE;
        process(SQL_ERR_LIB_FUNC, function, params, c_expr);
      when {"SQL_ERR_MESSAGE"}:
        databaseLibraryUsed := TRUE;
        process(SQL_ERR_MESSAGE, function, params, c_expr);
      when {"SQL_EXECUTE"}:
        databaseLibraryUsed := TRUE;
        process(SQL_EXECUTE, function, params, c_expr);
      when {"SQL_FETCH"}:
        databaseLibraryUsed := TRUE;
        process(SQL_FETCH, function, params, c_expr);
      when {"SQL_GET_AUTO_COMMIT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_GET_AUTO_COMMIT, function, params, c_expr);
      when {"SQL_IS_NULL"}:
        databaseLibraryUsed := TRUE;
        process(SQL_IS_NULL, function, params, c_expr);
      when {"SQL_NE_DB"}:
        databaseLibraryUsed := TRUE;
        process(SQL_NE_DB, function, params, c_expr);
      when {"SQL_NE_STMT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_NE_STMT, function, params, c_expr);
      when {"SQL_OPEN_DB2"}:
        databaseLibraryUsed := TRUE;
        process(SQL_OPEN_DB2, function, params, c_expr);
      when {"SQL_OPEN_FIRE"}:
        databaseLibraryUsed := TRUE;
        process(SQL_OPEN_FIRE, function, params, c_expr);
      when {"SQL_OPEN_LITE"}:
        databaseLibraryUsed := TRUE;
        process(SQL_OPEN_LITE, function, params, c_expr);
      when {"SQL_OPEN_MY"}:
        databaseLibraryUsed := TRUE;
        process(SQL_OPEN_MY, function, params, c_expr);
      when {"SQL_OPEN_OCI"}:
        databaseLibraryUsed := TRUE;
        process(SQL_OPEN_OCI, function, params, c_expr);
      when {"SQL_OPEN_ODBC"}:
        databaseLibraryUsed := TRUE;
        process(SQL_OPEN_ODBC, function, params, c_expr);
      when {"SQL_OPEN_POST"}:
        databaseLibraryUsed := TRUE;
        process(SQL_OPEN_POST, function, params, c_expr);
      when {"SQL_OPEN_SQLSRV"}:
        databaseLibraryUsed := TRUE;
        process(SQL_OPEN_SQLSRV, function, params, c_expr);
      when {"SQL_OPEN_TDS"}:
        databaseLibraryUsed := TRUE;
        process(SQL_OPEN_TDS, function, params, c_expr);
      when {"SQL_PREPARE"}:
        databaseLibraryUsed := TRUE;
        process(SQL_PREPARE, function, params, c_expr);
      when {"SQL_ROLLBACK"}:
        databaseLibraryUsed := TRUE;
        process(SQL_ROLLBACK, function, params, c_expr);
      when {"SQL_SET_AUTO_COMMIT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_SET_AUTO_COMMIT, function, params, c_expr);
      when {"SQL_STMT_COLUMN_COUNT"}:
        databaseLibraryUsed := TRUE;
        process(SQL_STMT_COLUMN_COUNT, function, params, c_expr);
      when {"SQL_STMT_COLUMN_NAME"}:
        databaseLibraryUsed := TRUE;
        process(SQL_STMT_COLUMN_NAME, function, params, c_expr);
      when {"STR_APPEND"}:
        process(STR_APPEND, function, params, c_expr);
      when {"STR_CAT"}:
        process(STR_CAT, function, params, c_expr);
      when {"STR_CHIPOS"}:
        process(STR_CHIPOS, function, params, c_expr);
      when {"STR_CHPOS"}:
        process(STR_CHPOS, function, params, c_expr);
      when {"STR_CHSPLIT"}:
        process(STR_CHSPLIT, function, params, c_expr);
      when {"STR_CLIT"}:
        process(STR_CLIT, function, params, c_expr);
      when {"STR_CMP"}:
        process(STR_CMP, function, params, c_expr);
      when {"STR_CPY"}:
        process(STR_CPY, function, params, c_expr);
      when {"STR_ELEMCPY"}:
        process(STR_ELEMCPY, function, params, c_expr);
      when {"STR_EQ"}:
        process(STR_EQ, function, params, c_expr);
      when {"STR_FOR"}:
        process(STR_FOR, function, params, c_expr);
      when {"STR_FOR_KEY"}:
        process(STR_FOR_KEY, function, params, c_expr);
      when {"STR_FOR_VAR_KEY"}:
        process(STR_FOR_VAR_KEY, function, params, c_expr);
      when {"STR_GE"}:
        process(STR_GE, function, params, c_expr);
      when {"STR_GT"}:
        process(STR_GT, function, params, c_expr);
      when {"STR_HASHCODE"}:
        process(STR_HASHCODE, function, params, c_expr);
      when {"STR_HEAD"}:
        process(STR_HEAD, function, params, c_expr);
      when {"STR_IDX"}:
        process(STR_IDX, function, params, c_expr);
      when {"STR_IPOS"}:
        process(STR_IPOS, function, params, c_expr);
      when {"STR_LE"}:
        process(STR_LE, function, params, c_expr);
      when {"STR_LIT"}:
        process(STR_LIT, function, params, c_expr);
      when {"STR_LNG"}:
        process(STR_LNG, function, params, c_expr);
      when {"STR_LOW"}:
        process(STR_LOW, function, params, c_expr);
      when {"STR_LPAD"}:
        process(STR_LPAD, function, params, c_expr);
      when {"STR_LPAD0"}:
        process(STR_LPAD0, function, params, c_expr);
      when {"STR_LT"}:
        process(STR_LT, function, params, c_expr);
      when {"STR_LTRIM"}:
        process(STR_LTRIM, function, params, c_expr);
      when {"STR_MULT"}:
        process(STR_MULT, function, params, c_expr);
      when {"STR_NE"}:
        process(STR_NE, function, params, c_expr);
      when {"STR_POS"}:
        process(STR_POS, function, params, c_expr);
      when {"STR_POSCPY"}:
        process(STR_POSCPY, function, params, c_expr);
      when {"STR_PUSH"}:
        process(STR_PUSH, function, params, c_expr);
      when {"STR_RANGE"}:
        process(STR_RANGE, function, params, c_expr);
      when {"STR_RCHIPOS"}:
        process(STR_RCHIPOS, function, params, c_expr);
      when {"STR_RCHPOS"}:
        process(STR_RCHPOS, function, params, c_expr);
      when {"STR_REPL"}:
        process(STR_REPL, function, params, c_expr);
      when {"STR_RIPOS"}:
        process(STR_RIPOS, function, params, c_expr);
      when {"STR_RPAD"}:
        process(STR_RPAD, function, params, c_expr);
      when {"STR_RPOS"}:
        process(STR_RPOS, function, params, c_expr);
      when {"STR_RTRIM"}:
        process(STR_RTRIM, function, params, c_expr);
      when {"STR_SPLIT"}:
        process(STR_SPLIT, function, params, c_expr);
      when {"STR_STR"}:
        process(STR_STR, function, params, c_expr);
      when {"STR_SUBSTR"}:
        process(STR_SUBSTR, function, params, c_expr);
      when {"STR_TAIL"}:
        process(STR_TAIL, function, params, c_expr);
      when {"STR_TOUTF8"}:
        process(STR_TOUTF8, function, params, c_expr);
      when {"STR_TRIM"}:
        process(STR_TRIM, function, params, c_expr);
      when {"STR_UP"}:
        process(STR_UP, function, params, c_expr);
      when {"STR_UTF8TOSTRI"}:
        process(STR_UTF8TOSTRI, function, params, c_expr);
      when {"STR_VALUE"}:
        process(STR_VALUE, function, params, c_expr);
      when {"TIM_AWAIT"}:
        process(TIM_AWAIT, function, params, c_expr);
      when {"TIM_FROM_TIMESTAMP"}:
        process(TIM_FROM_TIMESTAMP, function, params, c_expr);
      when {"TIM_NOW"}:
        process(TIM_NOW, function, params, c_expr);
      when {"TIM_SET_LOCAL_TZ"}:
        process(TIM_SET_LOCAL_TZ, function, params, c_expr);
      when {"TYP_CMP"}:
        process(TYP_CMP, function, params, c_expr);
      when {"TYP_CPY"}:
        process(TYP_CPY, function, params, c_expr);
      when {"TYP_EQ"}:
        process(TYP_EQ, function, params, c_expr);
      when {"TYP_FUNC"}:
        process(TYP_FUNC, function, params, c_expr);
      when {"TYP_HASHCODE"}:
        process(TYP_HASHCODE, function, params, c_expr);
      when {"TYP_ISDERIVED"}:
        process(TYP_ISDERIVED, function, params, c_expr);
      when {"TYP_ISFUNC"}:
        process(TYP_ISFUNC, function, params, c_expr);
      when {"TYP_ISVARFUNC"}:
        process(TYP_ISVARFUNC, function, params, c_expr);
      when {"TYP_MATCHOBJ"}:
        process(TYP_MATCHOBJ, function, params, c_expr);
      when {"TYP_META"}:
        process(TYP_META, function, params, c_expr);
      when {"TYP_NE"}:
        process(TYP_NE, function, params, c_expr);
      when {"TYP_NUM"}:
        process(TYP_NUM, function, params, c_expr);
      when {"TYP_RESULT"}:
        process(TYP_RESULT, function, params, c_expr);
      when {"TYP_STR"}:
        process(TYP_STR, function, params, c_expr);
      when {"TYP_VALUE"}:
        process(TYP_VALUE, function, params, c_expr);
      when {"TYP_VARCONV"}:
        process(TYP_VARCONV, function, params, c_expr);
      when {"TYP_VARFUNC"}:
        process(TYP_VARFUNC, function, params, c_expr);
      when {"UT8_GETC"}:
        process(UT8_GETC, function, params, c_expr);
      when {"UT8_GETS"}:
        process(UT8_GETS, function, params, c_expr);
      when {"UT8_LINE_READ"}:
        process(UT8_LINE_READ, function, params, c_expr);
      when {"UT8_SEEK"}:
        process(UT8_SEEK, function, params, c_expr);
      when {"UT8_WORD_READ"}:
        process(UT8_WORD_READ, function, params, c_expr);
      when {"UT8_WRITE"}:
        process(UT8_WRITE, function, params, c_expr);
      otherwise:
        process_unknown_action(actionName, c_expr);
    end case;
  end func;
