Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#include <u.h>
2 
#include <libc.h>
3 
#include <sys.h>
4 
#include <fcall.h>
5 
 
6 
char	buf[1048576];
7 
#define	NARG	5
8 
uintptr	arg[NARG];
9 
 
10 
/* system calls not defined in libc.h */
11 
int	sysr1(void);
12 
int	_stat(char*, char*);
13 
int	_fstat(int, char*);
14 
int	_errstr(char*);
15 
int	_wstat(char*, char*);
16 
int	_fwstat(int, char*);
17 
int	_read(int, void*, int);
18 
int	_write(int, void*, int);
19 
int	_read9p(int, void*, int);
20 
int	_write9p(int, void*, int);
21 
int	brk_(void*);
22 
int	_nfstat(int, void*, int);
23 
int	_nstat(char*, void*, int);
24 
int	_nfwstat(int, void*, int);
25 
int	_nwstat(char*, void*, int);
26 
int	_fsession(char*, void*, int);
27 
int	_mount(int, char*, int, char*);
28 
int	_wait(void*);
29 
 
30 
struct{
31 
	char	*name;
32 
	int	(*func)(...);
33 
}tab[]={
34 
#include "tab.h"
35 
	0,		0
36 
};
37 
 
38 
uintptr parse(char *);
39 
void catch(void*, char*);
40 
 
41 
char*
42 
xctime(ulong t)
43 
{
44 
	char *buf, *s;
45 
 
46 
	s = ctime(t);
47 
	s[strlen(s)-1] = '\0';	/* remove newline */
48 
	buf = malloc(512);
49 
	if(buf == nil)
50 
		sysfatal("can't malloc: %r");
51 
	snprint(buf, 512, "%s (%lud)", s, t);
52 
	return buf;
53 
}
54 
 
55 
 
56 
char*
57 
lstime(long l)
58 
{
59 
	static char buf[32];
60 
	char *t;
61 
	long clk;
62 
 
63 
	clk = time(0);
64 
	t = ctime(l);
65 
	/* 6 months in the past or a day in the future */
66 
	if(l<clk-180L*24*60*60 || clk+24L*60*60<l){
67 
		memmove(buf, t+4, 7);		/* month and day */
68 
		memmove(buf+7, t+23, 5);		/* year */
69 
	}else
70 
		memmove(buf, t+4, 12);		/* skip day of week */
71 
	buf[12] = 0;
72 
	return buf;
73 
}
74 
 
75 
void
76 
main(int argc, char *argv[])
77 
{
78 
	int i, j, c;
79 
	int oflag, xflag, sflag;
80 
	vlong r;
81 
	Dir d;
82 
	char strs[1024];
83 
	char ebuf[1024];
84 
 
85 
	fmtinstall('M', dirmodefmt);
86 
 
87 
	oflag = 0;
88 
	xflag = 0;
89 
	sflag = 0;
90 
	ARGBEGIN{
91 
	case 'o':
92 
		oflag++;
93 
		break;
94 
	case 's':
95 
		sflag++;
96 
		break;
97 
	case 'x':
98 
		xflag++;
99 
		break;
100 
	default:
101 
		goto Usage;
102 
	}ARGEND
103 
	if(argc<1 || argc>1+NARG){
104 
    Usage:
105 
		fprint(2, "usage: syscall [-ox] entry [args; buf==1MB buffer]\n");
106 
		fprint(2, "\tsyscall write 1 hello 5\n");
107 
		fprint(2, "\tsyscall -o errstr buf 1024\n");
108 
		fprint(2, "\tsyscall -[xs] stat file buf 1024\n");
109 
		exits("usage");
110 
	}
111 
	for(i=1; i<argc; i++)
112 
		arg[i-1] = parse(argv[i]);
113 
	notify(catch);
114 
	for(i=0; tab[i].name; i++)
115 
		if(strcmp(tab[i].name, argv[0])==0){
116 
			/* special case for seek, pread, pwrite; vlongs are problematic */
117 
			if(strcmp(argv[0], "seek") == 0)
118 
				r=seek(arg[0], strtoll(argv[2], 0, 0), arg[2]);
119 
			else if(strcmp(argv[0], "pread") == 0)
120 
				r=pread(arg[0], (void*)arg[1], arg[2], strtoll(argv[4], 0, 0));
121 
			else if(strcmp(argv[0], "pwrite") == 0)
122 
				r=pwrite(arg[0], (void*)arg[1], arg[2], strtoll(argv[4], 0, 0));
123 
			else
124 
				r=(*tab[i].func)(arg[0], arg[1], arg[2], arg[3], arg[4]);
125 
			if(r == -1){
126 
				errstr(ebuf, sizeof ebuf);
127 
				fprint(2, "syscall: return %lld, error:%s\n", r, ebuf);
128 
			}else{
129 
				ebuf[0] = 0;
130 
				fprint(2, "syscall: return %lld, no error\n", r);
131 
			}
132 
			if(oflag)
133 
				print("%s\n", buf);
134 
			if(xflag){
135 
				for(j=0; j<r; j++){
136 
					if(j%16 == 0)
137 
						print("%.4x\t", j);
138 
					c = buf[j]&0xFF;
139 
					if('!'<=c && c<='~')
140 
						print(" %c ", c);
141 
					else
142 
						print("%.2ux ", c);
143 
					if(j%16 == 15)
144 
						print("\n");
145 
				}
146 
				print("\n");
147 
			}
148 
			if(sflag && r > 0){
149 
				r = convM2D((uchar*)buf, r, &d, strs);
150 
				if(r <= BIT16SZ)
151 
					print("short stat message\n");
152 
				else{
153 
					print("[%s] ", d.muid);
154 
					print("(%.16llux %lud %.2ux) ", d.qid.path, d.qid.vers, d.qid.type);
155 
					print("%M (%luo) ", d.mode, d.mode);
156 
					print("%c %d ", d.type, d.dev);
157 
					print("%s %s ", d.uid, d.gid);
158 
					print("%lld ", d.length);
159 
					print("%s ", lstime(d.mtime));
160 
					print("%s\n", d.name);
161 
					print("\tmtime: %s\n\tatime: %s\n", xctime(d.mtime), xctime(d.atime));
162 
				}
163 
			}
164 
			exits(ebuf);
165 
		}
166 
	fprint(2, "syscall: %s not known\n", argv[0]);
167 
	exits("unknown");
168 
}
169 
 
170 
uintptr
171 
parse(char *s)
172 
{
173 
	char *t;
174 
	uintptr l;
175 
 
176 
	if(strcmp(s, "buf") == 0)
177 
		return (uintptr)buf;
178 
 
179 
	l = strtoull(s, &t, 0);
180 
	if(t>s && *t==0)
181 
		return l;
182 
	return (uintptr)s;
183 
}
184 
 
185 
void
186 
catch(void *, char *msg)
187 
{
188 
	fprint(2, "syscall: received note='%s'\n", msg);
189 
	noted(NDFLT);
190 
}