Author: paultcochrane
Date: Sat Mar 31 07:41:44 2007
New Revision: 17896
Modified:
trunk/languages/tcl/src/binary.c
trunk/languages/tcl/src/ops/tcl.ops
trunk/languages/tcl/src/pmc/tclarray.pmc
trunk/languages/tcl/src/pmc/tcldict.pmc
trunk/languages/tcl/src/pmc/tclfloat.pmc
trunk/languages/tcl/src/pmc/tclint.pmc
trunk/languages/tcl/src/pmc/tcllist.pmc
trunk/languages/tcl/src/pmc/tclobject.pmc
Log:
[tcl] Corrected parenthesis-space issues as per coding standards.
Modified: trunk/languages/tcl/src/binary.c
==============================================================================
--- trunk/languages/tcl/src/binary.c (original)
+++ trunk/languages/tcl/src/binary.c Sat Mar 31 07:41:44 2007
@@ -58,7 +58,7 @@
break;
/* a double */
case 'd':
- len = sizeof(double)/sizeof(char);
+ len = sizeof (double)/sizeof (char);
if (pos + len > length)
break;
d = (double *)(binstr + pos);
@@ -68,7 +68,7 @@
break;
/* a float */
case 'f':
- len = sizeof(float)/sizeof(char);
+ len = sizeof (float)/sizeof (char);
if (pos + len > length)
break;
f = (float *)(binstr + pos);
@@ -78,7 +78,7 @@
break;
/* a native int */
case 'n':
- len = sizeof(int)/sizeof(char);
+ len = sizeof (int)/sizeof (char);
if (pos + len > length)
break;
n = (int *)(binstr + pos);
@@ -302,19 +302,19 @@
/* a double */
case 'd':
d = (double)VTABLE_get_number(interp, value);
- len = sizeof(double)/sizeof(char);
+ len = sizeof (double)/sizeof (char);
binstr = string_concat(interp, binstr, string_from_cstring(interp,
&d, len), 0);
break;
/* a float */
case 'f':
f = (float)VTABLE_get_number(interp, value);
- len = sizeof(float)/sizeof(char);
+ len = sizeof (float)/sizeof (char);
binstr = string_concat(interp, binstr, string_from_cstring(interp,
&f, len), 0);
break;
/* a native integer */
case 'n':
n = (int)VTABLE_get_integer(interp, value);
- len = sizeof(int)/sizeof(char);
+ len = sizeof (int)/sizeof (char);
binstr = string_concat(interp, binstr, string_from_cstring(interp,
&n, len), 0);
break;
}
Modified: trunk/languages/tcl/src/ops/tcl.ops
==============================================================================
--- trunk/languages/tcl/src/ops/tcl.ops (original)
+++ trunk/languages/tcl/src/ops/tcl.ops Sat Mar 31 07:41:44 2007
@@ -20,8 +20,8 @@
A dynamic opcode library for tcl on parrot that provides a few opcodes
that simplify PIR generation for tclPIR generation for tcl
-BUGS: pull out the TCL_ constants, as well as the code slot (#9) and the
-message slot (#0)
+BUGS: pull out the TCL_ constants, as well as the code slot(#9) and the
+message slot(#0)
=cut
Modified: trunk/languages/tcl/src/pmc/tclarray.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tclarray.pmc (original)
+++ trunk/languages/tcl/src/pmc/tclarray.pmc Sat Mar 31 07:41:44 2007
@@ -49,7 +49,7 @@
*/
- void class_init () {
+ void class_init() {
if (pass) {
dynpmc_TclString = pmc_type(INTERP,
string_from_const_cstring(INTERP, "TclString", 0));
@@ -66,7 +66,7 @@
*/
- void assign_pmc (PMC *other) {
+ void assign_pmc(PMC *other) {
STRING *hash = string_from_const_cstring(INTERP, "hash", 4);
STRING *undef = string_from_const_cstring(INTERP, "Undef", 5);
Modified: trunk/languages/tcl/src/pmc/tcldict.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tcldict.pmc (original)
+++ trunk/languages/tcl/src/pmc/tcldict.pmc Sat Mar 31 07:41:44 2007
@@ -49,7 +49,7 @@
*/
- void class_init () {
+ void class_init() {
if (pass) {
dynpmc_TclString = pmc_type(INTERP,
string_from_const_cstring(INTERP, "TclString", 0));
@@ -66,11 +66,11 @@
*/
- void set_pmc (PMC *other) {
+ void set_pmc(PMC *other) {
SELF.assign_pmc(other);
}
- void assign_pmc (PMC *other) {
+ void assign_pmc(PMC *other) {
STRING *hash = string_from_const_cstring(INTERP, "hash", 4);
STRING *undef = string_from_const_cstring(INTERP, "Undef", 5);
@@ -107,7 +107,7 @@
*/
- STRING* get_string () {
+ STRING* get_string() {
PMC *dictToString, *namespace;
STRING *_tcl_namespace, *sub, *value;
@@ -120,8 +120,7 @@
CONTEXT(INTERP->ctx)->constants =
PMC_sub(dictToString)->seg->const_table->constants;
- value = Parrot_runops_fromc_args
- (INTERP, dictToString, "SP", SELF);
+ value = Parrot_runops_fromc_args(INTERP, dictToString, "SP", SELF);
return value;
}
Modified: trunk/languages/tcl/src/pmc/tclfloat.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tclfloat.pmc (original)
+++ trunk/languages/tcl/src/pmc/tclfloat.pmc Sat Mar 31 07:41:44 2007
@@ -23,7 +23,7 @@
maps Float
{
- STRING* get_string () {
+ STRING* get_string() {
UINTVAL buflen;
int check_flag;
STRING *buff;
Modified: trunk/languages/tcl/src/pmc/tclint.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tclint.pmc (original)
+++ trunk/languages/tcl/src/pmc/tclint.pmc Sat Mar 31 07:41:44 2007
@@ -25,7 +25,7 @@
* MMD Override:
* TclInt shouldn't automatically promote division to float.
*/
- PMC* divide (PMC* value, PMC* dest) {
+ PMC* divide(PMC* value, PMC* dest) {
MMD_TclInt: {
INTVAL n = PMC_int_val(SELF);
INTVAL d = PMC_int_val(value);
Modified: trunk/languages/tcl/src/pmc/tcllist.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tcllist.pmc (original)
+++ trunk/languages/tcl/src/pmc/tcllist.pmc Sat Mar 31 07:41:44 2007
@@ -61,7 +61,7 @@
*/
- STRING* get_string () {
+ STRING* get_string() {
PMC *listToString, *namespace;
STRING *_tcl_namespace, *sub, *value;
@@ -74,8 +74,7 @@
CONTEXT(INTERP->ctx)->constants =
PMC_sub(listToString)->seg->const_table->constants;
- value = Parrot_runops_fromc_args
- (INTERP, listToString, "SP", SELF);
+ value = Parrot_runops_fromc_args(INTERP, listToString, "SP", SELF);
return value;
}
@@ -89,7 +88,7 @@
*/
- void set_pmc (PMC *other) {
+ void set_pmc(PMC *other) {
VTABLE_assign_pmc(INTERP, SELF, other);
}
@@ -105,7 +104,7 @@
*/
- void assign_pmc (PMC *other) {
+ void assign_pmc(PMC *other) {
STRING *array = string_from_const_cstring(INTERP, "array", 5);
STRING *string = string_from_const_cstring(INTERP, "String", 6);
STRING *undef = string_from_const_cstring(INTERP, "Undef", 5);
Modified: trunk/languages/tcl/src/pmc/tclobject.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tclobject.pmc (original)
+++ trunk/languages/tcl/src/pmc/tclobject.pmc Sat Mar 31 07:41:44 2007
@@ -37,7 +37,7 @@
}
}
- void morph (INTVAL type) {
+ void morph(INTVAL type) {
if (SELF->vtable->base_type == type)
return;
switch (type) {
@@ -54,17 +54,17 @@
pmc_reuse(INTERP, SELF, type, 0);
}
- void set_integer_native (INTVAL value) {
+ void set_integer_native(INTVAL value) {
DYNSELF.morph(dynpmc_TclInt);
PMC_int_val(SELF) = value;
}
- void set_number_native (FLOATVAL value) {
+ void set_number_native(FLOATVAL value) {
DYNSELF.morph(dynpmc_TclFloat);
PMC_num_val(SELF) = value;
}
- void set_string_native (STRING* value) {
+ void set_string_native(STRING* value) {
DYNSELF.morph(dynpmc_TclString);
PMC_str_val(SELF) = string_copy(INTERP, value);
}
