| /* |
| * Copyright (c) 1991, 1992 Paul Kranenburg <pk@cs.few.eur.nl> |
| * Copyright (c) 1993 Branko Lankester <branko@hacktic.nl> |
| * Copyright (c) 1993, 1994, 1995, 1996 Rick Sladkey <jrs@world.std.com> |
| * All rights reserved. |
| * |
| * Redistribution and use in source and binary forms, with or without |
| * modification, are permitted provided that the following conditions |
| * are met: |
| * 1. Redistributions of source code must retain the above copyright |
| * notice, this list of conditions and the following disclaimer. |
| * 2. Redistributions in binary form must reproduce the above copyright |
| * notice, this list of conditions and the following disclaimer in the |
| * documentation and/or other materials provided with the distribution. |
| * 3. The name of the author may not be used to endorse or promote products |
| * derived from this software without specific prior written permission. |
| * |
| * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR |
| * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
| * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
| * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, |
| * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
| * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
| * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
| * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
| * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
| * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| */ |
| |
| #include "defs.h" |
| #include <linux/version.h> |
| #include <sys/timex.h> |
| #include <linux/ioctl.h> |
| #include <linux/rtc.h> |
| |
| #ifndef UTIME_NOW |
| #define UTIME_NOW ((1l << 30) - 1l) |
| #endif |
| #ifndef UTIME_OMIT |
| #define UTIME_OMIT ((1l << 30) - 2l) |
| #endif |
| |
| struct timeval32 |
| { |
| u_int32_t tv_sec, tv_usec; |
| }; |
| |
| static void |
| tprint_timeval32(struct tcb *tcp, const struct timeval32 *tv) |
| { |
| tprintf("{%u, %u}", tv->tv_sec, tv->tv_usec); |
| } |
| |
| static void |
| tprint_timeval(struct tcb *tcp, const struct timeval *tv) |
| { |
| tprintf("{%lu, %lu}", |
| (unsigned long) tv->tv_sec, (unsigned long) tv->tv_usec); |
| } |
| |
| void |
| printtv_bitness(struct tcb *tcp, long addr, enum bitness_t bitness, int special) |
| { |
| char buf[TIMEVAL_TEXT_BUFSIZE]; |
| sprinttv(buf, tcp, addr, bitness, special); |
| tprints(buf); |
| } |
| |
| char * |
| sprinttv(char *buf, struct tcb *tcp, long addr, enum bitness_t bitness, int special) |
| { |
| int rc; |
| |
| if (addr == 0) |
| return stpcpy(buf, "NULL"); |
| |
| if (!verbose(tcp)) |
| return buf + sprintf(buf, "%#lx", addr); |
| |
| if (bitness == BITNESS_32 |
| #if SUPPORTED_PERSONALITIES > 1 |
| || current_wordsize == 4 |
| #endif |
| ) |
| { |
| struct timeval32 tv; |
| |
| rc = umove(tcp, addr, &tv); |
| if (rc >= 0) { |
| if (special && tv.tv_sec == 0) { |
| if (tv.tv_usec == UTIME_NOW) |
| return stpcpy(buf, "UTIME_NOW"); |
| if (tv.tv_usec == UTIME_OMIT) |
| return stpcpy(buf, "UTIME_OMIT"); |
| } |
| return buf + sprintf(buf, "{%u, %u}", |
| tv.tv_sec, tv.tv_usec); |
| } |
| } else { |
| struct timeval tv; |
| |
| rc = umove(tcp, addr, &tv); |
| if (rc >= 0) { |
| if (special && tv.tv_sec == 0) { |
| if (tv.tv_usec == UTIME_NOW) |
| return stpcpy(buf, "UTIME_NOW"); |
| if (tv.tv_usec == UTIME_OMIT) |
| return stpcpy(buf, "UTIME_OMIT"); |
| } |
| return buf + sprintf(buf, "{%lu, %lu}", |
| (unsigned long) tv.tv_sec, |
| (unsigned long) tv.tv_usec); |
| } |
| } |
| |
| return stpcpy(buf, "{...}"); |
| } |
| |
| void |
| print_timespec(struct tcb *tcp, long addr) |
| { |
| char buf[TIMESPEC_TEXT_BUFSIZE]; |
| sprint_timespec(buf, tcp, addr); |
| tprints(buf); |
| } |
| |
| void |
| sprint_timespec(char *buf, struct tcb *tcp, long addr) |
| { |
| if (addr == 0) |
| strcpy(buf, "NULL"); |
| else if (!verbose(tcp)) |
| sprintf(buf, "%#lx", addr); |
| else { |
| int rc; |
| |
| #if SUPPORTED_PERSONALITIES > 1 |
| if (current_wordsize == 4) { |
| struct timeval32 tv; |
| |
| rc = umove(tcp, addr, &tv); |
| if (rc >= 0) |
| sprintf(buf, "{%u, %u}", |
| tv.tv_sec, tv.tv_usec); |
| } else |
| #endif |
| { |
| struct timespec ts; |
| |
| rc = umove(tcp, addr, &ts); |
| if (rc >= 0) |
| sprintf(buf, "{%lu, %lu}", |
| (unsigned long) ts.tv_sec, |
| (unsigned long) ts.tv_nsec); |
| } |
| if (rc < 0) |
| strcpy(buf, "{...}"); |
| } |
| } |
| |
| int |
| sys_time(struct tcb *tcp) |
| { |
| if (exiting(tcp)) { |
| printnum(tcp, tcp->u_arg[0], "%ld"); |
| } |
| return 0; |
| } |
| |
| int |
| sys_stime(struct tcb *tcp) |
| { |
| if (exiting(tcp)) { |
| printnum(tcp, tcp->u_arg[0], "%ld"); |
| } |
| return 0; |
| } |
| |
| int |
| sys_gettimeofday(struct tcb *tcp) |
| { |
| if (exiting(tcp)) { |
| if (syserror(tcp)) { |
| tprintf("%#lx, %#lx", |
| tcp->u_arg[0], tcp->u_arg[1]); |
| return 0; |
| } |
| printtv(tcp, tcp->u_arg[0]); |
| tprints(", "); |
| printtv(tcp, tcp->u_arg[1]); |
| } |
| return 0; |
| } |
| |
| #ifdef ALPHA |
| int |
| sys_osf_gettimeofday(struct tcb *tcp) |
| { |
| if (exiting(tcp)) { |
| if (syserror(tcp)) { |
| tprintf("%#lx, %#lx", tcp->u_arg[0], tcp->u_arg[1]); |
| return 0; |
| } |
| printtv_bitness(tcp, tcp->u_arg[0], BITNESS_32, 0); |
| tprints(", "); |
| printtv_bitness(tcp, tcp->u_arg[1], BITNESS_32, 0); |
| } |
| return 0; |
| } |
| #endif |
| |
| int |
| sys_settimeofday(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printtv(tcp, tcp->u_arg[0]); |
| tprints(", "); |
| printtv(tcp, tcp->u_arg[1]); |
| } |
| return 0; |
| } |
| |
| #ifdef ALPHA |
| int |
| sys_osf_settimeofday(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printtv_bitness(tcp, tcp->u_arg[0], BITNESS_32, 0); |
| tprints(", "); |
| printtv_bitness(tcp, tcp->u_arg[1], BITNESS_32, 0); |
| } |
| return 0; |
| } |
| #endif |
| |
| int |
| sys_adjtime(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printtv(tcp, tcp->u_arg[0]); |
| tprints(", "); |
| } else { |
| if (syserror(tcp)) |
| tprintf("%#lx", tcp->u_arg[1]); |
| else |
| printtv(tcp, tcp->u_arg[1]); |
| } |
| return 0; |
| } |
| |
| int |
| sys_nanosleep(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| print_timespec(tcp, tcp->u_arg[0]); |
| tprints(", "); |
| } else { |
| /* Second (returned) timespec is only significant |
| * if syscall was interrupted. On success, we print |
| * only its address, since kernel doesn't modify it, |
| * and printing the value may show uninitialized data. |
| */ |
| switch (tcp->u_error) { |
| default: |
| /* Not interrupted (slept entire interval) */ |
| if (tcp->u_arg[1]) { |
| tprintf("%#lx", tcp->u_arg[1]); |
| break; |
| } |
| /* Fall through: print_timespec(NULL) prints "NULL" */ |
| case ERESTARTSYS: |
| case ERESTARTNOINTR: |
| case ERESTARTNOHAND: |
| case ERESTART_RESTARTBLOCK: |
| /* Interrupted */ |
| print_timespec(tcp, tcp->u_arg[1]); |
| } |
| } |
| return 0; |
| } |
| |
| static const struct xlat which[] = { |
| XLAT(ITIMER_REAL), |
| XLAT(ITIMER_VIRTUAL), |
| XLAT(ITIMER_PROF), |
| XLAT_END |
| }; |
| |
| static void |
| printitv_bitness(struct tcb *tcp, long addr, enum bitness_t bitness) |
| { |
| if (addr == 0) |
| tprints("NULL"); |
| else if (!verbose(tcp)) |
| tprintf("%#lx", addr); |
| else { |
| int rc; |
| |
| if (bitness == BITNESS_32 |
| #if SUPPORTED_PERSONALITIES > 1 |
| || current_wordsize == 4 |
| #endif |
| ) |
| { |
| struct { |
| struct timeval32 it_interval, it_value; |
| } itv; |
| |
| rc = umove(tcp, addr, &itv); |
| if (rc >= 0) { |
| tprints("{it_interval="); |
| tprint_timeval32(tcp, &itv.it_interval); |
| tprints(", it_value="); |
| tprint_timeval32(tcp, &itv.it_value); |
| tprints("}"); |
| } |
| } else { |
| struct itimerval itv; |
| |
| rc = umove(tcp, addr, &itv); |
| if (rc >= 0) { |
| tprints("{it_interval="); |
| tprint_timeval(tcp, &itv.it_interval); |
| tprints(", it_value="); |
| tprint_timeval(tcp, &itv.it_value); |
| tprints("}"); |
| } |
| } |
| if (rc < 0) |
| tprints("{...}"); |
| } |
| } |
| |
| #define printitv(tcp, addr) \ |
| printitv_bitness((tcp), (addr), BITNESS_CURRENT) |
| |
| int |
| sys_getitimer(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printxval(which, tcp->u_arg[0], "ITIMER_???"); |
| tprints(", "); |
| } else { |
| if (syserror(tcp)) |
| tprintf("%#lx", tcp->u_arg[1]); |
| else |
| printitv(tcp, tcp->u_arg[1]); |
| } |
| return 0; |
| } |
| |
| #ifdef ALPHA |
| int |
| sys_osf_getitimer(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printxval(which, tcp->u_arg[0], "ITIMER_???"); |
| tprints(", "); |
| } else { |
| if (syserror(tcp)) |
| tprintf("%#lx", tcp->u_arg[1]); |
| else |
| printitv_bitness(tcp, tcp->u_arg[1], BITNESS_32); |
| } |
| return 0; |
| } |
| #endif |
| |
| int |
| sys_setitimer(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printxval(which, tcp->u_arg[0], "ITIMER_???"); |
| tprints(", "); |
| printitv(tcp, tcp->u_arg[1]); |
| tprints(", "); |
| } else { |
| if (syserror(tcp)) |
| tprintf("%#lx", tcp->u_arg[2]); |
| else |
| printitv(tcp, tcp->u_arg[2]); |
| } |
| return 0; |
| } |
| |
| #ifdef ALPHA |
| int |
| sys_osf_setitimer(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printxval(which, tcp->u_arg[0], "ITIMER_???"); |
| tprints(", "); |
| printitv_bitness(tcp, tcp->u_arg[1], BITNESS_32); |
| tprints(", "); |
| } else { |
| if (syserror(tcp)) |
| tprintf("%#lx", tcp->u_arg[2]); |
| else |
| printitv_bitness(tcp, tcp->u_arg[2], BITNESS_32); |
| } |
| return 0; |
| } |
| #endif |
| |
| static const struct xlat adjtimex_modes[] = { |
| XLAT(0), |
| #ifdef ADJ_OFFSET |
| XLAT(ADJ_OFFSET), |
| #endif |
| #ifdef ADJ_FREQUENCY |
| XLAT(ADJ_FREQUENCY), |
| #endif |
| #ifdef ADJ_MAXERROR |
| XLAT(ADJ_MAXERROR), |
| #endif |
| #ifdef ADJ_ESTERROR |
| XLAT(ADJ_ESTERROR), |
| #endif |
| #ifdef ADJ_STATUS |
| XLAT(ADJ_STATUS), |
| #endif |
| #ifdef ADJ_TIMECONST |
| XLAT(ADJ_TIMECONST), |
| #endif |
| #ifdef ADJ_TAI |
| XLAT(ADJ_TAI), |
| #endif |
| #ifdef ADJ_SETOFFSET |
| XLAT(ADJ_SETOFFSET), |
| #endif |
| #ifdef ADJ_MICRO |
| XLAT(ADJ_MICRO), |
| #endif |
| #ifdef ADJ_NANO |
| XLAT(ADJ_NANO), |
| #endif |
| #ifdef ADJ_TICK |
| XLAT(ADJ_TICK), |
| #endif |
| #ifdef ADJ_OFFSET_SINGLESHOT |
| XLAT(ADJ_OFFSET_SINGLESHOT), |
| #endif |
| #ifdef ADJ_OFFSET_SS_READ |
| XLAT(ADJ_OFFSET_SS_READ), |
| #endif |
| XLAT_END |
| }; |
| |
| static const struct xlat adjtimex_status[] = { |
| #ifdef STA_PLL |
| XLAT(STA_PLL), |
| #endif |
| #ifdef STA_PPSFREQ |
| XLAT(STA_PPSFREQ), |
| #endif |
| #ifdef STA_PPSTIME |
| XLAT(STA_PPSTIME), |
| #endif |
| #ifdef STA_FLL |
| XLAT(STA_FLL), |
| #endif |
| #ifdef STA_INS |
| XLAT(STA_INS), |
| #endif |
| #ifdef STA_DEL |
| XLAT(STA_DEL), |
| #endif |
| #ifdef STA_UNSYNC |
| XLAT(STA_UNSYNC), |
| #endif |
| #ifdef STA_FREQHOLD |
| XLAT(STA_FREQHOLD), |
| #endif |
| #ifdef STA_PPSSIGNAL |
| XLAT(STA_PPSSIGNAL), |
| #endif |
| #ifdef STA_PPSJITTER |
| XLAT(STA_PPSJITTER), |
| #endif |
| #ifdef STA_PPSWANDER |
| XLAT(STA_PPSWANDER), |
| #endif |
| #ifdef STA_PPSERROR |
| XLAT(STA_PPSERROR), |
| #endif |
| #ifdef STA_CLOCKERR |
| XLAT(STA_CLOCKERR), |
| #endif |
| #ifdef STA_NANO |
| XLAT(STA_NANO), |
| #endif |
| #ifdef STA_MODE |
| XLAT(STA_MODE), |
| #endif |
| #ifdef STA_CLK |
| XLAT(STA_CLK), |
| #endif |
| XLAT_END |
| }; |
| |
| static const struct xlat adjtimex_state[] = { |
| #ifdef TIME_OK |
| XLAT(TIME_OK), |
| #endif |
| #ifdef TIME_INS |
| XLAT(TIME_INS), |
| #endif |
| #ifdef TIME_DEL |
| XLAT(TIME_DEL), |
| #endif |
| #ifdef TIME_OOP |
| XLAT(TIME_OOP), |
| #endif |
| #ifdef TIME_WAIT |
| XLAT(TIME_WAIT), |
| #endif |
| #ifdef TIME_ERROR |
| XLAT(TIME_ERROR), |
| #endif |
| XLAT_END |
| }; |
| |
| #if SUPPORTED_PERSONALITIES > 1 |
| static int |
| tprint_timex32(struct tcb *tcp, long addr) |
| { |
| struct { |
| unsigned int modes; |
| int offset; |
| int freq; |
| int maxerror; |
| int esterror; |
| int status; |
| int constant; |
| int precision; |
| int tolerance; |
| struct timeval32 time; |
| int tick; |
| int ppsfreq; |
| int jitter; |
| int shift; |
| int stabil; |
| int jitcnt; |
| int calcnt; |
| int errcnt; |
| int stbcnt; |
| } tx; |
| |
| if (umove(tcp, addr, &tx) < 0) |
| return -1; |
| |
| tprints("{modes="); |
| printflags(adjtimex_modes, tx.modes, "ADJ_???"); |
| tprintf(", offset=%d, freq=%d, maxerror=%d, ", |
| tx.offset, tx.freq, tx.maxerror); |
| tprintf("esterror=%u, status=", tx.esterror); |
| printflags(adjtimex_status, tx.status, "STA_???"); |
| tprintf(", constant=%d, precision=%u, ", |
| tx.constant, tx.precision); |
| tprintf("tolerance=%d, time=", tx.tolerance); |
| tprint_timeval32(tcp, &tx.time); |
| tprintf(", tick=%d, ppsfreq=%d, jitter=%d", |
| tx.tick, tx.ppsfreq, tx.jitter); |
| tprintf(", shift=%d, stabil=%d, jitcnt=%d", |
| tx.shift, tx.stabil, tx.jitcnt); |
| tprintf(", calcnt=%d, errcnt=%d, stbcnt=%d", |
| tx.calcnt, tx.errcnt, tx.stbcnt); |
| tprints("}"); |
| return 0; |
| } |
| #endif /* SUPPORTED_PERSONALITIES > 1 */ |
| |
| static int |
| tprint_timex(struct tcb *tcp, long addr) |
| { |
| struct timex tx; |
| |
| #if SUPPORTED_PERSONALITIES > 1 |
| if (current_wordsize == 4) |
| return tprint_timex32(tcp, addr); |
| #endif |
| if (umove(tcp, addr, &tx) < 0) |
| return -1; |
| |
| #if LINUX_VERSION_CODE < 66332 |
| tprintf("{mode=%d, offset=%ld, frequency=%ld, ", |
| tx.mode, tx.offset, tx.frequency); |
| tprintf("maxerror=%ld, esterror=%lu, status=%u, ", |
| tx.maxerror, tx.esterror, tx.status); |
| tprintf("time_constant=%ld, precision=%lu, ", |
| tx.time_constant, tx.precision); |
| tprintf("tolerance=%ld, time=", tx.tolerance); |
| tprint_timeval(tcp, &tx.time); |
| #else |
| tprints("{modes="); |
| printflags(adjtimex_modes, tx.modes, "ADJ_???"); |
| tprintf(", offset=%ld, freq=%ld, maxerror=%ld, ", |
| (long) tx.offset, (long) tx.freq, (long) tx.maxerror); |
| tprintf("esterror=%lu, status=", (long) tx.esterror); |
| printflags(adjtimex_status, tx.status, "STA_???"); |
| tprintf(", constant=%ld, precision=%lu, ", |
| (long) tx.constant, (long) tx.precision); |
| tprintf("tolerance=%ld, time=", (long) tx.tolerance); |
| tprint_timeval(tcp, &tx.time); |
| tprintf(", tick=%ld, ppsfreq=%ld, jitter=%ld", |
| (long) tx.tick, (long) tx.ppsfreq, (long) tx.jitter); |
| tprintf(", shift=%d, stabil=%ld, jitcnt=%ld", |
| tx.shift, (long) tx.stabil, (long) tx.jitcnt); |
| tprintf(", calcnt=%ld, errcnt=%ld, stbcnt=%ld", |
| (long) tx.calcnt, (long) tx.errcnt, (long) tx.stbcnt); |
| #endif |
| tprints("}"); |
| return 0; |
| } |
| |
| static int |
| do_adjtimex(struct tcb *tcp, long addr) |
| { |
| if (addr == 0) |
| tprints("NULL"); |
| else if (syserror(tcp) || !verbose(tcp)) |
| tprintf("%#lx", addr); |
| else if (tprint_timex(tcp, addr) < 0) |
| tprints("{...}"); |
| if (syserror(tcp)) |
| return 0; |
| tcp->auxstr = xlookup(adjtimex_state, tcp->u_rval); |
| if (tcp->auxstr) |
| return RVAL_STR; |
| return 0; |
| } |
| |
| int |
| sys_adjtimex(struct tcb *tcp) |
| { |
| if (exiting(tcp)) |
| return do_adjtimex(tcp, tcp->u_arg[0]); |
| return 0; |
| } |
| |
| static const struct xlat clockflags[] = { |
| XLAT(TIMER_ABSTIME), |
| XLAT_END |
| }; |
| |
| static const struct xlat clocknames[] = { |
| #ifdef CLOCK_REALTIME |
| XLAT(CLOCK_REALTIME), |
| #endif |
| #ifdef CLOCK_MONOTONIC |
| XLAT(CLOCK_MONOTONIC), |
| #endif |
| #ifdef CLOCK_PROCESS_CPUTIME_ID |
| XLAT(CLOCK_PROCESS_CPUTIME_ID), |
| #endif |
| #ifdef CLOCK_THREAD_CPUTIME_ID |
| XLAT(CLOCK_THREAD_CPUTIME_ID), |
| #endif |
| #ifdef CLOCK_MONOTONIC_RAW |
| XLAT(CLOCK_MONOTONIC_RAW), |
| #endif |
| #ifdef CLOCK_REALTIME_COARSE |
| XLAT(CLOCK_REALTIME_COARSE), |
| #endif |
| #ifdef CLOCK_MONOTONIC_COARSE |
| XLAT(CLOCK_MONOTONIC_COARSE), |
| #endif |
| XLAT_END |
| }; |
| |
| #ifdef CLOCKID_TO_FD |
| static const struct xlat cpuclocknames[] = { |
| XLAT(CPUCLOCK_PROF), |
| XLAT(CPUCLOCK_VIRT), |
| XLAT(CPUCLOCK_SCHED), |
| XLAT_END |
| }; |
| #endif |
| |
| static void |
| printclockname(int clockid) |
| { |
| #ifdef CLOCKID_TO_FD |
| if (clockid < 0) { |
| if ((clockid & CLOCKFD_MASK) == CLOCKFD) |
| tprintf("FD_TO_CLOCKID(%d)", CLOCKID_TO_FD(clockid)); |
| else { |
| if(CPUCLOCK_PERTHREAD(clockid)) |
| tprintf("MAKE_THREAD_CPUCLOCK(%d,", CPUCLOCK_PID(clockid)); |
| else |
| tprintf("MAKE_PROCESS_CPUCLOCK(%d,", CPUCLOCK_PID(clockid)); |
| printxval(cpuclocknames, clockid & CLOCKFD_MASK, "CPUCLOCK_???"); |
| tprints(")"); |
| } |
| } |
| else |
| #endif |
| printxval(clocknames, clockid, "CLOCK_???"); |
| } |
| |
| int |
| sys_clock_settime(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printclockname(tcp->u_arg[0]); |
| tprints(", "); |
| printtv(tcp, tcp->u_arg[1]); |
| } |
| return 0; |
| } |
| |
| int |
| sys_clock_gettime(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printclockname(tcp->u_arg[0]); |
| tprints(", "); |
| } else { |
| if (syserror(tcp)) |
| tprintf("%#lx", tcp->u_arg[1]); |
| else |
| printtv(tcp, tcp->u_arg[1]); |
| } |
| return 0; |
| } |
| |
| int |
| sys_clock_nanosleep(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printclockname(tcp->u_arg[0]); |
| tprints(", "); |
| printflags(clockflags, tcp->u_arg[1], "TIMER_???"); |
| tprints(", "); |
| printtv(tcp, tcp->u_arg[2]); |
| tprints(", "); |
| } else { |
| if (syserror(tcp)) |
| tprintf("%#lx", tcp->u_arg[3]); |
| else |
| printtv(tcp, tcp->u_arg[3]); |
| } |
| return 0; |
| } |
| |
| int |
| sys_clock_adjtime(struct tcb *tcp) |
| { |
| if (exiting(tcp)) |
| return do_adjtimex(tcp, tcp->u_arg[1]); |
| printclockname(tcp->u_arg[0]); |
| tprints(", "); |
| return 0; |
| } |
| |
| #ifndef SIGEV_THREAD_ID |
| # define SIGEV_THREAD_ID 4 |
| #endif |
| static const struct xlat sigev_value[] = { |
| XLAT(SIGEV_SIGNAL), |
| XLAT(SIGEV_NONE), |
| XLAT(SIGEV_THREAD), |
| XLAT(SIGEV_THREAD_ID), |
| XLAT_END |
| }; |
| |
| #if SUPPORTED_PERSONALITIES > 1 |
| static void |
| printsigevent32(struct tcb *tcp, long arg) |
| { |
| struct { |
| int sigev_value; |
| int sigev_signo; |
| int sigev_notify; |
| |
| union { |
| int tid; |
| struct { |
| int function, attribute; |
| } thread; |
| } un; |
| } sev; |
| |
| if (umove(tcp, arg, &sev) < 0) |
| tprints("{...}"); |
| else { |
| tprintf("{%#x, ", sev.sigev_value); |
| if (sev.sigev_notify == SIGEV_SIGNAL) |
| tprintf("%s, ", signame(sev.sigev_signo)); |
| else |
| tprintf("%u, ", sev.sigev_signo); |
| printxval(sigev_value, sev.sigev_notify, "SIGEV_???"); |
| tprints(", "); |
| if (sev.sigev_notify == SIGEV_THREAD_ID) |
| tprintf("{%d}", sev.un.tid); |
| else if (sev.sigev_notify == SIGEV_THREAD) |
| tprintf("{%#x, %#x}", |
| sev.un.thread.function, |
| sev.un.thread.attribute); |
| else |
| tprints("{...}"); |
| tprints("}"); |
| } |
| } |
| #endif |
| |
| void |
| printsigevent(struct tcb *tcp, long arg) |
| { |
| struct sigevent sev; |
| |
| #if SUPPORTED_PERSONALITIES > 1 |
| if (current_wordsize == 4) { |
| printsigevent32(tcp, arg); |
| return; |
| } |
| #endif |
| if (umove(tcp, arg, &sev) < 0) |
| tprints("{...}"); |
| else { |
| tprintf("{%p, ", sev.sigev_value.sival_ptr); |
| if (sev.sigev_notify == SIGEV_SIGNAL) |
| tprintf("%s, ", signame(sev.sigev_signo)); |
| else |
| tprintf("%u, ", sev.sigev_signo); |
| printxval(sigev_value, sev.sigev_notify, "SIGEV_???"); |
| tprints(", "); |
| if (sev.sigev_notify == SIGEV_THREAD_ID) |
| #if defined(HAVE_STRUCT_SIGEVENT__SIGEV_UN__PAD) |
| /* _pad[0] is the _tid field which might not be |
| present in the userlevel definition of the |
| struct. */ |
| tprintf("{%d}", sev._sigev_un._pad[0]); |
| #elif defined(HAVE_STRUCT_SIGEVENT___PAD) |
| tprintf("{%d}", sev.__pad[0]); |
| #else |
| # warning unfamiliar struct sigevent => incomplete SIGEV_THREAD_ID decoding |
| tprints("{...}"); |
| #endif |
| else if (sev.sigev_notify == SIGEV_THREAD) |
| tprintf("{%p, %p}", sev.sigev_notify_function, |
| sev.sigev_notify_attributes); |
| else |
| tprints("{...}"); |
| tprints("}"); |
| } |
| } |
| |
| int |
| sys_timer_create(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printclockname(tcp->u_arg[0]); |
| tprints(", "); |
| printsigevent(tcp, tcp->u_arg[1]); |
| tprints(", "); |
| } else { |
| int timer_id; |
| |
| if (syserror(tcp) || umove(tcp, tcp->u_arg[2], &timer_id) < 0) |
| tprintf("%#lx", tcp->u_arg[2]); |
| else |
| tprintf("{%d}", timer_id); |
| } |
| return 0; |
| } |
| |
| int |
| sys_timer_settime(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| tprintf("%#lx, ", tcp->u_arg[0]); |
| printflags(clockflags, tcp->u_arg[1], "TIMER_???"); |
| tprints(", "); |
| printitv(tcp, tcp->u_arg[2]); |
| tprints(", "); |
| } else { |
| if (syserror(tcp)) |
| tprintf("%#lx", tcp->u_arg[3]); |
| else |
| printitv(tcp, tcp->u_arg[3]); |
| } |
| return 0; |
| } |
| |
| int |
| sys_timer_gettime(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| tprintf("%#lx, ", tcp->u_arg[0]); |
| } else { |
| if (syserror(tcp)) |
| tprintf("%#lx", tcp->u_arg[1]); |
| else |
| printitv(tcp, tcp->u_arg[1]); |
| } |
| return 0; |
| } |
| |
| static void |
| print_rtc(struct tcb *tcp, const struct rtc_time *rt) |
| { |
| tprintf("{tm_sec=%d, tm_min=%d, tm_hour=%d, " |
| "tm_mday=%d, tm_mon=%d, tm_year=%d, ", |
| rt->tm_sec, rt->tm_min, rt->tm_hour, |
| rt->tm_mday, rt->tm_mon, rt->tm_year); |
| if (!abbrev(tcp)) |
| tprintf("tm_wday=%d, tm_yday=%d, tm_isdst=%d}", |
| rt->tm_wday, rt->tm_yday, rt->tm_isdst); |
| else |
| tprints("...}"); |
| } |
| |
| int |
| rtc_ioctl(struct tcb *tcp, long code, long arg) |
| { |
| switch (code) { |
| case RTC_ALM_SET: |
| case RTC_SET_TIME: |
| if (entering(tcp)) { |
| struct rtc_time rt; |
| if (umove(tcp, arg, &rt) < 0) |
| tprintf(", %#lx", arg); |
| else { |
| tprints(", "); |
| print_rtc(tcp, &rt); |
| } |
| } |
| break; |
| case RTC_ALM_READ: |
| case RTC_RD_TIME: |
| if (exiting(tcp)) { |
| struct rtc_time rt; |
| if (syserror(tcp) || umove(tcp, arg, &rt) < 0) |
| tprintf(", %#lx", arg); |
| else { |
| tprints(", "); |
| print_rtc(tcp, &rt); |
| } |
| } |
| break; |
| case RTC_IRQP_SET: |
| case RTC_EPOCH_SET: |
| if (entering(tcp)) |
| tprintf(", %lu", arg); |
| break; |
| case RTC_IRQP_READ: |
| case RTC_EPOCH_READ: |
| if (exiting(tcp)) |
| tprintf(", %lu", arg); |
| break; |
| case RTC_WKALM_SET: |
| if (entering(tcp)) { |
| struct rtc_wkalrm wk; |
| if (umove(tcp, arg, &wk) < 0) |
| tprintf(", %#lx", arg); |
| else { |
| tprintf(", {enabled=%d, pending=%d, ", |
| wk.enabled, wk.pending); |
| print_rtc(tcp, &wk.time); |
| tprints("}"); |
| } |
| } |
| break; |
| case RTC_WKALM_RD: |
| if (exiting(tcp)) { |
| struct rtc_wkalrm wk; |
| if (syserror(tcp) || umove(tcp, arg, &wk) < 0) |
| tprintf(", %#lx", arg); |
| else { |
| tprintf(", {enabled=%d, pending=%d, ", |
| wk.enabled, wk.pending); |
| print_rtc(tcp, &wk.time); |
| tprints("}"); |
| } |
| } |
| break; |
| default: |
| if (entering(tcp)) |
| tprintf(", %#lx", arg); |
| break; |
| } |
| return 1; |
| } |
| |
| #ifndef TFD_TIMER_ABSTIME |
| #define TFD_TIMER_ABSTIME (1 << 0) |
| #endif |
| |
| static const struct xlat timerfdflags[] = { |
| XLAT(TFD_TIMER_ABSTIME), |
| XLAT_END |
| }; |
| |
| int |
| sys_timerfd(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| /* It does not matter that the kernel uses itimerspec. */ |
| tprintf("%ld, ", tcp->u_arg[0]); |
| printclockname(tcp->u_arg[0]); |
| tprints(", "); |
| printflags(timerfdflags, tcp->u_arg[2], "TFD_???"); |
| tprints(", "); |
| printitv(tcp, tcp->u_arg[3]); |
| } |
| return 0; |
| } |
| |
| int |
| sys_timerfd_create(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printclockname(tcp->u_arg[0]); |
| tprints(", "); |
| printflags(timerfdflags, tcp->u_arg[1], "TFD_???"); |
| } |
| return 0; |
| } |
| |
| int |
| sys_timerfd_settime(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printfd(tcp, tcp->u_arg[0]); |
| tprints(", "); |
| printflags(timerfdflags, tcp->u_arg[1], "TFD_???"); |
| tprints(", "); |
| printitv(tcp, tcp->u_arg[2]); |
| tprints(", "); |
| printitv(tcp, tcp->u_arg[3]); |
| } |
| return 0; |
| } |
| |
| int |
| sys_timerfd_gettime(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printfd(tcp, tcp->u_arg[0]); |
| tprints(", "); |
| printitv(tcp, tcp->u_arg[1]); |
| } |
| return 0; |
| } |