Author: paultcochrane
Date: Sun Sep 30 14:54:10 2007
New Revision: 21687
Modified:
trunk/languages/tcl/src/pmc/tcllist.pmc
trunk/languages/tcl/src/pmc/tclstring.pmc
Log:
[tcl] Shortening lines to conform to coding standards.
Modified: trunk/languages/tcl/src/pmc/tcllist.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tcllist.pmc (original)
+++ trunk/languages/tcl/src/pmc/tcllist.pmc Sun Sep 30 14:54:10 2007
@@ -106,20 +106,34 @@
P0 = pmc_new(INTERP, enum_class_String);
VTABLE_set_string_native(INTERP, P0, str);
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,"\\"), string_from_literal(INTERP,"\\\\"));
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,"\t"), string_from_literal(INTERP,"\\t"));
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,"\f"), string_from_literal(INTERP,"\\f"));
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,"\n"), string_from_literal(INTERP,"\\n"));
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,"\r"), string_from_literal(INTERP,"\\r"));
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,"\v"), string_from_literal(INTERP,"\\v"));
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,";"), string_from_literal(INTERP,"\\;"));
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,"$"), string_from_literal(INTERP,"\\$"));
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,"}"), string_from_literal(INTERP,"\\}"));
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,"{"), string_from_literal(INTERP,"\\{"));
- Parrot_String_nci_replace(INTERP, P0, string_from_literal(INTERP,"
"), string_from_literal(INTERP,"\\ "));
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,"["), string_from_literal(INTERP,"\\["));
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,"]"), string_from_literal(INTERP,"\\]"));
- Parrot_String_nci_replace(INTERP, P0,
string_from_literal(INTERP,"\""), string_from_literal(INTERP,"\\\""));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,"\\"),
string_from_literal(INTERP,"\\\\"));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,"\t"),
string_from_literal(INTERP,"\\t"));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,"\f"),
string_from_literal(INTERP,"\\f"));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,"\n"),
string_from_literal(INTERP,"\\n"));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,"\r"),
string_from_literal(INTERP,"\\r"));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,"\v"),
string_from_literal(INTERP,"\\v"));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,";"),
string_from_literal(INTERP,"\\;"));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,"$"),
string_from_literal(INTERP,"\\$"));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,"}"),
string_from_literal(INTERP,"\\}"));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,"{"),
string_from_literal(INTERP,"\\{"));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP," "),
string_from_literal(INTERP,"\\ "));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,"["),
string_from_literal(INTERP,"\\["));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,"]"),
string_from_literal(INTERP,"\\]"));
+ Parrot_String_nci_replace(INTERP, P0,
+ string_from_literal(INTERP,"\""),
string_from_literal(INTERP,"\\\""));
str = VTABLE_get_string(INTERP, P0);
goto append_elem;
Modified: trunk/languages/tcl/src/pmc/tclstring.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tclstring.pmc (original)
+++ trunk/languages/tcl/src/pmc/tclstring.pmc Sun Sep 30 14:54:10 2007
@@ -62,7 +62,9 @@
I0 = CHARSET_FIND_CCLASS(INTERP, enum_cclass_whitespace,
str, I1, I0);
I0 = I0 - I1;
S0 = string_substr(INTERP, str, I1, I0, &S0, 0);
- real_exception(INTERP, NULL, 1, "list element in braces
followed by \"%s\" instead of space", string_to_cstring(INTERP, S0));
+ real_exception(INTERP, NULL, 1,
+ "list element in braces followed by \"%s\" instead
of space",
+ string_to_cstring(INTERP, S0));
}
found_close_bracket:
@@ -144,7 +146,9 @@
I0 = CHARSET_FIND_CCLASS(INTERP, enum_cclass_whitespace, str, I1,
I0);
I0 = I0 - I1;
S0 = string_substr(INTERP, str, I1, I0, &S0, 0);
- real_exception(INTERP, NULL, 1, "list element in quotes followed
by \"%s\" instead of space", string_to_cstring(INTERP, S0));
+ real_exception(INTERP, NULL, 1,
+ "list element in quotes followed by \"%s\" instead of
space",
+ string_to_cstring(INTERP, S0));
}
