From 37c6a80fd9ba9a49da5cc4ae3de33d70e92427ee Mon Sep 17 00:00:00 2001
From: Panu Matilainen <pmatilai@redhat.com>
Date: Mon, 6 Aug 2007 13:31:23 +0300
Subject: [PATCH] Remove dead tficl code..

---
 rpmio/Makefile.am |  7 +----
 rpmio/tficl.c     | 78 -------------------------------------------------------
 2 files changed, 1 insertion(+), 84 deletions(-)
 delete mode 100644 rpmio/tficl.c

diff --git a/rpmio/Makefile.am b/rpmio/Makefile.am
index 2994766..8b26267 100644
--- a/rpmio/Makefile.am
+++ b/rpmio/Makefile.am
@@ -2,7 +2,7 @@
 
 LINT = splint
 
-EXTRA_DIST = tax.c tdigest.c tdir.c tficl.c tfts.c tget.c thkp.c tput.c tglob.c tinv.c tkey.c trpmio.c
+EXTRA_DIST = tax.c tdigest.c tdir.c tfts.c tget.c thkp.c tput.c tglob.c tinv.c tkey.c trpmio.c
 
 EXTRA_PROGRAMS = tax tdigest tdir tfts tget thkp tput tglob tinv tkey tring trpmio tsw
 
@@ -116,8 +116,3 @@ trpmio_LDADD = librpmio.la $(top_builddir)/popt/libpopt.la
 tsw_SOURCES = tsw.c
 tsw_LDFLAGS = librpmio.la
 
-tficl.o: tficl.c
-	$(COMPILE) -I/usr/include/ficl -o $@ -c tficl.c 
-
-tficl: tficl.o
-	$(LINK) -o $@ tficl.o -lficl -lm
diff --git a/rpmio/tficl.c b/rpmio/tficl.c
deleted file mode 100644
index d82423d..0000000
--- a/rpmio/tficl.c
+++ /dev/null
@@ -1,78 +0,0 @@
-/*
-** stub main for testing Ficl
-** $Id: tficl.c,v 1.3 2003/06/26 18:19:26 jbj Exp $
-*/
-/*
-** Copyright (c) 1997-2001 John Sadler (john_sadler@alum.mit.edu)
-** All rights reserved.
-**
-** Get the latest Ficl release at http://ficl.sourceforge.net
-**
-** I am interested in hearing from anyone who uses Ficl. If you have
-** a problem, a success story, a defect, an enhancement request, or
-** if you would like to contribute to the Ficl release, please
-** contact me by email at the address above.
-**
-** L I C E N S E  and  D I S C L A I M E R
-** 
-** 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 AND CONTRIBUTORS ``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 OR CONTRIBUTORS 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 <stdio.h>
-#include <stdlib.h>
-
-#include "ficl.h"
-
-
-int main(int argc, char **argv)
-{
-    int returnValue = 0;
-    char buffer[256];
-    ficlVm *vm;
-	ficlSystem *system;
-
-    system = ficlSystemCreate(NULL);
-    ficlSystemCompileExtras(system);
-    vm = ficlSystemCreateVm(system);
-
-    returnValue = ficlVmEvaluate(vm, ".ver .( " __DATE__ " ) cr quit");
-
-    /*
-    ** load files specified on command-line
-    */
-    if (argc  > 1)
-    {
-        sprintf(buffer, ".( loading %s ) cr load %s\n cr", argv[1], argv[1]);
-        returnValue = ficlVmEvaluate(vm, buffer);
-    }
-
-    while (returnValue != FICL_VM_STATUS_USER_EXIT)
-    {
-	    fputs(FICL_PROMPT, stdout);
-        fgets(buffer, sizeof(buffer), stdin);
-        returnValue = ficlVmEvaluate(vm, buffer);
-    }
-
-    ficlSystemDestroy(system);
-    return 0;
-}
-
-- 
2.7.4