Hi Malo, We user IsoLatin-1 character set in Finland and I have made a couple of changes to routine XLFSTR to map lower and upper case characters. UP and LOW labels are changed, SETCHAR label is a new one.
UP(X) ;Q $TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ") ; ***original code N LOWER,UPPER D SETCHAR Q $TR(X,LOWER,UPPER) LOW(X) ;Q $TR(X,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz") ; ***original code N LOWER,UPPER D SETCHAR Q $TR(X,UPPER,LOWER) SETCHAR ; Set ISOLATIN1 characters : New label added S LOWER="abcdefghijklmnopqrstuvwxyz���"_$C(233,252,235,232,234,224,225,226,231,227,230,241,239,238,236,237,244,242,251,249,243,250,245,253,240,248,254) S UPPER="ABCDEFGHIJKLMNOPQRSTUVWXYZ���"_$C(201,220,203,200,202,192,193,194,199,195,198,209,207,206,204,205,212,210,219,217,211,218,213,221,208,216,222) Q You have to change codes that refer to creek characters in LOWER and UPPER variables in SETCHAR label. In this example those codes refer to IsoLatin1 charactes. A similar code change must be done also to UP^DILIBF label. Hellevi On Fri, 8 Apr 2005, Dr Bones wrote: > All right .... Manolis further adventures in greek characters.... > Installment 34b (we last left our hero hanging from the utf character > set) > I have been able to get greek characters entered into fields without > them choking.... > > I took the advice given and changed my charset and keyboard to iso8859-7 > which isn't as easy as it should be.... utf no problem it is the others > that ****. > > HERE IS THE PROBLEM.... hee... and it took me a while to figure it out. > when you enter lower case greek characters.... it tries to convert them > to upper case.... heh... can you say choke... stack dump...crash! > I guess my next question is... can I map lower case to upper case greek > letters? oh... and there isn't a one to one correspondance either :) > > I will worry about the soundex routines in another life. > > I have to give much much thanks to everyone for their help. > I even learned something... although that was the last thing I wanted to > do :P > ------------------------------------------------------------------------- > > How I got to where I am.... > > I am running suse 9.2 > I had to go into my XF86Config and change the keyboard > ----------------------------------------------------- > Section "InputDevice" > Driver "keyboard" > Identifier "Keyboard[0]" > Option "Protocol" "Standard" > Option "XkbLayout" "us,el" > Option "XkbModel" "pc102" > Option "XkbOptions" "grp:alt_shift_toggle" > Option "XkbRules" "xfree86" > EndSection > ----------------------------------------------------- > Then I had to go to my language settings > /etc/sysconfig/language > and change RC_LANG > > RC_LANG="el_GR.ISO-8859-7" > ------------------------------------------------------ > and I can honestly say that it probably won't work for you... :) > I did lots of other stuff too... but that seemed to be the bits that > worked. > ------------------------------------------------------- > Now Patterns > My New Pattern file is ... > PATSTART > PATTABLE GREEK > PATCODE L > 97,98,99, - > 100,101,102,103,104,105,106,107,108,109, - > 110,111,112,113,114,115,116,117,118,119, - > 120,121,122, - > 220,221,222,223,224,225,226,227,228,229, - > 230,231,232,233,234,235,236,237,238,239, - > 240,241,242,243,244,245,246,247,248,249, - > 250,251,252,253,254 > PATCODE N > 48,49,50,51,52,53,54,55,56,57 > PATCODE U > 65,66,67,68,69, - > 70,71,72,73,74,75,76,77,78,79, - > 80,81,82,83,84,85,86,87,88,89,90, - > 182,184,185,186,188,190,191, - > 193,194,195,196,197,198,199, - > 200,201,202,203,204,205,206,207,208,209, - > 211,212,213,214,215,216,217,218,219 > PATCODE P > 32,33,34,35,36,37,38,39, - > 40,41,42,43,44,45,46,47, - > 58,59,60,61,62,63,64, - > 91,92,93,94,95,96, - > 123,124,125,126, - > 160,161,162,163, - > 166,167,168,169, - > 171,172,173, - > 175,176,177,178,179,180,181, - > 183,187,189 > PATCODE C > 0,1,2,3,4,5,6,7,8,9, - > 10,11,12,13,14,15,16,17,18,19, - > 20,21,22,23,24,25,26,27,28,29, - > 30,31,127 > PATEND > -------------------------------------------------------- > once in GTM I use > > view "PATLOAD":"greekpattern","PATCODE":"GREEK" > > and off to the races. > > alt shift toggles languages. > > > > > ------------------------------------------------------- > SF email is sponsored by - The IT Product Guide > Read honest & candid reviews on hundreds of IT Products from real users. > Discover which products truly live up to the hype. Start reading now. > http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click > _______________________________________________ > Hardhats-members mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/hardhats-members > --------------------------------------------------------------------- Hellevi Ruonamaa +358-17-162 816 [EMAIL PROTECTED] University of Kuopio, Computing Centre, HIS R&D unit P.O. Box 1627, 70211 Kuopio FINLAND ------------------------------------------------------- SF email is sponsored by - The IT Product Guide Read honest & candid reviews on hundreds of IT Products from real users. Discover which products truly live up to the hype. Start reading now. http://ads.osdn.com/?ad_ide95&alloc_id396&op=click _______________________________________________ Hardhats-members mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/hardhats-members
