api.drupal.org).', array('@api' => 'http://api.drupal.org'));
default :
return;
}
}
/**
* Get all of the code review modules
*/
function _coder_reviews() {
// get the contributed module review definitions
return module_invoke_all('reviews');
}
function coder_reviews() {
global $_coder_reviews;
if (!isset($_coder_reviews)) {
$_coder_reviews = array();
$path = drupal_get_path('module', 'coder') .'/includes';
$files = drupal_system_listing('coder_.*\.inc$', $path, 'name', 0);
foreach ($files as $file) {
require_once('./'. $file->filename);
$function = $file->name .'_reviews';
if (function_exists($function)) {
if ($review = call_user_func($function)) {
$_coder_reviews = array_merge($_coder_reviews, $review);
}
}
}
}
return $_coder_reviews;
}
/**
* Implementation of hook_cron().
*/
function coder_cron() {
if ($use_cache = variable_get('coder_cache', 1)) {
// TODO: move some of the work here... is this really worth it?
}
}
/**
* Implementation of hook_perm().
*/
function coder_perm() {
return array('view code review', 'view code review all');
}
/**
* Implementation of hook_menu().
*/
function coder_menu($may_cache = true) {
$items = array();
$items[] = array(
'path' => 'coder',
'title' => t('Code review'),
'callback' => 'coder_page',
'access' => user_access('view code review'),
'type' => MENU_NORMAL_ITEM,
);
$items[] = array(
'path' => 'coder/settings',
'title' => t('Selection Form'),
'callback' => 'coder_page',
'access' => user_access('view code review'),
'type' => MENU_DEFAULT_LOCAL_TASK,
'weight' => -2,
);
$items[] = array(
'path' => 'coder/default',
'title' => t('Default'),
'callback' => 'coder_page',
'access' => user_access('view code review'),
'type' => MENU_LOCAL_TASK,
'weight' => -1,
);
$items[] = array(
'path' => 'coder/core',
'title' => t('Core'),
'callback' => 'coder_page',
'access' => user_access('view code review'),
'type' => MENU_LOCAL_TASK,
);
$items[] = array(
'path' => 'coder/active',
'title' => t('Active'),
'callback' => 'coder_page',
'access' => user_access('view code review'),
'type' => MENU_LOCAL_TASK,
);
$items[] = array(
'path' => 'coder/all',
'title' => t('All'),
'callback' => 'coder_page',
'access' => user_access('view code review all'),
'type' => MENU_LOCAL_TASK,
'weight' => 1,
);
$items[] = array(
'path' => 'admin/settings/coder',
'title' => t('Code review'),
'description' => t('Select code review plugins and modules'),
'callback' => 'drupal_get_form',
'callback arguments' => 'coder_admin_settings',
'access' => user_access('administer site configuration'),
);
return $items;
}
/**
* Implementation of hook_form_alter().
*/
function coder_form_alter($form_id, &$form) {
if ($form_id == 'system_modules' && $form['#base'] != 'confirm_form') {
if (user_access('view code review')) {
foreach ($form['name'] as $name => $data) {
$form['name'][$name]['#value'] = l($data['#value'], "coder/$name");
}
}
}
}
/**
* Helper functions for settings form
*/
function _coder_default_reviews() {
return drupal_map_assoc(array('style', 'comment', 'security'));
}
function _coder_settings_form($settings, &$system, &$files) {
// add the javascript
$path = drupal_get_path('module', 'coder');
drupal_add_js($path .'/coder.js');
// create the list of review options from the coder review plug-ins
// maintain a secondary list based on #title only, to make sorting possible
$reviews = _coder_reviews();
foreach ($reviews as $name => $review) {
$review_options[$name] = l($review['#title'], $review['#link']);
if (isset($review['#description'])) {
$review_options[$name] .= ' ('. $review['#description'] .')';
}
$review_sort[$name] = $review['#title'];
}
// sort the reviews by #title
asort($review_sort);
foreach ($review_sort as $name => $review) {
$review_sort[$name] = $review_options[$name];
}
// what reviews should be used?
$form['coder_reviews_group'] = array(
'#type' => 'fieldset',
'#title' => t('Reviews'),
'#collapsible' => true,
'#collapsed' => false,
);
$form['coder_reviews_group']['coder_reviews'] = array(
'#type' => 'checkboxes',
'#options' => $review_sort,
'#description' => t('apply the checked coding reviews'),
'#default_value' => $settings['coder_reviews'],
);
// what severities should be used?
$form['coder_reviews_group']['coder_severity'] = array(
'#type' => 'radios',
'#options' => array(
1 => 'minor (most)',
5 => 'normal',
9 => 'critical (fewest)'
),
'#description' => t('show warnings at or above the severity warning level'),
'#default_value' => $settings['coder_severity'],
);
// get the modules and theme
$sql = 'SELECT name, filename, type, status FROM {system} WHERE type=\'module\' OR type=\'theme\' ORDER BY weight ASC, filename ASC';
$result = db_query($sql);
$system_modules = array();
$system_themes = array();
while ($system = db_fetch_object($result)) {
$display_name = $system->name;
if ($system->status) {
$display_name .= t(' (active)');
$system_active[$system->name] = $system->name;
}
if (_coder_is_drupal_core($system)) {
$display_name .= t(' (core)');
$system_core[$system->name] = $system->name;
}
if ($system->type == 'module') {
$system_modules[$system->name] = $system->name;
}
else {
$system_themes[$system->name] = $system->name;
}
$system_links[$system->name] = l($display_name, "coder/$system->name");
$files[$system->name] = $system->filename;
}
asort($system_links);
// display what to review options
$form['coder_what'] = array(
'#type' => 'fieldset',
'#title' => t('What to review'),
'#collapsible' => true,
'#collapsed' => false,
);
$form['coder_what']['coder_active_modules'] = array( // NOTE: should rename var
'#type' => 'checkbox',
'#default_value' => isset($settings['coder_active_modules']) ? $settings['coder_active_modules'] : 0,
'#title' => t('active modules and themes'),
);
$form['coder_what']['coder_core'] = array(
'#type' => 'checkbox',
'#default_value' => isset($settings['coder_core']) ? $settings['coder_core'] : 0,
'#title' => t('core files (php, modules, and includes)'),
);
$form['coder_what']['coder_includes'] = array(
'#type' => 'checkbox',
'#default_value' => $settings['coder_includes'],
'#title' => t('include files (.inc and .php files)'),
);
if (arg(0) == 'admin') {
$form['coder_what']['coder_cache'] = array(
'#type' => 'checkbox',
'#default_value' => $settings['coder_cache'],
'#title' => t('use the experimental coder cache'),
);
}
// display the modules in a fieldset
$form['coder_what']['coder_modules'] = array(
'#type' => 'fieldset',
'#title' => t('Select Specific Modules'),
'#collapsible' => true,
'#collapsed' => true,
);
if (isset($settings['coder_all'])) {
$modules = $system_modules;
}
elseif (isset($settings['coder_active_modules']) && $settings['coder_active_modules']) {
if (isset($settings['coder_core']) && $settings['coder_core']) {
$modules = array_intersect($system_active, $system_core);
$modules = array_intersect($modules, $system_modules);
}
else {
$modules = array_intersect($system_active, $system_modules);
}
}
elseif (isset($settings['coder_core']) && $settings['coder_core']) {
$modules = array_intersect($system_core, $system_modules);
}
elseif (isset($settings['coder_active_modules']) && $settings['coder_active_modules']) {
$modules = array_intersect($system_active, $system_modules);
}
else {
$modules = isset($settings['coder_modules']) && is_array($settings['coder_modules']) ? $settings['coder_modules'] : array();
}
// display the themes in a fieldset
$form['coder_what']['coder_themes'] = array(
'#type' => 'fieldset',
'#title' => t('Select Specific Themes'),
'#collapsible' => true,
'#collapsed' => true,
);
if (isset($settings['coder_all'])) {
$themes = $system_themes;
}
elseif (isset($settings['coder_active_modules']) && $settings['coder_active_modules']) {
if (isset($settings['coder_core']) && $settings['coder_core']) {
$themes = array_intersect($system_active, $system_core);
$themes = array_intersect($themes, $system_themes);
}
else {
$themes = array_intersect($system_active, $system_themes);
}
}
elseif (isset($settings['coder_core']) && $settings['coder_core']) {
$themes = array_intersect($system_core, $system_themes);
}
elseif (isset($settings['coder_active_modules']) && $settings['coder_active_modules']) {
$themes = array_intersect($system_active, $system_themes);
}
else {
$themes = isset($settings['coder_themes']) && is_array($settings['coder_themes']) ? $settings['coder_themes'] : array();
}
foreach ($system_links as $name => $link) {
$classes = array();
if (in_array($name, $system_active)) {
$classes[] = 'coder-active';
}
if (in_array($name, $system_core)) {
$classes[] = 'coder-core';
}
if (in_array($name, $system_themes)) {
$type = 'theme';
$default_value = isset($themes[$name]);
}
else {
$type = 'module';
$default_value = isset($modules[$name]);
}
$form['coder_what']["coder_${type}s"]["coder_${type}s-$name"] = array(
'#type' => 'checkbox',
'#title' => $link,
'#default_value' => $default_value,
'#attributes' => array('class' => implode(' ', $classes)),
);
}
$system = array_merge($modules, $themes);
return $form;
}
/**
* Implementation of settings page for Drupal 5
*/
function coder_admin_settings() {
$settings = _coder_get_default_settings();
$form = _coder_settings_form($settings, $system, $files);
$form['#submit']['coder_settings_form_submit'] = array();
$form['#submit']['system_settings_form_submit'] = array();
return system_settings_form($form);
}
function coder_settings_form_submit($form_id, &$form_values) {
variable_set('coder_modules', _coder_settings_array($form_values, 'module'));
variable_set('coder_themes', _coder_settings_array($form_values, 'theme'));
}
function _coder_settings_array(&$form_values, $type) {
$typekey = "coder_{$type}s-";
$typelen = strlen($typekey);
$systems = array();
foreach ($form_values as $key => $value) {
if (substr($key, 0, $typelen) == $typekey) {
if ($value == 1) {
$system = substr($key, $typelen);
$systems[$system] = 1;
}
unset($form_values[$key]);
}
}
return $systems;
}
function coder_page_form_submit($form_id, $form_values) {
// HELP: is there a better way to get these to coder_page_form()???
return false;
}
/**
* Implementation of code review page
*/
function coder_page() {
$output = '
'. coder_help('coder#disclaimer') .'
';
$output .= drupal_get_form('coder_page_form');
return $output;
}
function _coder_get_default_settings($args = 'default') {
$settings['coder_reviews'] = variable_get('coder_reviews', _coder_default_reviews());
$settings['coder_severity'] = variable_get('coder_severity', 5);
$settings['coder_cache'] = variable_get('coder_cache', 1);
// determine any options based on the passed in URL,
switch ($args) {
case 'settings':
$settings['coder_includes'] = 1;
break;
case 'active':
$settings['coder_active_modules'] = 1;
break;
case 'core':
$settings['coder_core'] = 1;
$settings['coder_includes'] = 1;
break;
case 'all':
$settings['coder_core'] = 1;
$settings['coder_includes'] = 1;
$settings['coder_all'] = 1;
break;
case 'default':
$settings['coder_active_modules'] = variable_get('coder_active_modules', 1);
$settings['coder_core'] = variable_get('coder_core', 0);
$settings['coder_includes'] = variable_get('coder_includes', 0);
$settings['coder_modules'] = variable_get('coder_modules', array());
$settings['coder_themes'] = variable_get('coder_themes', array());
break;
default:
$settings['coder_includes'] = 1;
// TODO: does this need to go into coder_themes sometimes?
$settings['coder_modules'] = array($args => $args);
break;
}
return $settings;
}
function coder_page_form() {
// HELP: is there a better way to get these from coder_page_form_submit()???
$form_values = $_POST;
if (isset($form_values['op'])) {
$settings = $form_values;
$settings['coder_modules'] = _coder_settings_array($form_values, 'module');
$settings['coder_themes'] = _coder_settings_array($form_values, 'theme');
drupal_set_title(t('Code review (submitted options)'));
}
else {
$options = arg(1);
$settings = _coder_get_default_settings($options);
if ($options) {
drupal_set_title(t('Code review (@options)', array('@options' => isset($options) ? $options : 'default options')));
}
}
// get this once - list of the reviews to perform
$reviews = array();
$avail_reviews = _coder_reviews();
$selected_reviews = $settings['coder_reviews'];
foreach ($selected_reviews as $name => $checked) {
if ($checked) {
$reviews[$name] = $avail_reviews[$name];
}
}
if ($coder_form = _coder_settings_form($settings, $system, $files)) {
// add style sheet
$path = drupal_get_path('module', 'coder');
drupal_add_css($path .'/coder.css', 'module');
// code review non-module core files
$module_weight = 0;
if (isset($settings['coder_core']) && $settings['coder_core']) {
$coder_args = array(
'#reviews' => $reviews,
'#severity' => $settings['coder_severity'],
// '#filename' => $filename,
);
$form['core_php'] = array(
'#type' => 'fieldset',
'#title' => 'core (php)',
'#collapsible' => true,
'#collapsed' => true,
'#weight' => ++ $module_weight,
);
$phpfiles = file_scan_directory('.', '.*\.php', array('.', '..', 'CVS'), 0, false, 'name', 0);
_coder_page_form_includes($form, $coder_args, 'core_php', $phpfiles, 2);
$form['core_includes'] = array(
'#type' => 'fieldset',
'#title' => 'core (includes)',
'#collapsible' => true,
'#collapsed' => true,
'#weight' => ++ $module_weight,
);
$includefiles = drupal_system_listing('.*\.inc$', 'includes', 'name', 0);
_coder_page_form_includes($form, $coder_args, 'core_includes', $includefiles, 0);
}
// loop through the selected modules and themes
if (isset($system)) {
$dups = array(); // used to avoid duplicate includes
$stats = array();
foreach ($system as $name => $checked) {
if ($checked) {
// process this one file
$filename = $files[$name];
if (!$filename) {
drupal_set_message(t('Code Review file for %module not found', array('%module' => $name)));
continue;
}
$coder_args = array(
'#reviews' => $reviews,
'#severity' => $settings['coder_severity'],
'#filename' => $filename,
);
$results = do_coder_reviews($coder_args);
$stats[$filename] = $results['#stats'];
unset($results['#stats']);
// output the results in a collapsible fieldset
$form[$name] = array(
'#type' => 'fieldset',
'#title' => $filename,
'#collapsible' => true,
'#collapsed' => true,
'#weight' => ++ $module_weight,
);
if (empty($results)) {
$results[] = t('No Problems Found');
}
else {
$form[$name]['#collapsed'] = false;
}
$form[$name]['output'] = array(
'#value' => theme('coder', $name, $filename, $results),
'#weight' => -1,
);
// process the same directory include files
if ($settings['coder_includes']) {
// NOTE: convert to the realpath here so drupal_system_listing
// doesn't return additional paths (i.e., try "module").
$path = str_replace('\\', '/', dirname(realpath($filename)));
$offset = strpos($path, dirname($filename));
if (!isset($dups[$path])) {
if (substr($filename, -7) == '.module') {
$coder_args['#php_minor'] = 1;
}
$dups[$path] = 1;
$includefiles = drupal_system_listing('.*\.(inc|php|install)$', $path, 'name', 0);
$stats[$filename]['#includes'] = _coder_page_form_includes($form, $coder_args, $name, $includefiles, $offset);
}
}
}
}
if (count($stats)) {
$summary = array('files' => 0, 'minor' => 0, 'normal' => 0, 'critical' => 0);
foreach ($stats as $stat) {
if (isset($stat['#includes'])) {
foreach ($stat['#includes'] as $includestat) {
$summary['files'] ++;
$summary['minor'] += $includestat['minor'];
$summary['normal'] += $includestat['normal'];
$summary['critical'] += $includestat['critical'];
}
}
$summary['files'] ++;
}
$display = array();
$display[] = t('Coder found @count projects', array('@count' => count($stats)));
$display[] = t('@count files', array('@count' => $summary['files']));
foreach (array('critical', 'normal', 'minor') as $severity_name) {
if ($summary[$severity_name] > 0) {
$display[] = t('@count %severity_name warnings', array('@count' => $summary[$severity_name], '%severity_name' => $severity_name));
}
}
drupal_set_message(implode(', ', $display));
}
}
// prepend the settings form
$form['settings'] = array(
'#type' => 'fieldset',
'#title' => t('Selection Form'),
'#collapsible' => true,
'#collapsed' => isset($form),
'#weight' => -1,
);
if ($form['settings']['#collapsed']) {
$form['settings']['#prefix'] = t('Use the Selection Form to select options for this code review, or change the
Default Settings and use the
Default tab above.
', array('@settings' => url('admin/settings/coder'), '@default' => url('coder/default')));
}
$form['settings'][] = $coder_form;
$form['settings']['submit'] = array(
'#type' => 'submit',
'#value' => t('Submit'),
);
$form['#action'] = url('coder');
}
return $form;
}
function _coder_page_form_includes(&$form, $coder_args, $name, $files, $offset) {
$stats = array();
$coder_args['#name'] = $name;
$weight = 0;
foreach ($files as $file) {
$filename = drupal_substr($file->filename, $offset);
$coder_args['#filename'] = $filename;
$results = do_coder_reviews($coder_args);
$stats[$filename] = $results['#stats'];
unset($results['#stats']);
// output the results in a collapsible fieldset
$form[$name][$filename] = array(
'#type' => 'fieldset',
'#title' => $filename,
'#collapsible' => true,
'#collapsed' => true,
'#weight' => ++ $weight,
);
if (empty($results)) {
$results[] = t('No Problems Found');
}
else {
$form[$name][$filename]['#collapsed'] = false;
$form[$name]['#collapsed'] = false;
}
$form[$name][$filename]['output'] = array(
'#value' => theme('coder', $name, $filename, $results),
);
}
return $stats;
}
function _coder_modified() {
static $_coder_mtime;
if (!isset($_coder_mtime)) {
$path = drupal_get_path('module', 'coder');
$includefiles = drupal_system_listing('.*\.(inc|module)$', $path .'/includes', 'name', 0);
$_coder_mtime = filemtime(realpath($path .'/coder.module'));
foreach ($includefiles as $file) {
$mtime = filemtime(realpath($file->filename));
if ($mtime > $_coder_mtime) {
$_coder_mtime = $mtime;
}
}
}
return $_coder_mtime;
}
function do_coder_reviews($coder_args) {
// the cache is still experimental, so users must enable it
if ($use_cache = variable_get('coder_cache', 1)) {
// cache the results because:
$cache_key = 'coder:'. implode(':', array_keys($coder_args['#reviews'])) . $coder_args['#severity'] .':'. $coder_args['#filename'];
$cache_mtime = filemtime(realpath($coder_args['#filename']));
if ($cache_results = cache_get($cache_key)) {
if ($cache_results->data['mtime'] == $cache_mtime && ($x = _coder_modified()) < $cache_results->created) {
return unserialize($cache_results->data['results']);
}
}
}
$results = array('#stats' => array('minor' => 0, 'normal' => 0, 'critical' => 0));
// skip php include files when the user requested severity is above minor
if (isset($coder_args['#php_minor']) && drupal_substr($coder_args['#filename'], -4) == '.php') {
if ($coder_args['#severity'] > 1) {
return $results;
}
}
// read the file
if (_coder_read_and_parse_file($coder_args)) {
// do all of the code reviews
foreach ($coder_args['#reviews'] as $review) {
if ($result = do_coder_review($coder_args, $review)) {
$results = array_merge($results, $result);
}
}
// sort the results
ksort($results, SORT_NUMERIC);
}
else {
_coder_error_msg($results, t('Could not read the file'), 'critical');
}
// save the results in the cache
if ($use_cache) {
$cache_results = array(
'mtime' => $cache_mtime,
'results' => $results,
);
cache_set($cache_key, 'cache', serialize($cache_results));
}
return $results;
}
function _coder_read_and_parse_file(&$coder_args) {
// get the path to the module file
if ($filepath = realpath($coder_args['#filename'])) {
// read the file
$content = file_get_contents($filepath) ."\n";
$content_length = drupal_strlen($content);
$in_comment = 0;
$beginning_of_line = 0;
$in_php = 0;
$in_quote_html = 0;
$in_backslash = 0;
$in_quote = 0;
$in_heredoc = 0;
$in_heredoc_html = '';
$heredoc = '';
$all_lines = array();
$php_lines = array();
$html_lines = array();
$quote_lines = array();
$doublequote_lines = array();
$comment_lines = array();
$this_all_lines = '';
$this_php_lines = '';
$this_html_lines = '';
$this_quote_lines = '';
$this_doublequote_lines = '';
$this_comment_lines = '';
// parse the file:
// - strip comments
// - strip quote content // - strip stuff not in php // - break into lines
$lineno = 0;
for ($pos = 0; $pos < $content_length; $pos ++) {
// get the current character
$char = $content[$pos];
if ($char == "\n") {
if ($in_comment && $in_comment == '/') { // end C++ style comments on newline
$in_comment = 0;
}
// assume that html inside quotes doesn't span newlines
$in_quote_html = 0;
// remove blank lines now, so we avoid processing them over-and-over
if ($this_all_lines != '') {
if (trim($this_all_lines) != '') {
$all_lines[$lineno] = $this_all_lines;
}
if (trim($this_php_lines) != '') {
$php_lines[$lineno] = $this_php_lines;
}
if (trim($this_html_lines) != '') {
$html_lines[$lineno] = $this_html_lines;
}
if (trim($this_quote_lines) != '') {
$quote_lines[$lineno] = $this_quote_lines;
}
if (trim($this_doublequote_lines) != '') {
$doublequote_lines[$lineno] = $this_doublequote_lines;
}
if (trim($this_comment_lines) != '') {
$comment_lines[$lineno] = $this_comment_lines;
}
}
// save this line and start a new line
$lineno ++;
$this_all_lines = '';
$this_php_lines = '';
$this_html_lines = '';
$this_quote_lines = '';
$this_doublequote_lines = '';
$this_comment_lines = '';
$beginning_of_line = 1;
continue;
}
if ($this_all_lines != '') {
$beginning_of_line = 0;
}
$this_all_lines .= $char;
if ($in_php) {
// look for the ending php tag which tags precedence over everything
if ($char == '?' && $content[$pos + 1] == '>') {
unset($char);
$in_php = 0;
$this_all_lines .= '>';
$pos ++;
}
// when in a quoted string, look for the trailing quote
// strip characters in the string, replacing with '' or ""
elseif ($in_quote) {
if ($in_backslash) {
$in_backslash = 0;
}
elseif ($char == '\\') {
$in_backslash = 1;
}
elseif ($char == $in_quote && !$in_backslash) {
$in_quote = 0;
}
elseif ($char == '<') {
$in_quote_html = '>';
}
if ($in_quote) {
$this_quote_lines .= $char;
if ($in_quote == '"') {
$this_doublequote_lines .= $char;
}
if ($in_quote_html) {
$this_html_lines .= $char;
}
}
if ($char == $in_quote_html) {
$in_quote_html = 0;
}
unset($char); // NOTE: trailing char output with starting one
}
elseif ($in_heredoc) {
if ($beginning_of_line && $char == $in_heredoc[0] && substr($content, $pos, $in_heredoc_length) == $in_heredoc) {
$this_all_lines .= substr($content, $pos + 1, $in_heredoc_length - 1);
$in_heredoc = 0;
$pos += $in_heredoc_length;
}
elseif ($char == '<') {
$in_heredoc_html = '>';
}
if ($in_heredoc && $in_heredoc_html) {
$this_html_lines .= $char;
}
if ($in_heredoc_html && $char == $in_heredoc_html) {
$in_heredoc_html = '';
}
unset($char);
}
// when in a comment look for the trailing comment
elseif ($in_comment) {
$this_comment_lines .= $char;
if ($in_comment == '*' && $char == '*' && $content[$pos + 1] == '/') {
$in_comment = 0;
$this_all_lines .= '/';
$this_comment_lines .= '/';
$pos ++;
}
unset($char); // don't add comments to php output
}
else {
switch ($char) {
case '\'':
case '"':
if ($content[$pos - 1] != '\\') {
$this_php_lines .= $char;
$in_quote = $char;
}
break;
case '/':
$next_char = $content[$pos + 1];
if ($next_char == '/' || $next_char == '*') {
unset($char);
$in_comment = $next_char;
$this_all_lines .= $next_char;
$this_comment_lines .= '/'. $next_char;
$pos ++;
}
break;
case '<':
if ($content[$pos + 1] == '<' && $content[$pos + 2] == '<') {
unset($char);
$this_all_lines .= '<<';
// get the heredoc word
// read until the end-of-line
for ($pos += 3; $pos < $content_length; $pos ++) {
$char = $content[$pos];
if ($char == "\n") {
$pos --;
if (preg_match('/^\s*(\w+)/', $heredoc, $match)) {
$in_heredoc = $match[1];
$in_heredoc_length = drupal_strlen($in_heredoc);
}
break;
}
$this_all_lines .= $char;
$heredoc .= $char;
}
$heredoc = '';
// replace heredoc's with an empty string
$this_php_lines .= '\'\'';
unset($char);
}
break;
}
}
if (isset($char)) {
$this_php_lines .= $char;
}
}
else {
switch ($char) {
case '<':
if ($content[$pos + 1] == '?') {
if ($content[$pos + 2] == ' ') {
$in_php = 1;
$this_all_lines .= '? ';
$pos += 2;
}
elseif (substr($content, $pos + 2, 3) == 'php') {
$in_php = 1;
$this_all_lines .= '?php';
$pos += 4;
}
break;
}
// FALTHROUGH
default:
$this_html_lines .= $char;
break;
}
}
}
// add the files lines to the arguments
$coder_args['#all_lines'] = $all_lines;
$coder_args['#php_lines'] = $php_lines;
$coder_args['#html_lines'] = $html_lines;
$coder_args['#quote_lines'] = $quote_lines;
$coder_args['#doublequote_lines'] = $doublequote_lines;
$coder_args['#comment_lines'] = $comment_lines;
return 1;
}
}
function _coder_severity($severity_name, $default_value = 5) {
// NOTE: implemented this way in hopes that it is faster than a php switch
if (!isset($severity_names)) {
$severity_names = array(
'minor' => 1,
'normal' => 5,
'critical' => 9,
);
}
if (isset($severity_names[$severity_name])) {
return $severity_names[$severity_name];
}
return $default_value;
}
function _coder_severity_name($coder_args, $review, $rule) {
// NOTE: warnings in php includes are suspicious because
// php includes are frequently 3rd party products
if (isset($coder_args['#php_minor']) && substr($coder_args['#filename'], -4) == '.php') {
return 'minor';
}
// get the severity as defined by the rule
if (isset($rule['#severity'])) {
return $rule['#severity'];
}
// if it's not defined in the rule, then it can be defined by the review
if (isset($review['#severity'])) {
return $review['#severity'];
}
// use the default
return 'normal';
}
function do_coder_review($coder_args, $review) {
$results = array();
if ($review['#rules']) {
// get the review's severity, used when the rule severity is not defined
$default_severity = _coder_severity($review['#severity']);
foreach ($review['#rules'] as $rule) {
// perform the review if above the user requested severity
$severity = _coder_severity(isset($rule['#severity']) ? $rule['#severity'] : '', $default_severity);
if ($severity >= $coder_args['#severity']) {
if (isset($rule['#original'])) { // deprecated
$lines = $coder_args['#all_lines'];
}
elseif (isset($rule['#source'])) { // all, html, comment, or php
$source = '#'. $rule['#source'] .'_lines';
$lines = $coder_args[$source];
}
else {
$lines = $coder_args['#php_lines'];
}
if ($lines) {
switch ($rule['#type']) {
case 'regex':
do_coder_review_regex($coder_args, $review, $rule, $lines, $results);
break;
case 'grep':
do_coder_review_grep($coder_args, $review, $rule, $lines, $results);
break;
case 'grep_invert':
do_coder_review_grep_invert($coder_args, $review, $rule, $lines, $results);
break;
case 'callback':
do_coder_review_callback($coder_args, $review, $rule, $lines, $results);
break;
}
}
}
}
}
return $results;
}
function do_coder_review_regex(&$coder_args, $review, $rule, $lines, &$results) {
if (isset($rule['#value'])) {
$regex = '/'. $rule['#value'] .'/';
if (!isset($rule['#case-sensitive'])) {
$regex .= 'i';
}
$function_regex = isset($rule['#function']) ? '/'. $rule['#function'] .'/' : '';
$current_function = '';
$paren = 0;
$not_regex = isset($rule['#not']) ? '/'. $rule['#not'] .'/i' : '';
foreach ($lines as $lineno => $line) {
// some rules apply only within certain functions
if ($function_regex) {
if (preg_match('/function (\w+)\(/', $line, $match)) {
$current_function = $match[1];
}
if (preg_match('/([{}])/', $line, $match)) {
$paren += ($match[0] == '{') ? 1 : -1;
}
if ($paren < 0 || $current_function == '' || !preg_match($function_regex, $current_function)) {
continue;
}
}
if (preg_match($regex, $line, $matches)) {
// don't match some regex's
if ($not_regex) {
foreach ($matches as $match) {
if (preg_match($not_regex, $match)) {
continue 2;
}
}
}
$line = $coder_args['#all_lines'][$lineno];
$severity_name = _coder_severity_name($coder_args, $review, $rule);
_coder_error($results, $rule, $severity_name, $lineno, $line);
}
}
}
}
function _coder_error(&$results, $rule, $severity_name, $lineno = -1, $line = '', $original = '') {
if (isset($rule['#warning_callback'])) {
if (function_exists($rule['#warning_callback'])) {
$warning = $rule['#warning_callback']();
}
else { // if this happens, there is an error in the rule definition
$warning = t('please report this !warning',
array(
'@report' => 'http://drupal.org/node/add/project_issue/coder/bug',
'!warning' => $rule['#warning_callback'],
)
);
}
}
else {
$warning = t($rule['#warning']);
}
return _coder_error_msg($results, $warning, $severity_name, $lineno, $line);
}
function _coder_error_msg(&$results, $warning, $severity_name, $lineno = -1, $line = '') {
// Note: The use of the $key allows multiple errors on one line.
// This assumes that no line of source has more than 10000 lines of code
// and that we have fewer than 10000 errors.
global $_coder_errno;
$key = ($lineno + 1) * 10000 + ($_coder_errno ++);
$results[$key] = theme('coder_warning', $warning, $severity_name, $lineno + 1, $line);
$results['#stats'][$severity_name] ++;
}
/**
* Searches for a string.
*/
function do_coder_review_grep(&$coder_args, $review, $rule, $lines, &$results) {
if (isset($rule['#value'])) {
foreach ($lines as $lineno => $line) {
if (_coder_search_string($line, $rule)) {
$line = $coder_args['#all_lines'][$lineno];
$severity_name = _coder_severity_name($coder_args, $review, $rule);
_coder_error($results, $rule, $severity_name, $lineno, $line);
}
}
}
}
/**
* Searches for potentially missing string.
*/
function do_coder_review_grep_invert(&$coder_args, $review, $rule, $lines, &$results) {
if (isset($rule['#value'])) {
foreach ($lines as $lineno => $line) {
if (_coder_search_string($line, $rule)) {
return;
}
}
$severity_name = _coder_severity_name($coder_args, $review, $rule);
_coder_error($results, $rule, $severity_name);
}
}
function do_coder_review_callback(&$coder_args, $review, $rule, $lines, &$results) {
if ($function = $rule['#value']) {
if (function_exists($function)) {
call_user_func_array($function, array(&$coder_args, $review, $rule, $lines, &$results));
}
}
}
/**
* Search for a string.
*
* Uses strpos() and stripos() if available for performance optimization or
* preg_match().
*
* @param string $line Haystack
* @param array $rule Rule to process
*
* @return bool True if needle is in haystack.
*/
function _coder_search_string($line, $rule) {
static $php5;
if (!isset($php5)) {
if (function_exists('stripos')) {
$php5 = true;
}
else {
$php5 = false;
}
}
// case-sensitive search with strpos() (supported everywhere)
if (isset($rule['#case-sensitive'])) {
return strpos($line, $rule['#value']) !== false;
}
// case-insensitive search with stripos() (supported in PHP 5)
if ($php5 && !isset($rule['#case-sensitive'])) {
return stripos($line, $rule['#value']) !== false;
}
// case-insensitive search
$regex = '/'. preg_quote($rule['#value']) .'/i';
return preg_match($regex, $line);
}
function _coder_is_drupal_core($module) {
static $core;
if (!isset($core)) {
$core = array(
// modules
'aggregator' => 1,
'block' => 1,
'blog' => 1,
'blogapi' => 1,
'book' => 1,
'color' => 1,
'comment' => 1,
'contact' => 1,
'dblog' => 1,
'drupal' => 1,
'filter' => 1,
'forum' => 1,
'help' => 1,
'locale' => 1,
'menu' => 1,
'node' => 1,
'path' => 1,
'php' => 1,
'ping' => 1,
'poll' => 1,
'profile' => 1,
'search' => 1,
'statistics' => 1,
'syslog' => 1,
'system' => 1,
'taxonomy' => 1,
'throttle' => 1,
'tracker' => 1,
'upload' => 1,
'user' => 1,
// themes
'bluemarine' => 1,
'chameleon' => 1,
'garland' => 1,
'marvin' => 1,
'minnelli' => 1,
'pushbutton' => 1,
);
}
return isset($core[$module->name]) ? 1 : 0;
}
/**
* Theming functions below...
*/
function theme_coder($name, $filename, $results) {
$output = ''. basename($filename) .'
';
if (!empty($results)) {
$output .= theme('item_list', $results);
}
$output .= '';
return $output;
}
function theme_coder_warning($warning, $severity_name, $lineno = 0, $line = '') {
// Extract description from warning
if (is_array($warning)) {
$description = $warning['#description'];
$link = $warning['#link'];
$warning = $warning['#warning'];
if (isset($link)) {
$warning .= ' ('. l('Drupal Docs', $link) .')';
}
}
if ($lineno) {
$warning = t('Line @number: !warning', array('@number' => $lineno, '!warning' => $warning));
if ($line) {
$warning .= ''. check_plain($line) .'
';
}
}
$class = 'coder-warning';
if ($severity_name) {
$class .= " coder-$severity_name";
}
$path = drupal_get_path('module', 'coder');
$title = t('severity: @severity', array('@severity' => $severity_name));
$img = theme('image', $path ."/images/$severity_name.png", $title, $title, array('align' => 'right', 'class' => 'coder'), false);
if (isset($description)) {
$img .= theme('image', $path .'/images/more.png', t('click to read more'), '', array('align' => 'right', 'class' => 'coder-more'), false);
$warning .= 'Explanation: '. $description .'
';
}
return ''. $img . $warning .'
';
}
function theme_drupalapi($function, $version = 'HEAD') {
return l($function, "http://api.drupal.org/api/$version/function/$function");
}
function theme_phpapi($function) {
return l($function, "http://us.php.net/$function");
}