tucteam.pl

/* -*- Mode:Prolog; coding:utf-8; -*- */
%% FILE tucteam.pl 
%% SYSTEM TUC
%% CREATED TA-010127
%% REVISED TA-061117

%% %% Makefile for TEAMTUC   server, Incrementally


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

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

%?-compile('main.pl').    %% TA-031115
%:- use_module( main, [ ( := )/2 ] ). %% RS-131227 Avoid loop?
:- use_module( declare, [ (:=)/2, (=:)/2, remember/1, set/2, value/2 ] ). %% RS-141105  General (semantic) Operators, %helpers := /2, =: /2, set/2, value/2.  set( X, Y ) is X := Y .

% ?-compile('version.pl'). %% TA-031117 %% RS-131227    With version_date/1, used in monobus -> teledat2.pl  %% RS-150104 Moved to main!

?-compile('monobus.pl'). %% TA-031115


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

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

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

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

   (tramflag := false),         %% Team/TT didn't like A/S Gråkallbanen

   (nodotflag := true),         %% Readymade Q: Når går bussen fra ....

   (parsetime_limit := 10000),  %% 333 Mhz

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

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


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