8 files changed, 0 insertions, 674 deletions
diff --git a/perl-install/Newt/.cvsignore b/perl-install/Newt/.cvsignore
deleted file mode 100644
index 25fe4e1c1..000000000
--- a/perl-install/Newt/.cvsignore
+++ /dev/null
@@ -1,5 +0,0 @@
-Newt.bs
-Newt.c
-pm_to_blib
-blib
-Makefile_c
diff --git a/perl-install/Newt/Av_CharPtrPtr.c b/perl-install/Newt/Av_CharPtrPtr.c
deleted file mode 100644
index f28fa6315..000000000
--- a/perl-install/Newt/Av_CharPtrPtr.c
+++ /dev/null
@@ -1,99 +0,0 @@
-#ifdef __cplusplus
-extern "C" {
-#endif
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#include "Av_CharPtrPtr.h"  /* XS_*_charPtrPtr() */
-#ifdef __cplusplus
-}
-#endif
-
-
-/* Used by the INPUT typemap for char**.
- * Will convert a Perl AV* (containing strings) to a C char**.
- */
-char **
-XS_unpack_charPtrPtr( rv )
-SV *rv;
-{
-	AV *av;
-	SV **ssv;
-	char **s;
-	int avlen;
-	int x;
-
-	if( SvROK( rv ) && (SvTYPE(SvRV(rv)) == SVt_PVAV) )
-		av = (AV*)SvRV(rv);
-	else {
-		warn("XS_unpack_charPtrPtr: rv was not an AV ref");
-		return( (char**)NULL );
-	}
-
-	/* is it empty? */
-	avlen = av_len(av);
-	if( avlen < 0 ){
-		warn("XS_unpack_charPtrPtr: array was empty");
-		return( (char**)NULL );
-	}
-
-	/* av_len+2 == number of strings, plus 1 for an end-of-array sentinel.
-	 */
-	s = (char **)safemalloc( sizeof(char*) * (avlen + 2) );
-	if( s == NULL ){
-		warn("XS_unpack_charPtrPtr: unable to malloc char**");
-		return( (char**)NULL );
-	}
-	for( x = 0; x <= avlen; ++x ){
-		ssv = av_fetch( av, x, 0 );
-		if( ssv != NULL ){
-			if( SvPOK( *ssv ) ){
-				s[x] = (char *)safemalloc( SvCUR(*ssv) + 1 );
-				if( s[x] == NULL )
-					warn("XS_unpack_charPtrPtr: unable to malloc char*");
-				else
-					strcpy( s[x], SvPV( *ssv, PL_na ) );
-			}
-			else
-				warn("XS_unpack_charPtrPtr: array elem %d was not a string.", x );
-		}
-		else
-			s[x] = (char*)NULL;
-	}
-	s[x] = (char*)NULL; /* sentinel */
-	return( s );
-}
-
-/* Used by the OUTPUT typemap for char**.
- * Will convert a C char** to a Perl AV*.
- */
-void
-XS_pack_charPtrPtr( st, s )
-SV *st;
-char **s;
-{
-	AV *av = newAV();
-	SV *sv;
-	char **c;
-
-	for( c = s; *c != NULL; ++c ){
-		sv = newSVpv( *c, 0 );
-		av_push( av, sv );
-	}
-	sv = newSVrv( st, NULL );	/* upgrade stack SV to an RV */
-	SvREFCNT_dec( sv );	/* discard */
-	SvRV( st ) = (SV*)av;	/* make stack RV point at our AV */
-}
-
-
-/* cleanup the temporary char** from XS_unpack_charPtrPtr */
-void
-XS_release_charPtrPtr(s)
-char **s;
-{
-	char **c;
-	for( c = s; *c != NULL; ++c )
-		safefree( *c );
-	safefree( s );
-}
-
diff --git a/perl-install/Newt/Av_CharPtrPtr.h b/perl-install/Newt/Av_CharPtrPtr.h
deleted file mode 100644
index 765f1a731..000000000
--- a/perl-install/Newt/Av_CharPtrPtr.h
+++ /dev/null
@@ -1,4 +0,0 @@
-char ** XS_unpack_charPtrPtr _(( SV *rv ));
-void XS_pack_charPtrPtr _(( SV *st, char **s ));
-void XS_release_charPtrPtr _(( char **s ));
-
diff --git a/perl-install/Newt/Makefile b/perl-install/Newt/Makefile
deleted file mode 100644
index 613ca8a1c..000000000
--- a/perl-install/Newt/Makefile
+++ /dev/null
@@ -1,10 +0,0 @@
-.PHONY: clean
-
-Newt: %: %.xs
-	test -e Makefile_c || perl Makefile.PL
-	$(MAKE) -f Makefile_c LD_RUN_PATH= || $(MAKE) -f Makefile_c LD_RUN_PATH=
-	rm -f ../auto/Newt ; ln -s ../Newt/blib/arch/auto/Newt ../auto
-
-clean:
-	test ! -e Makefile_c || $(MAKE) -f Makefile_c clean
-	rm -f *~ *.o
diff --git a/perl-install/Newt/Makefile.PL b/perl-install/Newt/Makefile.PL
deleted file mode 100644
index 6378a8f31..000000000
--- a/perl-install/Newt/Makefile.PL
+++ /dev/null
@@ -1,13 +0,0 @@
-use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-
-WriteMakefile(
-    'NAME'	=> 'Newt',
-    'OBJECT'    => 'Av_CharPtrPtr.o Newt.o',
-    'MAKEFILE'  => 'Makefile_c',
-    'OPTIMIZE'  => '-Os',
-    'VERSION_FROM' => 'Newt.pm', # finds $VERSION
-    'LIBS'	=> ['-lnewt -lslang'],
-    'DEFINE'	=> '',     # e.g., '-DHAVE_SOMETHING' 
-);
diff --git a/perl-install/Newt/Newt.pm b/perl-install/Newt/Newt.pm
deleted file mode 100644
index 1a93f02a0..000000000
--- a/perl-install/Newt/Newt.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-package Newt; # $Id$
-
-use strict;
-use vars qw($VERSION @ISA);
-use DynaLoader;
-
-use vars qw($VERSION @ISA);
-@ISA = qw(DynaLoader);
-$VERSION = '0.01';
-Newt->bootstrap($VERSION);
-
-package Newt::Component;
-
-our @ISA = qw(); # help perl_checker
-
-package Newt::Grid;
-
-our @ISA = qw(); # help perl_checker
-
-1;
diff --git a/perl-install/Newt/Newt.xs b/perl-install/Newt/Newt.xs
deleted file mode 100644
index 7b2317cc7..000000000
--- a/perl-install/Newt/Newt.xs
+++ /dev/null
@@ -1,498 +0,0 @@
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-#include <newt.h>
-#include <slang/slang.h>
-
-static void suspend() {
-  newtSuspend();
-  raise(SIGTSTP);
-  newtResume();
-}
-
-static void componentCallback(newtComponent co, void *data) {
-  dSP;
-  PUSHMARK(SP);
-  perl_call_sv((SV *) data, G_DISCARD);
-}
-
-
-typedef newtComponent Newt__Component;
-typedef newtGrid Newt__Grid;
-
-
-MODULE = Newt		PACKAGE = Newt 	PREFIX = newt
-
-PROTOTYPES: DISABLE
-
-
-void
-DESTROY()
-	CODE:
-	{
-		newtFinished();
-	}
-
-int
-newtInit(setlocale)
-  int setlocale
-  CODE:
-  SLsmg_Setlocale = setlocale;
-  newtInit();
-
-int
-newtFinished()
-
-void
-newtCls()
-
-void
-newtSuspend()
-
-void
-newtResume()
-
-int
-newtCenteredWindow(width,height,title)
-	int width;
-	int height;
-	const char * title;
-
-void
-newtPopWindow()
-
-void
-newtRefresh()
-
-void
-newtPushHelpLine(text)
-	const char * text;
-
-void
-newtDrawRootText(row,col,text)
-	int row;
-	int col;
-	const char * text;
-
-void
-newtGetScreenSize()
-  PPCODE:
-{
-  int cols, rows;
-  newtGetScreenSize(&cols, &rows);
-  PUSHs(sv_2mortal(newSViv(cols)));
-  PUSHs(sv_2mortal(newSViv(rows)));
-}
-
-void
-newtSetSuspendCallback()
-	CODE:
-	{
-	  newtSetSuspendCallback(suspend, NULL);
-	}
-
-
-void
-newtWinMessage(title,buttonText,text)
-	char * title;
-	char * buttonText;
-	char * text;
-
-int
-newtWinChoice(title,button1,button2,text)
-	char * title;
-	char * button1;
-	char * button2;
-	char * text;
-
-int
-newtWinTernary(title,button1,button2,button3,message)
-	char * title;
-	char * button1;
-	char * button2;
-	char * button3;
-	char * message;
-
-MODULE = Newt		PACKAGE = Newt::Component 	PREFIX = newt
-
-void
-addCallback(co, callback)
-  Newt::Component co;
-  SV *callback;
-  CODE:
-  newtComponentAddCallback(co, componentCallback, callback);
-
-Newt::Component
-newtCompactButton(text)
-	const char * text;
-	CODE: 
-	RETVAL = newtCompactButton(-1, -1, text);
-	OUTPUT:
-	RETVAL
-
-Newt::Component
-newtButton(text)
-	const char * text;
-	CODE: 
-	RETVAL = newtButton(-1, -1, text);
-	OUTPUT:
-	RETVAL
-
-Newt::Component
-newtCheckbox(text,defValue,seq)
-	const char * text;
-	char *defValue;
-	const char * seq;
-	CODE: 
-	RETVAL = newtCheckbox(-1, -1, text, defValue[0], seq, NULL);
-	OUTPUT:
-	RETVAL
-
-int
-newtCheckboxGetValue(co)
-	Newt::Component co;
-
-void
-newtCheckboxSetValue(co, value)
-	Newt::Component co;
-	char *value;
-  CODE: 
-  newtCheckboxSetValue(co, value[0]);
-
-Newt::Component
-newtLabel(text)
-	const char * text;
-CODE:
-        RETVAL = newtLabel(-1, -1, text);
-OUTPUT:
-	RETVAL
-
-void
-newtLabelSetText(co,text)
-	Newt::Component co;
-	const char * text;
-
-Newt::Component
-newtVerticalScrollbar(height,normalColorset,thumbColorset)
-	int height;
-	int normalColorset;
-	int thumbColorset;
-CODE:
-        RETVAL = newtVerticalScrollbar(-1, -1, height,normalColorset,thumbColorset);
-OUTPUT:
-	RETVAL
-
-void
-newtScrollbarSet(co,where,total)
-	Newt::Component co;
-	int where;
-	int total;
-
-Newt::Component
-newtListbox(height,flags)
-	int height;
-	int flags;
-CODE:
-        RETVAL = newtListbox(-1, -1, height, flags);
-OUTPUT:
-	RETVAL
-
-SV *
-newtListboxGetCurrent(co)
-	Newt::Component co;
-CODE:
-        RETVAL = SvREFCNT_inc(newtListboxGetCurrent(co));
-OUTPUT:
-	RETVAL
-
-
-void
-newtListboxSetCurrent(co,indice)
-	Newt::Component co;
-	int indice;
-
-void
-newtListboxSetWidth(co,width)
-	Newt::Component co;
-	int width;
-
-int
-newtListboxAddEntry(co,text,data)
-	Newt::Component co;
-	const char * text;
-	SV * data;
-CODE:
-	RETVAL = newtListboxAddEntry(co, text, data);
-OUTPUT:
-	RETVAL
-
-
-Newt::Component
-newtTree(height,want_scroll)
-	int height;
-        int want_scroll;
-	CODE:
-	RETVAL = newtCheckboxTree(-1,-1,height, (want_scroll ? NEWT_FLAG_SCROLL : 0) | NEWT_CHECKBOXTREE_HIDE_BOX);
-	OUTPUT:
-	RETVAL
-
-int
-newtTreeAdd(co,text,data,parents)
-	Newt::Component co;
-	const char * text;
-	int data;
-        SV * parents;
-	CODE:
-        {
-	  int l[10];
-	  int i;
-	  AV *av = (AV*) SvRV(parents);
-	  for (i = 0; i <= av_len(av); i++) l[i] = SvIV(*av_fetch(av, i, 0));
-	  l[i++] = NEWT_ARG_APPEND;
-	  l[i] = NEWT_ARG_LAST;
-	  RETVAL = newtCheckboxTreeAddArray(co, text, (void *) data, 0, l);
-	}
-	OUTPUT:
-	RETVAL
-
-void
-newtTreeSetCurrent(co, data)
-	Newt::Component co;
-	int data;
-	CODE:
-	newtCheckboxTreeSetCurrent(co, (void *) data);
-
-void
-newtTreeSetWidth(co,width)
-	Newt::Component co;
-	int width;
-	CODE:
-	newtCheckboxTreeSetWidth(co, width);
-
-int
-newtTreeGetCurrent(co)
-	Newt::Component co;
-CODE:
-	RETVAL = (int) newtCheckboxTreeGetCurrent(co);
-OUTPUT:
-	RETVAL
-
-
-Newt::Component
-newtTextbox(left,top,width,height,want_scroll)
-	int left;
-	int top;
-	int width;
-	int height;
-	int want_scroll;
-	CODE: 
-	RETVAL = newtTextbox(left,top,width,height, (want_scroll ? NEWT_FLAG_SCROLL : 0) | NEWT_FLAG_WRAP);
-	OUTPUT:
-	RETVAL
-
-void
-newtTextboxSetText(co,text)
-	Newt::Component co;
-	const char * text;
-
-void
-newtTextboxSetHeight(co,height)
-	Newt::Component co;
-	int height;
-
-int
-newtTextboxGetNumLines(co)
-	Newt::Component co;
-
-char *
-newtReflowText(text,width,flexDown,flexUp,actualWidth,actualHeight)
-	char * text;
-	int width;
-	int flexDown;
-	int flexUp;
-	int * actualWidth;
-	int * actualHeight;
-
-Newt::Component
-newtForm(vertBar,help,flags)
-	Newt::Component vertBar;
-	char * help;
-	int flags;
-
-void
-newtFormSetSize(co)
-	Newt::Component co;
-
-Newt::Component
-newtFormGetCurrent(co)
-	Newt::Component co;
-
-void
-newtFormSetBackground(co,color)
-	Newt::Component co;
-	int color;
-
-void
-newtFormSetCurrent(co,subco)
-	Newt::Component co;
-	Newt::Component subco;
-
-void
-newtFormAddComponent(form,co)
-	Newt::Component form;
-	Newt::Component co;
-
-void
-newtFormAddGrid(form,grid,recurse)
-	Newt::Component form;
-	Newt::Grid grid;
-        int recurse;
-  CODE:
-  newtGridAddComponentsToForm(grid,form,recurse);
-
-void
-newtFormSetHeight(co,height)
-	Newt::Component co;
-	int height;
-
-void
-newtFormSetWidth(co,width)
-	Newt::Component co;
-	int width;
-
-Newt::Component
-newtRunForm(form)
-	Newt::Component form;
-
-void
-newtDrawForm(form)
-	Newt::Component form;
-
-Newt::Component
-newtEntry(initialValue,width,flag)
-	const char * initialValue;
-	int width;
-        int flag;
-	CODE:
-	{
-		const char *result;
-		RETVAL = newtEntry(-1, -1, initialValue,width,&result,flag);
-	}
-	OUTPUT:
-	RETVAL
-
-void
-newtEntrySet(co,value,cursorAtEnd)
-	Newt::Component co;
-	const char * value;
-	int cursorAtEnd;
-
-char *
-newtEntryGetValue(co)
-	Newt::Component co;
-
-void
-newtFormDestroy(form)
-	Newt::Component form;
-
-MODULE = Newt		PACKAGE = Newt::Grid 	PREFIX = newt
-
-Newt::Grid
-newtCreateGrid(cols,rows)
-	int cols;
-	int rows;
-
-Newt::Grid
-HCloseStacked3(c1, c2, c3)
-	Newt::Component c1;
-	Newt::Component c2;
-	Newt::Component c3;
-     CODE:
-	{
-	  RETVAL = newtGridHCloseStacked(NEWT_GRID_COMPONENT, c1, NEWT_GRID_COMPONENT, c2, NEWT_GRID_COMPONENT, c3);
-	}
-OUTPUT:
-RETVAL
-
-
-Newt::Grid
-newtGridBasicWindow(text,middle,buttons)
-	Newt::Component text;
-	Newt::Grid middle;
-	Newt::Grid buttons;
-
-
-Newt::Grid
-newtGridSimpleWindow(text,middle,buttons)
-	Newt::Component text;
-	Newt::Component middle;
-	Newt::Grid buttons;
-
-void
-newtGridSetField(grid,col,row,type,val,padLeft,padTop,padRight,padBottom,anchor,flags)
-	Newt::Grid grid;
-	int col;
-	int row;
-	enum newtGridElement type;
-	void * val;
-	int padLeft;
-	int padTop;
-	int padRight;
-	int padBottom;
-	int anchor;
-	int flags;
-
-
-void
-newtGridFree(grid,recurse)
-	Newt::Grid grid;
-	int recurse;
-
-void
-newtGridPlace(grid,left,top)
-	Newt::Grid grid;
-        int left;
-        int top;
-
-void
-newtGridGetSize(grid)
-	Newt::Grid grid;
- PPCODE:
-{
-  int width;
-  int height;
-  newtGridGetSize(grid, &width, &height);
-  PUSHs(sv_2mortal(newSViv(width)));
-  PUSHs(sv_2mortal(newSViv(height)));
-}
-
-void
-newtGridWrappedWindow(grid,title)
-	Newt::Grid grid;
-	char * title;
-	
-Newt::Grid
-newtButtonBar(button1, ...)
-	char * button1;
- PPCODE:
-	{
-	  static newtComponent p[11];
-	  int i;
-	  EXTEND(SP, items + 1);
-#define a(i) (char *)SvPV(ST(i),PL_na)
-          PUSHs(sv_setref_pv(sv_newmortal(), "Newt::Grid", 
-	     newtButtonBar(items >  0 ? a( 0) : NULL, items >  0 ? &p[ 0] : NULL, 
-			   items >  1 ? a( 1) : NULL, items >  1 ? &p[ 1] : NULL, 
-			   items >  2 ? a( 2) : NULL, items >  2 ? &p[ 2] : NULL, 
-			   items >  3 ? a( 3) : NULL, items >  3 ? &p[ 3] : NULL, 
-			   items >  4 ? a( 4) : NULL, items >  4 ? &p[ 4] : NULL, 
-			   items >  5 ? a( 5) : NULL, items >  5 ? &p[ 5] : NULL, 
-			   items >  6 ? a( 6) : NULL, items >  6 ? &p[ 6] : NULL, 
-			   items >  7 ? a( 7) : NULL, items >  7 ? &p[ 7] : NULL, 
-			   items >  8 ? a( 8) : NULL, items >  8 ? &p[ 8] : NULL, 
-			   items >  9 ? a( 9) : NULL, items >  9 ? &p[ 9] : NULL, 
-			   items > 10 ? a(10) : NULL, items > 10 ? &p[10] : NULL,  
-			   NULL)));
-#undef a
-        for (i = 0; i < items; i++) PUSHs(sv_setref_pv(sv_newmortal(), "Newt::Component", p[i]));
-	}
diff --git a/perl-install/Newt/typemap b/perl-install/Newt/typemap
deleted file mode 100644
index 5aaa2f668..000000000
--- a/perl-install/Newt/typemap
+++ /dev/null
@@ -1,25 +0,0 @@
-TYPEMAP
-
-const char *		T_PV
-const void *		T_PV
-int *			T_PV
-void **			T_PACKED
-
-enum newtFlagsSense	T_IV
-enum newtGridElement	T_IV
-SV **			T_SV
-
-Newt::Component		NewtComponent
-Newt::Grid		NewtGrid
-
-INPUT
-NewtComponent
-	$var = ($type) SvIV((SV*)SvRV($arg))
-NewtGrid
-	$var = ($type) SvIV((SV*)SvRV($arg))
-
-OUTPUT
-NewtComponent
-	sv_setref_pv($arg, "Newt::Component", (void*) $var);
-NewtGrid
-	sv_setref_pv($arg, "Newt::Grid", (void*) $var);