From 21b2a882816614d49dbffb5523f9cab4849c9b31 Mon Sep 17 00:00:00 2001 From: tiagosoares Date: Mon, 22 May 2006 16:12:01 +0000 Subject: [PATCH] MYDDAS: MYDDAS version boot message git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1643 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- pl/boot.yap | 3 +++ pl/errors.yap | 9 ++++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/pl/boot.yap b/pl/boot.yap index de007c9a3..157b7d329 100644 --- a/pl/boot.yap +++ b/pl/boot.yap @@ -228,6 +228,9 @@ true :- true. '$version' :- get_value('$version_name',VersionName), '$print_message'(help, version(VersionName)), + get_value('$myddas_version_name',MYDDASVersionName), + MYDDASVersionName \== [], + '$print_message'(help, myddas_version(MYDDASVersionName)), fail. '$version' :- recorded('$version',VersionName,_), '$print_message'(help, VersionName), diff --git a/pl/errors.yap b/pl/errors.yap index 8a7adbd1d..aef4cb3ea 100644 --- a/pl/errors.yap +++ b/pl/errors.yap @@ -11,8 +11,13 @@ * File: errors.yap * * comments: error messages for YAP * * * -* Last rev: $Date: 2006-04-10 19:24:52 $,$Author: vsc $ * +* Last rev: $Date: 2006-05-22 16:12:01 $,$Author: tiagosoares $ * * $Log: not supported by cvs2svn $ +* Revision 1.77 2006/04/10 19:24:52 vsc +* fix syntax error message handling +* improve redblack trees and use it to reimplement association lists and +* to have better implementation of several graph algorithms. +* * Revision 1.76 2006/04/05 00:16:55 vsc * Lots of fixes (check logfile for details * @@ -330,6 +335,8 @@ print_message(Level, Mss) :- format(user_error,' Please enter a valid debugger command (h for help).', []). '$do_print_message'(version(Version)) :- !, format(user_error,'YAP version ~a', [Version]). +'$do_print_message'(myddas_version(Version)) :- !, + format(user_error,'MYDDAS version ~a', [Version]). '$do_print_message'(yes) :- !, format(user_error, 'yes', []). '$do_print_message'(Messg) :-