Changeset 6793 for src/perl5

Timestamp:

09/06/05 14:11:41 (3 years ago)

Author:

autrijus

Message:

* massive retab for src/, expanding all tabs into spaces,

except for the generated PIL1.hs.

Location:

src/perl5

Files:

• perl5.c (modified) (9 diffs)
• perlxsi.c (modified) (1 diff)
• pugsembed.c (modified) (2 diffs)

src/perl5/perl5.c

@@ -61 +61 @@
 
 "sub TIEARRAY {\n"
-"       my ($class, $val) = @_;\n"
-"       bless \\$val, $class; }\n\n"
+"       my ($class, $val) = @_;\n"
+"       bless \\$val, $class; }\n\n"
 
 "sub STORE {\n"
-"       my ($self, $index, $elem) = @_;\n"
+"       my ($self, $index, $elem) = @_;\n"
 oRZ"    warn 'store! '.$elem;\n"
 "       pugs::guts::eval_apply('sub ($x is rw, $y, $z) { $x[$y] = $z;\n"
@@ -72 +72 @@
 
 "sub PUSH {\n"
-"       my ($self, $elem) = @_;\n"
+"       my ($self, $elem) = @_;\n"
 "       pugs::guts::eval_apply('sub ($x is rw, $z) { $x.push($z);\n"
 oRZ"                                                 warn $x\n"
@@ -78 +78 @@
 
 "sub FETCHSIZE {\n"
-"       my ($self) = @_;\n"
+"       my ($self) = @_;\n"
 "       my $ret = pugs::guts::invoke('elems', $$self); \n"
 oRZ"    warn 'FETCHSIZE: '.$ret;\n"
@@ -84 +84 @@
 
 "sub EXISTS {\n"
-"       my ($self, $index) = @_;\n"
+"       my ($self, $index) = @_;\n"
 "       pugs::guts::eval_apply('sub ($x, $y) { $x.exists($y) }', $$self, $index) }\n"
 
 "sub FETCH {\n"
-"       my ($self, $index) = @_;\n"
+"       my ($self, $index) = @_;\n"
 oRZ"    warn 'FETCH: '.$index;\n"
 "       pugs::guts::eval_apply('sub ($x, $y) { $x.[$y] }', $$self, $index) }\n"
@@ -99 +99 @@
 
 "sub TIEHASH {\n"
-"       my ($class, $val) = @_;\n"
-"       bless [$val,0], $class; }\n\n"
+"       my ($class, $val) = @_;\n"
+"       bless [$val,0], $class; }\n\n"
 
 "sub FIRSTKEY {\n"
-"       my ($self) = @_;\n"
+"       my ($self) = @_;\n"
 "       my $ret = pugs::guts::invoke('keys', $self->[0]); \n"
 oRZ"       warn $ret;\n"
-"       $self->[1] = 0; $self->[2] = $ret;"
+"       $self->[1] = 0; $self->[2] = $ret;"
 "       $self->NEXTKEY; }\n"
 
 "sub NEXTKEY {\n"
-"       my ($self) = @_;\n"
-"       return undef if $self->[1] > $#{$self->[2]};"
+"       my ($self) = @_;\n"
+"       return undef if $self->[1] > $#{$self->[2]};"
 "       $self->[2]->[$self->[1]++]; }"
 
@@ -129 +129 @@
     sv = ST(0);
     if (sv_isa(sv, "pugs")) {
-        val = pugs_SvToVal(ST(0));
+        val = pugs_SvToVal(ST(0));
     }
     else {
-        char *method, *fullname;
-        fullname = SvPV_nolen(sv);
-        method = strrchr(fullname, ':');
-        method = method ? method+1 : fullname;
-        val = pugs_PvToVal(method);
+        char *method, *fullname;
+        fullname = SvPV_nolen(sv);
+        method = strrchr(fullname, ':');
+        method = method ? method+1 : fullname;
+        val = pugs_PvToVal(method);
     }
     inv = SvOK(ST(1)) ? pugs_SvToVal(ST(1)) : NULL;
@@ -142 +142 @@
     stack = (Val **)malloc(sizeof(Val*)*items-1);
     for (i = 2; i < items; ++i) {
-        stack[i-2] = pugs_SvToVal(ST(i));
+        stack[i-2] = pugs_SvToVal(ST(i));
     }
     stack[i-2] = NULL;
@@ -167 +167 @@
     for (i = 1; i < items; ++i) {
 #if PERL5_EMBED_DEBUG
-        fprintf(stderr, "put into stack: %s\n", SvPV_nolen(ST(i)));
-#endif
-        stack[i-1] = pugs_SvToVal(ST(i));
+        fprintf(stderr, "put into stack: %s\n", SvPV_nolen(ST(i)));
+#endif
+        stack[i-1] = pugs_SvToVal(ST(i));
     }
     stack[i-1] = NULL;
@@ -265 +265 @@
 
     if (exitstatus == 0)
-        exitstatus = perl_run( my_perl );
+        exitstatus = perl_run( my_perl );
 
     __init = 1;

src/perl5/perlxsi.c

@@ -9 +9 @@
 xs_init(pTHX)
 {
-        char *file = __FILE__;
-        dXSUB_SYS;
+        char *file = __FILE__;
+        dXSUB_SYS;
 
-        /* DynaLoader is a special case */
-        newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
+        /* DynaLoader is a special case */
+        newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
 }

src/perl5/pugsembed.c

@@ -22 +22 @@
 
     if (!__init) {
-        fprintf(stderr, "MkValRef called before perl_init.\n");
+        fprintf(stderr, "MkValRef called before perl_init.\n");
     }
 
@@ -32 +32 @@
 #endif
     if (SvTRUE( type )) {
-        SV **rv;
-        stack[0] = type;
-        stack[1] = NULL;
-        rv = perl5_apply(newSVpv("can", 0), newSVpv("pugs::guts", 0), stack, NULL, G_SCALAR);
-        if (SvTRUE( rv[0] )) {
-            stack[0] = sv;
-            rv = perl5_apply(type, newSVpv("pugs::guts", 0), stack, NULL, G_SCALAR);
-            sv = rv[0];
-        }
-        else {
-            /* for scalar ref, should still turn into tied one */
+        SV **rv;
+        stack[0] = type;
+        stack[1] = NULL;
+        rv = perl5_apply(newSVpv("can", 0), newSVpv("pugs::guts", 0), stack, NULL, G_SCALAR);
+        if (SvTRUE( rv[0] )) {
+            stack[0] = sv;
+            rv = perl5_apply(type, newSVpv("pugs::guts", 0), stack, NULL, G_SCALAR);
+            sv = rv[0];
+        }
+        else {
+            /* for scalar ref, should still turn into tied one */
 #if PERL5_EMBED_DEBUG
-            fprintf(stderr, "unknown type\n");
+            fprintf(stderr, "unknown type\n");
 #endif
-        }
+        }
     }