src/pack.sp

   1 #!./soopy
   2
   3 fun usage(){
   4   do: [
   5     println "usage: soopy pack.sp Version";
   6     println "  ex. soopy pack.sp 0.5.1";
   7   ];
   8 };
   9
  10 fun pack(ver:string){
  11   var:[name];
  12   do: [
  13     println("pack verion " + ver);
  14     name = "soopy-" + ver + "-linux";
  15     system("mkdir pack/" + name);
  16     println("mkdir pack/" + name + " .. done.");
  17     system("mkdir pack/" + name + "/examples");
  18     println("mkdir pack/" + name + "/examples .. done.");
  19     system("cp soopy pack/" + name);
  20     system("cp test/*.sp pack/" + name + "/examples");
  21     system("cp test/*.cgi pack/" + name + "/examples");
  22     Dir chdir("pack");
  23     system("tar cvf " + name + ".tar " + name);
  24     system("gzip " + name + ".tar");
  25   ];
  26 };
  27
  28 match(Soopy CommandLine){
  29   [ver]: pack(ver);
  30   else: usage();
  31 };