/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Ales Kosir, 19. 3.1995 brief 3.0 compatible (DOS), 16.06.1996 brief 3.1 compatible (DOS, OS/2), 16.06.1996 crisp 2.2e compatible (Linux), 16.06.1996, 22.10.1996 crisp 4.2 compatible (UNIX), 16.06.1996 $Author: kosir $ $Header: /home/kosir/tex/tslovene/src/RCS/slovene.cr,v 1.11 1998/11/04 15:04:42 kosir Exp $ $Log: slovene.cr,v $ Revision 1.11 1998/11/04 15:04:42 kosir *** empty log message *** Revision 1.10 1996/11/08 12:26:41 kosir Privzeti nacin je Latin2. Revision 1.9 1996/10/22 16:59:57 kosir Ponovno preskuseno pod crisp2.2e. Revision 1.8 1996/10/04 12:25:07 kosir Dodana LaTeX in TeX123. Revision 1.7 1996/09/23 09:25:46 kosir Dodatek kodiranja CZ. Revision 1.1 1996/09/21 08:49:50 kosir Initial revision Revision 1.5 1996/09/02 11:19:05 kosir Fixed to be compatible against bug in crisp 2.2e Revision 1.4 1996/08/30 09:33:47 kosir Minor changes. Revision 1.3 1996/08/30 09:32:29 kosir Final revision. Revision 1.2 1996/08/29 12:16:36 kosir Dodana podpora za CP1250 Revision 1.1 1996/08/29 11:12:54 kosir Initial revision Prevedi s cb slovene.cb ali crunch slovene.cr ali pri crisp 2.2e crunch -D CRISP22E slovene.cr Tabela: CodePage CodePage ISO YUSCII babel TeX HTML cz 852 1250 8859-2 ----------------------------------------------------------------------------- "C 172 AC 200 C8 200 C8 ^ 94 5E "C \v{C} È CZ "c 159 9F 232 E8 232 E8 ~ 126 7E "c \v{c} è cz "S 230 E6 138 8A 169 A9 [ 91 5B "S \v{S} © SZ "s 231 E7 154 9A 185 B9 { 123 7B "s \v{s} ¹ sz "Z 166 A6 142 8E 174 AE @ 64 40 "Z \v{Z} ® ZZ "z 167 A7 158 9E 190 BE ` 96 60 "z \v{z} ¾ zz 'C 143 8F 198 C6 198 C6 ] 93 5D 'c 134 86 230 E6 230 E6 } 125 7D Dj 209 D1 208 D0 208 D0 \ 92 5C dj 208 D0 240 F0 240 F0 | 124 7C ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ /* Allocate the global variables. */ int SloInputMode; /* nacin vnosa sumnikov: SloInputMode = 0 : sestavljanje znaka " in sicnika SloInputMode = 1 : vnos s tipkovnico PC-SLO SloInputMode = 2 : izklop vnosa sumnikov */ int SloDisplayMode; /* nacin prikaza sumnikov: SloDisplayMode = 0 : CodePage 852 SloDisplayMode = 1 : CodePage 1250 SloDisplayMode = 2 : ISO 8859-2 SloDisplayMode = 3 : babel SloDisplayMode = 4 : LaTeX SloDisplayMode = 5 : HTML SloDisplayMode = 6 : cz SloDisplayMode = 7 : TeX SloDisplayMode = 8 : TeX123 */ /* Function Prototypes */ #ifdef CRISP22E #else void default_keys (...); void slo_composed_keys (...); void slo_keys (...); #endif void _init (...) { assign_to_key ("", "toggle_slo_input"); slo_composed_keys (); SloInputMode = 1; assign_to_key ("", "toggle_slo_display"); SloDisplayMode = 2; message ("Sestavljeni vnos in nabor Latin2, slovene $Revision: 1.11 $."); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void set_slo_input (~int) { #ifdef CRISP22E extern int SloInputMode; #endif get_parm (0, SloInputMode); switch(SloInputMode) { case (0): { message ("Vnos sumnikov s sestavljanjem znaka \" in sicnika."); slo_composed_keys (); } case (1): { message ("Vnos sumnikov s tipkovnico PC-SLO."); slo_keys (); } case (2): { message ("Izklop vnosa sumnikov."); default_keys (); } } } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void set_slo_display (~int) { #ifdef CRISP22E extern int SloDisplayMode; #endif get_parm (0, SloDisplayMode); switch(SloDisplayMode) { case (0): { message ("Prikaz sumnikov po naboru CodePage 852 (禧)."); } case (1): { message ("Prikaz sumnikov po naboru CodePage 1250 (芚)."); } case (2): { message ("Prikaz sumnikov po naboru ISO 8859-2 (詹)."); } case (3): { message ("Prikaz sumnikov po naboru babel (\"C\"c\"S\"s\"Z\"z)."); } case (4): { message ("Prikaz sumnikov po naboru LaTeX (\\v{c})."); } case (5): { message ("Prikaz sumnikov po naboru HTML (è)."); } case (6): { message ("Prikaz sumnikov po naboru cz (cz, sz, zz)."); } case (7): { message ("Prikaz sumnikov po naboru TeX (\\v c, \\v c)."); } case (8): { message ("Prikaz sumnikov po naboru TeX123 (\\1, \\2)."); } } } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void toggle_slo_input (...) { #ifdef CRISP22E extern int SloInputMode; #endif set_slo_input ((SloInputMode+1) % 3); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void toggle_slo_display (...) { #ifdef CRISP22E extern int SloDisplayMode; #endif set_slo_display ((SloDisplayMode+1) % 9); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void convert (...) { string text,Inp_ch,Out_ch; int cnt; string Inp_Ccar, Inp_ccar, Inp_Scar, Inp_scar, Inp_Zcar, Inp_zcar; string Out_Ccar, Out_ccar, Out_Scar, Out_scar, Out_Zcar, Out_zcar; sprintf(text," Iz babel, LaTeX, TeX, TeX123, HTML, 852, 1250, 8859-1, -2, YU, CZ [blT3hdw12yz]: "); if (get_parm (0, Inp_ch, text, 1)) { switch(upper(Inp_ch)) { case "B" : Inp_Ccar = "\"C"; /* babel */ Inp_ccar = "\"c"; Inp_Scar = "\"S"; Inp_scar = "\"s"; Inp_Zcar = "\"Z"; Inp_zcar = "\"z"; case "L" : Inp_Ccar = "\\v{C}"; /* LaTeX */ Inp_ccar = "\\v{c}"; Inp_Scar = "\\v{S}"; Inp_scar = "\\v{s}"; Inp_Zcar = "\\v{Z}"; Inp_zcar = "\\v{z}"; case "H" : Inp_Ccar = "È"; /* HTML */ Inp_ccar = "è"; Inp_Scar = "©"; Inp_scar = "¹"; Inp_Zcar = "®"; Inp_zcar = "¾"; case "D" : Inp_Ccar = ""; /* CP852 */ Inp_ccar = ""; Inp_Scar = ""; Inp_scar = ""; Inp_Zcar = ""; Inp_zcar = ""; case "W" : Inp_Ccar = ""; /* CP1250 */ Inp_ccar = ""; Inp_Scar = ""; Inp_scar = ""; Inp_Zcar = ""; Inp_zcar = ""; case "1" : Inp_Ccar = "C"; /* ISO 8859-1 */ Inp_ccar = "c"; Inp_Scar = "S"; Inp_scar = "s"; Inp_Zcar = "Z"; Inp_zcar = "z"; case "2" : Inp_Ccar = ""; /* ISO 8859-2 */ Inp_ccar = ""; Inp_Scar = ""; Inp_scar = ""; Inp_Zcar = ""; Inp_zcar = ""; case "Y" : Inp_Ccar = "^"; /* YUSCII */ Inp_ccar = "~"; Inp_Scar = "["; Inp_scar = "{"; Inp_Zcar = "@"; Inp_zcar = "`"; case "Z" : Inp_Ccar = "CZ"; /* CZ */ Inp_ccar = "cz"; Inp_Scar = "SZ"; Inp_scar = "sz"; Inp_Zcar = "ZZ"; Inp_zcar = "zz"; case "T" : Inp_Ccar = "\\v C"; /* TeX */ Inp_ccar = "\\v c"; Inp_Scar = "\\v S"; Inp_scar = "\\v s"; Inp_Zcar = "\\v Z"; Inp_zcar = "\\v z"; case "3" : Inp_Ccar = "\\4"; /* TeX123 */ Inp_ccar = "\\1"; Inp_Scar = "\\5"; Inp_scar = "\\2"; Inp_Zcar = "\\6"; Inp_zcar = "\\3"; } } else { message("Prekinitev."); return; } sprintf(text," V babel, LaTeX, TeX, TeX123, HTML, 852, 1250, 8859-1, -2, YU, CZ [blT3hdw12yz]: "); if (get_parm (0, Out_ch, text, 1)) { switch(upper(Out_ch)) { case "B" : Out_Ccar = "\"C"; /* babel */ Out_ccar = "\"c"; Out_Scar = "\"S"; Out_scar = "\"s"; Out_Zcar = "\"Z"; Out_zcar = "\"z"; case "L" : Out_Ccar = "\\v{C}"; /* LaTeX */ Out_ccar = "\\v{c}"; Out_Scar = "\\v{S}"; Out_scar = "\\v{s}"; Out_Zcar = "\\v{Z}"; Out_zcar = "\\v{z}"; case "H" : Out_Ccar = "È"; /* HTML */ Out_ccar = "è"; Out_Scar = "©"; Out_scar = "¹"; Out_Zcar = "®"; Out_zcar = "¾"; case "D" : Out_Ccar = ""; /* CP852 */ Out_ccar = ""; Out_Scar = ""; Out_scar = ""; Out_Zcar = ""; Out_zcar = ""; case "W" : Out_Ccar = ""; /* CP1250 */ Out_ccar = ""; Out_Scar = ""; Out_scar = ""; Out_Zcar = ""; Out_zcar = ""; case "1" : Out_Ccar = "C"; /* ISO 8859-1 */ Out_ccar = "c"; Out_Scar = "S"; Out_scar = "s"; Out_Zcar = "Z"; Out_zcar = "z"; case "2" : Out_Ccar = ""; /* ISO 8859-2 */ Out_ccar = ""; Out_Scar = ""; Out_scar = ""; Out_Zcar = ""; Out_zcar = ""; case "Y" : Out_Ccar = "^"; /* YUSCII */ Out_ccar = "~"; Out_Scar = "["; Out_scar = "{"; Out_Zcar = "@"; Out_zcar = "`"; case "Z" : Out_Ccar = "CZ"; /* CZ */ Out_ccar = "cz"; Out_Scar = "SZ"; Out_scar = "sz"; Out_Zcar = "ZZ"; Out_zcar = "zz"; case "T" : Out_Ccar = "\\v C"; /* TeX */ Out_ccar = "\\v c"; Out_Scar = "\\v S"; Out_scar = "\\v s"; Out_Zcar = "\\v Z"; Out_zcar = "\\v z"; case "3" : Out_Ccar = "\\4"; /* TeX123 */ Out_ccar = "\\1"; Out_Scar = "\\5"; Out_scar = "\\2"; Out_Zcar = "\\6"; Out_zcar = "\\3"; } } else { message("Prekinitev."); return; } drop_bookmark (10, "Y"); cnt = 0; cnt += translate (Inp_Ccar, Out_Ccar, 1, 0, 1, 1, 1); cnt += translate (Inp_ccar, Out_ccar, 1, 0, 1, 1, 1); cnt += translate (Inp_Scar, Out_Scar, 1, 0, 1, 1, 1); cnt += translate (Inp_scar, Out_scar, 1, 0, 1, 1, 1); cnt += translate (Inp_Zcar, Out_Zcar, 1, 0, 1, 1, 1); cnt += translate (Inp_zcar, Out_zcar, 1, 0, 1, 1, 1); goto_bookmark (10); message("Opravljeno ("+Inp_ch+"->"+Out_ch+") %d zamenjav.", cnt); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void slo_to_tex (...) { message("Sumnike po CP 852 spremeni v TeXove znake."); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("", "\"C", 1, 0, 1); move_abs (1, 1); translate ("", "\"c", 1, 0, 1); move_abs (1, 1); translate ("", "\"S", 1, 0, 1); move_abs (1, 1); translate ("", "\"s", 1, 0, 1); move_abs (1, 1); translate ("", "\"Z", 1, 0, 1); move_abs (1, 1); translate ("", "\"z", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void tex_to_slo (...) { message("TeXove znake za sumnike (\"c in \\{c}) spremeni v sumnike po CP 852."); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("\"C", "", 1, 0, 1); move_abs (1, 1); translate ("\"c", "", 1, 0, 1); move_abs (1, 1); translate ("\"S", "", 1, 0, 1); move_abs (1, 1); translate ("\"s", "", 1, 0, 1); move_abs (1, 1); translate ("\"Z", "", 1, 0, 1); move_abs (1, 1); translate ("\"z", "", 1, 0, 1); move_abs (1, 1); translate ("\\v{C}", "", 1, 0, 1); move_abs (1, 1); translate ("\\v{c}", "", 1, 0, 1); move_abs (1, 1); translate ("\\v{S}", "", 1, 0, 1); move_abs (1, 1); translate ("\\v{s}", "", 1, 0, 1); move_abs (1, 1); translate ("\\v{Z}", "", 1, 0, 1); move_abs (1, 1); translate ("\\v{z}", "", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void iso_to_tex (...) { message("Sumnike po ISO 8859-2 spremeni v TeXove znake."); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("", "\"C", 1, 0, 1); move_abs (1, 1); translate ("", "\"c", 1, 0, 1); move_abs (1, 1); translate ("", "\"S", 1, 0, 1); move_abs (1, 1); translate ("", "\"s", 1, 0, 1); move_abs (1, 1); translate ("", "\"Z", 1, 0, 1); move_abs (1, 1); translate ("", "\"z", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void tex_to_iso (...) { message("TeXove znake za sumnike (\"C) spremeni v sumnike po ISO 8859-2."); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("\"C", "", 1, 0, 1); move_abs (1, 1); translate ("\"c", "", 1, 0, 1); move_abs (1, 1); translate ("\"S", "", 1, 0, 1); move_abs (1, 1); translate ("\"s", "", 1, 0, 1); move_abs (1, 1); translate ("\"Z", "", 1, 0, 1); move_abs (1, 1); translate ("\"z", "", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void iso_to_slo (...) { message("Sumnike po ISO 8859-2 spremeni v sumnike po CP 852."); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void slo_to_iso (...) { message("Sumnike po CP 852 spremeni v sumnike po ISO 8859-2."); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void win_to_slo (...) { message("Sumnike po CP 1250 spremeni v sumnike po CP 852."); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void slo_to_win (...) { message("Sumnike po CP 852 spremeni v sumnike po CP 1250."); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); move_abs (1, 1); translate ("", "", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void yu_to_tex (...) { message("Sumnike po JUS spremeni v TeXove znake."); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("^", "\"C", 1, 0, 1); move_abs (1, 1); translate ("~", "\"c", 1, 0, 1); move_abs (1, 1); translate ("[", "\"S", 1, 0, 1); move_abs (1, 1); translate ("{", "\"s", 1, 0, 1); move_abs (1, 1); translate ("@", "\"Z", 1, 0, 1); move_abs (1, 1); translate ("`", "\"z", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void tex_to_yu (...) { message("TeXove znake za sumnike spremeni v sumnike po JUS ."); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("\"C", "^", 1, 0, 1); move_abs (1, 1); translate ("\"c", "~", 1, 0, 1); move_abs (1, 1); translate ("\"S", "[", 1, 0, 1); move_abs (1, 1); translate ("\"s", "{", 1, 0, 1); move_abs (1, 1); translate ("\"Z", "@", 1, 0, 1); move_abs (1, 1); translate ("\"z", "`", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void slo_to_ascii (...) { message("Sumnike po CP 852 nereverzibilno spremeni v sicnike."); drop_bookmark (10, "Y"); move_abs (1, 1); translate ("", "C", 1, 0, 1); move_abs (1, 1); translate ("", "c", 1, 0, 1); move_abs (1, 1); translate ("", "S", 1, 0, 1); move_abs (1, 1); translate ("", "s", 1, 0, 1); move_abs (1, 1); translate ("", "Z", 1, 0, 1); move_abs (1, 1); translate ("", "z", 1, 0, 1); goto_bookmark (10); message(" "); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void default_keys (...) { assign_to_key ("\"", "self_insert"); assign_to_key ("'", "self_insert"); assign_to_key ("{", "self_insert"); assign_to_key ("[", "self_insert"); assign_to_key ("\|", "self_insert"); assign_to_key ("\\\\", "self_insert"); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void slo_composed_keys (...) { assign_to_key ("\"", "composed_carons"); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void composed_carons (...) { #ifdef CRISP22E extern int SloDisplayMode; #endif string text,ch; sprintf(text,"Sumnik? "); if (get_parm (0, ch, text, 1)) { switch (SloDisplayMode) { case 0 : switch(ch) { case "C" : insert(""); case "c" : insert(""); case "S" : insert(""); case "s" : insert(""); case "Z" : insert(""); case "z" : insert(""); case "\"": insert("\""); default : insert("\""+ch); } case 1 : switch(ch) { case "C" : insert(""); case "c" : insert(""); case "S" : insert(""); case "s" : insert(""); case "Z" : insert(""); case "z" : insert(""); case "\"": insert("\""); default : insert("\""+ch); } case 2 : switch(ch) { case "C" : insert(""); case "c" : insert(""); case "S" : insert(""); case "s" : insert(""); case "Z" : insert(""); case "z" : insert(""); case "\"": insert("\""); default : insert("\""+ch); } case 3 : switch(ch) { case "C" : insert("\"C"); case "c" : insert("\"c"); case "S" : insert("\"S"); case "s" : insert("\"s"); case "Z" : insert("\"Z"); case "z" : insert("\"z"); case "\"": insert("\""); default : insert("\""+ch); } case 4 : switch(ch) { case "C" : insert("\\v{C}"); case "c" : insert("\\v{c}"); case "S" : insert("\\v{S}"); case "s" : insert("\\v{s}"); case "Z" : insert("\\v{Z}"); case "z" : insert("\\v{z}"); case "\"": insert("\""); default : insert("\""+ch); } case 5 : switch(ch) { case "C" : insert("È"); case "c" : insert("è"); case "S" : insert("©"); case "s" : insert("¹"); case "Z" : insert("®"); case "z" : insert("¾"); case "\"": insert("\""); default : insert("\""+ch); } case 6 : switch(ch) { case "C" : insert("CZ"); case "c" : insert("cz"); case "S" : insert("SZ"); case "s" : insert("sz"); case "Z" : insert("ZZ"); case "z" : insert("zz"); case "\"": insert("\""); default : insert("\""+ch); } case 7 : switch(ch) { case "C" : insert("\\v C"); case "c" : insert("\\v c"); case "S" : insert("\\v S"); case "s" : insert("\\v s"); case "Z" : insert("\\v Z"); case "z" : insert("\\v z"); case "\"": insert("\""); default : insert("\""+ch); } case 8 : switch(ch) { case "C" : insert("\\4"); case "c" : insert("\\1"); case "S" : insert("\\5"); case "s" : insert("\\2"); case "Z" : insert("\\6"); case "z" : insert("\\3"); case "\"": insert("\""); default : insert("\""+ch); } } message(" "); } else { insert(""); message("Prekinjen vnos sumnika."); } } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void slo_keys (...) { assign_to_key ("\"", "Ccaron"); assign_to_key ("'", "ccaron"); assign_to_key ("{", "Scaron"); assign_to_key ("[", "scaron"); assign_to_key ("\|", "Zcaron"); assign_to_key ("\\\\", "zcaron"); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void Ccaron (...) { insert (""); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void ccaron (...) { insert (""); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void Scaron (...) { insert (""); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void scaron (...) { insert (""); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void Zcaron (...) { insert (""); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/ void zcaron (...) { insert (""); } /* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/