rmeddis@38: function [iOut] = sloga2iloga(sIn, gVar) rmeddis@38: % string logatome to integer logatome rmeddis@38: % Bernd Meyer / Medical Physik / University of Oldenburg rmeddis@38: % bernd.meyer@uni-oldenburg.de; March 2005 rmeddis@38: rmeddis@38: if ~exist('gVar') rmeddis@38: gVar.iVerboseFlag = 1; rmeddis@38: end rmeddis@38: rmeddis@38: sIn = strrep(sIn,' ',''); rmeddis@38: rmeddis@38: switch sIn rmeddis@38: case 'adda'; iOut = 001; rmeddis@38: case 'atta'; iOut = 002; rmeddis@38: case 'agga'; iOut = 003; rmeddis@38: case 'acka'; iOut = 004; rmeddis@38: case 'affa'; iOut = 005; rmeddis@38: case 'assa'; iOut = 006; rmeddis@38: case 'abba'; iOut = 007; rmeddis@38: case 'appa'; iOut = 008; rmeddis@38: case 'awwa'; iOut = 009; rmeddis@38: case 'azza'; iOut = 010; rmeddis@38: case 'amma'; iOut = 011; rmeddis@38: case 'anna'; iOut = 012; rmeddis@38: case 'ascha'; iOut = 013; rmeddis@38: case 'alla'; iOut = 014; rmeddis@38: case 'edde'; iOut = 015; rmeddis@38: case 'ette'; iOut = 016; rmeddis@38: case 'egge'; iOut = 017; rmeddis@38: case 'ecke'; iOut = 018; rmeddis@38: case 'effe'; iOut = 019; rmeddis@38: case 'esse'; iOut = 020; rmeddis@38: case 'ebbe'; iOut = 021; rmeddis@38: case 'eppe'; iOut = 022; rmeddis@38: case 'ewwe'; iOut = 023; rmeddis@38: case 'ezze'; iOut = 024; rmeddis@38: case 'emme'; iOut = 025; rmeddis@38: case 'enne'; iOut = 026; rmeddis@38: case 'esche'; iOut = 027; rmeddis@38: case 'escha'; iOut = 027; rmeddis@38: case 'elle'; iOut = 028; rmeddis@38: case 'iddi'; iOut = 029; rmeddis@38: case 'itti'; iOut = 030; rmeddis@38: case 'iggi'; iOut = 031; rmeddis@38: case 'icki'; iOut = 032; rmeddis@38: case 'iffi'; iOut = 033; rmeddis@38: case 'issi'; iOut = 034; rmeddis@38: case 'ibbi'; iOut = 035; rmeddis@38: case 'ippi'; iOut = 036; rmeddis@38: case 'iwwi'; iOut = 037; rmeddis@38: case 'izzi'; iOut = 038; rmeddis@38: case 'immi'; iOut = 039; rmeddis@38: case 'inni'; iOut = 040; rmeddis@38: case 'ischi'; iOut = 041; rmeddis@38: case 'illi'; iOut = 042; rmeddis@38: case 'oddo'; iOut = 043; rmeddis@38: case 'otto'; iOut = 044; rmeddis@38: case 'oggo'; iOut = 045; rmeddis@38: case 'ocko'; iOut = 046; rmeddis@38: case 'offo'; iOut = 047; rmeddis@38: case 'osso'; iOut = 048; rmeddis@38: case 'obbo'; iOut = 049; rmeddis@38: case 'oppo'; iOut = 050; rmeddis@38: case 'owwo'; iOut = 051; rmeddis@38: case 'ozzo'; iOut = 052; rmeddis@38: case 'ommo'; iOut = 053; rmeddis@38: case 'onno'; iOut = 054; rmeddis@38: case 'oscho'; iOut = 055; rmeddis@38: case 'ollo'; iOut = 056; rmeddis@38: case 'uddu'; iOut = 057; rmeddis@38: case 'uttu'; iOut = 058; rmeddis@38: case 'uggu'; iOut = 059; rmeddis@38: case 'ucku'; iOut = 060; rmeddis@38: case 'uffu'; iOut = 061; rmeddis@38: case 'ussu'; iOut = 062; rmeddis@38: case 'ubbu'; iOut = 063; rmeddis@38: case 'uppu'; iOut = 064; rmeddis@38: case 'uwwu'; iOut = 065; rmeddis@38: case 'uzzu'; iOut = 066; rmeddis@38: case 'ummu'; iOut = 067; rmeddis@38: case 'unnu'; iOut = 068; rmeddis@38: case 'uschu'; iOut = 069; rmeddis@38: case 'ullu'; iOut = 070; rmeddis@38: case 'dadd'; iOut = 071; rmeddis@38: case 'tatt'; iOut = 072; rmeddis@38: case 'gagg'; iOut = 073; rmeddis@38: case 'kakk'; iOut = 074; rmeddis@38: case 'faff'; iOut = 075; rmeddis@38: case 'sass'; iOut = 076; rmeddis@38: case 'babb'; iOut = 077; rmeddis@38: case 'papp'; iOut = 078; rmeddis@38: case 'dedd'; iOut = 079; rmeddis@38: case 'tett'; iOut = 080; rmeddis@38: case 'gegg'; iOut = 081; rmeddis@38: case 'kekk'; iOut = 082; rmeddis@38: case 'feff'; iOut = 083; rmeddis@38: case 'sess'; iOut = 084; rmeddis@38: case 'bebb'; iOut = 085; rmeddis@38: case 'pepp'; iOut = 086; rmeddis@38: case 'didd'; iOut = 087; rmeddis@38: case 'titt'; iOut = 088; rmeddis@38: case 'gigg'; iOut = 089; rmeddis@38: case 'kikk'; iOut = 090; rmeddis@38: case 'fiff'; iOut = 091; rmeddis@38: case 'siss'; iOut = 092; rmeddis@38: case 'bibb'; iOut = 093; rmeddis@38: case 'pipp'; iOut = 094; rmeddis@38: case 'dodd'; iOut = 095; rmeddis@38: case 'tott'; iOut = 096; rmeddis@38: case 'gogg'; iOut = 097; rmeddis@38: case 'kokk'; iOut = 098; rmeddis@38: case 'foff'; iOut = 099; rmeddis@38: case 'soss'; iOut = 100; rmeddis@38: case 'bobb'; iOut = 101; rmeddis@38: case 'popp'; iOut = 102; rmeddis@38: case 'dudd'; iOut = 103; rmeddis@38: case 'tutt'; iOut = 104; rmeddis@38: case 'gugg'; iOut = 105; rmeddis@38: case 'kukk'; iOut = 106; rmeddis@38: case 'fuff'; iOut = 107; rmeddis@38: case 'suss'; iOut = 108; rmeddis@38: case 'bubb'; iOut = 109; rmeddis@38: case 'pupp'; iOut = 110; rmeddis@38: case 'dahd'; iOut = 111; rmeddis@38: case 'taht'; iOut = 112; rmeddis@38: case 'gahg'; iOut = 113; rmeddis@38: case 'kahk'; iOut = 114; rmeddis@38: case 'fahf'; iOut = 115; rmeddis@38: case 'sahs'; iOut = 116; rmeddis@38: case 'bahb'; iOut = 117; rmeddis@38: case 'pahp'; iOut = 118; rmeddis@38: case 'dehd'; iOut = 119; rmeddis@38: case 'teht'; iOut = 120; rmeddis@38: case 'gehg'; iOut = 121; rmeddis@38: case 'kehk'; iOut = 122; rmeddis@38: case 'fehf'; iOut = 123; rmeddis@38: case 'sehs'; iOut = 124; rmeddis@38: case 'behb'; iOut = 125; rmeddis@38: case 'pehp'; iOut = 126; rmeddis@38: case 'died'; iOut = 127; rmeddis@38: case 'tiet'; iOut = 128; rmeddis@38: case 'gieg'; iOut = 129; rmeddis@38: case 'kiek'; iOut = 130; rmeddis@38: case 'fief'; iOut = 131; rmeddis@38: case 'sies'; iOut = 132; rmeddis@38: case 'bieb'; iOut = 133; rmeddis@38: case 'piep'; iOut = 134; rmeddis@38: case 'dohd'; iOut = 135; rmeddis@38: case 'toht'; iOut = 136; rmeddis@38: case 'gohg'; iOut = 137; rmeddis@38: case 'kohk'; iOut = 138; rmeddis@38: case 'fohf'; iOut = 139; rmeddis@38: case 'sohs'; iOut = 140; rmeddis@38: case 'bohb'; iOut = 141; rmeddis@38: case 'pohp'; iOut = 142; rmeddis@38: case 'duhd'; iOut = 143; rmeddis@38: case 'tuht'; iOut = 144; rmeddis@38: case 'guhg'; iOut = 145; rmeddis@38: case 'kuhk'; iOut = 146; rmeddis@38: case 'fuhf'; iOut = 147; rmeddis@38: case 'suhs'; iOut = 148; rmeddis@38: case 'buhb'; iOut = 149; rmeddis@38: case 'puhp'; iOut = 150; rmeddis@38: otherwise rmeddis@38: if gVar.iVerboseFlag rmeddis@38: disp(['no logatome ' sIn ' found in list']); rmeddis@38: end rmeddis@38: iOut = -1; rmeddis@38: end % of switch