util-linux/scriptreplay.c

   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 (2.6 kb)"
  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
  28 int scriptreplay_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
  29 int 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 }