pkg/trunk/exec/sysreq

   1 #!/usr/bin/env r
   2
   3 suppressPackageStartupMessages(library(cran2deb))
   4 suppressPackageStartupMessages(library(digest))
   5
   6 exec_cmd <- function(argc, argv) {
   7     usage <- function()
   8         message('usage: add <debianpkg> <sysreq>|ls|quit|help')
   9
  10     if (argc < 1) {
  11         exit()
  12     }
  13     cmd = argv[1]
  14
  15     if (cmd == 'add') {
  16         if (argc < 3) {
  17             usage()
  18             return()
  19         }
  20         sysreq = paste(argv[3:argc],collapse=' ')
  21         db.add.sysreq.override(sysreq,argv[2])
  22     } else if (cmd == 'ls') {
  23         print(db.sysreq.overrides())
  24     } else if (cmd == 'help') {
  25         usage()
  26         return()
  27     } else if (cmd == 'quit') {
  28         exit()
  29     }
  30 }
  31
  32 argc <- length(argv)
  33 if (argc > 1) {
  34     exec_cmd(argc-1,argv[c(2:argc)])
  35 } else {
  36     while(T) {
  37         argv <- strsplit(readline('sysreq> '),'[[:space:]]+')[[1]]
  38         exec_cmd(length(argv),argv)
  39     }
  40 }