Back to Questions
677
views1
comment
How to make enum cast?
f#

Hi!

My fault if question is dummy. I'd like to create generic operation for enums. How to make this more pretty?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

 

type SomeEnum = 
    | A  = 0x1
    | B  = 0x2
    | D  = 0x4
    | AB = 0x3

type DummyEnum = 
    | Dddd = 0x123

let (&&&?) (enum1:Enum) (enum2:Enum) = 
        let j1 = enum1 :?> DummyEnum
        let j2 = enum2 :?> DummyEnum
        j1 &&& j2 = j2
.

Saw source code. Nice:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

 

        let inline (&&&) (x: ^T) (y: ^T) : ^T = 
             (^T: (static member (&&&) : ^T * ^T -> ^T) (x,y))
             when ^T : int32      = (# "and" x y : int32 #)
             when ^T : int64      = (# "and" x y : int64 #)
             when ^T : uint64     = (# "and" x y : uint64 #)
             when ^T : uint32     = (# "and" x y : uint32 #)
             when ^T : int16      = (# "and" x y : int16 #)
             when ^T : uint16     = (# "and" x y : uint16 #)
             when ^T : nativeint  = (# "and" x y : nativeint #)
             when ^T : unativeint = (# "and" x y : unativeint #)
             when ^T : sbyte      = (# "and" x y : sbyte #)
             when ^T : byte       = (# "and" x y : byte #)

Is this the only way: using msil and all integer matching?

By on 6/2/2009 11:18 AM ()

    Topic tags

    IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
    Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy     		Built with WebSharper