mirror of
https://github.com/UnickSoft/graphonline.git
synced 2025-07-01 15:26:12 +00:00
79 lines
3.0 KiB
PHP
Executable File
79 lines
3.0 KiB
PHP
Executable File
<?php if (!defined('PmWiki')) exit();
|
|
/* Copyright 2002-2013 Patrick R. Michaud (pmichaud@pobox.com)
|
|
This file is part of PmWiki; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published
|
|
by the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version. See pmwiki.php for full details.
|
|
|
|
This script provides special handling for WikiWords that are
|
|
preceded by a $, treating them as PmWiki variables to be looked up
|
|
in the variable documentation pages if such documentation exists.
|
|
The $VarPagesFmt variable contains a list of pages to be searched
|
|
to build an index of the variable documentation. This index is
|
|
generated only once per browse request, and then only when needed.
|
|
*/
|
|
|
|
SDV($VarPagesFmt,array('$[PmWiki.Variables]'));
|
|
Markup_e('varlink','<wikilink',"/\\$($WikiWordPattern)\\b/",
|
|
"Keep(VarLink(\$pagename,\$m[1],'$'.\$m[1]))");
|
|
Markup('vardef','<links',"/^:\\$($WikiWordPattern):/",
|
|
':[[#$1]]$$1:');
|
|
Markup_e('varindex', 'directives',
|
|
'/\\(:varindex:\\)/i',
|
|
"Keep(VarIndexList(\$pagename))");
|
|
|
|
$HTMLStylesFmt['vardoc'] = "a.varlink { text-decoration:none; }\n";
|
|
|
|
function VarLink($pagename,$tgt,$txt) {
|
|
global $VarIndex,$FmtV,$VarLinkMissingFmt,$VarLinkExistsFmt;
|
|
SDV($VarLinkMissingFmt,'$LinkText');
|
|
SDV($VarLinkExistsFmt,"<a class='varlink' href='\$LinkUrl'><code class='varlink'>\$LinkText</code></a>");
|
|
VarIndexLoad($pagename);
|
|
$FmtV['$LinkText'] = str_replace('$', '$', $txt);
|
|
$FmtV['$LinkUrl'] = @$VarIndex[$tgt]['url'];
|
|
if (@!$VarIndex[$tgt]['url'])
|
|
return FmtPageName($VarLinkMissingFmt,$pagename);
|
|
return FmtPageName($VarLinkExistsFmt,$pagename);
|
|
}
|
|
|
|
function VarIndexLoad($pagename) {
|
|
global $VarPagesFmt,$VarIndex,$WikiWordPattern;
|
|
static $loaded;
|
|
$VarIndex = (array)@$VarIndex;
|
|
if ($loaded) return;
|
|
foreach($VarPagesFmt as $vf) {
|
|
$v = FmtPageName($vf, $pagename);
|
|
if (@$loaded[$v]) continue;
|
|
$vlist = array($v);
|
|
$t = ReadTrail($pagename,$v);
|
|
if ($t)
|
|
for($i=0;$i<count($t);$i++)
|
|
if (@!$loaded[$t[$i]['pagename']]) $vlist[]=$t[$i]['pagename'];
|
|
foreach($vlist as $vname) {
|
|
$vpage = ReadPage($vname, READPAGE_CURRENT); @$loaded[$vname]++;
|
|
if (!$vpage) continue;
|
|
if (!preg_match_all("/\n:\\$([[:upper:]]\\w+):/",@$vpage['text'],$match))
|
|
continue;
|
|
foreach($match[1] as $n) {
|
|
$VarIndex[$n]['pagename'] = $vname;
|
|
$VarIndex[$n]['url'] = FmtPageName("{\$PageUrl}#$n",$vname);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
# VarIndexList() generates a table of all indexed variables.
|
|
function VarIndexList($pagename) {
|
|
global $VarIndex;
|
|
if (!isset($VarIndex)) VarIndexLoad($pagename);
|
|
ksort($VarIndex);
|
|
$out = "<table><tr><th>Variable</th><th>Documented in</th></tr>\n";
|
|
foreach($VarIndex as $v=>$a)
|
|
$out .= FmtPageName("<tr><td><a class='varlink'
|
|
href='{$a['url']}'><code>$$v</code></a></td><td><a
|
|
href='{\$PageUrl}'>{\$Name}</a></td></tr>\n",$a['pagename']);
|
|
$out .= "</table>";
|
|
return $out;
|
|
}
|
|
|