Changeset 3887 for src/Pugs/Types.hs

Timestamp:

05/26/05 02:17:16 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5477

Message:

* Method invocation into Perl 5 now carries the current

context around.

Files:

• src/Pugs/Types.hs (modified) (1 diff)

src/Pugs/Types.hs

@@ -75 +75 @@
 isVoidCxt   _             = False
 
+-- |Return the Perl 5 calling convention bit value for the context
+enumCxt :: (Num a) => Cxt -> a
+enumCxt CxtVoid       = 128
+enumCxt (CxtItem _)   = 0
+enumCxt (CxtSlurpy _) = 1
+
 -- |Make a type value representing the type with the specified name.
 -- Recognises conjunctive (&) and disjunctive (|) types.