LibraryFunction.hsc

{-# LANGUAGE
  MultiParamTypeClasses
 #-}
module LLVM.Internal.LibraryFunction where

import LLVM.Prelude

import qualified LLVM.Internal.FFI.LLVMCTypes as FFI

import LLVM.Internal.Coding

#include "LLVM/Internal/FFI/LibFunc.h"

#{
define hsc_inject(m) { \
  struct { const char *s; unsigned n; } *p, list[] = { LLVM_HS_FOR_EACH_LIB_FUNC(m) }; \
  hsc_printf("data LibraryFunction\n"); \
  for(p = list; p < list + sizeof(list)/sizeof(list[0]); ++p) { \
    hsc_printf("  %s LF__%s\n", (p == list ? "=" : "|"), p->s); \
  } \
  hsc_printf("  deriving (Eq, Ord, Enum, Bounded, Read, Show)"); \
  hsc_printf("\n"); \
  hsc_printf("instance Monad m => EncodeM m LibraryFunction FFI.LibFunc where\n"); \
  for(p = list; p < list + sizeof(list)/sizeof(list[0]); ++p) { \
    hsc_printf("  encodeM LF__%s = return (FFI.LibFunc %u)\n", p->s, p->n); \
  } \
  hsc_printf("\n"); \
  hsc_printf("instance Monad m => DecodeM m LibraryFunction FFI.LibFunc where\n"); \
  for(p = list; p < list + sizeof(list)/sizeof(list[0]); ++p) { \
    hsc_printf("  decodeM (FFI.LibFunc %u) = return LF__%s \n", p->n, p->s); \
  } \
  hsc_printf("  decodeM f = error (\"Unknown libfunc: \" <> show f)\n"); \
}
}

-- | <http://llvm.org/doxygen/namespacellvm_1_1LibFunc.html#abf8f6830387f338fed0bce2e65108c6f>
#define Mac(n) { #n, LLVMLibFunc__ ## n },
#{inject Mac}