/*
 *
 * Copyright (c) 1984, 1985 Xerox Corp.
 *
 * HISTORY
 * 01-Dec-85  lee at Xerox, WRC
 *	Modified to pass lint.
 *
 *	28-apr-85  ed flint	add conditional code for vax11-c (vms)
 *				now use -s for point size and added -o for
 *				output file
 */

#ifdef vax11c
#include stdio
#include ctype
#else
# include <stdio.h>
# include <ctype.h>
# include <sys/file.h>
# include <strings.h>
#endif

# include "iptokens.h"
# include "literal.h"
# include "operator.h"

/* frame buffer numbers */
# define    F_backgroundfont	1
# define    F_font		2
# define    F_transform		3

# define    INCH		720
# define    Top_margin		(10 * INCH)
# define    Left_margin		(INCH * 2)
# define    Left_table		(Left_margin + INCH/2)

main(argc, argv)

int  argc;
char *argv[];

{
    char u_fontname[256];
    char buffer[256];
    char *outputname= 0;
    int ipressfile;
    int point_size = 10;
    int char_spacing;
    int line_spacing;
    int x_pos;
    int y_pos;
    int i;
    int num;
    int prefix = 0;

    if (argc < 2)
    {
	fprintf(stderr, "charset: which font?\n");
	exit(1);
    }

    for ( i= 1 ; i <= argc ; i++ )
    {
	if ( argv[i][0] == '-' )
	    switch(argv[i][1])
	    {
		case ('p'):
		case ('P'):
		    (void) sscanf(&argv[i][2], "%o", &prefix);
		    break;
		case ('o'):
		case ('O'):
		    if ( strlen(argv[i]) > 2 )
			outputname= &(argv[i][2]);
		    else
			outputname= argv[++i];
		    break;
		case ('s'):
		case ('S'):
		    point_size= atoi(&(argv[i][2]));
		    break;
	    }
	else
	    break;
    }

    (void) strcpy(u_fontname, "Xerox/XC1-1-1/");
    (void) strcat(u_fontname, argv[i]);

    /* set spacing parameters */
    line_spacing = (point_size + 2) * 15;
    char_spacing = point_size * 30;

    if ( outputname != 0 )
    {
#ifdef vax11c
	if ( (ipressfile= creat(outputname, 0, "rfm=udf")) == -1 )
#else
	if ( (ipressfile= open(outputname, O_WRONLY | O_CREAT, 0666)) == -1 )
#endif
	{
	    perror(outputname);
	    exit(1);
	}
    }
    else		/* default to stdout */
    {
	ipressfile= 1;
    }

    ip_select(ipressfile);

    AppendOp(OP_beginBlock);
    AppendOp(OP_beginBody);

    /* set up the two fonts: the background and the font in question */
    SetupFont("Xerox/XC1-1-1/Classic", 100., F_backgroundfont);
    SetupFont(u_fontname, point_size * 10., F_font);

    /* set frame[2] to a scaling transform that uses 1/10 point */
    /* co-ordiate system */
    AppendRational(353L, 10000000);
    AppendOp(OP_scale);
    AppendInteger((long) F_transform);
    AppendOp(OP_fset);

    AppendOp(OP_endBody);	/* end preamble */

    AppendOp(OP_beginBody);	/* page 1 (and only) */

    Fget(F_transform);
    AppendOp(OP_concatt);
    Setfont(F_backgroundfont);
    Setxy((double)Left_margin, (double)Top_margin);
    (void) sprintf(buffer, "Xerox/XC1-1-1/%s at %d point, character set %o (octal)",
	argv[i], point_size, prefix);
    ShowString(buffer);

    buffer[0] = '0';
    buffer[1] = '\0';
    for (x_pos = Left_table, i = 0; i < 8;
	 x_pos += char_spacing, i++)
    {
	Setxy((double)x_pos, (double)(Top_margin - 2 * line_spacing));
	ShowString(buffer);
	buffer[0] += 1;
    }

    for (y_pos = Top_margin - 3 * line_spacing, num = 000; num < 0377;
	 y_pos -= line_spacing)
    {
	Setxy((double)Left_margin, (double)y_pos);
	(void) sprintf(buffer, "%03o", num);
	ShowString(buffer);
	Setfont(F_font);

	for (x_pos = Left_table, i = 0; i < 8;
	     x_pos += char_spacing, i++, num++)
	{
	    Setxy((double)x_pos, (double)y_pos);
	    if (num != 0377)
	    {
		if (prefix > 0)
		{
		    (void) sprintf(buffer, "\377%c%c", prefix, num);
		    AppendString(buffer);		
		}
		else
		{
		    buffer[0] = num;
		    buffer[1] = '\0';
		    AppendString(buffer);
		}
		AppendOp(OP_show);
	    }
	}
	Setfont(F_backgroundfont);
    }

    /* wrap it up */
    AppendOp(OP_endBody);
    AppendOp(OP_endBlock);

    ip_flush();
}