;	####	RTF2XML version 0.9
;	####	Copyright (C) 1997-2000 Rick Geimer

;	####	This program is free software; you can redistribute it and/or
;	####	modify it under the terms of the GNU General Public Licence
;	####	as published by the Free Software Foundation; either version
;	####	2 of the licence, or (at your option) any later version.

;	####	This program is distributed in the hope that it will be useful,
;	####	but WITHOUT ANY WARRANTY; without even the implied warranty of
;	####	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See 
;	####	the GNU General Public Licence for more details.

;	####	You should have received a copy of the GNU General Public Licence
;	####	along with this program; if not, write to the Free Software
;	####	Foundation, Inc., 675 Mass Ave, Cambridge, MA, 02139, USA.
;	####	The above licence is also available online at "http://www.gnu.org/".

;	####	Rick Geimer
;	####	rtf2xml@xmeta.com
;	####	2401 Huran Drive
;	####	San Jose, CA, 95122
;	####	USA

macro error-log
	(arg the-error)
is
	output "<!-- %@(the-error) -->"
	put #error "<!-- %@(the-error) -->"
macro-end


macro group-saves is
	save format-stack
	save font-num
	save style-num
	save charset-num
	save uni-bytes
	save escape-ansichars
	save escape-unicode
	save fig-prev-type
	save fig-width
	save fig-height
	save fig-width-goal
	save fig-height-goal
	save fig-scale-x
	save fig-scale-y
	save fig-pos-x
	save fig-pos-y
	save atn-author
	save in-textbox
macro-end

macro doc-saves is
	save header
	save style-name-stack
	save font-name-stack
	save  font-charset-stack
	save char-style-num
	save cell-counter
	save para-cnt
	save fig-count
	save in-para
	save revision-authors
	group-saves
macro-end

macro doc-inits is
	set style-num to 0
	set char-style-num to 0
	set cell-counter to 0
	set fig-count to 0
	clear format-stack
	clear style-name-stack
	clear font-name-stack
macro-end

macro set-debug-stream (arg string) is
;	set debug-stream to "%@(string)"
macro-end

macro show-current-elements is
;	output "<!-- "
;	repeat over current elements as this-element
;		output name of current element this-element || " "
;	again
;	output " -->"
macro-end
	
macro para-parents is
	( RTFFILE or FLDRSLT or GROUP or FOOTNOTE or ANNOTATION or FOOTER or HEADER or FOOTERR or HEADERR or FOOTERL or HEADERL or FOOTERF or HEADERF )
macro-end
	
macro no-para-or-string-elements is
	( FONTTBL or STYLESHEET or DEST or FLDINST or INFO or TEMPLATE or USERPROPS )
macro-end