wok-6.x annotate busybox/stuff/busybox-1.31-scriptreplay.u @ rev 24418
clamtk: replaced perl-gtk2 by perl-gtk3
author | Hans-G?nter Theisgen |
---|---|
date | Fri Feb 11 09:25:31 2022 +0100 (2022-02-11) |
parents | |
children |
rev | line source |
---|---|
pascal@21761 | 1 --- busybox-1.31/util-linux/scriptreplay.c |
pascal@21761 | 2 +++ busybox-1.31/util-linux/scriptreplay.c |
pascal@21761 | 3 @@ -17,10 +17,20 @@ |
pascal@21761 | 4 |
pascal@21761 | 5 //kbuild:lib-$(CONFIG_SCRIPTREPLAY) += scriptreplay.o |
pascal@21761 | 6 |
pascal@21761 | 7 +//config:config SCRIPTREPLAY_HOTKEYS |
pascal@21761 | 8 +//config: bool "speed control hotkeys" |
pascal@21761 | 9 +//config: default n |
pascal@21761 | 10 +//config: depends on SCRIPTREPLAY |
pascal@21761 | 11 +//config: help |
pascal@21761 | 12 +//config: Tune replay speed with + - = space return hotkeys. |
pascal@21761 | 13 + |
pascal@21761 | 14 //usage:#define scriptreplay_trivial_usage |
pascal@21761 | 15 //usage: "TIMINGFILE [TYPESCRIPT [DIVISOR]]" |
pascal@21761 | 16 //usage:#define scriptreplay_full_usage "\n\n" |
pascal@21761 | 17 //usage: "Play back typescripts, using timing information" |
pascal@21761 | 18 +//usage: IF_SCRIPTREPLAY_HOTKEYS( |
pascal@21761 | 19 +//usage: " and + - = space return hotkeys" |
pascal@21761 | 20 +//usage: ) |
pascal@21761 | 21 |
pascal@21761 | 22 #include "libbb.h" |
pascal@21761 | 23 |
pascal@21761 | 24 @@ -30,6 +40,10 @@ |
pascal@21761 | 25 const char *script = "typescript"; |
pascal@21761 | 26 double delay, factor = 1000000.0; |
pascal@21761 | 27 int fd; |
pascal@21761 | 28 +#if ENABLE_SCRIPTREPLAY_HOTKEYS |
pascal@21761 | 29 + int timeout = -1; |
pascal@21761 | 30 + char buffer[KEYCODE_BUFFER_SIZE]; |
pascal@21761 | 31 +#endif |
pascal@21761 | 32 unsigned long count; |
pascal@21761 | 33 FILE *tfp; |
pascal@21761 | 34 |
pascal@21761 | 35 @@ -47,6 +61,21 @@ |
pascal@21761 | 36 while (fscanf(tfp, "%lf %lu\n", &delay, &count) == 2) { |
pascal@21761 | 37 usleep(delay * factor); |
pascal@21761 | 38 bb_copyfd_exact_size(fd, STDOUT_FILENO, count); |
pascal@21761 | 39 +#if ENABLE_SCRIPTREPLAY_HOTKEYS |
pascal@21761 | 40 + switch (read_key(0, buffer, timeout)) { |
pascal@21761 | 41 + case ' ': |
pascal@21761 | 42 + timeout = INT_MAX; |
pascal@21761 | 43 + break; |
pascal@21761 | 44 + case '=': |
pascal@21761 | 45 + factor = 1000000.0/2; |
pascal@21761 | 46 + case '-': |
pascal@21761 | 47 + factor *= 4; |
pascal@21761 | 48 + case '+': |
pascal@21761 | 49 + factor /= 2; |
pascal@21761 | 50 + default : |
pascal@21761 | 51 + timeout = -1; |
pascal@21761 | 52 + } |
pascal@21761 | 53 +#endif |
pascal@21761 | 54 } |
pascal@21761 | 55 if (ENABLE_FEATURE_CLEAN_UP) { |
pascal@21761 | 56 close(fd); |