Oo-regexp-export.php

From Organic Design wiki
Revision as of 10:00, 22 September 2007 by Nad (talk | contribs) ({{legacy}})
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Legacy.svg Legacy: This article describes a concept that has been superseded in the course of ongoing development on the Organic Design wiki. Please do not develop this any further or base work on this concept, this is only useful for a historic record of work done. You may find a link to the currently used concept or function in this article, if not you can contact the author to find out what has taken the place of this legacy item.

<php><?

  1. Export article to OO format
  2. - only does document.php transform and its own wiki markup

# Returns an OO-span element from a CSS-style-span function replace_span($matches) { $oo = ; $css = preg_replace("/\\s*([:;])\\s*/m",'$1',$matches[1]); foreach (explode(';', $css) as $style) { list($att, $val) = explode(':', $style); if ($att == 'color') $oo .= " fo:color=\"$val\""; if ($att == 'font-weight') $oo .= ' fo:font-weight="bold" style:font-weight-asian="bold" style:font-weight-complex="bold"'; if ($att == 'font-style') $oo .= ' fo:font-style="italic" style:font-style-asian="italic" style:font-style-complex="italic"'; } $oo = "<style:properties $oo/>"; if (isset($GLOBALS['oo-styles'][$oo])) $tN = $GLOBALS['oo-styles'][$oo]; else { $tN = $GLOBALS['oo-styles'][$oo] = 5+count($GLOBALS['oo-styles']); $GLOBALS['oo-style-indexes'][$tN] = $oo; } return "<text:span text:style-name=\"T$tN\">"; }

function replace_code($matches) { $text = ; foreach (preg_split('/
/', $matches[1]) as $line) $text .= "<text:p text:style-name=\"Code\">$line</text:p>\n"; $text = preg_replace_callback('//', 'replace_span', $text); $text = preg_replace('/<\\/span>/', '</text:span>', $text); return "</text:p>\n$text\n<text:p text:style-name=\"Text body\">\n"; }

# Main wiki->oo parser function ooParse($text) { $script = $GLOBALS['xwScript']; for ($i = 0; $i < 10; $i++) { $token = "token$i"; $$token = ":-:$token:-:"; } # ;text (pre) $text = preg_replace("/\\n;(.+?)\\n/m", "\n\n$token2\\1\n\n", $text); # *text (pre) $text = preg_replace("/\\n(\\*+) *(.+?)$/m", "$token1\\1\\2$token1", $text);

# 

 (pre)
		$text = preg_replace("/
(.+?)<\\/pre>/es", '"\n\nPR$token3".htmlentities("$1")."\n\n"', $text);
		# no-wiki (pre)
		$text = preg_replace("/<[n]owiki>(.+?)<\\/nowiki>/s", "\n\nNW$token3$1\n\n", $text);
		# xwcode (pre)
		$text = preg_replace('/
(.*?)<.div>/s', "\n\nXW$token3$1\n\n", $text);
		$xml = ;
		foreach (explode("\n\n", trim($text)) as $text) {
			if (!ereg($token3, $text)) {
				$text = htmlentities($text);
				# text
				$text = preg_replace("/(.+?)/s", "<text:span text:style-name=\"T2\">\\1</text:span>", $text);
				# text
				$text = preg_replace("/(.+?)/s", "<text:span text:style-name=\"T1\">\\1</text:span>", $text);
				# anchor
				$text = preg_replace("/\\[\\[Wikipedia:([^\\|\\]]+)\\|([^\\]]*)]]/", "<text:a xlink:type=\"simple\" xlink:href=\"http://en.wikipedia.org/wiki/\\1\">\\2</text:a>", $text);
				# anchor
				$text = preg_replace("/\\[\\[([^\\|\\]]+)\\|([^\\]]*)]]/", "<text:a xlink:type=\"simple\" xlink:href=\"$script/\\1\">\\2</text:a>", $text);
				# article
				$text = preg_replace("/\\[\\[([^\\]]+)]]/", "<text:a xlink:type=\"simple\" xlink:href=\"$script/\\1\">\\1</text:a>", $text);
				# [url anchor]
				$text = preg_replace("/\\[([^ \\]]+) +([^\\]]*)]/", "<text:a xlink:type=\"simple\" xlink:href=\"\\1\">\\2</text:a>", $text);
				# [url]
				$text = preg_replace("/\\[([^\\]]+)]/", "<text:a xlink:type=\"simple\" xlink:href=\"\\1\">\\1</text:a>", $text);
				# 
 (pre)
				$text = str_replace('<hr>', $token4, $text);
				}
			$xml .= "<text:p text:style-name=\"Text body\">$text</text:p>\n";
			}
		# ;text (post)
		$xml = preg_replace("/(?<=>)$token2(.+)(?=<)/", "<text:span text:style-name=\"T2\">\\1</text:span>", $xml);
		# *text (post)
		$xml= preg_replace("/$token1\\*+(.*?)$token1/m", "<text:list-item><text:p text:style-name=\"P12\">\\1</text:p></text:list-item>", $xml);
		$xml= preg_replace("/(?<!<\\/text:list-item>)(<text:list-item>)/", "</text:p>\n<text:unordered-list text:style-name=\"L1\">\\1", $xml);
		$xml= preg_replace("/(<\\/text:list-item>)(?!<text:list-item>)/", "\\1</text:unordered-list>\n<text:p text:style-name=\"Text body\">", $xml);
		# no-wiki (post)
		$xml = str_replace("NW$token3",, $xml);
		# 
 (post)
		$xml = str_replace("$token4</text:p>", "</text:p>\n<text:p text:style-name=\"P13\" />\n", $xml);
		$xml = str_replace($token4, "</text:p>\n<text:p text:style-name=\"P13\" />\n<text:p text:style-name=\"Text body\">", $xml);
		# spaces
		$xml = str_replace('&nbsp;', ' ', $xml);
		$xml = str_replace('  ', '  ', $xml);
		$xml = preg_replace("/(( )+)/e",'"<text:s text:c=\"".(strlen("$1")/6)."\"/>"',$xml);
		# tables (just remove for now)
		$xml = preg_replace("/<\\/?(center|table|tr|th|td).*?>/i",,$xml);
		# convert xwcode and syntax colours
		$xml = preg_replace_callback("/..$token3(.+?)(?=<\\/text:p>)/s", 'replace_code', $xml);
		return $xml;
		}

$htdocs = $GLOBALS['_SERVER']['DOCUMENT_ROOT'];
$GLOBALS['oo-styles'] = array();
$GLOBALS['oo-style-indexes'] = array();
$error = false;

# Create a unique working folder to build zip in
mkdir($tmp = "$htdocs/wiki/tmp/".uniqid('export'));
$sxw = "$tmp/sxw";

# Zip compression library - www.phpconcept.net/pclzip/
define('PCLZIP_TEMPORARY_DIR', "$tmp/");
require_once("$htdocs/wiki/xmlwiki/lib/pclzip/pclzip.lib.php");

# Get OO content and styles template articles
$content = xwArticleContent('oo-doc-content.xml');
$styles = xwArticleContent('oo-doc-styles.xml');
$manifest = xwArticleContent('oo-doc-manifest.xml');

# Insert our document info into existing tokens
$content = str_replace('Title', str_replace('_',' ',$title), $content);
$content = str_replace('Version', 'Exported by '.$GLOBALS['xwUserName'].' on '.date('d M Y').' at '.date('H:i:s'), $content);
$styles = str_replace('My-Header', "$script/$title", $styles);

# Preserve problem characters so they don't get converted to entities
$cToken = '::--::';
$specialChrs = array('…', '–', '‘', '’', '“', '�');
foreach ($specialChrs as $i => $c) $article = str_replace($c, "$i$cToken", $article);

# Build main document body
# - the match splits the article into sections at headings, extracting heading, level & text
$body = ; $last = 0; $toclist = array();
if (preg_match_all('/
<tmp num="(#*)" title="(.*?)" anchor="(.*?)".><.h1>/s', $article, $sections, PREG_SET_ORDER | PREG_OFFSET_CAPTURE)) {
	foreach ($sections as $m) {
		$level = strlen($m[1][0]);
		$anchor = htmlentities($m[3][0]);
		if ($i = $m[0][1] - $last) $body .= ooParse(substr($article, $last, $i));
		$style = $level > 1 ? "Heading $level" : 'P11';
		if ($level && $level < 3) $toclist[] = array('P'.($level+7), $anchor);
		if ($anchor) $body .= "<text:h text:style-name=\"$style\" text:level=\"$level\">$anchor</text:h>\n";
		$last = $m[0][1] + strlen($m[0][0]);
		}
	}
# Handle last section (or all if there were no headings
if ($i = strlen($article) - $last) $body .= ooParse(substr($article, $last, $i));

# Insert the constructed body into the xml template
$content = str_replace('</office:body>', "\n$body\n</office:body>", $content);

# Recover the special characters
foreach ($specialChrs as $i => $c) $content = str_replace("$i$cToken", $c, $content);

# Insert OO'd CSS styles
$ooStyles = ;
foreach ($GLOBALS['oo-styles'] as $style => $i) $ooStyles .= "<style:style style:name=\"T$i\" style:family=\"text\">\n$style\n</style:style>\n";
$content = str_replace('</office:automatic-styles>', "$ooStyles\n</office:automatic-styles>", $content);

# Insert TOC msg into template
$toc = "<text:p text:style-name=\"P8\">Contents is out of date, please update fields from tools menu\n<text:tab-stop/>???</text:p>\n";
$content = str_replace('</text:index-body>', "$toc\n</text:index-body>", $content);

# Dump the content & styles templates to files in the working folder
$fh = fopen($file1 = "$tmp/content.xml",'w+');
fwrite($fh, $content);
fclose($fh);
$fh = fopen($file2 = "$tmp/styles.xml",'w+');
fwrite($fh, $styles);
fclose($fh);
$fh = fopen($file3 = "$tmp/manifest.xml",'w+');
fwrite($fh, $manifest);
fclose($fh);

# Add the files to the sxw archive...
$zip = new PclZip($sxw);
if ($zip->create(array($file1, $file2),PCLZIP_OPT_REMOVE_ALL_PATH)) {
	$zip->add($file3,PCLZIP_OPT_REMOVE_ALL_PATH,PCLZIP_OPT_ADD_PATH,'META-INF');
	# ...and send as raw data back to browser as title.sxw
	ob_end_clean();
	header('Content-type: application/zip');
	header("Content-Disposition: attachment; filename=\"$title.sxw\"");
	@readfile($sxw);
	# Clean up and die
	@unlink($file1);
	@unlink($file2);
	@unlink($file3);
	@unlink($sxw);
	@rmdir($tmp);
	die;
	}
else $error = $zip->errorInfo(true);

# Error, clean up files
xwMessage($error,'red');
@unlink($file1);
@unlink($file2);
@unlink($sxw);
@rmdir($tmp);
?></php>
Retrieved from "https://organicdesign.nz/wiki/index.php?title=Oo-regexp-export.php&oldid=77017"