Subversion Repositories SvarDOS

Rev

Rev 2163 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2163 Rev 2164
Line 296... Line 296...
296
 
296
 
297
 
297
 
298
// load the list of CORE and MSDOS_COMPAT packages
298
// load the list of CORE and MSDOS_COMPAT packages
299
 
299
 
300
$core_packages_list = load_core_list($repodir . '/../packages-core/');
300
$core_packages_list = load_core_list($repodir . '/../packages-core/');
301
$msdos_compat_list = explode(' ', 'append assign attrib callver chkdsk choice comp cpidos debug defrag deltree diskcomp diskcopy display edlin exe2bin fc fdapm fdisk find format help himemx kernel keyb label localcfg mem mirror mode more move nlsfunc print replace share shsucdx sort svarcom sved swsubst tree undelete unformat xcopy');
301
$msdos_compat_list = explode(' ', 'append assign attrib callver chkdsk choice comp cpidos debug defrag deltree diskcomp diskcopy display edlin exe2bin fc fdapm fdisk find format freecom help himemx kernledr kernlfd keyb label localcfg mem mirror mode more move nlsfunc print replace share shsucdx sort svarcom sved swsubst tree undelete unformat xcopy');
302
 
302
 
303
// do a list of all svp packages with their available versions and descriptions
303
// do a list of all svp packages with their available versions and descriptions
304
 
304
 
305
$pkgdb = array();
305
$pkgdb = array();
306
foreach ($pkgfiles as $fname) {
306
foreach ($pkgfiles as $fname) {
Line 410... Line 410...
410
    }
410
    }
411
    // SVARCOM and FREECOM are allowed to have a root-based COMMAND.COM file
411
    // SVARCOM and FREECOM are allowed to have a root-based COMMAND.COM file
412
    if (($pkgnam === 'svarcom') || ($pkgnam === 'freecom')) {
412
    if (($pkgnam === 'svarcom') || ($pkgnam === 'freecom')) {
413
      if ($f === 'command.com') continue;
413
      if ($f === 'command.com') continue;
414
    }
414
    }
-
 
415
    // KERNL* packages are allowed to have a root-based KERNEL.SYS file and BIN/COUNTRY.SYS
-
 
416
    if (str_head_is($pkgnam, "kernl")) {
-
 
417
      if ($f === 'kernel.sys') continue;
-
 
418
      if ($f === 'bin/country.sys') continue;
-
 
419
    }
415
    // the help package is allowed to put files in... help
420
    // the help package is allowed to put files in... help
416
    if (($pkgnam == 'help') && (str_head_is($f, 'help/'))) continue;
421
    if (($pkgnam == 'help') && (str_head_is($f, 'help/'))) continue;
417
    // must be category-prefixed file, add it to the list of categories for this package
422
    // must be category-prefixed file, add it to the list of categories for this package
418
    $catlist[] = explode('/', $f)[0];
423
    $catlist[] = explode('/', $f)[0];
419
    // well-known "category" dirs are okay
424
    // well-known "category" dirs are okay