1984-07-20 11:03:31 +00:00
|
|
|
/* $Header$ */
|
1984-07-20 10:44:57 +00:00
|
|
|
#include <pc_file.h>
|
|
|
|
|
|
|
|
|
|
extern _wss();
|
|
|
|
|
extern _wrs();
|
|
|
|
|
|
|
|
|
|
_wsz(w,s,f) int w; char *s; struct file *f; {
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
for (p=s; *p; p++);
|
|
|
|
|
_wss(w,p-s,s,f);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
_wrz(s,f) char *s; struct file *f; {
|
|
|
|
|
char *p;
|
|
|
|
|
|
|
|
|
|
for (p=s; *p; p++);
|
|
|
|
|
_wrs(p-s,s,f);
|
|
|
|
|
}
|
