! Copyright (C) 2009 Matthew Willis.
! See http://factorcode.org/license.txt for BSD license.
-USING: alien.libraries alien.syntax system sequences combinators kernel ;
+USING: alien alien.libraries alien.syntax system sequences combinators kernel alien.c-types ;
IN: llvm.core
TYPEDEF: uint unsigned
TYPEDEF: unsigned enum
-CONSTANT: LLVMZExtAttribute BIN: 1
-CONSTANT: LLVMSExtAttribute BIN: 10
-CONSTANT: LLVMNoReturnAttribute BIN: 100
-CONSTANT: LLVMInRegAttribute BIN: 1000
-CONSTANT: LLVMStructRetAttribute BIN: 10000
-CONSTANT: LLVMNoUnwindAttribute BIN: 100000
-CONSTANT: LLVMNoAliasAttribute BIN: 1000000
-CONSTANT: LLVMByValAttribute BIN: 10000000
-CONSTANT: LLVMNestAttribute BIN: 100000000
-CONSTANT: LLVMReadNoneAttribute BIN: 1000000000
-CONSTANT: LLVMReadOnlyAttribute BIN: 10000000000
-TYPEDEF: enum LLVMAttribute;
-
-C-ENUM:
+ENUM: LLVMAttribute
+ { LLVMZExtAttribute 0b1 }
+ { LLVMSExtAttribute 0b10 }
+ { LLVMNoReturnAttribute 0b100 }
+ { LLVMInRegAttribute 0b1000 }
+ { LLVMStructRetAttribute 0b10000 }
+ { LLVMNoUnwindAttribute 0b100000 }
+ { LLVMNoAliasAttribute 0b1000000 }
+ { LLVMByValAttribute 0b10000000 }
+ { LLVMNestAttribute 0b100000000 }
+ { LLVMReadNoneAttribute 0b1000000000 }
+ { LLVMReadOnlyAttribute 0b10000000000 } ;
+
+ENUM: LLVMTypeKind
LLVMVoidTypeKind
LLVMFloatTypeKind
LLVMDoubleTypeKind
LLVMPointerTypeKind
LLVMOpaqueTypeKind
LLVMVectorTypeKind ;
-TYPEDEF: enum LLVMTypeKind
-C-ENUM:
+ENUM: LLVMLinkage
LLVMExternalLinkage
LLVMLinkOnceLinkage
LLVMWeakLinkage
LLVMDLLExportLinkage
LLVMExternalWeakLinkage
LLVMGhostLinkage ;
-TYPEDEF: enum LLVMLinkage
-C-ENUM:
+ENUM: LLVMVisibility
LLVMDefaultVisibility
LLVMHiddenVisibility
LLVMProtectedVisibility ;
-TYPEDEF: enum LLVMVisibility
-
-CONSTANT: LLVMCCallConv 0
-CONSTANT: LLVMFastCallConv 8
-CONSTANT: LLVMColdCallConv 9
-CONSTANT: LLVMX86StdcallCallConv 64
-CONSTANT: LLVMX86FastcallCallConv 65
-TYPEDEF: enum LLVMCallConv
-
-CONSTANT: LLVMIntEQ 32
-CONSTANT: LLVMIntNE 33
-CONSTANT: LLVMIntUGT 34
-CONSTANT: LLVMIntUGE 35
-CONSTANT: LLVMIntULT 36
-CONSTANT: LLVMIntULE 37
-CONSTANT: LLVMIntSGT 38
-CONSTANT: LLVMIntSGE 39
-CONSTANT: LLVMIntSLT 40
-CONSTANT: LLVMIntSLE 41
-TYPEDEF: enum LLVMIntPredicate
-
-C-ENUM:
+
+ENUM: LLVMCallConv
+ { LLVMCCallConv 0 }
+ { LLVMFastCallConv 8 }
+ { LLVMColdCallConv 9 }
+ { LLVMX86StdcallCallConv 64 }
+ { LLVMX86FastcallCallConv 65 } ;
+
+ENUM: LLVMIntPredicate
+ { LLVMIntEQ 32 }
+ { LLVMIntNE 33 }
+ { LLVMIntUGT 34 }
+ { LLVMIntUGE 35 }
+ { LLVMIntULT 36 }
+ { LLVMIntULE 37 }
+ { LLVMIntSGT 38 }
+ { LLVMIntSGE 39 }
+ { LLVMIntSLT 40 }
+ { LLVMIntSLE 41 } ;
+
+ENUM: LLVMRealPredicate
LLVMRealPredicateFalse
LLVMRealOEQ
LLVMRealOGT
LLVMRealULE
LLVMRealUNE
LLVMRealPredicateTrue ;
-TYPEDEF: enum LLVMRealPredicate
! Opaque Types