The R Project SVN R

Rev

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

Rev 7002 Rev 7133
Line 644... Line 644...
644 
#define N_MAX		1007
 644 
#define N_MAX		1007
645 
 
 645 
 
646 
 
 646 
 
647 
/* The Full Adobe Symbol Font */
 647 
/* The Full Adobe Symbol Font */
648 
 
 648 
 
649 
static struct {
 649 
static SymTab
650 
    char *name;
 - 
 
651 
    int code;
 - 
 
652 
}
 - 
 
653 
SymbolTable[] = {
 650 
SymbolTable[] = {
654 
    { "space",		 32 },
 651 
    { "space",		 32 },
655 
    { "exclam",		 33 },
 652 
    { "exclam",		 33 },
656 
    { "universal",	 34 },
 653 
    { "universal",	 34 },
657 
    { "numbersign",	 35 },
 654 
    { "numbersign",	 35 },
Line 683... Line 680...
683 
    { "equal",		 61 },
 680 
    { "equal",		 61 },
684 
    { "greater",	 62 },
 681 
    { "greater",	 62 },
685 
    { "question",	 63 },
 682 
    { "question",	 63 },
686 
    { "congruent",	 64 },
 683 
    { "congruent",	 64 },
687 
 
 684 
 
688 
    { "Alpha",		 65 },	 /* Upper Case Greek Characters */
 685 
    { "Alpha",/* 0101= */65 }, /* Upper Case Greek Characters */
689 
    { "Beta",		 66 },
 686 
    { "Beta",		 66 },
690 
    { "Chi",		 67 },
 687 
    { "Chi",		 67 },
691 
    { "Delta",		 68 },
 688 
    { "Delta",		 68 },
692 
    { "Epsilon",	 69 },
 689 
    { "Epsilon",	 69 },
693 
    { "Phi",		 70 },
 690 
    { "Phi",		 70 },
Line 708... Line 705...
708 
    { "Upsilon",	 85 },
 705 
    { "Upsilon",	 85 },
709 
    { "sigma1",		 86 },
 706 
    { "sigma1",		 86 },
710 
    { "Omega",		 87 },
 707 
    { "Omega",		 87 },
711 
    { "Xi",		 88 },
 708 
    { "Xi",		 88 },
712 
    { "Psi",		 89 },
 709 
    { "Psi",		 89 },
713 
    { "Zeta",		 90 },
 710 
    { "Zeta",/* 0132 = */90 },
714 
 
 711 
 
715 
    { "bracketleft",	 91 },	/* Miscellaneous Special Characters */
 712 
    { "bracketleft",	 91 },	/* Miscellaneous Special Characters */
716 
    { "therefore",	 92 },
 713 
    { "therefore",	 92 },
717 
    { "bracketright",	 93 },
 714 
    { "bracketright",	 93 },
718 
    { "perpendicular",	 94 },
 715 
    { "perpendicular",	 94 },
719 
    { "underscore",	 95 },
 716 
    { "underscore",	 95 },
720 
    { "radicalex",	 96 },
 717 
    { "radicalex",	 96 },
721 
 
 718 
 
722 
    { "alpha",		 97 },	/* Lower Case Greek Characters */
 719 
    { "alpha",/* 0141= */97 },	/* Lower Case Greek Characters */
723 
    { "beta",		 98 },
 720 
    { "beta",		 98 },
724 
    { "chi",		 99 },
 721 
    { "chi",		 99 },
725 
    { "delta",		100 },
 722 
    { "delta",		100 },
726 
    { "epsilon",	101 },
 723 
    { "epsilon",	101 },
727 
    { "phi",		102 },
 724 
    { "phi",		102 },
Line 742... Line 739...
742 
    { "upsilon",	117 },
 739 
    { "upsilon",	117 },
743 
    { "omega1",		118 },
 740 
    { "omega1",		118 },
744 
    { "omega",		119 },
 741 
    { "omega",		119 },
745 
    { "xi",		120 },
 742 
    { "xi",		120 },
746 
    { "psi",		121 },
 743 
    { "psi",		121 },
747 
    { "zeta",		122 },
 744 
    { "zeta",/* 0172= */122 },
748 
 
 745 
 
749 
    { "braceleft",	123 },	/* Miscellaneous Special Characters */
 746 
    { "braceleft",	123 },	/* Miscellaneous Special Characters */
750 
    { "bar",		124 },
 747 
    { "bar",		124 },
751 
    { "braceright",	125 },
 748 
    { "braceright",	125 },
752 
    { "similar",	126 },
 749 
    { "similar",	126 },
Line 787... Line 784...
787 
    { "Rfraktur",	194 },
 784 
    { "Rfraktur",	194 },
788 
    { "weierstrass",	195 },
 785 
    { "weierstrass",	195 },
789 
    { "circlemultiply", 196 },
 786 
    { "circlemultiply", 196 },
790 
    { "circleplus",	197 },
 787 
    { "circleplus",	197 },
791 
    { "emptyset",	198 },
 788 
    { "emptyset",	198 },
792 
    { "intersection",	199 },
 789 
    { "intersection",	199 },/* = 0307 */
793 
    { "union",		200 },
 790 
    { "union",		200 },/* = 0310 */
794 
    { "propersuperset", 201 },
 791 
    { "propersuperset", 201 },
795 
    { "reflexsuperset", 202 },
 792 
    { "reflexsuperset", 202 },
796 
    { "notsubset",	203 },
 793 
    { "notsubset",	203 },
797 
    { "propersubset",	204 },
 794 
    { "propersubset",	204 },
798 
    { "reflexsubset",	205 },
 795 
    { "reflexsubset",	205 },
Line 859... Line 856...
859 
static int TranslatedSymbol(SEXP expr)
 856 
static int TranslatedSymbol(SEXP expr)
860 
{
 857 
{
861 
    int code = SymbolCode(expr);
 858 
    int code = SymbolCode(expr);
862 
    if ((0101 <= code && code <= 0132)	||   /* Greek */
 859 
    if ((0101 <= code && code <= 0132)	||   /* Greek */
863 
	(0141 <= code && code <= 0172)	||   /* Greek */
 860 
	(0141 <= code && code <= 0172)	||   /* Greek */
864 
	code == 0241			||   /* Greek */
 861 
	code == 0241			||   /* Upsilon1 */
865 
	code == 0242			||   /* minute */
 862 
	code == 0242			||   /* minute */
866 
	code == 0245			||   /* infinity */
 863 
	code == 0245			||   /* infinity */
867 
	code == 0260			||   /* degree */
 864 
	code == 0260			||   /* degree */
868 
	code == 0262			||   /* second */
 865 
	code == 0262			||   /* second */
869 
	0)
 866 
	0)
Line 1231... Line 1228...
1231 
};
 1228 
};
1232 
 
 1229 
 
1233 
static int BinAtom(SEXP expr)
 1230 
static int BinAtom(SEXP expr)
1234 
{
 1231 
{
1235 
    int i;
 1232 
    int i;
1236
1233 
 
1237 
    for (i = 0; BinTable[i].code; i++)
 1234 
    for (i = 0; BinTable[i].code; i++)
1238 
	if (NameMatch(expr, BinTable[i].name))
 1235 
	if (NameMatch(expr, BinTable[i].name))
1239 
	    return BinTable[i].code;
 1236 
	    return BinTable[i].code;
1240 
    return 0;
 1237 
    return 0;
1241 
}
 1238 
}