cafont_sgr.c

<B>Digital的Unix操作系统VAX 4.2源码</B>

    {
    oprintf("SGR BLACK \n");
    }
#endif
}



/*************************************************************************
    Select Graphic Rendition Red Dump Utility function
************************************************************************/

VOID pr_red()

{
#ifdef DUMP
    {
    oprintf("SGR RED \n");
    }
#endif
}




/*************************************************************************
    Select Graphic Rendition Green Dump Utility function
************************************************************************/

VOID pr_green()

{
#ifdef DUMP
    {
    oprintf("SGR GREEN \n");
    }
#endif
}



/*************************************************************************
    Select Graphic Rendition Yellow Dump Utility function
************************************************************************/

VOID pr_yellow()

{
#ifdef DUMP
    {
    oprintf("SGR YELLOW \n");
    }
#endif
}



/*************************************************************************
    Select Graphic Rendition Blue Dump Utility function
************************************************************************/

VOID pr_blue()

{
#ifdef DUMP
    {
    oprintf("SGR  BLUE\n");
    }
#endif
}



/*************************************************************************
    Select Graphic Rendition Magenta Dump Utility function
************************************************************************/

VOID pr_magenta()

{
#ifdef DUMP
    {
    oprintf("SGR MAGENTA \n");
    }
#endif
}



/*************************************************************************
    Select Graphic Rendition Cyan Dump Utility function
************************************************************************/

VOID pr_cyan()

{
#ifdef DUMP
    {
    oprintf("SGR CYAN \n");
    }
#endif
}



/*************************************************************************
    Select Graphic Rendition No Printing Dump Utility function
************************************************************************/

VOID pr_no()

{
#ifdef DUMP
    {
    oprintf("SGR NO PRINT \n");
    }
#endif
}



/*************************************************************************
    Select Graphic Rendition Select Default Color Dump Utility function
************************************************************************/

VOID pr_default()

{
#ifdef DUMP
    {
    oprintf("SGR DEFAULT COLOR \n");
    }
#endif
}



VOID pr_sgr()

{
#ifdef DUMP
    {
    oprintf("SGR \n");
    pprint();		/* print parameter list */
    }
#endif

    /*  Let the split routine call the appropriate action
     *  routine for each of the parameters.
     */
    cp_split(ast_sgr_srch);

    invalidate_font ();
}



/*************************************************************************
    DEC Private Select Graphic Rendition Superscript function
************************************************************************/

VOID dec_super()

{

#ifdef DUMP
{
    oprintf("DEC SUPER \n");
}
#endif

    /* If Superscript is not on, then test if subscript is on  */
    if ((xl_st .requested_attributes & SUPERSCR) == 0)
	{
	    /* Set to 100% to get correct spacing on plu */

	    do_gsm(HUNDRED_PERCENT, HUNDRED_PERCENT);

	    if (xl_st .requested_attributes & SUBSCR) 
	    /* subscript is on, do plu */
	    {
		pr_plu();
	    }

	pr_plu();
	do_gsm(FIFTY_PERCENT, FIFTY_PERCENT);
	}
	
/* else were in superscript already, so do nothing */


/*
 *  Specifically turn off Subscript, as cannot have both together
 *  and set Superscript .
 */

    xl_st .requested_attributes &= NO_SUBSCR;
    xl_st .requested_attributes |= SUPERSCR;
}






/*************************************************************************
    DEC Private Select Graphic Rendition Subscript Dump Utility function
************************************************************************/

VOID dec_sub()

{

#ifdef DUMP
    {
    oprintf("DEC SUB \n");
    }
#endif
    /* If were in superscript mode, do a PLD */
    if (xl_st .requested_attributes & SUPERSCR) 
	{
	do_gsm(HUNDRED_PERCENT, HUNDRED_PERCENT);
	pr_pld();
	}

    /* If sub was not already set, do GSM */
    if ((xl_st .requested_attributes & SUBSCR) == 0)
	{
	do_gsm(HUNDRED_PERCENT, HUNDRED_PERCENT);
	pr_pld();
	do_gsm(FIFTY_PERCENT, FIFTY_PERCENT);
	}

/* else were in subscript already, so do nothing */


/*
 *  Specifically turn off Superscript, as cannot have both together.
 *  and set Subscript .
 */

    xl_st .requested_attributes &= NO_SUPERSCR;
    xl_st .requested_attributes |= SUBSCR;
}


/*************************************************************************
    DEC Private Select Graphic Rendition Super/Sub OFF function
************************************************************************/

VOID dec_super_sub_off()

{

#ifdef DUMP
    {
    oprintf("DEC SUPER/SUB OFF\n");
    }
#endif
    /* if either  super or subscript is set, do GSM of 100 */

    if (xl_st .requested_attributes & SUP_OR_SUB)
	    {
	    do_gsm(HUNDRED_PERCENT, HUNDRED_PERCENT);

	    /* if was superscript, do a pld */
	    if 	(xl_st .requested_attributes & SUPERSCR) 
		pr_pld();

	    /* if was subscript, do a plu */
	    if 	(xl_st .requested_attributes & SUBSCR) 
		pr_plu();
	    }

/*
 *  Turn off both attributes
 */	

    xl_st .requested_attributes &= NO_SUPERSCR;
    xl_st .requested_attributes &= NO_SUBSCR;
}





/*************************************************************************
    DEC Private Select Graphic Rendition Overline function
************************************************************************/

VOID dec_over()

{
#ifdef DUMP
{
    oprintf("DEC OVER \n");
}
#endif
    xl_st .requested_attributes |= OVERLINE;
}



/*************************************************************************
    DEC Private Select Graphic Rendition Overline Off function
************************************************************************/

VOID dec_over_off()

{
#ifdef DUMP
    {
    oprintf("DEC OVER OFF \n");
    }
#endif
    xl_st .requested_attributes &= NO_OVERLINE;
}


/*************************************************************************
    DEC Private Select Graphic Rendition Transparency Dump Utility function
************************************************************************/

VOID dec_trans()

{
#ifdef DUMP
    {
    oprintf("DEC TRANS \n");
    }
#endif
}


/*************************************************************************
    DEC Private Select Graphic Rendition Transparency Off Dump Utility function
************************************************************************/

VOID dec_trans_off()

{
#ifdef DUMP
    {
    oprintf("DEC TRANS OFF \n");
    }
#endif
}


/*************************************************************************
    Select Graphic Rendition Off function
************************************************************************/

VOID pr_sgr_off()

{
#ifdef DUMP
{
    oprintf("SGROFF \n");
    pprint();		/* print parameter list */
}
#endif
    dec_super_sub_off();
    dec_over_off();
    pr_bold_off();	
    pr_italics_off();
    pr_under_off();
    pr_strike_off();
    xl_st .requested_attributes = FALSE;
}




/*************************************************************************
    DEC Private Select Graphic Rendition Off function
************************************************************************/

VOID dec_sgr_off()

{
#ifdef DUMP
{
    oprintf("DECSGR OFF \n");
    pprint();		/* print parameter list */
}
#endif
    dec_super_sub_off();
    dec_over_off();

    xl_st .requested_attributes &= ~ALL_PR_ATTRS;
}