Changeset 4543 for trunk/configs

Timestamp:

10/28/08 15:58:54 (2 months ago)

Author:

pmoura

Message:

Updated the Logtalk built-in debugger to accept the return and enter keys as alternatives to the "c" key ("creep") when tracing.

Location:

trunk/configs

Files:

• b.config (modified) (2 diffs)
• ciao_aux.config (modified) (2 diffs)
• cx.config (modified) (2 diffs)
• k6.config (modified) (2 diffs)
• qu.config (modified) (2 diffs)
• sicstus3.config (modified) (2 diffs)
• sicstus4.config (modified) (2 diffs)
• xsb.config (modified) (2 diffs)

trunk/configs/b.config

@@ -12 +12 @@
 %  configuration file for B-Prolog 7.1
 %
-%  last updated: October 20, 2008
+%  last updated: October 28, 2008
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -405 +405 @@
 
 '$lgt_read_single_char'(Char) :-
-    get_char(Char),
-    (   peek_code(10) ->    % hack to workaround the lack of built-in
+    get_code(Code), char_code(Char, Code),
+    (   Code =:= 10 ->
+        true
+    ;   peek_code(10) ->    % hack to workaround the lack of built-in
         get_code(_)         % support for unbuffered character input
     ;   true

trunk/configs/ciao_aux.config

@@ -12 +12 @@
 %  configuration file for CIAO Prolog 1.8p2 and later versions
 %
-%  last updated: October 20, 2008
+%  last updated: October 28, 2008
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -485 +485 @@
 
 '$lgt_read_single_char'(Char) :-
-    get_char(Char),
-    (   peek_code(10) ->    % hack to workaround the lack of built-in
+    get_code(Code), char_code(Char, Code),
+    (   Code =:= 10 ->
+        true
+    ;   peek_code(10) ->    % hack to workaround the lack of built-in
         get_code(_)         % support for unbuffered character input
     ;   true

trunk/configs/cx.config

@@ -12 +12 @@
 %  configuration file for CxProlog 0.97.2 or a later version
 %
-%  last updated: October 20, 2008
+%  last updated: October 28, 2008
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -428 +428 @@
 
 '$lgt_read_single_char'(Char) :-
-    get(Code),
-    atom_codes(Char, [Code]),
-    (   peek_code(10) ->    % hack to workaround the lack of built-in
-        get_code(_)         % support for unbuffered character input
-    ;   true
+    get_single_char(Code), put_code(Code), char_code(Char, Code),
+    (   Code =:= 10 ->
+        true
+    ;   nl
     ).
 

trunk/configs/k6.config

@@ -12 +12 @@
 %  configuration file for K-Prolog 6.0.4 and later versions
 %
-%  last updated: October 20, 2008
+%  last updated: October 28, 2008
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -408 +408 @@
 
 '$lgt_read_single_char'(Char) :-
-    get(Code), char_code(Char, Code).
+    get_code(Code), char_code(Char, Code),
+    (   Code =:= 10 ->
+        true
+    ;   peek_code(10) ->    % hack to workaround the lack of built-in
+        get_code(_)         % support for unbuffered character input
+    ;   true
+    ).
 
 

trunk/configs/qu.config

@@ -12 +12 @@
 %  configuration file for Qu-Prolog 8.1
 %
-%  last updated: October 20, 2008
+%  last updated: October 28, 2008
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -409 +409 @@
 
 '$lgt_read_single_char'(Char) :-
-    flush_output, get_char(Char), skip(10).
+    flush_output, get_code(Code), char_code(Char, Code),
+    (   Code =:= 10 ->
+        true
+    ;   skip(10)
+    ).
 
 

trunk/configs/sicstus3.config

@@ -12 +12 @@
 %  configuration file for SICStus Prolog 3.8 and later versions
 %
-%  last updated: October 20, 2008
+%  last updated: October 28, 2008
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -417 +417 @@
 
 '$lgt_read_single_char'(Char) :-
-    get_char(Char),
-    (   peek_code(10) ->    % hack to workaround the lack of built-in
+    get_code(Code), char_code(Char, Code),
+    (   Code =:= 10 ->
+        true
+    ;   peek_code(10) ->    % hack to workaround the lack of built-in
         get_code(_)         % support for unbuffered character input
     ;   true

trunk/configs/sicstus4.config

@@ -12 +12 @@
 %  configuration file for SICStus Prolog 4.0 and later versions
 %
-%  last updated: October 20, 2008
+%  last updated: October 28, 2008
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -407 +407 @@
 
 '$lgt_read_single_char'(Char) :-
-    get_char(Char),
-    (   peek_code(10) ->    % hack to workaround the lack of built-in
+    get_code(Code), char_code(Char, Code),
+    (   Code =:= 10 ->
+        true
+    ;   peek_code(10) ->    % hack to workaround the lack of built-in
         get_code(_)         % support for unbuffered character input
     ;   true

trunk/configs/xsb.config

@@ -12 +12 @@
 %  configuration file for XSB 3.1 or later version
 %
-%  last updated: October 20, 2008
+%  last updated: October 28, 2008
 %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -423 +423 @@
 
 '$lgt_read_single_char'(Char) :-
-    get_char(Char),
-    (   peek_code(10) ->    % hack to workaround the lack of built-in
+    get_code(Code), char_code(Char, Code),
+    (   Code =:= 10 ->
+        true
+    ;   peek_code(10) ->    % hack to workaround the lack of built-in
         get_code(_)         % support for unbuffered character input
     ;   true