This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.

21 files changed, 1569 insertions, 0 deletions

diff --git a/XTERM b/XTERM
new file mode 100755
index 0000000..6ad7989
--- /dev/null
+++ b/XTERM
@@ -0,0 +1,2 @@
+xterm -vb -bg black -fg white -cr red -sb -sl 5000 -sk -si -geom 80x60 \
+		-fn 9x15 -n xterm -title xterm &
diff --git a/asc.c b/asc.c
new file mode 100644
index 0000000..46f37b2
--- /dev/null
+++ b/asc.c
@@ -0,0 +1,73 @@
+#include <stdio.h>
+
+main(argc,argv)
+int argc;
+char *argv[];
+
+{
+    int f,l,r;
+    unsigned int c;
+
+    char *binary();
+
+    if(argc==1)
+	{
+	printf("%s: usage %s string1 [..stringn] | -c num1 [.. num n]\n",
+			argv[0],argv[0]);
+	exit(-1);
+	}
+
+    if(strcmp(argv[1],"-c"))
+	{
+	for(r=1;r<argc;r++)
+	    {
+	    l=strlen(argv[r]);
+
+	    for(f=0;f<l;f++)
+		{
+		c=(unsigned int)*(argv[r]+f);
+		printf("%c (%3d - 0x%2.2X %%%s)\n",
+		    ((*(argv[r]+f) > 31) ? (*(argv[r]+f)) : '?')
+			,c,c,binary(c,8));
+		}
+	    }
+	}
+    else
+	{
+	if(argc==2)
+	    {
+	    printf("%s:usage %s -c num1 [.. num n]\n",argv[0],argv[0]);
+	    exit(-1);
+	    }
+	for(f=2;f<argc;f++)
+	    {
+	    c=(char)strtol(argv[f],NULL,0);
+
+	    printf("%c (%3d - 0x%2.2X %%%s)\n",
+		    (c>31) ? (char)c : '?',
+			c,c,binary(c,8));
+	    }
+	}
+	    
+}
+
+
+char *binary(i,w)
+unsigned int i,w;
+
+{
+    static char buff[1024],*p;
+    unsigned int c=w,b=1<<(w-1);
+
+    p=buff;
+
+    for(;c--;b=b>>1)
+	if(i&b)
+	    *p++='1';
+	else
+	    *p++='0';
+
+    *p='\0';
+
+    return(buff);
+}
diff --git a/bin2db.c b/bin2db.c
new file mode 100644
index 0000000..2f7cb6b
--- /dev/null
+++ b/bin2db.c
@@ -0,0 +1,60 @@
+/*
+	Convert a binary file to a set of assembly DB instructions
+*/
+#include <stdlib.h>
+#include <stdio.h>
+#include <errno.h>
+
+#define PERLINE	8
+
+int main(int argc, char *argv[])
+{
+    char *name="bfile";
+    FILE *in,*out;
+    unsigned char num;
+    int col;
+
+    in=stdin;
+    out=stdout;
+
+    if (argc>1)
+    {
+    	if (!(in=fopen(argv[1],"rb")))
+	{
+	    perror(argv[1]);
+	    exit(EXIT_FAILURE);
+	}
+    }
+
+    if (argc>2)
+    {
+    	if (!(out=fopen(argv[2],"w")))
+	{
+	    perror(argv[0]);
+	    exit(EXIT_FAILURE);
+	}
+    }
+
+    if (argc>1)
+	fprintf(out,"; Auto-generated binary of %s\n\n",argv[1]);
+    else
+	fprintf(out,"; Auto-generated binary\n\n");
+
+    col=0;
+    num=0;
+
+    while(!feof(in))
+    	{
+	fread(&num,sizeof num,1,in);
+
+	if (col==0)
+	    fprintf(out,"\n\tDB\t");
+
+	fprintf(out,"%s0x%2.2X",col==0?"":",",num);
+
+	col=(col+1)%PERLINE;
+	}
+
+    fclose(in);
+    fclose(out);
+}
diff --git a/cfile.c b/cfile.c
new file mode 100644
index 0000000..91b52e0
--- /dev/null
+++ b/cfile.c
@@ -0,0 +1,55 @@
+/*
+	Convert a binary file to a C u_long array
+*/
+#include <stdio.h>
+#include <errno.h>
+
+int main(int argc, char *argv[])
+{
+    char *name="bfile";
+    FILE *in,*out;
+    unsigned long num;
+    int col;
+
+    in=stdin;
+    out=stdout;
+
+    if (argc>1)
+    	if (!(in=fopen(argv[1],"rb")))
+	    perror(argv[0]);
+
+    if (argc>2)
+    	if (!(out=fopen(argv[2],"w")))
+	    perror(argv[0]);
+
+    if (argc>3)
+    	name=argv[3];
+
+    if (argc>1)
+	fprintf(out,"/* Auto-generated binary of %s */\n\n",argv[1]);
+    else
+	fprintf(out,"/* Auto-generated binary */\n\n");
+
+    fprintf(out,"unsigned long %s[]=\n\t\t\t{",name);
+
+    col=0;
+    num=0;
+
+    while(!feof(in))
+    	{
+	fread(&num,sizeof(unsigned long),1,in);
+
+	if (col==0)
+	    fprintf(out,"\n\t\t\t");
+
+	fprintf(out,"0x%.8x,",num);
+
+	col=(col+1)%4;
+	num=0;
+	}
+
+    fprintf(out,"\n\t\t\t};\n");
+
+    fclose(in);
+    fclose(out);
+}
diff --git a/cfile8.c b/cfile8.c
new file mode 100644
index 0000000..702da6f
--- /dev/null
+++ b/cfile8.c
@@ -0,0 +1,55 @@
+/*
+	Convert a binary file to a C unsigned char array
+*/
+#include <stdio.h>
+#include <errno.h>
+
+int main(int argc, char *argv[])
+{
+    char *name="bfile";
+    FILE *in,*out;
+    unsigned char num;
+    int col;
+
+    in=stdin;
+    out=stdout;
+
+    if (argc>1)
+    	if (!(in=fopen(argv[1],"rb")))
+	    perror(argv[0]);
+
+    if (argc>2)
+    	if (!(out=fopen(argv[2],"w")))
+	    perror(argv[0]);
+
+    if (argc>3)
+    	name=argv[3];
+
+    if (argc>1)
+	fprintf(out,"/* Auto-generated binary of %s */\n\n",argv[1]);
+    else
+	fprintf(out,"/* Auto-generated binary */\n\n");
+
+    fprintf(out,"unsigned long %s[]=\n{",name);
+
+    col=0;
+    num=0;
+
+    while(!feof(in))
+    	{
+	fread(&num,sizeof num,1,in);
+
+	if (col==0)
+	    fprintf(out,"\n");
+
+	fprintf(out,"0x%.2x,",num);
+
+	col=(col+1)%16;
+	num=0;
+	}
+
+    fprintf(out,"\n};\n");
+
+    fclose(in);
+    fclose(out);
+}
diff --git a/ctime.c b/ctime.c
new file mode 100644
index 0000000..5ee8451
--- /dev/null
+++ b/ctime.c
@@ -0,0 +1,17 @@
+#include <stdlib.h>
+#include <stdio.h>
+#include <time.h>
+
+int main(int argc, char *argv[])
+{
+    time_t t;
+
+    if (argc>1)
+    	t=(time_t)strtol(argv[1],NULL,0);
+    else
+    	t=time(NULL);
+
+    printf("%s",ctime(&t));
+
+    return 0;
+}
diff --git a/dotrc/_alias b/dotrc/_alias
new file mode 100644
index 0000000..2b72874
--- /dev/null
+++ b/dotrc/_alias
@@ -0,0 +1,92 @@
+alias setcore="ulimit -c unlimited"
+
+alias mem=free
+
+#alias XTERM="xterm -vb -bg black -fg grey90 -cr red -sb -sl 5000 -sk -si -ls -geom 80x40 &"
+
+alias diffsrc='rcsdiff *.[ch] *.html makefile >& diff.out'
+
+alias ctags=exctags
+
+alias vi=vim
+
+alias gvim="gvim -geom 80x83"
+
+alias V="vi"
+
+alias ls="ls -Fx"
+alias lsc="ls --color"
+alias lrt="ls -lrt"
+alias la="ls -a"
+alias lsd="ls -1 | egrep /"
+
+alias h="history|more"
+alias hi="history 20"
+alias p="pwd"
+
+alias vc="vi ~/.alias"
+alias sc="source ~/.alias"
+
+alias wenv="env | egrep "
+alias wal="alias | egrep "
+alias wset="set | egrep "
+
+alias pslink="/usr/sbin/ncpd -s /dev/ttyS1 -b 115200"
+alias winamp="wine /home/wine/DriveC/Program\ Files/Winamp/winamp.exe"
+
+alias bug="gvd"
+
+alias status="cvs status | egrep Status:"
+
+. ~/.b_dalias
+
+# Vars
+#
+FIGNORE=.o
+
+
+# Functions
+#
+function setenv ()
+{
+    export $1=$2
+}
+
+function vgrep()
+{
+    local vgargs
+    local vgflist
+    local vgexp
+
+    if [ $1 == "-i" ] ; then
+    	vgargs="-i"
+	shift
+    else
+    	vgargs=""
+    fi
+
+    vgexp="$1"
+    shift
+
+    vgflist=`egrep -l $vgargs "$vgexp" $*`
+
+    if [ "$vgflist" == "" ] ; then
+    	echo "No matches found"
+    else
+    	vi -R -M -c "/$vgexp" $vgflist
+    fi
+}
+
+
+# Directory setting aliases
+#
+alias dsrc="source ~/.b_dalias"
+
+function dset ()
+{
+    echo "export $1=\"$PWD\" ; alias $1='cd \"$PWD\"'" >> ~/.b_dalias
+    dsrc
+}
+
+alias dwot='alias | egrep "=.cd" | egrep -v dwot'
+alias vd="vi ~/.b_dalias"
diff --git a/dotrc/_bashrc b/dotrc/_bashrc
new file mode 100644
index 0000000..dbd3b3d
--- /dev/null
+++ b/dotrc/_bashrc
@@ -0,0 +1,6 @@
+
+if [ "$PS1" != "" ] ; then
+    PS1='[\w] % '
+fi
+
+test -s ~/.alias && . ~/.alias
diff --git a/dotrc/_gvimrc b/dotrc/_gvimrc
new file mode 100644
index 0000000..dace2c8
--- /dev/null
+++ b/dotrc/_gvimrc
@@ -0,0 +1,22 @@
+set ch=2
+
+set guioptions-=T
+set hlsearch
+set mousehide
+
+set mouse=
+
+highlight Normal guibg=black guifg=white
+highlight Search guibg=grey20 guifg=white
+highlight Cursor guibg=white guifg=NONE
+highlight NonText guibg=black
+highlight Constant gui=NONE guibg=black
+highlight Special gui=NONE guibg=black
+set background=dark
+
+"set guifont=-adobe-courier-medium-r-normal-*-*-120-*-*-m-*-iso8859-9
+"set guifont=-adobe-courier-medium-r-normal-*-*-140-*-*-m-*-iso10646-1
+"set guifont="-windows-proggysquare-medium-r-normal--11-80-96-96-c-70-iso8859-1"
+set guifont=fixed
+
+syntax on
diff --git a/dotrc/_vimrc b/dotrc/_vimrc
new file mode 100644
index 0000000..fcda293
--- /dev/null
+++ b/dotrc/_vimrc
@@ -0,0 +1,82 @@
+version 4.0
+set compatible
+set cpo-=<
+set sw=4
+" set expandtab
+set ai
+set report=2
+set more
+set history=50
+set visualbell
+set noshowmatch
+set modeline
+
+:if &term =~ "linux"
+:  syntax on
+:endif
+
+set background=dark
+syntax on
+
+set wildchar=^I
+set wildmode=list,longest
+set wildignore=*.o,core,*~,*.bak,*.a,*.obj
+set wildmenu
+
+" set fileformats=unix,dos,mac
+
+" For quickfix
+" set mp=make\ \\\|&\ egrep\ ^cc:\ \\\|&\ egrep\ error
+set mp=make\ \\\|&\ egrep\ ^cc:
+
+"
+" This should work, but doesn't...
+" set errorformat=cc:\ \"%f\"\,\ line\ %l:\ error\ %n:\ %m\.
+
+" Map error commands
+map _a :cn

+map _s :cp

+map __ :cc

+
+" Map buffer cycling
+map <C-Tab> :bnext

+map! <C-Tab> :bnext

+
+" Try and set color for xterm
+"
+" :if &term =~ "xterm"
+" :    if has("terminfo")
+" :        set t_Co=16
+" :        set t_AB=[%?%p1%{8}%<%t%p1%{40}%+%e%p1%{92}%+%;%dm
+" :        set t_AF=[%?%p1%{8}%<%t%p1%{30}%+%e%p1%{82}%+%;%dm
+" :    else
+" :        set t_Co=16
+" :        set t_Sf=[3%dm
+" :        set t_Sb=[4%dm
+" :    endif
+" :endif
+
+
+" Autocommands for skeletons and the such
+"
+:if !exists("autocommands_loaded")
+:  let autocommands_loaded = 1
+":  autocmd BufNewFile *.c 0r /devel/proformas/proforma.c
+":  autocmd BufNewFile *.h 0r /devel/proformas/proforma.h
+":  autocmd BufNewFile *.htm,*.html 0r $HOME/.skeleton/skeleton.html
+":  autocmd BufNewFile,BufReadPost *.htm,*.html :vmenu HTML.Bold `>a</b>`<i<b>
+":  autocmd BufNewFile,BufReadPost *.htm,*.html :vmenu HTML.Italic `>a</i>`<i<i>
+":  autocmd BufNewFile,BufReadPost *.htm,*.html :vmenu HTML.Header.1 `>a</h1>`<i<h1>
+":  autocmd BufNewFile,BufReadPost *.htm,*.html :vmenu HTML.Header.2 `>a</h2>`<i<h2>
+":  autocmd BufNewFile,BufReadPost *.htm,*.html :vmenu HTML.Header.3 `>a</h3>`<i<h3>
+":  autocmd BufNewFile,BufReadPost *.htm,*.html syntax on
+":  autocmd BufNewFile,BufReadPost *.css syntax on
+":  autocmd BufNewFile,BufReadPost *.h syntax on
+":  autocmd BufNewFile,BufReadPost *.c syntax on
+":  autocmd BufNewFile,BufReadPost *.cpp syntax on
+":  autocmd BufNewFile,BufReadPost *.sql syntax on
+":  autocmd BufNewFile,BufReadPost *.pc syntax on
+":  autocmd BufNewFile,BufReadPost *.pc set syntax=cpp
+":  autocmd BufNewFile,BufReadPost *.pkg syntax on
+":  autocmd BufNewFile,BufReadPost *.pkg set syntax=plsql
+:endif
diff --git a/err.c b/err.c
new file mode 100644
index 0000000..2ae6008
--- /dev/null
+++ b/err.c
@@ -0,0 +1,36 @@
+/* Report Unix errors */
+#include <stdio.h>
+#include <errno.h>
+
+#if 0
+extern int sys_nerr;
+extern char *sys_errlist[];
+#endif
+
+main(argc,argv)
+int argc;
+char *argv[];
+
+{
+    int f,n;
+
+    if (argc==1)
+	{
+	fprintf(stderr,"%s:usage %s -t|err1 [.. errn]\n",argv[0],argv[0]);
+	exit(1);
+	}
+
+    if (!strcmp(argv[1],"-t"))
+	for(f=0;f<sys_nerr;f++)
+	    printf("%3d : %s\n",f,sys_errlist[f]);
+    else
+	for(f=1;f<argc;f++)
+	    {
+	    n=strtol(argv[f],(char **)NULL,0);
+
+	    if(n>=sys_nerr)
+		fprintf(stderr,"%s:errcode %d invalid!\n",argv[0],n);
+	    else
+		printf("%3d : %s\n",n,sys_errlist[n]);
+	    }
+}
diff --git a/hex.c b/hex.c
new file mode 100644
index 0000000..1323756
--- /dev/null
+++ b/hex.c
@@ -0,0 +1,62 @@
+#include <stdlib.h>
+#include <stdio.h>
+#include <ctype.h>
+
+int main(int argc,char *argv[])
+
+{
+    void Dump(char *fn,FILE *fp);
+    FILE *fp;
+    int f;
+
+    if (argc==1)
+    	Dump("stdin",stdin);
+    else
+	for(f=1;f<argc;f++)
+	    if ((fp=fopen(argv[f],"r")))
+	    	{
+		Dump(argv[f],fp);
+		fclose(fp);
+		}
+	    else
+	    	fprintf(stderr,"Couldn't open %s\n",argv[f]);
+}
+
+
+void Dump(char *fn,FILE *fp)
+{
+    char s[17];
+    int p;
+    int f;
+    int b;
+
+    printf("File:%s\n",fn);
+
+    b=!EOF;
+    p=0;
+
+    while(b!=EOF)
+	{
+	strcpy(s,"                ");
+
+	printf("%6.6x:   ",p);
+	p+=16;
+
+	for(f=0;f<16;f++)
+	    {
+	    if((b!=EOF)&&((b=getc(fp))!=EOF))
+		{
+		printf("%2.2x ",(unsigned char)b);
+
+		if (isprint(b))
+		    s[f]=b;
+		else
+		    s[f]='.';
+		}
+	    else
+		printf("** ");
+	    }
+
+	printf("   %s\n",s);
+	}
+}
diff --git a/int2bin.c b/int2bin.c
new file mode 100644
index 0000000..78125e3
--- /dev/null
+++ b/int2bin.c
@@ -0,0 +1,88 @@
+#include <stdlib.h>
+#include <stdio.h>
+#include <ctype.h>
+#include <errno.h>
+
+#define TRUE	1
+#define FALSE	0
+
+static const int ToHex(char c)
+{
+    c=toupper(c);
+
+    if (c>='0' && c<='9')
+	return c-'0';
+
+    if (c>='A' && c<='F')
+	return c-'A'+10;
+
+    return 0;
+}
+
+
+int main (int argc, char *argv[])
+{
+    FILE *in, *out;
+    char buff[1024];
+    int done;
+    int tot;
+
+    if (argc!=3)
+    {
+    	fprintf(stderr,"%s: usage %s source dest\n",argv[0],argv[0]);
+	exit(EXIT_FAILURE);
+    }
+
+    if (!(in=fopen(argv[1],"r")))
+    {
+    	fprintf(stderr,"Couldn't open '%s'\n",argv[1]);
+	exit(EXIT_FAILURE);
+    }
+
+    if (!(out=fopen(argv[2],"wb")))
+    {
+    	fprintf(stderr,"Couldn't create '%s'\n",argv[2]);
+	exit(EXIT_FAILURE);
+    }
+
+    done=0;
+    tot=0;
+
+    while(!done)
+    {
+	if (!fgets(buff,sizeof buff,in))
+	{
+	    printf("Missing EOF record\n");
+	    done=TRUE;
+	}
+
+	if (!done && buff[0]!=':')
+	{
+	    printf("Invalid Intel HEX file\n");
+	    done=TRUE;
+	}
+
+	if (!done && buff[8]=='1')
+	{
+	    done=TRUE;
+	}
+
+	if (!done)
+	{
+	    int len;
+	    int f;
+
+	    len=ToHex(buff[1])<<4|ToHex(buff[2]);
+
+	    for(f=0;f<len;f++)
+	    {
+		int b;
+
+		b=ToHex(buff[f*2+9])<<4|ToHex(buff[f*2+10]);
+		putc(b,out);
+	    }
+	}
+    }
+
+    return EXIT_SUCCESS;
+}
diff --git a/mb.c b/mb.c
new file mode 100644
index 0000000..7ced833
--- /dev/null
+++ b/mb.c
@@ -0,0 +1,66 @@
+/* Mangle a berkley mbox
+*/
+#include <stdlib.h>
+#include <stdio.h>
+
+void	Process(FILE *fp, const char *p);
+
+int main(int argc, char *argv[])
+{
+    int f;
+
+    if (argc==1)
+	Process(stdin,"stdin");
+    else
+	for(f=1;f<argc;f++)
+	    Process(fopen(argv[f],"r"),argv[f]);
+
+    return EXIT_SUCCESS;
+}
+
+
+void Quit(const char *p)
+{
+    perror(p);
+    exit(EXIT_FAILURE);
+}
+
+
+void Process(FILE *fp, const char *p)
+{
+    FILE *out=NULL;
+    char buff[1024];
+    char fn[80];
+    int n=1;
+
+    printf("Processing : %s\n",p);
+
+    if (!fp)
+	Quit("fopen");
+
+    sprintf(fn,"%s.dir",p);
+
+    if (mkdir(fn,0777)==-1)
+    	Quit("mkdir");
+
+    while(fgets(buff,sizeof buff,fp))
+    	{
+	if (strncmp(buff,"From ",5)==0)
+	    {
+	    if (out)
+		fclose(out);
+
+	    sprintf(fn,"%s.dir/%d.txt",p,n++);
+
+	    printf("Creating : %s\n",fn);
+
+	    if (!(out=fopen(fn,"w")))
+		Quit("fopen");
+	    }
+
+	fprintf(out,"%s",buff);
+	}
+
+    fclose(out);
+    fclose(fp);
+}
diff --git a/num.c b/num.c
new file mode 100644
index 0000000..b24da39
--- /dev/null
+++ b/num.c
@@ -0,0 +1,128 @@
+#include <stdio.h>
+
+#define LONG	0
+#define WORD	1
+#define BYTE	2
+
+main(argc,argv)
+int argc;
+char *argv[];
+
+{
+    signed long snum;
+    unsigned long num;
+    unsigned short word;
+    unsigned char byte;
+    double dbl;
+    int mode=LONG;
+    int arg=0;
+    int f;
+    char *binary();
+    char *ascii();
+
+    if(argc==1)
+	{
+	printf("%s: usage %s N1 [..Nn]\n",argv[0],argv[0]);
+	exit(-1);
+	}
+
+    for(f=1;f<argc;f++)
+    	{
+	num=(unsigned long)strtoul(argv[f],(char **)NULL,0);
+	snum=(signed long)num;
+
+	if (num<0x100)
+	    mode=BYTE;
+	else if (num<0x10000)
+	    mode=WORD;
+	else
+	    mode=LONG;
+
+	switch(mode)
+	    {
+	    case LONG:
+		memcpy(&dbl,&num,sizeof(unsigned long));
+		printf("Original : %s\n",argv[f]);
+		printf("Octal    : %o\n",num);
+		printf("Uns. Dec : %u\n",num);
+		printf("Sgn. Dec : %ld\n",snum);
+		printf("Hex      : %8.8X\n",num);
+		printf("Binary   : %s\n",binary(num,32));
+		printf("Ascii    : %s\n",ascii(num,4));
+		printf("Double   : %f\n\n",dbl);
+	    	break;
+	    case WORD:
+		word=(unsigned short)num;
+		printf("Original : %s\n",argv[f]);
+		printf("Octal    : %o\n",word);
+		printf("Uns. Dec : %u\n",word);
+		printf("Sgn. Dec : %ld\n",(signed short)snum);
+		printf("Hex      : %4.4X\n",word);
+		printf("Binary   : %s\n",binary(word,16));
+		printf("Ascii    : %s\n\n",ascii((unsigned long)word,2));
+	    	break;
+	    case BYTE:
+		byte=(unsigned char)num;
+		printf("Original : %s\n",argv[f]);
+		printf("Octal    : %o\n",byte);
+		printf("Uns. Dec : %u\n",byte);
+		printf("Sgn. Dec : %ld\n",(signed char)snum);
+		printf("Hex      : %2.2X\n",byte);
+		printf("Binary   : %s\n",binary(byte,8));
+		printf("Ascii    : %s\n\n",ascii((unsigned long)byte,1));
+		break;
+	    }
+	}
+}
+
+
+char *binary(i,w)
+unsigned long i,w;
+
+{
+    static char buff[1024],*p;
+    unsigned long c=w,b=1<<(w-1);
+    int first=1;
+
+    p=buff;
+
+    for(;c--;b=b>>1)
+	{
+	if (!((c+1)%4)&&!first)
+	    *p++=' ';
+
+	if(i&b)
+	    *p++='1';
+	else
+	    *p++='0';
+
+	first=0;
+	}
+
+    *p='\0';
+
+    return(buff);
+}
+
+
+char *ascii(num,l)
+unsigned long num;
+{
+    static char s[5];
+    int f;
+    unsigned char c;
+
+    s[l]=0;
+
+    for(f=0;f<l;f++)
+    	{
+	c=num&0xff;
+	if ((c>=32)&&(c<127))
+	    s[(l-1)-f]=c;
+	else
+	    s[(l-1)-f]='.';
+	num=num>>8;
+	}
+
+    return(s);
+}
diff --git a/sc2001.c b/sc2001.c
new file mode 100644
index 0000000..a2781b1
--- /dev/null
+++ b/sc2001.c
@@ -0,0 +1,340 @@
+/* Sim Carol 2001 - By Bill Godfrey. 
+billg@bacchae.co.uk */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <limits.h>
+#include <assert.h>
+
+typedef unsigned long term_t;   /* Single term */
+
+typedef enum
+{
+  OP_NULL,       /* Terminator sentinel. */
+  OP_ADD,        /* max + min */
+  OP_MUL,        /* max * min */
+  OP_SUB,        /* max - min where (max!=min) */
+  OP_DIV         /* max / min where (max%min==0) */
+} op_t;
+
+#define MAX_TERMS 10 /* Yuck. */
+
+typedef struct
+{
+  term_t t1;
+  term_t t2;
+  op_t op;
+} step_t;
+
+typedef struct
+{
+  term_t unused[MAX_TERMS+1];          /* zero term array. */
+  step_t steps[MAX_TERMS];             /* .op=OP_NULL term array. */
+  term_t target;                      /* Desired target. */
+  term_t result;                      /* Obtained target, or ULONG_MAX */
+} sol_t;
+
+term_t distance(term_t targ, term_t result)
+{
+  return (targ > result)?(targ-result):(result-targ);
+}   
+
+size_t count_unused(sol_t *s)
+{
+  term_t *t=s->unused;
+  size_t r=0;
+
+  while (*t)
+    {
+      ++r;++t;
+    }
+  return r;
+}
+
+size_t count_steps(sol_t *s)
+{
+  step_t *t=s->steps;
+  size_t r=0;
+
+  while (t->op != OP_NULL)
+    {
+      ++r;++t;
+    }
+  return r;
+}
+
+term_t do_step(step_t *s)
+{
+  term_t r;
+
+  assert(s->t1 >= s->t2);
+
+  switch (s->op)
+    {
+    case OP_ADD:
+      r=s->t1+s->t2; break;
+    case OP_MUL:
+      r=s->t1*s->t2; break;
+    case OP_SUB:
+      r=s->t1-s->t2; break;
+    case OP_DIV:
+      r=s->t1/s->t2; break;
+    default:
+      assert(!!"Shouldn't be here.");
+    }
+  return r;
+}  
+
+const char ops[]=" +x-/";  /* char array for operator symbols. */
+
+#ifdef USE_ASCII
+#define LETNUM(a) ('A'+(a))
+#else
+const char letters[]="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+#define LETNUM(a) (letters[a])
+#endif
+
+void disp_sol(sol_t *sol)
+{
+  step_t *step=sol->steps;
+  size_t n=0;
+
+  while (step->op != OP_NULL)
+    {
+      printf("[%c] %5lu %c %5lu = %5lu\n",LETNUM(n++),step->t1,ops[step->op],step->t2,do_step(step));
+      ++step;
+    }
+  printf("-- \n");
+}
+
+void disp_unused(char*str1,term_t *unu,char*str2)
+{
+  size_t n;
+
+  printf("%s[ ",str1);
+  for(n=0; unu[n]; ++n)
+    {
+      printf("%lu ",unu[n]);
+    }
+  printf("]%s",str2);
+}
+
+void evaluate_sol(sol_t *sol, sol_t *anear)
+{
+  term_t newdist,olddist;
+
+  olddist=distance(anear->target,anear->result);
+  newdist=distance(sol->target,sol->result);
+ 
+  if ((olddist==0) && (newdist==0))  /* We have already had a winner */
+    {
+      if (count_steps(sol) < count_steps(anear)) /* Less steps? */
+	{
+	  *anear=*sol;
+	  printf("Improved match.\n");
+	  disp_sol(anear);
+	}
+    }     
+  else if (newdist==0)  /* First winner. */
+    {
+      *anear=*sol;
+      printf("-- \nFirst match.\n");
+      disp_sol(anear);
+    }
+  else if (newdist < olddist)  /* A better nearest. */
+    {
+      *anear=*sol;
+    }
+}
+
+void update_unused(term_t *unused, size_t num_unused, term_t new, size_t t1, size_t t2)
+{
+  size_t lastt=num_unused-1;
+
+  unused[t1]=new;    /* Replace earlier term with new result. */  
+  unused[t2]=unused[lastt];  /* Move last in list over t2 */
+  unused[lastt]=0;
+}
+  
+void go_calc(sol_t *start, sol_t *nearest)
+{
+  size_t t1,t2,maxt,mint;
+  term_t max,min;
+  op_t op;
+  size_t num_unused;
+  sol_t newsol;
+  step_t *newstep;
+  
+  num_unused=count_unused(start);
+
+#if 0
+  disp_unused("Consider ",start->unused,"\n");
+#endif
+
+  for (t1=0; t1<(num_unused-1); ++t1)
+    for (t2=t1+1; t2<num_unused; ++t2)
+      for (op=OP_ADD; op<=OP_DIV; ++op)
+	{
+	  if(start->unused[t1] > start->unused[t2])
+	    {
+	      maxt=t1; mint=t2;
+	    }
+	  else
+	    {
+	      maxt=t2; mint=t1;
+	    }
+
+	  max=start->unused[maxt];
+	  min=start->unused[mint];
+
+	  if ((op == OP_SUB) && (max==min)) 
+	    {
+	      break;  /* a-b produces a zero. Try next operator */
+	    }
+	  if ((op == OP_DIV) && (max%min))
+	    {
+	      break;  /* a/b leaves a remainder. */
+	    }
+
+	  if ((op == OP_MUL) && (min==1))
+	    {
+	      break;   /* (a*1)=a wasted step. */
+	    }
+
+	  if ((op == OP_DIV) && (min==1))
+	    {
+	      break;   /* (a/1)=a wasted step. */
+	    }
+
+	  /* Now apply max op min to a copy of start */
+
+	  newsol=*start;
+	  newstep=newsol.steps + count_steps(&newsol); 
+	  assert(newstep->op == OP_NULL);
+
+	  newstep->t1=max;
+	  newstep->t2=min;
+	  newstep->op=op; /* Write new step in */
+
+	  newstep[1].op=OP_NULL; /* Add sentinel */
+
+	  newsol.result=do_step(newstep);  /* Complete newstep */
+
+#if 0
+	  disp_unused("From ",start->unused," ");
+	  printf("(%lu%c%lu)=%lu ",
+		 max,ops[op],min,newsol.result);
+#endif
+
+	  update_unused(newsol.unused,num_unused,newsol.result,t1,t2);
+	
+#if 0     
+	  disp_unused("to ",newsol.unused,"\n");
+#endif
+
+	  evaluate_sol(&newsol,nearest);
+#if 0
+	  printf("IN\n");
+#endif
+	  go_calc(&newsol,nearest);
+#if 0
+	  printf("OUT\n");
+#endif
+	}
+	   
+}
+  
+
+int main(int argc, char *argv[])
+{
+  int a;
+  sol_t start={0};
+  sol_t nearest={0};
+  size_t num_unused=0;   /* Number of actual terms. */
+  int retval=EXIT_FAILURE;
+  int targetarg=0;    /* Which argv[] points to the one after -t? */
+  int state=0;        /* 1=seen a -t */
+  int toomanywarn=0;  /* Has "too many" warning been delivered? */
+
+  fprintf(stderr,"Sim Carol 2001, By Bill Godfrey.\n");
+
+  for (a=1; a<argc; ++a)
+    {
+      if ((state==0) && (strcmp(argv[a],"-t")==0))
+	{
+	  state=1;  /* Getting target. */
+	}
+      else if ((state==0) && (num_unused < MAX_TERMS))
+	{
+	  term_t newterm=atol(argv[a]);
+	  
+	  if (newterm == 0)
+	    {
+	      fprintf(stderr,"Warning. \"%s\" is not a valid starting number. Ignoring.\n",argv[a]);
+	    }
+	  else
+	    {
+	      start.unused[num_unused++]=atol(argv[a]);
+	    }
+	}
+      else if (state==1)
+	{
+	  if (targetarg)
+	    {
+	      fprintf(stderr,"Warning. Already have a target. Ignoring \"-t\" \"%s\".\n",argv[a]);
+	    }
+	  else
+	    {
+	      start.target=atol(argv[a]);
+	      targetarg=a;
+	    }
+	  state=0;
+	}
+      else if ((state==0) && (num_unused == MAX_TERMS) && (!toomanywarn))
+	{
+	  fprintf(stderr,"Warning. Too many starting numbers. Ignoring all after %s.\n",argv[a]);
+	  toomanywarn=1;
+	}
+    }
+
+  if (targetarg == 0)
+    {
+      fprintf(stderr,"Error. No target specified.\n");
+      goto tidyup;
+    }
+
+  if (start.target == 0)
+    {
+      fprintf(stderr,"Error. \"%s\" is not a valid target.\n",argv[targetarg]);
+      goto tidyup;
+    }
+
+  if (num_unused <2)
+    {
+      fprintf(stderr,"Error. Not enough starting numbers.\n");
+      goto tidyup;
+    }
+  
+  start.unused[num_unused]=0;  /* terminate the arrays */
+  start.steps[0].op=OP_NULL;
+
+  nearest.result=ULONG_MAX;  /* Our first attempt has a long way to go. */
+
+  go_calc(&start,&nearest);
+  
+  {
+    term_t dist=distance(nearest.target,nearest.result);
+    
+    if (dist)
+      {
+	printf("Nearest answer %lu from target.\n",dist);
+	disp_sol(&nearest);
+      }
+  }
+  
+  retval=EXIT_SUCCESS;
+ tidyup:
+
+  return retval;
+}
diff --git a/seekp.c b/seekp.c
new file mode 100644
index 0000000..3890d75
--- /dev/null
+++ b/seekp.c
@@ -0,0 +1,110 @@
+/*
+    Query remote host for TCP/IP socket
+*/
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <netinet/tcp.h>
+#include <netdb.h>
+
+#include <stdio.h>
+#include <errno.h>
+
+char	*name;
+
+int	Connect();
+
+main(argc,argv)
+int argc;
+char *argv[];
+
+{
+    int f;
+
+    name=argv[0];
+
+    if (argc<2)
+	{
+	fprintf(stderr,"%s: usage %s host\n",name,name);
+	exit(1);
+	}
+
+    setbuf(stdout,NULL);
+
+    for(f=0;f<0x10000;f++)
+	{
+	if (argc>2)
+	    printf("Trying %s:%d...\n",argv[1],f);
+
+	Connect(argv[1],f);
+
+	if ((argc==2)&&(f)&&((f%10000)==0))
+	    fprintf(stderr,"Tried up to %s:%d\n",argv[1],f);
+	}
+
+    return(0);
+}
+
+
+char *GetLine()
+
+{
+    static char buff[1024];
+    int l;
+
+    if (feof(stdin))
+	return(NULL);
+
+    printf("> ");
+
+    if (!gets(buff))
+	return(NULL);
+
+    l=strlen(buff);
+
+    if (buff[l-1]=='\n')
+	buff[l-1]=0;
+
+    if (strlen(buff))
+	return(buff);
+    else
+	return(GetLine());
+}
+
+
+int Connect(n,p)
+char *n;
+int p;
+
+{
+    static int init=0;
+    static struct hostent *remote;
+    static struct sockaddr_in addr;
+    int sock;
+
+    if (!init)
+    	{
+	if (!(remote=gethostbyname(n)))
+	    {
+	    fprintf(stderr,"%s: unknown host %s\n",name,n);
+	    exit(1);
+	    }
+
+	bcopy(remote->h_addr,&addr.sin_addr,remote->h_length);
+	init=1;
+	}
+
+    if ((sock=socket(AF_INET,SOCK_STREAM,0))==-1)
+	{
+	perror(name);
+	exit(1);
+	}
+
+    addr.sin_family=AF_INET;
+    addr.sin_port=htons(p);
+
+    if (connect(sock,&addr,sizeof(addr))!=-1)
+	printf("%s:%d\n",n,p);
+
+    close(sock);
+}
diff --git a/serv.c b/serv.c
new file mode 100644
index 0000000..276404c
--- /dev/null
+++ b/serv.c
@@ -0,0 +1,105 @@
+/* A simple server to attach to
+*/
+#include <sys/types.h>
+
+#include <stdio.h>
+#include <errno.h>
+
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <netinet/tcp.h>
+#include <netdb.h>
+
+char	*name;
+int	sock_fd;
+int	connect_fd;
+
+void	Socket(short);
+
+main(argc,argv)
+int argc;
+char *argv[];
+
+{
+    struct sockaddr_in addr;
+    char buff[1024];
+    int len;
+    int addrlen;
+
+    name=argv[0];
+
+    if (argc!=2)
+	{
+	fprintf(stderr,"%s: usage %s port\n",name,name);
+	exit(1);
+	}
+
+    Socket((short)atoi(argv[1]));
+
+    printf("%s: socket bound\n",name);
+
+    while(1)
+	{
+	printf("%s: accepting\n",name);
+	if ((connect_fd=accept(sock_fd,NULL,0))==-1)
+	    {
+	    perror(name);
+	    exit(1);
+	    }
+
+	addrlen=sizeof(addr);
+	if (getsockname(connect_fd,&addr,&addrlen)!=0)
+	    perror(name);
+
+	printf("%s: connection ON port %d\n",name,ntohs(addr.sin_port));
+
+	addrlen=sizeof(addr);
+	if (getpeername(connect_fd,&addr,&addrlen)!=0)
+	    perror(name);
+
+	printf("%s: connection FROM port %d\n",name,ntohs(addr.sin_port));
+
+	while((len=read(connect_fd,buff,1024))>0)
+	    {
+	    buff[len]=0;
+	    printf("%s: recieved '%s'\n",name,buff);
+	    write(connect_fd,buff,len);
+	    }
+
+	perror(name);
+
+	close(connect_fd);
+	}
+
+    return(0);
+}
+
+
+void Socket(short p)
+{
+    struct sockaddr_in addr;
+
+    if ((sock_fd=socket(AF_INET,SOCK_STREAM,0))==-1)
+	{
+	perror(name);
+	exit(1);
+	}
+
+    /* Bind port to address
+    */
+    addr.sin_family=AF_INET;
+    addr.sin_addr.s_addr=INADDR_ANY;
+    addr.sin_port=htons(p);
+
+    if (bind(sock_fd,&addr,sizeof(addr))==-1)
+	{
+	perror(name);
+	exit(1);
+	}
+
+    if (listen(sock_fd,5)==-1)
+	{
+	perror(name);
+	exit(1);
+	}
+}
diff --git a/sig.c b/sig.c
new file mode 100644
index 0000000..1ab0bbb
--- /dev/null
+++ b/sig.c
@@ -0,0 +1,24 @@
+#include <stdlib.h>
+#include <unistd.h>
+#include <stdio.h>
+
+int main()
+{
+    setbuf(stdout,NULL);
+    printf("\nIan C\n\n-- \n");
+    /*system("fortune /home/ianc/Documents/sigfortune");*/
+
+    switch (fork())
+    {
+    	case 0:
+	    execlp("fortune","fortune","/home/ianc/Documents/sigfortune",(const char *)NULL);
+
+	case -1:
+	    break;
+
+	default:
+	    wait(NULL);
+	    break;
+    }
+    
+}
diff --git a/sock.c b/sock.c
new file mode 100644
index 0000000..03a7c39
--- /dev/null
+++ b/sock.c
@@ -0,0 +1,130 @@
+/*
+    Reader/writer to TCP/IP socket
+*/
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <netinet/tcp.h>
+#include <netdb.h>
+
+#include <stdio.h>
+#include <errno.h>
+
+char	*name;
+int	sock;
+
+char	*GetLine();
+int	Connect();
+
+main(argc,argv)
+int argc;
+char *argv[];
+
+{
+    struct sockaddr_in addr;
+    int addrlen;
+    char *p;
+    char buff[1024];
+    int len;
+
+    name=argv[0];
+
+    if (argc<3)
+	{
+	fprintf(stderr,"%s: usage %s host port [nowrite]\n",name,name);
+	exit(1);
+	}
+
+    Connect(argv[1],atoi(argv[2]));
+
+    /* Test to see how to get the connected local port number
+    */
+    addrlen=sizeof(addr);
+    if (getsockname(sock,&addr,&addrlen)!=0)
+	perror(name);
+
+    printf("%s: bound through port %d\n",name,ntohs(addr.sin_port));
+
+    while((argc==4)||(p=GetLine()))
+	{
+	if ((argc!=4)&&(write(sock,p,strlen(p))==-1))
+	    {
+	    perror(name);
+	    close(sock);
+	    exit(1);
+	    }
+
+	if ((len=read(sock,buff,1024))<=0)
+	    {
+	    perror(name);
+	    close(sock);
+	    exit(1);
+	    }
+	buff[len]=0;
+	printf("%s\n",buff);
+	}
+
+    close(sock);
+    printf("\n");
+
+    return(0);
+}
+
+
+char *GetLine()
+
+{
+    static char buff[1024];
+    int l;
+
+    if (feof(stdin))
+	return(NULL);
+
+    printf("> ");
+
+    if (!gets(buff))
+	return(NULL);
+
+    l=strlen(buff);
+
+    if (buff[l-1]=='\n')
+	buff[l-1]=0;
+
+    if (strlen(buff))
+	return(buff);
+    else
+	return(GetLine());
+}
+
+
+int Connect(n,p)
+char *n;
+int p;
+
+{
+    struct hostent *remote;
+    struct sockaddr_in addr;
+
+    if (!(remote=gethostbyname(n)))
+	{
+	fprintf(stderr,"%s: unknown host %s\n",name,n);
+	exit(1);
+	}
+
+    bcopy(remote->h_addr,&addr.sin_addr,remote->h_length);
+
+    if ((sock=socket(AF_INET,SOCK_STREAM,0))==-1)
+	{
+	perror(name);
+	exit(1);
+	}
+
+    addr.sin_family=AF_INET;
+    addr.sin_port=htons(p);
+
+    if (connect(sock,&addr,sizeof(addr))==-1)
+	{
+	perror(name);
+	exit(1);
+	}
+}
diff --git a/total.c b/total.c
new file mode 100644
index 0000000..bfdd7d0
--- /dev/null
+++ b/total.c
@@ -0,0 +1,16 @@
+#include <stdio.h>
+
+int main(int argc, char*argv[])
+{
+    int tot=0;
+    char s[128];
+
+    gets(s);
+    while(!feof(stdin))
+    	{
+	tot+=atoi(s);
+	gets(s);
+	}
+
+    printf("%d\n",tot);
+}