The R Project SVN R

Rev

Rev 45962 | Rev 45971 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 45962 Rev 45967
Line 801... Line 801...
801 
    { "propersubset",	204 },
 801 
    { "propersubset",	204 },
802 
    { "reflexsubset",	205 },
 802 
    { "reflexsubset",	205 },
803 
    { "element",	206 },
 803 
    { "element",	206 },
804 
    { "notelement",	207 },
 804 
    { "notelement",	207 },
805 
    { "angle",		208 },
 805 
    { "angle",		208 },
806 
    { "gradient",	209 },
 806 
    { "nabla",		209 },/* = 0321, Adobe name 'gradient' */
807 
    { "registerserif",	210 },
 807 
    { "registerserif",	210 },
808 
    { "copyrightserif", 211 },
 808 
    { "copyrightserif", 211 },
809 
    { "trademarkserif", 212 },
 809 
    { "trademarkserif", 212 },
810 
    { "product",	213 },
 810 
    { "product",	213 },
811 
    { "radical",	214 },
 811 
    { "radical",	214 },
Line 862... Line 862...
862 
 
 862 
 
863 
/* this is the one really used: */
 863 
/* this is the one really used: */
864 
static int TranslatedSymbol(SEXP expr)
 864 
static int TranslatedSymbol(SEXP expr)
865 
{
 865 
{
866 
    int code = SymbolCode(expr);
 866 
    int code = SymbolCode(expr);
867 
    if ((0101 <= code && code <= 0132)	||   /* Greek */
 867 
    if ((0101 <= code && code <= 0132)	||   /* l/c Greek */
868 
	(0141 <= code && code <= 0172)	||   /* Greek */
 868 
	(0141 <= code && code <= 0172)	||   /* u/c Greek */
- 
 
 869 
	code == 0300			||   /* aleph */
869 
	code == 0241			||   /* Upsilon1 */
 870 
	code == 0241			||   /* Upsilon1 */
870 
	code == 0242			||   /* minute */
 871 
	code == 0242			||   /* minute */
871 
	code == 0245			||   /* infinity */
 872 
	code == 0245			||   /* infinity */
872 
	code == 0260			||   /* degree */
 873 
	code == 0260			||   /* degree */
873 
	code == 0262			||   /* second */
 874 
	code == 0262			||   /* second */
874 
	code == 0266                    ||   /* partialdiff */
 875 
	code == 0266                    ||   /* partialdiff */
- 
 
 876 
	code == 0321                    ||   /* nabla */
875 
	0)
 877 
	0)
876 
	return code;
 878 
	return code;
877 
    else
 879 
    else
878 
	return 0;
 880 
	return 0;
879 
}
 881 
}