Subversion Repositories SvarDOS

Rev

Rev 1522 | Rev 1607 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
562 mateuszvis 1
<?php /*
2
 
3
  SvarDOS repo index builder
1267 mateusz.vi 4
  Copyright (C) Mateusz Viste 2012-2023
562 mateuszvis 5
 
734 bttr 6
  buildidx computes an index json file for the SvarDOS repository.
673 mateusz.vi 7
  it must be executed pointing to a directory that stores packages (*.svp)
562 mateuszvis 8
  files. buildidx will generate the index file and save it into the package
9
  repository.
10
 
11
  requires php-zip
12
 
1522 mateusz.vi 13
  25 aug 2023: validation of the hwreq section in LSM files
1509 mateusz.vi 14
  24 aug 2023: load hwreq data from LSM and store them in the json index + skip the '.svn' dir
1267 mateusz.vi 15
  30 jun 2023: adapted for new CORE packages location (../packages-core)
999 mateusz.vi 16
  28 feb 2022: svarcom allowed to have a COMMAND.COM file without subdirectory
951 mateusz.vi 17
  24 feb 2022: added hardcoded hack to translate version 'x.xx' to '0.44' (NESticle)
941 mateusz.vi 18
  23 feb 2022: basic validation of source archives (not empty + matches an existing svp file)
912 mateusz.vi 19
  21 feb 2022: buildidx collects categories looking at the dir layout of each package + improved version string parsing (replaced version_compare call by dos_version_compare)
775 mateusz.vi 20
  17 feb 2022: checking for non-8+3 filenames in packages and duplicates + devload no longer part of CORE
736 mateusz.vi 21
  16 feb 2022: added warning about overlong version strings and wild files location
719 mateusz.vi 22
  15 feb 2022: index is generated as json, contains all filenames and alt versions
673 mateusz.vi 23
  14 feb 2022: packages are expected to have the *.svp extension
650 mateusz.vi 24
  12 feb 2022: skip source packages from being processed (*.src.zip)
562 mateuszvis 25
  20 jan 2022: rewritten the code from ANSI C to PHP for easier maintenance
26
  13 feb 2021: 'title' LSM field is no longer looked after
27
  11 feb 2021: lsm headers are no longer checked, so it is compatible with the simpler lsm format used by SvarDOS
28
  13 jan 2021: removed the identification line, changed CRC32 to bsum, not creating the listing.txt file and stopped compressing index
29
  23 apr 2017: uncompressed index is no longer created, added CRC32 of zib (bin only) files, if present
30
  28 aug 2016: listing.txt is always written inside the repo dir (instead of inside current dir)
31
  27 aug 2016: accepting full paths to repos (starting with /...)
32
  07 dec 2013: rewritten buildidx in ANSI C89
33
  19 aug 2013: add a compressed version of the index file to repos (index.gz)
34
  22 jul 2013: creating a listing.txt file with list of packages
35
  18 jul 2013: writing the number of packaged into the first line of the lst file
36
  11 jul 2013: added a switch to 7za to make it case insensitive when extracting lsm files
37
  10 jul 2013: changed unzip calls to 7za (to handle cases when appinfo is compressed with lzma)
38
  04 feb 2013: added CRC32 support
39
  22 sep 2012: forked 1st version from FDUPDATE builder
40
*/
41
 
1522 mateusz.vi 42
$PVER = "20230825";
562 mateuszvis 43
 
44
 
45
// computes the BSD sum of a file and returns it
46
function file2bsum($fname) {
47
  $result = 0;
48
 
49
  $fd = fopen($fname, 'rb');
50
  if ($fd === false) return(0);
51
 
52
  while (!feof($fd)) {
53
 
54
    $buff = fread($fd, 1024 * 1024);
55
 
563 mateuszvis 56
    $slen = strlen($buff);
57
    for ($i = 0; $i < $slen; $i++) {
562 mateuszvis 58
      // rotr
59
      $result = ($result >> 1) | ($result << 15);
60
      // add and truncate to 16 bits
563 mateuszvis 61
      $result += ord($buff[$i]);
562 mateuszvis 62
      $result &= 0xffff;
63
    }
64
  }
65
 
66
  fclose($fd);
67
  return($result);
68
}
69
 
70
 
912 mateusz.vi 71
// translates a version string into a array of integer values.
72
// Accepted formats follow:
73
//    300.12.1
74
//    1
75
//    12.2.34.2-4.5
76
//    1.2c
77
//    1.01 beta+3
78
//    2013-12-31
79
//    20220222 alpha
80
function vertoarr($verstr) {
81
  $subver = array(0,0,0,0);
82
 
83
  // switch string to lcase for easier processing and trim any leading or trailing white spaces
84
  $verstr = strtolower(trim($verstr));
85
 
86
  // replace all '-' and '/' characters to '.' (uniformization of sub-version parts delimiters)
87
  $verstr = strtr($verstr, '-/', '..');
88
 
89
  // is there a subversion value? (for example "+4" in "1.05+4")
90
  $i = strrpos($verstr, '+', 1);
91
  if ($i !== false) {
92
    // validate the svar-version is a proper integer
93
    $svarver = substr($verstr, $i + 1);
94
    if (! preg_match('/[1-9][0-9]*/', $svarver)) {
95
      return(false);
96
    }
97
    $subver[3] = intval($svarver); // set the +rev as a very minor item
98
    $verstr = substr($verstr, 0, $i);
99
  }
100
 
951 mateusz.vi 101
  // NESticls hack: version "x.xx" is translated to "0.44"... that sucks but that's how it is.
102
  // ref: https://web.archive.org/web/20070205074631/http://www.zophar.net/NESticle/
103
  if ($verstr == 'x.xx') $verstr = '0.44';
104
 
936 mateusz.vi 105
  // beta reordering: convert "beta 0.95" to "0.95 beta"
106
  if (preg_match('/^beta /', $verstr)) $verstr = substr($verstr, 5) . ' beta';
107
 
927 mateusz.vi 108
  // any occurence of alpha,beta,gamma,delta etc preceded by a digit should have a space separator added
109
  // example: "2.6.0pre9" becomes "2.6.0 pre9"
110
  $verstr = preg_replace('/([0-9])(alpha|beta|gamma|delta|pre|rc|patch)/', '$1 $2', $verstr);
111
 
112
  // same as above, but this time adding a trailing space separator
113
  // example: "2.6.0 pre9" becomes "2.6.0 pre 9"
114
  $verstr = preg_replace('/(alpha|beta|gamma|delta|pre|rc|patch)([0-9])/', '$1 $2', $verstr);
115
 
921 mateusz.vi 116
  // is the version ending with ' alpha', 'beta', etc?
922 mateusz.vi 117
  if (preg_match('/ (alpha|beta|gamma|delta|pre|rc|patch)( [0-9]{1,4}){0,1}$/', $verstr)) {
921 mateusz.vi 118
    // if there is a trailing beta-number, process it first
119
    if (preg_match('/ [0-9]{1,4}$/', $verstr)) {
120
      $i = strrpos($verstr, ' ');
121
      $subver[2] = intval(substr($verstr, $i + 1));
122
      $verstr = trim(substr($verstr, 0, $i));
123
    }
912 mateusz.vi 124
    $i = strrpos($verstr, ' ');
125
    $greek = substr($verstr, $i + 1);
126
    $verstr = trim(substr($verstr, 0, $i));
127
    if ($greek == 'alpha') {
921 mateusz.vi 128
      $subver[1] = 1;
912 mateusz.vi 129
    } else if ($greek == 'beta') {
921 mateusz.vi 130
      $subver[1] = 2;
920 mateusz.vi 131
    } else if ($greek == 'gamma') {
921 mateusz.vi 132
      $subver[1] = 3;
920 mateusz.vi 133
    } else if ($greek == 'delta') {
921 mateusz.vi 134
      $subver[1] = 4;
135
    } else if ($greek == 'pre') {
136
      $subver[1] = 5;
914 mateusz.vi 137
    } else if ($greek == 'rc') {
921 mateusz.vi 138
      $subver[1] = 6;
922 mateusz.vi 139
    } else if ($greek == 'patch') { // this is a POST-release version, as opposed to all above that are PRE-release versions
140
      $subver[1] = 99;
912 mateusz.vi 141
    } else {
142
      return(false);
143
    }
914 mateusz.vi 144
  } else {
922 mateusz.vi 145
    $subver[1] = 98; // one less than the 'patch' level
912 mateusz.vi 146
  }
147
 
148
  // does the version string have a single-letter subversion? (1.0c)
149
  if (preg_match('/[a-z]$/', $verstr)) {
921 mateusz.vi 150
    $subver[0] = ord(substr($verstr, -1));
912 mateusz.vi 151
    $verstr = substr_replace($verstr, '', -1); // remove last character from string
152
  }
153
 
926 mateusz.vi 154
  // convert "30-jan-99", "1999-jan-30" and "30-jan-1999" versions to "30jan99" or "30jan1999"
155
  // note that dashes have already been replaced by dots
156
  if (preg_match('/^([0-9][0-9]){1,2}\.(jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec)\.([0-9][0-9]){1,2}$/', $verstr)) {
157
    $verstr = str_replace('.', '', $verstr);
158
  }
159
 
160
  // convert "2009mar17" versions to "17mar2009"
161
  if (preg_match('/^[0-9]{4}(jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec)[0-9]{2}$/', $verstr)) {
162
    $dy = substr($verstr, 7);
163
    $mo = substr($verstr, 4, 3);
164
    $ye = substr($verstr, 0, 4);
925 mateusz.vi 165
    $verstr = "{$dy}{$mo}{$ye}";
923 mateusz.vi 166
  }
167
 
168
  // convert "30jan99" versions to 99.1.30 and "30jan1999" to 1999.1.30
925 mateusz.vi 169
  if (preg_match('/^[0-3][0-9](jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec)([0-9][0-9]){1,2}$/', $verstr)) {
923 mateusz.vi 170
    $months = array('jan' => 1, 'feb' => 2, 'mar' => 3, 'apr' => 4, 'may' => 5, 'jun' => 6, 'jul' => 7, 'aug' => 8, 'sep' => 9, 'oct' => 10, 'nov' => 11, 'dec' => 12);
171
    $dy = substr($verstr, 0, 2);
172
    $mo = $months[substr($verstr, 2, 3)];
173
    $ye = substr($verstr, 5);
174
    $verstr = "{$ye}.{$mo}.{$dy}";
175
  }
176
 
912 mateusz.vi 177
  // validate the format is supported, should be something no more complex than 1.05.3.33
919 mateusz.vi 178
  if (! preg_match('/^[0-9][0-9.]{0,20}$/', $verstr)) {
912 mateusz.vi 179
    return(false);
180
  }
181
 
182
  // NOTE: a zero right after a separator and trailed with a digit (as in 1.01)
183
  //       has a special meaning
184
  $exploded = explode('.', $verstr);
185
  if (count($exploded) > 16) {
186
    return(false);
187
  }
921 mateusz.vi 188
  $exploded[16] = $subver[0]; // a-z (1.0c)
189
  $exploded[17] = $subver[1]; // alpha/beta/gamma/delta/rc/pre
190
  $exploded[18] = $subver[2]; // alpha-beta-gamma subversion (eg. "beta 9")
912 mateusz.vi 191
  $exploded[19] = $subver[3]; // svar-ver (1.0+5)
192
  for ($i = 0; $i < 20; $i++) if (empty($exploded[$i])) $exploded[$i] = '0';
193
 
194
  ksort($exploded);
195
 
196
  return($exploded);
197
}
198
 
199
 
200
function dos_version_compare($v1, $v2) {
201
  $v1arr = vertoarr($v1);
202
  $v2arr = vertoarr($v2);
203
  for ($i = 0; $i < count($v1arr); $i++) {
921 mateusz.vi 204
    if ($v1arr[$i] > $v2arr[$i]) return(1);
205
    if ($v1arr[$i] < $v2arr[$i]) return(-1);
912 mateusz.vi 206
  }
207
  return(0);
208
}
209
 
210
 
562 mateuszvis 211
// reads file fil from zip archive z and returns its content, or false on error
212
function read_file_from_zip($z, $fil) {
213
  $zip = new ZipArchive;
214
  if ($zip->open($z, ZipArchive::RDONLY) !== true) {
215
    echo "ERROR: failed to open zip file '{$z}'\n";
216
    return(false);
217
  }
218
 
219
  // load the appinfo/pkgname.lsm file
220
  $res = $zip->getFromName($fil, 8192, ZipArchive::FL_NOCASE);
221
 
222
  $zip->close();
223
  return($res);
224
}
225
 
226
 
731 mateusz.vi 227
function read_list_of_files_in_zip($z) {
228
  $zip = new ZipArchive;
229
  if ($zip->open($z, ZipArchive::RDONLY) !== true) {
230
    echo "ERROR: failed to open zip file '{$z}'\n";
231
    return(false);
232
  }
233
 
234
  $res = array();
235
  for ($i = 0; $i < $zip->numFiles; $i++) $res[] = $zip->getNameIndex($i);
236
 
237
  $zip->close();
238
  return($res);
239
}
240
 
241
 
562 mateuszvis 242
// reads a LSM string and returns it in the form of an array
243
function parse_lsm($s) {
244
  $res = array();
245
  for ($l = strtok($s, "\n"); $l !== false; $l = strtok("\n")) {
246
    // the line is "token: value", let's find the colon
247
    $colpos = strpos($l, ':');
248
    if (($colpos === false) || ($colpos === 0)) continue;
249
    $tok = strtolower(trim(substr($l, 0, $colpos)));
250
    $val = trim(substr($l, $colpos + 1));
251
    $res[$tok] = $val;
252
  }
253
  return($res);
254
}
255
 
256
 
731 mateusz.vi 257
// on PHP 8+ there is str_starts_with(), but not on PHP 7 so I use this
258
function str_head_is($haystack, $needle) {
259
  return strpos($haystack, $needle) === 0;
260
}
261
 
262
 
791 mateusz.vi 263
// returns an array that contains CORE packages (populated from the core subdirectory in pkgdir)
1267 mateusz.vi 264
function load_core_list($repodir_core) {
791 mateusz.vi 265
  $res = array();
266
 
1267 mateusz.vi 267
  foreach (scandir($repodir_core) as $f) {
791 mateusz.vi 268
    if (!preg_match('/\.svp$/', $f)) continue;
269
    $res[] = explode('.', $f)[0];
270
  }
271
  return($res);
272
}
273
 
274
 
562 mateuszvis 275
// ***************** MAIN ROUTINE *********************************************
276
 
719 mateusz.vi 277
//echo "SvarDOS repository index generator ver {$PVER}\n";
562 mateuszvis 278
 
279
if (($_SERVER['argc'] != 2) || ($_SERVER['argv'][1][0] == '-')) {
280
  echo "usage: php buildidx.php repodir\n";
281
  exit(1);
282
}
283
 
284
$repodir = $_SERVER['argv'][1];
285
 
286
$pkgfiles = scandir($repodir);
287
$pkgcount = 0;
288
 
738 mateusz.vi 289
 
795 mateusz.vi 290
// load the list of CORE and MSDOS_COMPAT packages
738 mateusz.vi 291
 
1267 mateusz.vi 292
$core_packages_list = load_core_list($repodir . '/../packages-core/');
1037 bttr 293
$msdos_compat_list = explode(' ', 'append assign attrib callver chkdsk choice comp cpidos debug defrag deltree diskcomp diskcopy display edit 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 swsubst tree undelete unformat xcopy');
738 mateusz.vi 294
 
719 mateusz.vi 295
// do a list of all svp packages with their available versions and descriptions
562 mateuszvis 296
 
719 mateusz.vi 297
$pkgdb = array();
298
foreach ($pkgfiles as $fname) {
562 mateuszvis 299
 
941 mateusz.vi 300
  // zip files (ie. source archives)
301
  if (preg_match('/\.zip$/', $fname)) {
302
    // the zip archive should contain at least one file
303
    if (count(read_list_of_files_in_zip($repodir . '/' . $fname)) < 1) echo "WARNING: source archive {$fname} contains no files (either empty or corrupted)\n";
304
    // check that the file relates to an existing svp package
305
    $svpfname = preg_replace('/zip$/', 'svp', $fname);
306
    if (!file_exists($repodir . '/' . $svpfname)) echo "ERROR: orphaned source archive '{$fname}' (no matching svp file, expecting a package named '{$svpfname}')\n";
307
    // that is for zip files
308
    continue;
309
  }
310
 
1509 mateusz.vi 311
  // silently skip the hidden .svn directory
312
  if ($fname === '.svn') continue;
313
 
941 mateusz.vi 314
  // skip (and warn about) non-svp
315
  if (!preg_match('/\.svp$/', $fname)) {
1267 mateusz.vi 316
    $okfiles = array('.', '..', '_cats.json', '_index.json', '_buildidx.log');
941 mateusz.vi 317
    if (array_search($fname, $okfiles) !== false) continue;
1509 mateusz.vi 318
    echo "WARNING: wild file '{$fname}' (this is either an useless file that should be removed, or a misnamed package or source archive)'\n";
941 mateusz.vi 319
    continue;
320
  }
321
 
801 mateusz.vi 322
  if (!preg_match('/^[a-zA-Z0-9+. _-]*\.svp$/', $fname)) {
323
    echo "ERROR: {$fname} has a very weird name\n";
324
    continue;
325
  }
326
 
719 mateusz.vi 327
  $path_parts = pathinfo($fname);
328
  $pkgnam = explode('-', $path_parts['filename'])[0];
329
  $pkgfullpath = realpath($repodir . '/' . $fname);
562 mateuszvis 330
 
719 mateusz.vi 331
  $lsm = read_file_from_zip($pkgfullpath, "appinfo/{$pkgnam}.lsm");
562 mateuszvis 332
  if ($lsm == false) {
802 mateusz.vi 333
    echo "ERROR: {$fname} does not contain an LSM file at the expected location\n";
719 mateusz.vi 334
    continue;
562 mateuszvis 335
  }
336
  $lsmarray = parse_lsm($lsm);
337
  if (empty($lsmarray['version'])) {
719 mateusz.vi 338
    echo "ERROR: lsm file in {$fname} does not contain a version\n";
339
    continue;
562 mateuszvis 340
  }
730 mateusz.vi 341
  if (strlen($lsmarray['version']) > 16) {
737 mateusz.vi 342
    echo "ERROR: version string in lsm file of {$fname} is too long (16 chars max)\n";
730 mateusz.vi 343
    continue;
344
  }
562 mateuszvis 345
  if (empty($lsmarray['description'])) {
719 mateusz.vi 346
    echo "ERROR: lsm file in {$fname} does not contain a description\n";
347
    continue;
562 mateuszvis 348
  }
349
 
731 mateusz.vi 350
  // validate the files present in the archive
351
  $listoffiles = read_list_of_files_in_zip($pkgfullpath);
739 mateusz.vi 352
  $pkgdir = $pkgnam;
353
 
768 mateusz.vi 354
  // special rule for "parent and children" packages
355
  if (str_head_is($pkgnam, 'djgpp_')) $pkgdir = 'djgpp'; // djgpp_* packages put their files in djgpp
754 mateusz.vi 356
  if ($pkgnam == 'fbc_help') $pkgdir = 'fbc'; // FreeBASIC help goes to the FreeBASIC dir
802 mateusz.vi 357
  if ($pkgnam == 'clamdb') $pkgdir = 'clamav'; // data patterns for clamav
739 mateusz.vi 358
 
768 mateusz.vi 359
  // array used to detect duplicated entries after lower-case conversion
360
  $duparr = array();
361
 
909 mateusz.vi 362
  // will hold the list of categories that this package belongs to
363
  $catlist = array();
364
 
731 mateusz.vi 365
  foreach ($listoffiles as $f) {
366
    $f = strtolower($f);
768 mateusz.vi 367
    $path_array = explode('/', $f);
368
    // emit a warning when non-8+3 filenames are spotted and find duplicates
369
    foreach ($path_array as $item) {
370
      if (empty($item)) continue; // skip empty items at end of paths (eg. appinfo/)
371
      if (!preg_match("/[a-z0-9!#$%&'()@^_`{}~-]{1,8}(\.[a-z0-9!#$%&'()@^_`{}~-]{1,3}){0,1}/", $item)) {
372
        echo "WARNING: {$fname} contains a non-8+3 path (or weird char): {$item} (in $f)\n";
373
      }
374
    }
375
    // look for dups
376
    if (array_search($f, $duparr) !== false) {
377
      echo "WARNING: {$fname} contains a duplicated entry: '{$f}'\n";
378
    } else {
379
      $duparr[] = $f;
380
    }
731 mateusz.vi 381
    // LSM file is ok
382
    if ($f === "appinfo/{$pkgnam}.lsm") continue;
383
    if ($f === "appinfo/") continue;
795 mateusz.vi 384
    // CORE and MSDOS_COMPAT packages are premium citizens and can do a little more
909 mateusz.vi 385
    $core_or_msdoscompat = 0;
386
    if (array_search($pkgnam, $core_packages_list) !== false) {
387
      $catlist[] = 'core';
388
      $core_or_msdoscompat = 1;
389
    }
390
    if (array_search($pkgnam, $msdos_compat_list) !== false) {
391
      $catlist[] = 'msdos_compat';
392
      $core_or_msdoscompat = 1;
393
    }
394
    if ($core_or_msdoscompat == 1) {
736 mateusz.vi 395
      if (str_head_is($f, 'bin/')) continue;
779 mateusz.vi 396
      if (str_head_is($f, 'cpi/')) continue;
749 mateusz.vi 397
      if (str_head_is($f, "doc/{$pkgdir}/")) continue;
398
      if ($f === 'doc/') continue;
399
      if (str_head_is($f, "nls/{$pkgdir}.")) continue;
400
      if ($f === 'nls/') continue;
736 mateusz.vi 401
    }
999 mateusz.vi 402
    // SVARCOM is allowed to have a root-based COMMAND.COM file
403
    if ($pkgnam === 'svarcom') {
404
      if ($f === 'command.com') continue;
405
    }
798 mateusz.vi 406
    // the help package is allowed to put files in... help
407
    if (($pkgnam == 'help') && (str_head_is($f, 'help/'))) continue;
909 mateusz.vi 408
    // must be category-prefixed file, add it to the list of categories for this package
409
    $catlist[] = explode('/', $f)[0];
749 mateusz.vi 410
    // well-known "category" dirs are okay
739 mateusz.vi 411
    if (str_head_is($f, "progs/{$pkgdir}/")) continue;
731 mateusz.vi 412
    if ($f === 'progs/') continue;
739 mateusz.vi 413
    if (str_head_is($f, "devel/{$pkgdir}/")) continue;
731 mateusz.vi 414
    if ($f === 'devel/') continue;
739 mateusz.vi 415
    if (str_head_is($f, "games/{$pkgdir}/")) continue;
731 mateusz.vi 416
    if ($f === 'games/') continue;
739 mateusz.vi 417
    if (str_head_is($f, "drivers/{$pkgdir}/")) continue;
731 mateusz.vi 418
    if ($f === 'drivers/') continue;
768 mateusz.vi 419
    echo "WARNING: {$fname} contains a file in an illegal location: {$f}\n";
731 mateusz.vi 420
  }
421
 
912 mateusz.vi 422
  // do I understand the version string?
423
  if (vertoarr($lsmarray['version']) === false) echo "WARNING: {$fname} parsing of version string failed ('{$lsmarray['version']}')\n";
424
 
1511 mateusz.vi 425
  $meta = array();
719 mateusz.vi 426
  $meta['fname'] = $fname;
427
  $meta['desc'] = $lsmarray['description'];
909 mateusz.vi 428
  $meta['cats'] = array_unique($catlist);
719 mateusz.vi 429
 
1522 mateusz.vi 430
  if (!empty($lsmarray['hwreq'])) {
431
    $meta['hwreq'] = explode(' ', strtolower($lsmarray['hwreq']));
1524 mateusz.vi 432
    sort($meta['hwreq']);
1522 mateusz.vi 433
 
434
    // validate list of valid hwreq tokens
435
    $validtokens = array('8086', '186', '286', '386', '486', '586', 'fpu', 'mda', 'cga', 'ega', 'vga', 'mcga', 'svga');
436
    foreach (array_diff($meta['hwreq'], $validtokens) as $tok) echo "WARNING: {$fname} contains an LSM hwreq section with invalid token: {$tok}\n";
437
  }
438
 
719 mateusz.vi 439
  $pkgdb[$pkgnam][$lsmarray['version']] = $meta;
440
}
441
 
801 mateusz.vi 442
 
719 mateusz.vi 443
$db = array();
909 mateusz.vi 444
$cats = array();
719 mateusz.vi 445
 
909 mateusz.vi 446
// ******** compute the version-sorted list of packages with a single *********
447
// ******** description and category list for each package ********************
448
 
719 mateusz.vi 449
// iterate over each svp package
450
foreach ($pkgdb as $pkg => $versions) {
451
 
452
  // sort filenames by version, highest first
912 mateusz.vi 453
  uksort($versions, "dos_version_compare");
719 mateusz.vi 454
  $versions = array_reverse($versions, true);
455
 
456
  foreach ($versions as $ver => $meta) {
457
    $fname = $meta['fname'];
458
    $desc = $meta['desc'];
459
 
460
    $bsum = file2bsum(realpath($repodir . '/' . $fname));
461
 
1511 mateusz.vi 462
    $meta2 = array();
719 mateusz.vi 463
    $meta2['ver'] = strval($ver);
464
    $meta2['bsum'] = $bsum;
1522 mateusz.vi 465
    if (!empty($meta['hwreq'])) $meta2['hwreq'] = $meta['hwreq'];
719 mateusz.vi 466
 
467
    if (empty($db[$pkg]['desc'])) $db[$pkg]['desc'] = $desc;
909 mateusz.vi 468
    if (empty($db[$pkg]['cats'])) {
469
      $db[$pkg]['cats'] = $meta['cats'];
470
      $cats = array_unique(array_merge($cats, $meta['cats']));
471
    }
719 mateusz.vi 472
    $db[$pkg]['versions'][$fname] = $meta2;
473
  }
474
 
562 mateuszvis 475
  $pkgcount++;
476
 
477
}
478
 
719 mateusz.vi 479
if ($pkgcount < 100) echo "WARNING: an unexpectedly low number of packages has been found in the repo ({$pkgcount})\n";
562 mateuszvis 480
 
801 mateusz.vi 481
$json_blob = json_encode($db);
482
if ($json_blob === false) {
483
  echo "ERROR: JSON convertion failed! -> ";
484
  switch (json_last_error()) {
485
    case JSON_ERROR_DEPTH:
486
      echo 'maximum stack depth exceeded';
487
      break;
488
    case JSON_ERROR_STATE_MISMATCH:
489
      echo 'underflow of the modes mismatch';
490
      break;
491
    case JSON_ERROR_CTRL_CHAR:
492
      echo 'unexpected control character found';
493
      break;
494
    case JSON_ERROR_UTF8:
495
      echo 'malformed utf-8 characters';
496
      break;
497
    default:
498
      echo "unknown error";
499
      break;
500
  }
501
  echo "\n";
502
}
503
 
909 mateusz.vi 504
file_put_contents($repodir . '/_index.json', $json_blob);
562 mateuszvis 505
 
909 mateusz.vi 506
$cats_json = json_encode($cats);
507
file_put_contents($repodir . '/_cats.json', $cats_json);
508
 
562 mateuszvis 509
exit(0);
510
 
511
?>