File : eliza-phrases.ads
-- Bush page: http://www.pegasoft.ca/docs/discus/index_bush.html
-- Eliza chatterbot
--
-- Original author: Joseph Weizenbaum
-- Translated from Bush to Ada by Alejandro Mosteo (public@mosteo.com)
with Ada.Strings.Unbounded;
package Eliza.Phrases is
pragma Elaborate_body;
subtype ustring is Ada.Strings.Unbounded.Unbounded_string;
-- Keywords
--
-- Keywords and responses are loaded into the keywords
-- variable. Keywords are prefixed with the keyword_tag
-- character, responses with the response_tag character.
delimiter : constant character := '~';
nokey_marker : constant string := delimiter & "NOKEYFOUND";
-- keyword lists are pairs of a keyword and first reponse field
-- reponses are lists of responses terminated with an empty field
-- These vars are initialized during body elaboration.
single_keywords : ustring;
num_single : natural := 0;
multi_keywords : ustring;
num_multi : natural := 0;
responses : ustring;
num_responses : natural := 0;
end Eliza.Phrases;