ack/lang/basic/lib/swap.c

31 lines
272 B
C
Raw Normal View History

#include "bc_string.h"
1984-11-29 14:22:02 +00:00
1985-01-21 12:47:04 +00:00
/* $Header$ */
1984-11-29 14:22:02 +00:00
_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)
1987-02-26 14:08:16 +00:00
String **s1,**s2;
1984-11-29 14:22:02 +00:00
{
1987-02-26 14:08:16 +00:00
String *s;
1984-11-29 14:22:02 +00:00
s= *s1;
*s1= *s2;
*s2 = s;
}