$! GENMSGHDR.COM
$	open/read f 'p1
$	open/write h 'p2
$	type sys$input:/output=h
/* This file was automagically generated using GENMSGHDR.COM */
$	write h "/* ",p1," was used as input */"
$	write h ""
$	write h "#ifndef _HEADER_",f$element(0,".",p2)
$	write h "#define _HEADER_",f$element(0,".",p2)
$	type sys$input:/output=h

#ifdef __GNUC__
#include <gnu_hacks.h>
#else
#ifndef GLOBALREF
#define GLOBALREF(TYPE,NAME)		globalref TYPE NAME 
#endif
#ifndef GLOBALDEF
#define GLOBALDEF(TYPE,NAME,VALUE)	globaldef TYPE NAME = VALUE 
#endif
#ifndef GLOBALVALUEDEF
#define GLOBALVALUEDEF(TYPE,NAME,VALUE)	globalvalue TYPE NAME = VALUE 
#endif
#ifndef GLOBALVALUEREF
#define GLOBALVALUEREF(TYPE,NAME)	globalvalue TYPE NAME 
#endif
#endif /* __GNUC__ */

#ifdef DEBUG
#define ssh_debug(reason) lib$signal(FISH_M_DEBUG,1,(reason))
#else
#define ssh_debug(reason)
#endif
#define ssh_info(reason) lib$signal(FISH_M_INFO,1,(reason))
#ifdef DEBUG
#define __ssh_dmsg(prefix,id) do { lib$signal(prefix##id,__FILE__,__LINE__); } while (0)
#else
#define __ssh_dmsg(prefix,id)
#endif
#define __ssh_msg(prefix,id) do { __ssh_dmsg(prefix,DEBUGLINE); lib$signal(prefix##id); sys$setef(done_ef); } while (0)
#define __ssh_msg1(prefix,id,v1) do { __ssh_dmsg(prefix,DEBUGLINE); lib$signal(prefix##id, 1, (v1)); sys$setef(done_ef); } while (0)
#define __ssh_msg2(prefix,id,v1,v2) do { __ssh_dmsg(prefix,DEBUGLINE); lib$signal(prefix##id, 2, (v1), (v2)); sys$setef(done_ef); } while (0)
#define __ssh_msg3(prefix,id,v1,v2,v3) do { __ssh_dmsg(prefix,DEBUGLINE); lib$signal(prefix##id, 3, (v1), (v2), (v3)); sys$setef(done_ef); } while (0)

#define ssh_success(id) __ssh_msg(FISH_M_,id)
#define ssh_success1(id,v1) __ssh_msg1(FISH_M_,id,(v1))
#define ssh_success2(id,v1,v2) __ssh_msg2(FISH_M_,id,(v1),(v2))
#define ssh_success3(id,v1,v2,v3) __ssh_msg3(FISH_M_,id,(v1),(v2),(v3))
#define ssh_informational(id) __ssh_msg(FISH_M_,id)
#define ssh_informational1(id,v1) __ssh_msg1(FISH_M_,id,(v1))
#define ssh_informational2(id,v1,v2) __ssh_msg2(FISH_M_,id,(v1),(v2))
#define ssh_informational3(id,v1,v2,v3) __ssh_msg3(FISH_M_,id,(v1),(v2),(v3))
#define ssh_warning(id) __ssh_msg(FISH_M_,id)
#define ssh_warning1(id,v1) __ssh_msg1(FISH_M_,id,(v1))
#define ssh_warning2(id,v1,v2) __ssh_msg2(FISH_M_,id,(v1),(v2))
#define ssh_warning3(id,v1,v2,v3) __ssh_msg3(FISH_M_,id,(v1),(v2),(v3))
#define ssh_error(id) __ssh_msg(FISH_M_,id)
#define ssh_error1(id,v1) __ssh_msg1(FISH_M_,id,(v1))
#define ssh_error2(id,v1,v2) __ssh_msg2(FISH_M_,id,(v1),(v2))
#define ssh_error3(id,v1,v2,v3) __ssh_msg3(FISH_M_,id,(v1),(v2),(v3))
#define ssh_fatal(id) __ssh_msg(FISH_M_,id)
#define ssh_fatal1(id,v1) __ssh_msg1(FISH_M_,id,(v1))
#define ssh_fatal2(id,v1,v2) __ssh_msg2(FISH_M_,id,(v1),(v2))
#define ssh_fatal3(id,v1,v2,v3) __ssh_msg3(FISH_M_,id,(v1),(v2),(v3))

#pragma nostandard
$
$	severity = ""
$	line = ""
$	skipline := NO
$ loop_f: 
$	read/end=loop_f_end/err=loop_f_end f line
$	if line - "<" .eqs. line then line = f$edit(line,"UNCOMMENT")
$	line = f$edit(line,"TRIM,COMPRESS,UPCASE")
$	if skipline
$	then
$	    skipline := NO
$	    if f$extract(f$length(line)-1,1,line) .eqs. "-" then -
	       skipline := YES
$	    goto loop_f
$	endif
$	if f$extract(f$length(line)-1,1,line) .eqs. "-"
$	then
$	    skipline := YES
$	    line = f$edit(f$extract(0,f$length(line)-1,line),"TRIM")
$	endif
$	if line .eqs. "" then goto loop_f
$
$	v = f$element(0," ",line)
$	if v .eqs. ".FACILITY"
$	then
$	    f = f$element(0,",",f$element(1," ",line))+"_"
$	    p = f$locate("/PREFIX",line)
$	    if p .nes. f$length(line)
$	    then
$		f = f$extract(p,f$length(line)-p,line)
$		f = f$element(0," ",f$edit(f$element(1,"=",f),"TRIM"))
$	    endif
$	    goto loop_f
$	endif
$	if v .eqs. ".SEVERITY"
$	then
$	    severity = f$element(1," ",line)
$	endif
$
$	if f$extract(0,1,v) .eqs. "." then goto loop_f
$
$	ident = f$element(0," ",line)
$	write h "GLOBALVALUEREF(int,",f,ident,");"
$	write h "#ifdef __GNUC__"
$	write h "#define ",f,ident," ((int) ",f,ident,")"
$	write h "#endif"
$	fao = ""
$	args1 = ""
$	args2 = ""
$	p = f$locate("/FAO=",line)+5
$ loop_fao:
$	if p .lt. f$length(line)
$	then
$	    d = f$extract(p,1,line)
$	    p = p + 1
$	    if f$type(d) .eqs. "INTEGER"
$	    then
$		fao = fao + d
$		goto loop_fao
$	    endif
$	endif
$	if fao .nes. ""
$	then
$	    p = f$integer(fao)
$	    argi = 0
$ loop_fao2:
$	    if argi .lt. p
$	    then
$		args1 = args1 + ",v"+f$string(argi)
$		args2 = args2 + ",(v"+f$string(argi)+")"
$		argi = argi + 1
$		goto loop_fao2
$	    endif
$	    args1 = args1 - ","
$	endif
$
$	if line - "!NOGEN" .eqs. line then -
	   write h "#define ssh_",f$extract(0,1,severity),"_",-
	   f$edit(ident,"lowercase"),"(",args1,") ssh_",-
	   f$edit(severity,"lowercase"),fao,"(",ident,args2,")"
$	goto loop_f
$ loop_f_end:
$	type sys$input:/output=h
#pragma standard

void ssh_debugf(char *format, ...);
void ssh_infof(char *format, ...);
#endif
$	close h
$	close f