% wheremginit.m
% finds multigram - INITIALIZATION
% must be run BEFORE calling wheremg function
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% this is an initialization program, defining some variables as global

global wmg_liste wmg_call_begins_in_targets wmg_calls wmg_path

% mg. is given by its BEGIN and LENGTH

wmg_path='/users/jan/TD_ME/';

disp('wheremginit: working with LISTE_TRAIN');
load LISTE_TRAIN
wmg_liste= LISTE_TRAIN;

wmg_calls=length(wmg_liste);
wmg_call_begins_in_targets=[0];
totaltargets=0;

%%% at first, must get all plim (part limits) files, evaluate the borders for
%%% calls which will serve as a decision table.

for i=1:wmg_calls,
  nameplim=[wmg_path int2str(wmg_liste(i)) '.plim'];
  plimfile=fopen(nameplim, 'r');
  plim=fscanf(plimfile, '%d', [2 inf]);
  fclose(plimfile);

  pbegins=plim(1,:);
  plengths=plim(2,:);
  parts=length(plengths);
  
  totaltargets=totaltargets + sum(plengths);
  wmg_call_begins_in_targets =[wmg_call_begins_in_targets totaltargets];
end

wmg_call_begins_in_targets(wmg_calls+1)