<?php
/*
    This class contains code from rtfclass.php that was written by Markus Fischer and placed by him under
    GPLv2 License.

    =======================================NOTES FROM ORIGINAL AUTHOR====================================
		Rich Text Format - Parsing Class
		================================

		(c) 2000 Markus Fischer
		<mfischer@josefine.ben.tuwien.ac.at>
		   http://josefine.ben.tuwien.ac.at/~mfischer/

		Latest versions of this class can always be found at
			http://josefine.ben.tuwien.ac.at/~mfischer/developing/php/rtf/rtfclass.phps
		Testing suite is available at
			http://josefine.ben.tuwien.ac.at/~mfischer/developing/php/rtf/

		License: GPLv2

		Specification:
			http://msdn.microsoft.com/library/default.asp?URL=/library/specs/rtfspec.htm

		General Notes:
		==============
		Unknown or unspupported control symbols are silently gnored

		Group stacking is still not supported :(
			group stack logic implemented; however not really used yet
    =====================================================================================================

    It was modified by me (Andreas Brodowski) to allow compressed RTF being uncompressed by code I ported from
    Java to PHP and adapted according the needs of Z-Push.

    Currently it is being used to detect empty RTF Streams from Nokia Phones in MfE Clients

    It needs to be used by other backend writers that needs to have notes in calendar, appointment or tasks
    objects to be written to their databases since devices send them usually in RTF Format... With Zarafa
    you can write them directly to DB and Zarafa is doing the conversion job. Other Groupware systems usually
    don't have this possibility...

*/

class rtf {
    var $LZRTF_HDR_DATA = "{\\rtf1\\ansi\\mac\\deff0\\deftab720{\\fonttbl;}{\\f0\\fnil \\froman \\fswiss \\fmodern \\fscript \\fdecor MS Sans SerifSymbolArialTimes New RomanCourier{\\colortbl\\red0\\green0\\blue0\n\r\\par \\pard\\plain\\f0\\fs20\\b\\i\\u\\tab\\tx";
    var $LZRTF_HDR_LEN = 207;
    var $CRC32_TABLE = array(     0x00000000,0x77073096,0xEE0E612C,0x990951BA,0x076DC419,0x706AF48F,0xE963A535,0x9E6495A3,
                                  0x0EDB8832,0x79DCB8A4,0xE0D5E91E,0x97D2D988,0x09B64C2B,0x7EB17CBD,0xE7B82D07,0x90BF1D91,
                                  0x1DB71064,0x6AB020F2,0xF3B97148,0x84BE41DE,0x1ADAD47D,0x6DDDE4EB,0xF4D4B551,0x83D385C7,
                                  0x136C9856,0x646BA8C0,0xFD62F97A,0x8A65C9EC,0x14015C4F,0x63066CD9,0xFA0F3D63,0x8D080DF5,
                                  0x3B6E20C8,0x4C69105E,0xD56041E4,0xA2677172,0x3C03E4D1,0x4B04D447,0xD20D85FD,0xA50AB56B,
                                  0x35B5A8FA,0x42B2986C,0xDBBBC9D6,0xACBCF940,0x32D86CE3,0x45DF5C75,0xDCD60DCF,0xABD13D59,
                                  0x26D930AC,0x51DE003A,0xC8D75180,0xBFD06116,0x21B4F4B5,0x56B3C423,0xCFBA9599,0xB8BDA50F,
                                  0x2802B89E,0x5F058808,0xC60CD9B2,0xB10BE924,0x2F6F7C87,0x58684C11,0xC1611DAB,0xB6662D3D,
                                  0x76DC4190,0x01DB7106,0x98D220BC,0xEFD5102A,0x71B18589,0x06B6B51F,0x9FBFE4A5,0xE8B8D433,
                                  0x7807C9A2,0x0F00F934,0x9609A88E,0xE10E9818,0x7F6A0DBB,0x086D3D2D,0x91646C97,0xE6635C01,
                                  0x6B6B51F4,0x1C6C6162,0x856530D8,0xF262004E,0x6C0695ED,0x1B01A57B,0x8208F4C1,0xF50FC457,
                                  0x65B0D9C6,0x12B7E950,0x8BBEB8EA,0xFCB9887C,0x62DD1DDF,0x15DA2D49,0x8CD37CF3,0xFBD44C65,
                                  0x4DB26158,0x3AB551CE,0xA3BC0074,0xD4BB30E2,0x4ADFA541,0x3DD895D7,0xA4D1C46D,0xD3D6F4FB,
                                  0x4369E96A,0x346ED9FC,0xAD678846,0xDA60B8D0,0x44042D73,0x33031DE5,0xAA0A4C5F,0xDD0D7CC9,
                                  0x5005713C,0x270241AA,0xBE0B1010,0xC90C2086,0x5768B525,0x206F85B3,0xB966D409,0xCE61E49F,
                                  0x5EDEF90E,0x29D9C998,0xB0D09822,0xC7D7A8B4,0x59B33D17,0x2EB40D81,0xB7BD5C3B,0xC0BA6CAD,
                                  0xEDB88320,0x9ABFB3B6,0x03B6E20C,0x74B1D29A,0xEAD54739,0x9DD277AF,0x04DB2615,0x73DC1683,
                                  0xE3630B12,0x94643B84,0x0D6D6A3E,0x7A6A5AA8,0xE40ECF0B,0x9309FF9D,0x0A00AE27,0x7D079EB1,
                                  0xF00F9344,0x8708A3D2,0x1E01F268,0x6906C2FE,0xF762575D,0x806567CB,0x196C3671,0x6E6B06E7,
                                  0xFED41B76,0x89D32BE0,0x10DA7A5A,0x67DD4ACC,0xF9B9DF6F,0x8EBEEFF9,0x17B7BE43,0x60B08ED5,
                                  0xD6D6A3E8,0xA1D1937E,0x38D8C2C4,0x4FDFF252,0xD1BB67F1,0xA6BC5767,0x3FB506DD,0x48B2364B,
                                  0xD80D2BDA,0xAF0A1B4C,0x36034AF6,0x41047A60,0xDF60EFC3,0xA867DF55,0x316E8EEF,0x4669BE79,
                                  0xCB61B38C,0xBC66831A,0x256FD2A0,0x5268E236,0xCC0C7795,0xBB0B4703,0x220216B9,0x5505262F,
                                  0xC5BA3BBE,0xB2BD0B28,0x2BB45A92,0x5CB36A04,0xC2D7FFA7,0xB5D0CF31,0x2CD99E8B,0x5BDEAE1D,
                                  0x9B64C2B0,0xEC63F226,0x756AA39C,0x026D930A,0x9C0906A9,0xEB0E363F,0x72076785,0x05005713,
                                  0x95BF4A82,0xE2B87A14,0x7BB12BAE,0x0CB61B38,0x92D28E9B,0xE5D5BE0D,0x7CDCEFB7,0x0BDBDF21,
                                  0x86D3D2D4,0xF1D4E242,0x68DDB3F8,0x1FDA836E,0x81BE16CD,0xF6B9265B,0x6FB077E1,0x18B74777,
                                  0x88085AE6,0xFF0F6A70,0x66063BCA,0x11010B5C,0x8F659EFF,0xF862AE69,0x616BFFD3,0x166CCF45,
                                  0xA00AE278,0xD70DD2EE,0x4E048354,0x3903B3C2,0xA7672661,0xD06016F7,0x4969474D,0x3E6E77DB,
                                  0xAED16A4A,0xD9D65ADC,0x40DF0B66,0x37D83BF0,0xA9BCAE53,0xDEBB9EC5,0x47B2CF7F,0x30B5FFE9,
                                  0xBDBDF21C,0xCABAC28A,0x53B39330,0x24B4A3A6,0xBAD03605,0xCDD70693,0x54DE5729,0x23D967BF,
                                  0xB3667A2E,0xC4614AB8,0x5D681B02,0x2A6F2B94,0xB40BBE37,0xC30C8EA1,0x5A05DF1B,0x2D02EF8D,
                               );

    var $rtf;			// rtf core stream
    var $rtf_len;		// length in characters of the stream (get performace due avoiding calling strlen everytime)
    var $err = array();		// array of error message, no entities on no error

    var $wantXML;		// convert to XML
    var $wantHTML;		// convert to HTML
    var $wantASCII;		// convert to HTML

				// the only variable which should be accessed from the outside
    var $out;			// output data stream (depends on which $wantXXXXX is set to true
    var $outstyles;		// htmlified styles (generated after parsing if wantHTML
    var $styles;		// if wantHTML, stylesheet definitions are put in here

				// internal parser variables --------------------------------
				// control word variables
    var $cword;			// holds the current (or last) control word, depending on $cw
    var $cw;			// are we currently parsing a control word ?
    var $cfirst;		// could this be the first character ? so watch out for control symbols

    var $flags = array();	// parser flags

    var $queue;			// every character which is no sepcial char, not belongs to a control word/symbol; is generally considered being 'plain'

    var $stack = array();	// group stack

    /* keywords which don't follw the specification (used by Word '97 - 2000) */
    // not yet used
    var $control_exception = array(
    	"clFitText",
    	"clftsWidth(-?[0-9]+)?",
	"clNoWrap(-?[0-9]+)?",
	"clwWidth(-?[0-9]+)?",
	"tdfrmtxtBottom(-?[0-9]+)?",
	"tdfrmtxtLeft(-?[0-9]+)?",
	"tdfrmtxtRight(-?[0-9]+)?",
	"tdfrmtxtTop(-?[0-9]+)?",
	"trftsWidthA(-?[0-9]+)?",
	"trftsWidthB(-?[0-9]+)?",
	"trftsWidth(-?[0-9]+)?",
	"trwWithA(-?[0-9]+)?",
	"trwWithB(-?[0-9]+)?",
	"trwWith(-?[0-9]+)?",
	"spectspecifygen(-?[0-9]+)?",
    );

    var $charset_table = array(
    	"0"	=>	"ANSI",
	"1"	=>	"Default",
	"2"	=>	"Symbol",
	"77" 	=>	"Mac",
	"128" 	=>	"Shift Jis",
	"129" 	=>	"Hangul",
	"130" 	=>	"Johab",
	"134" 	=>	"GB2312",
	"136" 	=>	"Big5",
	"161" 	=>	"Greek",
	"162" 	=>	"Turkish",
	"163" 	=>	"Vietnamese",
	"177" 	=>	"Hebrew",
	"178" 	=>	"Arabic",
	"179" 	=>	"Arabic Traditional",
	"180" 	=>	"Arabic user",
	"181" 	=>	"Hebrew user",
	"186" 	=>	"Baltic",
	"204" 	=>	"Russian",
	"222" 	=>	"Thai",
	"238" 	=>	"Eastern European",
	"255" 	=>	"PC 437",
	"255" 	=>	"OEM",
    );

    /* note: the only conversion table used */
    var $fontmodifier_table = array(
	"bold"		=> "b",
	"italic"	=> "i",
	"underlined"	=> "u",
	"strikethru"	=> "strike",
    );


    function rtf() {
	$this->rtf_len = 0;
	$this->rtf = '';

        $this->out = '';
    }

    // loadrtf - load the raw rtf data to be converted by this class
    // data = the raw rtf
    function loadrtf($data) {
	if (($this->rtf = $this->uncompress($data))) {
	    $this->rtf_len = strlen($this->rtf);
	};
	if($this->rtf_len == 0) {
	    debugLog("No data in stream found");
	    return false;
	};
	return true;
    }

    function output($typ) {
    	switch($typ) {
    	    case "ascii": $this->wantASCII = true; break;
	    case "xml": $this->wantXML = true; break;
	    case "html": $this->wantHTML = true; break;
	    default: break;
	}
    }

    // uncompress - uncompress compressed rtf data
    // src = the compressed raw rtf in LZRTF format
    function uncompress($src) {
        $header = unpack("LcSize/LuSize/Lmagic/Lcrc32",substr($src,0,16));
	$in = 16;
        if ($header['cSize'] != strlen($src)-4) {
    	    debugLog("Stream too short");
	    return false;
	}

	if ($header['crc32'] != $this->LZRTFCalcCRC32($src,16,(($header['cSize']+4))-16)) {
	    debugLog("CRC MISMATCH");
	    return false;
	}

	if ($header['magic'] == 0x414c454d) {			// uncompressed RTF - return as is.
	    $dest = substr($src,$in,$header['uSize']);
	} else if ($header['magic'] == 0x75465a4c) {		// compressed RTF - uncompress.
	    $dst = $this->LZRTF_HDR_DATA;
	    $out = $this->LZRTF_HDR_LEN;
	    $oblen = $this->LZRTF_HDR_LEN + $header['uSize'];
	    $flagCount = 0;
	    $flags = 0;
	    while ($out<$oblen) {
	        $flags = ($flagCount++ % 8 == 0) ? ord($src{$in++}) : $flags >> 1;
	        if (($flags & 1) == 1) {
		    $offset = ord($src{$in++});
		    $length = ord($src{$in++});
		    $offset = ($offset << 4) | ($length >> 4);
		    $length = ($length & 0xF) + 2;
		    $offset = (int)($out / 4096) * 4096 + $offset;
		    if ($offset >= $out) $offset -= 4096;
		    $end = $offset + $length;
		    while ($offset < $end) {
		        $dst{$out++} = $dst{$offset++};
		    };
	        } else {
		    $dst{$out++} = $src{$in++};
	        }
	    }
	    $src = $dst;
	    $dest = substr($src,$this->LZRTF_HDR_LEN,$header['uSize']);
        } else {						// unknown magic - returfn false (please report if this ever happens)
	    debugLog("Unknown Magic");
	    return false;
        }

        return $dest;
    }

    // LZRTFCalcCRC32 - calculates the CRC32 of the LZRTF data part
    // buf = the whole rtf data part
    // off = start point of crc calculation
    // len = length of data to calculate CRC for
    // function is necessary since in RTF there is no XOR 0xffffffff being done (said to be 0x00 unsafe CRC32 calculation
    function LZRTFCalcCRC32($buf, $off, $len) {
	$c=0;
	$end = $off + $len;
	for($i=$off;$i < $end;$i++) {
    	    $c=$this->CRC32_TABLE[($c ^ ord($buf{$i})) & 0xFF] ^ (($c >> 8) & 0x00ffffff);
	}
	return $c;
    }

    function parserInit() { /* Default values according to the specs */
	$this->flags = array(
	    "fontsize"		=> 24,
	    "beginparagraph"	=> true,
	);
    }

    function parseControl($control, $parameter) {
	switch ($control) {
	    case "fonttbl": 		// font table definition start
		$this->flags["fonttbl"] = true;	// signal fonttable control words they are allowed to behave as expected
		break;
	    case "f": 			// define or set font
		if($this->flags["fonttbl"]) {	// if its set, the fonttable definition is written to; else its read from
		    $this->flags["fonttbl_current_write"] = $parameter;
		} else {
		    $this->flags["fonttbl_current_read"] = $parameter;
		}
		break;
	    case "fcharset": 		// this is for preparing flushQueue; it then moves the Queue to $this->fonttable .. instead to formatted output
		$this->flags["fonttbl_want_fcharset"] = $parameter;
		break;
    	    case "fs": 			// sets the current fontsize; is used by stylesheets (which are therefore generated on the fly
		$this->flags["fontsize"] = $parameter;
		break;

	    case "qc":			// handle center alignment
		$this->flags["alignment"] = "center";
		break;
	    case "qr":			// handle right alignment
		$this->flags["alignment"] = "right";
		break;

	    case "pard":		// reset paragraph settings (only alignment)
		$this->flags["alignment"] = "";
		break;
	    case "par":			// define new paragraph (for now, thats a simple break in html) begin new line
		$this->flags["beginparagraph"] = true;
		if($this->wantHTML) {
		    $this->out .= "</div>";
		}
		if($this->wantASCII) {
		    $this->out .= "\n";
		}
		break;
	    case "bnone":		// bold
		$parameter = "0";
	    case "b":
		// haven'y yet figured out WHY I need a (string)-cast here ... hm
		if((string)$parameter == "0")
		    $this->flags["bold"] = false;
		else
		    $this->flags["bold"] = true;
		break;
	    case "ulnone":		// underlined
	        $parameter = "0";
	    case "ul":
		if((string)$parameter == "0")
		    $this->flags["underlined"] = false;
		else
		    $this->flags["underlined"] = true;
		break;
	    case "inone":		// italic
		$parameter = "0";
	    case "i":
		if((string)$parameter == "0")
		    $this->flags["italic"] = false;
		else
		    $this->flags["italic"] = true;
		break;
	    case "strikenone":		// strikethru
		$parameter = "0";
	    case "strike":
		if((string)$parameter == "0")
		    $this->flags["strikethru"] = false;
		else
		    $this->flags["strikethru"] = true;
		break;
	    case "plain":		// reset all font modifiers and fontsize to 12
	    	$this->flags["bold"] = false;
		$this->flags["italic"] = false;
		$this->flags["underlined"] = false;
		$this->flags["strikethru"] = false;
		$this->flags["fontsize"] = 12;

		$this->flags["subscription"] = false;
		$this->flags["superscription"] = false;
		break;
	    case "subnone":		// subscription
		$parameter = "0";
	    case "sub":
		if((string)$parameter == "0")
		    $this->flags["subscription"] = false;
		else
		    $this->flags["subscription"] = true;
		break;
	    case "supernone":		// superscription
		$parameter = "0";
	    case "super":
		if((string)$parameter == "0")
		    $this->flags["superscription"] = false;
		else
		    $this->flags["superscription"] = true;
		break;
	}
    }

    /*
	Dispatch the control word to the output stream
    */

    function flushControl() {
	if(ereg("^([A-Za-z]+)(-?[0-9]*) ?$", $this->cword, $match)) {
	    $this->parseControl($match[1], $match[2]);
    	    if($this->wantXML) {
		$this->out.="<control word=\"".$match[1]."\"";
		if(strlen($match[2]) > 0)
		    $this->out.=" param=\"".$match[2]."\"";
		$this->out.="/>";
	    }
	}
    }

    /*
	If output stream supports comments, dispatch it
    */

    function flushComment($comment) {
    	if($this->wantXML || $this->wantHTML) {
	    $this->out.="<!-- ".$comment." -->";
	}
    }

    /*
	Dispatch start/end of logical rtf groups (not every output type needs it; merely debugging purpose)
    */

    function flushGroup($state) {
	if($state == "open") { /* push onto the stack */
	    array_push($this->stack, $this->flags);

	    if($this->wantXML)
		$this->out.="<group>";
	}
	if($state == "close") { /* pop from the stack */
	    $this->last_flags = $this->flags;
	    $this->flags = array_pop($this->stack);

	    $this->flags["fonttbl_current_write"] = ""; // on group close, no more fontdefinition will be written to this id
							// this is not really the right way to do it !
							// of course a '}' not necessarily donates a fonttable end; a fonttable
							// group at least *can* contain sub-groups
							// therefore an stacked approach is heavily needed
	    $this->flags["fonttbl"] = false; 		// no matter what you do, if a group closes, its fonttbl definition is closed too

    	    if($this->wantXML)
		$this->out.="</group>";
	}
    }

    function flushHead() {
	if($this->wantXML)
	    $this->out.="<rtf>";
    }

    function flushBottom() {
	if($this->wantXML)
	    $this->out.="</rtf>";
    }

    function checkHtmlSpanContent($command) {
	reset($this->fontmodifier_table);
	while(list($rtf, $html) = each($this->fontmodifier_table)) {
	    if($this->flags[$rtf] == true) {
		if($command == "start")
		    $this->out .= "<".$html.">";
		else
		    $this->out .= "</".$html.">";
	    }
	}
    }

    /*
    	flush text in queue
    */
    function flushQueue() {
	if(strlen($this->queue)) {
    	    // processing logic
	    if (isset($this->flags["fonttbl_want_fcharset"]) &&
		ereg("^[0-9]+$", $this->flags["fonttbl_want_fcharset"])) {
		$this->fonttable[$this->flags["fonttbl_want_fcharset"]]["charset"] = $this->queue;
		$this->flags["fonttbl_want_fcharset"] = "";
		$this->queue = "";
	    }

	    // output logic
	    if (strlen($this->queue)) {
		/*
	    	    Everything which passes this is (or, at leat, *should*) be only outputted plaintext
		    Thats why we can safely add the css-stylesheet when using wantHTML
		*/
		if($this->wantXML)
		    $this->out.= "<plain>".$this->queue."</plain>";
    		else if($this->wantHTML) {
		    // only output html if a valid (for now, just numeric;) fonttable is given
		    if(ereg("^[0-9]+$", $this->flags["fonttbl_current_read"])) {
			if($this->flags["beginparagraph"] == true) {
		    	    $this->flags["beginparagraph"] = false;
			    $this->out .= "<div align=\"";
			    switch($this->flags["alignment"]) {
				case "right":
			    	    $this->out .= "right";
				    break;
				case "center":
				    $this->out .= "center";
				    break;
				case "left":
				default:
				    $this->out .= "left";
			    }
			    $this->out .= "\">";
			}

			/* define new style for that span */
			$this->styles["f".$this->flags["fonttbl_current_read"]."s".$this->flags["fontsize"]] = "font-family:".$this->fonttable[$this->flags["fonttbl_current_read"]]["charset"]." font-size:".$this->flags["fontsize"].";";
			/* write span start */
			$this->out .= "<span class=\"f".$this->flags["fonttbl_current_read"]."s".$this->flags["fontsize"]."\">";

			/* check if the span content has a modifier */
			$this->checkHtmlSpanContent("start");
			/* write span content */
			$this->out .= $this->queue;
			/* close modifiers */
			$this->checkHtmlSpanContent("stop");
			/* close span */
			"</span>";
		    }
		}
		$this->queue = "";
	    }
	}
    }

    /*
	handle special charactes like \'ef
    */

    function flushSpecial($special) {
	if(strlen($special) == 2) {
    	    if($this->wantASCII)
    		$this->out .= chr(hexdec('0x'.$special));
	    else if($this->wantXML)
		$this->out .= "<special value=\"".$special."\"/>";
	    else if($this->wantHTML){
		$this->out .= "<special value=\"".$special."\"/>";
		switch($special) {
                    case "c1": $this->out .= "&Aacute;"; break;
                    case "e1": $this->out .= "&aacute;"; break;
                    case "c0": $this->out .= "&Agrave;"; break;
                    case "e0": $this->out .= "&agrave;"; break;
                    case "c9": $this->out .= "&Eacute;"; break;
                    case "e9": $this->out .= "&eacute;"; break;
                    case "c8": $this->out .= "&Egrave;"; break;
                    case "e8": $this->out .= "&egrave;"; break;
                    case "cd": $this->out .= "&Iacute;"; break;
                    case "ed": $this->out .= "&iacute;"; break;
                    case "cc": $this->out .= "&Igrave;"; break;
                    case "ec": $this->out .= "&igrave;"; break;
                    case "d3": $this->out .= "&Oacute;"; break;
                    case "f3": $this->out .= "&oacute;"; break;
                    case "d2": $this->out .= "&Ograve;"; break;
                    case "f2": $this->out .= "&ograve;"; break;
                    case "da": $this->out .= "&Uacute;"; break;
                    case "fa": $this->out .= "&uacute;"; break;
                    case "d9": $this->out .= "&Ugrave;"; break;
                    case "f9": $this->out .= "&ugrave;"; break;
                    case "80": $this->out .= "&#8364;"; break;
            	    case "d1": $this->out .= "&Ntilde;"; break;
                    case "f1": $this->out .= "&ntilde;"; break;
            	    case "c7": $this->out .= "&Ccedil;"; break;
                    case "e7": $this->out .= "&ccedil;"; break;
                    case "dc": $this->out .= "&Uuml;"; break;
                    case "fc": $this->out .= "&uuml;"; break;
                    case "bf": $this->out .= "&#191;"; break;
                    case "a1": $this->out .= "&#161;"; break;
                    case "b7": $this->out .= "&middot;"; break;
                    case "a9": $this->out .= "&copy;"; break;
                    case "ae": $this->out .= "&reg;"; break;
                    case "ba": $this->out .= "&ordm;"; break;
                    case "aa": $this->out .= "&ordf;"; break;
                    case "b2": $this->out .= "&sup2;"; break;
                    case "b3": $this->out .= "&sup3;"; break;
		}
	    }
	}
    }

    /*
	Output errors at end
    */
    function flushErrors() {
	if(count($this->err) > 0) {
	    if($this->wantXML) {
		$this->out .= "<errors>";
		while(list($num,$value) = each($this->err)) {
	    	    $this->out .= "<message>".$value."</message>";
		}
		$this->out .= "</errors>";
	    }
	}
    }

    function makeStyles() {
    	$this->outstyles = "<style type=\"text/css\"><!--\n";
	reset($this->styles);
	while(list($stylename, $styleattrib) = each($this->styles)) {
	    $this->outstyles .= ".".$stylename." { ".$styleattrib." }\n";
	}
	$this->outstyles .= "--></style>\n";
    }

    function parse() {

	$this->parserInit();

	$i = 0;
	$this->cw= false;	// flag if control word is currently parsed
	$this->cfirst = false;	// first control character ?
	$this->cword = "";	// last or current control word (depends on $this->cw

	$this->queue = "";	// plain text data found during parsing

	$this->flushHead();

	while($i < $this->rtf_len) {
	    switch($this->rtf[$i]) {
		case "{":
		    if($this->cw) {
			$this->flushControl();
			$this->cw = false;
			$this->cfirst = false;
		    } else
			$this->flushQueue();

		    $this->flushGroup("open");
		    break;
		case "}":
		    if($this->cw) {
			$this->flushControl();
			$this->cw = false;
			$this->cfirst = false;
		    } else
			$this->flushQueue();

		    $this->flushGroup("close");
		    break;
		case "\\":
		    if($this->cfirst) {	// catches '\\'
			$this->queue .= "\\"; // replaced single quotes
			$this->cfirst = false;
			$this->cw = false;
			break;
		    }
		    if($this->cw) {
			$this->flushControl();
		    } else
			$this->flushQueue();
		    $this->cw = true;
		    $this->cfirst = true;
		    $this->cword = "";
		    break;
		default:
		    if((ord($this->rtf[$i]) == 10) || (ord($this->rtf[$i]) == 13)) break; // eat line breaks
		    if($this->cw) {	// active control word ?
			/*
		    	    Watch the RE: there's an optional space at the end which IS part of
			    the control word (but actually its ignored by flushControl)
			*/
			if(ereg("^[a-zA-Z0-9-]?$", $this->rtf[$i])) { // continue parsing
			    $this->cword .= $this->rtf[$i];
			    $this->cfirst = false;
			} else {
			    /*
				Control word could be a 'control symbol', like \~ or \* etc.
			    */
			    $specialmatch = false;
			    if($this->cfirst) {
				if($this->rtf[$i] == '\'') { // expect to get some special chars
				    $this->flushQueue();
				    $this->flushSpecial($this->rtf[$i+1].$this->rtf[$i+2]);
				    $i+=2;
				    $specialmatch = true;
				    $this->cw = false;
				    $this->cfirst = false;
				    $this->cword = "";
				} else
				    if(ereg("^[{}\*]$", $this->rtf[$i])) {
					$this->flushComment("control symbols not yet handled");
					$specialmatch = true;
				    }
				$this->cfirst = false;
			    } else {
				if($this->rtf[$i] == ' ') {	// space delimtes control words, so just discard it and flush the controlword
				    $this->cw = false;
				    $this->flushControl();
				    break;
				}
			    }
			    if(!$specialmatch) {
				$this->flushControl();
				$this->cw = false;
				$this->cfirst = false;
				/*
				    The current character is a delimeter, but is NOT
				    part of the control word so we hop one step back
				    in the stream and process it again
				*/
				$i--;
			    }
			}
		    } else {
			// < and > need translation before putting into queue when XML or HTML is wanted
			if(($this->wantHTML) || ($this->wantXML)) {
			    switch($this->rtf[$i]) {
				case "<":
				    $this->queue .= "&lt;";
				    break;
				case ">":
				    $this->queue .= "&gt;";
				    break;
				default:
				    $this->queue .= $this->rtf[$i];
				    break;
			    }
			} else
			    $this->queue .= $this->rtf[$i];
		    }

	    }
	    $i++;
	}
	$this->flushQueue();
	$this->flushErrors();
	$this->flushBottom();

	if($this->wantHTML) {
	    $this->makeStyles();
	}
    }
}


?>