debug_output can return a string 32, so avoid truncated unicode value by returning a string 32 value for `debug_output' .

This commit is contained in:
2014-05-14 09:59:29 +02:00
parent bb11c24681
commit ca6ccc7291
4 changed files with 19 additions and 16 deletions

View File

@@ -40,20 +40,23 @@ feature -- Access
feature -- Status report feature -- Status report
debug_output: STRING debug_output: READABLE_STRING_GENERAL
-- String that should be displayed in debugger to represent `Current'. -- String that should be displayed in debugger to represent `Current'.
local
s: STRING_32
do do
create Result.make_from_string (mapping.debug_output) create s.make_from_string_general (mapping.debug_output)
if attached request_methods as mtds then if attached request_methods as mtds then
Result.append_string (" [ ") s.append_string (" [ ")
across across
mtds as c mtds as c
loop loop
Result.append_string (c.item) s.append_string (c.item)
Result.append_string (" ") s.append_string (" ")
end end
Result.append_string ("]") s.append_string ("]")
end end
Result := s
end end
feature -- Change feature -- Change
@@ -68,7 +71,7 @@ invariant
mapping_attached: mapping /= Void mapping_attached: mapping /= Void
note note
copyright: "2011-2012, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Eiffel Software and others" copyright: "2011-2014, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -48,10 +48,10 @@ feature -- Documentation
feature -- Status report feature -- Status report
debug_output: STRING debug_output: READABLE_STRING_GENERAL
-- String that should be displayed in debugger to represent `Current'. -- String that should be displayed in debugger to represent `Current'.
do do
Result := description.as_string_8 + " : " + associated_resource Result := description + {STRING_32} " : " + associated_resource.to_string_32
end end
feature -- Status feature -- Status
@@ -88,7 +88,7 @@ feature -- Helper
end end
note note
copyright: "2011-2013, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Eiffel Software and others" copyright: "2011-2014, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -45,14 +45,14 @@ feature {NONE} -- Execution
feature -- Status report feature -- Status report
debug_output: STRING debug_output: READABLE_STRING_GENERAL
-- String that should be displayed in debugger to represent `Current'. -- String that should be displayed in debugger to represent `Current'.
do do
Result := Precursor + " {" + ({C}).name + "}" Result := Precursor + " {" + ({C}).name + "}"
end end
note note
copyright: "2011-2012, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Eiffel Software and others" copyright: "2011-2014, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software

View File

@@ -22,14 +22,14 @@ feature -- Access
feature -- Status report feature -- Status report
debug_output: STRING debug_output: READABLE_STRING_GENERAL
-- String that should be displayed in debugger to represent `Current'. -- String that should be displayed in debugger to represent `Current'.
do do
Result := Precursor + " {" + ({C}).name + "}" Result := Precursor + " {" + ({C}).name + "}"
end end
note note
copyright: "2011-2012, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Eiffel Software and others" copyright: "2011-2014, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[ source: "[
Eiffel Software Eiffel Software