diff options
author | Ciro Mattia Gonano <ciromattia@gmail.com> | 2013-09-11 15:56:48 +0200 |
---|---|---|
committer | Ciro Mattia Gonano <ciromattia@gmail.com> | 2013-09-11 15:57:07 +0200 |
commit | 3069eaf35e833ffe4a1c1c7829dd7e168ae27420 (patch) | |
tree | d0c2e4d934cc34ba7d4232f759923b5a257dcb21 /buildscripts/PhpDocumentor/scripts/add_cvs.php | |
parent | b833247ce597ec26159b46c8dfbea7f1e265950b (diff) |
Merge up to r3319
Diffstat (limited to 'buildscripts/PhpDocumentor/scripts/add_cvs.php')
-rw-r--r-- | buildscripts/PhpDocumentor/scripts/add_cvs.php | 153 |
1 files changed, 0 insertions, 153 deletions
diff --git a/buildscripts/PhpDocumentor/scripts/add_cvs.php b/buildscripts/PhpDocumentor/scripts/add_cvs.php deleted file mode 100644 index 8b1145d0..00000000 --- a/buildscripts/PhpDocumentor/scripts/add_cvs.php +++ /dev/null @@ -1,153 +0,0 @@ -<?php -// -// +------------------------------------------------------------------------+ -// | phpDocumentor | -// +------------------------------------------------------------------------+ -// | Copyright (c) 2000-2003 Joshua Eichorn, Gregory Beaver | -// | Email jeichorn@phpdoc.org, cellog@phpdoc.org | -// | Web http://www.phpdoc.org | -// | Mirror http://phpdocu.sourceforge.net/ | -// | PEAR http://pear.php.net/package/PhpDocumentor | -// +------------------------------------------------------------------------+ -// | This source file is subject to version 3.00 of the PHP License, | -// | that is available at http://www.php.net/license/3_0.txt. | -// | If you did not receive a copy of the PHP license and are unable to | -// | obtain it through the world-wide-web, please send a note to | -// | license@php.net so we can mail you a copy immediately. | -// +------------------------------------------------------------------------+ -// -/** - * CVS file adding iterator - * - * This file iterates over a directory, and adds everything to CVS that is - * found, ignoring any error messages, until all files in each directory - * and subdirectory have been added to cvs. It then commits the files to cvs - * @package phpDocumentor - * @author Greg Beaver <cellog@php.net> - * @copyright Copyright 2003, Greg Beaver - * @version 1.0 - */ -/**#@+ - * phpDocumentor include files. If you don't have phpDocumentor, go get it! - * Your php life will be changed forever - */ -$dir = realpath(dirname(__FILE__).'/..'); -require_once("$dir/phpDocumentor/common.inc.php"); -require_once("$dir/phpDocumentor/Io.inc"); -/**#@-*/ - -/** -* Physical location on this computer of the package to parse -* @global string $cvsadd_directory -*/ -$cvsadd_directory = realpath('.'); -/** -* Comma-separated list of files and directories to ignore -* -* This uses wildcards * and ? to remove extra files/directories that are -* not part of the package or release -* @global string $ignore -*/ -$ignore = array('CVS/'); - -/****************************************************************************** -* Don't change anything below here unless you're adventuresome * -*******************************************************************************/ - -/** - * @global Io $files - */ -$files = new Io; - -$allfiles = $files->dirList($cvsadd_directory); -/**#@+ - * Sorting functions for the file list - * @param string - * @param string - */ -function sortfiles($a, $b) -{ - return strnatcasecmp($a['file'],$b['file']); -} - -function mystrucsort($a, $b) -{ - if (is_numeric($a) && is_string($b)) return 1; - if (is_numeric($b) && is_string($a)) return -1; - if (is_numeric($a) && is_numeric($b)) - { - if ($a > $b) return 1; - if ($a < $b) return -1; - if ($a == $b) return 0; - } - return strnatcasecmp($a,$b); -} -/**#@-*/ - -$struc = array(); -foreach($allfiles as $file) -{ - if ($files->checkIgnore(basename($file),dirname($file),$ignore, false)) - { -// print 'Ignoring '.$file."<br>\n"; - continue; - } - $path = substr(dirname($file),strlen(str_replace('\\','/',realpath($cvsadd_directory)))+1); - if (!$path) $path = '/'; - $file = basename($file); - $ext = array_pop(explode('.',$file)); - if (strlen($ext) == strlen($file)) $ext = ''; - $struc[$path][] = array('file' => $file,'ext' => $ext); -} -uksort($struc,'strnatcasecmp'); -foreach($struc as $key => $ind) -{ - usort($ind,'sortfiles'); - $struc[$key] = $ind; -} -$tempstruc = $struc; -$struc = array('/' => $tempstruc['/']); -$bv = 0; -foreach($tempstruc as $key => $ind) -{ - $save = $key; - if ($key != '/') - { - $struc['/'] = setup_dirs($struc['/'], explode('/',$key), $tempstruc[$key]); - } -} -uksort($struc['/'],'mystrucsort'); -/** - * Recursively add files to cvs - * @param array the sorted directory structure - */ -function addToCVS($struc) -{ - foreach($struc as $dir => $files) - { - if ($dir === '/') - { - print 'processing '.$dir . "\n"; - addToCVS($struc[$dir]); - return; - } else - { - if (!isset($files['file'])) - { - print 'adding '.$dir . "\n"; - system('cvs add '.$dir); - chdir($dir); - addToCVS($files); - chdir('..'); - } else - { - print 'adding '.$files['file'] . "\n"; - system('cvs add '.$files['file']); - system('cvs commit -m "" '.$files['file']); - } - } - } -} -addToCVS($struc); -print "\n".'done'; -?>
\ No newline at end of file |