primage

 

	int i,j,k;
	FILE *fopen();

 

	if((ibufs = NO_INPUT_BUFFERS()) <= 0) {
		fprintf(stdout,"primage: no input buffers\n");
		return(1);
	}
	if((obufs = NO_OUTPUT_BUFFERS()) > ibufs) {
		fprintf(stdout,"primage: more output than input buffers\n");
		return(2);
	}
	if(strcmp(file_name,"stdout") == 0) {
		fp = stdout;
		displayFlag = 1;
	}
	else if(strcmp(file_name,"stderr") == 0) {
		fp = stderr;
		displayFlag = 1;
	}
	else if((fp = fopen(file_name,"w")) == NULL) {
		fprintf(stdout,"primage: can't open output file '%s'\n",
			file_name);
		return(3);
	}
	fprintf(fp,"%d %d\n",width,height);

 

        if(displayFlag && MIN_AVAIL() > 0) {
                fprintf(fp,"\n");
                for(j=0; j<(ibufs-2); j++)
                        fprintf(fp,"%-6s","");
                fprintf(fp,"Output From Prfile '%s'\n",block_P->name);
                for(j=0; j0; i--) {
                for(j=0; j= width) {
				fprintf(fp,"\n");
				numberColumnsPrinted = 0;
			}
                }
        }
	
	/* This mode empties all input buffers */
	for(j=0; j
    

 

	if(fp != stdout && fp != stderr)
		fclose(fp);

/*  Capsim (r) Text Mode Kernel (TMK) Star Library (Blocks)
    Copyright (C) 1989-2002  XCAD Corporation 

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

    This library 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
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

    http://capsimtmk.sourceforge.net
    XCAD Corporation
    Raleigh, North Carolina */

 

/**********************************************************************
			primage()
***********************************************************************

primage


Stores image in a file.


Programmer:  Sasan Ardalan 

*/