-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathtcppws.c
More file actions
54 lines (42 loc) · 876 Bytes
/
tcppws.c
File metadata and controls
54 lines (42 loc) · 876 Bytes
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
#include <stdio.h>
#define lput(str) fprintf(fp, "%s\n", str)
#define M(x) x ## _
#define F2 M(f2)
#define MKS(x) _MKS(x)
#define _MKS(x) #x
#define SZLONG 32
#define SZCHAR 8
#if (SZLONG / SZCHAR) == 2
# define SILONG 2
#elif (SZLONG / SZCHAR) == 4
# define SILONG 4
#elif (SZLONG / SZCHAR) == 8
# define SILONG 8
#else
# error "Unknown size combinations!"
#endif
void F2(void);
void
F2()
{
FILE *fp = stdout;
lput("");
lput("foobar.");
lput("nutbar." );
lput("foobar.");
lput(MKS(SZLONG/SZCHAR));
lput(MKS(SILONG));
}
int main(void);
int
main()
{
F2();
return 0;
}
/*
* Local Variables:
* eval: (make-local-variable 'compile-command)
* compile-command: (let ((fn (file-name-sans-extension (file-name-nondirectory (buffer-file-name))))) (concat "rm -f " fn "; " (default-value 'compile-command) " " fn " && ./" fn))
* End:
*/