Changeset 13801 for src/Pugs/AST.hs

Timestamp:

10/03/06 11:41:18 (2 years ago)

Author:

audreyt

Message:

* Move typeOfParam into Pugs.AST.

This is used in the previous commits to implement class-wide
attributes with accessors, namely "class C { my $.x }".

Files:

• src/Pugs/AST.hs (modified) (2 diffs)

src/Pugs/AST.hs

@@ -18 +18 @@
     mergeStmts, isEmptyParams,
     newPackage, newType, newMetaType, typeMacro, isScalarLValue,
-    filterPrim, filterUserDefinedPad,
+    filterPrim, filterUserDefinedPad, typeOfParam,
 
     module Pugs.AST.Internals,
@@ -337 +337 @@
     "$*OUT $*ERR $*ARGS $/ %*ENV $*CWD @=POD $=POD $?PUGS_VERSION " ++
     "$*OS &?BLOCK_EXIT %?CONFIG $*_ $*AUTOLOAD $*PUGS_VERSION"
+
+typeOfParam :: Param -> Type
+typeOfParam p = case v_sigil (paramName p) of
+    SScalar -> typeOfCxt (paramContext p)
+    s       -> typeOfSigil s
+
+