The R Project SVN R

Rev

Rev 79817 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 79817 Rev 83796
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Language for Statistical Data Analysis
 2 
 *  R : A Computer Language for Statistical Data Analysis
3 
 *  Copyright (C) 1995, 1996, 1997 Robert Gentleman and Ross Ihaka
 3 
 *  Copyright (C) 1995, 1996, 1997 Robert Gentleman and Ross Ihaka
4 
 *  Copyright (C) 1998-2015 The R Core Team
 4 
 *  Copyright (C) 1998-2022 The R Core Team
5 
 *
 5 
 *
6 
 *  This source code module:
 6 
 *  This source code module:
7 
 *  Copyright (C) 1997, 1998 Paul Murrell and Ross Ihaka
 7 
 *  Copyright (C) 1997, 1998 Paul Murrell and Ross Ihaka
8 
 *  Copyright (C) 1998-2015 The R Core Team
 8 
 *  Copyright (C) 1998-2015 The R Core Team
9 
 *
 9 
 *
Line 825... Line 825...
825 
	code == 0242			||   /* minute */
 825 
	code == 0242			||   /* minute */
826 
	code == 0245			||   /* infinity */
 826 
	code == 0245			||   /* infinity */
827 
	code == 0260			||   /* degree */
 827 
	code == 0260			||   /* degree */
828 
	code == 0262			||   /* second */
 828 
	code == 0262			||   /* second */
829 
	code == 0266                    ||   /* partialdiff */
 829 
	code == 0266                    ||   /* partialdiff */
830 
	code == 0321                    ||   /* nabla */
 830 
	code == 0321                         /* nabla */
831 
	0)
 831 
	)
832 
	return code;
 832 
	return code;
833 
    else // not translated
 833 
    else // not translated
834 
	return 0;
 834 
	return 0;
835 
}
 835 
}
836 
 
 836 
 
Line 1668... Line 1668...
1668 
static int AccentAtom(SEXP expr)
 1668 
static int AccentAtom(SEXP expr)
1669 
{
 1669 
{
1670 
    return NameAtom(expr) && (AccentCode(expr) != 0);
 1670 
    return NameAtom(expr) && (AccentCode(expr) != 0);
1671 
}
 1671 
}
1672 
 
 1672 
 
1673 
static void NORET InvalidAccent(SEXP expr)
 1673 
NORET static void InvalidAccent(SEXP expr)
1674 
{
 1674 
{
1675 
    errorcall(expr, _("invalid accent"));
 1675 
    errorcall(expr, _("invalid accent"));
1676 
}
 1676 
}
1677 
 
 1677 
 
1678 
static BBOX RenderAccent(SEXP expr, int draw, mathContext *mc,
 1678 
static BBOX RenderAccent(SEXP expr, int draw, mathContext *mc,