From ce249649b29f84ca47e1bf81a1faf36b841bad6b Mon Sep 17 00:00:00 2001
From: David Given <dg@cowlark.com>
Date: Sun, 17 Jun 2018 15:34:29 +0200
Subject: [PATCH 1/8] Warning fix.

---
 tests/plat/lib/test_b.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/plat/lib/test_b.c b/tests/plat/lib/test_b.c
index b2173b4f3..85ce1a159 100644
--- a/tests/plat/lib/test_b.c
+++ b/tests/plat/lib/test_b.c
@@ -1,8 +1,8 @@
 #include <stdint.h>
 #include "test.h"
 
-extern void patch_addresses(uintptr_t* module);
-extern uintptr_t* bmodule_main;
+extern void patch_addresses(uintptr_t** module);
+extern uintptr_t* bmodule_main[];
 
 static void i_writehex(intptr_t code)
 {
@@ -28,7 +28,7 @@ static uintptr_t* bmodule_test[] =
 
 void binit(void)
 {
-	patch_addresses(&bmodule_test);
-	patch_addresses(&bmodule_main);
+	patch_addresses(bmodule_test);
+	patch_addresses(bmodule_main);
 }
 

From 13e195d19f93b9d5c6b4b753ecadc11d1bddbe26 Mon Sep 17 00:00:00 2001
From: David Given <dg@cowlark.com>
Date: Sun, 17 Jun 2018 15:42:26 +0200
Subject: [PATCH 2/8] Warning fixes.

---
 lang/cem/libcc.ansi/signal/raise.c  |  4 ++--
 lang/cem/libcc.ansi/stdlib/system.c | 11 ++++++-----
 lang/cem/libcc.ansi/string/strdup.c |  3 ++-
 plat/rpi/include/unistd.h           |  1 +
 4 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/lang/cem/libcc.ansi/signal/raise.c b/lang/cem/libcc.ansi/signal/raise.c
index da37897d4..42b3b4cec 100644
--- a/lang/cem/libcc.ansi/signal/raise.c
+++ b/lang/cem/libcc.ansi/signal/raise.c
@@ -5,9 +5,9 @@
 /* $Id$ */
 
 #if	defined(_POSIX_SOURCE)
-#include	<sys/types.h>
+#include <sys/types.h>
 #endif
-#include	<signal.h>
+#include <signal.h>
 
 int
 raise(int sig)
diff --git a/lang/cem/libcc.ansi/stdlib/system.c b/lang/cem/libcc.ansi/stdlib/system.c
index 313ee32f5..99a8d6e6a 100644
--- a/lang/cem/libcc.ansi/stdlib/system.c
+++ b/lang/cem/libcc.ansi/stdlib/system.c
@@ -5,10 +5,12 @@
 /* $Id$ */
 
 #if	defined(_POSIX_SOURCE)
-#include	<sys/types.h>
+#include <sys/types.h>
 #endif
-#include	<stdlib.h>
-#include	<signal.h>
+#include <stdlib.h>
+#include <signal.h>
+
+extern char** environ;
 
 extern int _fork(void);
 extern int _wait(int *);
@@ -18,7 +20,6 @@ extern void _close(int);
 
 #define	FAIL	127
 
-extern const char **environ;
 static const char *exec_tab[] = {
 	"sh",			/* argv[0] */
 	"-c",			/* argument to the shell */
@@ -39,7 +40,7 @@ system(const char *str)
 			_close(i);
 		if (!str) str = "cd .";		/* just testing for a shell */
 		exec_tab[2] = str;		/* fill in command */
-		_execve("/bin/sh", exec_tab, environ);
+		_execve("/bin/sh", exec_tab, (char const**) environ);
 		/* get here if execve fails ... */
 		_exit(FAIL);	/* see manual page */
 	}
diff --git a/lang/cem/libcc.ansi/string/strdup.c b/lang/cem/libcc.ansi/string/strdup.c
index 730796b5f..d197171a9 100644
--- a/lang/cem/libcc.ansi/string/strdup.c
+++ b/lang/cem/libcc.ansi/string/strdup.c
@@ -4,7 +4,8 @@
  */
 /* $Id$ */
 
-#include	<string.h>
+#include <stdlib.h>
+#include <string.h>
 
 char*
 strdup(const char *s)
diff --git a/plat/rpi/include/unistd.h b/plat/rpi/include/unistd.h
index 196b823c4..6c220d10f 100644
--- a/plat/rpi/include/unistd.h
+++ b/plat/rpi/include/unistd.h
@@ -89,6 +89,7 @@ typedef int sig_atomic_t;
 typedef void (*sighandler_t)(int);
 extern sighandler_t signal(int signum, sighandler_t handler);
 extern int raise(int signum);
+extern int kill(pid_t pid, int sig);
 
 /* Select */
 

From d1671fc2e34f64480a5fa055afbd88ee282b0bb3 Mon Sep 17 00:00:00 2001
From: David Given <dg@cowlark.com>
Date: Sun, 17 Jun 2018 15:44:33 +0200
Subject: [PATCH 3/8] Move the private Pascal headers into libpc where they
 belong.

---
 {h => lang/pc/libpc}/pc_err.h  | 0
 {h => lang/pc/libpc}/pc_file.h | 0
 {h => lang/pc/libpc}/pc_math.h | 0
 3 files changed, 0 insertions(+), 0 deletions(-)
 rename {h => lang/pc/libpc}/pc_err.h (100%)
 rename {h => lang/pc/libpc}/pc_file.h (100%)
 rename {h => lang/pc/libpc}/pc_math.h (100%)

diff --git a/h/pc_err.h b/lang/pc/libpc/pc_err.h
similarity index 100%
rename from h/pc_err.h
rename to lang/pc/libpc/pc_err.h
diff --git a/h/pc_file.h b/lang/pc/libpc/pc_file.h
similarity index 100%
rename from h/pc_file.h
rename to lang/pc/libpc/pc_file.h
diff --git a/h/pc_math.h b/lang/pc/libpc/pc_math.h
similarity index 100%
rename from h/pc_math.h
rename to lang/pc/libpc/pc_math.h

From 9947e7ac63234c67a29b773922328c5d6d499fdd Mon Sep 17 00:00:00 2001
From: David Given <dg@cowlark.com>
Date: Sun, 17 Jun 2018 15:54:18 +0200
Subject: [PATCH 4/8] Added a pc.h to contain libpc prototypes; some
 ansification.

---
 lang/pc/libpc/pc.h  | 18 +++++++++++++++
 lang/pc/libpc/wrs.c | 54 ++++++++++++++++++++++++---------------------
 lang/pc/libpc/wrz.c | 29 ++++++++++++------------
 3 files changed, 62 insertions(+), 39 deletions(-)
 create mode 100644 lang/pc/libpc/pc.h

diff --git a/lang/pc/libpc/pc.h b/lang/pc/libpc/pc.h
new file mode 100644
index 000000000..3590b25a0
--- /dev/null
+++ b/lang/pc/libpc/pc.h
@@ -0,0 +1,18 @@
+#ifndef PC_H
+#define PC_H
+
+#include "pc_err.h"
+#include "pc_file.h"
+#include "pc_math.h"
+
+extern void _trp(int trapno);
+extern void _wrb(int b, struct file* f);
+extern void _wrs(int len, char* s, struct file* f);
+extern void _wrz(char* s, struct file* f);
+extern void _wsb(int w, int b, struct file* f);
+extern void _wsc(int w, char c, struct file* f);
+extern void _wss(int w, int len, char* s, struct file* f);
+extern void _wstrin(int width, int len, char* buf, struct file* f);
+extern void _wsz(int w, char* s, struct file* f);
+
+#endif
diff --git a/lang/pc/libpc/wrs.c b/lang/pc/libpc/wrs.c
index d95d0f2d8..427f0d7e6 100644
--- a/lang/pc/libpc/wrs.c
+++ b/lang/pc/libpc/wrs.c
@@ -18,51 +18,55 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_err.h>
-#include	<pc_file.h>
-
-extern		_wf();
-extern		_outcpt();
-
-_wstrin(width,len,buf,f) int width,len; char *buf; struct file *f; {
+#include "pc.h"
 
+void _wstrin(int width, int len, char* buf, struct file* f)
+{
 	_wf(f);
-	for (width -= len; width>0; width--) {
+	for (width -= len; width > 0; width--)
+	{
 		*f->ptr = ' ';
 		_outcpt(f);
 	}
-	while (--len >= 0) {
+	while (--len >= 0)
+	{
 		*f->ptr = *buf++;
 		_outcpt(f);
 	}
 }
 
-_wsc(w,c,f) int w; char c; struct file *f; {
-
-	if (w < 0) _trp(EWIDTH);
-	_wss(w,1,&c,f);
+void _wsc(int w, char c, struct file* f)
+{
+	if (w < 0)
+		_trp(EWIDTH);
+	_wss(w, 1, &c, f);
 }
 
-_wss(w,len,s,f) int w,len; char *s; struct file *f; {
-
-	if (w < 0 || len < 0) _trp(EWIDTH);
+void _wss(int w, int len, char* s, struct file* f)
+{
+	if (w < 0 || len < 0)
+		_trp(EWIDTH);
 	if (w < len)
 		len = w;
-	_wstrin(w,len,s,f);
+	_wstrin(w, len, s, f);
 }
 
-_wrs(len,s,f) int len; char *s; struct file *f; {
-	if (len < 0) _trp(EWIDTH);
-	_wss(len,len,s,f);
+void _wrs(int len, char* s, struct file* f)
+{
+	if (len < 0)
+		_trp(EWIDTH);
+	_wss(len, len, s, f);
 }
 
-_wsb(w,b,f) int w,b; struct file *f; {
+void _wsb(int w, int b, struct file* f)
+{
 	if (b)
-		_wss(w,4,"true",f);
+		_wss(w, 4, "true", f);
 	else
-		_wss(w,5,"false",f);
+		_wss(w, 5, "false", f);
 }
 
-_wrb(b,f) int b; struct file *f; {
-	_wsb(5,b,f);
+void _wrb(int b, struct file* f)
+{
+	_wsb(5, b, f);
 }
diff --git a/lang/pc/libpc/wrz.c b/lang/pc/libpc/wrz.c
index 77e304607..553b94c64 100644
--- a/lang/pc/libpc/wrz.c
+++ b/lang/pc/libpc/wrz.c
@@ -16,23 +16,24 @@
  *
  */
 
-#include	<pc_err.h>
-#include	<pc_file.h>
+#include "pc.h"
 
-extern		_wss();
-extern		_wrs();
+void _wsz(int w, char* s, struct file* f)
+{
+	char* p;
 
-_wsz(w,s,f) int w; char *s; struct file *f; {
-	char *p;
-
-	if (w < 0) _trp(EWIDTH);
-	for (p=s; *p; p++);
-	_wss(w,(int)(p-s),s,f);
+	if (w < 0)
+		_trp(EWIDTH);
+	for (p = s; *p; p++)
+		;
+	_wss(w, (int)(p - s), s, f);
 }
 
-_wrz(s,f) char *s; struct file *f; {
-	char *p;
+void _wrz(char* s, struct file* f)
+{
+	char* p;
 
-	for (p=s; *p; p++);
-	_wrs((int)(p-s),s,f);
+	for (p = s; *p; p++)
+		;
+	_wrs((int)(p - s), s, f);
 }

From 9ede428e3c1c7e3b63796e029f23a964b9234c78 Mon Sep 17 00:00:00 2001
From: David Given <dg@cowlark.com>
Date: Sun, 17 Jun 2018 16:10:57 +0200
Subject: [PATCH 5/8] Use cproto to extract all the prototypes.

---
 lang/pc/libpc/pc.h | 92 ++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 88 insertions(+), 4 deletions(-)

diff --git a/lang/pc/libpc/pc.h b/lang/pc/libpc/pc.h
index 3590b25a0..b3f533eab 100644
--- a/lang/pc/libpc/pc.h
+++ b/lang/pc/libpc/pc.h
@@ -5,14 +5,98 @@
 #include "pc_file.h"
 #include "pc_math.h"
 
+extern char *_ecvt(double value, int ndigit, int *decpt, int *sign);
+extern char *_fcvt(double value, int ndigit, int *decpt, int *sign);
+extern char *_wdw(struct file *f);
+extern char *argv(int i);
+extern char *environ(int i);
+extern char *strbuf(char *s);
+extern double _abr(double r);
+extern double _atn(double x);
+extern double _cos(double x);
+extern double _exp(double x);
+extern double _log(double x);
+extern double _rdr(struct file *f);
+extern double _rnd(double r);
+extern double _sin(double x);
+extern double _sqt(double x);
+extern int _abi(int i);
+extern int _ass(int line, int bool);
+extern int _asz(struct descr *dp);
+extern int _bcp(int sz, unsigned char *y, unsigned char *x);
+extern int _catch(unsigned erno);
+extern int _cls(struct file *f);
+extern int _cre(int sz, struct file *f);
+extern int _dvi(unsigned int j, unsigned int i);
+extern int _efl(struct file *f);
+extern int _eln(struct file *f);
+extern int _flush(struct file *f);
+extern int _fstdig(struct file *f);
+extern int _get(struct file *f);
+extern int _getint(struct file *f);
+extern int _getsig(struct file *f);
+extern int _hlt(int ecode);
+extern int _incpt(struct file *f);
+extern int _ini(char *args, int c, struct file **p, char *mainlb);
+extern int _mdi(int j, int i);
+extern int _nfa(int bool);
+extern int _nxtdig(struct file *f);
+extern int _opn(int sz, struct file *f);
+extern int _outcpt(struct file *f);
+extern int _pac(struct descr *ad, struct descr *zd, char *zp, int i, char *ap);
+extern int _pag(struct file *f);
+extern int _put(struct file *f);
+extern int _rcka(struct array_descr *descr, int index);
+extern int _rdc(struct file *f);
+extern int _rdi(struct file *f);
+extern int _rf(struct file *f);
+extern int _rln(struct file *f);
+extern int _skipsp(struct file *f);
+extern int _unp(struct descr *ad, struct descr *zd, int i, char *ap, char *zp, int noext);
+extern int _wf(struct file *f);
+extern int _wln(struct file *f);
+extern int _wrc(int c, struct file *f);
+extern int _wrf(int n, int w, double r, struct file *f);
+extern int _wri(int i, struct file *f);
+extern int _wrl(long l, struct file *f);
+extern int _wrr(double r, struct file *f);
+extern int _wsl(int w, long l, struct file *f);
+extern int _wsr(int w, double r, struct file *f);
+extern int _xcls(struct file *f);
+extern int argc(void);
+extern int argshift(void);
+extern int buff(struct file *f);
+extern int clock(void);
+extern int diag(struct file *f);
+extern int nobuff(struct file *f);
+extern int notext(struct file *f);
+extern int pclose(struct file *f);
+extern int pcreat(struct file *f, char *s);
+extern int perrno(void);
+extern int popen(struct file *f, char *s);
+extern int procentry(char *name);
+extern int procexit(char *name);
+extern int strfetch(char *s, int i);
+extern int strlen(char *s);
+extern int strstore(char *s, int i, int c);
+extern int strtobuf(char *s, char *b, int l);
+extern int uread(int fd, char *b, int n);
+extern int uwrite(int fd, char *b, int n);
+extern long _abl(long i);
+extern long _dvil(unsigned long j, unsigned long i);
+extern long _mdil(long j, long i);
+extern long _mdl(long j, long i);
+extern long _rdl(struct file *f);
+extern void _dis(int n, void **ptr);
+extern void _new(int n, void **ptr);
 extern void _trp(int trapno);
-extern void _wrb(int b, struct file* f);
-extern void _wrs(int len, char* s, struct file* f);
-extern void _wrz(char* s, struct file* f);
+extern void _wrb(int b, struct file *f);
+extern void _wrs(int len, char *s, struct file *f);
+extern void _wrz(char *s, struct file *f);
 extern void _wsb(int w, int b, struct file* f);
 extern void _wsc(int w, char c, struct file* f);
 extern void _wss(int w, int len, char* s, struct file* f);
 extern void _wstrin(int width, int len, char* buf, struct file* f);
 extern void _wsz(int w, char* s, struct file* f);
 
-#endif
+#endif 

From 5784f5fabe9fca8842e8c410600ff6417ed55666 Mon Sep 17 00:00:00 2001
From: David Given <dg@cowlark.com>
Date: Sun, 17 Jun 2018 16:11:29 +0200
Subject: [PATCH 6/8] Run C files through clang-format.

---
 lang/pc/libpc/abi.c    |   5 +-
 lang/pc/libpc/abl.c    |   5 +-
 lang/pc/libpc/abr.c    |   5 +-
 lang/pc/libpc/arg.c    |  34 ++++++----
 lang/pc/libpc/ass.c    |  14 ++--
 lang/pc/libpc/asz.c    |  14 ++--
 lang/pc/libpc/atn.c    |  43 ++++++------
 lang/pc/libpc/bcp.c    |  13 ++--
 lang/pc/libpc/buff.c   |  11 +--
 lang/pc/libpc/catch.c  | 151 ++++++++++++++++++++++-------------------
 lang/pc/libpc/clock.c  |  24 ++++---
 lang/pc/libpc/cls.c    |  21 +++---
 lang/pc/libpc/cvt.c    | 114 ++++++++++++++++++-------------
 lang/pc/libpc/diag.c   |   7 +-
 lang/pc/libpc/efl.c    |  13 ++--
 lang/pc/libpc/eln.c    |  13 ++--
 lang/pc/libpc/exp.c    |  96 ++++++++++++++------------
 lang/pc/libpc/get.c    |  13 ++--
 lang/pc/libpc/hlt.c    |  15 ++--
 lang/pc/libpc/incpt.c  |  58 +++++++++-------
 lang/pc/libpc/ini.c    |  54 ++++++++-------
 lang/pc/libpc/log.c    |  31 +++++----
 lang/pc/libpc/mdi.c    |  66 +++++++++++-------
 lang/pc/libpc/mdl.c    |   9 +--
 lang/pc/libpc/new.c    |   2 +-
 lang/pc/libpc/nfa.c    |   5 +-
 lang/pc/libpc/nobuff.c |   9 +--
 lang/pc/libpc/notext.c |   5 +-
 lang/pc/libpc/opn.c    |  92 +++++++++++++++----------
 lang/pc/libpc/outcpt.c |  12 ++--
 lang/pc/libpc/pac.c    |  41 ++++++-----
 lang/pc/libpc/pclose.c |   7 +-
 lang/pc/libpc/pcreat.c |  20 +++---
 lang/pc/libpc/pentry.c |  19 +++---
 lang/pc/libpc/perrno.c |   5 +-
 lang/pc/libpc/pexit.c  |  19 +++---
 lang/pc/libpc/popen.c  |  20 +++---
 lang/pc/libpc/put.c    |   9 +--
 lang/pc/libpc/rcka.c   |  21 +++---
 lang/pc/libpc/rdc.c    |  11 +--
 lang/pc/libpc/rdi.c    |  49 +++++++------
 lang/pc/libpc/rdl.c    |  22 +++---
 lang/pc/libpc/rdr.c    |  49 +++++++------
 lang/pc/libpc/rf.c     |  15 ++--
 lang/pc/libpc/rln.c    |   9 +--
 lang/pc/libpc/rnd.c    |   5 +-
 lang/pc/libpc/sin.c    |  50 +++++++-------
 lang/pc/libpc/sqt.c    |  51 ++++++++------
 lang/pc/libpc/string.c |  28 +++++---
 lang/pc/libpc/unp.c    |  54 +++++++++------
 lang/pc/libpc/uread.c  |   6 +-
 lang/pc/libpc/uwrite.c |   6 +-
 lang/pc/libpc/wdw.c    |  13 ++--
 lang/pc/libpc/wf.c     |  13 ++--
 lang/pc/libpc/wrc.c    |  22 +++---
 lang/pc/libpc/wrf.c    |  46 +++++++------
 lang/pc/libpc/wri.c    |  46 ++++++++-----
 lang/pc/libpc/wrl.c    |  43 +++++++-----
 lang/pc/libpc/wrr.c    |  54 +++++++++------
 59 files changed, 977 insertions(+), 730 deletions(-)

diff --git a/lang/pc/libpc/abi.c b/lang/pc/libpc/abi.c
index 99a8d60ba..ae5bd8271 100644
--- a/lang/pc/libpc/abi.c
+++ b/lang/pc/libpc/abi.c
@@ -18,6 +18,7 @@
 
 /* Author: J.W. Stevenson */
 
-int _abi(i) int i; {
-	return(i>=0 ? i : -i);
+int _abi(i) int i;
+{
+	return (i >= 0 ? i : -i);
 }
diff --git a/lang/pc/libpc/abl.c b/lang/pc/libpc/abl.c
index 2db369b2f..50a5fb285 100644
--- a/lang/pc/libpc/abl.c
+++ b/lang/pc/libpc/abl.c
@@ -18,6 +18,7 @@
 
 /* Author: J.W. Stevenson */
 
-long _abl(i) long i; {
-	return(i>=0 ? i : -i);
+long _abl(i) long i;
+{
+	return (i >= 0 ? i : -i);
 }
diff --git a/lang/pc/libpc/abr.c b/lang/pc/libpc/abr.c
index 61c6b7789..3bde9f69c 100644
--- a/lang/pc/libpc/abr.c
+++ b/lang/pc/libpc/abr.c
@@ -18,6 +18,7 @@
 
 /* Author: J.W. Stevenson */
 
-double _abr(r) double r; {
-	return(r>=0 ? r : -r);
+double _abr(r) double r;
+{
+	return (r >= 0 ? r : -r);
 }
diff --git a/lang/pc/libpc/arg.c b/lang/pc/libpc/arg.c
index d5079b6c9..e512c534a 100644
--- a/lang/pc/libpc/arg.c
+++ b/lang/pc/libpc/arg.c
@@ -23,34 +23,40 @@
 /* procedure argshift; extern; */
 /* function environ(i:integer):string; extern; */
 
-extern int	_pargc;
-extern char	**_pargv;
-extern char	**_penvp;
+extern int _pargc;
+extern char** _pargv;
+extern char** _penvp;
 
-int argc() {
-	return(_pargc);
+int argc()
+{
+	return (_pargc);
 }
 
-char *argv(i) {
+char* argv(i)
+{
 	if (i >= _pargc)
-		return(0);
-	return(_pargv[i]);
+		return (0);
+	return (_pargv[i]);
 }
 
-argshift() {
+argshift()
+{
 
-	if (_pargc > 1) {
+	if (_pargc > 1)
+	{
 		--_pargc;
 		_pargv++;
 	}
 }
 
-char *environ(i) {
-	char **p; char *q;
+char* environ(i)
+{
+	char** p;
+	char* q;
 
 	if (p = _penvp)
 		while (q = *p++)
 			if (i-- < 0)
-				return(q);
-	return(0);
+				return (q);
+	return (0);
 }
diff --git a/lang/pc/libpc/ass.c b/lang/pc/libpc/ass.c
index c9014048e..c702d2642 100644
--- a/lang/pc/libpc/ass.c
+++ b/lang/pc/libpc/ass.c
@@ -18,15 +18,17 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<em_abs.h>
-#include	<pc_err.h>
+#include <em_abs.h>
+#include <pc_err.h>
 
-extern char	*_hol0();
-extern		_trp();
+extern char* _hol0();
+extern _trp();
 
-_ass(line,bool) int line,bool; {
+_ass(line, bool) int line, bool;
+{
 
-	if (bool==0) {
+	if (bool == 0)
+	{
 		LINO = line;
 		_trp(EASS);
 	}
diff --git a/lang/pc/libpc/asz.c b/lang/pc/libpc/asz.c
index 1762d1be3..304d13a18 100644
--- a/lang/pc/libpc/asz.c
+++ b/lang/pc/libpc/asz.c
@@ -18,12 +18,14 @@
 
 /* Author: J.W. Stevenson */
 
-struct descr {
-	int	low;
-	int	diff;
-	int	size;
+struct descr
+{
+	int low;
+	int diff;
+	int size;
 };
 
-int _asz(dp) struct descr *dp; {
-	return(dp->size * (dp->diff + 1));
+int _asz(dp) struct descr* dp;
+{
+	return (dp->size * (dp->diff + 1));
 }
diff --git a/lang/pc/libpc/atn.c b/lang/pc/libpc/atn.c
index 57d8659c4..2d05c7b4a 100644
--- a/lang/pc/libpc/atn.c
+++ b/lang/pc/libpc/atn.c
@@ -15,8 +15,7 @@
 #endif
 
 double
-_atn(x)
-	double x;
+    _atn(x) double x;
 {
 	/*	Algorithm and coefficients from:
 			"Software manual for the elementary functions"
@@ -30,43 +29,47 @@ _atn(x)
 		-0.83758299368150059274e+0
 	};
 	static double q[] = {
-		 0.41066306682575781263e+2,
-		 0.86157349597130242515e+2,
-		 0.59578436142597344465e+2,
-		 0.15024001160028576121e+2,
-		 1.0
+		0.41066306682575781263e+2,
+		0.86157349597130242515e+2,
+		0.59578436142597344465e+2,
+		0.15024001160028576121e+2,
+		1.0
 	};
 	static double a[] = {
 		0.0,
-		0.52359877559829887307710723554658381,	/* pi/6 */
+		0.52359877559829887307710723554658381, /* pi/6 */
 		M_PI_2,
-		1.04719755119659774615421446109316763	/* pi/3 */
+		1.04719755119659774615421446109316763 /* pi/3 */
 	};
 
-	int	neg = x < 0;
-	int	n;
-	double	g;
+	int neg = x < 0;
+	int n;
+	double g;
 
-	if (neg) {
+	if (neg)
+	{
 		x = -x;
 	}
-	if (x > 1.0) {
-		x = 1.0/x;
+	if (x > 1.0)
+	{
+		x = 1.0 / x;
 		n = 2;
 	}
-	else	n = 0;
+	else
+		n = 0;
 
-	if (x > 0.26794919243112270647) {	/* 2-sqtr(3) */
+	if (x > 0.26794919243112270647)
+	{ /* 2-sqtr(3) */
 		n = n + 1;
-		x = (((0.73205080756887729353*x-0.5)-0.5)+x)/
-			(1.73205080756887729353+x);
+		x = (((0.73205080756887729353 * x - 0.5) - 0.5) + x) / (1.73205080756887729353 + x);
 	}
 
 	/* ??? avoid underflow ??? */
 
 	g = x * x;
 	x += x * g * POLYNOM3(g, p) / POLYNOM4(g, q);
-	if (n > 1) x = -x;
+	if (n > 1)
+		x = -x;
 	x += a[n];
 	return neg ? -x : x;
 }
diff --git a/lang/pc/libpc/bcp.c b/lang/pc/libpc/bcp.c
index 3b962c6c6..cb8d6a240 100644
--- a/lang/pc/libpc/bcp.c
+++ b/lang/pc/libpc/bcp.c
@@ -18,13 +18,16 @@
 
 /* Author: J.W. Stevenson */
 
-int _bcp(sz,y,x) int sz; unsigned char *y,*x; {
+int _bcp(sz, y, x) int sz;
+unsigned char *y, *x;
+{
 
-	while (--sz >= 0) {
+	while (--sz >= 0)
+	{
 		if (*x < *y)
-			return(-1);
+			return (-1);
 		if (*x++ > *y++)
-			return(1);
+			return (1);
 	}
-	return(0);
+	return (0);
 }
diff --git a/lang/pc/libpc/buff.c b/lang/pc/libpc/buff.c
index 5986a92e8..fdead046e 100644
--- a/lang/pc/libpc/buff.c
+++ b/lang/pc/libpc/buff.c
@@ -18,18 +18,19 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-extern		_flush();
+extern _flush();
 
 /* procedure buff(var f:file of ?); */
 
-buff(f) struct file *f; {
+buff(f) struct file* f;
+{
 	int sz;
 
-	if ((f->flags & (0377|WRBIT)) != (MAGIC|WRBIT))
+	if ((f->flags & (0377 | WRBIT)) != (MAGIC | WRBIT))
 		return;
 	_flush(f);
 	sz = f->size;
-	f->count = f->buflen = (sz>PC_BUFLEN ? sz : PC_BUFLEN-PC_BUFLEN%sz);
+	f->count = f->buflen = (sz > PC_BUFLEN ? sz : PC_BUFLEN - PC_BUFLEN % sz);
 }
diff --git a/lang/pc/libpc/catch.c b/lang/pc/libpc/catch.c
index 4be454d0b..127994c40 100644
--- a/lang/pc/libpc/catch.c
+++ b/lang/pc/libpc/catch.c
@@ -24,78 +24,80 @@
 #include <pc_file.h>
 
 /* to make it easier to patch ... */
-extern struct file	*_curfil;
+extern struct file* _curfil;
 
-static struct errm {
+static struct errm
+{
 	int errno;
-	char *errmes;
+	char* errmes;
 } errors[] = {
-	{ EARRAY,	"array bound error"},
-	{ ERANGE,	"range bound error"},
-	{ ESET,		"set bound error"},
-	{ EIOVFL,	"integer overflow"},
-	{ EFOVFL,	"real overflow"},
-	{ EFUNFL,	"real underflow"},
-	{ EIDIVZ,	"divide by 0"},
-	{ EFDIVZ,	"divide by 0.0"},
-	{ EIUND,	"undefined integer"},
-	{ EFUND,	"undefined real"},
-	{ ECONV,	"conversion error"},
+	{ EARRAY, "array bound error" },
+	{ ERANGE, "range bound error" },
+	{ ESET, "set bound error" },
+	{ EIOVFL, "integer overflow" },
+	{ EFOVFL, "real overflow" },
+	{ EFUNFL, "real underflow" },
+	{ EIDIVZ, "divide by 0" },
+	{ EFDIVZ, "divide by 0.0" },
+	{ EIUND, "undefined integer" },
+	{ EFUND, "undefined real" },
+	{ ECONV, "conversion error" },
 
-	{ ESTACK,	"stack overflow"},
-	{ EHEAP,	"heap overflow"},
-	{ EILLINS,	"illegal instruction"},
-	{ EODDZ,	"illegal size argument"},
-	{ ECASE,	"case error"},
-	{ EMEMFLT,	"addressing non existent memory"},
-	{ EBADPTR,	"bad pointer used"},
-	{ EBADPC,	"program counter out of range"},
-	{ EBADLAE,	"bad argument of lae"},
-	{ EBADMON,	"bad monitor call"},
-	{ EBADLIN,	"argument if LIN too high"},
-	{ EBADGTO,	"GTO descriptor error"},
+	{ ESTACK, "stack overflow" },
+	{ EHEAP, "heap overflow" },
+	{ EILLINS, "illegal instruction" },
+	{ EODDZ, "illegal size argument" },
+	{ ECASE, "case error" },
+	{ EMEMFLT, "addressing non existent memory" },
+	{ EBADPTR, "bad pointer used" },
+	{ EBADPC, "program counter out of range" },
+	{ EBADLAE, "bad argument of lae" },
+	{ EBADMON, "bad monitor call" },
+	{ EBADLIN, "argument if LIN too high" },
+	{ EBADGTO, "GTO descriptor error" },
 
-	{ EARGC,	"more args expected" },
-	{ EEXP,		"error in exp" },
-	{ ELOG,		"error in ln" },
-	{ ESQT,		"error in sqrt" },
-	{ EASS,		"assertion failed" },
-	{ EPACK,	"array bound error in pack" },
-	{ EUNPACK,	"array bound error in unpack" },
-	{ EMOD,		"only positive j in 'i mod j'" },
-	{ EBADF,	"file not yet open" },
-	{ EFREE,	"dispose error" },
-	{ EFUNASS,	"function not assigned" },
-	{ EWIDTH,	"illegal field width" },
+	{ EARGC, "more args expected" },
+	{ EEXP, "error in exp" },
+	{ ELOG, "error in ln" },
+	{ ESQT, "error in sqrt" },
+	{ EASS, "assertion failed" },
+	{ EPACK, "array bound error in pack" },
+	{ EUNPACK, "array bound error in unpack" },
+	{ EMOD, "only positive j in 'i mod j'" },
+	{ EBADF, "file not yet open" },
+	{ EFREE, "dispose error" },
+	{ EFUNASS, "function not assigned" },
+	{ EWIDTH, "illegal field width" },
 
-	{ EWRITEF,	"not writable" },
-	{ EREADF,	"not readable" },
-	{ EEOF,		"end of file" },
-	{ EFTRUNC,	"truncated" },
-	{ ERESET,	"reset error" },
-	{ EREWR,	"rewrite error" },
-	{ ECLOSE,	"close error" },
-	{ EREAD,	"read error" },
-	{ EWRITE,	"write error" },
-	{ EDIGIT,	"digit expected" },
-	{ EASCII,	"non-ASCII char read" },
-	{ -1,		0}
+	{ EWRITEF, "not writable" },
+	{ EREADF, "not readable" },
+	{ EEOF, "end of file" },
+	{ EFTRUNC, "truncated" },
+	{ ERESET, "reset error" },
+	{ EREWR, "rewrite error" },
+	{ ECLOSE, "close error" },
+	{ EREAD, "read error" },
+	{ EWRITE, "write error" },
+	{ EDIGIT, "digit expected" },
+	{ EASCII, "non-ASCII char read" },
+	{ -1, 0 }
 };
 
-extern int		_pargc;
-extern char		**_pargv;
-extern char		**_penvp;
+extern int _pargc;
+extern char** _pargv;
+extern char** _penvp;
 
-extern char		*_hol0();
-extern			_trp();
+extern char* _hol0();
+extern _trp();
 
-_catch(erno) unsigned erno; {
-	register struct errm *ep = &errors[0];
-	char *p,*q,*s,**qq;
+_catch(erno) unsigned erno;
+{
+	register struct errm* ep = &errors[0];
+	char *p, *q, *s, **qq;
 	char buf[20];
 	unsigned i;
 	int j = erno;
-	char *pp[11];
+	char* pp[11];
 	char xbuf[100];
 
 	qq = pp;
@@ -104,52 +106,61 @@ _catch(erno) unsigned erno; {
 	else
 		*qq++ = _pargv[0];
 
-	while (ep->errno != erno && ep->errmes != 0) ep++;
+	while (ep->errno != erno && ep->errmes != 0)
+		ep++;
 	p = buf;
 	s = xbuf;
-	if (i = LINO) {
+	if (i = LINO)
+	{
 		*qq++ = ", ";
 		do
 			*p++ = i % 10 + '0';
 		while (i /= 10);
-		while (p > buf) *s++ = *--p;
+		while (p > buf)
+			*s++ = *--p;
 	}
 	*s++ = ':';
 	*s++ = ' ';
 	*s++ = '\0';
 	*qq++ = xbuf;
-	if ((erno & ~037) == 0140 && (_curfil->flags&0377)==MAGIC) { 
+	if ((erno & ~037) == 0140 && (_curfil->flags & 0377) == MAGIC)
+	{
 		/* file error */
 		*qq++ = "file ";
 		*qq++ = _curfil->fname;
 		*qq++ = ": ";
 	}
-	if (ep->errmes) *qq++ = ep->errmes;
-	else {
+	if (ep->errmes)
+		*qq++ = ep->errmes;
+	else
+	{
 		*qq++ = "error number ";
 		*qq++ = s;
 		p = buf;
-		if (j < 0) {
+		if (j < 0)
+		{
 			j = -j;
 			*s++ = '-';
 		}
 		do
 			*p++ = j % 10 + '0';
 		while (j /= 10);
-		while (p > buf) *s++ = *--p;
+		while (p > buf)
+			*s++ = *--p;
 		*s = 0;
 	}
 	*qq++ = "\n";
 	*qq = 0;
 	qq = pp;
-	while (q = *qq++) {
+	while (q = *qq++)
+	{
 		p = q;
 		while (*p)
 			p++;
-		if (write(2,q,(int)(p-q)) < 0)
+		if (write(2, q, (int)(p - q)) < 0)
 			;
 	}
-	_exit(erno+1);
+	_exit(erno + 1);
 error:
 	_trp(erno);
 }
diff --git a/lang/pc/libpc/clock.c b/lang/pc/libpc/clock.c
index c9bdc9718..bd57240ec 100644
--- a/lang/pc/libpc/clock.c
+++ b/lang/pc/libpc/clock.c
@@ -20,28 +20,30 @@
 
 /* function clock:integer; extern; */
 
-extern int	_times();
+extern int _times();
 
-struct tbuf {
-	long	utime;
-	long	stime;
-	long	cutime;
-	long	cstime;
+struct tbuf
+{
+	long utime;
+	long stime;
+	long cutime;
+	long cstime;
 };
 
 #ifndef EM_WSIZE
 #define EM_WSIZE _EM_WSIZE
 #endif
 
-int clock() {
+int clock()
+{
 	struct tbuf t;
 
 	_times(&t);
-	return( (int)(t.utime + t.stime) &
+	return ((int)(t.utime + t.stime) &
 #if EM_WSIZE <= 2
-	077777
+	    077777
 #else
-	0x7fffffffL
+	    0x7fffffffL
 #endif
-	);
+	    );
 }
diff --git a/lang/pc/libpc/cls.c b/lang/pc/libpc/cls.c
index 2dea744c1..dcf3e381d 100644
--- a/lang/pc/libpc/cls.c
+++ b/lang/pc/libpc/cls.c
@@ -23,16 +23,18 @@
 #include <pc_file.h>
 #include <pc_err.h>
 
-extern struct file	*_curfil;
-extern			_trp();
-extern			_flush();
-extern			_outcpt();
+extern struct file* _curfil;
+extern _trp();
+extern _flush();
+extern _outcpt();
 
-_xcls(f) struct file *f; {
+_xcls(f) struct file* f;
+{
 
 	if ((f->flags & WRBIT) == 0)
 		return;
-	if ((f->flags & (TXTBIT|ELNBIT)) == TXTBIT) {
+	if ((f->flags & (TXTBIT | ELNBIT)) == TXTBIT)
+	{
 #ifdef CPM
 		*f->ptr = '\r';
 		_outcpt(f);
@@ -43,13 +45,14 @@ _xcls(f) struct file *f; {
 	_flush(f);
 }
 
-_cls(f) struct file *f; {
+_cls(f) struct file* f;
+{
 #ifdef MAYBE
-	char *p;
+	char* p;
 #endif
 
 	_curfil = f;
-	if ((f->flags&0377) != MAGIC)
+	if ((f->flags & 0377) != MAGIC)
 		return;
 #ifdef MAYBE
 	p = f->bufadr;
diff --git a/lang/pc/libpc/cvt.c b/lang/pc/libpc/cvt.c
index 9515a5ecd..bffe97eb5 100644
--- a/lang/pc/libpc/cvt.c
+++ b/lang/pc/libpc/cvt.c
@@ -5,29 +5,28 @@
 #include <float.h>
 #else
 #include <math.h>
-#define DBL_MAX	M_MAX_D
+#define DBL_MAX M_MAX_D
 #endif
 
-static char *cvt();
-#define NDIGITS	128
+static char* cvt();
+#define NDIGITS 128
 
-char *
-_ecvt(value, ndigit, decpt, sign)
-	double value;
-	int ndigit, *decpt, *sign;
+char*
+    _ecvt(value, ndigit, decpt, sign) double value;
+int ndigit, *decpt, *sign;
 {
 	return cvt(value, ndigit, decpt, sign, 1);
 }
 
-char *
-_fcvt(value, ndigit, decpt, sign)
-	double value;
-	int ndigit, *decpt, *sign;
+char*
+    _fcvt(value, ndigit, decpt, sign) double value;
+int ndigit, *decpt, *sign;
 {
 	return cvt(value, ndigit, decpt, sign, 0);
 }
 
-static struct powers_of_10 {
+static struct powers_of_10
+{
 	double pval;
 	double rpval;
 	int exp;
@@ -41,73 +40,92 @@ static struct powers_of_10 {
 	1.0e0, 1.0e0, 0
 };
 
-static char *
-cvt(value, ndigit, decpt, sign, ecvtflag)
-	double value;
-	int ndigit, *decpt, *sign;
+static char*
+    cvt(value, ndigit, decpt, sign, ecvtflag) double value;
+int ndigit, *decpt, *sign;
 {
-	static char buf[NDIGITS+1];
-	register char *p = buf;
-	register char *pe;
+	static char buf[NDIGITS + 1];
+	register char* p = buf;
+	register char* pe;
 
-	if (ndigit < 0) ndigit = 0;
-	if (ndigit > NDIGITS) ndigit = NDIGITS;
+	if (ndigit < 0)
+		ndigit = 0;
+	if (ndigit > NDIGITS)
+		ndigit = NDIGITS;
 	pe = &buf[ndigit];
 	buf[0] = '\0';
 
 	*sign = 0;
-	if (value < 0) {
+	if (value < 0)
+	{
 		*sign = 1;
 		value = -value;
 	}
 
 	*decpt = 0;
-	if (value >= DBL_MAX) {
+	if (value >= DBL_MAX)
+	{
 		value = DBL_MAX;
 	}
-	if (value != 0.0) {
-		register struct powers_of_10 *pp = &p10[0];
+	if (value != 0.0)
+	{
+		register struct powers_of_10* pp = &p10[0];
 
-		if (value >= 10.0) do {
-			while (value >= pp->pval) {
-				value *= pp->rpval;
-				*decpt += pp->exp;
-			}
-		} while ((++pp)->exp > 0);
+		if (value >= 10.0)
+			do
+			{
+				while (value >= pp->pval)
+				{
+					value *= pp->rpval;
+					*decpt += pp->exp;
+				}
+			} while ((++pp)->exp > 0);
 
 		pp = &p10[0];
-		if (value < 1.0) do {
-			while (value * pp->pval < 10.0) {
-				value *= pp->pval;
-				*decpt -= pp->exp;
-			}
-		} while ((++pp)->exp > 0);
+		if (value < 1.0)
+			do
+			{
+				while (value * pp->pval < 10.0)
+				{
+					value *= pp->pval;
+					*decpt -= pp->exp;
+				}
+			} while ((++pp)->exp > 0);
 
-		(*decpt)++;	/* because now value in [1.0, 10.0) */
+		(*decpt)++; /* because now value in [1.0, 10.0) */
 	}
-	if (! ecvtflag) {
+	if (!ecvtflag)
+	{
 		/* for fcvt() we need ndigit digits behind the dot */
 		pe += *decpt;
-		if (pe > &buf[NDIGITS]) pe = &buf[NDIGITS];
+		if (pe > &buf[NDIGITS])
+			pe = &buf[NDIGITS];
 	}
-	while (p <= pe) {
+	while (p <= pe)
+	{
 		*p++ = (int)value + '0';
 		value = 10.0 * (value - (int)value);
 	}
-	if (pe >= buf) {
+	if (pe >= buf)
+	{
 		p = pe;
-		*p += 5;	/* round of at the end */
-		while (*p > '9') {
+		*p += 5; /* round of at the end */
+		while (*p > '9')
+		{
 			*p = '0';
-			if (p > buf) ++*--p;
-			else {
+			if (p > buf)
+				++*--p;
+			else
+			{
 				*p = '1';
 				++*decpt;
-				if (! ecvtflag) {
+				if (!ecvtflag)
+				{
 					/* maybe add another digit at the end,
 					   because the point was shifted right
 					*/
-					if (pe > buf) *pe = '0';
+					if (pe > buf)
+						*pe = '0';
 					pe++;
 				}
 			}
diff --git a/lang/pc/libpc/diag.c b/lang/pc/libpc/diag.c
index 830db4932..d4cffc0fd 100644
--- a/lang/pc/libpc/diag.c
+++ b/lang/pc/libpc/diag.c
@@ -18,14 +18,15 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
 /* procedure diag(var f:text); */
 
-diag(f) struct file *f; {
+diag(f) struct file* f;
+{
 
 	f->ptr = f->bufadr;
-	f->flags = WRBIT|EOFBIT|ELNBIT|TXTBIT|MAGIC;
+	f->flags = WRBIT | EOFBIT | ELNBIT | TXTBIT | MAGIC;
 	f->fname = "DIAG";
 	f->ufd = 2;
 	f->size = 1;
diff --git a/lang/pc/libpc/efl.c b/lang/pc/libpc/efl.c
index 313ac0ffc..8f3f7b1d3 100644
--- a/lang/pc/libpc/efl.c
+++ b/lang/pc/libpc/efl.c
@@ -23,16 +23,17 @@
 #include <pc_file.h>
 #include <pc_err.h>
 
-extern struct file	*_curfil;
-extern			_trp();
-extern			_incpt();
+extern struct file* _curfil;
+extern _trp();
+extern _incpt();
 
-int _efl(f) struct file *f; {
+int _efl(f) struct file* f;
+{
 
 	_curfil = f;
 	if ((f->flags & 0377) != MAGIC)
 		_trp(EBADF);
-	if ((f->flags & (WINDOW|WRBIT|EOFBIT)) == 0)
+	if ((f->flags & (WINDOW | WRBIT | EOFBIT)) == 0)
 		_incpt(f);
-	return((f->flags & EOFBIT) != 0);
+	return ((f->flags & EOFBIT) != 0);
 }
diff --git a/lang/pc/libpc/eln.c b/lang/pc/libpc/eln.c
index 73aceb6fd..ec6f53e05 100644
--- a/lang/pc/libpc/eln.c
+++ b/lang/pc/libpc/eln.c
@@ -18,16 +18,17 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_file.h>
-#include	<pc_err.h>
+#include <pc_file.h>
+#include <pc_err.h>
 
-extern		_trp();
-extern		_rf();
+extern _trp();
+extern _rf();
 
-int _eln(f) struct file *f; {
+int _eln(f) struct file* f;
+{
 
 	_rf(f);
 	if (f->flags & EOFBIT)
 		_trp(EEOF);
-	return((f->flags & ELNBIT) != 0);
+	return ((f->flags & ELNBIT) != 0);
 }
diff --git a/lang/pc/libpc/exp.c b/lang/pc/libpc/exp.c
index 332023cbe..ab7eeb9a4 100644
--- a/lang/pc/libpc/exp.c
+++ b/lang/pc/libpc/exp.c
@@ -9,53 +9,56 @@
 #define __NO_DEFS
 #include <math.h>
 #include <pc_err.h>
-extern	_trp();
+extern _trp();
 
 #if __STDC__
 #include <float.h>
 #include <pc_math.h>
-#define M_MIN_D	DBL_MIN
-#define M_MAX_D	DBL_MAX
+#define M_MIN_D DBL_MIN
+#define M_MAX_D DBL_MAX
 #define M_DMINEXP DBL_MIN_EXP
 #endif
 #undef HUGE
-#define HUGE	1e1000
+#define HUGE 1e1000
 
 static double
-Ldexp(fl,exp)
-	double fl;
-	int exp;
+    Ldexp(fl, exp) double fl;
+int exp;
 {
 	extern double _fef();
 	int sign = 1;
 	int currexp;
 
-	if (fl<0) {
+	if (fl < 0)
+	{
 		fl = -fl;
 		sign = -1;
 	}
-	fl = _fef(fl,&currexp);
+	fl = _fef(fl, &currexp);
 	exp += currexp;
-	if (exp > 0) {
-		while (exp>30) {
-			fl *= (double) (1L << 30);
+	if (exp > 0)
+	{
+		while (exp > 30)
+		{
+			fl *= (double)(1L << 30);
 			exp -= 30;
 		}
-		fl *= (double) (1L << exp);
+		fl *= (double)(1L << exp);
 	}
-	else	{
-		while (exp<-30) {
-			fl /= (double) (1L << 30);
+	else
+	{
+		while (exp < -30)
+		{
+			fl /= (double)(1L << 30);
 			exp += 30;
 		}
-		fl /= (double) (1L << -exp);
+		fl /= (double)(1L << -exp);
 	}
 	return sign * fl;
 }
 
 double
-_exp(x)
-	double x;
+    _exp(x) double x;
 {
 	/*	Algorithm and coefficients from:
 			"Software manual for the elementary functions"
@@ -63,56 +66,65 @@ _exp(x)
 	*/
 
 	static double p[] = {
-	        0.25000000000000000000e+0,
-	        0.75753180159422776666e-2,
+		0.25000000000000000000e+0,
+		0.75753180159422776666e-2,
 		0.31555192765684646356e-4
 	};
 
 	static double q[] = {
-	        0.50000000000000000000e+0,
-	        0.56817302698551221787e-1,
-	        0.63121894374398503557e-3,
+		0.50000000000000000000e+0,
+		0.56817302698551221787e-1,
+		0.63121894374398503557e-3,
 		0.75104028399870046114e-6
 	};
-	double	xn, g;
-	int	n;
-	int	negative = x < 0;
+	double xn, g;
+	int n;
+	int negative = x < 0;
 
-	if (x <= M_LN_MIN_D) {
-		g = M_MIN_D/4.0;
+	if (x <= M_LN_MIN_D)
+	{
+		g = M_MIN_D / 4.0;
 
-		if (g != 0.0) {
+		if (g != 0.0)
+		{
 			/* unnormalized numbers apparently exist */
-			if (x < (M_LN2 * (M_DMINEXP - 53))) return 0.0;
+			if (x < (M_LN2 * (M_DMINEXP - 53)))
+				return 0.0;
 		}
-		else {
-			if (x < M_LN_MIN_D) return 0.0;
+		else
+		{
+			if (x < M_LN_MIN_D)
+				return 0.0;
 			return M_MIN_D;
 		}
 	}
-	if (x >= M_LN_MAX_D) {
-		if (x > M_LN_MAX_D) {
+	if (x >= M_LN_MAX_D)
+	{
+		if (x > M_LN_MAX_D)
+		{
 			_trp(EEXP);
 			return HUGE;
 		}
 		return M_MAX_D;
 	}
-	if (negative) x = -x;
+	if (negative)
+		x = -x;
 
-	n = x * M_LOG2E + 0.5;	/* 1/ln(2) = log2(e), 0.5 added for rounding */
+	n = x * M_LOG2E + 0.5; /* 1/ln(2) = log2(e), 0.5 added for rounding */
 	xn = n;
 	{
-		double	x1 = (long) x;
-		double	x2 = x - x1;
+		double x1 = (long)x;
+		double x2 = x - x1;
 
-		g = ((x1-xn*0.693359375)+x2) - xn*(-2.1219444005469058277e-4);
+		g = ((x1 - xn * 0.693359375) + x2) - xn * (-2.1219444005469058277e-4);
 	}
-	if (negative) {
+	if (negative)
+	{
 		g = -g;
 		n = -n;
 	}
 	xn = g * g;
 	x = g * POLYNOM2(xn, p);
 	n += 1;
-	return (Ldexp(0.5 + x/(POLYNOM3(xn, q) - x), n));
+	return (Ldexp(0.5 + x / (POLYNOM3(xn, q) - x), n));
 }
diff --git a/lang/pc/libpc/get.c b/lang/pc/libpc/get.c
index b3f464ec3..1b6c98f33 100644
--- a/lang/pc/libpc/get.c
+++ b/lang/pc/libpc/get.c
@@ -16,16 +16,17 @@
  *
  */
 
-#include	<pc_file.h>
-#include	<pc_err.h>
+#include <pc_file.h>
+#include <pc_err.h>
 
-extern		_rf();
-extern		_trp();
+extern _rf();
+extern _trp();
 
-_get(f) struct file *f; {
+_get(f) struct file* f;
+{
 
 	_rf(f);
-	if (f->flags&EOFBIT)
+	if (f->flags & EOFBIT)
 		_trp(EEOF);
 	f->flags &= ~WINDOW;
 }
diff --git a/lang/pc/libpc/hlt.c b/lang/pc/libpc/hlt.c
index 663a067b8..3e4fa0120 100644
--- a/lang/pc/libpc/hlt.c
+++ b/lang/pc/libpc/hlt.c
@@ -18,18 +18,19 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-extern struct file	**_extfl;
-extern int		_extflc;
-extern			_cls();
-extern			_exit();
+extern struct file** _extfl;
+extern int _extflc;
+extern _cls();
+extern _exit();
 
-_hlt(ecode) int ecode; {
+_hlt(ecode) int ecode;
+{
 	int i;
 
 	for (i = 0; i < _extflc; i++)
-		if (_extfl[i] != (struct file *) 0)
+		if (_extfl[i] != (struct file*)0)
 			_cls(_extfl[i]);
 	_exit(ecode);
 }
diff --git a/lang/pc/libpc/incpt.c b/lang/pc/libpc/incpt.c
index 67df941e8..351ec7500 100644
--- a/lang/pc/libpc/incpt.c
+++ b/lang/pc/libpc/incpt.c
@@ -24,48 +24,58 @@
 #include <pc_file.h>
 #include <pc_err.h>
 
-extern		_trp();
+extern _trp();
 
-_incpt(f) struct file *f; {
+_incpt(f) struct file* f;
+{
 
 	if (f->flags & EOFBIT)
 		_trp(EEOF);
 	f->flags |= WINDOW;
 	f->flags &= ~ELNBIT;
 #ifdef CPM
-	do {
+	do
+	{
 #endif
-	f->ptr += f->size;
-	if (f->count == 0) {
-		f->ptr = f->bufadr;
-		for(;;) {
-			f->count=read(f->ufd,f->bufadr,f->buflen);
-			if ( f->count<0 ) {
-				if (errno != EINTR) _trp(EREAD) ;
-				continue ;
+		f->ptr += f->size;
+		if (f->count == 0)
+		{
+			f->ptr = f->bufadr;
+			for (;;)
+			{
+				f->count = read(f->ufd, f->bufadr, f->buflen);
+				if (f->count < 0)
+				{
+					if (errno != EINTR)
+						_trp(EREAD);
+					continue;
+				}
+				break;
+			}
+			if (f->count == 0)
+			{
+				f->flags |= EOFBIT;
+				*f->ptr = '\0';
+				return;
 			}
-			break ;
 		}
-		if (f->count == 0) {
-			f->flags |= EOFBIT;
-			*f->ptr = '\0';
-			return;
-		}
-	}
-	if ((f->count -= f->size) < 0)
-		_trp(EFTRUNC);
+		if ((f->count -= f->size) < 0)
+			_trp(EFTRUNC);
 #ifdef CPM
-	} while ((f->flags&TXTBIT) && *f->ptr == '\r');
+	} while ((f->flags & TXTBIT) && *f->ptr == '\r');
 #endif
-	if (f->flags & TXTBIT) {
+	if (f->flags & TXTBIT)
+	{
 		if (*f->ptr & 0200)
 			_trp(EASCII);
-		if (*f->ptr == '\n') {
+		if (*f->ptr == '\n')
+		{
 			f->flags |= ELNBIT;
 			*f->ptr = ' ';
 		}
 #ifdef CPM
-		if (*f->ptr == 26) {
+		if (*f->ptr == 26)
+		{
 			f->flags |= EOFBIT;
 			*f->ptr = 0;
 		}
diff --git a/lang/pc/libpc/ini.c b/lang/pc/libpc/ini.c
index f41a63f13..6f08daa83 100644
--- a/lang/pc/libpc/ini.c
+++ b/lang/pc/libpc/ini.c
@@ -18,44 +18,52 @@
 
 /* Author: J.W. Stevenson */
 
-#include        <pc_file.h>
-#include        <pc_err.h>
+#include <pc_file.h>
+#include <pc_err.h>
 
-extern          (*_sig())();
-extern          _catch();
+extern (*_sig())();
+extern _catch();
 
-struct file     **_extfl;
-int		_extflc;	/* number of external files */
-char            *_m_lb;         /* LB of _m_a_i_n */
-struct file     *_curfil;       /* points to file struct in case of errors */
-int             _pargc;
-char            **_pargv;
-char            **_penvp;
-int		_fp_hook = 1;	/* This is for Minix, but does not harm others */
+struct file** _extfl;
+int _extflc; /* number of external files */
+char* _m_lb; /* LB of _m_a_i_n */
+struct file* _curfil; /* points to file struct in case of errors */
+int _pargc;
+char** _pargv;
+char** _penvp;
+int _fp_hook = 1; /* This is for Minix, but does not harm others */
 
-_ini(args,c,p,mainlb) char *args,*mainlb; int c; struct file **p; {
-	struct file *f;
-	
-	_pargc= *(int *)args; args += sizeof (int);
-	_pargv= *(char ***)args; args += sizeof (char **);
-	_penvp= *(char ***)args;
+_ini(args, c, p, mainlb) char* args, *mainlb;
+int c;
+struct file** p;
+{
+	struct file* f;
+
+	_pargc = *(int*)args;
+	args += sizeof(int);
+	_pargv = *(char***)args;
+	args += sizeof(char**);
+	_penvp = *(char***)args;
 	_sig(_catch);
 	_extfl = p;
 	_extflc = c;
-	if( !c ) return;
+	if (!c)
+		return;
 	_m_lb = mainlb;
-	if ( (f = _extfl[0]) != (struct file *) 0) {
+	if ((f = _extfl[0]) != (struct file*)0)
+	{
 		f->ptr = f->bufadr;
-		f->flags = MAGIC|TXTBIT;
+		f->flags = MAGIC | TXTBIT;
 		f->fname = "INPUT";
 		f->ufd = 0;
 		f->size = 1;
 		f->count = 0;
 		f->buflen = PC_BUFLEN;
 	}
-	if ( (f = _extfl[1]) != (struct file *) 0) {
+	if ((f = _extfl[1]) != (struct file*)0)
+	{
 		f->ptr = f->bufadr;
-		f->flags = MAGIC|TXTBIT|WRBIT|EOFBIT|ELNBIT;
+		f->flags = MAGIC | TXTBIT | WRBIT | EOFBIT | ELNBIT;
 		f->fname = "OUTPUT";
 		f->ufd = 1;
 		f->size = 1;
diff --git a/lang/pc/libpc/log.c b/lang/pc/libpc/log.c
index 1859c7e45..de1e8083c 100644
--- a/lang/pc/libpc/log.c
+++ b/lang/pc/libpc/log.c
@@ -16,11 +16,10 @@
 #include <float.h>
 #endif
 #undef HUGE
-#define HUGE	1e1000
+#define HUGE 1e1000
 
 double
-_log(x)
-	double	x;
+    _log(x) double x;
 {
 	/*	Algorithm and coefficients from:
 			"Software manual for the elementary functions"
@@ -28,37 +27,41 @@ _log(x)
 	*/
 	static double a[] = {
 		-0.64124943423745581147e2,
-		 0.16383943563021534222e2,
+		0.16383943563021534222e2,
 		-0.78956112887491257267e0
 	};
 	static double b[] = {
 		-0.76949932108494879777e3,
-		 0.31203222091924532844e3,
+		0.31203222091924532844e3,
 		-0.35667977739034646171e2,
-		 1.0
+		1.0
 	};
 
-	extern double	_fef();
-	double	znum, zden, z, w;
-	int	exponent;
+	extern double _fef();
+	double znum, zden, z, w;
+	int exponent;
 
-	if (x <= 0) {
+	if (x <= 0)
+	{
 		_trp(ELOG);
 		return -HUGE;
 	}
 
 	x = _fef(x, &exponent);
-	if (x > M_1_SQRT2) {
+	if (x > M_1_SQRT2)
+	{
 		znum = (x - 0.5) - 0.5;
 		zden = x * 0.5 + 0.5;
 	}
-	else {
+	else
+	{
 		znum = x - 0.5;
 		zden = znum * 0.5 + 0.5;
 		exponent--;
 	}
-	z = znum/zden; w = z * z;
-	x = z + z * w * (POLYNOM2(w,a)/POLYNOM3(w,b));
+	z = znum / zden;
+	w = z * z;
+	x = z + z * w * (POLYNOM2(w, a) / POLYNOM3(w, b));
 	z = exponent;
 	x += z * (-2.121944400546905827679e-4);
 	return x + z * 0.693359375;
diff --git a/lang/pc/libpc/mdi.c b/lang/pc/libpc/mdi.c
index 98fae6a74..9b119da45 100644
--- a/lang/pc/libpc/mdi.c
+++ b/lang/pc/libpc/mdi.c
@@ -18,54 +18,68 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_err.h>
+#include <pc_err.h>
 
-extern		_trp();
+extern _trp();
 
-int _mdi(j,i) int j,i; {
-
-        if (j <= 0)
-                _trp(EMOD);
-        i = i % j;
-        if (i < 0)
-                i += j;
-        return(i);
-}
-
-long _mdil(j,i) long j,i; {
+int _mdi(j, i) int j, i;
+{
 
 	if (j <= 0)
 		_trp(EMOD);
 	i = i % j;
 	if (i < 0)
 		i += j;
-	return(i);
+	return (i);
 }
 
-int _dvi(j, i) unsigned int j,i; {
+long _mdil(j, i) long j, i;
+{
+
+	if (j <= 0)
+		_trp(EMOD);
+	i = i % j;
+	if (i < 0)
+		i += j;
+	return (i);
+}
+
+int _dvi(j, i) unsigned int j, i;
+{
 	int neg = 0;
 
-	if ((int)j < 0) {
-		j = -(int)j; neg = 1;
+	if ((int)j < 0)
+	{
+		j = -(int)j;
+		neg = 1;
 	}
-	if ((int)i < 0) {
-		i = -(int)i; neg = !neg;
+	if ((int)i < 0)
+	{
+		i = -(int)i;
+		neg = !neg;
 	}
 	i = i / j;
-	if (neg) return -(int)i;
+	if (neg)
+		return -(int)i;
 	return i;
 }
 
-long _dvil(j, i) unsigned long j,i; {
+long _dvil(j, i) unsigned long j, i;
+{
 	int neg = 0;
 
-	if ((long)j < 0) {
-		j = -(long)j; neg = 1;
+	if ((long)j < 0)
+	{
+		j = -(long)j;
+		neg = 1;
 	}
-	if ((long)i < 0) {
-		i = -(long)i; neg = !neg;
+	if ((long)i < 0)
+	{
+		i = -(long)i;
+		neg = !neg;
 	}
 	i = i / j;
-	if (neg) return -(long)i;
+	if (neg)
+		return -(long)i;
 	return i;
 }
diff --git a/lang/pc/libpc/mdl.c b/lang/pc/libpc/mdl.c
index eb33c3666..c7acd5c3d 100644
--- a/lang/pc/libpc/mdl.c
+++ b/lang/pc/libpc/mdl.c
@@ -18,16 +18,17 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_err.h>
+#include <pc_err.h>
 
-extern		_trp();
+extern _trp();
 
-long _mdl(j,i) long j,i; {
+long _mdl(j, i) long j, i;
+{
 
 	if (j <= 0)
 		_trp(EMOD);
 	i = i % j;
 	if (i < 0)
 		i += j;
-	return(i);
+	return (i);
 }
diff --git a/lang/pc/libpc/new.c b/lang/pc/libpc/new.c
index b3425c176..faeb70c62 100644
--- a/lang/pc/libpc/new.c
+++ b/lang/pc/libpc/new.c
@@ -2,7 +2,7 @@
 #include <em_abs.h>
 #include <pc_err.h>
 
-extern void _trp(int);			/* called on error */
+extern void _trp(int); /* called on error */
 
 void _new(int n, void** ptr)
 {
diff --git a/lang/pc/libpc/nfa.c b/lang/pc/libpc/nfa.c
index aa966fb55..d16f6332d 100644
--- a/lang/pc/libpc/nfa.c
+++ b/lang/pc/libpc/nfa.c
@@ -6,11 +6,12 @@
 
 /* Author: Hans van Eck */
 
-#include	<pc_err.h>
+#include <pc_err.h>
 
 extern _trp();
 
 _nfa(bool)
 {
-	if (! bool) _trp(EFUNASS);
+	if (!bool)
+		_trp(EFUNASS);
 }
diff --git a/lang/pc/libpc/nobuff.c b/lang/pc/libpc/nobuff.c
index 1bde9aee0..934e396c8 100644
--- a/lang/pc/libpc/nobuff.c
+++ b/lang/pc/libpc/nobuff.c
@@ -18,15 +18,16 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-extern		_flush();
+extern _flush();
 
 /* procedure nobuff(var f:file of ?); */
 
-nobuff(f) struct file *f; {
+nobuff(f) struct file* f;
+{
 
-	if ((f->flags & (0377|WRBIT)) != (MAGIC|WRBIT))
+	if ((f->flags & (0377 | WRBIT)) != (MAGIC | WRBIT))
 		return;
 	_flush(f);
 	f->count = f->buflen = f->size;
diff --git a/lang/pc/libpc/notext.c b/lang/pc/libpc/notext.c
index de7321c94..3a22f98a0 100644
--- a/lang/pc/libpc/notext.c
+++ b/lang/pc/libpc/notext.c
@@ -16,8 +16,9 @@
  *
  */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-notext(f) struct file *f; {
+notext(f) struct file* f;
+{
 	f->flags &= ~TXTBIT;
 }
diff --git a/lang/pc/libpc/opn.c b/lang/pc/libpc/opn.c
index 83f9d91ec..dd2ea7418 100644
--- a/lang/pc/libpc/opn.c
+++ b/lang/pc/libpc/opn.c
@@ -23,20 +23,22 @@
 #include <pc_file.h>
 #include <pc_err.h>
 
-extern struct file	**_extfl;
-extern int		_extflc;
-extern struct file	*_curfil;
-extern int		_pargc;
-extern char		**_pargv;
-extern char		**_penvp;
+extern struct file** _extfl;
+extern int _extflc;
+extern struct file* _curfil;
+extern int _pargc;
+extern char** _pargv;
+extern char** _penvp;
 
-extern			_cls();
-extern			_xcls();
-extern			_trp();
+extern _cls();
+extern _xcls();
+extern _trp();
 
-static int tmpfil() {
+static int tmpfil()
+{
 	static char namebuf[] = "/tmp/plf.xxxxx";
-	int i; char *p,*q;
+	int i;
+	char *p, *q;
 
 	i = getpid();
 	p = namebuf;
@@ -45,70 +47,88 @@ static int tmpfil() {
 		*q++ = (i & 07) + '0';
 	while (i >>= 3);
 	*q = '\0';
-	if ((i = creat(p,0644)) < 0)
-		if ((i = creat(p += 4,0644)) < 0)
-			if ((i = creat(p += 5,0644)) < 0)
+	if ((i = creat(p, 0644)) < 0)
+		if ((i = creat(p += 4, 0644)) < 0)
+			if ((i = creat(p += 5, 0644)) < 0)
 				goto error;
 	if (close(i) != 0)
 		goto error;
-	if ((i = open(p,2)) < 0)
+	if ((i = open(p, 2)) < 0)
 		goto error;
 	if (remove(p) != 0)
-error:		_trp(EREWR);
-	return(i);
+	error:
+		_trp(EREWR);
+	return (i);
 }
 
-static int initfl(descr,sz,f) int descr; int sz; struct file *f; {
+static int initfl(descr, sz, f) int descr;
+int sz;
+struct file* f;
+{
 	int i;
 
 	_curfil = f;
-	if (sz == 0) {
+	if (sz == 0)
+	{
 		sz++;
 		descr |= TXTBIT;
 	}
-	for (i=0; i<_extflc; i++)
+	for (i = 0; i < _extflc; i++)
 		if (f == _extfl[i])
 			break;
-	if (i >= _extflc) {		/* local file */
+	if (i >= _extflc)
+	{ /* local file */
 		f->fname = "LOCAL";
-		if ((descr & WRBIT) == 0 && (f->flags & 0377) == MAGIC) {
+		if ((descr & WRBIT) == 0 && (f->flags & 0377) == MAGIC)
+		{
 			_xcls(f);
-			if (lseek(f->ufd,(long)0,0) == -1)
+			if (lseek(f->ufd, (long)0, 0) == -1)
 				_trp(ERESET);
-		} else {
+		}
+		else
+		{
 			_cls(f);
 			f->ufd = tmpfil();
 		}
-	} else {	/* external file */
+	}
+	else
+	{ /* external file */
 		if (--i <= 0)
-			return(0);
+			return (0);
 		if (i >= _pargc)
 			_trp(EARGC);
 		f->fname = _pargv[i];
 		_cls(f);
-		if ((descr & WRBIT) == 0) {
-			if ((f->ufd = open(f->fname,0)) < 0)
+		if ((descr & WRBIT) == 0)
+		{
+			if ((f->ufd = open(f->fname, 0)) < 0)
 				_trp(ERESET);
-		} else {
-			if ((f->ufd = creat(f->fname,0644)) < 0)
+		}
+		else
+		{
+			if ((f->ufd = creat(f->fname, 0644)) < 0)
 				_trp(EREWR);
 		}
 	}
-	f->buflen = (sz>PC_BUFLEN ? sz : PC_BUFLEN-PC_BUFLEN%sz);
+	f->buflen = (sz > PC_BUFLEN ? sz : PC_BUFLEN - PC_BUFLEN % sz);
 	f->size = sz;
 	f->ptr = f->bufadr;
 	f->flags = descr;
-	return(1);
+	return (1);
 }
 
-_opn(sz,f) int sz; struct file *f; {
+_opn(sz, f) int sz;
+struct file* f;
+{
 
-	if (initfl(MAGIC,sz,f))
+	if (initfl(MAGIC, sz, f))
 		f->count = 0;
 }
 
-_cre(sz,f) int sz; struct file *f; {
+_cre(sz, f) int sz;
+struct file* f;
+{
 
-	if (initfl(WRBIT|EOFBIT|ELNBIT|MAGIC,sz,f))
+	if (initfl(WRBIT | EOFBIT | ELNBIT | MAGIC, sz, f))
 		f->count = f->buflen;
 }
diff --git a/lang/pc/libpc/outcpt.c b/lang/pc/libpc/outcpt.c
index 0d01f8034..1e7693bc0 100644
--- a/lang/pc/libpc/outcpt.c
+++ b/lang/pc/libpc/outcpt.c
@@ -24,23 +24,25 @@
 #include <pc_file.h>
 #include <pc_err.h>
 
-extern		_trp();
+extern _trp();
 
-_flush(f) struct file *f; {
-	int i,n;
+_flush(f) struct file* f;
+{
+	int i, n;
 
 	f->ptr = f->bufadr;
 	n = f->buflen - f->count;
 	if (n <= 0)
 		return;
 	f->count = f->buflen;
-	if ((i = write(f->ufd,f->bufadr,n)) < 0 && errno == EINTR)
+	if ((i = write(f->ufd, f->bufadr, n)) < 0 && errno == EINTR)
 		return;
 	if (i != n)
 		_trp(EWRITE);
 }
 
-_outcpt(f) struct file *f; {
+_outcpt(f) struct file* f;
+{
 
 	f->flags &= ~ELNBIT;
 	f->ptr += f->size;
diff --git a/lang/pc/libpc/pac.c b/lang/pc/libpc/pac.c
index 2ba0ab58e..22cedbf88 100644
--- a/lang/pc/libpc/pac.c
+++ b/lang/pc/libpc/pac.c
@@ -18,44 +18,51 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_err.h>
+#include <pc_err.h>
 
-extern		_trp();
+extern _trp();
 
-#define	assert(x)	/* nothing */
+#define assert(x) /* nothing */
 
 #ifndef EM_WSIZE
 #define EM_WSIZE _EM_WSIZE
 #endif
 
-struct descr {
-	int	low;
-	int	diff;
-	int	size;
+struct descr
+{
+	int low;
+	int diff;
+	int size;
 };
 
-_pac(ad,zd,zp,i,ap) int i; struct descr *ad,*zd; char *zp,*ap; {
+_pac(ad, zd, zp, i, ap) int i;
+struct descr *ad, *zd;
+char *zp, *ap;
+{
 
-	if (zd->diff > ad->diff ||
-			(i -= ad->low) < 0 ||
-			(i+zd->diff) > ad->diff)
+	if (zd->diff > ad->diff || (i -= ad->low) < 0 || (i + zd->diff) > ad->diff)
 		_trp(EPACK);
 	ap += (i * ad->size);
 	i = (zd->diff + 1) * zd->size;
-	if (zd->size == 1) {
-		int *aptmp = (int *)ap;
+	if (zd->size == 1)
+	{
+		int* aptmp = (int*)ap;
 		assert(ad->size == EM_WSIZE);
 		while (--i >= 0)
 			*zp++ = *aptmp++;
 #if EM_WSIZE > 2
-	} else if (zd->size == 2) {
-		int *aptmp = (int *)ap;
-		short *zptmp = (short *) zp;
+	}
+	else if (zd->size == 2)
+	{
+		int* aptmp = (int*)ap;
+		short* zptmp = (short*)zp;
 		assert(ad->size == EM_WSIZE);
 		while (--i >= 0)
 			*zptmp++ = *aptmp++;
 #endif
-	} else {
+	}
+	else
+	{
 		assert(ad->size == zd->size);
 		while (--i >= 0)
 			*zp++ = *ap++;
diff --git a/lang/pc/libpc/pclose.c b/lang/pc/libpc/pclose.c
index 0e8df25a6..4f94168d9 100644
--- a/lang/pc/libpc/pclose.c
+++ b/lang/pc/libpc/pclose.c
@@ -16,12 +16,13 @@
  *
  */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-extern		_cls();
+extern _cls();
 
 /* procedure pclose(var f:file of ??); */
 
-pclose(f) struct file *f; {
+pclose(f) struct file* f;
+{
 	_cls(f);
 }
diff --git a/lang/pc/libpc/pcreat.c b/lang/pc/libpc/pcreat.c
index 103362491..3b522d1ff 100644
--- a/lang/pc/libpc/pcreat.c
+++ b/lang/pc/libpc/pcreat.c
@@ -18,24 +18,26 @@
 
 /* Author: J.W. Stevenson */
 
-#include    <unistd.h>
-#include	<pc_file.h>
-#include	<pc_err.h>
+#include <unistd.h>
+#include <pc_file.h>
+#include <pc_err.h>
 
-extern		_cls();
-extern		_trp();
+extern _cls();
+extern _trp();
 
 /* procedure pcreat(var f:text; s:string); */
 
-pcreat(f,s) struct file *f; char *s; {
+pcreat(f, s) struct file* f;
+char* s;
+{
 
-	_cls(f);	/* initializes _curfil */
+	_cls(f); /* initializes _curfil */
 	f->ptr = f->bufadr;
-	f->flags = WRBIT|EOFBIT|ELNBIT|TXTBIT|MAGIC;
+	f->flags = WRBIT | EOFBIT | ELNBIT | TXTBIT | MAGIC;
 	f->fname = s;
 	f->size = 1;
 	f->count = PC_BUFLEN;
 	f->buflen = PC_BUFLEN;
-	if ((f->ufd = creat(s,0644)) < 0)
+	if ((f->ufd = creat(s, 0644)) < 0)
 		_trp(EREWR);
 }
diff --git a/lang/pc/libpc/pentry.c b/lang/pc/libpc/pentry.c
index 14f84ec95..16ce893e6 100644
--- a/lang/pc/libpc/pentry.c
+++ b/lang/pc/libpc/pentry.c
@@ -18,18 +18,19 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-extern struct file	**_extfl;
-extern			_wrs();
-extern			_wrz();
-extern			_wln();
+extern struct file** _extfl;
+extern _wrs();
+extern _wrz();
+extern _wln();
 
-procentry(name) char *name; {
-	struct file *f;
+procentry(name) char* name;
+{
+	struct file* f;
 
 	f = _extfl[1];
-	_wrs(5,"call ",f);
-	_wrz(name,f);
+	_wrs(5, "call ", f);
+	_wrz(name, f);
 	_wln(f);
 }
diff --git a/lang/pc/libpc/perrno.c b/lang/pc/libpc/perrno.c
index ee1fde5f9..488cbc4fe 100644
--- a/lang/pc/libpc/perrno.c
+++ b/lang/pc/libpc/perrno.c
@@ -20,6 +20,7 @@
 
 #include <errno.h>
 
-int perrno() {
-	return(errno);
+int perrno()
+{
+	return (errno);
 }
diff --git a/lang/pc/libpc/pexit.c b/lang/pc/libpc/pexit.c
index 551d93860..a8d1d438d 100644
--- a/lang/pc/libpc/pexit.c
+++ b/lang/pc/libpc/pexit.c
@@ -16,18 +16,19 @@
  *
  */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-extern struct file	**_extfl;
-extern			_wrs();
-extern			_wrz();
-extern			_wln();
+extern struct file** _extfl;
+extern _wrs();
+extern _wrz();
+extern _wln();
 
-procexit(name) char *name; {
-	struct file *f;
+procexit(name) char* name;
+{
+	struct file* f;
 
 	f = _extfl[1];
-	_wrs(5,"exit ",f);
-	_wrz(name,f);
+	_wrs(5, "exit ", f);
+	_wrz(name, f);
 	_wln(f);
 }
diff --git a/lang/pc/libpc/popen.c b/lang/pc/libpc/popen.c
index ca4a33b2d..b180f9b67 100644
--- a/lang/pc/libpc/popen.c
+++ b/lang/pc/libpc/popen.c
@@ -18,24 +18,26 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_file.h>
-#include	<pc_err.h>
+#include <pc_file.h>
+#include <pc_err.h>
 
-extern		_cls();
-extern		_trp();
-extern int	_open();
+extern _cls();
+extern _trp();
+extern int _open();
 
 /* procedure popen(var f:text; s:string); */
 
-popen(f,s) struct file *f; char *s; {
+popen(f, s) struct file* f;
+char* s;
+{
 
-	_cls(f);	/* initializes _curfil */
+	_cls(f); /* initializes _curfil */
 	f->ptr = f->bufadr;
-	f->flags = TXTBIT|MAGIC;
+	f->flags = TXTBIT | MAGIC;
 	f->fname = s;
 	f->size = 1;
 	f->count = 0;
 	f->buflen = PC_BUFLEN;
-	if ((f->ufd = _open(s,0)) < 0)
+	if ((f->ufd = _open(s, 0)) < 0)
 		_trp(ERESET);
 }
diff --git a/lang/pc/libpc/put.c b/lang/pc/libpc/put.c
index 02372487e..e127115d5 100644
--- a/lang/pc/libpc/put.c
+++ b/lang/pc/libpc/put.c
@@ -16,12 +16,13 @@
  *
  */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-extern		_wf();
-extern		_outcpt();
+extern _wf();
+extern _outcpt();
 
-_put(f) struct file *f; {
+_put(f) struct file* f;
+{
 	_wf(f);
 	_outcpt(f);
 }
diff --git a/lang/pc/libpc/rcka.c b/lang/pc/libpc/rcka.c
index a40d95fc0..732f4c12a 100644
--- a/lang/pc/libpc/rcka.c
+++ b/lang/pc/libpc/rcka.c
@@ -6,20 +6,19 @@
 
 /* Author: Hans van Eck */
 
-#include	<em_abs.h>
+#include <em_abs.h>
 
 extern _trp();
 
-struct array_descr	{
-		int		lbound;
-		unsigned	n_elts_min_one;
-		unsigned	size;		/* doesn't really matter */
-	    };
-
-_rcka(descr, index)
-struct array_descr *descr;
+struct array_descr
 {
-	if( index < descr->lbound ||
-	    index > (int) descr->n_elts_min_one + descr->lbound )
+	int lbound;
+	unsigned n_elts_min_one;
+	unsigned size; /* doesn't really matter */
+};
+
+_rcka(descr, index) struct array_descr* descr;
+{
+	if (index < descr->lbound || index > (int)descr->n_elts_min_one + descr->lbound)
 		_trp(EARRAY);
 }
diff --git a/lang/pc/libpc/rdc.c b/lang/pc/libpc/rdc.c
index f7baef800..27df316f1 100644
--- a/lang/pc/libpc/rdc.c
+++ b/lang/pc/libpc/rdc.c
@@ -16,16 +16,17 @@
  *
  */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-extern		_rf();
-extern		_incpt();
+extern _rf();
+extern _incpt();
 
-int _rdc(f) struct file *f; {
+int _rdc(f) struct file* f;
+{
 	int c;
 
 	_rf(f);
 	c = *f->ptr;
 	_incpt(f);
-	return(c);
+	return (c);
 }
diff --git a/lang/pc/libpc/rdi.c b/lang/pc/libpc/rdi.c
index 7e680851a..eaf3117cf 100644
--- a/lang/pc/libpc/rdi.c
+++ b/lang/pc/libpc/rdi.c
@@ -18,61 +18,68 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_file.h>
-#include	<pc_err.h>
+#include <pc_file.h>
+#include <pc_err.h>
 
-extern		_trp();
-extern		_rf();
-extern		_incpt();
+extern _trp();
+extern _rf();
+extern _incpt();
 
-_skipsp(f) struct file *f; {
+_skipsp(f) struct file* f;
+{
 	while ((*f->ptr == ' ') || (*f->ptr == '\t'))
 		_incpt(f);
 }
 
-int _getsig(f) struct file *f; {
+int _getsig(f) struct file* f;
+{
 	int sign;
 
 	if ((sign = (*f->ptr == '-')) || *f->ptr == '+')
 		_incpt(f);
-	return(sign);
+	return (sign);
 }
 
-int _fstdig(f) struct file *f; {
+int _fstdig(f) struct file* f;
+{
 	int ch;
 
 	ch = *f->ptr - '0';
-	if ((unsigned) ch > 9) {
+	if ((unsigned)ch > 9)
+	{
 		_trp(EDIGIT);
 		ch = 0;
 	}
-	return(ch);
+	return (ch);
 }
 
-int _nxtdig(f) struct file *f; {
+int _nxtdig(f) struct file* f;
+{
 	int ch;
 
 	_incpt(f);
 	ch = *f->ptr - '0';
-	if ((unsigned) ch > 9)
-		return(-1);
-	return(ch);
+	if ((unsigned)ch > 9)
+		return (-1);
+	return (ch);
 }
 
-int _getint(f) struct file *f; {
-	int is_signed,i,ch;
+int _getint(f) struct file* f;
+{
+	int is_signed, i, ch;
 
 	is_signed = _getsig(f);
 	ch = _fstdig(f);
 	i = 0;
 	do
-		i = i*10 - ch;
+		i = i * 10 - ch;
 	while ((ch = _nxtdig(f)) >= 0);
-	return(is_signed ? i : -i);
+	return (is_signed ? i : -i);
 }
 
-int _rdi(f) struct file *f; {
+int _rdi(f) struct file* f;
+{
 	_rf(f);
 	_skipsp(f);
-	return(_getint(f));
+	return (_getint(f));
 }
diff --git a/lang/pc/libpc/rdl.c b/lang/pc/libpc/rdl.c
index 96cb9904c..3cf731f5b 100644
--- a/lang/pc/libpc/rdl.c
+++ b/lang/pc/libpc/rdl.c
@@ -18,16 +18,18 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-extern		_rf();
-extern		_skipsp();
-extern int	_getsig();
-extern int	_fstdig();
-extern int	_nxtdig();
+extern _rf();
+extern _skipsp();
+extern int _getsig();
+extern int _fstdig();
+extern int _nxtdig();
 
-long _rdl(f) struct file *f; {
-	int is_signed,ch; long l;
+long _rdl(f) struct file* f;
+{
+	int is_signed, ch;
+	long l;
 
 	_rf(f);
 	_skipsp(f);
@@ -35,7 +37,7 @@ long _rdl(f) struct file *f; {
 	ch = _fstdig(f);
 	l = 0;
 	do
-		l = l*10 - ch;
+		l = l * 10 - ch;
 	while ((ch = _nxtdig(f)) >= 0);
-	return(is_signed ? l : -l);
+	return (is_signed ? l : -l);
 }
diff --git a/lang/pc/libpc/rdr.c b/lang/pc/libpc/rdr.c
index ef5746e60..5c8ccec51 100644
--- a/lang/pc/libpc/rdr.c
+++ b/lang/pc/libpc/rdr.c
@@ -18,31 +18,35 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-#define	BIG	1e17
+#define BIG 1e17
 
-extern		_rf();
-extern		_incpt();
-extern		_skipsp();
-extern int	_getsig();
-extern int	_getint();
-extern int	_fstdig();
-extern int	_nxtdig();
+extern _rf();
+extern _incpt();
+extern _skipsp();
+extern int _getsig();
+extern int _getint();
+extern int _fstdig();
+extern int _nxtdig();
 
-static double		r;
-static int		pow10;
+static double r;
+static int pow10;
 
-static dig(ch) int ch; {
+static dig(ch) int ch;
+{
 
-	if (r>BIG)
+	if (r > BIG)
 		pow10++;
 	else
-		r = r*10.0 + ch;
+		r = r * 10.0 + ch;
 }
 
-double _rdr(f) struct file *f; {
-	int i; double e; int is_signed,ch;
+double _rdr(f) struct file* f;
+{
+	int i;
+	double e;
+	int is_signed, ch;
 
 	r = 0;
 	pow10 = 0;
@@ -53,15 +57,18 @@ double _rdr(f) struct file *f; {
 	do
 		dig(ch);
 	while ((ch = _nxtdig(f)) >= 0);
-	if (*f->ptr == '.') {
+	if (*f->ptr == '.')
+	{
 		_incpt(f);
 		ch = _fstdig(f);
-		do {
+		do
+		{
 			dig(ch);
 			pow10--;
 		} while ((ch = _nxtdig(f)) >= 0);
 	}
-	if ((*f->ptr == 'e') || (*f->ptr == 'E')) {
+	if ((*f->ptr == 'e') || (*f->ptr == 'E'))
+	{
 		_incpt(f);
 		pow10 += _getint(f);
 	}
@@ -70,9 +77,9 @@ double _rdr(f) struct file *f; {
 	e = 1.0;
 	while (--i >= 0)
 		e *= 10.0;
-	if (pow10<0)
+	if (pow10 < 0)
 		r /= e;
 	else
 		r *= e;
-	return(is_signed? -r : r);
+	return (is_signed ? -r : r);
 }
diff --git a/lang/pc/libpc/rf.c b/lang/pc/libpc/rf.c
index b9d150f5f..a90a9aeb5 100644
--- a/lang/pc/libpc/rf.c
+++ b/lang/pc/libpc/rf.c
@@ -16,17 +16,18 @@
  *
  */
 
-#include	<pc_file.h>
-#include	<pc_err.h>
+#include <pc_file.h>
+#include <pc_err.h>
 
-extern struct file	*_curfil;
-extern			_trp();
-extern			_incpt();
+extern struct file* _curfil;
+extern _trp();
+extern _incpt();
 
-_rf(f) struct file *f; {
+_rf(f) struct file* f;
+{
 
 	_curfil = f;
-	if ((f->flags&0377) != MAGIC)
+	if ((f->flags & 0377) != MAGIC)
 		_trp(EBADF);
 	if (f->flags & WRBIT)
 		_trp(EREADF);
diff --git a/lang/pc/libpc/rln.c b/lang/pc/libpc/rln.c
index e6afd6131..2c95f4415 100644
--- a/lang/pc/libpc/rln.c
+++ b/lang/pc/libpc/rln.c
@@ -16,12 +16,13 @@
  *
  */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-extern		_rf();
-extern		_incpt();
+extern _rf();
+extern _incpt();
 
-_rln(f) struct file *f; {
+_rln(f) struct file* f;
+{
 
 	_rf(f);
 	while ((f->flags & ELNBIT) == 0)
diff --git a/lang/pc/libpc/rnd.c b/lang/pc/libpc/rnd.c
index 9ee64c047..67fe2f379 100644
--- a/lang/pc/libpc/rnd.c
+++ b/lang/pc/libpc/rnd.c
@@ -16,6 +16,7 @@
  *
  */
 
-double _rnd(r) double r; {
-	return(r + (r<0 ? -0.5 : 0.5));
+double _rnd(r) double r;
+{
+	return (r + (r < 0 ? -0.5 : 0.5));
 }
diff --git a/lang/pc/libpc/sin.c b/lang/pc/libpc/sin.c
index e56ed1cf6..a483bed66 100644
--- a/lang/pc/libpc/sin.c
+++ b/lang/pc/libpc/sin.c
@@ -15,8 +15,7 @@
 #endif
 
 static double
-sinus(x, cos_flag)
-	double x;
+    sinus(x, cos_flag) double x;
 {
 	/*	Algorithm and coefficients from:
 			"Software manual for the elementary functions"
@@ -25,34 +24,37 @@ sinus(x, cos_flag)
 
 	static double r[] = {
 		-0.16666666666666665052e+0,
-		 0.83333333333331650314e-2,
+		0.83333333333331650314e-2,
 		-0.19841269841201840457e-3,
-		 0.27557319210152756119e-5,
+		0.27557319210152756119e-5,
 		-0.25052106798274584544e-7,
-		 0.16058936490371589114e-9,
+		0.16058936490371589114e-9,
 		-0.76429178068910467734e-12,
-		 0.27204790957888846175e-14
+		0.27204790957888846175e-14
 	};
 
-	double	xsqr;
-	double	y;
-	int	neg = 0;
+	double xsqr;
+	double y;
+	int neg = 0;
 
-	if (x < 0) {
+	if (x < 0)
+	{
 		x = -x;
 		neg = 1;
 	}
-	if (cos_flag) {
+	if (cos_flag)
+	{
 		neg = 0;
 		y = M_PI_2 + x;
 	}
-	else	y = x;
+	else
+		y = x;
 
 	/* ??? avoid loss of significance, if y is too large, error ??? */
 
 	y = y * M_1_PI + 0.5;
 
-	/*	Use extended precision to calculate reduced argument.
+/*	Use extended precision to calculate reduced argument.
 		Here we used 12 bits of the mantissa for a1.
 		Also split x in integer part x1 and fraction part x2.
 	*/
@@ -60,11 +62,13 @@ sinus(x, cos_flag)
 #define A2 -8.908910206761537356617e-6
 	{
 		double x1, x2;
-		extern double	_fif();
+		extern double _fif();
 
-		_fif(y, 1.0,  &y);
-		if (_fif(y, 0.5, &x1)) neg = !neg;
-		if (cos_flag) y -= 0.5;
+		_fif(y, 1.0, &y);
+		if (_fif(y, 0.5, &x1))
+			neg = !neg;
+		if (cos_flag)
+			y -= 0.5;
 		x2 = _fif(x, 1.0, &x1);
 		x = x1 - y * A1;
 		x += x2;
@@ -73,7 +77,8 @@ sinus(x, cos_flag)
 #undef A2
 	}
 
-	if (x < 0) {
+	if (x < 0)
+	{
 		neg = !neg;
 		x = -x;
 	}
@@ -86,16 +91,15 @@ sinus(x, cos_flag)
 }
 
 double
-_sin(x)
-	double x;
+    _sin(x) double x;
 {
 	return sinus(x, 0);
 }
 
 double
-_cos(x)
-	double x;
+    _cos(x) double x;
 {
-	if (x < 0) x = -x;
+	if (x < 0)
+		x = -x;
 	return sinus(x, 1);
 }
diff --git a/lang/pc/libpc/sqt.c b/lang/pc/libpc/sqt.c
index 0f5935077..efaf7053d 100644
--- a/lang/pc/libpc/sqt.c
+++ b/lang/pc/libpc/sqt.c
@@ -9,63 +9,70 @@
 #define __NO_DEFS
 #include <math.h>
 #include <pc_err.h>
-extern	_trp();
+extern _trp();
 
-#define NITER	5
+#define NITER 5
 
 static double
-Ldexp(fl,exp)
-	double fl;
-	int exp;
+    Ldexp(fl, exp) double fl;
+int exp;
 {
 	extern double _fef();
 	int sign = 1;
 	int currexp;
 
-	if (fl<0) {
+	if (fl < 0)
+	{
 		fl = -fl;
 		sign = -1;
 	}
-	fl = _fef(fl,&currexp);
+	fl = _fef(fl, &currexp);
 	exp += currexp;
-	if (exp > 0) {
-		while (exp>30) {
-			fl *= (double) (1L << 30);
+	if (exp > 0)
+	{
+		while (exp > 30)
+		{
+			fl *= (double)(1L << 30);
 			exp -= 30;
 		}
-		fl *= (double) (1L << exp);
+		fl *= (double)(1L << exp);
 	}
-	else	{
-		while (exp<-30) {
-			fl /= (double) (1L << 30);
+	else
+	{
+		while (exp < -30)
+		{
+			fl /= (double)(1L << 30);
 			exp += 30;
 		}
-		fl /= (double) (1L << -exp);
+		fl /= (double)(1L << -exp);
 	}
 	return sign * fl;
 }
 
 double
-_sqt(x)
-	double x;
+    _sqt(x) double x;
 {
 	extern double _fef();
 	int exponent;
 	double val;
 
-	if (x <= 0) {
-		if (x < 0) _trp(ESQT);
+	if (x <= 0)
+	{
+		if (x < 0)
+			_trp(ESQT);
 		return 0;
 	}
 
 	val = _fef(x, &exponent);
-	if (exponent & 1) {
+	if (exponent & 1)
+	{
 		exponent--;
 		val *= 2;
 	}
-	val = Ldexp(val + 1.0, exponent/2 - 1);
+	val = Ldexp(val + 1.0, exponent / 2 - 1);
 	/* was: val = (val + 1.0)/2.0; val = Ldexp(val, exponent/2); */
-	for (exponent = NITER - 1; exponent >= 0; exponent--) {
+	for (exponent = NITER - 1; exponent >= 0; exponent--)
+	{
 		val = (val + x / val) / 2.0;
 	}
 	return val;
diff --git a/lang/pc/libpc/string.c b/lang/pc/libpc/string.c
index 26a4161c6..8cc8a68f5 100644
--- a/lang/pc/libpc/string.c
+++ b/lang/pc/libpc/string.c
@@ -18,43 +18,49 @@
 
 /* function strbuf(var b:charbuf):string; */
 
-char *strbuf(s) char *s; {
-	return(s);
+char* strbuf(s) char* s;
+{
+	return (s);
 }
 
 /* function strtobuf(s:string; var b:charbuf; blen:integer):integer; */
 
-int strtobuf(s,b,l) char *s,*b; {
+int strtobuf(s, b, l) char *s, *b;
+{
 	int i;
 
 	i = 0;
-	while (--l>=0) {
+	while (--l >= 0)
+	{
 		if ((*b++ = *s++) == 0)
 			break;
 		i++;
 	}
-	return(i);
+	return (i);
 }
 
 /* function strlen(s:string):integer; */
 
-int strlen(s) char *s; {
+int strlen(s) char* s;
+{
 	int i;
 
 	i = 0;
 	while (*s++)
 		i++;
-	return(i);
+	return (i);
 }
 
 /* function strfetch(s:string; i:integer):char; */
 
-int strfetch(s,i) char *s; {
-	return(s[i-1]);
+int strfetch(s, i) char* s;
+{
+	return (s[i - 1]);
 }
 
 /* procedure strstore(s:string; i:integer; c:char); */
 
-strstore(s,i,c) char *s; {
-	s[i-1] = c;
+strstore(s, i, c) char* s;
+{
+	s[i - 1] = c;
 }
diff --git a/lang/pc/libpc/unp.c b/lang/pc/libpc/unp.c
index c9af3a1da..3479fa70b 100644
--- a/lang/pc/libpc/unp.c
+++ b/lang/pc/libpc/unp.c
@@ -18,46 +18,58 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_err.h>
+#include <pc_err.h>
 
-extern		_trp();
+extern _trp();
 
-#define	assert(x)	/* nothing */
+#define assert(x) /* nothing */
 
 #ifndef EM_WSIZE
 #define EM_WSIZE _EM_WSIZE
 #endif
 
-struct descr {
-	int	low;
-	int	diff;
-	int	size;
+struct descr
+{
+	int low;
+	int diff;
+	int size;
 };
 
-_unp(ad,zd,i,ap,zp,noext) int i; struct descr *ad,*zd; char *ap,*zp; int noext; {
+_unp(ad, zd, i, ap, zp, noext) int i;
+struct descr *ad, *zd;
+char *ap, *zp;
+int noext;
+{
 
-	if (zd->diff > ad->diff ||
-			(i -= ad->low) < 0 ||
-			(i+zd->diff) > ad->diff)
+	if (zd->diff > ad->diff || (i -= ad->low) < 0 || (i + zd->diff) > ad->diff)
 		_trp(EUNPACK);
 	ap += (i * ad->size);
 	i = (zd->diff + 1) * zd->size;
-	if (zd->size == 1) {
-		int *aptmp = (int *) ap;
+	if (zd->size == 1)
+	{
+		int* aptmp = (int*)ap;
 		assert(ad->size == EM_WSIZE);
 		while (--i >= 0)
-			if (noext) *aptmp++ = *zp++ & 0377;
-			else *aptmp++ = *zp++;
+			if (noext)
+				*aptmp++ = *zp++ & 0377;
+			else
+				*aptmp++ = *zp++;
 #if EM_WSIZE > 2
-	} else if (zd->size == 2) {
-		int *aptmp = (int *) ap;
-		short *zptmp = (short *) zp;
+	}
+	else if (zd->size == 2)
+	{
+		int* aptmp = (int*)ap;
+		short* zptmp = (short*)zp;
 		assert(ad->size == EM_WSIZE);
 		while (--i >= 0)
-			if (noext) *aptmp++ = *zptmp++ & 0177777;
-			else *aptmp++ = *zptmp++;
+			if (noext)
+				*aptmp++ = *zptmp++ & 0177777;
+			else
+				*aptmp++ = *zptmp++;
 #endif
-	} else {
+	}
+	else
+	{
 		assert(ad->size == zd->size);
 		while (--i >= 0)
 			*ap++ = *zp++;
diff --git a/lang/pc/libpc/uread.c b/lang/pc/libpc/uread.c
index 77d3a91a2..b20c3c0bb 100644
--- a/lang/pc/libpc/uread.c
+++ b/lang/pc/libpc/uread.c
@@ -21,6 +21,8 @@
 #include <stdlib.h>
 #include <unistd.h>
 
-int uread(fd,b,n) char *b; int fd,n; {
-	return(read(fd,b,n));
+int uread(fd, b, n) char* b;
+int fd, n;
+{
+	return (read(fd, b, n));
 }
diff --git a/lang/pc/libpc/uwrite.c b/lang/pc/libpc/uwrite.c
index 8156f1b63..bf8381cd7 100644
--- a/lang/pc/libpc/uwrite.c
+++ b/lang/pc/libpc/uwrite.c
@@ -21,6 +21,8 @@
 #include <stdlib.h>
 #include <unistd.h>
 
-int uwrite(fd,b,n) char *b; int fd,n; {
-	return(write(fd,b,n));
+int uwrite(fd, b, n) char* b;
+int fd, n;
+{
+	return (write(fd, b, n));
 }
diff --git a/lang/pc/libpc/wdw.c b/lang/pc/libpc/wdw.c
index 607680a2f..0c45bf215 100644
--- a/lang/pc/libpc/wdw.c
+++ b/lang/pc/libpc/wdw.c
@@ -16,15 +16,16 @@
  *
  */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-extern struct file	*_curfil;
-extern			_incpt();
+extern struct file* _curfil;
+extern _incpt();
 
-char *_wdw(f) struct file *f; {
+char* _wdw(f) struct file* f;
+{
 
 	_curfil = f;
-	if ((f->flags & (WINDOW|WRBIT|0377)) == MAGIC)
+	if ((f->flags & (WINDOW | WRBIT | 0377)) == MAGIC)
 		_incpt(f);
-	return(f->ptr);
+	return (f->ptr);
 }
diff --git a/lang/pc/libpc/wf.c b/lang/pc/libpc/wf.c
index 76645bb51..945d72533 100644
--- a/lang/pc/libpc/wf.c
+++ b/lang/pc/libpc/wf.c
@@ -16,16 +16,17 @@
  *
  */
 
-#include	<pc_file.h>
-#include	<pc_err.h>
+#include <pc_file.h>
+#include <pc_err.h>
 
-extern struct file	*_curfil;
-extern			_trp();
+extern struct file* _curfil;
+extern _trp();
 
-_wf(f) struct file *f; {
+_wf(f) struct file* f;
+{
 
 	_curfil = f;
-	if ((f->flags&0377) != MAGIC)
+	if ((f->flags & 0377) != MAGIC)
 		_trp(EBADF);
 	if ((f->flags & WRBIT) == 0)
 		_trp(EWRITEF);
diff --git a/lang/pc/libpc/wrc.c b/lang/pc/libpc/wrc.c
index 25ee57230..437d73a54 100644
--- a/lang/pc/libpc/wrc.c
+++ b/lang/pc/libpc/wrc.c
@@ -16,26 +16,30 @@
  *
  */
 
-#include	<pc_file.h>
+#include <pc_file.h>
 
-extern		_wf();
-extern		_outcpt();
+extern _wf();
+extern _outcpt();
 
-_wrc(c,f) int c; struct file *f; {
+_wrc(c, f) int c;
+struct file* f;
+{
 	*f->ptr = c;
 	_wf(f);
 	_outcpt(f);
 }
 
-_wln(f) struct file *f; {
+_wln(f) struct file* f;
+{
 #ifdef CPM
-	_wrc('\r',f);
+	_wrc('\r', f);
 #endif
-	_wrc('\n',f);
+	_wrc('\n', f);
 	f->flags |= ELNBIT;
 }
 
-_pag(f) struct file *f; {
-	_wrc('\014',f);
+_pag(f) struct file* f;
+{
+	_wrc('\014', f);
 	f->flags |= ELNBIT;
 }
diff --git a/lang/pc/libpc/wrf.c b/lang/pc/libpc/wrf.c
index 4905a4395..5c213c7c6 100644
--- a/lang/pc/libpc/wrf.c
+++ b/lang/pc/libpc/wrf.c
@@ -18,36 +18,42 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_err.h>
-#include	<pc_file.h>
+#include <pc_err.h>
+#include <pc_file.h>
 
-extern		_wstrin();
-extern char	*_fcvt();
+extern _wstrin();
+extern char* _fcvt();
 
-#define	assert(x)	/* nothing */
+#define assert(x) /* nothing */
 
 #if __STDC__
 #include <float.h>
-#define	HUGE_DIG	DBL_MAX_10_EXP	/* log10(maxreal) */
+#define HUGE_DIG DBL_MAX_10_EXP /* log10(maxreal) */
 #else
-#define	HUGE_DIG	400	/* log10(maxreal) */
+#define HUGE_DIG 400 /* log10(maxreal) */
 #endif
-#define	PREC_DIG	80	/* the maximum digits returned by _fcvt() */
-#define	FILL_CHAR	'0'	/* char printed if all of _fcvt() used */
-#define	BUFSIZE		HUGE_DIG + PREC_DIG + 3
+#define PREC_DIG 80 /* the maximum digits returned by _fcvt() */
+#define FILL_CHAR '0' /* char printed if all of _fcvt() used */
+#define BUFSIZE HUGE_DIG + PREC_DIG + 3
 
-_wrf(n,w,r,f) int n,w; double r; struct file *f; {
-	char *p,*b; int s,d; char buf[BUFSIZE];
+_wrf(n, w, r, f) int n, w;
+double r;
+struct file* f;
+{
+	char *p, *b;
+	int s, d;
+	char buf[BUFSIZE];
 
-	if ( n < 0 || w < 0) _trp(EWIDTH);
+	if (n < 0 || w < 0)
+		_trp(EWIDTH);
 	p = buf;
 	if (n > PREC_DIG)
 		n = PREC_DIG;
-	b = _fcvt(r,n,&d,&s);
+	b = _fcvt(r, n, &d, &s);
 	assert(abs(d) <= HUGE_DIG);
 	if (s)
 		*p++ = '-';
-	if (d<=0)
+	if (d <= 0)
 		*p++ = '0';
 	else
 		do
@@ -55,14 +61,16 @@ _wrf(n,w,r,f) int n,w; double r; struct file *f; {
 		while (--d > 0);
 	if (n > 0)
 		*p++ = '.';
-	while (++d <= 0) {
+	while (++d <= 0)
+	{
 		if (--n < 0)
 			break;
 		*p++ = '0';
 	}
-	while (--n >= 0) {
+	while (--n >= 0)
+	{
 		*p++ = (*b ? *b++ : FILL_CHAR);
-		assert(p <= buf+BUFSIZE);
+		assert(p <= buf + BUFSIZE);
 	}
-	_wstrin(w,(int)(p-buf),buf,f);
+	_wstrin(w, (int)(p - buf), buf, f);
 }
diff --git a/lang/pc/libpc/wri.c b/lang/pc/libpc/wri.c
index cc1f2d62b..b027bc6f9 100644
--- a/lang/pc/libpc/wri.c
+++ b/lang/pc/libpc/wri.c
@@ -16,10 +16,10 @@
  *
  */
 
-#include	<pc_err.h>
-#include	<pc_file.h>
+#include <pc_err.h>
+#include <pc_file.h>
 
-extern		_wstrin();
+extern _wstrin();
 
 #ifndef EM_WSIZE
 #ifdef _EM_WSIZE
@@ -27,46 +27,56 @@ extern		_wstrin();
 #endif
 #endif
 
-#if EM_WSIZE==4
+#if EM_WSIZE == 4
 #define SZ 11
 #define MININT -2147483648
 #define STRMININT "-2147483648"
 #endif
-#if EM_WSIZE==2
+#if EM_WSIZE == 2
 #define SZ 6
 #define MININT -32768
 #define STRMININT "-32768"
 #endif
-#if EM_WSIZE==1
+#if EM_WSIZE == 1
 #define SZ 4
 #define MININT -128
 #define STRMININT "-128"
 #endif
 
 #ifndef STRMININT
-Something wrong here!
+Something wrong here !
 #endif
 
-_wsi(w,i,f) int w,i; struct file *f; {
-	char *p; int j; char buf[SZ];
+    _wsi(w, i, f) int w,
+    i;
+struct file* f;
+{
+	char* p;
+	int j;
+	char buf[SZ];
 
-	if (w < 0) _trp(EWIDTH);
+	if (w < 0)
+		_trp(EWIDTH);
 	p = &buf[SZ];
-	if ((j=i) < 0) {
-		if (i == MININT) {
-			_wstrin(w,SZ,STRMININT,f);
+	if ((j = i) < 0)
+	{
+		if (i == MININT)
+		{
+			_wstrin(w, SZ, STRMININT, f);
 			return;
 		}
 		j = -j;
 	}
 	do
-		*--p = '0' + j%10;
+		*--p = '0' + j % 10;
 	while (j /= 10);
-	if (i<0)
+	if (i < 0)
 		*--p = '-';
-	_wstrin(w,(int)(&buf[SZ]-p),p,f);
+	_wstrin(w, (int)(&buf[SZ] - p), p, f);
 }
 
-_wri(i,f) int i; struct file *f; {
-	_wsi(SZ,i,f);
+_wri(i, f) int i;
+struct file* f;
+{
+	_wsi(SZ, i, f);
 }
diff --git a/lang/pc/libpc/wrl.c b/lang/pc/libpc/wrl.c
index 8e7a9e1e8..c5bfff928 100644
--- a/lang/pc/libpc/wrl.c
+++ b/lang/pc/libpc/wrl.c
@@ -18,34 +18,45 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_err.h>
-#include	<pc_file.h>
+#include <pc_err.h>
+#include <pc_file.h>
 
-extern		_wstrin();
+extern _wstrin();
 
-#define	MAXNEGLONG	-2147483648
+#define MAXNEGLONG -2147483648
 
-_wsl(w,l,f) int w; long l; struct file *f; {
-	char *p,c; long j; char buf[11];
+_wsl(w, l, f) int w;
+long l;
+struct file* f;
+{
+	char *p, c;
+	long j;
+	char buf[11];
 
-	if (w < 0) _trp(EWIDTH);
+	if (w < 0)
+		_trp(EWIDTH);
 	p = &buf[11];
-	if ((j=l) < 0) {
-		if (l == MAXNEGLONG) {
-			_wstrin(w,11,"-2147483648",f);
+	if ((j = l) < 0)
+	{
+		if (l == MAXNEGLONG)
+		{
+			_wstrin(w, 11, "-2147483648", f);
 			return;
 		}
 		j = -j;
 	}
-	do {
-		c = j%10;
+	do
+	{
+		c = j % 10;
 		*--p = c + '0';
 	} while (j /= 10);
-	if (l<0)
+	if (l < 0)
 		*--p = '-';
-	_wstrin(w,(int)(&buf[11]-p),p,f);
+	_wstrin(w, (int)(&buf[11] - p), p, f);
 }
 
-_wrl(l,f) long l; struct file *f; {
-	_wsl(11,l,f);
+_wrl(l, f) long l;
+struct file* f;
+{
+	_wsl(11, l, f);
 }
diff --git a/lang/pc/libpc/wrr.c b/lang/pc/libpc/wrr.c
index ec9c9c980..8f99062ca 100644
--- a/lang/pc/libpc/wrr.c
+++ b/lang/pc/libpc/wrr.c
@@ -18,23 +18,29 @@
 
 /* Author: J.W. Stevenson */
 
-#include	<pc_err.h>
-#include	<pc_file.h>
+#include <pc_err.h>
+#include <pc_file.h>
 
-extern		_wstrin();
-extern char	*_ecvt();
+extern _wstrin();
+extern char* _ecvt();
 
-#define	PREC_DIG	80	/* maximum digits produced by _ecvt() */
+#define PREC_DIG 80 /* maximum digits produced by _ecvt() */
 
-_wsr(w,r,f) int w; double r; struct file *f; {
-	char *p,*b; int s,d,i; char buf[PREC_DIG+7];
+_wsr(w, r, f) int w;
+double r;
+struct file* f;
+{
+	char *p, *b;
+	int s, d, i;
+	char buf[PREC_DIG + 7];
 
-	if (w < 0) _trp(EWIDTH);
+	if (w < 0)
+		_trp(EWIDTH);
 	p = buf;
-	if ((i = w-6) < 2)
+	if ((i = w - 6) < 2)
 		i = 2;
-	b = _ecvt(r,i,&d,&s);
-	*p++ = s? '-' : ' ';
+	b = _ecvt(r, i, &d, &s);
+	*p++ = s ? '-' : ' ';
 	if (*b == '0')
 		d++;
 	*p++ = *b++;
@@ -43,25 +49,31 @@ _wsr(w,r,f) int w; double r; struct file *f; {
 		*p++ = *b++;
 	*p++ = 'e';
 	d--;
-	if (d < 0) {
+	if (d < 0)
+	{
 		d = -d;
 		*p++ = '-';
-	} else
+	}
+	else
 		*p++ = '+';
 
-	if (d >= 1000) {
+	if (d >= 1000)
+	{
 		*p++ = '*';
 		*p++ = '*';
 		*p++ = '*';
 	}
-	else {
-		*p++ = '0' + d/100;
-		*p++ = '0' + (d/10) % 10;
-		*p++ = '0' + d%10;
+	else
+	{
+		*p++ = '0' + d / 100;
+		*p++ = '0' + (d / 10) % 10;
+		*p++ = '0' + d % 10;
 	}
-	_wstrin(w,(int)(p-buf),buf,f);
+	_wstrin(w, (int)(p - buf), buf, f);
 }
 
-_wrr(r,f) double r; struct file *f; {
-	_wsr(13,r,f);
+_wrr(r, f) double r;
+struct file* f;
+{
+	_wsr(13, r, f);
 }

From 11854f4dfea1efe7fdf33afe80292a75963a8e3d Mon Sep 17 00:00:00 2001
From: David Given <dg@cowlark.com>
Date: Sun, 17 Jun 2018 22:30:27 +0200
Subject: [PATCH 7/8] Ansify and warning fix.

---
 lang/pc/libpc/LIST          |  73 -------------------
 lang/pc/libpc/abi.c         |   3 +-
 lang/pc/libpc/abl.c         |   3 +-
 lang/pc/libpc/abr.c         |   3 +-
 lang/pc/libpc/arg.c         |  23 +-----
 lang/pc/libpc/ass.c         |   7 +-
 lang/pc/libpc/asz.c         |  11 +--
 lang/pc/libpc/atn.c         |   7 +-
 lang/pc/libpc/bcp.c         |   4 +-
 lang/pc/libpc/buff.c        |   6 +-
 lang/pc/libpc/catch.c       |  14 +---
 lang/pc/libpc/clock.c       |  49 -------------
 lang/pc/libpc/cls.c         |  12 +--
 lang/pc/libpc/cvt.c         |  17 ++---
 lang/pc/libpc/diag.c        |   5 +-
 lang/pc/libpc/efl.c         |   9 +--
 lang/pc/libpc/eln.c         |   8 +-
 lang/pc/libpc/exp.c         |  12 +--
 lang/pc/libpc/get.c         |   8 +-
 lang/pc/libpc/hlt.c         |  10 +--
 lang/pc/libpc/incpt.c       |   8 +-
 lang/pc/libpc/ini.c         |  21 +++---
 lang/pc/libpc/log.c         |   7 +-
 lang/pc/libpc/mdi.c         |  12 ++-
 lang/pc/libpc/mdl.c         |   6 +-
 lang/pc/libpc/new.c         |   4 +-
 lang/pc/libpc/nfa.c         |   6 +-
 lang/pc/libpc/nobuff.c      |   6 +-
 lang/pc/libpc/notext.c      |   4 +-
 lang/pc/libpc/opn.c         |  29 ++------
 lang/pc/libpc/outcpt.c      |   9 +--
 lang/pc/libpc/pac.c         |  15 +---
 lang/pc/libpc/pc.h          | 141 ++++++++++++++++++++++--------------
 lang/pc/libpc/pclose.c      |   6 +-
 lang/pc/libpc/pcreat.c      |   9 +--
 lang/pc/libpc/pentry.c      |   9 +--
 lang/pc/libpc/perrno.c      |   3 +-
 lang/pc/libpc/pexit.c       |   9 +--
 lang/pc/libpc/popen.c       |  14 +---
 lang/pc/libpc/put.c         |   7 +-
 lang/pc/libpc/rcka.c        |  12 +--
 lang/pc/libpc/rdc.c         |   7 +-
 lang/pc/libpc/rdi.c         |  19 ++---
 lang/pc/libpc/rdl.c         |  10 +--
 lang/pc/libpc/rdr.c         |  14 +---
 lang/pc/libpc/rf.c          |   9 +--
 lang/pc/libpc/rln.c         |   7 +-
 lang/pc/libpc/rnd.c         |   4 +-
 lang/pc/libpc/sin.c         |  15 +---
 lang/pc/libpc/sqt.c         |  12 +--
 lang/pc/libpc/string.c      |  12 +--
 lang/pc/libpc/unp.c         |  16 +---
 lang/pc/libpc/uread.c       |   4 +-
 lang/pc/libpc/uwrite.c      |   4 +-
 lang/pc/libpc/wdw.c         |   8 +-
 lang/pc/libpc/wf.c          |   8 +-
 lang/pc/libpc/wrc.c         |  12 +--
 lang/pc/libpc/wrf.c         |  10 +--
 lang/pc/libpc/wri.c         |  12 +--
 lang/pc/libpc/wrl.c         |  17 ++---
 lang/pc/libpc/wrr.c         |  13 +---
 plat/cpm/include/unistd.h   |   1 +
 plat/pc86/include/unistd.h  |   1 +
 plat/pdpv7/include/unistd.h |   1 +
 plat/rpi/include/unistd.h   |   1 +
 65 files changed, 255 insertions(+), 583 deletions(-)
 delete mode 100644 lang/pc/libpc/LIST
 delete mode 100644 lang/pc/libpc/clock.c

diff --git a/lang/pc/libpc/LIST b/lang/pc/libpc/LIST
deleted file mode 100644
index 297fe8bce..000000000
--- a/lang/pc/libpc/LIST
+++ /dev/null
@@ -1,73 +0,0 @@
-tail_pc.a
-abi.c
-abl.c
-abr.c
-arg.c
-ass.c
-asz.c
-atn.c
-bcp.c
-bts.e
-buff.c
-clock.c
-diag.c
-dis.c
-efl.c
-eln.c
-encaps.e
-exp.c
-get.c
-gto.e
-hlt.c
-ini.c
-catch.c
-log.c
-mdi.c
-mdl.c
-new.c
-nobuff.c
-notext.c
-opn.c
-hol0.e
-pac.c
-pclose.c
-pcreat.c
-pentry.c
-perrno.c
-pexit.c
-popen.c
-cls.c
-put.c
-rdc.c
-rdl.c
-rdr.c
-rdi.c
-rln.c
-rf.c
-rnd.c
-sav.e
-sig.e
-sin.c
-sqt.c
-fef.e
-string.c
-trap.e
-unp.c
-uread.c
-uwrite.c
-wdw.c
-incpt.c
-wrc.c
-wrf.c
-wri.c
-wrl.c
-wrr.c
-cvt.c
-fif.e
-wrz.c
-wrs.c
-outcpt.c
-wf.c
-nfa.c
-rcka.c
-trp.e
diff --git a/lang/pc/libpc/abi.c b/lang/pc/libpc/abi.c
index ae5bd8271..9971b292f 100644
--- a/lang/pc/libpc/abi.c
+++ b/lang/pc/libpc/abi.c
@@ -17,8 +17,9 @@
  */
 
 /* Author: J.W. Stevenson */
+#include "pc.h"
 
-int _abi(i) int i;
+int _abi(int i)
 {
 	return (i >= 0 ? i : -i);
 }
diff --git a/lang/pc/libpc/abl.c b/lang/pc/libpc/abl.c
index 50a5fb285..0e9bc5708 100644
--- a/lang/pc/libpc/abl.c
+++ b/lang/pc/libpc/abl.c
@@ -17,8 +17,9 @@
  */
 
 /* Author: J.W. Stevenson */
+#include "pc.h"
 
-long _abl(i) long i;
+long _abl(long i)
 {
 	return (i >= 0 ? i : -i);
 }
diff --git a/lang/pc/libpc/abr.c b/lang/pc/libpc/abr.c
index 3bde9f69c..a95a13948 100644
--- a/lang/pc/libpc/abr.c
+++ b/lang/pc/libpc/abr.c
@@ -17,8 +17,9 @@
  */
 
 /* Author: J.W. Stevenson */
+#include "pc.h"
 
-double _abr(r) double r;
+double _abr(double r)
 {
 	return (r >= 0 ? r : -r);
 }
diff --git a/lang/pc/libpc/arg.c b/lang/pc/libpc/arg.c
index e512c534a..43c6c15f1 100644
--- a/lang/pc/libpc/arg.c
+++ b/lang/pc/libpc/arg.c
@@ -17,29 +17,26 @@
  */
 
 /* Author: J.W. Stevenson */
+#include "pc.h"
 
 /* function argc:integer; extern; */
 /* function argv(i:integer):string; extern; */
 /* procedure argshift; extern; */
 /* function environ(i:integer):string; extern; */
 
-extern int _pargc;
-extern char** _pargv;
-extern char** _penvp;
-
-int argc()
+int argc(void)
 {
 	return (_pargc);
 }
 
-char* argv(i)
+char* argv(int i)
 {
 	if (i >= _pargc)
 		return (0);
 	return (_pargv[i]);
 }
 
-argshift()
+void argshift(void)
 {
 
 	if (_pargc > 1)
@@ -48,15 +45,3 @@ argshift()
 		_pargv++;
 	}
 }
-
-char* environ(i)
-{
-	char** p;
-	char* q;
-
-	if (p = _penvp)
-		while (q = *p++)
-			if (i-- < 0)
-				return (q);
-	return (0);
-}
diff --git a/lang/pc/libpc/ass.c b/lang/pc/libpc/ass.c
index c702d2642..3f888344a 100644
--- a/lang/pc/libpc/ass.c
+++ b/lang/pc/libpc/ass.c
@@ -19,12 +19,9 @@
 /* Author: J.W. Stevenson */
 
 #include <em_abs.h>
-#include <pc_err.h>
+#include "pc.h"
 
-extern char* _hol0();
-extern _trp();
-
-_ass(line, bool) int line, bool;
+void _ass(int line, int bool)
 {
 
 	if (bool == 0)
diff --git a/lang/pc/libpc/asz.c b/lang/pc/libpc/asz.c
index 304d13a18..9148e9b8b 100644
--- a/lang/pc/libpc/asz.c
+++ b/lang/pc/libpc/asz.c
@@ -16,16 +16,11 @@
  *
  */
 
+#include "pc.h"
+
 /* Author: J.W. Stevenson */
 
-struct descr
-{
-	int low;
-	int diff;
-	int size;
-};
-
-int _asz(dp) struct descr* dp;
+int _asz(struct descr* dp)
 {
 	return (dp->size * (dp->diff + 1));
 }
diff --git a/lang/pc/libpc/atn.c b/lang/pc/libpc/atn.c
index 2d05c7b4a..855dd2f80 100644
--- a/lang/pc/libpc/atn.c
+++ b/lang/pc/libpc/atn.c
@@ -10,12 +10,9 @@
 #define __NO_DEFS
 #include <math.h>
 
-#if __STDC__
-#include <pc_math.h>
-#endif
+#include "pc.h"
 
-double
-    _atn(x) double x;
+double _atn(double x)
 {
 	/*	Algorithm and coefficients from:
 			"Software manual for the elementary functions"
diff --git a/lang/pc/libpc/bcp.c b/lang/pc/libpc/bcp.c
index cb8d6a240..96dfc2b54 100644
--- a/lang/pc/libpc/bcp.c
+++ b/lang/pc/libpc/bcp.c
@@ -17,9 +17,9 @@
  */
 
 /* Author: J.W. Stevenson */
+#include "pc.h"
 
-int _bcp(sz, y, x) int sz;
-unsigned char *y, *x;
+int _bcp(int sz, unsigned char* y, unsigned char* x)
 {
 
 	while (--sz >= 0)
diff --git a/lang/pc/libpc/buff.c b/lang/pc/libpc/buff.c
index fdead046e..606ee088a 100644
--- a/lang/pc/libpc/buff.c
+++ b/lang/pc/libpc/buff.c
@@ -18,13 +18,11 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_file.h>
-
-extern _flush();
+#include "pc.h"
 
 /* procedure buff(var f:file of ?); */
 
-buff(f) struct file* f;
+void buff(struct file* f)
 {
 	int sz;
 
diff --git a/lang/pc/libpc/catch.c b/lang/pc/libpc/catch.c
index 127994c40..4221f9891 100644
--- a/lang/pc/libpc/catch.c
+++ b/lang/pc/libpc/catch.c
@@ -20,11 +20,7 @@
 #include <errno.h>
 #include <unistd.h>
 #include <em_abs.h>
-#include <pc_err.h>
-#include <pc_file.h>
-
-/* to make it easier to patch ... */
-extern struct file* _curfil;
+#include "pc.h"
 
 static struct errm
 {
@@ -83,14 +79,8 @@ static struct errm
 	{ -1, 0 }
 };
 
-extern int _pargc;
-extern char** _pargv;
-extern char** _penvp;
 
-extern char* _hol0();
-extern _trp();
-
-_catch(erno) unsigned erno;
+void _catch(unsigned int erno)
 {
 	register struct errm* ep = &errors[0];
 	char *p, *q, *s, **qq;
diff --git a/lang/pc/libpc/clock.c b/lang/pc/libpc/clock.c
deleted file mode 100644
index bd57240ec..000000000
--- a/lang/pc/libpc/clock.c
+++ /dev/null
@@ -1,49 +0,0 @@
-/* $Id$ */
-/*
- * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
- *
- *          This product is part of the Amsterdam Compiler Kit.
- *
- * Permission to use, sell, duplicate or disclose this software must be
- * obtained in writing. Requests for such permissions may be sent to
- *
- *      Dr. Andrew S. Tanenbaum
- *      Wiskundig Seminarium
- *      Vrije Universiteit
- *      Postbox 7161
- *      1007 MC Amsterdam
- *      The Netherlands
- *
- */
-
-/* Author: J.W. Stevenson */
-
-/* function clock:integer; extern; */
-
-extern int _times();
-
-struct tbuf
-{
-	long utime;
-	long stime;
-	long cutime;
-	long cstime;
-};
-
-#ifndef EM_WSIZE
-#define EM_WSIZE _EM_WSIZE
-#endif
-
-int clock()
-{
-	struct tbuf t;
-
-	_times(&t);
-	return ((int)(t.utime + t.stime) &
-#if EM_WSIZE <= 2
-	    077777
-#else
-	    0x7fffffffL
-#endif
-	    );
-}
diff --git a/lang/pc/libpc/cls.c b/lang/pc/libpc/cls.c
index dcf3e381d..2cf88fe83 100644
--- a/lang/pc/libpc/cls.c
+++ b/lang/pc/libpc/cls.c
@@ -20,15 +20,9 @@
 
 #include <stdlib.h>
 #include <unistd.h>
-#include <pc_file.h>
-#include <pc_err.h>
+#include "pc.h"
 
-extern struct file* _curfil;
-extern _trp();
-extern _flush();
-extern _outcpt();
-
-_xcls(f) struct file* f;
+void _xcls(struct file* f)
 {
 
 	if ((f->flags & WRBIT) == 0)
@@ -45,7 +39,7 @@ _xcls(f) struct file* f;
 	_flush(f);
 }
 
-_cls(f) struct file* f;
+void _cls(struct file* f)
 {
 #ifdef MAYBE
 	char* p;
diff --git a/lang/pc/libpc/cvt.c b/lang/pc/libpc/cvt.c
index bffe97eb5..2481a0f86 100644
--- a/lang/pc/libpc/cvt.c
+++ b/lang/pc/libpc/cvt.c
@@ -1,3 +1,5 @@
+#include "pc.h"
+
 /* $Id$ */
 #ifndef NOFLOAT
 
@@ -8,19 +10,16 @@
 #define DBL_MAX M_MAX_D
 #endif
 
-static char* cvt();
+static char* cvt(double value, int ndigit, int* decpt, int* sign, int ecvtflag);
+
 #define NDIGITS 128
 
-char*
-    _ecvt(value, ndigit, decpt, sign) double value;
-int ndigit, *decpt, *sign;
+char *_ecvt(double value, int ndigit, int *decpt, int *sign)
 {
 	return cvt(value, ndigit, decpt, sign, 1);
 }
 
-char*
-    _fcvt(value, ndigit, decpt, sign) double value;
-int ndigit, *decpt, *sign;
+char *_fcvt(double value, int ndigit, int *decpt, int *sign)
 {
 	return cvt(value, ndigit, decpt, sign, 0);
 }
@@ -40,9 +39,7 @@ static struct powers_of_10
 	1.0e0, 1.0e0, 0
 };
 
-static char*
-    cvt(value, ndigit, decpt, sign, ecvtflag) double value;
-int ndigit, *decpt, *sign;
+static char* cvt(double value, int ndigit, int* decpt, int* sign, int ecvtflag)
 {
 	static char buf[NDIGITS + 1];
 	register char* p = buf;
diff --git a/lang/pc/libpc/diag.c b/lang/pc/libpc/diag.c
index d4cffc0fd..69ca69c65 100644
--- a/lang/pc/libpc/diag.c
+++ b/lang/pc/libpc/diag.c
@@ -18,13 +18,12 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_file.h>
+#include "pc.h"
 
 /* procedure diag(var f:text); */
 
-diag(f) struct file* f;
+void diag(struct file* f)
 {
-
 	f->ptr = f->bufadr;
 	f->flags = WRBIT | EOFBIT | ELNBIT | TXTBIT | MAGIC;
 	f->fname = "DIAG";
diff --git a/lang/pc/libpc/efl.c b/lang/pc/libpc/efl.c
index 8f3f7b1d3..280a59e57 100644
--- a/lang/pc/libpc/efl.c
+++ b/lang/pc/libpc/efl.c
@@ -20,14 +20,9 @@
 
 #include <stdlib.h>
 #include <errno.h>
-#include <pc_file.h>
-#include <pc_err.h>
+#include "pc.h"
 
-extern struct file* _curfil;
-extern _trp();
-extern _incpt();
-
-int _efl(f) struct file* f;
+int _efl(struct file* f)
 {
 
 	_curfil = f;
diff --git a/lang/pc/libpc/eln.c b/lang/pc/libpc/eln.c
index ec6f53e05..beba1dc69 100644
--- a/lang/pc/libpc/eln.c
+++ b/lang/pc/libpc/eln.c
@@ -18,13 +18,9 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_file.h>
-#include <pc_err.h>
+#include "pc.h"
 
-extern _trp();
-extern _rf();
-
-int _eln(f) struct file* f;
+int _eln(struct file* f)
 {
 
 	_rf(f);
diff --git a/lang/pc/libpc/exp.c b/lang/pc/libpc/exp.c
index ab7eeb9a4..66def25e4 100644
--- a/lang/pc/libpc/exp.c
+++ b/lang/pc/libpc/exp.c
@@ -8,12 +8,10 @@
 /* $Id$ */
 #define __NO_DEFS
 #include <math.h>
-#include <pc_err.h>
-extern _trp();
+#include "pc.h"
 
 #if __STDC__
 #include <float.h>
-#include <pc_math.h>
 #define M_MIN_D DBL_MIN
 #define M_MAX_D DBL_MAX
 #define M_DMINEXP DBL_MIN_EXP
@@ -21,11 +19,8 @@ extern _trp();
 #undef HUGE
 #define HUGE 1e1000
 
-static double
-    Ldexp(fl, exp) double fl;
-int exp;
+static double Ldexp(double fl, int exp)
 {
-	extern double _fef();
 	int sign = 1;
 	int currexp;
 
@@ -57,8 +52,7 @@ int exp;
 	return sign * fl;
 }
 
-double
-    _exp(x) double x;
+double _exp(double x)
 {
 	/*	Algorithm and coefficients from:
 			"Software manual for the elementary functions"
diff --git a/lang/pc/libpc/get.c b/lang/pc/libpc/get.c
index 1b6c98f33..6c226f0e1 100644
--- a/lang/pc/libpc/get.c
+++ b/lang/pc/libpc/get.c
@@ -16,13 +16,9 @@
  *
  */
 
-#include <pc_file.h>
-#include <pc_err.h>
+#include "pc.h"
 
-extern _rf();
-extern _trp();
-
-_get(f) struct file* f;
+void _get(struct file* f)
 {
 
 	_rf(f);
diff --git a/lang/pc/libpc/hlt.c b/lang/pc/libpc/hlt.c
index 3e4fa0120..a761d51eb 100644
--- a/lang/pc/libpc/hlt.c
+++ b/lang/pc/libpc/hlt.c
@@ -18,14 +18,10 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_file.h>
+#include <unistd.h>
+#include "pc.h"
 
-extern struct file** _extfl;
-extern int _extflc;
-extern _cls();
-extern _exit();
-
-_hlt(ecode) int ecode;
+void _hlt(int ecode)
 {
 	int i;
 
diff --git a/lang/pc/libpc/incpt.c b/lang/pc/libpc/incpt.c
index 351ec7500..8e549d202 100644
--- a/lang/pc/libpc/incpt.c
+++ b/lang/pc/libpc/incpt.c
@@ -21,14 +21,10 @@
 #include <stdlib.h>
 #include <errno.h>
 #include <unistd.h>
-#include <pc_file.h>
-#include <pc_err.h>
+#include "pc.h"
 
-extern _trp();
-
-_incpt(f) struct file* f;
+void _incpt(struct file* f)
 {
-
 	if (f->flags & EOFBIT)
 		_trp(EEOF);
 	f->flags |= WINDOW;
diff --git a/lang/pc/libpc/ini.c b/lang/pc/libpc/ini.c
index 6f08daa83..d7e7e4d96 100644
--- a/lang/pc/libpc/ini.c
+++ b/lang/pc/libpc/ini.c
@@ -18,24 +18,21 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_file.h>
-#include <pc_err.h>
+#include "pc.h"
 
-extern (*_sig())();
-extern _catch();
-
-struct file** _extfl;
-int _extflc; /* number of external files */
-char* _m_lb; /* LB of _m_a_i_n */
-struct file* _curfil; /* points to file struct in case of errors */
 int _pargc;
 char** _pargv;
 char** _penvp;
+
+char* _m_lb; /* LB of _m_a_i_n */
+struct file* _curfil; /* points to file struct in case of errors */
+
+int _extflc;
+struct file** _extfl;
+
 int _fp_hook = 1; /* This is for Minix, but does not harm others */
 
-_ini(args, c, p, mainlb) char* args, *mainlb;
-int c;
-struct file** p;
+void _ini(char *args, int c, struct file **p, char *mainlb)
 {
 	struct file* f;
 
diff --git a/lang/pc/libpc/log.c b/lang/pc/libpc/log.c
index de1e8083c..2ee2270a1 100644
--- a/lang/pc/libpc/log.c
+++ b/lang/pc/libpc/log.c
@@ -9,17 +9,15 @@
 
 #define __NO_DEFS
 #include <math.h>
-#include <pc_err.h>
+#include "pc.h"
 
 #if __STDC__
-#include <pc_math.h>
 #include <float.h>
 #endif
 #undef HUGE
 #define HUGE 1e1000
 
-double
-    _log(x) double x;
+double _log(double x)
 {
 	/*	Algorithm and coefficients from:
 			"Software manual for the elementary functions"
@@ -37,7 +35,6 @@ double
 		1.0
 	};
 
-	extern double _fef();
 	double znum, zden, z, w;
 	int exponent;
 
diff --git a/lang/pc/libpc/mdi.c b/lang/pc/libpc/mdi.c
index 9b119da45..be0160b9f 100644
--- a/lang/pc/libpc/mdi.c
+++ b/lang/pc/libpc/mdi.c
@@ -18,11 +18,9 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_err.h>
+#include "pc.h"
 
-extern _trp();
-
-int _mdi(j, i) int j, i;
+int _mdi(int j, int i)
 {
 
 	if (j <= 0)
@@ -33,7 +31,7 @@ int _mdi(j, i) int j, i;
 	return (i);
 }
 
-long _mdil(j, i) long j, i;
+long _mdil(long j, long i)
 {
 
 	if (j <= 0)
@@ -44,7 +42,7 @@ long _mdil(j, i) long j, i;
 	return (i);
 }
 
-int _dvi(j, i) unsigned int j, i;
+int _dvi(unsigned int j, unsigned int i)
 {
 	int neg = 0;
 
@@ -64,7 +62,7 @@ int _dvi(j, i) unsigned int j, i;
 	return i;
 }
 
-long _dvil(j, i) unsigned long j, i;
+long _dvil(unsigned long j, unsigned long i)
 {
 	int neg = 0;
 
diff --git a/lang/pc/libpc/mdl.c b/lang/pc/libpc/mdl.c
index c7acd5c3d..1c87577fc 100644
--- a/lang/pc/libpc/mdl.c
+++ b/lang/pc/libpc/mdl.c
@@ -18,11 +18,9 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_err.h>
+#include "pc.h"
 
-extern _trp();
-
-long _mdl(j, i) long j, i;
+long _mdl(long j, long i)
 {
 
 	if (j <= 0)
diff --git a/lang/pc/libpc/new.c b/lang/pc/libpc/new.c
index faeb70c62..9ce78d41d 100644
--- a/lang/pc/libpc/new.c
+++ b/lang/pc/libpc/new.c
@@ -1,8 +1,6 @@
 #include <stdlib.h>
 #include <em_abs.h>
-#include <pc_err.h>
-
-extern void _trp(int); /* called on error */
+#include "pc.h"
 
 void _new(int n, void** ptr)
 {
diff --git a/lang/pc/libpc/nfa.c b/lang/pc/libpc/nfa.c
index d16f6332d..a876c7ee3 100644
--- a/lang/pc/libpc/nfa.c
+++ b/lang/pc/libpc/nfa.c
@@ -6,11 +6,9 @@
 
 /* Author: Hans van Eck */
 
-#include <pc_err.h>
+#include "pc.h"
 
-extern _trp();
-
-_nfa(bool)
+void _nfa(int bool)
 {
 	if (!bool)
 		_trp(EFUNASS);
diff --git a/lang/pc/libpc/nobuff.c b/lang/pc/libpc/nobuff.c
index 934e396c8..1f3967988 100644
--- a/lang/pc/libpc/nobuff.c
+++ b/lang/pc/libpc/nobuff.c
@@ -18,13 +18,11 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_file.h>
-
-extern _flush();
+#include "pc.h"
 
 /* procedure nobuff(var f:file of ?); */
 
-nobuff(f) struct file* f;
+void nobuff(struct file* f)
 {
 
 	if ((f->flags & (0377 | WRBIT)) != (MAGIC | WRBIT))
diff --git a/lang/pc/libpc/notext.c b/lang/pc/libpc/notext.c
index 3a22f98a0..2c0360913 100644
--- a/lang/pc/libpc/notext.c
+++ b/lang/pc/libpc/notext.c
@@ -16,9 +16,9 @@
  *
  */
 
-#include <pc_file.h>
+#include "pc.h"
 
-notext(f) struct file* f;
+void notext(struct file* f)
 {
 	f->flags &= ~TXTBIT;
 }
diff --git a/lang/pc/libpc/opn.c b/lang/pc/libpc/opn.c
index dd2ea7418..f39189a63 100644
--- a/lang/pc/libpc/opn.c
+++ b/lang/pc/libpc/opn.c
@@ -19,22 +19,11 @@
 /* Author: J.W. Stevenson */
 
 #include <stdlib.h>
+#include <fcntl.h>
 #include <unistd.h>
-#include <pc_file.h>
-#include <pc_err.h>
+#include "pc.h"
 
-extern struct file** _extfl;
-extern int _extflc;
-extern struct file* _curfil;
-extern int _pargc;
-extern char** _pargv;
-extern char** _penvp;
-
-extern _cls();
-extern _xcls();
-extern _trp();
-
-static int tmpfil()
+static int tmpfil(void)
 {
 	static char namebuf[] = "/tmp/plf.xxxxx";
 	int i;
@@ -55,15 +44,13 @@ static int tmpfil()
 		goto error;
 	if ((i = open(p, 2)) < 0)
 		goto error;
-	if (remove(p) != 0)
+	if (unlink(p) != 0)
 	error:
 		_trp(EREWR);
 	return (i);
 }
 
-static int initfl(descr, sz, f) int descr;
-int sz;
-struct file* f;
+static int initfl(int descr, int sz, struct file* f)
 {
 	int i;
 
@@ -117,16 +104,14 @@ struct file* f;
 	return (1);
 }
 
-_opn(sz, f) int sz;
-struct file* f;
+void _opn(int sz, struct file* f)
 {
 
 	if (initfl(MAGIC, sz, f))
 		f->count = 0;
 }
 
-_cre(sz, f) int sz;
-struct file* f;
+void _cre(int sz, struct file* f)
 {
 
 	if (initfl(WRBIT | EOFBIT | ELNBIT | MAGIC, sz, f))
diff --git a/lang/pc/libpc/outcpt.c b/lang/pc/libpc/outcpt.c
index 1e7693bc0..18993bf0a 100644
--- a/lang/pc/libpc/outcpt.c
+++ b/lang/pc/libpc/outcpt.c
@@ -21,12 +21,9 @@
 #include <stdlib.h>
 #include <errno.h>
 #include <unistd.h>
-#include <pc_file.h>
-#include <pc_err.h>
+#include "pc.h"
 
-extern _trp();
-
-_flush(f) struct file* f;
+void _flush(struct file* f)
 {
 	int i, n;
 
@@ -41,7 +38,7 @@ _flush(f) struct file* f;
 		_trp(EWRITE);
 }
 
-_outcpt(f) struct file* f;
+void _outcpt(struct file* f)
 {
 
 	f->flags &= ~ELNBIT;
diff --git a/lang/pc/libpc/pac.c b/lang/pc/libpc/pac.c
index 22cedbf88..a779c0ffc 100644
--- a/lang/pc/libpc/pac.c
+++ b/lang/pc/libpc/pac.c
@@ -18,9 +18,7 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_err.h>
-
-extern _trp();
+#include "pc.h"
 
 #define assert(x) /* nothing */
 
@@ -28,16 +26,7 @@ extern _trp();
 #define EM_WSIZE _EM_WSIZE
 #endif
 
-struct descr
-{
-	int low;
-	int diff;
-	int size;
-};
-
-_pac(ad, zd, zp, i, ap) int i;
-struct descr *ad, *zd;
-char *zp, *ap;
+void _pac(struct descr *ad, struct descr *zd, char *zp, int i, char *ap)
 {
 
 	if (zd->diff > ad->diff || (i -= ad->low) < 0 || (i + zd->diff) > ad->diff)
diff --git a/lang/pc/libpc/pc.h b/lang/pc/libpc/pc.h
index b3f533eab..a38c62637 100644
--- a/lang/pc/libpc/pc.h
+++ b/lang/pc/libpc/pc.h
@@ -5,11 +5,36 @@
 #include "pc_file.h"
 #include "pc_math.h"
 
+struct descr
+{
+	int low;
+	int diff;
+	int size;
+};
+
+struct array_descr
+{
+	int lbound;
+	unsigned n_elts_min_one;
+	unsigned size; /* doesn't really matter */
+};
+
+
+extern int _extflc;
+extern struct file** _extfl;
+
+extern struct file* _curfil;
+extern int _pargc;
+extern char** _pargv;
+extern char** _penvp;
+
+extern char* _m_lb; /* LB of _m_a_i_n */
+extern struct file* _curfil; /* points to file struct in case of errors */
+
 extern char *_ecvt(double value, int ndigit, int *decpt, int *sign);
 extern char *_fcvt(double value, int ndigit, int *decpt, int *sign);
 extern char *_wdw(struct file *f);
 extern char *argv(int i);
-extern char *environ(int i);
 extern char *strbuf(char *s);
 extern double _abr(double r);
 extern double _atn(double x);
@@ -18,67 +43,25 @@ extern double _exp(double x);
 extern double _log(double x);
 extern double _rdr(struct file *f);
 extern double _rnd(double r);
+extern void _sig(void (*)(unsigned int));
 extern double _sin(double x);
 extern double _sqt(double x);
-extern int _abi(int i);
-extern int _ass(int line, int bool);
-extern int _asz(struct descr *dp);
-extern int _bcp(int sz, unsigned char *y, unsigned char *x);
-extern int _catch(unsigned erno);
-extern int _cls(struct file *f);
-extern int _cre(int sz, struct file *f);
-extern int _dvi(unsigned int j, unsigned int i);
-extern int _efl(struct file *f);
-extern int _eln(struct file *f);
-extern int _flush(struct file *f);
-extern int _fstdig(struct file *f);
-extern int _get(struct file *f);
-extern int _getint(struct file *f);
-extern int _getsig(struct file *f);
-extern int _hlt(int ecode);
-extern int _incpt(struct file *f);
-extern int _ini(char *args, int c, struct file **p, char *mainlb);
-extern int _mdi(int j, int i);
-extern int _nfa(int bool);
-extern int _nxtdig(struct file *f);
-extern int _opn(int sz, struct file *f);
-extern int _outcpt(struct file *f);
-extern int _pac(struct descr *ad, struct descr *zd, char *zp, int i, char *ap);
-extern int _pag(struct file *f);
-extern int _put(struct file *f);
-extern int _rcka(struct array_descr *descr, int index);
-extern int _rdc(struct file *f);
-extern int _rdi(struct file *f);
-extern int _rf(struct file *f);
-extern int _rln(struct file *f);
-extern int _skipsp(struct file *f);
-extern int _unp(struct descr *ad, struct descr *zd, int i, char *ap, char *zp, int noext);
-extern int _wf(struct file *f);
-extern int _wln(struct file *f);
-extern int _wrc(int c, struct file *f);
-extern int _wrf(int n, int w, double r, struct file *f);
-extern int _wri(int i, struct file *f);
-extern int _wrl(long l, struct file *f);
-extern int _wrr(double r, struct file *f);
-extern int _wsl(int w, long l, struct file *f);
-extern int _wsr(int w, double r, struct file *f);
-extern int _xcls(struct file *f);
+extern void _xcls(struct file *f);
 extern int argc(void);
-extern int argshift(void);
-extern int buff(struct file *f);
-extern int clock(void);
-extern int diag(struct file *f);
-extern int nobuff(struct file *f);
-extern int notext(struct file *f);
-extern int pclose(struct file *f);
-extern int pcreat(struct file *f, char *s);
+extern void argshift(void);
+extern void buff(struct file *f);
+extern void diag(struct file *f);
+extern void nobuff(struct file *f);
+extern void notext(struct file *f);
+extern void pclose(struct file *f);
+extern void pcreat(struct file *f, char *s);
 extern int perrno(void);
-extern int popen(struct file *f, char *s);
-extern int procentry(char *name);
-extern int procexit(char *name);
+extern void popen(struct file *f, char *s);
+extern void procentry(char *name);
+extern void procexit(char *name);
 extern int strfetch(char *s, int i);
 extern int strlen(char *s);
-extern int strstore(char *s, int i, int c);
+extern void strstore(char *s, int i, int c);
 extern int strtobuf(char *s, char *b, int l);
 extern int uread(int fd, char *b, int n);
 extern int uwrite(int fd, char *b, int n);
@@ -87,16 +70,62 @@ extern long _dvil(unsigned long j, unsigned long i);
 extern long _mdil(long j, long i);
 extern long _mdl(long j, long i);
 extern long _rdl(struct file *f);
+extern int _abi(int i);
+extern void _ass(int line, int bool);
+extern int _asz(struct descr *dp);
+extern int _bcp(int sz, unsigned char *y, unsigned char *x);
+extern void _catch(unsigned erno);
+extern void _cls(struct file *f);
+extern void _cre(int sz, struct file *f);
 extern void _dis(int n, void **ptr);
+extern int _dvi(unsigned int j, unsigned int i);
+extern int _efl(struct file *f);
+extern int _eln(struct file *f);
+extern double _fef(double fl, int* res);
+extern double _fif(double f1, double f2, double* f3);
+extern void _flush(struct file *f);
+extern int _fstdig(struct file *f);
+extern void _get(struct file *f);
+extern int _getint(struct file *f);
+extern int _getsig(struct file *f);
+extern void _hlt(int ecode);
+extern void _incpt(struct file *f);
+extern void _ini(char *args, int c, struct file **p, char *mainlb);
+extern int _mdi(int j, int i);
 extern void _new(int n, void **ptr);
+extern void _nfa(int bool);
+extern int _nxtdig(struct file *f);
+extern void _opn(int sz, struct file *f);
+extern void _outcpt(struct file *f);
+extern void _pac(struct descr *ad, struct descr *zd, char *zp, int i, char *ap);
+extern void _pag(struct file *f);
+extern void _put(struct file *f);
+extern void _rcka(struct array_descr *descr, int index);
+extern int _rdc(struct file *f);
+extern int _rdi(struct file *f);
+extern void _rf(struct file *f);
+extern void _rln(struct file *f);
+extern void _skipsp(struct file *f);
 extern void _trp(int trapno);
+extern void _unp(struct descr *ad, struct descr *zd, int i, char *ap, char *zp, int noext);
+extern void _wf(struct file *f);
+extern void _wln(struct file *f);
 extern void _wrb(int b, struct file *f);
+extern void _wrc(int c, struct file *f);
+extern void _wrf(int n, int w, double r, struct file *f);
+extern void _wri(int i, struct file *f);
+extern void _wrl(long l, struct file *f);
+extern void _wrr(double r, struct file *f);
 extern void _wrs(int len, char *s, struct file *f);
 extern void _wrz(char *s, struct file *f);
 extern void _wsb(int w, int b, struct file* f);
 extern void _wsc(int w, char c, struct file* f);
+extern void _wsi(int w, int i, struct file* f);
+extern void _wsl(int w, long l, struct file *f);
+extern void _wsr(int w, double r, struct file *f);
 extern void _wss(int w, int len, char* s, struct file* f);
 extern void _wstrin(int width, int len, char* buf, struct file* f);
 extern void _wsz(int w, char* s, struct file* f);
+extern char* _hol0(void);
 
 #endif 
diff --git a/lang/pc/libpc/pclose.c b/lang/pc/libpc/pclose.c
index 4f94168d9..270e7e5b0 100644
--- a/lang/pc/libpc/pclose.c
+++ b/lang/pc/libpc/pclose.c
@@ -16,13 +16,11 @@
  *
  */
 
-#include <pc_file.h>
-
-extern _cls();
+#include "pc.h"
 
 /* procedure pclose(var f:file of ??); */
 
-pclose(f) struct file* f;
+void pclose(struct file* f)
 {
 	_cls(f);
 }
diff --git a/lang/pc/libpc/pcreat.c b/lang/pc/libpc/pcreat.c
index 3b522d1ff..39c8caa7c 100644
--- a/lang/pc/libpc/pcreat.c
+++ b/lang/pc/libpc/pcreat.c
@@ -19,16 +19,11 @@
 /* Author: J.W. Stevenson */
 
 #include <unistd.h>
-#include <pc_file.h>
-#include <pc_err.h>
-
-extern _cls();
-extern _trp();
+#include "pc.h"
 
 /* procedure pcreat(var f:text; s:string); */
 
-pcreat(f, s) struct file* f;
-char* s;
+void pcreat(struct file* f, char* s)
 {
 
 	_cls(f); /* initializes _curfil */
diff --git a/lang/pc/libpc/pentry.c b/lang/pc/libpc/pentry.c
index 16ce893e6..bb3806d36 100644
--- a/lang/pc/libpc/pentry.c
+++ b/lang/pc/libpc/pentry.c
@@ -18,14 +18,9 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_file.h>
+#include "pc.h"
 
-extern struct file** _extfl;
-extern _wrs();
-extern _wrz();
-extern _wln();
-
-procentry(name) char* name;
+void procentry(char* name)
 {
 	struct file* f;
 
diff --git a/lang/pc/libpc/perrno.c b/lang/pc/libpc/perrno.c
index 488cbc4fe..e57e8b350 100644
--- a/lang/pc/libpc/perrno.c
+++ b/lang/pc/libpc/perrno.c
@@ -19,8 +19,9 @@
 /* function perrno:integer; extern; */
 
 #include <errno.h>
+#include "pc.h"
 
-int perrno()
+int perrno(void)
 {
 	return (errno);
 }
diff --git a/lang/pc/libpc/pexit.c b/lang/pc/libpc/pexit.c
index a8d1d438d..b42f71e25 100644
--- a/lang/pc/libpc/pexit.c
+++ b/lang/pc/libpc/pexit.c
@@ -16,14 +16,9 @@
  *
  */
 
-#include <pc_file.h>
+#include "pc.h"
 
-extern struct file** _extfl;
-extern _wrs();
-extern _wrz();
-extern _wln();
-
-procexit(name) char* name;
+void procexit(char* name)
 {
 	struct file* f;
 
diff --git a/lang/pc/libpc/popen.c b/lang/pc/libpc/popen.c
index b180f9b67..2355913fa 100644
--- a/lang/pc/libpc/popen.c
+++ b/lang/pc/libpc/popen.c
@@ -18,19 +18,13 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_file.h>
-#include <pc_err.h>
-
-extern _cls();
-extern _trp();
-extern int _open();
+#include "fcntl.h"
+#include "pc.h"
 
 /* procedure popen(var f:text; s:string); */
 
-popen(f, s) struct file* f;
-char* s;
+void popen(struct file* f, char* s)
 {
-
 	_cls(f); /* initializes _curfil */
 	f->ptr = f->bufadr;
 	f->flags = TXTBIT | MAGIC;
@@ -38,6 +32,6 @@ char* s;
 	f->size = 1;
 	f->count = 0;
 	f->buflen = PC_BUFLEN;
-	if ((f->ufd = _open(s, 0)) < 0)
+	if ((f->ufd = open(s, 0)) < 0)
 		_trp(ERESET);
 }
diff --git a/lang/pc/libpc/put.c b/lang/pc/libpc/put.c
index e127115d5..d2b832f94 100644
--- a/lang/pc/libpc/put.c
+++ b/lang/pc/libpc/put.c
@@ -16,12 +16,9 @@
  *
  */
 
-#include <pc_file.h>
+#include "pc.h"
 
-extern _wf();
-extern _outcpt();
-
-_put(f) struct file* f;
+void _put(struct file* f)
 {
 	_wf(f);
 	_outcpt(f);
diff --git a/lang/pc/libpc/rcka.c b/lang/pc/libpc/rcka.c
index 732f4c12a..055b7d1c5 100644
--- a/lang/pc/libpc/rcka.c
+++ b/lang/pc/libpc/rcka.c
@@ -6,18 +6,10 @@
 
 /* Author: Hans van Eck */
 
+#include "pc.h"
 #include <em_abs.h>
 
-extern _trp();
-
-struct array_descr
-{
-	int lbound;
-	unsigned n_elts_min_one;
-	unsigned size; /* doesn't really matter */
-};
-
-_rcka(descr, index) struct array_descr* descr;
+void _rcka(struct array_descr* descr, int index)
 {
 	if (index < descr->lbound || index > (int)descr->n_elts_min_one + descr->lbound)
 		_trp(EARRAY);
diff --git a/lang/pc/libpc/rdc.c b/lang/pc/libpc/rdc.c
index 27df316f1..ef7eb3051 100644
--- a/lang/pc/libpc/rdc.c
+++ b/lang/pc/libpc/rdc.c
@@ -16,12 +16,9 @@
  *
  */
 
-#include <pc_file.h>
+#include "pc.h"
 
-extern _rf();
-extern _incpt();
-
-int _rdc(f) struct file* f;
+int _rdc(struct file* f)
 {
 	int c;
 
diff --git a/lang/pc/libpc/rdi.c b/lang/pc/libpc/rdi.c
index eaf3117cf..33e1de897 100644
--- a/lang/pc/libpc/rdi.c
+++ b/lang/pc/libpc/rdi.c
@@ -18,20 +18,15 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_file.h>
-#include <pc_err.h>
+#include "pc.h"
 
-extern _trp();
-extern _rf();
-extern _incpt();
-
-_skipsp(f) struct file* f;
+void _skipsp(struct file* f)
 {
 	while ((*f->ptr == ' ') || (*f->ptr == '\t'))
 		_incpt(f);
 }
 
-int _getsig(f) struct file* f;
+int _getsig(struct file* f)
 {
 	int sign;
 
@@ -40,7 +35,7 @@ int _getsig(f) struct file* f;
 	return (sign);
 }
 
-int _fstdig(f) struct file* f;
+int _fstdig(struct file* f)
 {
 	int ch;
 
@@ -53,7 +48,7 @@ int _fstdig(f) struct file* f;
 	return (ch);
 }
 
-int _nxtdig(f) struct file* f;
+int _nxtdig(struct file* f)
 {
 	int ch;
 
@@ -64,7 +59,7 @@ int _nxtdig(f) struct file* f;
 	return (ch);
 }
 
-int _getint(f) struct file* f;
+int _getint(struct file* f)
 {
 	int is_signed, i, ch;
 
@@ -77,7 +72,7 @@ int _getint(f) struct file* f;
 	return (is_signed ? i : -i);
 }
 
-int _rdi(f) struct file* f;
+int _rdi(struct file* f)
 {
 	_rf(f);
 	_skipsp(f);
diff --git a/lang/pc/libpc/rdl.c b/lang/pc/libpc/rdl.c
index 3cf731f5b..110d4130d 100644
--- a/lang/pc/libpc/rdl.c
+++ b/lang/pc/libpc/rdl.c
@@ -18,15 +18,9 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_file.h>
+#include "pc.h"
 
-extern _rf();
-extern _skipsp();
-extern int _getsig();
-extern int _fstdig();
-extern int _nxtdig();
-
-long _rdl(f) struct file* f;
+long _rdl(struct file* f)
 {
 	int is_signed, ch;
 	long l;
diff --git a/lang/pc/libpc/rdr.c b/lang/pc/libpc/rdr.c
index 5c8ccec51..c8112fac8 100644
--- a/lang/pc/libpc/rdr.c
+++ b/lang/pc/libpc/rdr.c
@@ -18,22 +18,14 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_file.h>
+#include "pc.h"
 
 #define BIG 1e17
 
-extern _rf();
-extern _incpt();
-extern _skipsp();
-extern int _getsig();
-extern int _getint();
-extern int _fstdig();
-extern int _nxtdig();
-
 static double r;
 static int pow10;
 
-static dig(ch) int ch;
+static void dig(int ch)
 {
 
 	if (r > BIG)
@@ -42,7 +34,7 @@ static dig(ch) int ch;
 		r = r * 10.0 + ch;
 }
 
-double _rdr(f) struct file* f;
+double _rdr(struct file* f)
 {
 	int i;
 	double e;
diff --git a/lang/pc/libpc/rf.c b/lang/pc/libpc/rf.c
index a90a9aeb5..498408836 100644
--- a/lang/pc/libpc/rf.c
+++ b/lang/pc/libpc/rf.c
@@ -16,14 +16,9 @@
  *
  */
 
-#include <pc_file.h>
-#include <pc_err.h>
+#include "pc.h"
 
-extern struct file* _curfil;
-extern _trp();
-extern _incpt();
-
-_rf(f) struct file* f;
+void _rf(struct file* f)
 {
 
 	_curfil = f;
diff --git a/lang/pc/libpc/rln.c b/lang/pc/libpc/rln.c
index 2c95f4415..20d61f53f 100644
--- a/lang/pc/libpc/rln.c
+++ b/lang/pc/libpc/rln.c
@@ -16,12 +16,9 @@
  *
  */
 
-#include <pc_file.h>
+#include "pc.h"
 
-extern _rf();
-extern _incpt();
-
-_rln(f) struct file* f;
+void _rln(struct file* f)
 {
 
 	_rf(f);
diff --git a/lang/pc/libpc/rnd.c b/lang/pc/libpc/rnd.c
index 67fe2f379..6709ce1f9 100644
--- a/lang/pc/libpc/rnd.c
+++ b/lang/pc/libpc/rnd.c
@@ -16,7 +16,9 @@
  *
  */
 
-double _rnd(r) double r;
+#include "pc.h"
+
+double _rnd(double r)
 {
 	return (r + (r < 0 ? -0.5 : 0.5));
 }
diff --git a/lang/pc/libpc/sin.c b/lang/pc/libpc/sin.c
index a483bed66..3b5965369 100644
--- a/lang/pc/libpc/sin.c
+++ b/lang/pc/libpc/sin.c
@@ -9,13 +9,9 @@
 
 #define __NO_DEFS
 #include <math.h>
+#include "pc.h"
 
-#if __STDC__
-#include <pc_math.h>
-#endif
-
-static double
-    sinus(x, cos_flag) double x;
+static double sinus(double x, int cos_flag)
 {
 	/*	Algorithm and coefficients from:
 			"Software manual for the elementary functions"
@@ -62,7 +58,6 @@ static double
 #define A2 -8.908910206761537356617e-6
 	{
 		double x1, x2;
-		extern double _fif();
 
 		_fif(y, 1.0, &y);
 		if (_fif(y, 0.5, &x1))
@@ -90,14 +85,12 @@ static double
 	return neg ? -x : x;
 }
 
-double
-    _sin(x) double x;
+double _sin(double x)
 {
 	return sinus(x, 0);
 }
 
-double
-    _cos(x) double x;
+double _cos(double x)
 {
 	if (x < 0)
 		x = -x;
diff --git a/lang/pc/libpc/sqt.c b/lang/pc/libpc/sqt.c
index efaf7053d..122bab100 100644
--- a/lang/pc/libpc/sqt.c
+++ b/lang/pc/libpc/sqt.c
@@ -8,16 +8,12 @@
 /* $Id$ */
 #define __NO_DEFS
 #include <math.h>
-#include <pc_err.h>
-extern _trp();
+#include "pc.h"
 
 #define NITER 5
 
-static double
-    Ldexp(fl, exp) double fl;
-int exp;
+static double Ldexp(double fl, int exp)
 {
-	extern double _fef();
 	int sign = 1;
 	int currexp;
 
@@ -49,10 +45,8 @@ int exp;
 	return sign * fl;
 }
 
-double
-    _sqt(x) double x;
+double _sqt(double x)
 {
-	extern double _fef();
 	int exponent;
 	double val;
 
diff --git a/lang/pc/libpc/string.c b/lang/pc/libpc/string.c
index 8cc8a68f5..0da9b4764 100644
--- a/lang/pc/libpc/string.c
+++ b/lang/pc/libpc/string.c
@@ -16,16 +16,18 @@
  *
  */
 
+#include "pc.h"
+
 /* function strbuf(var b:charbuf):string; */
 
-char* strbuf(s) char* s;
+char* strbuf(char* s)
 {
 	return (s);
 }
 
 /* function strtobuf(s:string; var b:charbuf; blen:integer):integer; */
 
-int strtobuf(s, b, l) char *s, *b;
+int strtobuf(char* s, char* b, int l)
 {
 	int i;
 
@@ -41,7 +43,7 @@ int strtobuf(s, b, l) char *s, *b;
 
 /* function strlen(s:string):integer; */
 
-int strlen(s) char* s;
+int strlen(char* s)
 {
 	int i;
 
@@ -53,14 +55,14 @@ int strlen(s) char* s;
 
 /* function strfetch(s:string; i:integer):char; */
 
-int strfetch(s, i) char* s;
+int strfetch(char* s, int i)
 {
 	return (s[i - 1]);
 }
 
 /* procedure strstore(s:string; i:integer; c:char); */
 
-strstore(s, i, c) char* s;
+void strstore(char* s, int i, int c)
 {
 	s[i - 1] = c;
 }
diff --git a/lang/pc/libpc/unp.c b/lang/pc/libpc/unp.c
index 3479fa70b..b335f78ee 100644
--- a/lang/pc/libpc/unp.c
+++ b/lang/pc/libpc/unp.c
@@ -18,9 +18,7 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_err.h>
-
-extern _trp();
+#include "pc.h"
 
 #define assert(x) /* nothing */
 
@@ -28,17 +26,7 @@ extern _trp();
 #define EM_WSIZE _EM_WSIZE
 #endif
 
-struct descr
-{
-	int low;
-	int diff;
-	int size;
-};
-
-_unp(ad, zd, i, ap, zp, noext) int i;
-struct descr *ad, *zd;
-char *ap, *zp;
-int noext;
+void _unp(struct descr *ad, struct descr *zd, int i, char *ap, char *zp, int noext)
 {
 
 	if (zd->diff > ad->diff || (i -= ad->low) < 0 || (i + zd->diff) > ad->diff)
diff --git a/lang/pc/libpc/uread.c b/lang/pc/libpc/uread.c
index b20c3c0bb..c9de43867 100644
--- a/lang/pc/libpc/uread.c
+++ b/lang/pc/libpc/uread.c
@@ -20,9 +20,9 @@
 
 #include <stdlib.h>
 #include <unistd.h>
+#include "pc.h"
 
-int uread(fd, b, n) char* b;
-int fd, n;
+int uread(int fd, char* b, int n)
 {
 	return (read(fd, b, n));
 }
diff --git a/lang/pc/libpc/uwrite.c b/lang/pc/libpc/uwrite.c
index bf8381cd7..35451b707 100644
--- a/lang/pc/libpc/uwrite.c
+++ b/lang/pc/libpc/uwrite.c
@@ -20,9 +20,9 @@
 
 #include <stdlib.h>
 #include <unistd.h>
+#include "pc.h"
 
-int uwrite(fd, b, n) char* b;
-int fd, n;
+int uwrite(int fd, char* b, int n)
 {
 	return (write(fd, b, n));
 }
diff --git a/lang/pc/libpc/wdw.c b/lang/pc/libpc/wdw.c
index 0c45bf215..c91a6d775 100644
--- a/lang/pc/libpc/wdw.c
+++ b/lang/pc/libpc/wdw.c
@@ -16,14 +16,10 @@
  *
  */
 
-#include <pc_file.h>
+#include "pc.h"
 
-extern struct file* _curfil;
-extern _incpt();
-
-char* _wdw(f) struct file* f;
+char* _wdw(struct file* f)
 {
-
 	_curfil = f;
 	if ((f->flags & (WINDOW | WRBIT | 0377)) == MAGIC)
 		_incpt(f);
diff --git a/lang/pc/libpc/wf.c b/lang/pc/libpc/wf.c
index 945d72533..a554fcfef 100644
--- a/lang/pc/libpc/wf.c
+++ b/lang/pc/libpc/wf.c
@@ -16,13 +16,9 @@
  *
  */
 
-#include <pc_file.h>
-#include <pc_err.h>
+#include "pc.h"
 
-extern struct file* _curfil;
-extern _trp();
-
-_wf(f) struct file* f;
+void _wf(struct file* f)
 {
 
 	_curfil = f;
diff --git a/lang/pc/libpc/wrc.c b/lang/pc/libpc/wrc.c
index 437d73a54..9055050da 100644
--- a/lang/pc/libpc/wrc.c
+++ b/lang/pc/libpc/wrc.c
@@ -16,20 +16,16 @@
  *
  */
 
-#include <pc_file.h>
+#include "pc.h"
 
-extern _wf();
-extern _outcpt();
-
-_wrc(c, f) int c;
-struct file* f;
+void _wrc(int c, struct file* f)
 {
 	*f->ptr = c;
 	_wf(f);
 	_outcpt(f);
 }
 
-_wln(f) struct file* f;
+void _wln(struct file* f)
 {
 #ifdef CPM
 	_wrc('\r', f);
@@ -38,7 +34,7 @@ _wln(f) struct file* f;
 	f->flags |= ELNBIT;
 }
 
-_pag(f) struct file* f;
+void _pag(struct file* f)
 {
 	_wrc('\014', f);
 	f->flags |= ELNBIT;
diff --git a/lang/pc/libpc/wrf.c b/lang/pc/libpc/wrf.c
index 5c213c7c6..5662ad89b 100644
--- a/lang/pc/libpc/wrf.c
+++ b/lang/pc/libpc/wrf.c
@@ -18,11 +18,7 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_err.h>
-#include <pc_file.h>
-
-extern _wstrin();
-extern char* _fcvt();
+#include "pc.h"
 
 #define assert(x) /* nothing */
 
@@ -36,9 +32,7 @@ extern char* _fcvt();
 #define FILL_CHAR '0' /* char printed if all of _fcvt() used */
 #define BUFSIZE HUGE_DIG + PREC_DIG + 3
 
-_wrf(n, w, r, f) int n, w;
-double r;
-struct file* f;
+void _wrf(int n, int w, double r, struct file* f)
 {
 	char *p, *b;
 	int s, d;
diff --git a/lang/pc/libpc/wri.c b/lang/pc/libpc/wri.c
index b027bc6f9..7a30a6ce9 100644
--- a/lang/pc/libpc/wri.c
+++ b/lang/pc/libpc/wri.c
@@ -16,10 +16,7 @@
  *
  */
 
-#include <pc_err.h>
-#include <pc_file.h>
-
-extern _wstrin();
+#include "pc.h"
 
 #ifndef EM_WSIZE
 #ifdef _EM_WSIZE
@@ -47,9 +44,7 @@ extern _wstrin();
 Something wrong here !
 #endif
 
-    _wsi(w, i, f) int w,
-    i;
-struct file* f;
+void _wsi(int w, int i, struct file* f)
 {
 	char* p;
 	int j;
@@ -75,8 +70,7 @@ struct file* f;
 	_wstrin(w, (int)(&buf[SZ] - p), p, f);
 }
 
-_wri(i, f) int i;
-struct file* f;
+void _wri(int i, struct file* f)
 {
 	_wsi(SZ, i, f);
 }
diff --git a/lang/pc/libpc/wrl.c b/lang/pc/libpc/wrl.c
index c5bfff928..eafb912ab 100644
--- a/lang/pc/libpc/wrl.c
+++ b/lang/pc/libpc/wrl.c
@@ -18,16 +18,10 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_err.h>
-#include <pc_file.h>
+#include "pc.h"
+#include <limits.h>
 
-extern _wstrin();
-
-#define MAXNEGLONG -2147483648
-
-_wsl(w, l, f) int w;
-long l;
-struct file* f;
+void _wsl(int w, long l, struct file* f)
 {
 	char *p, c;
 	long j;
@@ -38,7 +32,7 @@ struct file* f;
 	p = &buf[11];
 	if ((j = l) < 0)
 	{
-		if (l == MAXNEGLONG)
+		if (l == LONG_MIN)
 		{
 			_wstrin(w, 11, "-2147483648", f);
 			return;
@@ -55,8 +49,7 @@ struct file* f;
 	_wstrin(w, (int)(&buf[11] - p), p, f);
 }
 
-_wrl(l, f) long l;
-struct file* f;
+void _wrl(long l, struct file* f)
 {
 	_wsl(11, l, f);
 }
diff --git a/lang/pc/libpc/wrr.c b/lang/pc/libpc/wrr.c
index 8f99062ca..c61ec2f5b 100644
--- a/lang/pc/libpc/wrr.c
+++ b/lang/pc/libpc/wrr.c
@@ -18,17 +18,11 @@
 
 /* Author: J.W. Stevenson */
 
-#include <pc_err.h>
-#include <pc_file.h>
-
-extern _wstrin();
-extern char* _ecvt();
+#include "pc.h"
 
 #define PREC_DIG 80 /* maximum digits produced by _ecvt() */
 
-_wsr(w, r, f) int w;
-double r;
-struct file* f;
+void _wsr(int w, double r, struct file* f)
 {
 	char *p, *b;
 	int s, d, i;
@@ -72,8 +66,7 @@ struct file* f;
 	_wstrin(w, (int)(p - buf), buf, f);
 }
 
-_wrr(r, f) double r;
-struct file* f;
+void _wrr(double r, struct file* f)
 {
 	_wsr(13, r, f);
 }
diff --git a/plat/cpm/include/unistd.h b/plat/cpm/include/unistd.h
index ea4f51c0f..99f1fb2d4 100644
--- a/plat/cpm/include/unistd.h
+++ b/plat/cpm/include/unistd.h
@@ -45,6 +45,7 @@ extern int open(const char* path, int access, ...);
 extern int creat(const char* path, mode_t mode);
 extern int read(int fd, void* buffer, size_t count);
 extern int write(int fd, void* buffer, size_t count);
+extern int unlink(const char* path);
 
 /* Unimplemented system calls (these are just prototypes to let the library
  * compile). */
diff --git a/plat/pc86/include/unistd.h b/plat/pc86/include/unistd.h
index 174c43ad0..77bdcf10d 100644
--- a/plat/pc86/include/unistd.h
+++ b/plat/pc86/include/unistd.h
@@ -46,6 +46,7 @@ extern int open(const char* path, int access, ...);
 extern int creat(const char* path, mode_t mode);
 extern int read(int fd, void* buffer, size_t count);
 extern int write(int fd, void* buffer, size_t count);
+extern int unlink(const char* path);
 
 /* Unimplemented system calls (these are just prototypes to let the library
  * compile). */
diff --git a/plat/pdpv7/include/unistd.h b/plat/pdpv7/include/unistd.h
index 2b48dd6bf..31167015f 100644
--- a/plat/pdpv7/include/unistd.h
+++ b/plat/pdpv7/include/unistd.h
@@ -67,6 +67,7 @@ extern int open(const char* path, int access, ...);
 extern int creat(const char* path, mode_t mode);
 extern int read(int fd, void* buffer, size_t count);
 extern int write(int fd, void* buffer, size_t count);
+extern int unlink(const char* path);
 
 /* Unimplemented system calls (these are just prototypes to let the library
  * compile). */
diff --git a/plat/rpi/include/unistd.h b/plat/rpi/include/unistd.h
index 6c220d10f..506d781ee 100644
--- a/plat/rpi/include/unistd.h
+++ b/plat/rpi/include/unistd.h
@@ -67,6 +67,7 @@ extern int open(const char* path, int access, ...);
 extern int creat(const char* path, mode_t mode);
 extern int read(int fd, void* buffer, size_t count);
 extern int write(int fd, void* buffer, size_t count);
+extern int unlink(const char* path);
 
 /* Unimplemented system calls (these are just prototypes to let the library
  * compile). */

From 698613cd7d9d2c17688473fe11e09257940eb266 Mon Sep 17 00:00:00 2001
From: David Given <dg@cowlark.com>
Date: Mon, 18 Jun 2018 22:17:38 +0200
Subject: [PATCH 8/8] Turns out that the compiler needs access to the libpc
 headers too; refactor into a separate target to avoid build loops and make it
 work.

---
 lang/pc/comp/build.lua               |   1 +
 lang/pc/comp/proto.main              |  65 -----------
 lang/pc/comp/proto.make              | 154 ---------------------------
 lang/pc/include/build.lua            |   4 +
 lang/pc/{libpc => include}/pc.h      |  58 +++++-----
 lang/pc/{libpc => include}/pc_err.h  |   0
 lang/pc/{libpc => include}/pc_file.h |   0
 lang/pc/{libpc => include}/pc_math.h |   0
 lang/pc/libpc/Makefile               |  13 ---
 lang/pc/libpc/build.lua              |   8 +-
 plat/build.lua                       |   4 +-
 11 files changed, 41 insertions(+), 266 deletions(-)
 delete mode 100644 lang/pc/comp/proto.main
 delete mode 100644 lang/pc/comp/proto.make
 create mode 100644 lang/pc/include/build.lua
 rename lang/pc/{libpc => include}/pc.h (100%)
 rename lang/pc/{libpc => include}/pc_err.h (100%)
 rename lang/pc/{libpc => include}/pc_file.h (100%)
 rename lang/pc/{libpc => include}/pc_math.h (100%)
 delete mode 100644 lang/pc/libpc/Makefile

diff --git a/lang/pc/comp/build.lua b/lang/pc/comp/build.lua
index c10c1793f..d856709a3 100644
--- a/lang/pc/comp/build.lua
+++ b/lang/pc/comp/build.lua
@@ -111,6 +111,7 @@ cprogram {
 		"+scope_h",
 		"+type_h",
 		"h+emheaders",
+		"lang/pc/include+headers",
 		"modules+headers",
 		"modules/src/alloc+lib",
 		"modules/src/em_code+lib_k",
diff --git a/lang/pc/comp/proto.main b/lang/pc/comp/proto.main
deleted file mode 100644
index eb470ddd4..000000000
--- a/lang/pc/comp/proto.main
+++ /dev/null
@@ -1,65 +0,0 @@
-# $Id$
-
-# C compilation part. Not to be called directly.
-# Instead, it is to be called by the Makefile.
-# SRC_DIR, UTIL_HOME, TARGET_HOME, CC, COPTIONS, LINT, LINTOPTIONS, LDOPTIONS,
-# CC_AND_MKDEP, SUF, LIBSUF should be set here.
-
-#PARAMS		do not remove this line!
-
-# PRODUCE is either e (readable EM) or k (compact EM)
-PRODUCE =	k
-
-MDIR =		$(TARGET_HOME)/modules
-LIBDIR =	$(MDIR)/lib
-LINTLIBDIR =	$(UTIL_HOME)/modules/lib
-
-MALLOC =	$(LIBDIR)/malloc.$(SUF)
-
-EMLIB =		$(LIBDIR)/libem_mes.$(LIBSUF) \
-		$(LIBDIR)/libem$(PRODUCE).$(LIBSUF) \
-		$(TARGET_HOME)/lib.bin/em_data.$(LIBSUF)
-
-MODLIB =	$(LIBDIR)/libinput.$(LIBSUF) \
-		$(LIBDIR)/libassert.$(LIBSUF) \
-		$(LIBDIR)/liballoc.$(LIBSUF) \
-		$(MALLOC) \
-		$(LIBDIR)/libflt.$(LIBSUF) \
-		$(LIBDIR)/libprint.$(LIBSUF) \
-		$(LIBDIR)/libstring.$(LIBSUF) \
-		$(LIBDIR)/libsystem.$(LIBSUF)
-
-LIBS =		$(EMLIB) $(MODLIB)
-
-LINTLIBS =	$(LINTLIBDIR)/$(LINTPREF)em_mes.$(LINTSUF) \
-		$(LINTLIBDIR)/$(LINTPREF)emk.$(LINTSUF) \
-		$(LINTLIBDIR)/$(LINTPREF)input.$(LINTSUF) \
-		$(LINTLIBDIR)/$(LINTPREF)assert.$(LINTSUF) \
-		$(LINTLIBDIR)/$(LINTPREF)alloc.$(LINTSUF) \
-		$(LINTLIBDIR)/$(LINTPREF)flt.$(LINTSUF) \
-		$(LINTLIBDIR)/$(LINTPREF)print.$(LINTSUF) \
-		$(LINTLIBDIR)/$(LINTPREF)string.$(LINTSUF) \
-		$(LINTLIBDIR)/$(LINTPREF)system.$(LINTSUF)
-
-PROFILE =
-INCLUDES =	-I. -I$(SRC_DIR) -I$(TARGET_HOME)/modules/h -I$(TARGET_HOME)/h -I$(TARGET_HOME)/modules/pkg
-CFLAGS =	$(PROFILE) $(INCLUDES) $(COPTIONS) -DSTATIC=static
-LINTFLAGS =	$(INCLUDES) $(LINTOPTIONS) -DNORCSID -DSTATIC=static
-LDFLAGS =	$(PROFILE) $(LDOPTIONS)
-
-# C_SRC and OBJ should be set here.
-#LISTS		do not remove this line!
-
-all:		main
-
-clean:
-		rm -f *.$(SUF) main
-
-lint:
-		$(LINT) $(LINTFLAGS) $(C_SRC) $(LINTLIBS)
-
-main:		$(OBJ)
-		$(CC) $(LDFLAGS) $(OBJ) $(LIBS) -o main
-
-# do not remove the next line; it is used for generating dependencies
-#DEPENDENCIES
diff --git a/lang/pc/comp/proto.make b/lang/pc/comp/proto.make
deleted file mode 100644
index e4c9e1721..000000000
--- a/lang/pc/comp/proto.make
+++ /dev/null
@@ -1,154 +0,0 @@
-# $Id$
-
-# make Pascal compiler
-
-#PARAMS		do not remove this line!
-
-UTIL_BIN = \
-	$(UTIL_HOME)/bin
-SRC_DIR = \
-	$(SRC_HOME)/lang/pc/comp
-
-TABGEN=	$(UTIL_BIN)/tabgen
-LLGEN =	$(UTIL_BIN)/LLgen
-LLGENOPTIONS = \
-	-v
-
-SRC_G =	$(SRC_DIR)/program.g $(SRC_DIR)/declar.g \
-	$(SRC_DIR)/expression.g $(SRC_DIR)/statement.g
-GEN_G =	tokenfile.g
-GFILES=	$(GEN_G) $(SRC_G)
-
-SRC_C =	$(SRC_DIR)/LLlex.c $(SRC_DIR)/LLmessage.c $(SRC_DIR)/body.c \
-	$(SRC_DIR)/error.c $(SRC_DIR)/label.c $(SRC_DIR)/readwrite.c \
-	$(SRC_DIR)/main.c $(SRC_DIR)/tokenname.c $(SRC_DIR)/idf.c \
-	$(SRC_DIR)/input.c $(SRC_DIR)/type.c $(SRC_DIR)/def.c \
-	$(SRC_DIR)/misc.c $(SRC_DIR)/enter.c $(SRC_DIR)/progs.c \
-	$(SRC_DIR)/typequiv.c $(SRC_DIR)/node.c $(SRC_DIR)/cstoper.c \
-	$(SRC_DIR)/chk_expr.c $(SRC_DIR)/options.c $(SRC_DIR)/scope.c \
-	$(SRC_DIR)/desig.c $(SRC_DIR)/code.c $(SRC_DIR)/lookup.c \
-	$(SRC_DIR)/stab.c
-GEN_C =	tokenfile.c program.c declar.c expression.c statement.c \
-	symbol2str.c char.c Lpars.c casestat.c tmpvar.c next.c
-CFILES=	$(SRC_C) $(GEN_C)
-
-SRC_H =	$(SRC_DIR)/LLlex.h $(SRC_DIR)/chk_expr.h $(SRC_DIR)/class.h \
-	$(SRC_DIR)/const.h $(SRC_DIR)/debug.h $(SRC_DIR)/f_info.h \
-	$(SRC_DIR)/idf.h $(SRC_DIR)/input.h $(SRC_DIR)/main.h \
-	$(SRC_DIR)/misc.h $(SRC_DIR)/required.h $(SRC_DIR)/tokenname.h
-
-GEN_H =	errout.h idfsize.h numsize.h strsize.h target_sizes.h \
-	inputtype.h density.h nocross.h def.h debugcst.h \
-	type.h Lpars.h node.h dbsymtab.h scope.h desig.h
-
-HFILES=	$(GEN_H) $(SRC_H)
-
-NEXTFILES = \
-	$(SRC_DIR)/def.H $(SRC_DIR)/type.H $(SRC_DIR)/node.H \
-	$(SRC_DIR)/scope.H $(SRC_DIR)/desig.H \
-	$(SRC_DIR)/tmpvar.C $(SRC_DIR)/casestat.C
-
-all:		make.main
-		make -f make.main main
-
-install:	all
-		cp main $(TARGET_HOME)/lib.bin/em_pc
-
-cmp:		all
-		-cmp main $(TARGET_HOME)/lib.bin/em_pc
-
-opr:
-		make pr | opr
-
-pr:
-		@pr $(SRC_DIR)/proto.make $(SRC_DIR)/proto.main Parameters \
-			$(SRC_DIR)/char.tab $(SRC_G) $(SRC_H) $(NEXTFILES) $(SRC_C)
-
-lint:		make.main
-		make -f make.main lint
-
-Cfiles:		hfiles LLfiles $(GEN_C) $(GEN_H) Makefile
-		echo $(CFILES) | tr ' ' '\012' > Cfiles
-		echo $(HFILES) | tr ' ' '\012' >> Cfiles
-
-resolved:	Cfiles
-		CC="$(CC)" UTIL_HOME="$(UTIL_HOME)" do_resolve `cat Cfiles` > Cfiles.new
-		-if cmp -s Cfiles Cfiles.new ; then rm -f Cfiles.new ; else mv Cfiles.new Cfiles ; fi
-		touch resolved
-
-# there is no file called "dependencies"; we want dependencies checked 
-# every time. This means that make.main is made every time. Oh well ...
-# it does not take much time.
-dependencies:	resolved
-		do_deps `grep '.c$$' Cfiles`
-
-make.main:	dependencies make_macros lists $(SRC_DIR)/proto.main
-		rm_deps $(SRC_DIR)/proto.main | sed -e '/^.PARAMS/r make_macros' -e '/^.LISTS/r lists' > make.main
-		cat *.dep >> make.main
-
-make_macros:    Makefile
-		echo 'SRC_DIR=$(SRC_DIR)' > make_macros
-		echo 'UTIL_HOME=$(UTIL_HOME)' >> make_macros
-		echo 'TARGET_HOME=$(TARGET_HOME)' >> make_macros
-		echo 'CC=$(CC)' >> make_macros
-		echo 'COPTIONS=$(COPTIONS)' >> make_macros
-		echo 'LDOPTIONS=$(LDOPTIONS)' >> make_macros
-		echo 'LINT=$(LINT)' >> make_macros
-		echo 'LINTSUF=$(LINTSUF)' >> make_macros
-		echo 'LINTPREF=$(LINTPREF)' >> make_macros
-		echo 'LINTOPTIONS=$(LINTOPTIONS)' >> make_macros
-		echo 'SUF=$(SUF)' >> make_macros
-		echo 'LIBSUF=$(LIBSUF)' >> make_macros
-		echo 'CC_AND_MKDEP=$(CC_AND_MKDEP)' >> make_macros
-
-lists:		Cfiles
-		echo "C_SRC = \\" > lists
-		echo $(CFILES) >> lists
-		echo "OBJ = \\" >> lists
-		echo $(CFILES) | sed -e 's|[^ ]*/||g' -e 's/\.c/.$$(SUF)/g' >> lists
-
-clean:
-		-make -f make.main clean
-		rm -f $(GEN_C) $(GEN_G) $(GEN_H) hfiles LLfiles Cfiles LL.output
-		rm -f resolved *.dep lists make.main make_macros
-
-LLfiles:	$(GFILES)
-		$(LLGEN) $(LLGENOPTIONS) $(GFILES)
-		@touch LLfiles
-
-hfiles:		Parameters $(SRC_DIR)/make.hfiles
-		$(SRC_DIR)/make.hfiles Parameters
-		touch hfiles
-
-tokenfile.g:	$(SRC_DIR)/tokenname.c $(SRC_DIR)/make.tokfile
-		$(SRC_DIR)/make.tokfile <$(SRC_DIR)/tokenname.c >tokenfile.g
-
-symbol2str.c:	$(SRC_DIR)/tokenname.c $(SRC_DIR)/make.tokcase
-		$(SRC_DIR)/make.tokcase <$(SRC_DIR)/tokenname.c >symbol2str.c
-
-def.h:		$(SRC_DIR)/make.allocd $(SRC_DIR)/def.H
-		$(SRC_DIR)/make.allocd < $(SRC_DIR)/def.H > def.h
-
-type.h:		$(SRC_DIR)/make.allocd $(SRC_DIR)/type.H
-		$(SRC_DIR)/make.allocd < $(SRC_DIR)/type.H > type.h
-
-scope.h:	$(SRC_DIR)/make.allocd $(SRC_DIR)/scope.H
-		$(SRC_DIR)/make.allocd < $(SRC_DIR)/scope.H > scope.h
-
-node.h:		$(SRC_DIR)/make.allocd $(SRC_DIR)/node.H
-		$(SRC_DIR)/make.allocd < $(SRC_DIR)/node.H > node.h
-
-desig.h:	$(SRC_DIR)/make.allocd $(SRC_DIR)/desig.H
-		$(SRC_DIR)/make.allocd < $(SRC_DIR)/desig.H > desig.h
-
-tmpvar.c:	$(SRC_DIR)/make.allocd $(SRC_DIR)/tmpvar.C
-		$(SRC_DIR)/make.allocd < $(SRC_DIR)/tmpvar.C > tmpvar.c
-
-casestat.c:	$(SRC_DIR)/make.allocd $(SRC_DIR)/casestat.C
-		$(SRC_DIR)/make.allocd < $(SRC_DIR)/casestat.C > casestat.c
-
-next.c:		$(NEXTFILES) $(SRC_DIR)/make.next
-		$(SRC_DIR)/make.next $(NEXTFILES) > next.c
-
-char.c:		$(SRC_DIR)/char.tab
-		$(TABGEN) -f$(SRC_DIR)/char.tab >char.c
diff --git a/lang/pc/include/build.lua b/lang/pc/include/build.lua
new file mode 100644
index 000000000..24f43084a
--- /dev/null
+++ b/lang/pc/include/build.lua
@@ -0,0 +1,4 @@
+clibrary {
+	name = "headers",
+	hdrs = {"./*.h"}
+}
diff --git a/lang/pc/libpc/pc.h b/lang/pc/include/pc.h
similarity index 100%
rename from lang/pc/libpc/pc.h
rename to lang/pc/include/pc.h
index a38c62637..12ca27359 100644
--- a/lang/pc/libpc/pc.h
+++ b/lang/pc/include/pc.h
@@ -36,32 +36,35 @@ extern char *_fcvt(double value, int ndigit, int *decpt, int *sign);
 extern char *_wdw(struct file *f);
 extern char *argv(int i);
 extern char *strbuf(char *s);
+extern char* _hol0(void);
 extern double _abr(double r);
 extern double _atn(double x);
 extern double _cos(double x);
 extern double _exp(double x);
+extern double _fef(double fl, int* res);
+extern double _fif(double f1, double f2, double* f3);
 extern double _log(double x);
 extern double _rdr(struct file *f);
 extern double _rnd(double r);
-extern void _sig(void (*)(unsigned int));
 extern double _sin(double x);
 extern double _sqt(double x);
-extern void _xcls(struct file *f);
+extern int _abi(int i);
+extern int _asz(struct descr *dp);
+extern int _bcp(int sz, unsigned char *y, unsigned char *x);
+extern int _dvi(unsigned int j, unsigned int i);
+extern int _efl(struct file *f);
+extern int _eln(struct file *f);
+extern int _fstdig(struct file *f);
+extern int _getint(struct file *f);
+extern int _getsig(struct file *f);
+extern int _mdi(int j, int i);
+extern int _nxtdig(struct file *f);
+extern int _rdc(struct file *f);
+extern int _rdi(struct file *f);
 extern int argc(void);
-extern void argshift(void);
-extern void buff(struct file *f);
-extern void diag(struct file *f);
-extern void nobuff(struct file *f);
-extern void notext(struct file *f);
-extern void pclose(struct file *f);
-extern void pcreat(struct file *f, char *s);
 extern int perrno(void);
-extern void popen(struct file *f, char *s);
-extern void procentry(char *name);
-extern void procexit(char *name);
 extern int strfetch(char *s, int i);
 extern int strlen(char *s);
-extern void strstore(char *s, int i, int c);
 extern int strtobuf(char *s, char *b, int l);
 extern int uread(int fd, char *b, int n);
 extern int uwrite(int fd, char *b, int n);
@@ -70,41 +73,27 @@ extern long _dvil(unsigned long j, unsigned long i);
 extern long _mdil(long j, long i);
 extern long _mdl(long j, long i);
 extern long _rdl(struct file *f);
-extern int _abi(int i);
 extern void _ass(int line, int bool);
-extern int _asz(struct descr *dp);
-extern int _bcp(int sz, unsigned char *y, unsigned char *x);
 extern void _catch(unsigned erno);
 extern void _cls(struct file *f);
 extern void _cre(int sz, struct file *f);
 extern void _dis(int n, void **ptr);
-extern int _dvi(unsigned int j, unsigned int i);
-extern int _efl(struct file *f);
-extern int _eln(struct file *f);
-extern double _fef(double fl, int* res);
-extern double _fif(double f1, double f2, double* f3);
 extern void _flush(struct file *f);
-extern int _fstdig(struct file *f);
 extern void _get(struct file *f);
-extern int _getint(struct file *f);
-extern int _getsig(struct file *f);
 extern void _hlt(int ecode);
 extern void _incpt(struct file *f);
 extern void _ini(char *args, int c, struct file **p, char *mainlb);
-extern int _mdi(int j, int i);
 extern void _new(int n, void **ptr);
 extern void _nfa(int bool);
-extern int _nxtdig(struct file *f);
 extern void _opn(int sz, struct file *f);
 extern void _outcpt(struct file *f);
 extern void _pac(struct descr *ad, struct descr *zd, char *zp, int i, char *ap);
 extern void _pag(struct file *f);
 extern void _put(struct file *f);
 extern void _rcka(struct array_descr *descr, int index);
-extern int _rdc(struct file *f);
-extern int _rdi(struct file *f);
 extern void _rf(struct file *f);
 extern void _rln(struct file *f);
+extern void _sig(void (*)(unsigned int));
 extern void _skipsp(struct file *f);
 extern void _trp(int trapno);
 extern void _unp(struct descr *ad, struct descr *zd, int i, char *ap, char *zp, int noext);
@@ -126,6 +115,17 @@ extern void _wsr(int w, double r, struct file *f);
 extern void _wss(int w, int len, char* s, struct file* f);
 extern void _wstrin(int width, int len, char* buf, struct file* f);
 extern void _wsz(int w, char* s, struct file* f);
-extern char* _hol0(void);
+extern void _xcls(struct file *f);
+extern void argshift(void);
+extern void buff(struct file *f);
+extern void diag(struct file *f);
+extern void nobuff(struct file *f);
+extern void notext(struct file *f);
+extern void pclose(struct file *f);
+extern void pcreat(struct file *f, char *s);
+extern void popen(struct file *f, char *s);
+extern void procentry(char *name);
+extern void procexit(char *name);
+extern void strstore(char *s, int i, int c);
 
 #endif 
diff --git a/lang/pc/libpc/pc_err.h b/lang/pc/include/pc_err.h
similarity index 100%
rename from lang/pc/libpc/pc_err.h
rename to lang/pc/include/pc_err.h
diff --git a/lang/pc/libpc/pc_file.h b/lang/pc/include/pc_file.h
similarity index 100%
rename from lang/pc/libpc/pc_file.h
rename to lang/pc/include/pc_file.h
diff --git a/lang/pc/libpc/pc_math.h b/lang/pc/include/pc_math.h
similarity index 100%
rename from lang/pc/libpc/pc_math.h
rename to lang/pc/include/pc_math.h
diff --git a/lang/pc/libpc/Makefile b/lang/pc/libpc/Makefile
deleted file mode 100644
index 4a57a28f5..000000000
--- a/lang/pc/libpc/Makefile
+++ /dev/null
@@ -1,13 +0,0 @@
-# $Id$
-
-head:
-	echo This Makefile needs arguments
-
-clean:
-	rm -f *.old
-
-opr:
-	make pr | opr
-
-pr:
-	@pr Makefile *.[ec]
diff --git a/lang/pc/libpc/build.lua b/lang/pc/libpc/build.lua
index 0fb5faea5..08c3ef187 100644
--- a/lang/pc/libpc/build.lua
+++ b/lang/pc/libpc/build.lua
@@ -17,9 +17,10 @@ for _, plat in ipairs(vars.plats) do
         },
 		hdrs = {}, -- must be empty
 		deps = {
-			"lang/cem/libcc.ansi/headers+pkg",
-			"plat/"..plat.."/include+pkg",
 			"h+emheaders",
+			"lang/cem/libcc.ansi/headers+pkg",
+			"lang/pc/include+headers",
+			"plat/"..plat.."/include+pkg",
 		},
         vars = { plat = plat }
     }
@@ -29,7 +30,8 @@ for _, plat in ipairs(vars.plats) do
 		srcs = { "./head_pc.e" },
 		vars = { plat = plat },
 		deps = {
-			"h+emheaders"
+			"h+emheaders",
+			"lang/pc/include+headers",
 		}
 	}
 
diff --git a/plat/build.lua b/plat/build.lua
index 451ba4af9..017628abe 100644
--- a/plat/build.lua
+++ b/plat/build.lua
@@ -11,7 +11,7 @@ definerule("ackfile",
 		suffix = { type="string", optional=true },
 	},
 	function (e)
-		local em = e.vars.plat:find("^em")
+		local em = (e.vars.plat or ""):find("^em")
 		local suffix = e.suffix or (em and ".m" or ".o")
 		local c = "-c"..suffix
 		local plat = e.vars.plat
@@ -47,7 +47,7 @@ definerule("acklibrary",
 		deps = { type="targets", default={} },
 	},
 	function (e)
-		local em = e.vars.plat:find("^em")
+		local em = (e.vars.plat or ""):find("^em")
 		return clibrary {
 			name = e.name,
 			srcs = e.srcs,