Mercurial > hg > xemacs-beta

comparison src/objects-msw.c @ 239:41f2f0e326e9 r20-5b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b18
author cvs
date Mon, 13 Aug 2007 10:15:48 +0200
parents 557eaa0339bf
children f220cc83d72e
comparison
equal deleted inserted replaced
238:b5f2e56b938d 239:41f2f0e326e9
722 static int 722 static int
723 hexval (char c) 723 hexval (char c)
724 { 724 {
725 if (c >= 'a' && c <= 'f') 725 if (c >= 'a' && c <= 'f')
726 return c-'a' + 10; 726 return c-'a' + 10;
727 return c-'0'; 727 else if (c >= 'A' && c <= 'Z')
728 return c-'A' + 10;
729 else
730 return c-'0';
728 } 731 }
729 732
730 733
731 static COLORREF 734 static COLORREF
732 mswindows_string_to_color(CONST char *name) 735 mswindows_string_to_color(CONST char *name)
742 return (-1); 745 return (-1);
743 for (i=1; i<7; i++) 746 for (i=1; i<7; i++)
744 { 747 {
745 if (!isxdigit(name[i])) 748 if (!isxdigit(name[i]))
746 return(-1); 749 return(-1);
747 name[i] = tolower(name[i]);
748 } 750 }
749 r = hexval(name[1]) * 16 + hexval(name[2]); 751 r = hexval(name[1]) * 16 + hexval(name[2]);
750 g = hexval(name[3]) * 16 + hexval(name[4]); 752 g = hexval(name[3]) * 16 + hexval(name[4]);
751 b = hexval(name[5]) * 16 + hexval(name[6]); 753 b = hexval(name[5]) * 16 + hexval(name[6]);
752 return (PALETTERGB (r, g, b)); 754 return (PALETTERGB (r, g, b));