Files
MagicSetEditor2/tools/website/drupal/mse-drupal-modules/autoformat.inc
T
twanvl 0d6233c92b Some more tweaks to documentation php code
git-svn-id: svn://svn.code.sf.net/p/magicseteditor/code/trunk@572 0fc631ac-6414-0410-93d0-97cfa31319b6
2007-07-14 00:32:14 +00:00

291 lines
8.6 KiB
PHP

<?php
// Automatic formating of text using the same tags as MediaWiki (wikipedia).
require_once('./modules/mse-drupal-modules/highlight.inc');
// quick and dirty aliasses
global $nice_names;
$nice_names = array(
'type:double' => 'real number',
'type:int' => 'number',
'type:indexmap' => 'map',
);
/**
* Format $text, recognizes commands at the start of each line
*/
function autoformat($text, $first = true) {
global $autoformat__lines;
// Lines in the input
$autoformat__lines = is_array($text) ? $text : explode("\n",$text);
// Result text
$i = 0;
return autoformat__handle($i, '', $first);
}
function autoformat__handle(&$i, $prefix, $first, $fail_same = false) {
global $autoformat__lines;
$text = '';
$state = '';
// While not at the end...
while ($i < count($autoformat__lines)) {
$line = $autoformat__lines[$i++];
$len = min(strlen($line),strlen($prefix));
// Match prefix
for ($j = 0 ; $j < $len ; ++$j) {
if ($prefix{$j} != $line{$j} && $line{$j} != ' ') {
$i--;
if ($state == '|') $text .= autoformat__table($table);
return $text;
}
}
$oldline = $line;
$line = substr($line, strlen($prefix));
// trim
$current_prefix = $prefix;
while ($line != '' && $line{0} == ' ') {
$line = substr($line,1);
$current_prefix .= ' ';
}
// Determine line type
if (strlen($oldline) < strlen($prefix)) {
// empty line => break out of this level
if ($state == '|') $text .= autoformat__table($table);
return $text;
} else if ($line == '') {
// empty line => paragraph separator
if ($state == '|') $text .= autoformat__table($table);
$state = '';
$text .= "\n";
// Table
} elseif ($line{0} == '|' || $line{0} == '!') {
// other code
if ($state != '|') $table = array();
$table[]= array(
'lines' => array(substr($line,1)),
'heading' => $line{0} == '!');
$state = '|';
} elseif ($line{0} == "\t" && $state=='|') {
// continue cell
$table[count($table)-1]['lines'][] = $line;
} else {
if ($state == '|') $text .= autoformat__table($table);
// Headings
if ($prefix == '' && preg_match('@^====.*====$@',$line)) {
// level 4 heading
$text .= '<h4>' . autoformat__line(substr($line,4,-4)) . "</h4>\n";
$state = '';
} elseif ($prefix == '' && preg_match('@^===.*===$@',$line)) {
// level 3 heading
$text .= '<h3>' . autoformat__line(substr($line,3,-3)) . "</h3>\n";
$state = '';
} elseif ($prefix == '' && (preg_match('@^==.*==$@',$line) || preg_match('@^--.*--$@',$line))) {
// level 2 heading
$text .= '<h2>' . autoformat__line(substr($line,2,-2)) . "</h2>\n";
$state = '';
// Lists
} elseif ($line{0} == '*') {
if ($state == '*') $text = substr($text,0,-5);
else $text .= '<ul>';
$i--;
$text .= '<li>' . autoformat__handle($i, $current_prefix . '*', false, true) . "</li>\n";
$text .= '</ul>';
$state = '*';
} elseif ($line{0} == '#') {
if ($state == '#') $text = substr($text,0,-5);
else $text .= '<ol>';
$i--;
$text .= '<li>' . autoformat__handle($i, $current_prefix . '#', false, true) . "</li>\n";
$text .= '</ol>';
$state = '#';
} elseif ($line{0} == ':') {
if ($state == ':') $text = substr($text,0,-10);
elseif ($state == ';') $text = substr($text,0,-5) . '<dt>';
else $text .= '<dl><dt>';
$i--;
$text .= "\n" . autoformat__handle($i, $current_prefix . ':', false);
$text .= '</dt></dl>';
$state = ':';
} elseif ($line{0} == ';') {
if ($state == ';') $text = substr($text,0,-10);
elseif ($state == ':') $text = substr($text,0,-5) . '<dd>';
else $text .= '<dl><dd>';
$i--;
$text .= "\n" . autoformat__handle($i, $current_prefix . ';', false);
$text .= '</dd></dl>';
$state = ';';
} elseif ($line{0} == '>') {
// source code
if ($state == '>') $text = substr($text,0,-6);
else $text .= '<pre>';
$text .= syntax_highlight(htmlspecialchars(substr($line, 1)));
$text .= "\n</pre>";
$state = '>';
} elseif ($line{0} == ']') {
// other code
if ($state == ']') $text = substr($text,0,-6);
else $text .= '<pre>';
$text .= htmlspecialchars(substr($line, 1));
$text .= "\n</pre>";
$state = ']';
// Html
} elseif (preg_match("@^</?(pre|ul|ol|li|div|blockquote|>)@", $line)) {
$line = preg_replace("@^<>@","",$line);
$text .= $line;
$state = '';
// Just text
} else if ($fail_same && $autoformat__lines[$i-1]{$len-1} != ' ' && $text != '') {
// consecutive * and # lines are different items
$i--;
return $text;
} else {
// text
if ($first) {
if ($state == 'P') $text = substr($text,0,-4);
else $text .= '<p>';
}
$text .= autoformat__line($line) . "\n";
if ($first) {
$text .= '</p>';
}
$state = 'P';
}}
//print_r("\n\n--------------[$prefix]---------------------\n$text\n");
}
//print_r("\n\n==================[$prefix]=================\n$text");
//print_r("\n==================///=================\n");
if ($state == '|') $text .= autoformat__table($table);
return $text;
}
/**
* Format a table, given the rows
*/
function autoformat__table($rows) {
foreach ($rows as $k=>$r) {
// split lines into columns
$cols = array();
foreach($r['lines'] as $l) {
// split into columns
$lcols = preg_split("/\t+/",$l);
for ($i = 0 ; $i < count($lcols) ; ++$i) {
$cols[$i] .= $lcols[$i] . "\n";
}
}
$rows2[$k] = $cols;
}
$newrows = array();
foreach ($rows2 as $y=>$r) {
// colspan
foreach($r as $x=>$c) {
$data = trim($c);
if ($data == "<<<" && $x > 0) {
$skip = $newrows[$y][$x-1]['skip'];
if ($skip == false) $skip = array($y,$x-1);
$newrows[$y][$x]['skip'] = $skip;
if ($y == $skip[0]) {
$newrows[$skip[0]][$skip[1]]['cols'] += 1;
}
} elseif ($data == "^^^" && $y > 0) {
$skip = $newrows[$y-1][$x]['skip'];
if ($skip == false) $skip = array($y-1,$x);
$newrows[$y][$x]['skip'] = $skip;
if ($x == $skip[1]) {
$newrows[$skip[0]][$skip[1]]['rows'] += 1;
}
} else {
$newrows[$y][$x]['skip'] = false;
$newrows[$y][$x]['data'] = $data;
$newrows[$y][$x]['rows'] = 1;
$newrows[$y][$x]['cols'] = 1;
}
}
}
global $autoformat__lines;
$l = $autoformat__lines;
$text = '<table>';
foreach ($newrows as $k=>$r) {
$text .= $k %2 == 0 ? '<tr class="even">' : '<tr class="odd">';
$td = $rows[$k]['heading'] ? 'th' : 'td';
foreach($r as $c) {
if (!$c['skip']) {
$text .= "<$td"
. ($c['cols'] > 1 ? ' colspan="'.$c['cols'].'"' : "")
. ($c['rows'] > 1 ? ' rowspan="'.$c['rows'].'"' : "")
. ">";
$text .= autoformat($c['data'], false);
$text .= "</$td>";
}
}
$text .= '</tr>';
}
$text .= '</table>';
$autoformat__lines = $l;
return $text;
}
/**
* Expand formting tags inside a single line,
*/
function autoformat__line($line) {
$line = preg_replace("/'''(.*?)'''/", "<strong>\\1</strong>", $line);
$line = preg_replace("/''(.*?)''/", "<em>\\1</em>", $line);
$line = preg_replace_callback("/@(.*?)@/", "autoformat__code", $line);
$line = preg_replace_callback("/\[\[(.*?)\|(.*?)]]/", "autoformat__link_s", $line);
$line = preg_replace_callback("/\[\[(.*?)]](s?)/", "autoformat__link", $line);
return $line;
}
function autoformat__code($matches) {
return '<tt>' . syntax_highlight(htmlspecialchars($matches[1])) . '</tt>';
}
function autoformat__link($matches) {
return '<a href="' . autoformat__url($matches[1]) . '">' . autoformat__title($matches[1], $matches[2]) . '</a>';
}
function autoformat__link_s($matches) {
return '<a href="' . autoformat__url($matches[1]) . '">' . $matches[2] . '</a>';
}
function autoformat__url($url) {
if (preg_match("/^(type|fun|script|file):(.*)/i",$url,$matches)) {
$part = $matches[1];
if ($part == 'fun') $part = 'function';
$sub = str_replace(' ','_',strtolower($matches[2]));
return url('doc/' . $part . '/' . $sub);
} else {
return url($url);
}
}
function autoformat__title($url, $s = '') {
global $nice_names;
if (isset($nice_names[$url])) {
$url = $nice_names[$url];
} else if (preg_match("/.*:$/",$url)) {
$url = preg_replace("/:/","",$url);
} else if (!preg_match("@^http://@",$url)) {
$url = preg_replace("/.*:/","",$url);
}
if ($s == 's' && $url{strlen($url)-1}=='y') {
$url = substr($url,0,-1) . 'ies';
} else {
$url .= $s;
}
return $url;
}
?>