diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

MYDDAS: MYDDAS version boot message

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1643 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
tiagosoares 2006-05-22 16:12:01 +00:00
parent ae4d4d8d5b
commit 21b2a88281
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/boot.yap
View File

@ -228,6 +228,9 @@ true :- true.
'$version' :- '$version' :-
get_value('$version_name',VersionName), get_value('$version_name',VersionName),
'$print_message'(help, version(VersionName)), '$print_message'(help, version(VersionName)),
get_value('$myddas_version_name',MYDDASVersionName),
MYDDASVersionName \== [],
'$print_message'(help, myddas_version(MYDDASVersionName)),
fail. fail.
'$version' :- recorded('$version',VersionName,_), '$version' :- recorded('$version',VersionName,_),
'$print_message'(help, VersionName), '$print_message'(help, VersionName),

9
pl/errors.yap
View File

@ -11,8 +11,13 @@
* File: errors.yap * * File: errors.yap *
* comments: error messages for 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 $ * $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 * Revision 1.76 2006/04/05 00:16:55 vsc
* Lots of fixes (check logfile for details * 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).', []). format(user_error,' Please enter a valid debugger command (h for help).', []).
'$do_print_message'(version(Version)) :- !, '$do_print_message'(version(Version)) :- !,
format(user_error,'YAP version ~a', [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) :- !, '$do_print_message'(yes) :- !,
format(user_error, 'yes', []). format(user_error, 'yes', []).
'$do_print_message'(Messg) :- '$do_print_message'(Messg) :-