richhickey / gist:377213

Created April 23, 2010


    
    View gist:377213 
  
  
      gistfile1.clj
    
    
        Raw
      
    
    File suppressed. Click to show.
  
  
            1
            2
            3
            4
            5
            6
            7
            8
            9
            10
            11
            12
            13
            14
            15
            16
            17
            18
            19
            20
            21
            22
            23
            24
            25
            26
            27
            28
            29
            30
            31
            32
            33
            34
            35
          
          
            ;annotation syntax
 
(import [java.lang.annotation Retention RetentionPolicy Target ElementType]
        [javax.xml.ws WebServiceRef WebServiceRefs])
(definterface Foo (foo []))
 
;annotation on type
(deftype ^{Deprecated true 
            Retention RetentionPolicy/RUNTIME 
            javax.annotation.processing.SupportedOptions ["foo" "bar" "baz"]
            javax.xml.ws.soap.Addressing {:enabled false :required true}
            WebServiceRefs [(WebServiceRef {:name "fred" :type String}) 
                            (WebServiceRef {:name "ethel" :mappedName "lucy"})]} 
  Bar [^int a 
       ;on field
       ^{:tag int
          Deprecated true 
          Retention RetentionPolicy/RUNTIME 
          javax.annotation.processing.SupportedOptions ["foo" "bar" "baz"]
          javax.xml.ws.soap.Addressing {:enabled false :required true}
          WebServiceRefs [(WebServiceRef {:name "fred" :type String}) 
                          (WebServiceRef {:name "ethel" :mappedName "lucy"})]} 
       b]
  ;on method
  Foo (^{Deprecated true 
          Retention RetentionPolicy/RUNTIME 
          javax.annotation.processing.SupportedOptions ["foo" "bar" "baz"]
          javax.xml.ws.soap.Addressing {:enabled false :required true}
          WebServiceRefs [(WebServiceRef {:name "fred" :type String}) 
                          (WebServiceRef {:name "ethel" :mappedName "lucy"})]}
       foo [this] 42))
 
(seq (.getAnnotations Bar))
(seq (.getAnnotations (.getField Bar "b")))
(seq (.getAnnotations (.getMethod Bar "foo" nil)))