Overview
| Comment: | Added settimeofday |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f73c910cba5b41e5a6aa13ac0535ecf1 |
| User & Date: | rkeene on 2015-02-04 16:19:35 |
| Other Links: | manifest | tags |
Context
|
2015-02-13
| ||
| 19:16 | Updated to allow scan_and_load_kernel_modules to be supplied arguments for kernel modules check-in: 6c60df91c9 user: rkeene tags: trunk | |
|
2015-02-04
| ||
| 16:19 | Added settimeofday check-in: f73c910cba user: rkeene tags: trunk | |
|
2014-12-25
| ||
| 04:09 | Added "reboot" command and stub for "eject" command check-in: 5405269774 user: rkeene tags: trunk | |
Changes
Modified tuapi.c from [5789ec5d76] to [2a68e00137].
| ︙ | ︙ | |||
2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 |
if (child != 0) {
Tcl_SetObjResult(interp, Tcl_NewWideIntObj(child));
}
return(TCL_OK);
}
#ifndef DISABLE_UNIX_SOCKETS
struct tuapi_socket_unix__chan_id {
int fd;
Tcl_Channel chan;
};
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 2323 2324 2325 2326 2327 |
if (child != 0) {
Tcl_SetObjResult(interp, Tcl_NewWideIntObj(child));
}
return(TCL_OK);
}
static int tuapi_settimeofday(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
struct timeval tv;
Tcl_WideInt tv_sec_val, tv_usec_val;
int settimeofday_ret, tcl_ret;
if (objc != 3) {
Tcl_SetObjResult(interp, Tcl_NewStringObj("wrong # args: should be \"::tuapi::syscall::settimeofday seconds microseconds\"", -1));
return(TCL_ERROR);
}
tcl_ret = Tcl_GetWideIntFromObj(interp, objv[1], &tv_sec_val);
if (tcl_ret != TCL_OK) {
return(tcl_ret);
}
tcl_ret = Tcl_GetWideIntFromObj(interp, objv[2], &tv_usec_val);
if (tcl_ret != TCL_OK) {
return(tcl_ret);
}
tv.tv_sec = tv_sec_val;
tv.tv_usec = tv_usec_val;
settimeofday_ret = settimeofday(&tv, NULL);
if (settimeofday_ret < 0) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(strerror(errno), -1));
return(TCL_ERROR);
}
return(TCL_OK);
}
#ifndef DISABLE_UNIX_SOCKETS
struct tuapi_socket_unix__chan_id {
int fd;
Tcl_Channel chan;
};
|
| ︙ | ︙ | |||
3013 3014 3015 3016 3017 3018 3019 3020 3021 3022 3023 3024 3025 3026 | /* Kernel maintenance related commands */ Tcl_CreateObjCommand(interp, "::tuapi::syscall::insmod", tuapi_insmod, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::rmmod", tuapi_rmmod, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::lsmod", tuapi_lsmod, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::hostname", tuapi_hostname, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::domainname", tuapi_domainname, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::klogctl", tuapi_klogctl, NULL, NULL); /* Block or char device related commands */ Tcl_CreateObjCommand(interp, "::tuapi::syscall::losetup", tuapi_losetup, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::eject", tuapi_eject, NULL, NULL); /* Filesystem related commands */ Tcl_CreateObjCommand(interp, "::tuapi::syscall::mount", tuapi_mount, NULL, NULL); | > | 3048 3049 3050 3051 3052 3053 3054 3055 3056 3057 3058 3059 3060 3061 3062 | /* Kernel maintenance related commands */ Tcl_CreateObjCommand(interp, "::tuapi::syscall::insmod", tuapi_insmod, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::rmmod", tuapi_rmmod, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::lsmod", tuapi_lsmod, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::hostname", tuapi_hostname, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::domainname", tuapi_domainname, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::klogctl", tuapi_klogctl, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::settimeofday", tuapi_settimeofday, NULL, NULL); /* Block or char device related commands */ Tcl_CreateObjCommand(interp, "::tuapi::syscall::losetup", tuapi_losetup, NULL, NULL); Tcl_CreateObjCommand(interp, "::tuapi::syscall::eject", tuapi_eject, NULL, NULL); /* Filesystem related commands */ Tcl_CreateObjCommand(interp, "::tuapi::syscall::mount", tuapi_mount, NULL, NULL); |
| ︙ | ︙ |