diff options
Diffstat (limited to 'html/elispmarkup.php3')
| -rw-r--r-- | html/elispmarkup.php3 | 137 |
1 files changed, 137 insertions, 0 deletions
diff --git a/html/elispmarkup.php3 b/html/elispmarkup.php3 new file mode 100644 index 00000000..e2b47367 --- /dev/null +++ b/html/elispmarkup.php3 @@ -0,0 +1,137 @@ +<?php +// +// Markup Emacs Lisp and Outline files +// +// David Aspinall, March 2000 +// +// $Id$ +// +// + +function isexpanded($headingno,$expanded) { + // print "testing $headingno"; + $all = ereg("all",$expanded); + $thisone = ereg("," . $headingno,$expanded); + return ($all ? ! $thisone : $thisone); +} + +function addexpanded($headingno,$expanded) { + $all = ereg("all",$expanded); + return ($all ? str_replace("," . $headingno,"",$expanded) : + $expanded . "," . $headingno); +} + +function removeexpanded($headingno,$expanded) { + $all = ereg("all",$expanded); + return ($all ? $expanded . "," . $headingno : + str_replace("," . $headingno,"",$expanded)); +} + +function link_toggle($headingno,$text,$thispage,$filename,$expanded) { + if (isexpanded($headingno,$expanded)) { + $newexpanded=removeexpanded($headingno,$expanded); + } else { + $newexpanded=addexpanded($headingno,$expanded); + } + print "<a name=\"$headingno\"><a href=\"$thispage"; + print "?file=" . urlencode($filename); + print "&expanded=" . urlencode($newexpanded) . "#" . $headingno . "\">" . $text . "</a></a>\n"; +} + +// FIXME: this is a nonsense really. Might be okay if it +// used dynamic HTML but it's too much of a faff at the moment. +// Also, we should use the tree structure properly and keep a stack! + +function outline_markup($filename,$thispage,$expanded) { + if ($title=="") { $title=$filename; }; + $outline = false; + $file = file($filename); + $i = 0; + $level=0; + $headingno=0; + /* Now parse file, watching for outline headers */ + for (;$i < count($file);$i++) { + $line = $file[$i]; + // HTML escapes + $line = htmlentities($line); + // Anchors for URLs + $line = ereg_replace("((http://|mailto:)[^ \n\t]+)","<a href=\"\\1\">\\1</a>",$line); + // Assume a heading + $multipar=false; + if (ereg("-\*- (mode:)?outline -\*-",$line)) { + // Found line with outline mode header, set flag + // and print message + $outline = true; + print "<p><i>"; + print "This is a flattened outline file: click on a title to hide/reveal the leaf underneath it."; + print "<br>Click "; + print "<a href=\"$thispage?file=" . urlencode($filename); + print "&expanded=all\">here</a> to show whole body, or "; + print "<a href=\"$thispage?file=" . urlencode($filename); + print "\">here</a> to hide whole body."; + print "</i></p>\n"; + } elseif ($outline) { + if (ereg("^ *\n",$line)) { + // if (!newpara) { print "</p><p>\n"; }; + $newpara = true; + } elseif (ereg("^([\*]+) (.*)\n",$line,$heading)) { + $newlevel = strlen($heading[1])+1; + // if ($newlevel < $level) { + // Up a level + // $p = strpos($path,"-"); + // $path = substr($path,0,$p-1); + if ($newpara && + $level<=$newlevel && + isexpanded($headingno,$expanded)) { print "<p>\n"; } + $headingno++; + $level=$newlevel; + $text="<h$level>$heading[2]</h$level>"; + link_toggle($headingno,$text,$thispage,$filename,$expanded); + } elseif (isexpanded($headingno,$expanded)) { + if ($newpara && $level==0) { print "<p>\n"; } + print $line; + $newpara=false; + $level=0; + } + } else { + print $line; + } + } +} + +// +// For browsing source. Unfinished. +// + +function elisp_markup($filename,$thispage,$title="") { + if ($title=="") { $title=$filename; }; + $file = file($filename); + $i = 0; + $level=0; + $headingno=0; + /* Now parse file, watching for outline headers */ + for (;$i < count($file);$i++) { + $line = $file[$i]; + // HTML escapes + $line = htmlentities($line); + // Pagebreaks + // ??? + // Anchors for URLs + $line = ereg_replace("((http://|mailto:)[-a-zA-Z0-9\.~/_@]+)","<a href=\"\\1\">\\1</a>",$line); + // Font-lock equivalents... + // 1. comments. Strings roughly done: ignore if quote appears after ; +// seems buggy: <div> breaks line in pre formatting. Only do for whole-lines. +// $line = ereg_replace("^([^;]*)(;+[^\"^\n]+)\n$", + $line = ereg_replace("^(;+[^\"^\n]+)\n$", + "<font color=\"#8080E0\">\\1</font>\n", + $line); + // 2. keywords + $line = ereg_replace("^\(def(macro|un|var|custom|const|group|face)", + "(<font color=\"#F0B0B0\">def\\1</font>", + $line); + // FIXME: add hrefs for keywords, looking up in TAGS file. + // FIXME: add line numbers + // FIXME: parse strings + print $line; + } +} |