Initial revision

1984-07-20 10:44:57 +00:00
parent 1a0102783f
commit f54556ac0f
73 changed files with 3041 additions and 0 deletions
--- a/lang/pc/libpc/pexit.c
+++ b/lang/pc/libpc/pexit.c
@@ -0,0 +1,15 @@
+#include	<pc_file.h>
+
+extern int	*_extfl;
+extern char	*_hbase;
+extern		_wrs();
+extern		_wln();
+
+procexit(name) char *name; {
+	struct file *f;
+
+	f = EXTFL(2);
+	_wrs(5,"exit ",f);
+	_wrs(8,name,f);
+	_wln(f);
+}