Changeset 4580 for trunk/compiler

Timestamp:

11/07/08 16:33:23 (2 months ago)

Author:

pmoura

Message:

Added a "prolog" read-only compiler flag whose value is the name of the back-end Prolog compiler (an atom). This flag can be used for conditional compilation of Prolog specific code.

Files:

• trunk/compiler/logtalk.pl (modified) (4 diffs)

trunk/compiler/logtalk.pl

@@ -12016 +12016 @@
 '$lgt_valid_flag'(debug).
 % read-only compilation flags:
+'$lgt_valid_flag'(prolog).
 '$lgt_valid_flag'(startup_message).
 '$lgt_valid_flag'(version).
@@ -12031 +12032 @@
 % true if the argument is a read only Logtalk flag name
 
+'$lgt_read_only_flag'(prolog).
 '$lgt_read_only_flag'(startup_message).
 '$lgt_read_only_flag'(break_predicate).
@@ -14128 +14130 @@
     '$lgt_default_flag'(tmpdir, TmpDir), write(', tmpdir: '), write(TmpDir), nl,
     write('Read-only compilation flags:'), nl,
-    '$lgt_default_flag'(break_predicate, Break), write('  break_predicate: '), write(Break),
-    '$lgt_default_flag'(startup_message, Startup), write(', startup_message: '), write(Startup),
-    '$lgt_default_flag'(altdirs, Altdirs), write(', altdirs: '), write(Altdirs), nl,
-    '$lgt_default_flag'(context_switching_calls, ContextCalls), write('  context_switching_calls: '), write(ContextCalls),
+    '$lgt_default_flag'(prolog, Prolog), write('  prolog: '), write(Prolog),
+    '$lgt_default_flag'(break_predicate, Break), write(', break_predicate: '), write(Break),
+    '$lgt_default_flag'(startup_message, Startup), write(', startup_message: '), write(Startup), nl,
+    '$lgt_default_flag'(altdirs, Altdirs), write('  altdirs: '), write(Altdirs),
+    '$lgt_default_flag'(context_switching_calls, ContextCalls), write(', context_switching_calls: '), write(ContextCalls),
      '$lgt_default_flag'(threads, Threads), write(', threads: '), write(Threads), nl,
     '$lgt_default_flag'(encoding_directive, Encodings), write('  encoding_directive: '), write(Encodings),
@@ -14187 +14190 @@
     write('  Directory for compiler generated temporary files (tmpdir):  '), write(TmpDir), nl,
     write('Read-only compilation flags:'), nl,
+    '$lgt_default_flag'(prolog, Prolog),
+    write('  Name of the back-end Prolog compiler (prolog):              '), write(Prolog), nl,
     '$lgt_default_flag'(break_predicate, Break),
     write('  Support for break/0 predicate (break_predicate):            '), write(Break), nl,