Lines Matching refs:self
57 my $self = {};
58 $self->{USER_SOURCE_ROOT} = undef;
59 $self->{SOURCE_CONFIG_FILE} = undef;
67 $self->{SOURCE_CONFIG_FILE} = $source_root;
73 $self->{USER_SOURCE_ROOT} = $source_root;
80 $self->{SOURCE_ROOT} = $source_root;
81 $self->{DEBUG} = 0;
82 $self->{VERBOSE} = 0;
83 $self->{REPOSITORIES} = {};
84 $self->{ACTIVATED_REPOSITORIES} = {};
85 $self->{MODULE_PATHS} = {};
86 $self->{MODULE_BUILD_LIST_PATHS} = {};
87 $self->{ACTIVATED_MODULES} = {};
88 $self->{MODULE_REPOSITORY} = {};
89 $self->{REAL_MODULES} = {};
90 $self->{NEW_MODULES} = [];
91 $self->{REMOVE_MODULES} = {};
92 $self->{REMOVE_REPOSITORIES} = {};
93 $self->{NEW_REPOSITORIES} = [];
94 $self->{WARNINGS} = [];
95 $self->{REPORT_MESSAGES} = [];
96 $self->{CONFIG_FILE_CONTENT} = [];
97 if (defined $self->{USER_SOURCE_ROOT}) {
98 …${$self->{REPOSITORIES}}{File::Basename::basename($self->{USER_SOURCE_ROOT})} = $self->{USER_SOURC…
100 …$self->{SOURCE_CONFIG_FILE} = get_config_file($self->{SOURCE_ROOT}) if (!defined $self->{SOURCE_CO…
101 $self->{SOURCE_CONFIG_DEFAULT} = $self->{SOURCE_ROOT} .'/'.SOURCE_CONFIG_FILE_NAME;
102 if (defined $self->{USER_SOURCE_ROOT}) {
103 …${$self->{REPOSITORIES}}{File::Basename::basename($self->{USER_SOURCE_ROOT})} = $self->{USER_SOURC…
107 …${$self->{REPOSITORIES}}{File::Basename::basename($additional_repository)} = $additional_repositor…
110 read_config_file($self);
111 get_module_paths($self);
112 bless($self, $class);
113 return $self;
124 my $self = shift;
125 return sort keys %{$self->{REPOSITORIES}};
130 my $self = shift;
134 if (defined ${$self->{REPOSITORIES}}{$new_rep_name}) {
137 ${$self->{REPOSITORIES}}{$new_rep_name} = $new_rep_path;
138 $self -> get_repository_module_paths($new_rep_name);
142 my $self = shift;
143 return $self->{SOURCE_CONFIG_DEFAULT};
147 my $self = shift;
148 return $self->{SOURCE_CONFIG_FILE};
152 my $self = shift;
154 if (defined ${$self->{MODULE_REPOSITORY}}{$module}) {
155 return ${$self->{MODULE_REPOSITORY}}{$module};
163 my $self = shift;
165 if (defined ${$self->{MODULE_PATHS}}{$module}) {
166 return ${$self->{MODULE_PATHS}}{$module};
174 my $self = shift;
176 if (defined ${$self->{MODULE_BUILD_LIST_PATHS}}{$module}) {
177 return ${$self->{MODULE_BUILD_LIST_PATHS}}{$module};
181 my $possible_path = ${$self->{MODULE_PATHS}}{$module} . "/prj/$_";
183 ${$self->{MODULE_BUILD_LIST_PATHS}}{$module} = $possible_path;
187 Carp::cluck("No build list in module $module found!!\n") if ($self->{DEBUG});
194 my $self = shift;
196 return sort keys %{$self->{MODULE_PATHS}};
201 my $self = shift;
202 if (scalar keys %{$self->{ACTIVATED_MODULES}}) {
203 return sort keys %{$self->{ACTIVATED_MODULES}};
205 return sort keys %{$self->{REAL_MODULES}};
210 my $self = shift;
212 if (scalar keys %{$self->{ACTIVATED_MODULES}}) {
213 return exists ($self->{ACTIVATED_MODULES}{$module});
215 return exists ($self->{REAL_MODULES}{$module});
221 my $self = shift;
223 my $repository_path = ${$self->{REPOSITORIES}}{$repository};
229 $self->{REAL_MODULES}{$module}++;
233 if (defined ${$self->{MODULE_PATHS}}{$module}) {
235 …croak("Ambiguous paths for module $module: $possible_path and " . ${$self->{MODULE_PATHS}}{$module…
237 ${$self->{MODULE_PATHS}}{$module} = $possible_path;
238 ${$self->{MODULE_REPOSITORY}}{$module} = $repository;
248 my $self = shift;
249 foreach my $repository (keys %{$self->{REPOSITORIES}}) {
250 get_repository_module_paths($self, $repository);
253 foreach (keys %{$self->{ACTIVATED_MODULES}}) {
254 push(@false_actives, $_) if (!defined ${$self->{MODULE_PATHS}}{$_});
256 …se_actives\nnot found in the active repositories!! Please check your " . $self->{SOURCE_CONFIG_FIL…
257 croak("No modules found!") if (!scalar keys %{$self->{MODULE_PATHS}});
271 my $self = shift;
273 ${$self->{REPOSITORIES}}{File::Basename::basename($repository_root)} = $repository_root;
277 my $self = shift;
278 if (!$self->{SOURCE_CONFIG_FILE}) {
279 if (!defined $self->{USER_SOURCE_ROOT}) {
280 get_fallback_repository($self);
289 if (open(SOURCE_CONFIG_FILE, $self->{SOURCE_CONFIG_FILE})) {
291 push (@{$self->{CONFIG_FILE_CONTENT}}, $_);
310 my $repository_source_path = $self->{SOURCE_ROOT} . "/$1";
313 if (defined ${$self->{REPOSITORIES}}{$1.$ENV{UPDMINOREXT}}) {
314 delete ${$self->{REPOSITORIES}}{$1.$ENV{UPDMINOREXT}};
317 ${$self->{REPOSITORIES}}{$1} = $repository_source_path;
318 ${$self->{ACTIVATED_REPOSITORIES}}{$1}++;
322 ${$self->{ACTIVATED_MODULES}}{$1}++;
326 …croak("Line $line in " . $self->{SOURCE_CONFIG_FILE} . ' violates format. Please make your checks!…
329 if (!scalar keys %{$self->{REPOSITORIES}}) {
330 get_fallback_repository($self);
333 croak('Cannot open ' . $self->{SOURCE_CONFIG_FILE} . ' for reading');
338 my $self = shift;
339 $self->remove_activated_repositories([keys %{$self->{ACTIVATED_REPOSITORIES}}]);
343 my $self = shift;
345 …push(@{$self->{WARNINGS}}, "\nWARNING: Empty repository list passed for removing from source_confi…
346 $self->{VERBOSE} = shift;
347 $self->{REMOVE_REPOSITORIES} = {};
349 if (!defined ${$self->{ACTIVATED_REPOSITORIES}}{$_}) {
350 …push (@{$self->{WARNINGS}}, "\nWARNING: repository $_ is not activated in ". $self->get_config_fil…
352 ${$self->{REMOVE_REPOSITORIES}}{$_}++;
353 delete ${$self->{ACTIVATED_REPOSITORIES}}{$_};
356 generate_config_file($self);
360 my $self = shift;
361 $self->remove_activated_modules([keys %{$self->{ACTIVATED_MODULES}}]);
365 my $self = shift;
367 …push(@{$self->{WARNINGS}}, "\nWARNING: Empty module list passed for removing from source_config\n"…
368 $self->{VERBOSE} = shift;
369 $self->{REMOVE_MODULES} = {};
371 if (!defined ${$self->{ACTIVATED_MODULES}}{$_}) {
372 …push (@{$self->{WARNINGS}}, "\nWARNING: module $_ is not activated in ". $self->get_config_file_de…
374 ${$self->{REMOVE_MODULES}}{$_}++;
375 delete ${$self->{ACTIVATED_MODULES}}{$_};
378 generate_config_file($self);
382 my $self = shift;
383 $self->{NEW_REPOSITORIES} = shift;
384 …croak('Empty repository list passed for addition to source_config') if (!scalar @{$self->{NEW_REPO…
385 $self->{VERBOSE} = shift;
386 foreach (@{$self->{NEW_REPOSITORIES}}) {
387 $self->add_repository($_);
389 generate_config_file($self);
393 my $self = shift;
398 if ($self->get_module_path($module)) {
404 …push (@{$self->{WARNINGS}}, "\nWARNING: following modules are not found in active repositories, an…
405 $self->{NEW_MODULES} = \@real_modules;
406 …croak('Empty module list passed for addition to source_config') if (!scalar @{$self->{NEW_MODULES}…
407 $self->{VERBOSE} = shift;
408 generate_config_file($self);
412 my $self = shift;
421 if ($entries_to_add == $self->{NEW_MODULES}) {
422 $self->{NEW_MODULES} = [];
424 $activated_entries = $self->{ACTIVATED_MODULES};
425 } elsif ($entries_to_add == $self->{NEW_REPOSITORIES}) {
426 $self->{NEW_REPOSITORIES} = [];
428 $activated_entries = $self->{ACTIVATED_REPOSITORIES};
440 …push(@{$self->{REPORT_MESSAGES}}, "\n$message_part1 $message\nhave been added to the ". $self->get…
441 …push (@{$self->{WARNINGS}}, "\nWARNING: $message_part1 $warning_message\nare already added to the …
445 my $self = shift;
450 foreach (@{$self->{CONFIG_FILE_CONTENT}}) {
453 $self->add_content(\@config_content_new, $self->{NEW_MODULES});
460 $self->add_content(\@config_content_new, $self->{NEW_REPOSITORIES});
466 if (defined ${$self->{REMOVE_MODULES}}{$1}) {
472 if (defined ${$self->{REMOVE_REPOSITORIES}}{$1}) {
479 if (scalar @{$self->{NEW_MODULES}}) {
481 $self->add_content(\@config_content_new, $self->{NEW_MODULES});
483 if (scalar @{$self->{NEW_REPOSITORIES}}) {
485 $self->add_content(\@config_content_new, $self->{NEW_REPOSITORIES});
489 …push(@{$self->{REPORT_MESSAGES}}, "\nModules: @deleted_modules\nhave been removed from the ". $sel…
494 …push(@{$self->{REPORT_MESSAGES}}, "\nRepositories: @deleted_repositories\nhave been removed from t…
502 if ((scalar @{$self->{CONFIG_FILE_CONTENT}}) != (scalar @config_content_new)) {
505 foreach my $i (0 .. $#{$self->{CONFIG_FILE_CONTENT}}) {
506 if (${$self->{CONFIG_FILE_CONTENT}}[$i] ne $config_content_new[$i]) {
517 …rename($temp_config_file, $self->get_config_file_default_path()) or system("mv", $temp_config_fil…
521 $self->{CONFIG_FILE_CONTENT} = \@config_content_new;
523 if ($self->{VERBOSE}) {
524 print $_ foreach (@{$self->{WARNINGS}});
525 $self->{VERBOSE} = 0;
527 $self->{WARNINGS} = [];
528 print $_ foreach (@{$self->{REPORT_MESSAGES}});
529 $self->{REPORT_MESSAGES} = [];