Mercurial > hg > map

annotate userProgramsTim/sloga2iloga.m @ 38:c2204b18f4a2 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
End nov big change
author Ray Meddis <rmeddis@essex.ac.uk>
date Mon, 28 Nov 2011 13:34:28 +0000
parents
children
rev   line source
rmeddis@38 1 function [iOut] = sloga2iloga(sIn, gVar)
rmeddis@38 2 % string logatome to integer logatome
rmeddis@38 3 % Bernd Meyer / Medical Physik / University of Oldenburg
rmeddis@38 4 % bernd.meyer@uni-oldenburg.de; March 2005
rmeddis@38 5
rmeddis@38 6 if ~exist('gVar')
rmeddis@38 7 gVar.iVerboseFlag = 1;
rmeddis@38 8 end
rmeddis@38 9
rmeddis@38 10 sIn = strrep(sIn,' ','');
rmeddis@38 11
rmeddis@38 12 switch sIn
rmeddis@38 13 case 'adda'; iOut = 001;
rmeddis@38 14 case 'atta'; iOut = 002;
rmeddis@38 15 case 'agga'; iOut = 003;
rmeddis@38 16 case 'acka'; iOut = 004;
rmeddis@38 17 case 'affa'; iOut = 005;
rmeddis@38 18 case 'assa'; iOut = 006;
rmeddis@38 19 case 'abba'; iOut = 007;
rmeddis@38 20 case 'appa'; iOut = 008;
rmeddis@38 21 case 'awwa'; iOut = 009;
rmeddis@38 22 case 'azza'; iOut = 010;
rmeddis@38 23 case 'amma'; iOut = 011;
rmeddis@38 24 case 'anna'; iOut = 012;
rmeddis@38 25 case 'ascha'; iOut = 013;
rmeddis@38 26 case 'alla'; iOut = 014;
rmeddis@38 27 case 'edde'; iOut = 015;
rmeddis@38 28 case 'ette'; iOut = 016;
rmeddis@38 29 case 'egge'; iOut = 017;
rmeddis@38 30 case 'ecke'; iOut = 018;
rmeddis@38 31 case 'effe'; iOut = 019;
rmeddis@38 32 case 'esse'; iOut = 020;
rmeddis@38 33 case 'ebbe'; iOut = 021;
rmeddis@38 34 case 'eppe'; iOut = 022;
rmeddis@38 35 case 'ewwe'; iOut = 023;
rmeddis@38 36 case 'ezze'; iOut = 024;
rmeddis@38 37 case 'emme'; iOut = 025;
rmeddis@38 38 case 'enne'; iOut = 026;
rmeddis@38 39 case 'esche'; iOut = 027;
rmeddis@38 40 case 'escha'; iOut = 027;
rmeddis@38 41 case 'elle'; iOut = 028;
rmeddis@38 42 case 'iddi'; iOut = 029;
rmeddis@38 43 case 'itti'; iOut = 030;
rmeddis@38 44 case 'iggi'; iOut = 031;
rmeddis@38 45 case 'icki'; iOut = 032;
rmeddis@38 46 case 'iffi'; iOut = 033;
rmeddis@38 47 case 'issi'; iOut = 034;
rmeddis@38 48 case 'ibbi'; iOut = 035;
rmeddis@38 49 case 'ippi'; iOut = 036;
rmeddis@38 50 case 'iwwi'; iOut = 037;
rmeddis@38 51 case 'izzi'; iOut = 038;
rmeddis@38 52 case 'immi'; iOut = 039;
rmeddis@38 53 case 'inni'; iOut = 040;
rmeddis@38 54 case 'ischi'; iOut = 041;
rmeddis@38 55 case 'illi'; iOut = 042;
rmeddis@38 56 case 'oddo'; iOut = 043;
rmeddis@38 57 case 'otto'; iOut = 044;
rmeddis@38 58 case 'oggo'; iOut = 045;
rmeddis@38 59 case 'ocko'; iOut = 046;
rmeddis@38 60 case 'offo'; iOut = 047;
rmeddis@38 61 case 'osso'; iOut = 048;
rmeddis@38 62 case 'obbo'; iOut = 049;
rmeddis@38 63 case 'oppo'; iOut = 050;
rmeddis@38 64 case 'owwo'; iOut = 051;
rmeddis@38 65 case 'ozzo'; iOut = 052;
rmeddis@38 66 case 'ommo'; iOut = 053;
rmeddis@38 67 case 'onno'; iOut = 054;
rmeddis@38 68 case 'oscho'; iOut = 055;
rmeddis@38 69 case 'ollo'; iOut = 056;
rmeddis@38 70 case 'uddu'; iOut = 057;
rmeddis@38 71 case 'uttu'; iOut = 058;
rmeddis@38 72 case 'uggu'; iOut = 059;
rmeddis@38 73 case 'ucku'; iOut = 060;
rmeddis@38 74 case 'uffu'; iOut = 061;
rmeddis@38 75 case 'ussu'; iOut = 062;
rmeddis@38 76 case 'ubbu'; iOut = 063;
rmeddis@38 77 case 'uppu'; iOut = 064;
rmeddis@38 78 case 'uwwu'; iOut = 065;
rmeddis@38 79 case 'uzzu'; iOut = 066;
rmeddis@38 80 case 'ummu'; iOut = 067;
rmeddis@38 81 case 'unnu'; iOut = 068;
rmeddis@38 82 case 'uschu'; iOut = 069;
rmeddis@38 83 case 'ullu'; iOut = 070;
rmeddis@38 84 case 'dadd'; iOut = 071;
rmeddis@38 85 case 'tatt'; iOut = 072;
rmeddis@38 86 case 'gagg'; iOut = 073;
rmeddis@38 87 case 'kakk'; iOut = 074;
rmeddis@38 88 case 'faff'; iOut = 075;
rmeddis@38 89 case 'sass'; iOut = 076;
rmeddis@38 90 case 'babb'; iOut = 077;
rmeddis@38 91 case 'papp'; iOut = 078;
rmeddis@38 92 case 'dedd'; iOut = 079;
rmeddis@38 93 case 'tett'; iOut = 080;
rmeddis@38 94 case 'gegg'; iOut = 081;
rmeddis@38 95 case 'kekk'; iOut = 082;
rmeddis@38 96 case 'feff'; iOut = 083;
rmeddis@38 97 case 'sess'; iOut = 084;
rmeddis@38 98 case 'bebb'; iOut = 085;
rmeddis@38 99 case 'pepp'; iOut = 086;
rmeddis@38 100 case 'didd'; iOut = 087;
rmeddis@38 101 case 'titt'; iOut = 088;
rmeddis@38 102 case 'gigg'; iOut = 089;
rmeddis@38 103 case 'kikk'; iOut = 090;
rmeddis@38 104 case 'fiff'; iOut = 091;
rmeddis@38 105 case 'siss'; iOut = 092;
rmeddis@38 106 case 'bibb'; iOut = 093;
rmeddis@38 107 case 'pipp'; iOut = 094;
rmeddis@38 108 case 'dodd'; iOut = 095;
rmeddis@38 109 case 'tott'; iOut = 096;
rmeddis@38 110 case 'gogg'; iOut = 097;
rmeddis@38 111 case 'kokk'; iOut = 098;
rmeddis@38 112 case 'foff'; iOut = 099;
rmeddis@38 113 case 'soss'; iOut = 100;
rmeddis@38 114 case 'bobb'; iOut = 101;
rmeddis@38 115 case 'popp'; iOut = 102;
rmeddis@38 116 case 'dudd'; iOut = 103;
rmeddis@38 117 case 'tutt'; iOut = 104;
rmeddis@38 118 case 'gugg'; iOut = 105;
rmeddis@38 119 case 'kukk'; iOut = 106;
rmeddis@38 120 case 'fuff'; iOut = 107;
rmeddis@38 121 case 'suss'; iOut = 108;
rmeddis@38 122 case 'bubb'; iOut = 109;
rmeddis@38 123 case 'pupp'; iOut = 110;
rmeddis@38 124 case 'dahd'; iOut = 111;
rmeddis@38 125 case 'taht'; iOut = 112;
rmeddis@38 126 case 'gahg'; iOut = 113;
rmeddis@38 127 case 'kahk'; iOut = 114;
rmeddis@38 128 case 'fahf'; iOut = 115;
rmeddis@38 129 case 'sahs'; iOut = 116;
rmeddis@38 130 case 'bahb'; iOut = 117;
rmeddis@38 131 case 'pahp'; iOut = 118;
rmeddis@38 132 case 'dehd'; iOut = 119;
rmeddis@38 133 case 'teht'; iOut = 120;
rmeddis@38 134 case 'gehg'; iOut = 121;
rmeddis@38 135 case 'kehk'; iOut = 122;
rmeddis@38 136 case 'fehf'; iOut = 123;
rmeddis@38 137 case 'sehs'; iOut = 124;
rmeddis@38 138 case 'behb'; iOut = 125;
rmeddis@38 139 case 'pehp'; iOut = 126;
rmeddis@38 140 case 'died'; iOut = 127;
rmeddis@38 141 case 'tiet'; iOut = 128;
rmeddis@38 142 case 'gieg'; iOut = 129;
rmeddis@38 143 case 'kiek'; iOut = 130;
rmeddis@38 144 case 'fief'; iOut = 131;
rmeddis@38 145 case 'sies'; iOut = 132;
rmeddis@38 146 case 'bieb'; iOut = 133;
rmeddis@38 147 case 'piep'; iOut = 134;
rmeddis@38 148 case 'dohd'; iOut = 135;
rmeddis@38 149 case 'toht'; iOut = 136;
rmeddis@38 150 case 'gohg'; iOut = 137;
rmeddis@38 151 case 'kohk'; iOut = 138;
rmeddis@38 152 case 'fohf'; iOut = 139;
rmeddis@38 153 case 'sohs'; iOut = 140;
rmeddis@38 154 case 'bohb'; iOut = 141;
rmeddis@38 155 case 'pohp'; iOut = 142;
rmeddis@38 156 case 'duhd'; iOut = 143;
rmeddis@38 157 case 'tuht'; iOut = 144;
rmeddis@38 158 case 'guhg'; iOut = 145;
rmeddis@38 159 case 'kuhk'; iOut = 146;
rmeddis@38 160 case 'fuhf'; iOut = 147;
rmeddis@38 161 case 'suhs'; iOut = 148;
rmeddis@38 162 case 'buhb'; iOut = 149;
rmeddis@38 163 case 'puhp'; iOut = 150;
rmeddis@38 164 otherwise
rmeddis@38 165 if gVar.iVerboseFlag
rmeddis@38 166 disp(['no logatome ' sIn ' found in list']);
rmeddis@38 167 end
rmeddis@38 168 iOut = -1;
rmeddis@38 169 end % of switch