1/* @(#)chat.pl 24.1 2/23/88 */ 2% load.pl : Load Chat-80, for Quintus Prolog 3 4/* 5 _________________________________________________________________________ 6| Copyright (C) 1982 | 7| | 8| David Warren, | 9| SRI International, 333 Ravenswood Ave., Menlo Park, | 10| California 94025, USA; | 11| | 12| Fernando Pereira, | 13| Dept. of Architecture, University of Edinburgh, | 14| 20 Chambers St., Edinburgh EH1 1JZ, Scotland | 15| | 16| This program may be used, copied, altered or included in other | 17| programs only for academic purposes and provided that the | 18| authorship of the initial program is aknowledged. | 19| Use for commercial purposes without the previous written | 20| agreement of the authors is forbidden. | 21|_________________________________________________________________________| 22 23*/ 24 25/* 26 Copyright 1986, Fernando C.N. Pereira and David H.D. Warren, 27 28 All Rights Reserved 29*/ 30 31% This file compiles all of Chat-80 32 33/* SWI-Prolog modifications: 34 35 - include library Quintus for enhanced compatibility 36 - put discontiguous between brackets 37 - rename plus/3 and index/1 to be ix_plus; my_index 38 - remove last/2: system predicate with equivalent definition. 39*/ 40 41:- use_module(library(quintus), [no_style_check/1]). 42:- op(1150, fx, [(mode), (public)]). 43 44:- no_style_check(single_var). 45:- no_style_check((discontiguous)). 46 47ttynl:- format('~N'),flush_output. 48 49 50%:- ensure_loaded(als_chat). % misc 51 52 53 54:- op(400, xfy, '&'). 55:- op(400, xfy, '--'). 56 57:- consult(chatops). 58 59:- consult(readin). % sentence input, ASCII VERSION 60:- consult(ptree). % print trees 61:- consult(xgrun). % XG runtimes 62 63:- consult(xgproc). % XG generator 64 65:- load_plus_xg_file(chat80,library('chat80/clone.xg')). 66:- load_plus_xg_file(chat80,library('chat80/lex.xg')). 67 68% :- compile_xg_clauses. 69% :- consult(newg). % clone + lex 70 71 72:- consult(clotab). % attachment tables 73:- consult(newdic). % syntactic dictionary 74:- consult(slots). % fits arguments into predicates 75:- consult(scopes). % quantification and scoping 76:- consult(templa). % semantic dictionary 77:- consult(qplan). % query planning 78:- consult(talkr). % query evaluation 79:- consult(ndtabl). % relation info. 80:- consult(aggreg). % aggregation operators 81:- consult(world0). % geographic data base 82:- consult(rivers). 83:- consult(cities). 84:- consult(countr). 85:- consult(contai). 86:- consult(border). 87:- consult(chattop). % top level control 88 89 90save_chat :- 91 qsave_program(chat, [goal(hi)])