";
$stack->push('dl');
}
$retvar .= "<$tag>\n";
$stack->push($tag);
}
}
else {
if ($tag == $stack->top()) {
return; // same tag? -> nothing to do
}
else {
// different tag - close old one, add new one
$closetag = $stack->pop();
$retvar .= "\n";
$retvar .= "<$tag>\n";
$stack->push($tag);
}
}
}
else { // unknown $tagtype
ExitWiki ("Passed bad tag type value in _wiki_set_output_mode");
}
return $retvar;
} // end _wiki_set_output_mode()
/**
* WikiText filter. Provides filtering of input into accepted HTML.
*/
function _wiki_filter($text, $format) {
$html = '';
$isprotect = FALSE; // whether we're within a {{{ }}} protection block
$istable = FALSE; // whether we're currently in a table
// process text line by line
$lines = preg_split('/\n/', $text);
$numlines = count($lines);
for ($index = 0; $index < $numlines; $index++) {
unset($tokens);
unset($replacements);
$ntokens = 0;
$replacements = array();
$tmpline = $lines[$index];
// protect everthing within "{{{" and "}}}" as is
// multi line case:
if (preg_match("/^{{{(.*)/", $tmpline, $matches) && !preg_match("/}}}/", $tmpline, $matches)) {
$isprotect = TRUE;
$html .= _wiki_set_output_mode("pre", WIKI_ZERO_LEVEL, 0);
$html .= htmlspecialchars($matches[1]). "\n";
continue;
}
elseif ($isprotect) {
if (preg_match("/^}}}/", $tmpline, $matches)) {
$isprotect = FALSE;
$html .= _wiki_set_output_mode("", WIKI_ZERO_LEVEL, 0);
}
else {
$html .= htmlspecialchars($tmpline). "\n";
}
continue;
}
// single line case:
$oldn = $ntokens;
$tmpline = _wiki_tokenize($tmpline, '{{{.+}}}', $replacements, $ntokens);
while ($oldn < $ntokens) {
if (preg_match("/{{{(.+)}}}/", $replacements[$oldn], $matches)) {
// this, of course, goes through, but we want the matched piece
$matches[1] = str_replace('\\\\', '
', htmlspecialchars($matches[1]));
$replacements[$oldn] = preg_replace("{{{.+}}}", "$matches[1]
", $replacements[$oldn]);
}
$oldn++;
}
if (!strlen($tmpline) || $tmpline == "\r") {
// this is a blank line, send
$html .= _wiki_set_output_mode('', WIKI_ZERO_LEVEL, 0);
continue;
}
elseif (variable_get("enable_html_${format}", 0)) {
// We protect HTML by having lines start with |> php-wiki way is just |
// this change is to prevent wiki table from being skipped
if (preg_match("/(^\|>)(.*)/", $tmpline, $matches)) {
// HTML mode
$html .= _wiki_set_output_mode("", WIKI_ZERO_LEVEL, 0);
$html .= $matches[2];
continue;
}
}
// This would keep HTML at this point as-is
//$tmpline = _wiki_tokenize($tmpline, '<[^>]+>', $replacements, $ntokens);
/*
* New linking scheme: links are in brackets. This will
* emulate typical HTML linking as well as Wiki linking.
*/
// First need to protect [[.
$oldn = $ntokens;
$tmpline = _wiki_tokenize($tmpline, '\[\[', $replacements, $ntokens);
while ($oldn < $ntokens) {
$replacements[$oldn] = '[';
$oldn++;
}
// *** Footnotes currently aren't supported, but will be added later
// Now process the [\d+] links which are numeric references
$oldn = $ntokens;
$tmpline = _wiki_tokenize($tmpline, '\[\s*\d+\s*\]', $replacements, $ntokens);
while ($oldn < $ntokens) {
$num = (int) substr($replacements[$oldn], 1);
if (! empty($embedded[$num])) {
$replacements[$oldn] = $embedded[$num];
}
$oldn++;
}
// match anything else between brackets
$oldn = $ntokens;
$tmpline = _wiki_tokenize($tmpline, '\[.+?\]', $replacements, $ntokens);
while ($oldn < $ntokens) {
$link = _wiki_parse_and_link($replacements[$oldn]);
$replacements[$oldn] = $link['link'];
$oldn++;
}
/*
* replace all URL's with tokens, so we don't confuse them
* with Wiki words later. Wiki words in URL's break things.
* URLs preceeded by a '!' are not linked
*/
$tmpline = _wiki_tokenize($tmpline, "!?\b(".WIKI_ALLOWED_PROTOCOLS."):[^\s<>\[\]\"'()]*[^\s<>\[\]\"'(),.?]", $replacements, $ntokens);
while ($oldn < $ntokens) {
if($replacements[$oldn][0] == '!') {
$replacements[$oldn] = substr($replacements[$oldn], 1);
}
else {
$replacements[$oldn] = _wiki_link_URL($replacements[$oldn]);
}
$oldn++;
}
$tmpline = htmlspecialchars($tmpline);
// %%% are linebreaks
$tmpline = str_replace('%%%', '
', $tmpline);
// \\ are also linebreaks
$tmpline = str_replace('\\\\', '
', $tmpline);
// bold italics (old way)
$tmpline = preg_replace("|(''''')(.*?)(''''')|",
"\\2", $tmpline);
// bold (old way)
$tmpline = preg_replace("|(''')(.*?)(''')|",
"\\2", $tmpline);
// bold
$tmpline = preg_replace("|(__)(.*?)(__)|",
"\\2", $tmpline);
// italics
$tmpline = preg_replace("|('')(.*?)('')|",
"\\2", $tmpline);
/*
* unordered, ordered, and dictionary list (using TAB)
*/
if (preg_match("/(^\t+)(.*?)(:\t)(.*$)/", $tmpline, $matches)) {
// this is a dictionary list (
) item
$numtabs = strlen($matches[1]);
$html .= _wiki_set_output_mode('dl', WIKI_NESTED_LEVEL, $numtabs);
$tmpline = '';
if (trim($matches[2])) {
$tmpline = '- ' . $matches[2];
}
$tmpline .= '
- ' . $matches[4];
}
else if (preg_match("/(^\t+)(\*|\d+|#)/", $tmpline, $matches)) {
// this is part of a list (
, )
$numtabs = strlen($matches[1]);
if ($matches[2] == '*') {
$listtag = 'ul';
}
else {
$listtag = 'ol'; // a rather tacit assumption. oh well.
}
$tmpline = preg_replace("/^(\t+)(\*|\d+|#)/", "", $tmpline);
$html .= _wiki_set_output_mode($listtag, WIKI_NESTED_LEVEL, $numtabs);
$html .= '- ';
/*
* tabless markup for unordered, ordered, and dictionary lists
* ul/ol list types can be mixed, so we only look at the last
* character. Changes e.g. from "**#*" to "###*" go unnoticed.
* and wouldn\'t make a difference to the HTML layout anyway.
*/
// unordered lists
: "*"
}
elseif (preg_match("/^([#*]*\*)[^#]/", $tmpline, $matches)) {
// this is part of an unordered list
$numtabs = strlen($matches[1]);
$tmpline = preg_replace("/^([#*]*\*)/", '', $tmpline);
$html .= _wiki_set_output_mode('ul', WIKI_NESTED_LEVEL, $numtabs);
$html .= '- ';
// ordered lists
: "#"
}
elseif (preg_match("/^([#*]*\#)/", $tmpline, $matches)) {
// this is part of an ordered list
$numtabs = strlen($matches[1]);
$tmpline = preg_replace("/^([#*]*\#)/", "", $tmpline);
$html .= _wiki_set_output_mode('ol', WIKI_NESTED_LEVEL, $numtabs);
$html .= '- ';
// definition lists
: ";text:text"
}
elseif (preg_match("/(^;+)(.*?):(.*$)/", $tmpline, $matches)) {
// this is a dictionary list item
$numtabs = strlen($matches[1]);
$html .= _wiki_set_output_mode('dl', WIKI_NESTED_LEVEL, $numtabs);
$tmpline = '';
if (trim($matches[2])) {
$tmpline = '- ' . $matches[2];
}
$tmpline .= '
- ' . $matches[3];
// remaining modes: preformatted text, headings, normal text
}
elseif (preg_match("/^\s+/", $tmpline)) {
// this is preformatted text, i.e.
$html .= _wiki_set_output_mode('pre', WIKI_ZERO_LEVEL, 0);
}
elseif (preg_match("/^(!{1,3})[^!]/", $tmpline, $whichheading)) {
// lines starting with !,!!,!!! are headings
if ($whichheading[1] == '!') {
$heading = 'h3';
}
elseif ($whichheading[1] == '!!') {
$heading = 'h2';
}
elseif ($whichheading[1] == '!!!') {
$heading = 'h1';
}
$tmpline = preg_replace("/^!+/", '', $tmpline);
$html .= _wiki_set_output_mode($heading, WIKI_ZERO_LEVEL, 0);
}
elseif (preg_match('/^-{4,}\s*(.*?)\s*$/', $tmpline, $matches)) {
// four or more dashes to
//
can not be contained in a
$html .= _wiki_set_output_mode('', WIKI_ZERO_LEVEL, 0) . "
\n";
if ( ($tmpline = $matches[1]) != '' ) {
$html .= _wiki_set_output_mode('p', WIKI_ZERO_LEVEL, 0);
}
}
elseif (preg_match('/^\|/', $tmpline, $matches)) {
// table!
if (!$istable) {
$istable = TRUE;
$html .= _wiki_set_output_mode('', WIKI_ZERO_LEVEL, 0);
// unfortunately, can't use _wiki_set_output_mode due to add'l params
$html .= "\n";
}
if (preg_match('/^\|\|/', $tmpline, $matches)) {
// first do heading row
$tmpline = preg_replace("/^\|\|\s*/", "| ", $tmpline);
$tmpline = preg_replace("/\s*\|\|\s*/", " | ", $tmpline);
$tmpline = " | " . $tmpline . "
";
}
else {
// do normal row
$tmpline = preg_replace("/^\|\s*/", "", $tmpline);
$tmpline = preg_replace("/\s*\|\s*/", " | ", $tmpline);
$tmpline = " | " . $tmpline . "
";
}
}
else {
// it's ordinary output if nothing else
$html .= _wiki_set_output_mode('p', WIKI_ZERO_LEVEL, 0);
}
/*
* Replace tokens
*/
for ($i = 0; $i < $ntokens; $i++) {
$tmpline = str_replace(WIKI_FIELD_SEPARATOR.WIKI_FIELD_SEPARATOR.$i.WIKI_FIELD_SEPARATOR, $replacements[$i], $tmpline);
}
$html .= $tmpline . "\n";
/* look ahead one row to determine if we should close off the table
* doing it this way prevents having to disperse table closing
* in several different parts of this function
*/
$nextindex = $index+1;
if ($istable && !preg_match('/^\|/', $lines[$nextindex], $matches)) {
// turn table off
$istable = FALSE;
$html .= "
\n";
}
}
$html .= _wiki_set_output_mode('', WIKI_ZERO_LEVEL, 0);
return $html;
}
/**
* Implementation of hook_filter_tips().
*/
function wiki_filter_tips($delta, $format, $long = false) {
global $base_url;
if (!$long) {
return t('WikiText is converted to HTML (supported WikiText formatting will show in the long tip format).');
} else {
$output = t('WikiText is converted to HTML according to the following formatting guidelines:
Paragraphs
- Don\'t indent paragraphs
- Words wrap and fill as needed
- Use blank lines as separators
- Four or more minus signs make a horizontal rule
- %%% or \\\\ makes a linebreak (in headings and lists too)
Lists
- asterisk for first level
- asterisk-asterisk for second level, etc.
- Use * for bullet lists, # for numbered lists (mix at will)
- semicolon-term-colon-definition for definition lists:
- term here
- definition here, as in the <DL><DT><DD> list
- One line for each item
- Other leading whitespace signals preformatted text, changes font.
Headings
- ! at the start of a line makes a small heading
- !! at the start of a line makes a medium heading
- !!! at the start of a line makes a large heading
Fonts
- Indent with one or more spaces to use a monospace font;
- Or enclose within triple braces {{{ }}}, which may cross multiple lines:
This is in monospace
This is not
Indented Paragraphs
- semicolon-colon -- works like <BLOCKQUOTE>, but is actually implemented as Term Definition above without the term
- this is an indented block of text
Emphasis
References
- Hyperlinks to other pages within the Wiki are made by placing the page name in square brackets: [this is a page link]
- Hyperlinks to external pages are done like this: [http://www.example.com]
- You can name the links by providing a name, a pipe/bar (|) and then the hyperlink or pagename:
[PhpWiki home page | http://phpwiki.sourceforge.net/]
- You can suppress linking to old-style references and URIs by preceding the word with a \'!\', e.g. NotLinkedAsWikiName, http://not.linked.to/
'.
/*
- You can create footnotes by using [1], [2], [3], ... like this here [1]. See footnote for counterpart. (If the [ is in the first column, it is a footnote definition rather than a footnote reference [1].)
*/
'- Also, the old way of linking URLs is still supported: precede URLs with "http:", "ftp:" or "mailto:" to create links automatically as in: http://example.com/
- URLs ending with .png, .gif, or .jpg are inlined if in square brackets, by themselves
HTML Mark-Up Language
- HTML will display as-is
- < and > are themselves
- Entities (e.g. &) will not convert to characters
');
if (variable_get("enable_html_${format}", 0)) {
$output .= t('- If you really must use HTML, the system administrator has enabled this feature. Start each line with a bar-greater-than (|>).
');
}
$output .= t('
Content protection
- To protect content as is (i.e., in a <pre></pre> block) without interpretation, enclose within triple braces {{{ }}}, which may cross multiple lines. Note that the content within the triple braces may still be interpreted by the browser in the same way <pre></pre> enclosed content is.
Table is supported
');
/*
More detail than you want to know
Footnotes:
By using [1] a second time (in the first column) the footnote itself is defined. You may refer to a footnote as many times as you want, but you may only define it once on the page. Note the the [1] in the footnote links back to the first reference, if there are multiple references there will be one or more plus symbols (+) after the [1] which will link to the other references. (References which come after the footnote definition will not be linked to.)
';
*/
return $output;
}
}
// Local Variables:
// mode: php
// tab-width: 8
// c-basic-offset: 2
// c-hanging-comment-ender-p: nil
// indent-tabs-mode: nil
// End:
?>