Hi Salva
Well after a few version control problems of my own making, we're back to a stable system.
I've implemented the line you suggest at the beginning of the module (.pm file). However, I'm not sure that it's the optimum way. This is what it looks like now:
updated
#!/usr/bin/perl -w use strict; package i_observation; ######################delete block ########################## use Wx 0.15 qw[:allclasses]; use strict; use warnings; use Wx qw[:everything]; use Wx::Event qw( EVT_MENU ); use base qw(Wx::Frame); use threads (); # Used for mult +i-tasking ffmpeg use Threads; # Used in Timer to + determine state of tasks use base qw(Wx::Panel Class::Accessor::Fast); __PACKAGE__->mk_ro_accessors( qw(html_help chm_help comboctrl) ); use Language::Prolog::Yaswi qw(:load :run :query); use Language::Prolog::Types::overload; use Language::Prolog::Sugar functors => {location_organ => 'location_organ', location_segment => 'location_segment', listsegments => 'listsegments', listwalls => 'listwalls', diagnosis => 'diagnosis' }, chains => { orn => ';', andn => ',', add => '+' }, vars => [qw (X Y Z)]; swi_init(qw(-nosignals -g true)); sub new{ . . . # other routines in the package . . . sub set_location_list{ . . . . my @files = (t("/home/steve/Documents/i_prolog.pl")); swi_consult @files; . . . }
So, it's not clear to me when the code before any routines gets executed. The error now is:
% /home/steve/Documents/i_prolog.pl compiled 0.00 sec, 32,784 bytes % /home/steve/Documents/i_prolog.pl compiled 0.00 sec, 0 bytes % /home/steve/Documents/i_prolog.pl compiled 0.00 sec, -232 bytes
So it looks as though it is called three times. UPDATE: Actually these messages come way before the crash now. There is no crash message at all, so I need to step through the code and find the crash. It may not be Prolog related. Sorry for the confusion.
Regards
Steve
In reply to Re^2: YASWI "Prolog System Error: Thread 1"
by Steve_BZ
in thread YASWI "Prolog System Error: Thread 1"
by Steve_BZ
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |