/*Copyright (C) 1992, 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* aplsi APL2 V1.0.0 ***************************************************
* Called from aplwksp to do )SI.                                       *
***********************************************************************/
#define INCLUDES APLCB+STDIO+TREE
#include "includes.h"
void aplsi(rite,cp,cpend,nlsw)
Aplcb rite;		/* Aplcb for command text.				*/
char *cp;			/* Pointer to char after right parenthesis.	*/
char *cpend;		/* Pointer to end of command text.			*/
int nlsw;			/* 1=)SINL, 0=)SI.						*/
{
	Aplgrpsb; Aplnewl;
	extern Treelist treehdr;
	Treelist hdr;
	static char *star = "*", *zip = "";
	char *ch;

	for (hdr = treehdr; hdr->treenext != NULL; hdr = hdr->treenext) {
		ch = (hdr->treeflag & SUSPNDED) ? star : zip;
		printf("%s[%d] %s\n", hdr->avlfname, hdr->avlstmt,ch);
		if (nlsw)
			aplgrpsb("",4,hdr->avlhdr); /* print localized names */
	}
	aplnewl(); /* Start a new output line. */
}