/*
 *****************************************************************************
 *                                                                           *
 * Copyright 1978 Compaq Computer Corporation                                *
 *                                                                           *
 * Compaq and the Compaq logo Registered in U.S. Patent and Trademark Office.*
 *                                                                           *
 * Confidential computer software. Valid license from Compaq required for    *
 * possession, use or copying. Consistent with FAR 12.211 and 12.212,        *
 * Commercial Computer Software, Computer Software Documentation, and        *
 * Technical Data for Commercial Items are licensed to the U.S. Government   *
 * under vendors standard commercial license.                                *
 *                                                                           *
 *****************************************************************************

facility:

	SDL (Structure Definition Language)


author:
	Paul A. Calato

*/

/*			C H A N G E    L O G

      Date	! Name	! Description
________________!_______!______________________________________________________
   		!  	! 					
    23-Nov-1985	|  pc	| Adding copyright header and change log.
________________!_______!______________________________________________________
     8-Dec-2000	|  LJK	| EV1-65  Change copyright notice to Compaq format.
________________|_______|______________________________________________________
*/


/****************************************************************/
/*								*/
/* DO_MODULE processes a module node in the tree		*/
/*								*/
/****************************************************************/


%include 'sdl$library:sdlnodef.in';	    /* definition of the node structure */
 
do_module: procedure (cur_node, level);
					    /********************/
					    /*			*/
					    /* do_module	*/
					    /*			*/
					    /********************/

/* declare parameters */
declare
    cur_node	pointer,		    /* pointer to the current node  */
    level fixed binary(31),		    /* level in the aggregate	    */
    buf char(1024) varying,		    /* output buffer		    */
    global_db fixed binary(7) external,	    /* for debugging		    */
    local_db fixed binary(7) initial(1);    /* for debugging		    */

/* decalre external routines */
DCL OUTPUT_BUF ENTRY (
	character(1024) VARYING );

DCL ADD_COMMENTS ENTRY (
	pointer,
	character(1024) VARYING );

DCL DO_CHILDREN ENTRY (
	pointer,
	fixed binary(31) );

DCL TABS ENTRY (
	pointer,
	fixed binary(31),
	bit(1) ) returns(char(132) var) ;

DCL TRIM ENTRY (
	fixed binary(31))
	RETURNS (character(32) VARYING );




	if( global_db = 1 ) then
	if ( local_db = 1 ) then
	put skip list ('in do_module at level ',level);

/*
 * Put out the module name as a comment 
 */
	call output_buf (' ');
	buf= ' !*** MODULE '||cur_node->nod$t_name;
	if cur_node->nod$t_naked ^= '' then
		buf=buf||' IDENT '||cur_node->nod$t_naked;
	buf=buf||' ***';
	call output_buf (buf);  /* put out the buffer	*/
	buf = ' ';
        call add_comments(cur_node,buf);
	call output_buf (buf);  /* put out the comment*/
	call output_buf (' ');  /* put out a blank line */



/* now process children */
    call do_children(cur_node,level);


	if( global_db = 1 ) then
	if ( local_db = 1 ) then
	put skip list ('end of do_module at level ',level);



end do_module;