Changeset 6793 for src/Pugs/Class.hs

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.

Files:

• src/Pugs/Class.hs (modified) (4 diffs)

src/Pugs/Class.hs

@@ -170 +170 @@
   Package := MetaClass where clsName = "Package"
   Package.clsProperties =
-        { pkgName = MetaProperty { type = Symbol } 
-        , pkgIsGlobal = MetaProperty { type = Bool  }
-        , pkgStash = MetaProperty { type = Map (sigil, Symbol) Object }
-        }
+        { pkgName = MetaProperty { type = Symbol } 
+        , pkgIsGlobal = MetaProperty { type = Bool  }
+        , pkgStash = MetaProperty { type = Map (sigil, Symbol) Object }
+        }
 
   -- Package->has_many("pkgChildren" => Package)
   -- Package->maybe_has_one("pkgParent" => Package)
   Package.clsCats =
-        { pkgChildren = 
+        { pkgChildren = 
               (Public, MetaAssoc
                 { catIsComposite = true,
@@ -188 +188 @@
                   },
                 })
-        }
+        }
 
 {-
@@ -207 +207 @@
   Module := MetaClass where clsName = "Module"
   Module.clsProperties =
-        { modVersion = MetaProperty { type = Version }
-        , modAuthorizer = MetaProperty { type = String }
-        }
+        { modVersion = MetaProperty { type = Version }
+        , modAuthorizer = MetaProperty { type = String }
+        }
 
   Module.clsMethods =
-        { modName = MetaMethod
-              { methodInvoke = ( self.pkgName
+        { modName = MetaMethod
+              { methodInvoke = ( self.pkgName
                                ~ "-" ~ self.modVersion
-                               ~ "-" ~ self.modAuthorizer ) }
-        }
+                               ~ "-" ~ self.modAuthorizer ) }
+        }
 
   Module.clsAssocs =
-        { modTraits = (Public, MetaAssoc
+        { modTraits = (Public, MetaAssoc
                       { catIsComposite = true,
                         catRange = (Zero, Many),
@@ -228 +228 @@
                                        catRange = (One, One) } ),
                       })
-        }
+        }
   
   Class := MetaClass where clsName = "Class"