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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
#include <sys/types.h>
#include <unistd.h>
#include <string.h>
#include <errno.h>
#define JIM_EXTENSION
#include "jim.h"
extern int errno;
static void Jim_PosixSetError(Jim_Interp *interp)
{
Jim_SetResultString(interp, strerror(errno), -1);
}
static int Jim_PosixForkCommand(Jim_Interp *interp, int argc, Jim_Obj **argv)
{
pid_t pid;
argv = argv; /* not used */
if (argc != 1) {
Jim_WrongNumArgs(interp, 1, argv, "");
return JIM_ERR;
}
if ((pid = fork()) == -1) {
Jim_SetResultString(interp, strerror(errno), -1);
return JIM_ERR;
}
Jim_SetResult(interp, Jim_NewIntObj(interp, (jim_wide)pid));
return JIM_OK;
}
static int Jim_PosixSleepCommand(Jim_Interp *interp, int argc, Jim_Obj **argv)
{
long longValue;
if (argc != 2) {
Jim_WrongNumArgs(interp, 1, argv, "?seconds?");
return JIM_ERR;
}
if (Jim_GetLong(interp, argv[1], &longValue) != JIM_OK)
return JIM_ERR;
sleep(longValue);
return JIM_OK;
}
static int Jim_PosixGetidsCommand(Jim_Interp *interp, int argc, Jim_Obj **argv)
{
Jim_Obj *objv[8];
if (argc != 1) {
Jim_WrongNumArgs(interp, 1, argv, "");
return JIM_ERR;
}
objv[0] = Jim_NewStringObj(interp, "uid", -1);
objv[1] = Jim_NewIntObj(interp, getuid());
objv[2] = Jim_NewStringObj(interp, "euid", -1);
objv[3] = Jim_NewIntObj(interp, geteuid());
objv[4] = Jim_NewStringObj(interp, "gid", -1);
objv[5] = Jim_NewIntObj(interp, getgid());
objv[6] = Jim_NewStringObj(interp, "egid", -1);
objv[7] = Jim_NewIntObj(interp, getegid());
Jim_SetResult(interp, Jim_NewListObj(interp, objv, 8));
return JIM_OK;
}
#define JIM_HOST_NAME_MAX 1024
static int Jim_PosixGethostnameCommand(Jim_Interp *interp, int argc,
Jim_Obj **argv)
{
char buf[JIM_HOST_NAME_MAX];
if (argc != 1) {
Jim_WrongNumArgs(interp, 1, argv, "");
return JIM_ERR;
}
if (gethostname(buf, JIM_HOST_NAME_MAX) == -1) {
Jim_PosixSetError(interp);
return JIM_ERR;
}
Jim_SetResultString(interp, buf, -1);
return JIM_OK;
}
static int Jim_PosixSethostnameCommand(Jim_Interp *interp, int argc,
Jim_Obj **argv)
{
char *hostname;
int len;
if (argc != 2) {
Jim_WrongNumArgs(interp, 1, argv, "hostname");
return JIM_ERR;
}
hostname = Jim_GetString(argv[1], &len);
if (sethostname(hostname, len) == -1) {
Jim_PosixSetError(interp);
return JIM_ERR;
}
return JIM_OK;
}
int Jim_OnLoad(Jim_Interp *interp)
{
Jim_InitExtension(interp, "1.0");
Jim_CreateCommand(interp, "os.fork", Jim_PosixForkCommand, NULL);
Jim_CreateCommand(interp, "os.sleep", Jim_PosixSleepCommand, NULL);
Jim_CreateCommand(interp, "os.getids", Jim_PosixGetidsCommand, NULL);
Jim_CreateCommand(interp, "os.gethostname", Jim_PosixGethostnameCommand, NULL);
Jim_CreateCommand(interp, "os.sethostname", Jim_PosixSethostnameCommand, NULL);
return JIM_OK;
}
|