; $Header: /usr/local/cvs/www.xmeta.net/omlette/WebContent/doug/xomc.xin,v 1.1 2006/08/17 14:25:34 geimer Exp $
;
; File Name:
; 	xomc.xin
; Syntax:
;	INCLUDE "xomc.xin"
;
; Description:
;	This file contains some shared functions for use by both the Omnimark
;	pre and post-processor.
;
; $Author: geimer $
;
; $Log: xomc.xin,v $
; $Header: $
;
; File Name:
; 	xomc.xin
; Syntax:
;	INCLUDE "xomc.xin"
;
; Description:
;	This file contains some shared functions for use by both the Omnimark
;	pre and post-processor.
;
; $Author: $
;
; Revision 1.1  2006/08/17 14:25:34  geimer
; $Header: $
;
; File Name:
; 	xomc.xin
; Syntax:
;	INCLUDE "xomc.xin"
;
; Description:
;	This file contains some shared functions for use by both the Omnimark
;	pre and post-processor.
;
; $Author: $
;
; Moved omlette from xmeta.com to xmeta.net.
; $Header: $
;
; File Name:
; 	xomc.xin
; Syntax:
;	INCLUDE "xomc.xin"
;
; Description:
;	This file contains some shared functions for use by both the Omnimark
;	pre and post-processor.
;
; $Author: $
;
;
;
;-------------------------------------------------------------------------------
GLOBAL COUNTER gnExitVal SIZE 1 INITIAL { 0 }
DEFINE								; @METAGS OutputCompilerErrorMessage
	FUNCTION OutputCompilerErrorMessage
	(
		VALUE STREAM sFileName,
		VALUE STREAM sLineNbr,
		VALUE STREAM sErrorMsg,
		VALUE STREAM sErrorNbr OPTIONAL
	)
	;---------------------------------------------------------------------------
	; Description:
	;	this function outputs a formatted compiler error message as follows:
	;		filename(line_number):Error error_number:error_message
	;---------------------------------------------------------------------------
	AS
		; local variable declarations

		; function body
		OUTPUT sFileName ||
			"(" || sLineNbr || "): Error"

		OUTPUT "%s_" || sErrorNbr WHEN sErrorNbr IS SPECIFIED

		OUTPUT ": " || sErrorMsg || "%n"

		SET gnExitVal TO 1
	;---------------------------------------------------------------------------
	; end of function OutputCompilerErrorMessage()
	;---------------------------------------------------------------------------
DEFINE								; @METAGS OutputCompilerWarningMessage
	FUNCTION OutputCompilerWarningMessage
	(
		VALUE STREAM sFileName,
		VALUE STREAM sLineNbr,
		VALUE STREAM sWarningMsg,
		VALUE STREAM sWarningNbr OPTIONAL
	)
	;---------------------------------------------------------------------------
	; Description:
	;	this function outputs a formatted compiler warning message as follows:
	;		filename(line_number):Warning warning_number:warning_message
	;---------------------------------------------------------------------------
	AS
		; local variable declarations

		; function body
		OUTPUT sFileName ||
			"(" || sLineNbr || "): Warning"

		OUTPUT "%s_" || sWarningNbr WHEN sWarningNbr IS SPECIFIED

		OUTPUT ": " || sWarningMsg || "%n"
	;---------------------------------------------------------------------------
	; end of function OutputCompilerWarningMessage()
	;---------------------------------------------------------------------------