*** empty log message ***

1984-11-29 14:22:02 +00:00
parent 0c0c3b7892
commit ae1e81adb1
36 changed files with 1740 additions and 0 deletions
--- a/lang/basic/lib/swap.c
+++ b/lang/basic/lib/swap.c
@@ -0,0 +1,30 @@
+#include "string.h"
+
+/* $Header $ */
+
+_intswap(i1,i2)
+int *i1,*i2;
+{
+	int i3;
+	i3= *i1;
+	*i1= *i2;
+	*i2=i3;
+}
+
+_fltswap(i1,i2)
+double *i1,*i2;
+{
+	double i3;
+	i3= *i1;
+	*i1= *i2;
+	*i2=i3;
+}
+
+_strswap(s1,s2)
+String *s1,*s2;
+{
+	String s;
+	s= *s1;
+	*s1= *s2;
+	*s2 = s;
+}