Subversion Repositories SvarDOS

Rev

Rev 995 | Rev 1602 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 995 Rev 1111
Line 137... Line 137...
137 
  struct customdirs *dirlist;
 137 
  struct customdirs *dirlist;
138 
 
 138 
 
139 
  svarlang_autoload("pkg"); /* NLS init */
 139 
  svarlang_autoload("pkg"); /* NLS init */
140 
 
 140 
 
141 
  action = parsearg(argc, argv);
 141 
  action = parsearg(argc, argv);
- 
 
 142 
  switch (action) {
142 
  if (action == ACTION_HELP) {
 143 
    case ACTION_HELP:
143 
    showhelp();
 144 
      res = showhelp();
- 
 
 145 
      goto GAMEOVER;
- 
 
 146 
      break;
- 
 
 147 
    case ACTION_UNZIP:
- 
 
 148 
      res = unzip(argv[2]);
144 
    goto GAMEOVER;
 149 
      goto GAMEOVER;
- 
 
 150 
      break;
145 
  }
 151 
  }
146 
 
 152 
 
147 
  /* read the DOSDIR environment variable */
 153 
  /* read the DOSDIR environment variable */
148 
  dosdir = getenv("DOSDIR");
 154 
  dosdir = getenv("DOSDIR");
149 
  if (dosdir == NULL) {
 155 
  if (dosdir == NULL) {
Line 167... Line 173...
167 
      res = listfilesofpkg(argv[2], dosdir);
 173 
      res = listfilesofpkg(argv[2], dosdir);
168 
      break;
 174 
      break;
169 
    case ACTION_LISTLOCAL:
 175 
    case ACTION_LISTLOCAL:
170 
      res = showinstalledpkgs((argc == 3)?argv[2]:NULL, dosdir);
 176 
      res = showinstalledpkgs((argc == 3)?argv[2]:NULL, dosdir);
171 
      break;
 177 
      break;
172 
    case ACTION_UNZIP:
 - 
 
173 
      res = unzip(argv[2]);
 - 
 
174 
      break;
 - 
 
175 
    default:
 178 
    default:
176 
      res = showhelp();
 179 
      res = showhelp();
177 
      break;
 180 
      break;
178 
  }
 181 
  }
179 
 
 182