pkg/trunk/cranpkgs

   1 #!/usr/bin/env r
   2
   3 root <- '/home/cb/work/gsoc/cran2deb'
   4 # we cache the list of available packages
   5 load(file.path(root,'var/cache/available.cache.Rd'))
   6
   7 if (length(argv) == 0) {
   8     writeLines(sample(dimnames(available)[[1]],800))
   9     #writeLines(dimnames(available)[[1]])
  10 } else {
  11     if (argv[1] == 'query') {
  12         for (ctv in ctv.available) {
  13             writeLines(ctv$name)
  14         }
  15         q(save='no')
  16     }
  17     # list of task lists
  18     for (ctv in ctv.available) {
  19         if (ctv$name %in% argv) {
  20             writeLines(ctv$packagelist$name)
  21         }
  22     }
  23 }