1 files changed, 0 insertions, 107 deletions
diff --git a/extension/ordchr2.c b/extension/ordchr2.c
deleted file mode 100644
index 1f4a1fcb..00000000
--- a/extension/ordchr2.c
+++ /dev/null
@@ -1,107 +0,0 @@
-/*
- * ordchr.c - Builtin functions that provide ord() and chr() functions.
- *
- * Arnold Robbins
- * arnold@skeeve.com
- * 8/2001
- * Revised 6/2004
- */
-
-/*
- * Copyright (C) 2001, 2004, 2011 the Free Software Foundation, Inc.
- * 
- * This file is part of GAWK, the GNU implementation of the
- * AWK Programming Language.
- * 
- * GAWK 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 3 of the License, or
- * (at your option) any later version.
- * 
- * GAWK 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
- */
-
-#include <stdio.h>
-#include <errno.h>
-#include <stdlib.h>
-#include <string.h>
-#include <unistd.h>
-
-#include <sys/types.h>
-#include <sys/stat.h>
-#include "gawkapi.h"
-
-static const gawk_api_t *api;	/* for convenience macros to work */
-static awk_ext_id_t *ext_id;
-
-int plugin_is_GPL_compatible;
-
-/*  do_ord --- return numeric value of first char of string */
-
-static int
-do_ord(int nargs)
-{
-	const awk_value_t *str;
-	awk_value_t result;
-	double ret = -1;
-
-	if  (do_lint && nargs > 1)
-		lintwarn(ext_id, "ord: called with too many arguments");
-
-	str = get_curfunc_param(0, AWK_PARAM_STRING);
-	if (str != NULL) {
-		ret = str->str_value.str[0];
-	} else if (do_lint)
-		lintwarn(ext_id, "ord: called with no arguments");
-
-	/* Set the return value */
-	set_return_value(make_number(ret));
-	return 1;
-}
-
-/*  do_chr --- turn numeric value into a string */
-
-static int
-do_chr(int nargs)
-{
-	const awk_value_t *num;
-	awk_value_t result;
-	unsigned int ret = 0;
-	double val = 0.0;
-	char str[2];
-
-	str[0] = str[1] = '\0';
-
-	if  (do_lint && nargs > 1)
-		lintwarn(ext_id, "chr: called with too many arguments");
-
-	num = get_curfunc_param(0, AWK_PARAM_NUMBER);
-	if (num != NULL) {
-		val = num->num_value;
-		ret = val;	/* convert to int */
-		ret &= 0xff;
-		str[0] = ret;
-		str[1] = '\0';
-	} else if (do_lint)
-		lintwarn(ext_id, "chr: called with no arguments");
-
-	/* Set the return value */
-	set_return_value(dup_string(str, 1));
-	return 1;
-}
-
-static awk_ext_func_t func_table[] = {
-	{ "ord", do_ord, 1 },
-	{ "chr", do_chr, 1 },
-};
-
-/* define the dl_load function using the boilerplate macro */
-
-dl_load_func(api, ext_id, func_table, ord_chr, "")