lib/libnet/libnet.code


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25


#include <netapps.h>

PRIM(NET_X2d_LOAD)
	int slen = TOS.n; POP;
	char *arg = TOS.a;
	char *argvs[8];
	int i, p;
	argvs[0] = arg;
	i = 1;
	for (p = 0; p < slen; p++) {
		if (arg[p] == ' ') {
			arg[p] = 0;
			argvs[i] = &arg[p + 1];
			i++;
		}
	}
	TOS.n = netboot(i, argvs);
MIRP

PRIM(NET_X2d_PING)
	int alen = TOS.n; POP;
	char *arg = TOS.a;
	TOS.n = ping(arg, alen);
MIRP