","
\n",$text); - - return trim($text); -} - -function pba($in,$element="") // "parse block attributes" -{ - global $hlgn,$vlgn,$clas,$styl,$cspn,$rspn,$textile_a,$textile_s,$textile_c; - - $style=''; $class=''; $language=''; $colspan=''; $rowspan=''; $id=''; $atts=''; - - if (!empty($in)) { - $matched = $in; - if($element=='td'){ - if(preg_match("/\\\\(\d+)/",$matched,$csp)) $colspan=$csp[1]; - if(preg_match("/\/(\d+)/",$matched,$rsp)) $rowspan=$rsp[1]; - - if (preg_match("/($vlgn)/",$matched,$vert)) - $style[] = "vertical-align:".vAlign($vert[1]).";"; - } - - if(preg_match("/\{([^}]*)\}/",$matched,$sty)) { - $style[]=$sty[1].';'; - $matched = str_replace($sty[0],'',$matched); - } - - if(preg_match("/\[([^)]+)\]/U",$matched,$lng)) { - $language=$lng[1]; - $matched = str_replace($lng[0],'',$matched); - } - - if(preg_match("/\(([^()]+)\)/U",$matched,$cls)) { - $class=$cls[1]; - $matched = str_replace($cls[0],'',$matched); - } - - if(preg_match("/([(]+)/",$matched,$pl)) { - $style[] = "padding-left:".strlen($pl[1])."em;"; - $matched = str_replace($pl[0],'',$matched); - } - if(preg_match("/([)]+)/",$matched,$pr)) { - dump($pr); - $style[] = "padding-right:".strlen($pr[1])."em;"; - $matched = str_replace($pr[0],'',$matched); - } - - if (preg_match("/($hlgn)/",$matched,$horiz)) - $style[] = "text-align:".hAlign($horiz[1]).";"; - - if (preg_match("/^(.*)#(.*)$/",$class,$ids)) { - $id = $ids[2]; - $class = $ids[1]; - } - - if($style) $atts.=' style="'.join("",$style).'"'; - if($class) $atts.=' class="'.$class.'"'; - if($language) $atts.=' lang="'.$language.'"'; - if($id) $atts.=' id="'.$id.'"'; - if($colspan) $atts.=' colspan="'.$colspan.'"'; - if($rowspan) $atts.=' rowspan="'.$rowspan.'"'; - - return $atts; - } else { - return ''; - } -} - -// ------------------------------------------------------------- -function table($text) -{ - global $textile_a,$textile_c,$textile_s; - $text = $text."\n\n"; - return preg_replace_callback("/^(?:table(_?$textile_s$textile_a$textile_c)\. ?\n)?^($textile_a$textile_c\.? ?\|.*\|)\n\n/smU", - "fTable",$text); -} - -// ------------------------------------------------------------- -function fTable($matches) -{ - global $textile_s,$textile_a,$textile_c; - $tatts = pba($matches[1],'table'); - - foreach(preg_split("/\|$/m",$matches[2],-1,PREG_SPLIT_NO_EMPTY) as $row){ - if (preg_match("/^($textile_a$textile_c\. )(.*)/m",$row,$rmtch)) { - $ratts = pba($rmtch[1],'tr'); - $row = $rmtch[2]; - } else $ratts = ''; - - foreach(explode("|",$row) as $cell){ - $ctyp = "d"; - if (preg_match("/^_/",$cell)) $ctyp = "h"; - if (preg_match("/^(_?$textile_s$textile_a$textile_c\. )(.*)/",$cell,$cmtch)) { - $catts = pba($cmtch[1],'td'); - $cell = $cmtch[2]; - } else $catts = ''; - - if(trim($cell)!='') - $cells[] = "\t\t\t
", $text); - - $text = explode("\n",$text); - array_push($text," "); - - foreach($text as $line) { - if (preg_match('/
/i',$line)) { $pre = true; }
- foreach($find as $tag){
- $line = ($pre==false)
- ? preg_replace_callback("/^($tag)($textile_a$textile_c)\.(?::(\S+))? (.*)$/",
- "fBlock",$line)
- : $line;
- }
-
- $line = preg_replace('/^(?!\t|<\/?pre|<\/?code|$| )(.*)/',"\t$1
",$line);
-
- $line=($pre==true) ? str_replace("
","\n",$line):$line;
- if (preg_match('/<\/pre>/i',$line)) { $pre = false; }
-
- $out[] = $line;
- }
- return join("\n",$out);
-}
-
-// -------------------------------------------------------------
-function fBlock($m)
-{
-# dump($m);
- list(,$tag,$atts,$cite,$content) = $m;
-
- $atts = pba($atts);
-
- if(preg_match("/fn(\d+)/",$tag,$fns)){
- $tag = 'p';
- $atts.= ' id="fn'.$fns[1].'"';
- $content = ''.$fns[1].' '.$content;
- }
-
- $start = "\t<$tag";
- $end = "";
-
- if ($tag=="bq") {
- $cite = checkRefs($cite);
- $cite = ($cite!='') ? ' cite="'.$cite.'"' : '';
- $start = "\t\n\t\t$content$end";
-}
-
-
-// -------------------------------------------------------------
-function span($text)
-{
- global $textile_c,$pnct;
- $qtags = array('\*\*','\*','\?\?','-','__','_','%','\+','~');
-
- foreach($qtags as $f) {
- $text = preg_replace_callback(
- "/(?<=^|\s|\>|[[:punct:]]|[{(\[])
- ($f)
- ($textile_c)
- (?::(\S+))?
- (\w.+\w)
- ([[:punct:]]*)
- $f
- (?=[])}]|[[:punct:]]+|\s|$)
- /xmU","fSpan",$text);
- }
- return $text;
-}
-
-// -------------------------------------------------------------
-function fSpan($m)
-{
-# dump($m);
- global $textile_c;
- $qtags = array(
- '*' => 'b',
- '**' => 'strong',
- '??' => 'cite',
- '_' => 'em',
- '__' => 'i',
- '-' => 'del',
- '%' => 'span',
- '+' => 'ins',
- '~' => 'sub');
-
- list(,$tag,$atts,$cite,$content,$end) = $m;
- $tag = $qtags[$tag];
- $atts = pba($atts);
- $atts.= ($cite!='') ? 'cite="'.$cite.'"' : '';
-
- return "<$tag$atts>$content$end";
-}
-
-// -------------------------------------------------------------
-function links($text)
-{
- global $textile_c;
- return preg_replace_callback('/
- ([\s[{(]|[[:punct:]])? # $pre
- " # start
- ('.$textile_c.') # $atts
- ([^"]+) # $text
- \s?
- (?:\(([^)]+)\)(?="))? # $title
- ":
- (\S+\b) # $url
- (\/)? # $slash
- ([^\w\/;]*) # $post
- (?=\s|$)
- /Ux',"fLink",$text);
-}
-
-// -------------------------------------------------------------
-function fLink($m)
-{
- list(,$pre,$atts,$text,$title,$url,$slash,$post) = $m;
-
- $url = checkRefs($url);
-
- $atts = pba($atts);
- $atts.= ($title!='') ? ' title="'.$title.'"' : '';
-
- $atts = ($atts!='') ? shelve($atts) : '';
-
- return $pre.''.$text.''.$post;
-
-}
-
-// -------------------------------------------------------------
-function getRefs($text)
-{
- return preg_replace_callback("/(?<=^|\s)\[(.+)\]((?:http:\/\/|\/)\S+)(?=\s|$)/U",
- "refs",$text);
-}
-
-// -------------------------------------------------------------
-function refs($m)
-{
- list(,$flag,$url) = $m;
- $GLOBALS['urlrefs'][$flag] = $url;
- return '';
-}
-
-// -------------------------------------------------------------
-function checkRefs($text)
-{
- global $urlrefs;
- return (isset($urlrefs[$text])) ? $urlrefs[$text] : $text;
-}
-
-// -------------------------------------------------------------
-function image($text)
-{
- global $textile_c;
- return preg_replace_callback("/
- \! # opening
- (\<|\=|\>)? # optional alignment atts
- ($textile_c) # optional style,class atts
- (?:\. )? # optional dot-space
- ([^\s(!]+) # presume this is the src
- \s? # optional space
- (?:\(([^\)]+)\))? # optional title
- \! # closing
- (?::(\S+))? # optional href
- (?=\s|$) # lookahead: space or end of string
- /Ux","fImage",$text);
-}
-
-// -------------------------------------------------------------
-function fImage($m)
-{
- list(,$algn,$atts,$url) = $m;
- $atts = pba($atts);
- $atts.= ($algn!='') ? ' align="'.iAlign($algn).'"' : '';
- $atts.= (isset($m[4])) ? ' title="'.$m[4].'"' : '';
- $size = @getimagesize($url);
- if($size) $atts.= " $size[3]";
-
- $href = (isset($m[5])) ? checkRefs($m[5]) : '';
- $url = checkRefs($url);
-
- $out = '';
- $out.= ($href!='') ? '' : '';
- $out.= '
';
- $out.= ($href!='') ? '' : '';
-
- return $out;
-}
-
-// -------------------------------------------------------------
-function code($text)
-{
- global $pnct;
- return preg_replace_callback("/
- (?:^|(?<=[\s\(])|([[{])) # 1 open bracket?
- @ # opening
- (?:\|(\w+)\|)? # 2 language
- (.+) # 3 code
- @ # closing
- (?:$|([\]}])|
- (?=[[:punct:]]{1,2}|
- \s)) # 4 closing bracket?
- /Ux","fCode",$text);
-}
-
-// -------------------------------------------------------------
-function fCode($m)
-{
- list(,$before,$lang,$code,$after) = $m;
- $lang = ($lang!='') ? ' language="'.$lang.'"' : '';
- return $before.''.detextile($code).''.$after;
-}
-
-// -------------------------------------------------------------
-function shelve($val)
-{
- $GLOBALS['shelf'][] = $val;
- return ' <'.count($GLOBALS['shelf']).'>';
-}
-
-// -------------------------------------------------------------
-function retrieve($text)
-{
- global $shelf;
- $i = 0;
- if(is_array($shelf)) {
- foreach($shelf as $r){
- $i++;
- $text = str_replace("<$i>",$r,$text);
- }
- }
- return $text;
-}
-
-// -------------------------------------------------------------
-function incomingEntities($text)
-{
- /* turn any incoming ampersands into a dummy character for now.
- This uses a negative lookahead for alphanumerics followed by a semicolon,
- implying an incoming html entity, to be skipped */
-
- return preg_replace("/&(?![a-z]+;|#[0-9]+;)/i","x%x%",$text);
-}
-
-// -------------------------------------------------------------
-function encodeEntities($text)
-{
- /* Convert high and low ascii to entities. If multibyte string functions are
- available (on by default in php 4.3+), we convert using unicode mapping as
- defined in the function encode_high(). If not, we use php's nasty
- built-in htmlentities() */
-
- return (function_exists('mb_encode_numericentity'))
- ? encode_high($text)
- : htmlentities($text,ENT_NOQUOTES,"utf-8");
-}
-
-// -------------------------------------------------------------
-function fixEntities($text)
-{
- /* de-entify any remaining angle brackets or ampersands */
- return str_replace(array(">", "<", "&"),
- array(">", "<", "&"), $text);
-}
-
-// -------------------------------------------------------------
-function cleanWhiteSpace($text)
-{
- $out = str_replace(array("\r\n","\t"), array("\n",''), $text);
- $out = preg_replace("/\n{3,}/","\n\n",$out);
- $out = preg_replace("/\n *\n/","\n\n",$out);
- $out = preg_replace('/"$/',"\" ", $out);
- return $out;
-}
-
-// -------------------------------------------------------------
-function noTextile($text)
-{
- return preg_replace('/(^|\s)==(.*)==(\s|$)?/msU',
- '$1$2 $3',$text);
-}
-
-// -------------------------------------------------------------
-function superscript($text)
-{
- return preg_replace('/\^(.*)\^/mU','$1',$text);
-}
-
-// -------------------------------------------------------------
-function footnoteRef($text)
-{
- return preg_replace('/\b\[([0-9]+)\](\s)?/U',
- '$1$2',$text);
-}
-
-// -------------------------------------------------------------
-function glyphs($text)
-{
- // fix: hackish
- $text = preg_replace('/"\z/',"\" ", $text);
-
- $glyph_search = array(
- '/([^\s[{(>])?\'(?(1)|(?=\s|s\b|[[:punct:]]))/', // single closing
- '/\'/', // single opening
- '/([^\s[{(>])?"(?(1)|(?=\s|[[:punct:]]))/', // double closing
- '/"/', // double opening
- '/\b( )?\.{3}/', // ellipsis
- '/\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/', // 3+ uppercase acronym
- '/(^|[^"][>\s])([A-Z][A-Z0-9 ]{2,})([^$1', // 3+ uppercase acronym
- '$1$2$3', // 3+ uppercase caps
- '—', // em dash
- ' – ', // en dash
- '$1×$2', // dimension sign
- '™', // trademark
- '®', // registered
- '©'); // copyright
-
-
-$codepre = false;
- /* if no html, do a simple search and replace... */
-if (!preg_match("/<.*>/",$text)) {
- $text = preg_replace($glyph_search,$glyph_replace,$text);
- return $text;
-} else {
- $text = preg_split("/(<.*>)/U",$text,-1,PREG_SPLIT_DELIM_CAPTURE);
- foreach($text as $line) {
- $offtags = ('code|pre|kbd|notextile');
-
- /* matches are off if we're between , etc. */
- if (preg_match('/<('.$offtags.')>/i',$line)) $codepre = true;
- if (preg_match('/<\/('.$offtags.')>/i',$line)) $codepre = false;
-
- if (!preg_match("/<.*>/",$line) && $codepre == false) {
- $line = preg_replace($glyph_search,$glyph_replace,$line);
- }
-
- /* do htmlspecial if between */
- if ($codepre == true) {
- $line = htmlspecialchars($line,ENT_NOQUOTES,"UTF-8");
- $line = preg_replace('/<(\/?'.$offtags.')>/',"<$1>",$line);
- }
-
- $glyph_out[] = $line;
- }
- return join('',$glyph_out);
-}
-}
-
-// -------------------------------------------------------------
-function iAlign($in)
-{
- $vals = array(
- '<'=>'left',
- '='=>'center',
- '>'=>'right');
- return (isset($vals[$in])) ? $vals[$in] : '';
-}
-
-// -------------------------------------------------------------
-function hAlign($in)
-{
- $vals = array(
- '<'=>'left',
- '='=>'center',
- '>'=>'right',
- '<>'=>'justify');
- return (isset($vals[$in])) ? $vals[$in] : '';
-}
-
-// -------------------------------------------------------------
-function vAlign($in)
-{
- $vals = array(
- '^'=>'top',
- '-'=>'middle',
- '~'=>'bottom');
- return (isset($vals[$in])) ? $vals[$in] : '';
-}
-
-// -------------------------------------------------------------
-function encode_high($text,$charset="UTF-8")
-{
- $cmap = cmap();
- return mb_encode_numericentity($text, $cmap, $charset);
-}
-
-// -------------------------------------------------------------
-function decode_high($text,$charset="UTF-8")
-{
- $cmap = cmap();
- return mb_decode_numericentity($text, $cmap, $charset);
-}
-
-// -------------------------------------------------------------
-function cmap()
-{
- $f = 0xffff;
- $cmap = array(
- 160, 255, 0, $f,
- 402, 402, 0, $f,
- 913, 929, 0, $f,
- 931, 937, 0, $f,
- 945, 969, 0, $f,
- 977, 978, 0, $f,
- 982, 982, 0, $f,
- 8226, 8226, 0, $f,
- 8230, 8230, 0, $f,
- 8242, 8243, 0, $f,
- 8254, 8254, 0, $f,
- 8260, 8260, 0, $f,
- 8465, 8465, 0, $f,
- 8472, 8472, 0, $f,
- 8476, 8476, 0, $f,
- 8482, 8482, 0, $f,
- 8501, 8501, 0, $f,
- 8592, 8596, 0, $f,
- 8629, 8629, 0, $f,
- 8656, 8660, 0, $f,
- 8704, 8704, 0, $f,
- 8706, 8707, 0, $f,
- 8709, 8709, 0, $f,
- 8711, 8713, 0, $f,
- 8715, 8715, 0, $f,
- 8719, 8719, 0, $f,
- 8721, 8722, 0, $f,
- 8727, 8727, 0, $f,
- 8730, 8730, 0, $f,
- 8733, 8734, 0, $f,
- 8736, 8736, 0, $f,
- 8743, 8747, 0, $f,
- 8756, 8756, 0, $f,
- 8764, 8764, 0, $f,
- 8773, 8773, 0, $f,
- 8776, 8776, 0, $f,
- 8800, 8801, 0, $f,
- 8804, 8805, 0, $f,
- 8834, 8836, 0, $f,
- 8838, 8839, 0, $f,
- 8853, 8853, 0, $f,
- 8855, 8855, 0, $f,
- 8869, 8869, 0, $f,
- 8901, 8901, 0, $f,
- 8968, 8971, 0, $f,
- 9001, 9002, 0, $f,
- 9674, 9674, 0, $f,
- 9824, 9824, 0, $f,
- 9827, 9827, 0, $f,
- 9829, 9830, 0, $f,
- 338, 339, 0, $f,
- 352, 353, 0, $f,
- 376, 376, 0, $f,
- 710, 710, 0, $f,
- 732, 732, 0, $f,
- 8194, 8195, 0, $f,
- 8201, 8201, 0, $f,
- 8204, 8207, 0, $f,
- 8211, 8212, 0, $f,
- 8216, 8218, 0, $f,
- 8218, 8218, 0, $f,
- 8220, 8222, 0, $f,
- 8224, 8225, 0, $f,
- 8240, 8240, 0, $f,
- 8249, 8250, 0, $f,
- 8364, 8364, 0, $f);
- return $cmap;
-}
-
-
-// -------------------------------------------------------------
- function textile_popup_help($name,$helpvar,$windowW,$windowH) {
- return ' '.$name.'
';
-
- return $out;
- }
-
- function txtgps($thing)
- {
- if (isset($_POST[$thing])){
- if (get_magic_quotes_gpc()==1){
- return stripslashes($_POST[$thing]);
- } else {
- return $_POST[$thing];
- }
- } else {
- return '';
- }
- }
-
-// WordPress users. If you want to change what is textiled, do so here!
-// Default filters we don't want because of Textile 2
-remove_filter('the_content', 'wpautop');
-remove_filter('the_excerpt', 'wpautop');
-remove_filter('comment_text', 'wpautop');
-
-remove_filter('the_content', 'wptexturize');
-remove_filter('the_excerpt', 'wptexturize');
-remove_filter('comment_text', 'wptexturize');
-
-add_filter('the_content', 'textile', 6);
-add_filter('the_excerpt', 'textile', 6);
-add_filter('comment_text', 'textile', 6);
-
-?>
\ No newline at end of file