root/trunk/configs/qphook.ql

Revision 4572, 0.9 KB (checked in by pmoura, 2 weeks ago)

Updated the Logtalk version number to 2.33.3 in preparation for the next release.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2%
3%  Logtalk - Open source object-oriented logic programming language
4%  Release 2.33.3
5%
6%  Copyright (c) 1998-2008 Paulo Moura.        All Rights Reserved.
7%  Logtalk is free software.  You can redistribute it and/or modify
8%  it under the terms of the "Artistic License 2.0" as published by
9%  The Perl Foundation. Consult the "LICENSE.txt" file for details.
10%
11%
12%  integration code for Qu-Prolog 7.1 and later versions
13%  used when generating a new interpreter that embeds Logtalk
14%
15%  last updated: February 20, 2006
16%
17%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18
19
20main(Args) :-
21    current_prolog_flag(version, Version),
22    (   process_symbol(_), member('gui', Args) ->
23        global_state_set('$gui_state', gui),
24        start_thread_gui
25    ;   global_state_set('$gui_state', dumb)
26    ),
27    write_term_list([wa('Qu-Prolog '), w(Version), nl]),
28    interpreter.
Note: See TracBrowser for help on using the browser.