\n";
else $HTMLStylesFmt['extend'] = "
a.createlink { color: red; }
#wikitext { line-height: 1.4em; }
#wikitext sub, #wikitext sup { line-height: 0; }
div.footnote {
width: 160px;
border-bottom: 1px solid blue;
margin-bottom: 0.5em;
}
p.footnote {
text-indent: -1em;
margin-right: 3em;
margin-left: 3em;
margin-top: 0px;
margin-bottom: 0.5em;
font-size: smaller;
}
p.qanda:first-letter {
float: left;
font-family: Old English, Georgia, serif;
font-size: 290%;
line-height: 0.85em;
margin-right: 0.3em;
margin-bottom:-0.25em;
}
p.drop:first-letter {
float: left;
font-family: Old English, Georgia, serif;
font-size: 290%;
line-height: 0.85em;
margin-right: 0.1em;
margin-bottom:-0.25em;
}
del { color: red; }
ins { background-color: yellow; }
div.inote {
font-size: 10px;
line-height: 1.1em;
float: right;
padding: 2px;
margin-left: 10px;
margin-bottom: 10px;
width: 190px;
border-top: 1px dotted gray;
border-bottom: 1px dotted gray;
background-color: #ffffa1;
}
div.inote h1 {
background-color: #ffe53e;
font-size: 10px;
font-weight: normal;
margin-top: 0px;
padding-bottom: 1px;
margin-bottom: 3px;
}
div.inote h1 span.inote {
float: right;
}
div.inote ul, div.inote ol { margin-left: -1.5em; }
div.inote p.vspace { margin-top:0.5em; }
span.stickynote {
font-size: smaller;
float: right;
padding: 8px;
margin-left: 10px;
margin-bottom: 10px;
width: 170px;
border-top: 2px solid gray;
border-bottom: 2px solid gray;
text-align: center;
color: navy;
background-color: #dcdcdc;
}
span.smallcaps { font-variant: small-caps; }
dfn { font-style: normal; cursor: help; }
abbr { font-style: italic; cursor: help; }
abbr, dfn.definition { border-bottom: 1px dotted; }
h5.runin { display: run-in; font-size: 100%; border: none; }
div.figure {
border: thin silver solid;
padding: 0.3em;
}
div.figure p {
text-align: center;
font-style: italic;
font-size: smaller;
padding-top: 0.2em;
margin: 0;
}
dd { margin-bottom: 0.5em }
b.selflink { color: #e66e31; border-bottom: 1px dotted; }
";
SDV($MarkupExtensionsFmt,
array("group inote abbr `A `. `- `s `: `f -d ... aquo mac '/ '@ '; [^ copy",
"q&a A; {|} =| {= revisions ^!! fig :: para lazyweb spaced squo links"));
foreach(explode(' ',implode(' ',$MarkupExtensionsFmt)) as $me)
$MarkupExtensions[$me] = true;
## (:group:)
if ($MarkupExtensions['group']) {
Markup('group','directives','/\\(:group\\s(.*?):\\)/ei',
"PZZ(\$GLOBALS['PCache'][\$pagename]['group']=PSS('$1'))");
$FmtP['/\\$Groupspaced/e'] =
'(@$PCache[$pagename]["group"]) ? $PCache[$pagename]["group"] : $AsSpacedFunction(@$match[1])';
}
## include stickynote page
if ($MarkupExtensions['inote']) {
if ($action=="print" || $action=="publish")
Markup('inote','>if',"/\\(:inote\\s+.*?:\\)/",'');
else
Markup('inote','>if',
"/\\(:inote\\s+((?:$GroupPattern(?:[\\/.]))?$NamePattern)(.*?):\\)/e",
"PRR().IncludeNoteText(\$pagename,'$1','$2')");
}
function IncludeNoteText($pagename,$page,$opts) {
global $SpaceWikiWords;
$p = ($SpaceWikiWords) ? AsSpaced($page) : $page;
return "\n![[$p]] ([[$page?action=edit|edit]])\n".
IncludeText($pagename,"include $page$opts")."\n<:block>
";
}
/*
## require 2 lower and upper case characters for a WikiWord
$WikiWordPattern = '[[:upper:]][[:alnum:]]*(?:[[:upper:]][[:lower:]0-9][[:lower:]0-9]|[[:lower:]0-9][[:lower:]0-9][[:upper:]]|[[:lower:]0-9][[:upper:]]+[[:lower:]0-9])[[:alnum:]]*';
*/
## prevent wikiwords with only one lower case letter
SDV($AbbreviationPattern,
"[[:upper:]]+(?:[[:upper:]][[:lower:]]|[[:lower:]][[:upper:]])[[:upper:]]*");
if ($MarkupExtensions['abbr']) {
$AbbreviationEnabled = true;
Markup("abbr",'>[[',"/`?\\b($AbbreviationPattern)\\b/e","Keep('$1')");
}
#### escape character (backtick) ####
## prevent WikiWords with Wiki`Word and `WikiWord markups
if ($MarkupExtensions['`A'])
Markup("`A",'>links','/([[:alnum:].\/])?`([[:upper:]])/','$1$2');
## '`.' (invisible stop)
if ($MarkupExtensions['`.'])
Markup("`.",'>links',"/`\./",'');
## '`-' (en dash)
if ($MarkupExtensions['`-'])
Markup("`-",'inline',"/`-/",'–');
## '` ' (nonbreaking space)
if ($MarkupExtensions['`s'])
Markup("`s",'inline',"/`\s/",' ');
## '`:' (middot)
if ($MarkupExtensions['`:'])
Markup("`:",'inline',"/`:/",'·');
## simple fractions (quarter, half, three quarters)
if ($MarkupExtensions['`f']) {
Markup("1/4",'inline',"/`1\/?4/",'¼');
Markup("1/2",'inline',"/`1\/?2/",'½');
Markup("3/4",'inline',"/`3\/?4/",'¾');
}
## em dash, en dash, plus or minus, and minus
if ($MarkupExtensions['-d']) {
Markup("--",'>[+',"/(^|[^!-])--([^-&>]|$)/",'$1—$2');
Markup("d-d",'>links',"/(\\d)-(\\d)/",'$1–$2');
Markup("dxd",'>links',"/(\\d)x(\\d)/",'$1×$2');
Markup("+-",'<-d',"/\+\/?-/",'±');
Markup("-d",'>d-d',"/([^[:alpha:]])-(\\d)/",'$1−$2');
}
## ellipsis ...
if ($MarkupExtensions['...'])
Markup("...",'inline',"/\.\.\./",'…');
if ($MarkupExtensions['aquo']) {
## left and right arrows
Markup("<->",'<<-',"/<->/",'↔');
Markup("<-",'",'links',"/<<(.*?)>>/",'«$1»');
Markup("lsa",'>aquo',"/<(.*?)\|/",'‹$1|');
Markup("rsa",'>aquo',"/\|(.*?)>/",'|$1›');
}
## long vowels (macrons)
if ($MarkupExtensions['mac']) {
$LongVowels = array (
'A' => 'Ā',
'a' => 'ā',
'E' => 'Ē',
'e' => 'ē',
'I' => 'Ī',
'i' => 'ī',
'O' => 'Ō',
'o' => 'ō',
'U' => 'Ū',
'u' => 'ū');
Markup("mac",'>&',"/(?:&|{)([AaEeIiOoUu])(?:m;|})/e","Macron('$1')");
}
function Macron($vowel) {
global $LongVowels;
return $LongVowels[$vowel];
}
#### inline markups ####
## '/cite/'
if ($MarkupExtensions["'/"])
Markup("'/",'inline',"/'\/(.*?)\/'/",'$1');
## '@keyboard@'
if ($MarkupExtensions["'@"])
Markup("'@",'inline',"/'@(.*?)@'/",'$1');
## ';small caps;'
if ($MarkupExtensions["';"])
Markup("';",'inline',"/';(.*?);'/",'$1');
## [^footnote text^] and [^#^] to list footnotes
## includes a style to tidy line spacing
if ($MarkupExtensions['[^']) {
Markup("[^",'>links','/\[\^(.*?)\^\]/e',"Footnote('$1')");
Markup("^[^",'block','/^\[\^#\^\]$/e',"'<:block>'.Footnote('#')");
}
function Footnote($foottext) {
static $fncount, $fntext;
if ($foottext == "#") {
$fncount = 0;
$r = "$fntext";
$fntext = '';
} else {
$fncount++;
$r = "".
"$fncount";
$foottext = stripslashes($foottext);
$fntext .= "";
}
return $r;
}
## copyright and related entities
if ($MarkupExtensions['copy']) {
Markup("copy",'inline',"/\(c\)/",'©');
Markup("trade",'inline',"/\(tm\)/",'™');
Markup("reg",'inline',"/\(r\)/",'®');
}
## Q: and A: markup
if ($MarkupExtensions['q&a'])
Markup('q&a','$1$2
');
## Z; dropcaps markup
if ($MarkupExtensions['A;'])
Markup('A;','block','/^([[:upper:]]);(([^;&]*(&[^;]+;)*)*);(.*)$/',
'<:block>$1$2$5
');
## {abbr|abbreviations}, {:term:definitions} & =>right aligned text
if ($action=="print" || $action=="publish") {
if ($MarkupExtensions['{|}']) {
Markup("{|}",'>links',"/\{(.*?)\|(.*?\}?)\}/",'$1 ($2)');
Markup("{:}",'>&',
"/\{:((?:\[\[[^\]]+\]\])?\{?[^:\}]*?\}?):(.*?\}?)\}/e",
"PSS('$1').' ('.Keep('$2').')'");
}
if ($MarkupExtensions['=|'])
Markup('^=>','block','/^=>(.*)$/','<:block>');
$hide = 2;
} else {
if ($MarkupExtensions['{|}']) {
Markup("{|}",'>links',
"/\{(.*?)\|(.*?\}?)\}/",'$1');
Markup("{:}",'>&',
"/\{:((?:\[\[[^\]]+\]\])?\{?[^:\}]*?\}?):(.*?\}?)\}/e",
"''.PSS('$1').''");
}
if ($MarkupExtensions['=|'])
Markup('^=>','block','/^=>(.*)$/',
'<:block>$1
');
}
function DfnTitle($title,$text) {
$title = str_replace('"','"',$title);
$title = (strstr($title,"'")) ? '"'.$title.'"' : "'$title'";
return (preg_match('/^[[:alnum:]].*$/',$text)) ?
"$title class='definition'" : $title;
}
## =| centred text
if ($MarkupExtensions['=|'])
Markup('^=|','block','/^=\|(.*)$/',
'<:block>$1
');
## {+insertions+}, {-deletions-}, (:revisions:) and {=sticky notes=}
SDV($hide, isset($_GET['hide']) ? $_GET['hide'] : 0);
$pgnum = isset($_GET['p']) ? "?p=".$_GET['p'] : '';
if ($hide) {
if ($MarkupExtensions['{='])
Markup("{=",'inline',"/{=(.*?)=}/",'');
if ($MarkupExtensions['revisions']) {
Markup("{+",'inline',"/{\+(.*?)\+}/",'$1');
Markup("{-",'inline',"/{\-(.*?)\-}/",'');
if ($hide==1) Markup('revisions','<${fmt}','/\(:revisions:\)/',
'[[{$Name}?hide=0'.$pgnum.' | Show revisions]]');
else Markup('revisions','directives','/\(:revisions:\)/','');
}
} else {
if ($MarkupExtensions['{='])
Markup("{=",'inline',"/{=(.*?)(?:\|\s*(.*?))?=}/e",
"'$1'");
if ($MarkupExtensions['revisions'])
Markup('revisions','<${fmt}','/\\(:revisions:\)/',
'[[{$Name}?hide=1'.$pgnum.' | Hide revisions]]');
}
function NoteStyle($color) {
$colors = array(
'yellow' => array('ffffa1','ffe53e'),
'green' => array('b2ffa1','95ff95'),
'blue' => array('71ffff','3ee5ff'),
'purple' => array('b2c7ff','91b8ff'),
'pink' => array('ffc7c7','ffb2b2'),
'grey' => array('eeeeee','d4d4d4')
);
return ($colors[$color][0]) ?
" style='background-color:#" . $colors[$color][0] .
"; border-top:2px solid #" . $colors[$color][1] .
"; border-bottom:2px solid #" . $colors[$color][1] .";'"
: '';
}
## !run-in heads!and text
if ($MarkupExtensions['^!!'])
Markup('^!!','<^!','/^!([^!]+)!(.*?)$/',
'<:block>$1.
$2
');
## figure captions
if ($MarkupExtensions['fig'])
Markup('fig',''");
if ($MarkupExtensions['::']) {
## tidy :: used merely to indent
Markup('^::2: :','<^: :2->','/^(:+)(:[^:]+)$/','$1 $2');
Markup('^: :2->',' per
Markup('::','',PSS('$2'))");
}
## teaser markups T[:*#] Name#id and (:para Name#id:)
if ($MarkupExtensions['para']) {
Markup('para','directives',
"/\(:para\s+(.+?)(?:#([^:\s]+))?(?:\s+(more|edit))?:\)/e",
"TeaseParagraph(\$pagename,'$1','$2','$3')");
Markup('tfl','directives',"/^T([:*#]+)\s*(\[\[.+?\]\])/e",
"TeaserFL(\$pagename,'$1','$2')");
Markup('tww','directives',
"/^T([:*#]+)\s*((?:$GroupPattern([\/.]))?$WikiWordPattern)/e",
"Teaser(\$pagename,'$1','$2')");
SDV($ParaBadAnchorFmt,"'''\$Anchor''' \$[not found in] \$PageName\n");
SDV($DefaultTeaserAnchor,'teaser');
SDV($TeaserMoreFmt,' ([[$FullName | more]])');
SDV($TeaserEditFmt,' ([[$FullName?action=edit | edit]])');
}
function TeaserFL($pagename,$markup,$linkword) {
global $UrlExcludeChars,$DefaultTeaserAnchor;
$link = FLRef($linkword);
if (preg_match("/^\\[\\[(.*?)#([^\\s$UrlExcludeChars]*)/",$link,$m)) {
$link = str_replace('#'.$m[2],'',$link);
$linkword = str_replace($m[1].'#'.$m[2],$m[1],$linkword);
$anch = ($m[2]=='') ? $DefaultTeaserAnchor : $m[2];
} else $anch = '';
return "$markup$linkword: " . TeaseParagraph($pagename,$link,$anch,'');
}
function FLRef($linkword) {
$l = preg_replace('/\\s*\\|[^\\]]+/','',$linkword);
$l = preg_replace('/[^\\]]+-+>\\s*/','',$l);
return preg_replace('/#[^\\s]+/','',$l);
}
function Teaser($pagename,$markup,$linkword) {
return "$markup$linkword: " . TeaseParagraph($pagename,$linkword,'','');
}
function TeaseParagraph($pagename,$teasername,$teaseranch,$act=NULL) {
global $ParaBadAnchorFmt,$TeaserMoreFmt,$TeaserEditFmt;
$tname = MakePageName($pagename,$teasername);
if ($tname==$pagename) return "''self reference ignored''";
if ($act=='edit') $taction = str_replace('$FullName',$tname,$TeaserEditFmt);
else $taction = '';
$tpage=RetrieveAuthPage($tname,'read',false,'');
$ttext=$tpage['text'];
$tgroup = FmtPageName('$Group',$tname);
if ($teaseranch=='') {
$tpara = CleanParagraph($pagename,$tgroup,
substr($ttext,0,strpos($ttext."\n","\n")));
if ($act=='more') $taction=str_replace('$FullName',$tname,$TeaserMoreFmt);
} elseif (preg_match("/\\[\\[#+$teaseranch\\]\\]\\n?([^\\n]+)/",$ttext,$m)) {
$tpara = CleanParagraph($pagename,$tgroup,$m[1]);
if ($act=='more')
$taction = str_replace('$FullName',"$tname#$teaseranch",$TeaserMoreFmt);
} else
$tpara = str_replace('$Anchor',$teaseranch,
FmtPageName($ParaBadAnchorFmt,$tname));
return $tpara.$taction;
}
function CleanParagraph($pagename,$group,$para) {
global $GroupPattern,$WikiWordPattern;
$pgroup = FmtPageName('$Group',$pagename);
$p = preg_replace("/^[#*!]+\s*/","",$para);
$p = preg_replace("/^:.*?:/","",$p);
$p = preg_replace("/`\\..*?$/","...",$p);
$p = preg_replace("/\\[@(.*?)@\\]/","@@[=$1=]@@",$p);
$p = preg_replace("/\\[=(.*?)=\\]/e",'Keep(PSS("$1"))',$p);
$p = preg_replace("/\\[\\[#.*?\\]\\]/","",$p);
$p = preg_replace("/([`:\/]?)\\b(($GroupPattern([\\/.]))?$WikiWordPattern)/e",
'QualifyWLink($pgroup,$group,"$1","$2")',$p);
$p = preg_replace("/\\[\\[(.*?)\\]\\]/e",
"'[['.QualifyFLink('$pgroup','$group','$1').']]'",$p);
return FmtPageName(preg_replace("/{(\\$.*?)}/",'$1',$p),$pagename);
}
function QualifyWLink($pgroup,$group,$esc,$link) {
global $WikiWordCount,$WikiWordCountMax,$AbbreviationEnabled,
$AbbreviationPattern;;
if ($esc) return "$esc$link";
if ($pgroup==$group) return $link;
$wwcount = (isset($WikiWordCount[$link])) ? $WikiWordCount[$link] :
$WikiWordCountMax;
if ($wwcount==0) return $link;
if ($AbbreviationEnabled && preg_match("/^$AbbreviationPattern$/",$link))
return $link;
return (preg_match("/[.\\/]/",$link)) ? $link : QualifiedLink($group,$link);
}
function QualifyFLink($pgroup,$group,$link) {
if ($pgroup==$group) return $link;
$l = FLRef($link);
return (preg_match("/[~!:.\\/]/",$l)) ? $link :
str_replace("$l",QualifiedLink($group,$l),$link);
}
function QualifiedLink($grp,$ref) {
return ($grp.'1'==FmtPageName('$Group',MakePageName($grp.'1.'.$grp,$ref))) ?
"$grp/$ref" : $ref;
}
## lazy web links (an alternative to the one from Pm)
if ($MarkupExtensions['lazyweb'])
Markup('lazyweb','','<)/",' $1');
Markup(']+?)\s*\n\s?/",'$1 ');
Markup('squo','>style',"/(<.*?>['\"]*)|(.?['\"]+)/e",
"BypassHTML(PSS('$1'),PSS('$2'))");
Markup('sq|','>inline',"/(\\[\\[[^|\\]]+\\|)(.*?)(\\]\\])/e",
"'$1'.SmartenLinkText(PSS('$2')).'$3'");
Markup('sq->','>inline',"/(\\[\\[)([^\\]]+?)(-+>.*?\\]\\])/e",
"'$1'.SmartenLinkText(PSS('$2')).'$3'");
}
function SmartenLinkText($txt) {
global $LinkPattern,$UrlExcludeChars,$ImgExtPattern;
if (!preg_match("/($LinkPattern)([^$UrlExcludeChars]+$ImgExtPattern)/",$txt))
$txt = preg_replace("/(<.*?>['\"]*)|(.?['\"]+)/e",
"BypassHTML(PSS('$1'),PSS('$2'))",$txt);
return $txt;
}
function BypassHTML($hstring,$qstring) {
if ($qstring=='') {
$qstring = preg_replace("/.*>/",'',$hstring);
$hstr = preg_replace("/>.*/",'>',$hstring);
if ($qstring=='') return $hstr;
else { if (strstr($hstr," '...',
"/\\[\\[([^|\\]]+)\\|\\s*(.*?)\\]\\]($SuffixPattern)/e" =>
"MakeLink(\$pagename,PSS('$1'),PSS('$2'),'$3','\$LinkText')",
"/\\[\\[([^\\]]+?)\\s*-+>\\s*(.*?)\\]\\]($SuffixPattern)/e" =>
"MakeLink(\$pagename,PSS('$2'),PSS('$1'),'$3','\$LinkText')",
'/\\[\\[#([A-Za-z][-.:\\w]*)\\]\\]/' => "",
"/\\[\\[(.*?)\\]\\]($SuffixPattern)/e" =>
"MakeLink(\$pagename,PSS('$1'),NULL,'$2','\$LinkText')",
'/[\\[\\{](.*?)\\|(.*?)[\\]\\}]/' => '$1',
"/`(($GroupPattern([\\/.]))?($WikiWordPattern))/" => '$1',
"/$GroupPattern\\/($WikiWordPattern)/" => '$1'
));
if ($MarkupExtensions['links']) {
$oLinkPageFunction = $LinkFunctions['<:page>'];
$LinkFunctions['<:page>'] = 'LinkPageTitle';
$LinkPageSelfFmt = "\$LinkText";
$LinkPageExistsTitleFmt =
"\$LinkText";
$LinkPageCreateFmt =
"\$LinkText?";
}
function LinkPageTitle($pagename,$imap,$path,$title,$txt,$fmt=NULL) {
global $oLinkPageFunction,$LinkPageExistsTitleFmt,$UrlExcludeChars;
if ($fmt!='')
return $oLinkPageFunction($pagename,$imap,$path,$title,$txt,$fmt);
if (preg_match("/^([^#?]+)(?:#([^\\s$UrlExcludeChars]*))?$/",$path,$match)) {
$tgtname = MakePageName($pagename,$match[1]); $anch=@$match[2];
if (PageExists($tgtname) && $tgtname!=$pagename) {
$title = TitleParagraph($tgtname,$anch);
if ($title)
$fmt = str_replace('$ToolTip',$title,$LinkPageExistsTitleFmt);
}
}
return $oLinkPageFunction($pagename,$imap,$path,$title,$txt,$fmt);
}
function TitleParagraph($pagename,$anch) {
global $LinkCleanser, $WikiStylePattern, $ParaBadAnchorFmt;
$refpage = ReadPage($pagename); $para = '';
$title = ($anch=='') ?
preg_match("/^(?:!+|:.*?:)\\s*(?:\\[\\[#.*?\\]\\])?([^\\n]+)/",
$refpage['text'],$match) :
preg_match("/\\[\\[#+$anch\\]\\]\\n?([^\\n]+)/",
$refpage['text'],$match);
if ($title) {
$para = preg_replace("/!.*?$/",'',$match[1]);
$para = preg_replace("/(''+|@@)(.*?)\\1/",'$2',$para);
$para = preg_replace("/'([-_^;+\\/])(.*?)\\1'/",'$2',$para);
$para = preg_replace("/\\[([@=]|[-+]+)(.*?)\\1\\]/",'$2',$para);
$para = preg_replace("/$WikiStylePattern/",'',$para);
foreach ($LinkCleanser as $p => $c) $para = preg_replace($p,$c,$para);
$para =
htmlentities(str_replace('"','"',str_replace('`','',$para)));
} elseif ($anch!='')
# $para = str_replace("'''","'",
# str_replace('$Anchor',$anch,FmtPageName($ParaBadAnchorFmt,$pagename)));
$para = $anch;
return $para;
}
## ||table attributes
Markup('^||','>^||||','/^\\|\\|(.*)$/e',
"PZZ(\$GLOBALS['BlockMarkups']['table'][0] = PSS(''))");
function QuoteAttrs($attr) {
return preg_replace('/([a-zA-Z])\\s*=\\s*([^\'"]\\S*)/',"\$1='\$2'",$attr);
}
?>