diff options
Diffstat (limited to 'src/BBCodeParser.php')
| -rw-r--r-- | src/BBCodeParser.php | 365 |
1 files changed, 365 insertions, 0 deletions
diff --git a/src/BBCodeParser.php b/src/BBCodeParser.php new file mode 100644 index 0000000..1e57e1b --- /dev/null +++ b/src/BBCodeParser.php @@ -0,0 +1,365 @@ +<?php + +class BBCodeParser { + + const TEXT = 0; + const CTAG = 1; + const OTAG = 2; + const DONE = 3; + + + function parse($in, $uid) { + + $arg_stack = array(); + + $fn_number = 1; + $fn = array(); + + $i = 0; + $len = strlen($in); + + $out = ''; + + $state = self::TEXT; + + while ($state != self::DONE) { + switch ($state) { + case self::TEXT: + # find next occurance of uid + $ustart = strpos($in, ":$uid", $i); + if ($ustart === false) { + # no more tags, all done + $out .= substr($in, $i); + $state = self::DONE; + } + else { + # locate next tag + $tstart = strrpos($in, '[', $ustart-$len); + $tag = substr($in, $tstart+1, $ustart-$tstart-1); + + # determine whether it's an open or close tag + if ($tag[0] == '/') { + $state = self::CTAG; + $tag = substr($tag, 1); + } + else { + $state = self::OTAG; + } + + # copy leading text to output + $out .= substr($in, $i, $tstart-$i); + + # advance past ":$uid]" to next unparsed character + $i = $ustart + strlen($uid) + 2; + } + break; + + case self::OTAG: + # split tag into tag name and argument, if any + $arg = false; + $epos = strpos($tag, '='); + if ($epos !== false) { + $tag = substr($tag, 0, $epos); + $arg = substr($tag, $epos+1); + } + + $arg_stack[] = $arg; + + switch ($tag) { + case 'b': + $out .= '__'; + break; + case 'u': + case 'i': + $out .= '_'; + break; + case 'url': + case 'email': + # nothing to do on opening + break; + case 'quote': + break; + case 'code': + break; + case 'list': + break; + case '*': + break; + case 'img': + break; + case 'attachment': + break; + case 'color': + case 'size': + # ignored + break; + default: + throw new Exception('Unrecognized open tag: ' . $tag); + } + + $state = self::TEXT; + break; + + case self::CTAG: + $arg = array_pop($arg_stack); + + switch ($tag) { + case 'b': + $out .= '__'; + break; + case 'u': + case 'i': + $out .= '_'; + break; + case 'url': + case 'email': + if ($arg !== false) { + # built footnotes for links with text + $out .= '[' . $fn_number++ .']'; + $fn[] = $arg; + } + break; + case 'quote': + break; + case 'code': + break; + case 'list': + break; + case '*': + break; + case 'img': + break; + case 'attachment': + break; + case 'color': + case 'size': + # ignored + break; + default: + throw new Exception('Unrecognized close tag: ' . $tag); + } + + $state = self::TEXT; + break; + } + } + + if (!empty($fn)) { + # build footnotes + $out .= "\n"; + + for ($i = 0; $i < count($fn); ++$i) { + $out .= "\n[" . ($i+1) . '] ' . $fn[$i]; + } + } + + return $out; + } + +/* + $tstack = array(); + $ctag = $otag = ''; + + $state = TEXT; + + $i = 0; + $len = strlen($in); + + while ($i < $len) { + $c = $in[$i]; + + switch ($state) { + case TEXT: + switch ($c) { + case '[': + # left bracket might start a tag + $state = LBRAC; + ++$i; + break; + default: + # otherwise copy this character to the output + $out .= $c; + ++$i; + } + break; + + case LBRAC: + switch ($c) { + case '/': + # might be a closing tag + $ctag = ''; + $state = CTAG; + ++$i; + break; + case ']': + # '[]' is not a tag, copy to output + $out .= '[]'; + $state = TEXT; + ++$i; + break; + case '[': + # previous '[' did NOT start a tag, copy it to output + # this '[' might start a tag, don't change state + $out .= '['; + ++$i; + break; + default: + # might be an opening tag + $otag = ''; + $state = OTAG; + } + break; + + case OTAG: + switch ($c) { + case '[': + # '[' cannot appear in tag names, so this is not a tag, + # but '[' might start a real tag + $out .= '[' . $otag; + $otag = ''; + $state = OTAG; + ++$i; + break; + case '=': + # start of a tag argument + $targ = ''; + $state = TARG; + ++$i; + break; + case ']': + # end of tag + $state = OPEN_TAG; + break; + default: + # continue accumulating tag name + $otag .= $c; + ++$i; + } + break; + + case TARG: + switch ($c) { + case ']': + # end of tag + $state = OPEN_TAG; + break; + case '[': + # '[' cannot appear in tag names, so this is not a tag, + # but '[' might start a real tag + $out .= '[' . $otag . '=' . $targ; + $otag = $targ = ''; + $state = OTAG; + ++$i; + break; + default: + # continue accumulating tag argument + $targ .= $c; + ++$i; + } + break; + + case CTAG: + switch ($c) { + case '[': + # '[' cannot appear in tag names, so this is not a tag, + # but '[' might start a real tag + $out .= '[/' . $ctag; + $ctag = ''; + $state = OTAG; + ++$i; + break; + case ']': + # end of tag + $state = CLOSE_TAG; + break; + default: + # continue accumulating tag name + $ctag .= $c; + ++$i; + } + break; + + case OPEN_TAG: + switch ($otag) { + case 'b': + case 'u': + case 'i': + $tstack[] = $otag; + break; + case 'color': + break; + case 'size': + break; + case 'quote': + break; + case 'code': + break; + case 'list': + break; + case '*': + break; + case 'url': + break; + case 'email': + break; + case 'img': + break; + case 'attachment': + break; + default: + # unrecognized tag, make it text + $out .= '[' . $otag . ']'; + $state = TEXT; + } + + ++$i; + break; + + case CLOSE_TAG: + $otag = array_pop($tstack); + if ($ctag != $otag) { + # badly nested tags +# TODO + } + + switch ($ctag) { + case 'b': + break; + case 'u': + break; + case 'i': + break; + case 'color': + break; + case 'size': + break; + case 'quote': + break; + case 'code': + break; + case 'list': + break; + case 'url': + break; + case 'email': + break; + case 'img': + break; + case 'attachment': + break; + default: + # unrecognized tag, make it text + $out .= '[/' . $ctag . ']'; + $state = TEXT; + } + + ++$i; + break; + } + } +*/ + + +} + +?> |