tucsms.pl

/* -*- Mode:Prolog; coding:utf-8; -*- */
%% FILE tucsms.pl 
%% SYSTEM TUC
%% CREATED  TA-020125
%% REVISED  TA-090401


%% Makefile for SMSTUC   server, Incrementally

:- use_module( declare, [ ( := )/2 ] ). %% RS-131227 Avoid loop?


%%?-prolog_flag(unknown,_,fail). %% (Don't?) crash on undefined predicates

%:-compile('tucbuses.pl'). 
:- use_module( tucbuses ). %% RS-131227 Avoid loop?

% ?-compile('version.pl'). %% RS-150104 Moved to main?

?-compile('monobus.pl').

%?-compile('main.pl').
%:- use_module( main, [ run/0 ] ). %% RS-131227 Avoid loop?
:- use_module( main ). %% RS-131227 Avoid loop?


?- (internal_aitbusflag  := false), %% NB May change <--- ???

%%%%   (smspermanentflag := true),  %% SUSPENDED/NOT USED %% 

%%%%   (smsflag := true), %% ONLY IF PROPER SMS %% TA-110407

   (unix_language := eng),     %% Standard for IDI/NTNU UNIX Solaris )
       
   (origlanguage := norsk),    %%

   (language := norsk),        %% Initial default user language  

   (duallangflag := true),     %% Also try English if unknown words

   (noparentflag := true),     %% Ignore content of parentheses

   (nodotflag := false),       %% Interm. dots are  retained 

   (tramflag := true),        %% A/S Gråkallen not OK at TEAM (false), but OK now (AtB, true)

   (parsetime_limit := 3000),  %% Fast server

   (trace := 0).               %% avoid syntax trees 

%%%%   (disablenightbus := true).  %% AD HOC %% TA-040809

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%