summaryrefslogtreecommitdiff
path: root/util-linux/scriptreplay.c (plain)
blob: 8a0c7489d17e8b6becc0edc44d6edbb657dcb3a2
1/* vi: set sw=4 ts=4: */
2/*
3 * scriptreplay - play back typescripts, using timing information
4 *
5 * pascal.bellard@ads-lu.com
6 *
7 * Licensed under GPLv2 or later, see file LICENSE in this source tree.
8 *
9 */
10//config:config SCRIPTREPLAY
11//config: bool "scriptreplay"
12//config: default y
13//config: help
14//config: This program replays a typescript, using timing information
15//config: given by script -t.
16
17//applet:IF_SCRIPTREPLAY(APPLET(scriptreplay, BB_DIR_BIN, BB_SUID_DROP))
18
19//kbuild:lib-$(CONFIG_SCRIPTREPLAY) += scriptreplay.o
20
21//usage:#define scriptreplay_trivial_usage
22//usage: "timingfile [typescript [divisor]]"
23//usage:#define scriptreplay_full_usage "\n\n"
24//usage: "Play back typescripts, using timing information"
25
26#include "libbb.h"
27
28int scriptreplay_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
29int scriptreplay_main(int argc UNUSED_PARAM, char **argv)
30{
31 const char *script = "typescript";
32 double delay, factor = 1000000.0;
33 int fd;
34 unsigned long count;
35 FILE *tfp;
36
37 if (!argv[1])
38 bb_show_usage();
39
40 if (argv[2]) {
41 script = argv[2];
42 if (argv[3])
43 factor /= atof(argv[3]);
44 }
45
46 tfp = xfopen_for_read(argv[1]);
47 fd = xopen(script, O_RDONLY);
48 while (fscanf(tfp, "%lf %lu\n", &delay, &count) == 2) {
49 usleep(delay * factor);
50 bb_copyfd_exact_size(fd, STDOUT_FILENO, count);
51 }
52 if (ENABLE_FEATURE_CLEAN_UP) {
53 close(fd);
54 fclose(tfp);
55 }
56 return EXIT_SUCCESS;
57}
58