list_state) { case LIST_NONE: break; case LIST_UNORDERED: $ltag = "\n"; break; case LIST_ORDERED: $ltag = "\n"; break; case LIST_DEFINITION: $ltag = "\n"; break; } $this->list_state = LIST_NONE; switch ($state) { case STATE_PARAGRAPH: return "$ltag

\n"; break; case STATE_BLOCKQUOTE: return "$ltag\n"; break; case STATE_PREFORM: return "$ltag\n"; break; case STATE_NOTIKI: return "$ltag\n"; break; } } function do_replace( $line, $mark, $tag ) { // do the regex thingy for things like bold, italic etc // $mark is the magic character, and $tag the HTML tag to insert $regex = '(^| |[(.,])'.$mark.'([^'.$mark.']*)'.$mark.'($| |[.,;:)])'; $replace = '\\1<'.$tag.'>\\2\\3'; return eregi_replace( $regex, $replace, $line ); } function do_list( $line ) { // handle line with list character on it // get magic character and then delete it from the line $listchar = $line{0}; $line = eregi_replace( "^[*#;:] ", "", $line ); // if not in "list mode" then we need to drop the appropriate start tag $tag = ""; if ($this->list_state == LIST_NONE) { switch ($listchar) { case '*': $tag = "

"; break; case ':': $ltag = "
"; break; } return $tag . $ltag . $line; } function line_replace( $line ) { // return line after various formatting replacements // have been made - order is vital to stop them interfering with each other // ---- (at least) means a $line = eregi_replace( "^-{4}.*", " ", $line ); // is this a list line (starts with * # ; :) if (eregi( "^[*#;:] ", $line )) { $line = $this->do_list( $line ); } // typographic conventions $line = eregi_replace( "--", "—", $line ); $line = eregi_replace( " - ", " – ", $line ); $line = eregi_replace( "\.\.\.", " … ", $line ); $line = eregi_replace( "$R$", "®", $line ); $line = eregi_replace( "$TM$", "™", $line ); $line = eregi_replace( "$C$", "©", $line ); $line = eregi_replace( "1/4", "¼", $line ); $line = eregi_replace( "1/2", "½", $line ); $line = eregi_replace( "3/4", "¾", $line ); $line = eregi_replace( "([[:digit:]]+[[:space:]]*)x([[:space:]]*[[:digit:]]+)", "\\1×\\2", $line ); // (digits) x (digits) - multiply // do formatting tags // NOTE: The / replacement *has* to be first, or it will screw the // HTML tags that are added by the other ones $line = $this->do_replace( $line, "/", "em" ); $line = $this->do_replace( $line, "\*", "strong" ); $line = $this->do_replace( $line, "\+", "ins" ); $line = $this->do_replace( $line, "-", "del" ); $line = $this->do_replace( $line, "~", "sub" ); $line = $this->do_replace( $line, "\^", "sup" ); $line = $this->do_replace( $line, "\"", "q" ); $line = $this->do_replace( $line, "'", "q" ); $line = $this->do_replace( $line, "%", "code" ); $line = $this->do_replace( $line, "@", "cite" ); // make urls (with and without httpd) into proper links $line = eregi_replace("([[:space:]]|^)([[:alnum:]]+)://([^[:space:]]*)([[:alnum:]#?/&=])", "\\1\\2://\\3\\4", $line); $line = eregi_replace("([[:space:]])www\.([^[:space:]]*)([[:alnum:]#?/&=])", "\\1www.\\2\\3", $line); // !# at the beginning of any lines means a heading $line = eregi_replace( "^!([1-6]) (.*)$", "\\2", $line ); // acronym handing, example HTML(Hypertext Markyp Language) $line = ereg_replace( "([A-Z]+)$([^)]+)$", "\\1", $line ); return $line; } function format( $content ) { // main entry point for processing TikiText // $content is string containing text with Tiki formatting // return: string containing XHTML formatting // initialisation stuff $this->output = ""; $this->block_state = STATE_NONE; $this->list_state = LIST_NONE; // split content into array of single lines $lines = explode( "\n",$content ); $buffer = ""; // run through lines foreach( $lines as $line ) { // convert line contents // if ($this->block_state!=STATE_NOTIKI) { // $line = $this->line_replace( $line ); //} // is this a blank line? $blank_line = eregi( "^[[:blank:]\r]*$", $line ); if ($blank_line) { // first end current block according to state $buffer = $buffer . $this->close_block( $this->block_state ); $this->block_state = STATE_NONE; continue; } // act now depending on current block state if ($this->block_state == STATE_NONE) { // first character of line defines block type if (eregi( "^> ",$line )) { // blockquote $buffer = $buffer . " \n"; $buffer = $buffer . $this->line_replace( eregi_replace( "^>","",$line) ). "\n"; $this->block_state = STATE_BLOCKQUOTE; } else if (eregi( "^ ",$line) ) { // preformatted text $buffer = $buffer . " \n"; $buffer = $buffer . $this->line_replace($line) . "\n"; $this->block_state = STATE_PREFORM; } else if (eregi("^\% ",$line) ) { // preformatted text - no processing $buffer = $buffer . " \n"; $buffer = $buffer . eregi_replace( "^\%","",$line) . "\n"; $this->block_state = STATE_NOTIKI; } else { // ordinary paragraph $buffer = $buffer . " \n"; $buffer = $buffer . $this->line_replace($line) . "\n"; $this->block_state = STATE_PARAGRAPH; } continue; } if (($this->block_state == STATE_PARAGRAPH) | ($this->block_state == STATE_BLOCKQUOTE) | ($this->block_state == STATE_PREFORM) ) { $buffer = $buffer . $this->line_replace($line) . "\n"; continue; } elseif ($this->block_state == STATE_NOTIKI) { $buffer = $buffer . $line . "\n"; } } // close off any block level tags $buffer = $buffer . $this->close_block( $this->block_state ); return $buffer; } } ?>