diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,32 @@ +Copyright (c)2011, # Each patch is attributed to its author, usually by email address (for +# example, `Fred Bloggs + +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + + * Redistributions in binary form must reproduce the above + copyright notice, this list of conditions and the following + disclaimer in the documentation and/or other materials provided + with the distribution. + + * Neither the name of # Each patch is attributed to its author, usually by email address (for +# example, `Fred Bloggs nor the names of other + contributors may be used to endorse or promote products derived + from this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT +LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/LibClang.buildinfo.in b/LibClang.buildinfo.in new file mode 100644 --- /dev/null +++ b/LibClang.buildinfo.in @@ -0,0 +1,4 @@ +-- include-dirs: . +-- extra-libraries: clang, LLVM-3.0svn +cc-options: -I. @CFLAGS@ +ld-options: @LDFLAGS@ diff --git a/LibClang.cabal b/LibClang.cabal new file mode 100644 --- /dev/null +++ b/LibClang.cabal @@ -0,0 +1,32 @@ +Name: LibClang +Cabal-version: >= 1.6 +Version: 0.0.2 +Author: Chetan Taralekar +Maintainer: Chetan Taralekar +Homepage: https://github.com/chetant/LibClang/issues +License: BSD3 +License-file: LICENSE +Synopsis: Haskell bindings for libclang (a C++ parsing library) +Description: + LibClang package provides direct bindings to libclang. + This should be enough for parsing C/C++ code, walking the AST and querying nodes and completion queries. + + NOTE .. When configuring, please ensure llvm-config is in path + .. or provide the location of libclang and llvm includes + .. if not in the default locations using --configure-option=-I... + .. You can also use --configure-option=--enable-llvm-shared=LLVMSHAREDLIB_PREFIX + .. if you'd like to link to the shared library +Category: Language +Build-type: Configure +Extra-Source-Files: configure, LibClang.buildinfo.in +Source-Repository head + type: git + location: git://github.com/chetant/LibClang.git + +Library + hs-source-dirs: src + build-depends: base < 5, ffi, greencard + build-tools: greencard + c-sources: src/Clang/FFI_stub_ffi.c + exposed-modules: + Clang, Clang.FFI diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMainWithHooks autoconfUserHooks diff --git a/configure b/configure new file mode 100644 --- /dev/null +++ b/configure @@ -0,0 +1,4419 @@ +#! /bin/sh +# Guess values for system-dependent variables and create Makefiles. +# Generated by GNU Autoconf 2.67 for LibClang 0.0.1. +# +# +# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, +# 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software +# Foundation, Inc. +# +# +# This configure script is free software; the Free Software Foundation +# gives unlimited permission to copy, distribute and modify it. +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +if test "x$CONFIG_SHELL" = x; then + as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which + # is contrary to our usage. Disable this feature. + alias -g '\${1+\"\$@\"}'='\"\$@\"' + setopt NO_GLOB_SUBST +else + case \`(set -o) 2>/dev/null\` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi +" + as_required="as_fn_return () { (exit \$1); } +as_fn_success () { as_fn_return 0; } +as_fn_failure () { as_fn_return 1; } +as_fn_ret_success () { return 0; } +as_fn_ret_failure () { return 1; } + +exitcode=0 +as_fn_success || { exitcode=1; echo as_fn_success failed.; } +as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } +as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } +as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } +if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : + +else + exitcode=1; echo positional parameters were not saved. +fi +test x\$exitcode = x0 || exit 1" + as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO + as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO + eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && + test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 +test \$(( 1 + 1 )) = 2 || exit 1" + if (eval "$as_required") 2>/dev/null; then : + as_have_required=yes +else + as_have_required=no +fi + if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : + +else + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +as_found=false +for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + as_found=: + case $as_dir in #( + /*) + for as_base in sh bash ksh sh5; do + # Try only shells that exist, to save several forks. + as_shell=$as_dir/$as_base + if { test -f "$as_shell" || test -f "$as_shell.exe"; } && + { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : + CONFIG_SHELL=$as_shell as_have_required=yes + if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : + break 2 +fi +fi + done;; + esac + as_found=false +done +$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && + { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : + CONFIG_SHELL=$SHELL as_have_required=yes +fi; } +IFS=$as_save_IFS + + + if test "x$CONFIG_SHELL" != x; then : + # We cannot yet assume a decent shell, so we have to provide a + # neutralization value for shells without unset; and this also + # works around shells that cannot unset nonexistent variables. + BASH_ENV=/dev/null + ENV=/dev/null + (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV + export CONFIG_SHELL + exec "$CONFIG_SHELL" "$as_myself" ${1+"$@"} +fi + + if test x$as_have_required = xno; then : + $as_echo "$0: This script requires a shell more modern than all" + $as_echo "$0: the shells that I found on your system." + if test x${ZSH_VERSION+set} = xset ; then + $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" + $as_echo "$0: be upgraded to zsh 4.3.4 or later." + else + $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, +$0: including any error possibly output before this +$0: message. Then install a modern shell, or manually run +$0: the script under such a shell if you do have one." + fi + exit 1 +fi +fi +fi +SHELL=${CONFIG_SHELL-/bin/sh} +export SHELL +# Unset more variables known to interfere with behavior of common tools. +CLICOLOR_FORCE= GREP_OPTIONS= +unset CLICOLOR_FORCE GREP_OPTIONS + +## --------------------- ## +## M4sh Shell Functions. ## +## --------------------- ## +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + + + as_lineno_1=$LINENO as_lineno_1a=$LINENO + as_lineno_2=$LINENO as_lineno_2a=$LINENO + eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && + test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { + # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) + sed -n ' + p + /[$]LINENO/= + ' <$as_myself | + sed ' + s/[$]LINENO.*/&-/ + t lineno + b + :lineno + N + :loop + s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ + t loop + s/-\n.*// + ' >$as_me.lineno && + chmod +x "$as_me.lineno" || + { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } + + # Don't try to exec as it changes $[0], causing all sort of problems + # (the dirname of $[0] is not the place where we might find the + # original and so on. Autoconf is especially sensitive to this). + . "./$as_me.lineno" + # Exit status is that of the last command. + exit +} + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -p'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -p' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -p' + fi +else + as_ln_s='cp -p' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + +if test -x / >/dev/null 2>&1; then + as_test_x='test -x' +else + if ls -dL / >/dev/null 2>&1; then + as_ls_L_option=L + else + as_ls_L_option= + fi + as_test_x=' + eval sh -c '\'' + if test -d "$1"; then + test -d "$1/."; + else + case $1 in #( + -*)set "./$1";; + esac; + case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( + ???[sx]*):;;*)false;;esac;fi + '\'' sh + ' +fi +as_executable_p=$as_test_x + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +test -n "$DJDIR" || exec 7<&0 &1 + +# Name of the host. +# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, +# so uname gets run too. +ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` + +# +# Initializations. +# +ac_default_prefix=/usr/local +ac_clean_files= +ac_config_libobj_dir=. +LIBOBJS= +cross_compiling=no +subdirs= +MFLAGS= +MAKEFLAGS= + +# Identity of this package. +PACKAGE_NAME='LibClang' +PACKAGE_TARNAME='libclang' +PACKAGE_VERSION='0.0.1' +PACKAGE_STRING='LibClang 0.0.1' +PACKAGE_BUGREPORT='' +PACKAGE_URL='' + +ac_unique_file="src/Clang.hs" +# Factoring default headers for most tests. +ac_includes_default="\ +#include +#ifdef HAVE_SYS_TYPES_H +# include +#endif +#ifdef HAVE_SYS_STAT_H +# include +#endif +#ifdef STDC_HEADERS +# include +# include +#else +# ifdef HAVE_STDLIB_H +# include +# endif +#endif +#ifdef HAVE_STRING_H +# if !defined STDC_HEADERS && defined HAVE_MEMORY_H +# include +# endif +# include +#endif +#ifdef HAVE_STRINGS_H +# include +#endif +#ifdef HAVE_INTTYPES_H +# include +#endif +#ifdef HAVE_STDINT_H +# include +#endif +#ifdef HAVE_UNISTD_H +# include +#endif" + +ac_subst_vars='LTLIBOBJS +LIBOBJS +EGREP +GREP +CPP +OBJEXT +EXEEXT +ac_ct_CC +CPPFLAGS +LDFLAGS +CFLAGS +CC +llvm_config_found +target_alias +host_alias +build_alias +LIBS +ECHO_T +ECHO_N +ECHO_C +DEFS +mandir +localedir +libdir +psdir +pdfdir +dvidir +htmldir +infodir +docdir +oldincludedir +includedir +localstatedir +sharedstatedir +sysconfdir +datadir +datarootdir +libexecdir +sbindir +bindir +program_transform_name +prefix +exec_prefix +PACKAGE_URL +PACKAGE_BUGREPORT +PACKAGE_STRING +PACKAGE_VERSION +PACKAGE_TARNAME +PACKAGE_NAME +PATH_SEPARATOR +SHELL' +ac_subst_files='' +ac_user_opts=' +enable_option_checking +with_llvm_config +enable_llvm_shared +' + ac_precious_vars='build_alias +host_alias +target_alias +CC +CFLAGS +LDFLAGS +LIBS +CPPFLAGS +CPP' + + +# Initialize some variables set by options. +ac_init_help= +ac_init_version=false +ac_unrecognized_opts= +ac_unrecognized_sep= +# The variables have the same names as the options, with +# dashes changed to underlines. +cache_file=/dev/null +exec_prefix=NONE +no_create= +no_recursion= +prefix=NONE +program_prefix=NONE +program_suffix=NONE +program_transform_name=s,x,x, +silent= +site= +srcdir= +verbose= +x_includes=NONE +x_libraries=NONE + +# Installation directory options. +# These are left unexpanded so users can "make install exec_prefix=/foo" +# and all the variables that are supposed to be based on exec_prefix +# by default will actually change. +# Use braces instead of parens because sh, perl, etc. also accept them. +# (The list follows the same order as the GNU Coding Standards.) +bindir='${exec_prefix}/bin' +sbindir='${exec_prefix}/sbin' +libexecdir='${exec_prefix}/libexec' +datarootdir='${prefix}/share' +datadir='${datarootdir}' +sysconfdir='${prefix}/etc' +sharedstatedir='${prefix}/com' +localstatedir='${prefix}/var' +includedir='${prefix}/include' +oldincludedir='/usr/include' +docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' +infodir='${datarootdir}/info' +htmldir='${docdir}' +dvidir='${docdir}' +pdfdir='${docdir}' +psdir='${docdir}' +libdir='${exec_prefix}/lib' +localedir='${datarootdir}/locale' +mandir='${datarootdir}/man' + +ac_prev= +ac_dashdash= +for ac_option +do + # If the previous option needs an argument, assign it. + if test -n "$ac_prev"; then + eval $ac_prev=\$ac_option + ac_prev= + continue + fi + + case $ac_option in + *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; + *=) ac_optarg= ;; + *) ac_optarg=yes ;; + esac + + # Accept the important Cygnus configure options, so we can diagnose typos. + + case $ac_dashdash$ac_option in + --) + ac_dashdash=yes ;; + + -bindir | --bindir | --bindi | --bind | --bin | --bi) + ac_prev=bindir ;; + -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) + bindir=$ac_optarg ;; + + -build | --build | --buil | --bui | --bu) + ac_prev=build_alias ;; + -build=* | --build=* | --buil=* | --bui=* | --bu=*) + build_alias=$ac_optarg ;; + + -cache-file | --cache-file | --cache-fil | --cache-fi \ + | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) + ac_prev=cache_file ;; + -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ + | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) + cache_file=$ac_optarg ;; + + --config-cache | -C) + cache_file=config.cache ;; + + -datadir | --datadir | --datadi | --datad) + ac_prev=datadir ;; + -datadir=* | --datadir=* | --datadi=* | --datad=*) + datadir=$ac_optarg ;; + + -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ + | --dataroo | --dataro | --datar) + ac_prev=datarootdir ;; + -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ + | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) + datarootdir=$ac_optarg ;; + + -disable-* | --disable-*) + ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid feature name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"enable_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval enable_$ac_useropt=no ;; + + -docdir | --docdir | --docdi | --doc | --do) + ac_prev=docdir ;; + -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) + docdir=$ac_optarg ;; + + -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) + ac_prev=dvidir ;; + -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) + dvidir=$ac_optarg ;; + + -enable-* | --enable-*) + ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid feature name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"enable_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval enable_$ac_useropt=\$ac_optarg ;; + + -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ + | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ + | --exec | --exe | --ex) + ac_prev=exec_prefix ;; + -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ + | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ + | --exec=* | --exe=* | --ex=*) + exec_prefix=$ac_optarg ;; + + -gas | --gas | --ga | --g) + # Obsolete; use --with-gas. + with_gas=yes ;; + + -help | --help | --hel | --he | -h) + ac_init_help=long ;; + -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) + ac_init_help=recursive ;; + -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) + ac_init_help=short ;; + + -host | --host | --hos | --ho) + ac_prev=host_alias ;; + -host=* | --host=* | --hos=* | --ho=*) + host_alias=$ac_optarg ;; + + -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) + ac_prev=htmldir ;; + -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ + | --ht=*) + htmldir=$ac_optarg ;; + + -includedir | --includedir | --includedi | --included | --include \ + | --includ | --inclu | --incl | --inc) + ac_prev=includedir ;; + -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ + | --includ=* | --inclu=* | --incl=* | --inc=*) + includedir=$ac_optarg ;; + + -infodir | --infodir | --infodi | --infod | --info | --inf) + ac_prev=infodir ;; + -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) + infodir=$ac_optarg ;; + + -libdir | --libdir | --libdi | --libd) + ac_prev=libdir ;; + -libdir=* | --libdir=* | --libdi=* | --libd=*) + libdir=$ac_optarg ;; + + -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ + | --libexe | --libex | --libe) + ac_prev=libexecdir ;; + -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ + | --libexe=* | --libex=* | --libe=*) + libexecdir=$ac_optarg ;; + + -localedir | --localedir | --localedi | --localed | --locale) + ac_prev=localedir ;; + -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) + localedir=$ac_optarg ;; + + -localstatedir | --localstatedir | --localstatedi | --localstated \ + | --localstate | --localstat | --localsta | --localst | --locals) + ac_prev=localstatedir ;; + -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ + | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) + localstatedir=$ac_optarg ;; + + -mandir | --mandir | --mandi | --mand | --man | --ma | --m) + ac_prev=mandir ;; + -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) + mandir=$ac_optarg ;; + + -nfp | --nfp | --nf) + # Obsolete; use --without-fp. + with_fp=no ;; + + -no-create | --no-create | --no-creat | --no-crea | --no-cre \ + | --no-cr | --no-c | -n) + no_create=yes ;; + + -no-recursion | --no-recursion | --no-recursio | --no-recursi \ + | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) + no_recursion=yes ;; + + -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ + | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ + | --oldin | --oldi | --old | --ol | --o) + ac_prev=oldincludedir ;; + -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ + | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ + | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) + oldincludedir=$ac_optarg ;; + + -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) + ac_prev=prefix ;; + -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) + prefix=$ac_optarg ;; + + -program-prefix | --program-prefix | --program-prefi | --program-pref \ + | --program-pre | --program-pr | --program-p) + ac_prev=program_prefix ;; + -program-prefix=* | --program-prefix=* | --program-prefi=* \ + | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) + program_prefix=$ac_optarg ;; + + -program-suffix | --program-suffix | --program-suffi | --program-suff \ + | --program-suf | --program-su | --program-s) + ac_prev=program_suffix ;; + -program-suffix=* | --program-suffix=* | --program-suffi=* \ + | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) + program_suffix=$ac_optarg ;; + + -program-transform-name | --program-transform-name \ + | --program-transform-nam | --program-transform-na \ + | --program-transform-n | --program-transform- \ + | --program-transform | --program-transfor \ + | --program-transfo | --program-transf \ + | --program-trans | --program-tran \ + | --progr-tra | --program-tr | --program-t) + ac_prev=program_transform_name ;; + -program-transform-name=* | --program-transform-name=* \ + | --program-transform-nam=* | --program-transform-na=* \ + | --program-transform-n=* | --program-transform-=* \ + | --program-transform=* | --program-transfor=* \ + | --program-transfo=* | --program-transf=* \ + | --program-trans=* | --program-tran=* \ + | --progr-tra=* | --program-tr=* | --program-t=*) + program_transform_name=$ac_optarg ;; + + -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) + ac_prev=pdfdir ;; + -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) + pdfdir=$ac_optarg ;; + + -psdir | --psdir | --psdi | --psd | --ps) + ac_prev=psdir ;; + -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) + psdir=$ac_optarg ;; + + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + silent=yes ;; + + -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) + ac_prev=sbindir ;; + -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ + | --sbi=* | --sb=*) + sbindir=$ac_optarg ;; + + -sharedstatedir | --sharedstatedir | --sharedstatedi \ + | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ + | --sharedst | --shareds | --shared | --share | --shar \ + | --sha | --sh) + ac_prev=sharedstatedir ;; + -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ + | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ + | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ + | --sha=* | --sh=*) + sharedstatedir=$ac_optarg ;; + + -site | --site | --sit) + ac_prev=site ;; + -site=* | --site=* | --sit=*) + site=$ac_optarg ;; + + -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) + ac_prev=srcdir ;; + -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) + srcdir=$ac_optarg ;; + + -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ + | --syscon | --sysco | --sysc | --sys | --sy) + ac_prev=sysconfdir ;; + -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ + | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) + sysconfdir=$ac_optarg ;; + + -target | --target | --targe | --targ | --tar | --ta | --t) + ac_prev=target_alias ;; + -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) + target_alias=$ac_optarg ;; + + -v | -verbose | --verbose | --verbos | --verbo | --verb) + verbose=yes ;; + + -version | --version | --versio | --versi | --vers | -V) + ac_init_version=: ;; + + -with-* | --with-*) + ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid package name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"with_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval with_$ac_useropt=\$ac_optarg ;; + + -without-* | --without-*) + ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` + # Reject names that are not valid shell variable names. + expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && + as_fn_error $? "invalid package name: $ac_useropt" + ac_useropt_orig=$ac_useropt + ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + case $ac_user_opts in + *" +"with_$ac_useropt" +"*) ;; + *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" + ac_unrecognized_sep=', ';; + esac + eval with_$ac_useropt=no ;; + + --x) + # Obsolete; use --with-x. + with_x=yes ;; + + -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ + | --x-incl | --x-inc | --x-in | --x-i) + ac_prev=x_includes ;; + -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ + | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) + x_includes=$ac_optarg ;; + + -x-libraries | --x-libraries | --x-librarie | --x-librari \ + | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) + ac_prev=x_libraries ;; + -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ + | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) + x_libraries=$ac_optarg ;; + + -*) as_fn_error $? "unrecognized option: \`$ac_option' +Try \`$0 --help' for more information" + ;; + + *=*) + ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` + # Reject names that are not valid shell variable names. + case $ac_envvar in #( + '' | [0-9]* | *[!_$as_cr_alnum]* ) + as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; + esac + eval $ac_envvar=\$ac_optarg + export $ac_envvar ;; + + *) + # FIXME: should be removed in autoconf 3.0. + $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 + expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && + $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 + : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option} + ;; + + esac +done + +if test -n "$ac_prev"; then + ac_option=--`echo $ac_prev | sed 's/_/-/g'` + as_fn_error $? "missing argument to $ac_option" +fi + +if test -n "$ac_unrecognized_opts"; then + case $enable_option_checking in + no) ;; + fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; + *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; + esac +fi + +# Check all directory arguments for consistency. +for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ + datadir sysconfdir sharedstatedir localstatedir includedir \ + oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ + libdir localedir mandir +do + eval ac_val=\$$ac_var + # Remove trailing slashes. + case $ac_val in + */ ) + ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` + eval $ac_var=\$ac_val;; + esac + # Be sure to have absolute directory names. + case $ac_val in + [\\/$]* | ?:[\\/]* ) continue;; + NONE | '' ) case $ac_var in *prefix ) continue;; esac;; + esac + as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" +done + +# There might be people who depend on the old broken behavior: `$host' +# used to hold the argument of --host etc. +# FIXME: To remove some day. +build=$build_alias +host=$host_alias +target=$target_alias + +# FIXME: To remove some day. +if test "x$host_alias" != x; then + if test "x$build_alias" = x; then + cross_compiling=maybe + $as_echo "$as_me: WARNING: if you wanted to set the --build type, don't use --host. + If a cross compiler is detected then cross compile mode will be used" >&2 + elif test "x$build_alias" != "x$host_alias"; then + cross_compiling=yes + fi +fi + +ac_tool_prefix= +test -n "$host_alias" && ac_tool_prefix=$host_alias- + +test "$silent" = yes && exec 6>/dev/null + + +ac_pwd=`pwd` && test -n "$ac_pwd" && +ac_ls_di=`ls -di .` && +ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || + as_fn_error $? "working directory cannot be determined" +test "X$ac_ls_di" = "X$ac_pwd_ls_di" || + as_fn_error $? "pwd does not report name of working directory" + + +# Find the source files, if location was not specified. +if test -z "$srcdir"; then + ac_srcdir_defaulted=yes + # Try the directory containing this script, then the parent directory. + ac_confdir=`$as_dirname -- "$as_myself" || +$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_myself" : 'X\(//\)[^/]' \| \ + X"$as_myself" : 'X\(//\)$' \| \ + X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_myself" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + srcdir=$ac_confdir + if test ! -r "$srcdir/$ac_unique_file"; then + srcdir=.. + fi +else + ac_srcdir_defaulted=no +fi +if test ! -r "$srcdir/$ac_unique_file"; then + test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." + as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" +fi +ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" +ac_abs_confdir=`( + cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" + pwd)` +# When building in place, set srcdir=. +if test "$ac_abs_confdir" = "$ac_pwd"; then + srcdir=. +fi +# Remove unnecessary trailing slashes from srcdir. +# Double slashes in file names in object file debugging info +# mess up M-x gdb in Emacs. +case $srcdir in +*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; +esac +for ac_var in $ac_precious_vars; do + eval ac_env_${ac_var}_set=\${${ac_var}+set} + eval ac_env_${ac_var}_value=\$${ac_var} + eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} + eval ac_cv_env_${ac_var}_value=\$${ac_var} +done + +# +# Report the --help message. +# +if test "$ac_init_help" = "long"; then + # Omit some internal or obsolete options to make the list less imposing. + # This message is too long to be a string in the A/UX 3.1 sh. + cat <<_ACEOF +\`configure' configures LibClang 0.0.1 to adapt to many kinds of systems. + +Usage: $0 [OPTION]... [VAR=VALUE]... + +To assign environment variables (e.g., CC, CFLAGS...), specify them as +VAR=VALUE. See below for descriptions of some of the useful variables. + +Defaults for the options are specified in brackets. + +Configuration: + -h, --help display this help and exit + --help=short display options specific to this package + --help=recursive display the short help of all the included packages + -V, --version display version information and exit + -q, --quiet, --silent do not print \`checking ...' messages + --cache-file=FILE cache test results in FILE [disabled] + -C, --config-cache alias for \`--cache-file=config.cache' + -n, --no-create do not create output files + --srcdir=DIR find the sources in DIR [configure dir or \`..'] + +Installation directories: + --prefix=PREFIX install architecture-independent files in PREFIX + [$ac_default_prefix] + --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX + [PREFIX] + +By default, \`make install' will install all the files in +\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify +an installation prefix other than \`$ac_default_prefix' using \`--prefix', +for instance \`--prefix=\$HOME'. + +For better control, use the options below. + +Fine tuning of the installation directories: + --bindir=DIR user executables [EPREFIX/bin] + --sbindir=DIR system admin executables [EPREFIX/sbin] + --libexecdir=DIR program executables [EPREFIX/libexec] + --sysconfdir=DIR read-only single-machine data [PREFIX/etc] + --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] + --localstatedir=DIR modifiable single-machine data [PREFIX/var] + --libdir=DIR object code libraries [EPREFIX/lib] + --includedir=DIR C header files [PREFIX/include] + --oldincludedir=DIR C header files for non-gcc [/usr/include] + --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] + --datadir=DIR read-only architecture-independent data [DATAROOTDIR] + --infodir=DIR info documentation [DATAROOTDIR/info] + --localedir=DIR locale-dependent data [DATAROOTDIR/locale] + --mandir=DIR man documentation [DATAROOTDIR/man] + --docdir=DIR documentation root [DATAROOTDIR/doc/libclang] + --htmldir=DIR html documentation [DOCDIR] + --dvidir=DIR dvi documentation [DOCDIR] + --pdfdir=DIR pdf documentation [DOCDIR] + --psdir=DIR ps documentation [DOCDIR] +_ACEOF + + cat <<\_ACEOF +_ACEOF +fi + +if test -n "$ac_init_help"; then + case $ac_init_help in + short | recursive ) echo "Configuration of LibClang 0.0.1:";; + esac + cat <<\_ACEOF + +Optional Features: + --disable-option-checking ignore unrecognized --enable/--with options + --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) + --enable-FEATURE[=ARG] include FEATURE [ARG=yes] + --enable-llvm-shared=LIBSUFFIX + build against LLVM shared libraries with libsuffix + +Optional Packages: + --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] + --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) + --with-llvm-config configure LLVM libraries with llvm-config [default: + yes] + +Some influential environment variables: + CC C compiler command + CFLAGS C compiler flags + LDFLAGS linker flags, e.g. -L if you have libraries in a + nonstandard directory + LIBS libraries to pass to the linker, e.g. -l + CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if + you have headers in a nonstandard directory + CPP C preprocessor + +Use these variables to override the choices made by `configure' or to help +it to find libraries and programs with nonstandard names/locations. + +Report bugs to the package provider. +_ACEOF +ac_status=$? +fi + +if test "$ac_init_help" = "recursive"; then + # If there are subdirs, report their specific --help. + for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue + test -d "$ac_dir" || + { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || + continue + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + cd "$ac_dir" || { ac_status=$?; continue; } + # Check for guested configure. + if test -f "$ac_srcdir/configure.gnu"; then + echo && + $SHELL "$ac_srcdir/configure.gnu" --help=recursive + elif test -f "$ac_srcdir/configure"; then + echo && + $SHELL "$ac_srcdir/configure" --help=recursive + else + $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 + fi || ac_status=$? + cd "$ac_pwd" || { ac_status=$?; break; } + done +fi + +test -n "$ac_init_help" && exit $ac_status +if $ac_init_version; then + cat <<\_ACEOF +LibClang configure 0.0.1 +generated by GNU Autoconf 2.67 + +Copyright (C) 2010 Free Software Foundation, Inc. +This configure script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it. +_ACEOF + exit +fi + +## ------------------------ ## +## Autoconf initialization. ## +## ------------------------ ## + +# ac_fn_c_try_compile LINENO +# -------------------------- +# Try to compile conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_compile () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + rm -f conftest.$ac_objext + if { { ac_try="$ac_compile" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_compile") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { + test -z "$ac_c_werror_flag" || + test ! -s conftest.err + } && test -s conftest.$ac_objext; then : + ac_retval=0 +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} + as_fn_set_status $ac_retval + +} # ac_fn_c_try_compile + +# ac_fn_c_try_cpp LINENO +# ---------------------- +# Try to preprocess conftest.$ac_ext, and return whether this succeeded. +ac_fn_c_try_cpp () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if { { ac_try="$ac_cpp conftest.$ac_ext" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + grep -v '^ *+' conftest.err >conftest.er1 + cat conftest.er1 >&5 + mv -f conftest.er1 conftest.err + fi + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } > conftest.i && { + test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || + test ! -s conftest.err + }; then : + ac_retval=0 +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=1 +fi + eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} + as_fn_set_status $ac_retval + +} # ac_fn_c_try_cpp + +# ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES +# ------------------------------------------------------- +# Tests whether HEADER exists, giving a warning if it cannot be compiled using +# the include files in INCLUDES and setting the cache variable VAR +# accordingly. +ac_fn_c_check_header_mongrel () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if eval "test \"\${$3+set}\"" = set; then : + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval "test \"\${$3+set}\"" = set; then : + $as_echo_n "(cached) " >&6 +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } +else + # Is the header compilable? +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 +$as_echo_n "checking $2 usability... " >&6; } +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +#include <$2> +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_header_compiler=yes +else + ac_header_compiler=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 +$as_echo "$ac_header_compiler" >&6; } + +# Is the header present? +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 +$as_echo_n "checking $2 presence... " >&6; } +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include <$2> +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + ac_header_preproc=yes +else + ac_header_preproc=no +fi +rm -f conftest.err conftest.i conftest.$ac_ext +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 +$as_echo "$ac_header_preproc" >&6; } + +# So? What about this header? +case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( + yes:no: ) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 +$as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 +$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} + ;; + no:yes:* ) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 +$as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 +$as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 +$as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 +$as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 +$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} + ;; +esac + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval "test \"\${$3+set}\"" = set; then : + $as_echo_n "(cached) " >&6 +else + eval "$3=\$ac_header_compiler" +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } +fi + eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} + +} # ac_fn_c_check_header_mongrel + +# ac_fn_c_try_run LINENO +# ---------------------- +# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes +# that executables *can* be run. +ac_fn_c_try_run () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + if { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' + { { case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_try") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; }; then : + ac_retval=0 +else + $as_echo "$as_me: program exited with status $ac_status" >&5 + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + + ac_retval=$ac_status +fi + rm -rf conftest.dSYM conftest_ipa8_conftest.oo + eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} + as_fn_set_status $ac_retval + +} # ac_fn_c_try_run + +# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES +# ------------------------------------------------------- +# Tests whether HEADER exists and can be compiled using the include files in +# INCLUDES, setting the cache variable VAR accordingly. +ac_fn_c_check_header_compile () +{ + as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +$as_echo_n "checking for $2... " >&6; } +if eval "test \"\${$3+set}\"" = set; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$4 +#include <$2> +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + eval "$3=yes" +else + eval "$3=no" +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +eval ac_res=\$$3 + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +$as_echo "$ac_res" >&6; } + eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;} + +} # ac_fn_c_check_header_compile +cat >config.log <<_ACEOF +This file contains any messages produced by compilers while +running configure, to aid debugging if configure makes a mistake. + +It was created by LibClang $as_me 0.0.1, which was +generated by GNU Autoconf 2.67. Invocation command line was + + $ $0 $@ + +_ACEOF +exec 5>>config.log +{ +cat <<_ASUNAME +## --------- ## +## Platform. ## +## --------- ## + +hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` +uname -m = `(uname -m) 2>/dev/null || echo unknown` +uname -r = `(uname -r) 2>/dev/null || echo unknown` +uname -s = `(uname -s) 2>/dev/null || echo unknown` +uname -v = `(uname -v) 2>/dev/null || echo unknown` + +/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` +/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` + +/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` +/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` +/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` +/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` +/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` +/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` +/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` + +_ASUNAME + +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + $as_echo "PATH: $as_dir" + done +IFS=$as_save_IFS + +} >&5 + +cat >&5 <<_ACEOF + + +## ----------- ## +## Core tests. ## +## ----------- ## + +_ACEOF + + +# Keep a trace of the command line. +# Strip out --no-create and --no-recursion so they do not pile up. +# Strip out --silent because we don't want to record it for future runs. +# Also quote any args containing shell meta-characters. +# Make two passes to allow for proper duplicate-argument suppression. +ac_configure_args= +ac_configure_args0= +ac_configure_args1= +ac_must_keep_next=false +for ac_pass in 1 2 +do + for ac_arg + do + case $ac_arg in + -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil) + continue ;; + *\'*) + ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + case $ac_pass in + 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; + 2) + as_fn_append ac_configure_args1 " '$ac_arg'" + if test $ac_must_keep_next = true; then + ac_must_keep_next=false # Got value, back to normal. + else + case $ac_arg in + *=* | --config-cache | -C | -disable-* | --disable-* \ + | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ + | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ + | -with-* | --with-* | -without-* | --without-* | --x) + case "$ac_configure_args0 " in + "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; + esac + ;; + -* ) ac_must_keep_next=true ;; + esac + fi + as_fn_append ac_configure_args " '$ac_arg'" + ;; + esac + done +done +{ ac_configure_args0=; unset ac_configure_args0;} +{ ac_configure_args1=; unset ac_configure_args1;} + +# When interrupted or exit'd, cleanup temporary files, and complete +# config.log. We remove comments because anyway the quotes in there +# would cause problems or look ugly. +# WARNING: Use '\'' to represent an apostrophe within the trap. +# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. +trap 'exit_status=$? + # Save into config.log some information that might help in debugging. + { + echo + + $as_echo "## ---------------- ## +## Cache variables. ## +## ---------------- ##" + echo + # The following way of writing the cache mishandles newlines in values, +( + for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do + eval ac_val=\$$ac_var + case $ac_val in #( + *${as_nl}*) + case $ac_var in #( + *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + esac + case $ac_var in #( + _ | IFS | as_nl) ;; #( + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; + esac ;; + esac + done + (set) 2>&1 | + case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( + *${as_nl}ac_space=\ *) + sed -n \ + "s/'\''/'\''\\\\'\'''\''/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" + ;; #( + *) + sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" + ;; + esac | + sort +) + echo + + $as_echo "## ----------------- ## +## Output variables. ## +## ----------------- ##" + echo + for ac_var in $ac_subst_vars + do + eval ac_val=\$$ac_var + case $ac_val in + *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + esac + $as_echo "$ac_var='\''$ac_val'\''" + done | sort + echo + + if test -n "$ac_subst_files"; then + $as_echo "## ------------------- ## +## File substitutions. ## +## ------------------- ##" + echo + for ac_var in $ac_subst_files + do + eval ac_val=\$$ac_var + case $ac_val in + *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + esac + $as_echo "$ac_var='\''$ac_val'\''" + done | sort + echo + fi + + if test -s confdefs.h; then + $as_echo "## ----------- ## +## confdefs.h. ## +## ----------- ##" + echo + cat confdefs.h + echo + fi + test "$ac_signal" != 0 && + $as_echo "$as_me: caught signal $ac_signal" + $as_echo "$as_me: exit $exit_status" + } >&5 + rm -f core *.core core.conftest.* && + rm -f -r conftest* confdefs* conf$$* $ac_clean_files && + exit $exit_status +' 0 +for ac_signal in 1 2 13 15; do + trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal +done +ac_signal=0 + +# confdefs.h avoids OS command line length limits that DEFS can exceed. +rm -f -r conftest* confdefs.h + +$as_echo "/* confdefs.h */" > confdefs.h + +# Predefined preprocessor variables. + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_NAME "$PACKAGE_NAME" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_TARNAME "$PACKAGE_TARNAME" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_VERSION "$PACKAGE_VERSION" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_STRING "$PACKAGE_STRING" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" +_ACEOF + +cat >>confdefs.h <<_ACEOF +#define PACKAGE_URL "$PACKAGE_URL" +_ACEOF + + +# Let the site file select an alternate cache file if it wants to. +# Prefer an explicitly selected file to automatically selected ones. +ac_site_file1=NONE +ac_site_file2=NONE +if test -n "$CONFIG_SITE"; then + # We do not want a PATH search for config.site. + case $CONFIG_SITE in #(( + -*) ac_site_file1=./$CONFIG_SITE;; + */*) ac_site_file1=$CONFIG_SITE;; + *) ac_site_file1=./$CONFIG_SITE;; + esac +elif test "x$prefix" != xNONE; then + ac_site_file1=$prefix/share/config.site + ac_site_file2=$prefix/etc/config.site +else + ac_site_file1=$ac_default_prefix/share/config.site + ac_site_file2=$ac_default_prefix/etc/config.site +fi +for ac_site_file in "$ac_site_file1" "$ac_site_file2" +do + test "x$ac_site_file" = xNONE && continue + if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 +$as_echo "$as_me: loading site script $ac_site_file" >&6;} + sed 's/^/| /' "$ac_site_file" >&5 + . "$ac_site_file" \ + || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "failed to load site script $ac_site_file +See \`config.log' for more details" "$LINENO" 5 ; } + fi +done + +if test -r "$cache_file"; then + # Some versions of bash will fail to source /dev/null (special files + # actually), so we avoid doing that. DJGPP emulates it as a regular file. + if test /dev/null != "$cache_file" && test -f "$cache_file"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 +$as_echo "$as_me: loading cache $cache_file" >&6;} + case $cache_file in + [\\/]* | ?:[\\/]* ) . "$cache_file";; + *) . "./$cache_file";; + esac + fi +else + { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 +$as_echo "$as_me: creating cache $cache_file" >&6;} + >$cache_file +fi + +# Check that the precious variables saved in the cache have kept the same +# value. +ac_cache_corrupted=false +for ac_var in $ac_precious_vars; do + eval ac_old_set=\$ac_cv_env_${ac_var}_set + eval ac_new_set=\$ac_env_${ac_var}_set + eval ac_old_val=\$ac_cv_env_${ac_var}_value + eval ac_new_val=\$ac_env_${ac_var}_value + case $ac_old_set,$ac_new_set in + set,) + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 +$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,set) + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 +$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,);; + *) + if test "x$ac_old_val" != "x$ac_new_val"; then + # differences in whitespace do not lead to failure. + ac_old_val_w=`echo x $ac_old_val` + ac_new_val_w=`echo x $ac_new_val` + if test "$ac_old_val_w" != "$ac_new_val_w"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 +$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} + ac_cache_corrupted=: + else + { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 +$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} + eval $ac_var=\$ac_old_val + fi + { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 +$as_echo "$as_me: former value: \`$ac_old_val'" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 +$as_echo "$as_me: current value: \`$ac_new_val'" >&2;} + fi;; + esac + # Pass precious variables to config.status. + if test "$ac_new_set" = set; then + case $ac_new_val in + *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; + *) ac_arg=$ac_var=$ac_new_val ;; + esac + case " $ac_configure_args " in + *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. + *) as_fn_append ac_configure_args " '$ac_arg'" ;; + esac + fi +done +if $ac_cache_corrupted; then + { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} + { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 +$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} + as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 +fi +## -------------------- ## +## Main body of script. ## +## -------------------- ## + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + + + + +# Check whether --with-llvm-config was given. +if test "${with_llvm_config+set}" = set; then : + withval=$with_llvm_config; llvm_config=${withval} +else + llvm_config=yes +fi + +# Extract the first word of "llvm-config", so it can be a program name with args. +set dummy llvm-config; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_llvm_config_found+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$llvm_config_found"; then + ac_cv_prog_llvm_config_found="$llvm_config_found" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then + ac_cv_prog_llvm_config_found="yes" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + + test -z "$ac_cv_prog_llvm_config_found" && ac_cv_prog_llvm_config_found="no" +fi +fi +llvm_config_found=$ac_cv_prog_llvm_config_found +if test -n "$llvm_config_found"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $llvm_config_found" >&5 +$as_echo "$llvm_config_found" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +if test "$llvm_config" = yes +then + if test "$llvm_config_found" = no + then + as_fn_error $? " + ------------------------------------------------- + llvm-config not found. + if llvm-config is present, ensure it is available + on path (export PATH=...). + NOTE: if file is present and configured, + try running running \"cabal build -vv\" or + \"runhaskell Setup.hs build -vv\" + to get the exact commands run + -------------------------------------------------" "$LINENO" 5 + else + # get relevant libs from llvm-config + CFLAGS="$CFLAGS `llvm-config --cflags`" + LDFLAGS="$LDFLAGS `llvm-config --ldflags`" + fi +fi + +# Check whether --enable-llvm-shared was given. +if test "${enable_llvm_shared+set}" = set; then : + enableval=$enable_llvm_shared; llvm_shared=$enableval +fi + +if test "$llvm_shared" != "" +then + LDFLAGS="$LDFLAGS -l${llvm_shared}" +else + if test "$llvm_config_found" = yes + then + LDFLAGS="$LDFLAGS `llvm-config --libs`" + fi +fi + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu +if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. +set dummy ${ac_tool_prefix}gcc; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_CC+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then + ac_cv_prog_CC="${ac_tool_prefix}gcc" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$ac_cv_prog_CC"; then + ac_ct_CC=$CC + # Extract the first word of "gcc", so it can be a program name with args. +set dummy gcc; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_ac_ct_CC+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_CC"; then + ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then + ac_cv_prog_ac_ct_CC="gcc" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_CC=$ac_cv_prog_ac_ct_CC +if test -n "$ac_ct_CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 +$as_echo "$ac_ct_CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + if test "x$ac_ct_CC" = x; then + CC="" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + CC=$ac_ct_CC + fi +else + CC="$ac_cv_prog_CC" +fi + +if test -z "$CC"; then + if test -n "$ac_tool_prefix"; then + # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. +set dummy ${ac_tool_prefix}cc; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_CC+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then + ac_cv_prog_CC="${ac_tool_prefix}cc" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + fi +fi +if test -z "$CC"; then + # Extract the first word of "cc", so it can be a program name with args. +set dummy cc; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_CC+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else + ac_prog_rejected=no +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then + if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then + ac_prog_rejected=yes + continue + fi + ac_cv_prog_CC="cc" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +if test $ac_prog_rejected = yes; then + # We found a bogon in the path, so make sure we never use it. + set dummy $ac_cv_prog_CC + shift + if test $# != 0; then + # We chose a different compiler from the bogus one. + # However, it has the same basename, so the bogon will be chosen + # first if we set CC to just the basename; use the full file name. + shift + ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" + fi +fi +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + +fi +if test -z "$CC"; then + if test -n "$ac_tool_prefix"; then + for ac_prog in cl.exe + do + # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. +set dummy $ac_tool_prefix$ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_CC+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$CC"; then + ac_cv_prog_CC="$CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then + ac_cv_prog_CC="$ac_tool_prefix$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +CC=$ac_cv_prog_CC +if test -n "$CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +$as_echo "$CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$CC" && break + done +fi +if test -z "$CC"; then + ac_ct_CC=$CC + for ac_prog in cl.exe +do + # Extract the first word of "$ac_prog", so it can be a program name with args. +set dummy $ac_prog; ac_word=$2 +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +$as_echo_n "checking for $ac_word... " >&6; } +if test "${ac_cv_prog_ac_ct_CC+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + if test -n "$ac_ct_CC"; then + ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. +else +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_exec_ext in '' $ac_executable_extensions; do + if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then + ac_cv_prog_ac_ct_CC="$ac_prog" + $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + break 2 + fi +done + done +IFS=$as_save_IFS + +fi +fi +ac_ct_CC=$ac_cv_prog_ac_ct_CC +if test -n "$ac_ct_CC"; then + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 +$as_echo "$ac_ct_CC" >&6; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +fi + + + test -n "$ac_ct_CC" && break +done + + if test "x$ac_ct_CC" = x; then + CC="" + else + case $cross_compiling:$ac_tool_warned in +yes:) +{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +ac_tool_warned=yes ;; +esac + CC=$ac_ct_CC + fi +fi + +fi + + +test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "no acceptable C compiler found in \$PATH +See \`config.log' for more details" "$LINENO" 5 ; } + +# Provide some information about the compiler. +$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 +set X $ac_compile +ac_compiler=$2 +for ac_option in --version -v -V -qversion; do + { { ac_try="$ac_compiler $ac_option >&5" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_compiler $ac_option >&5") 2>conftest.err + ac_status=$? + if test -s conftest.err; then + sed '10a\ +... rest of stderr output deleted ... + 10q' conftest.err >conftest.er1 + cat conftest.er1 >&5 + fi + rm -f conftest.er1 conftest.err + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } +done + +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +ac_clean_files_save=$ac_clean_files +ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" +# Try to create an executable without -o first, disregard a.out. +# It will help us diagnose broken compilers, and finding out an intuition +# of exeext. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 +$as_echo_n "checking whether the C compiler works... " >&6; } +ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` + +# The possible output files: +ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" + +ac_rmfiles= +for ac_file in $ac_files +do + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; + * ) ac_rmfiles="$ac_rmfiles $ac_file";; + esac +done +rm -f $ac_rmfiles + +if { { ac_try="$ac_link_default" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link_default") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then : + # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. +# So ignore a value of `no', otherwise this would lead to `EXEEXT = no' +# in a Makefile. We should not override ac_cv_exeext if it was cached, +# so that the user can short-circuit this test for compilers unknown to +# Autoconf. +for ac_file in $ac_files '' +do + test -f "$ac_file" || continue + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) + ;; + [ab].out ) + # We found the default executable, but exeext='' is most + # certainly right. + break;; + *.* ) + if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; + then :; else + ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` + fi + # We set ac_cv_exeext here because the later test for it is not + # safe: cross compilers may not add the suffix if given an `-o' + # argument, so we may need to know it at that point already. + # Even if this section looks crufty: it has the advantage of + # actually working. + break;; + * ) + break;; + esac +done +test "$ac_cv_exeext" = no && ac_cv_exeext= + +else + ac_file='' +fi +if test -z "$ac_file"; then : + { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 +$as_echo "no" >&6; } +$as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error 77 "C compiler cannot create executables +See \`config.log' for more details" "$LINENO" 5 ; } +else + { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +$as_echo "yes" >&6; } +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 +$as_echo_n "checking for C compiler default output file name... " >&6; } +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 +$as_echo "$ac_file" >&6; } +ac_exeext=$ac_cv_exeext + +rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out +ac_clean_files=$ac_clean_files_save +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 +$as_echo_n "checking for suffix of executables... " >&6; } +if { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then : + # If both `conftest.exe' and `conftest' are `present' (well, observable) +# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will +# work properly (i.e., refer to `conftest.exe'), while it won't with +# `rm'. +for ac_file in conftest.exe conftest conftest.*; do + test -f "$ac_file" || continue + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; + *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` + break;; + * ) break;; + esac +done +else + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot compute suffix of executables: cannot compile and link +See \`config.log' for more details" "$LINENO" 5 ; } +fi +rm -f conftest conftest$ac_cv_exeext +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 +$as_echo "$ac_cv_exeext" >&6; } + +rm -f conftest.$ac_ext +EXEEXT=$ac_cv_exeext +ac_exeext=$EXEEXT +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +int +main () +{ +FILE *f = fopen ("conftest.out", "w"); + return ferror (f) || fclose (f) != 0; + + ; + return 0; +} +_ACEOF +ac_clean_files="$ac_clean_files conftest.out" +# Check that the compiler produces executables we can run. If not, either +# the compiler is broken, or we cross compile. +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 +$as_echo_n "checking whether we are cross compiling... " >&6; } +if test "$cross_compiling" != yes; then + { { ac_try="$ac_link" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_link") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } + if { ac_try='./conftest$ac_cv_exeext' + { { case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_try") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; }; then + cross_compiling=no + else + if test "$cross_compiling" = maybe; then + cross_compiling=yes + else + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot run C compiled programs. +If you meant to cross compile, use \`--host'. +See \`config.log' for more details" "$LINENO" 5 ; } + fi + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 +$as_echo "$cross_compiling" >&6; } + +rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out +ac_clean_files=$ac_clean_files_save +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 +$as_echo_n "checking for suffix of object files... " >&6; } +if test "${ac_cv_objext+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +rm -f conftest.o conftest.obj +if { { ac_try="$ac_compile" +case "(($ac_try" in + *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; + *) ac_try_echo=$ac_try;; +esac +eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" +$as_echo "$ac_try_echo"; } >&5 + (eval "$ac_compile") 2>&5 + ac_status=$? + $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; then : + for ac_file in conftest.o conftest.obj conftest.*; do + test -f "$ac_file" || continue; + case $ac_file in + *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; + *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` + break;; + esac +done +else + $as_echo "$as_me: failed program was:" >&5 +sed 's/^/| /' conftest.$ac_ext >&5 + +{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "cannot compute suffix of object files: cannot compile +See \`config.log' for more details" "$LINENO" 5 ; } +fi +rm -f conftest.$ac_cv_objext conftest.$ac_ext +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 +$as_echo "$ac_cv_objext" >&6; } +OBJEXT=$ac_cv_objext +ac_objext=$OBJEXT +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 +$as_echo_n "checking whether we are using the GNU C compiler... " >&6; } +if test "${ac_cv_c_compiler_gnu+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ +#ifndef __GNUC__ + choke me +#endif + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_compiler_gnu=yes +else + ac_compiler_gnu=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +ac_cv_c_compiler_gnu=$ac_compiler_gnu + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 +$as_echo "$ac_cv_c_compiler_gnu" >&6; } +if test $ac_compiler_gnu = yes; then + GCC=yes +else + GCC= +fi +ac_test_CFLAGS=${CFLAGS+set} +ac_save_CFLAGS=$CFLAGS +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 +$as_echo_n "checking whether $CC accepts -g... " >&6; } +if test "${ac_cv_prog_cc_g+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + ac_save_c_werror_flag=$ac_c_werror_flag + ac_c_werror_flag=yes + ac_cv_prog_cc_g=no + CFLAGS="-g" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_prog_cc_g=yes +else + CFLAGS="" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + +else + ac_c_werror_flag=$ac_save_c_werror_flag + CFLAGS="-g" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_prog_cc_g=yes +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + ac_c_werror_flag=$ac_save_c_werror_flag +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 +$as_echo "$ac_cv_prog_cc_g" >&6; } +if test "$ac_test_CFLAGS" = set; then + CFLAGS=$ac_save_CFLAGS +elif test $ac_cv_prog_cc_g = yes; then + if test "$GCC" = yes; then + CFLAGS="-g -O2" + else + CFLAGS="-g" + fi +else + if test "$GCC" = yes; then + CFLAGS="-O2" + else + CFLAGS= + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 +$as_echo_n "checking for $CC option to accept ISO C89... " >&6; } +if test "${ac_cv_prog_cc_c89+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + ac_cv_prog_cc_c89=no +ac_save_CC=$CC +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +#include +#include +#include +/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ +struct buf { int x; }; +FILE * (*rcsopen) (struct buf *, struct stat *, int); +static char *e (p, i) + char **p; + int i; +{ + return p[i]; +} +static char *f (char * (*g) (char **, int), char **p, ...) +{ + char *s; + va_list v; + va_start (v,p); + s = g (p, va_arg (v,int)); + va_end (v); + return s; +} + +/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has + function prototypes and stuff, but not '\xHH' hex character constants. + These don't provoke an error unfortunately, instead are silently treated + as 'x'. The following induces an error, until -std is added to get + proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an + array size at least. It's necessary to write '\x00'==0 to get something + that's true only with -std. */ +int osf4_cc_array ['\x00' == 0 ? 1 : -1]; + +/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters + inside strings and character constants. */ +#define FOO(x) 'x' +int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; + +int test (int i, double x); +struct s1 {int (*f) (int a);}; +struct s2 {int (*f) (double a);}; +int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); +int argc; +char **argv; +int +main () +{ +return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; + ; + return 0; +} +_ACEOF +for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ + -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" +do + CC="$ac_save_CC $ac_arg" + if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_prog_cc_c89=$ac_arg +fi +rm -f core conftest.err conftest.$ac_objext + test "x$ac_cv_prog_cc_c89" != "xno" && break +done +rm -f conftest.$ac_ext +CC=$ac_save_CC + +fi +# AC_CACHE_VAL +case "x$ac_cv_prog_cc_c89" in + x) + { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 +$as_echo "none needed" >&6; } ;; + xno) + { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 +$as_echo "unsupported" >&6; } ;; + *) + CC="$CC $ac_cv_prog_cc_c89" + { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 +$as_echo "$ac_cv_prog_cc_c89" >&6; } ;; +esac +if test "x$ac_cv_prog_cc_c89" != xno; then : + +fi + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 +$as_echo_n "checking how to run the C preprocessor... " >&6; } +# On Suns, sometimes $CPP names a directory. +if test -n "$CPP" && test -d "$CPP"; then + CPP= +fi +if test -z "$CPP"; then + if test "${ac_cv_prog_CPP+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + # Double quotes because CPP needs to be expanded + for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" + do + ac_preproc_ok=false +for ac_c_preproc_warn_flag in '' yes +do + # Use a header file that comes with gcc, so configuring glibc + # with a fresh cross-compiler works. + # Prefer to if __STDC__ is defined, since + # exists even on freestanding compilers. + # On the NeXT, cc -E runs the code through the compiler's parser, + # not just through cpp. "Syntax error" is here to catch this case. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef __STDC__ +# include +#else +# include +#endif + Syntax error +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + +else + # Broken: fails on valid input. +continue +fi +rm -f conftest.err conftest.i conftest.$ac_ext + + # OK, works on sane cases. Now check whether nonexistent headers + # can be detected and how. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + # Broken: success on invalid input. +continue +else + # Passes both tests. +ac_preproc_ok=: +break +fi +rm -f conftest.err conftest.i conftest.$ac_ext + +done +# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. +rm -f conftest.i conftest.err conftest.$ac_ext +if $ac_preproc_ok; then : + break +fi + + done + ac_cv_prog_CPP=$CPP + +fi + CPP=$ac_cv_prog_CPP +else + ac_cv_prog_CPP=$CPP +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 +$as_echo "$CPP" >&6; } +ac_preproc_ok=false +for ac_c_preproc_warn_flag in '' yes +do + # Use a header file that comes with gcc, so configuring glibc + # with a fresh cross-compiler works. + # Prefer to if __STDC__ is defined, since + # exists even on freestanding compilers. + # On the NeXT, cc -E runs the code through the compiler's parser, + # not just through cpp. "Syntax error" is here to catch this case. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#ifdef __STDC__ +# include +#else +# include +#endif + Syntax error +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + +else + # Broken: fails on valid input. +continue +fi +rm -f conftest.err conftest.i conftest.$ac_ext + + # OK, works on sane cases. Now check whether nonexistent headers + # can be detected and how. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +_ACEOF +if ac_fn_c_try_cpp "$LINENO"; then : + # Broken: success on invalid input. +continue +else + # Passes both tests. +ac_preproc_ok=: +break +fi +rm -f conftest.err conftest.i conftest.$ac_ext + +done +# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. +rm -f conftest.i conftest.err conftest.$ac_ext +if $ac_preproc_ok; then : + +else + { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error $? "C preprocessor \"$CPP\" fails sanity check +See \`config.log' for more details" "$LINENO" 5 ; } +fi + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 +$as_echo_n "checking for grep that handles long lines and -e... " >&6; } +if test "${ac_cv_path_GREP+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + if test -z "$GREP"; then + ac_path_GREP_found=false + # Loop through the user's path and test for each of PROGNAME-LIST + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_prog in grep ggrep; do + for ac_exec_ext in '' $ac_executable_extensions; do + ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" + { test -f "$ac_path_GREP" && $as_test_x "$ac_path_GREP"; } || continue +# Check for GNU ac_path_GREP and select it if it is found. + # Check for GNU $ac_path_GREP +case `"$ac_path_GREP" --version 2>&1` in +*GNU*) + ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; +*) + ac_count=0 + $as_echo_n 0123456789 >"conftest.in" + while : + do + cat "conftest.in" "conftest.in" >"conftest.tmp" + mv "conftest.tmp" "conftest.in" + cp "conftest.in" "conftest.nl" + $as_echo 'GREP' >> "conftest.nl" + "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break + diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break + as_fn_arith $ac_count + 1 && ac_count=$as_val + if test $ac_count -gt ${ac_path_GREP_max-0}; then + # Best one so far, save it but keep looking for a better one + ac_cv_path_GREP="$ac_path_GREP" + ac_path_GREP_max=$ac_count + fi + # 10*(2^10) chars as input seems more than enough + test $ac_count -gt 10 && break + done + rm -f conftest.in conftest.tmp conftest.nl conftest.out;; +esac + + $ac_path_GREP_found && break 3 + done + done + done +IFS=$as_save_IFS + if test -z "$ac_cv_path_GREP"; then + as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 + fi +else + ac_cv_path_GREP=$GREP +fi + +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 +$as_echo "$ac_cv_path_GREP" >&6; } + GREP="$ac_cv_path_GREP" + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 +$as_echo_n "checking for egrep... " >&6; } +if test "${ac_cv_path_EGREP+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 + then ac_cv_path_EGREP="$GREP -E" + else + if test -z "$EGREP"; then + ac_path_EGREP_found=false + # Loop through the user's path and test for each of PROGNAME-LIST + as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + for ac_prog in egrep; do + for ac_exec_ext in '' $ac_executable_extensions; do + ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" + { test -f "$ac_path_EGREP" && $as_test_x "$ac_path_EGREP"; } || continue +# Check for GNU ac_path_EGREP and select it if it is found. + # Check for GNU $ac_path_EGREP +case `"$ac_path_EGREP" --version 2>&1` in +*GNU*) + ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; +*) + ac_count=0 + $as_echo_n 0123456789 >"conftest.in" + while : + do + cat "conftest.in" "conftest.in" >"conftest.tmp" + mv "conftest.tmp" "conftest.in" + cp "conftest.in" "conftest.nl" + $as_echo 'EGREP' >> "conftest.nl" + "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break + diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break + as_fn_arith $ac_count + 1 && ac_count=$as_val + if test $ac_count -gt ${ac_path_EGREP_max-0}; then + # Best one so far, save it but keep looking for a better one + ac_cv_path_EGREP="$ac_path_EGREP" + ac_path_EGREP_max=$ac_count + fi + # 10*(2^10) chars as input seems more than enough + test $ac_count -gt 10 && break + done + rm -f conftest.in conftest.tmp conftest.nl conftest.out;; +esac + + $ac_path_EGREP_found && break 3 + done + done + done +IFS=$as_save_IFS + if test -z "$ac_cv_path_EGREP"; then + as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 + fi +else + ac_cv_path_EGREP=$EGREP +fi + + fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 +$as_echo "$ac_cv_path_EGREP" >&6; } + EGREP="$ac_cv_path_EGREP" + + +{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 +$as_echo_n "checking for ANSI C header files... " >&6; } +if test "${ac_cv_header_stdc+set}" = set; then : + $as_echo_n "(cached) " >&6 +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +#include +#include +#include + +int +main () +{ + + ; + return 0; +} +_ACEOF +if ac_fn_c_try_compile "$LINENO"; then : + ac_cv_header_stdc=yes +else + ac_cv_header_stdc=no +fi +rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext + +if test $ac_cv_header_stdc = yes; then + # SunOS 4.x string.h does not declare mem*, contrary to ANSI. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "memchr" >/dev/null 2>&1; then : + +else + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include + +_ACEOF +if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | + $EGREP "free" >/dev/null 2>&1; then : + +else + ac_cv_header_stdc=no +fi +rm -f conftest* + +fi + +if test $ac_cv_header_stdc = yes; then + # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. + if test "$cross_compiling" = yes; then : + : +else + cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +#include +#include +#if ((' ' & 0x0FF) == 0x020) +# define ISLOWER(c) ('a' <= (c) && (c) <= 'z') +# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) +#else +# define ISLOWER(c) \ + (('a' <= (c) && (c) <= 'i') \ + || ('j' <= (c) && (c) <= 'r') \ + || ('s' <= (c) && (c) <= 'z')) +# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) +#endif + +#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) +int +main () +{ + int i; + for (i = 0; i < 256; i++) + if (XOR (islower (i), ISLOWER (i)) + || toupper (i) != TOUPPER (i)) + return 2; + return 0; +} +_ACEOF +if ac_fn_c_try_run "$LINENO"; then : + +else + ac_cv_header_stdc=no +fi +rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ + conftest.$ac_objext conftest.beam conftest.$ac_ext +fi + +fi +fi +{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 +$as_echo "$ac_cv_header_stdc" >&6; } +if test $ac_cv_header_stdc = yes; then + +$as_echo "#define STDC_HEADERS 1" >>confdefs.h + +fi + +# On IRIX 5.3, sys/types and inttypes.h are conflicting. +for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ + inttypes.h stdint.h unistd.h +do : + as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` +ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default +" +if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : + cat >>confdefs.h <<_ACEOF +#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 +_ACEOF + +fi + +done + + +for ac_header in clang-c/Index.h +do : + ac_fn_c_check_header_mongrel "$LINENO" "clang-c/Index.h" "ac_cv_header_clang_c_Index_h" "$ac_includes_default" +if test "x$ac_cv_header_clang_c_Index_h" = x""yes; then : + cat >>confdefs.h <<_ACEOF +#define HAVE_CLANG_C_INDEX_H 1 +_ACEOF + +else + no_clang_include=yes +fi + +done + +if test "$no_clang_include" = yes +then + as_fn_error $? " + ------------------------------------------------- + Cannot find + Please ensure libClang is installed and + is in CFLAGS (-I...) or passed through configure + NOTE: if file is present and configured, + try running running \"cabal build -vv\" or + \"runhaskell Setup.hs build -vv\" + to get the exact commands run + -------------------------------------------------" "$LINENO" 5 +fi + +# Check for stdlib.h and inttypes +if test "$ac_cv_header_stdlib_h" != yes +then + as_fn_error $? "Cannot find stdlib.h" "$LINENO" 5 +fi +if test "$ac_cv_header_inttypes_h" != yes +then + as_fn_error $? "Cannot find inttypes.h" "$LINENO" 5 +fi + +ac_config_files="$ac_config_files LibClang.buildinfo" + +cat >confcache <<\_ACEOF +# This file is a shell script that caches the results of configure +# tests run on this system so they can be shared between configure +# scripts and configure runs, see configure's option --config-cache. +# It is not useful on other systems. If it contains results you don't +# want to keep, you may remove or edit it. +# +# config.status only pays attention to the cache file if you give it +# the --recheck option to rerun configure. +# +# `ac_cv_env_foo' variables (set or unset) will be overridden when +# loading this file, other *unset* `ac_cv_foo' will be assigned the +# following values. + +_ACEOF + +# The following way of writing the cache mishandles newlines in values, +# but we know of no workaround that is simple, portable, and efficient. +# So, we kill variables containing newlines. +# Ultrix sh set writes to stderr and can't be redirected directly, +# and sets the high bit in the cache file unless we assign to the vars. +( + for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do + eval ac_val=\$$ac_var + case $ac_val in #( + *${as_nl}*) + case $ac_var in #( + *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + esac + case $ac_var in #( + _ | IFS | as_nl) ;; #( + BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( + *) { eval $ac_var=; unset $ac_var;} ;; + esac ;; + esac + done + + (set) 2>&1 | + case $as_nl`(ac_space=' '; set) 2>&1` in #( + *${as_nl}ac_space=\ *) + # `set' does not quote correctly, so add quotes: double-quote + # substitution turns \\\\ into \\, and sed turns \\ into \. + sed -n \ + "s/'/'\\\\''/g; + s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" + ;; #( + *) + # `set' quotes correctly as required by POSIX, so do not add quotes. + sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" + ;; + esac | + sort +) | + sed ' + /^ac_cv_env_/b end + t clear + :clear + s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ + t end + s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ + :end' >>confcache +if diff "$cache_file" confcache >/dev/null 2>&1; then :; else + if test -w "$cache_file"; then + test "x$cache_file" != "x/dev/null" && + { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 +$as_echo "$as_me: updating cache $cache_file" >&6;} + cat confcache >$cache_file + else + { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 +$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} + fi +fi +rm -f confcache + +test "x$prefix" = xNONE && prefix=$ac_default_prefix +# Let make expand exec_prefix. +test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' + +# Transform confdefs.h into DEFS. +# Protect against shell expansion while executing Makefile rules. +# Protect against Makefile macro expansion. +# +# If the first sed substitution is executed (which looks for macros that +# take arguments), then branch to the quote section. Otherwise, +# look for a macro that doesn't take arguments. +ac_script=' +:mline +/\\$/{ + N + s,\\\n,, + b mline +} +t clear +:clear +s/^[ ]*#[ ]*define[ ][ ]*\([^ (][^ (]*([^)]*)\)[ ]*\(.*\)/-D\1=\2/g +t quote +s/^[ ]*#[ ]*define[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)/-D\1=\2/g +t quote +b any +:quote +s/[ `~#$^&*(){}\\|;'\''"<>?]/\\&/g +s/\[/\\&/g +s/\]/\\&/g +s/\$/$$/g +H +:any +${ + g + s/^\n// + s/\n/ /g + p +} +' +DEFS=`sed -n "$ac_script" confdefs.h` + + +ac_libobjs= +ac_ltlibobjs= +U= +for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue + # 1. Remove the extension, and $U if already installed. + ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' + ac_i=`$as_echo "$ac_i" | sed "$ac_script"` + # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR + # will be set to the directory where LIBOBJS objects are built. + as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" + as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' +done +LIBOBJS=$ac_libobjs + +LTLIBOBJS=$ac_ltlibobjs + + + +: ${CONFIG_STATUS=./config.status} +ac_write_fail=0 +ac_clean_files_save=$ac_clean_files +ac_clean_files="$ac_clean_files $CONFIG_STATUS" +{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 +$as_echo "$as_me: creating $CONFIG_STATUS" >&6;} +as_write_fail=0 +cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 +#! $SHELL +# Generated by $as_me. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=\${CONFIG_SHELL-$SHELL} +export SHELL +_ASEOF +cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -p'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -p' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -p' + fi +else + as_ln_s='cp -p' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + +if test -x / >/dev/null 2>&1; then + as_test_x='test -x' +else + if ls -dL / >/dev/null 2>&1; then + as_ls_L_option=L + else + as_ls_L_option= + fi + as_test_x=' + eval sh -c '\'' + if test -d "$1"; then + test -d "$1/."; + else + case $1 in #( + -*)set "./$1";; + esac; + case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #(( + ???[sx]*):;;*)false;;esac;fi + '\'' sh + ' +fi +as_executable_p=$as_test_x + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +_ASEOF +test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by LibClang $as_me 0.0.1, which was +generated by GNU Autoconf 2.67. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +_ACEOF + +case $ac_config_files in *" +"*) set x $ac_config_files; shift; ac_config_files=$*;; +esac + + + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +# Files that config.status was made for. +config_files="$ac_config_files" + +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + +Configuration files: +$config_files + +Report bugs to the package provider." + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" +ac_cs_version="\\ +LibClang config.status 0.0.1 +configured by $0, generated by GNU Autoconf 2.67, + with options \\"\$ac_cs_config\\" + +Copyright (C) 2010 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='$ac_pwd' +srcdir='$srcdir' +test -n "\$AWK" || AWK=awk +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h | --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +if \$ac_cs_recheck; then + set X '$SHELL' '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion + shift + \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 + CONFIG_SHELL='$SHELL' + export CONFIG_SHELL + exec "\$@" +fi + +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "LibClang.buildinfo") CONFIG_FILES="$CONFIG_FILES LibClang.buildinfo" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5 ;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= + trap 'exit_status=$? + { test -z "$tmp" || test ! -d "$tmp" || rm -fr "$tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -n "$tmp" && test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$tmp/subs1.awk" && +_ACEOF + + +{ + echo "cat >conf$$subs.awk <<_ACEOF" && + echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && + echo "_ACEOF" +} >conf$$subs.sh || + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 +ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` +ac_delim='%!_!# ' +for ac_last_try in false false false false false :; do + . ./conf$$subs.sh || + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 + + ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` + if test $ac_delim_n = $ac_delim_num; then + break + elif $ac_last_try; then + as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 + else + ac_delim="$ac_delim!$ac_delim _$ac_delim!! " + fi +done +rm -f conf$$subs.sh + +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +cat >>"\$tmp/subs1.awk" <<\\_ACAWK && +_ACEOF +sed -n ' +h +s/^/S["/; s/!.*/"]=/ +p +g +s/^[^!]*!// +:repl +t repl +s/'"$ac_delim"'$// +t delim +:nl +h +s/\(.\{148\}\)..*/\1/ +t more1 +s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ +p +n +b repl +:more1 +s/["\\]/\\&/g; s/^/"/; s/$/"\\/ +p +g +s/.\{148\}// +t nl +:delim +h +s/\(.\{148\}\)..*/\1/ +t more2 +s/["\\]/\\&/g; s/^/"/; s/$/"/ +p +b +:more2 +s/["\\]/\\&/g; s/^/"/; s/$/"\\/ +p +g +s/.\{148\}// +t delim +' >$CONFIG_STATUS || ac_write_fail=1 +rm -f conf$$subs.awk +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +_ACAWK +cat >>"\$tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$tmp/subs1.awk" > "$tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +_ACEOF + +# VPATH may cause trouble with some makes, so we remove sole $(srcdir), +# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and +# trailing colons and then remove the whole line if VPATH becomes empty +# (actually we leave an empty line to preserve line numbers). +if test "x$srcdir" = x.; then + ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ +h +s/// +s/^/:/ +s/[ ]*$/:/ +s/:\$(srcdir):/:/g +s/:\${srcdir}:/:/g +s/:@srcdir@:/:/g +s/^:*// +s/:*$// +x +s/\(=[ ]*\).*/\1/ +G +s/\n// +s/^[^=]*=[ ]*$// +}' +fi + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +fi # test -n "$CONFIG_FILES" + + +eval set X " :F $CONFIG_FILES " +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5 ;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5 ;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + +_ACEOF + +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} +_ACEOF +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 + ac_datarootdir_hack=' + s&@datadir@&$datadir&g + s&@docdir@&$docdir&g + s&@infodir@&$infodir&g + s&@localedir@&$localedir&g + s&@mandir@&$mandir&g + s&\\\${datarootdir}&$datarootdir&g' ;; +esac +_ACEOF + +# Neutralize VPATH when `$srcdir' = `.'. +# Shell code in configure.ac might set extrasub. +# FIXME: do we really want to maintain this feature? +cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 +ac_sed_extra="$ac_vpsub +$extrasub +_ACEOF +cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$tmp/subs.awk" >$tmp/out \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' "$tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$tmp/stdin" + case $ac_file in + -) cat "$tmp/out" && rm -f "$tmp/out";; + *) rm -f "$ac_file" && mv "$tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + + + + esac + +done # for ac_tag + + +as_fn_exit 0 +_ACEOF +ac_clean_files=$ac_clean_files_save + +test $ac_write_fail = 0 || + as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 + + +# configure is writing to config.log, and then calls config.status. +# config.status does its own redirection, appending to config.log. +# Unfortunately, on DOS this fails, as config.log is still kept open +# by configure, so config.status won't be able to write to it; its +# output is simply discarded. So we exec the FD to /dev/null, +# effectively closing config.log, so it can be properly (re)opened and +# appended to by config.status. When coming back to configure, we +# need to make the FD available again. +if test "$no_create" != yes; then + ac_cs_success=: + ac_config_status_args= + test "$silent" = yes && + ac_config_status_args="$ac_config_status_args --quiet" + exec 5>/dev/null + $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false + exec 5>>config.log + # Use ||, not &&, to avoid exiting from the if with $? = 1, which + # would make configure fail if this is the last instruction. + $ac_cs_success || as_fn_exit 1 +fi +if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 +$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} +fi + diff --git a/src/Clang.hs b/src/Clang.hs new file mode 100644 --- /dev/null +++ b/src/Clang.hs @@ -0,0 +1,2 @@ +module Clang where + diff --git a/src/Clang/FFI.gc b/src/Clang/FFI.gc new file mode 100644 --- /dev/null +++ b/src/Clang/FFI.gc @@ -0,0 +1,1298 @@ +{-# LANGUAGE ForeignFunctionInterface, EmptyDataDecls #-} +module Clang.FFI where + +import Data.Word +import Control.Applicative((<$>)) +import Foreign.GreenCard +import Foreign.C +import Foreign.ForeignPtr +import Foreign.Ptr + +%#include +%#include +%#include + +%prefix CX +%prefix CX_ +%prefix clang_ + +marshall_fptr :: ForeignPtr a -> IO (Ptr a) +marshall_fptr = return . unsafeForeignPtrToPtr + +-- typedef void *CXIndex; +data IndexObj +type Index = ForeignPtr IndexObj + +-- CXIndex clang_createIndex(int excludeDeclarationsFromPCH, int displayDiagnostics); +%fun clang_createIndex :: Bool -> Bool -> IO Index +%call (bool a) (bool b) +%code CXIndex r = clang_createIndex(a, b); +%result (index (ptr r)) + +-- void clang_disposeIndex(CXIndex index); +foreign import ccall unsafe "clang-c/Index.h &clang_disposeIndex" clang_disposeIndex :: FunPtr (Ptr IndexObj -> IO ()) + +unmarshall_index :: Ptr IndexObj -> IO (ForeignPtr IndexObj) +unmarshall_index = newForeignPtr clang_disposeIndex + +-- typedef struct CXTranslationUnitImpl *CXTranslationUnit; +data TranslationUnitObj +type TranslationUnit = ForeignPtr TranslationUnitObj + +-- void clang_disposeTranslationUnit(CXTranslationUnit); +foreign import ccall unsafe "clang-c/Index.h &clang_disposeTranslationUnit" clang_disposeTranslationUnit :: FunPtr (Ptr TranslationUnitObj -> IO ()) + +unmarshall_translationUnit :: Ptr TranslationUnitObj -> IO (ForeignPtr TranslationUnitObj) +unmarshall_translationUnit = newForeignPtr clang_disposeTranslationUnit + +-- typedef void *CXClientData; +data ClientDataObj +type ClientData = ForeignPtr ClientDataObj + +-- struct CXUnsavedFile { +-- const char *Filename; +-- const char *Contents; +-- unsigned long Length; +-- }; +data UnsavedFile = UnsavedFile { usf_filename :: String, usf_contents :: String } + +%enum AvailabilityKind Int [CXAvailability_Available, CXAvailability_Deprecated, CXAvailability_NotAvailable] +-- enum CXAvailabilityKind { +-- CXAvailability_Available, +-- CXAvailability_Deprecated, +-- CXAvailability_NotAvailable +-- }; + +-- typedef struct { +-- void *data; +-- unsigned private_flags; +-- } CXString; +data StringObj +type CXString = ForeignPtr StringObj + +%C CXString * mkStrObj() { return malloc(sizeof(CXString)); } +% void freeStrObj(CXString * str) { clang_disposeString(*str);free(str); } +foreign import ccall unsafe "FFI_stub_ffi.h mkStrObj" mkStrObj :: IO (Ptr StringObj) +foreign import ccall unsafe "FFI_stub_ffi.h &freeStrObj" freeStrObj :: FunPtr (Ptr StringObj -> IO ()) + +unmarshall_cxString :: Ptr StringObj -> IO (ForeignPtr StringObj) +unmarshall_cxString = newForeignPtr freeStrObj + +-- const char *clang_getCString(CXString string); +%fun clang_getCString :: CXString -> IO String +%call (fptr (ptr d)) +%code r = clang_getCString(*(CXString*)d); +%result (string r) + +-- typedef void *CXFile; +newtype File = File (Ptr ()) +%dis file x = File (ptr x) + +-- CXString clang_getFileName(CXFile SFile); +%fun clang_getFileName :: File -> IO CXString +%call (file x) +%code CXString *r = mkStrObj();*r = clang_getFileName(x); +%result (cxString (ptr r)) + +-- time_t clang_getFileTime(CXFile SFile); +%fun clang_getFileTime :: File -> IO Word64 + +-- CXFile clang_getFile(CXTranslationUnit tu, const char *file_name); +%fun clang_getFile :: TranslationUnit -> String -> IO File +%call (fptr (ptr t)) (string s) +%code CXFile r = clang_getFile(t, s); +%result (file r) + +-- typedef struct { +-- void *ptr_data[2]; +-- unsigned int_data; +-- } CXSourceLocation; +data SourceLocation = SourceLocation (Ptr ()) (Ptr ()) Int +%dis sourceLocation p1 p2 d = SourceLocation (ptr p1) (ptr p2) (int d) + +-- typedef struct { +-- void *ptr_data[2]; +-- unsigned begin_int_data; +-- unsigned end_int_data; +-- } CXSourceRange; +data SourceRange = SourceRange (Ptr ()) (Ptr ()) Int Int +%dis sourceRange p1 p2 d1 d2 = SourceRange (ptr p1) (ptr p2) (int d1) (int d2) + +-- CXSourceLocation clang_getNullLocation(); +%fun clang_getNullLocation :: IO SourceLocation +%code CXSourceLocation r = clang_getNullLocation(); +%result (sourceLocation {r.ptr_data[0]} {r.ptr_data[1]} {r.int_data}) + +-- unsigned clang_equalLocations(CXSourceLocation loc1, CXSourceLocation loc2); +%fun clang_equalLocations :: SourceLocation -> SourceLocation -> IO Bool +%call (sourceLocation p1 p2 d) (sourceLocation p12 p22 d2) +%code CXSourceLocation l = {{p1, p2}, d}; +% CXSourceLocation m = {{p12, p22}, d2}; +%result (bool {clang_equalLocations(l, m)}) + +-- CXSourceLocation clang_getLocation(CXTranslationUnit tu, +-- CXFile file, +-- unsigned line, +-- unsigned column); +%fun clang_getLocation :: TranslationUnit -> File -> Int -> Int -> IO SourceLocation +%call (fptr (ptr t)) (file f) (int i) (int j) +%code CXSourceLocation r = clang_getLocation(*(CXTranslationUnit*)t, f, i, j); +%result (sourceLocation {r.ptr_data[0]} {r.ptr_data[1]} {r.int_data}) + +-- CXSourceLocation clang_getLocationForOffset(CXTranslationUnit tu, +-- CXFile file, +-- unsigned offset); +%fun clang_getLocationForOffset :: TranslationUnit -> File -> Int -> IO SourceLocation +%call (fptr (ptr t)) (file f) (int i) +%code CXSourceLocation r = clang_getLocationForOffset(*(CXTranslationUnit*)t, f, i); +%result (sourceLocation {r.ptr_data[0]} {r.ptr_data[1]} {r.int_data}) + +-- CXSourceRange clang_getNullRange(); +%fun clang_getNullRange :: IO SourceRange +%code CXSourceRange r = clang_getNullRange(); +%result (sourceRange {r.ptr_data[0]} {r.ptr_data[1]} {r.begin_int_data} {r.end_int_data}) + +-- CXSourceRange clang_getRange(CXSourceLocation begin, +-- CXSourceLocation end); +%fun clang_getRange :: SourceLocation -> SourceLocation -> IO SourceRange +%call (sourceLocation p1 p2 d) (sourceLocation p12 p22 d2) +%code CXSourceLocation l = {{p1, p2}, d}; +% CXSourceLocation m = {{p12, p22}, d2}; +% CXSourceRange r = clang_getRange(l, m); +%result (sourceRange {r.ptr_data[0]} {r.ptr_data[1]} {r.begin_int_data} {r.end_int_data}) + +-- void clang_getInstantiationLocation(CXSourceLocation location, +-- CXFile *file, +-- unsigned *line, +-- unsigned *column, +-- unsigned *offset); +%fun clang_getInstantiationLocation :: SourceLocation -> IO (File, Int, Int, Int) +%call (sourceLocation p1 p2 d) +%code CXSourceLocation l = {{p1, p2}, d}; +% CXFile f;unsigned ln,c,o;clang_getInstantiationLocation(l,&f,&ln,&c,&o); +%result ((file f), (int ln), (int c), (int o)) + +-- void clang_getSpellingLocation(CXSourceLocation location, +-- CXFile *file, +-- unsigned *line, +-- unsigned *column, +-- unsigned *offset); +%fun clang_getSpellingLocation :: SourceLocation -> IO (File, Int, Int, Int) +%call (sourceLocation p1 p2 d) +%code CXSourceLocation l = {{p1, p2}, d}; +% CXFile f;unsigned ln,c,o;clang_getSpellingLocation(l,&f,&ln,&c,&o); +%result ((file f), (int ln), (int c), (int o)) + +-- CXSourceLocation clang_getRangeStart(CXSourceRange range); +%fun clang_getRangeStart :: SourceRange -> IO SourceLocation +%call (sourceRange p1 p2 d1 d2) +%code CXSourceRange a = {{p1, p2}, d1, d2}; +% CXSourceLocation r = clang_getRangeStart(a); +%result (sourceLocation {r.ptr_data[0]} {r.ptr_data[1]} {r.int_data}) + +-- CXSourceLocation clang_getRangeEnd(CXSourceRange range); +%fun clang_getRangeEnd :: SourceRange -> IO SourceLocation +%call (sourceRange p1 p2 d1 d2) +%code CXSourceRange a = {{p1, p2}, d1, d2}; +% CXSourceLocation r = clang_getRangeEnd(a); +%result (sourceLocation {r.ptr_data[0]} {r.ptr_data[1]} {r.int_data}) + +-- enum CXDiagnosticSeverity { +-- CXDiagnostic_Ignored = 0, +-- CXDiagnostic_Note = 1, +-- CXDiagnostic_Warning = 2, +-- CXDiagnostic_Error = 3, +-- CXDiagnostic_Fatal = 4 +-- }; +%enum DiagnosticSeverity Int [CXDiagnostic_Ignored, CXDiagnostic_Note, CXDiagnostic_Warning, CXDiagnostic_Error, CXDiagnostic_Fatal] + +-- typedef void *CXDiagnostic; +data DiagnosticObj +type Diagnostic = ForeignPtr DiagnosticObj +%dis diagnostic d = (fptr (ptr d)) + +-- void clang_disposeDiagnostic(CXDiagnostic Diagnostic); +foreign import ccall unsafe "clang-c/Index.h &clang_disposeDiagnostic" clang_disposeDiagnostic :: FunPtr (Ptr DiagnosticObj -> IO ()) + +unmarshall_diag :: Ptr DiagnosticObj -> IO (ForeignPtr DiagnosticObj) +unmarshall_diag = newForeignPtr clang_disposeDiagnostic + +-- unsigned clang_getNumDiagnostics(CXTranslationUnit Unit); +%fun clang_getNumDiagnostics :: TranslationUnit -> IO Int +%call (fptr (ptr t)) +%code unsigned r = clang_getNumDiagnostics(*(CXTranslationUnit*)t); +%result (int r) + +-- CXDiagnostic clang_getDiagnostic(CXTranslationUnit Unit, unsigned Index); +%fun clang_getDiagnostic :: TranslationUnit -> Int -> IO Diagnostic +%call (fptr (ptr t)) (int i) +%code CXDiagnostic r = clang_getDiagnostic(*(CXTranslationUnit*)t, i); +%result (diag (ptr r)) + +-- enum CXDiagnosticDisplayOptions { +-- CXDiagnostic_DisplaySourceLocation = 0x01, +-- CXDiagnostic_DisplayColumn = 0x02, +-- CXDiagnostic_DisplaySourceRanges = 0x04, + +-- CXDiagnostic_DisplayOption = 0x08, + +-- CXDiagnostic_DisplayCategoryId = 0x10, +-- CXDiagnostic_DisplayCategoryName = 0x20 +-- }; +%enum DiagnosticDisplayOptions Int [CXDiagnostic_DisplaySourceLocation,CXDiagnostic_DisplayColumn,CXDiagnostic_DisplaySourceRanges, CXDiagnostic_DisplayOption, CXDiagnostic_DisplayCategoryId,CXDiagnostic_DisplayCategoryName] + +-- TODO: make options composable via the enum +-- CXString clang_formatDiagnostic(CXDiagnostic Diagnostic, unsigned Options); +%fun clang_formatDiagnostic :: Diagnostic -> Int -> IO CXString +%call (fptr (ptr d)) (int i) +%code CXString *r = mkStrObj();*r = clang_formatDiagnostic(d, i); +%result (cxString (ptr r)) + +-- unsigned clang_defaultDiagnosticDisplayOptions(void); +%fun clang_defaultDiagnosticDisplayOptions :: IO Int + +-- enum CXDiagnosticSeverity +-- clang_getDiagnosticSeverity(CXDiagnostic); +%fun clang_getDiagnosticSeverity :: Diagnostic -> IO DiagnosticSeverity + +-- CXSourceLocation clang_getDiagnosticLocation(CXDiagnostic); +%fun clang_getDiagnosticLocation :: Diagnostic -> IO SourceLocation +%call (fptr (ptr d)) +%code CXSourceLocation r = clang_getDiagnosticLocation(d); +%result (sourceLocation {r.ptr_data[0]} {r.ptr_data[1]} {r.int_data}) + +-- CXString clang_getDiagnosticSpelling(CXDiagnostic); +%fun clang_getDiagnosticSpelling :: Diagnostic -> IO CXString +%call (fptr (ptr d)) +%code CXString *r = mkStrObj();*r = clang_getDiagnosticSpelling(d); +%result (cxString (ptr r)) + +-- CXString clang_getDiagnosticOption(CXDiagnostic Diag, +-- CXString *Disable); +%fun clang_getDiagnosticOption :: Diagnostic -> IO (CXString, CXString) +%call (fptr (ptr d)) +%code CXString *a = mkStrObj();CXString *r = mkStrObj();*r = clang_getDiagnosticOption(d, a); +%result ((cxString (ptr r)), (cxString (ptr a))) + +-- unsigned clang_getDiagnosticCategory(CXDiagnostic); +%fun clang_getDiagnosticCategory :: Diagnostic -> IO Int + +-- CXString clang_getDiagnosticCategoryName(unsigned Category); +%fun clang_getDiagnosticCategoryName :: Int -> IO CXString +%call (int c) +%code CXString *r = mkStrObj();*r = clang_getDiagnosticCategoryName(c); +%result (cxString (ptr r)) + +-- unsigned clang_getDiagnosticNumRanges(CXDiagnostic); +%fun clang_getDiagnosticNumRanges :: Diagnostic -> IO Int + +-- CXSourceRange clang_getDiagnosticRange(CXDiagnostic Diagnostic, +-- unsigned Range); +%fun clang_getDiagnosticRange :: Diagnostic -> Int -> SourceRange +%call (fptr (ptr d)) (int i) +%code CXSourceRange r = clang_getDiagnosticRange(d, i); +%result (sourceRange {r.ptr_data[0]} {r.ptr_data[1]} {r.begin_int_data} {r.end_int_data}) + +-- unsigned clang_getDiagnosticNumFixIts(CXDiagnostic Diagnostic); +%fun clang_getDiagnosticNumFixIts :: Diagnostic -> IO Int + +-- CXString clang_getDiagnosticFixIt(CXDiagnostic Diagnostic, +-- unsigned FixIt, +-- CXSourceRange *ReplacementRange); +%fun clang_getDiagnosticFixIt :: Diagnostic -> Int -> IO (SourceRange, CXString) +%call (fptr (ptr d)) (int i) +%code CXSourceRange a;CXString *r = mkStrObj();*r = clang_getDiagnosticFixIt(d, i, &a); +%result ((sourceRange {a.ptr_data[0]} {a.ptr_data[1]} {a.begin_int_data} {a.end_int_data}), (cxString (ptr r))) + +-- CXString +-- clang_getTranslationUnitSpelling(CXTranslationUnit CTUnit); +%fun clang_getTranslationUnitSpelling :: TranslationUnit -> IO CXString +%call (fptr (ptr t)) +%code CXString *r = mkStrObj();*r = clang_getTranslationUnitSpelling(t); +%result (cxString (ptr r)) + +-- CXTranslationUnit clang_createTranslationUnitFromSourceFile( +-- CXIndex CIdx, +-- const char *source_filename, +-- int num_clang_command_line_args, +-- const char * const *clang_command_line_args, +-- unsigned num_unsaved_files, +-- struct CXUnsavedFile *unsaved_files); +%fun clang_createTranslationUnitFromSourceFile :: Index -> String -> [String] -> [UnsavedFile] -> IO TranslationUnit +%call (fptr (ptr i)) (string s) (listLenString ((fptr (ptr ss)), (int ns))) (listLenUnsavedFile ((fptr (ptr ufs)), (int nufs))) +%code r = clang_createTranslationUnitFromSourceFile(i,s,ns,ss,nufs,ufs); +%result (translationUnit (ptr r)) + +-- CXTranslationUnit clang_createTranslationUnit(CXIndex, +-- const char *ast_filename); +%fun clang_createTranslationUnit :: Index -> String -> IO TranslationUnit +%call (fptr (ptr i)) (string s) +%code CXTranslationUnit r = clang_createTranslationUnit(i, s); +%result (translationUnit (ptr r)) + +-- enum CXTranslationUnit_Flags { +-- CXTranslationUnit_None = 0x0, +-- CXTranslationUnit_DetailedPreprocessingRecord = 0x01, +-- CXTranslationUnit_Incomplete = 0x02, + +-- CXTranslationUnit_PrecompiledPreamble = 0x04, + +-- CXTranslationUnit_CacheCompletionResults = 0x08, +-- CXTranslationUnit_CXXPrecompiledPreamble = 0x10, +-- CXTranslationUnit_CXXChainedPCH = 0x20 +-- }; +%enum TranslationUnit_Flags Int [CXTranslationUnit_None, CXTranslationUnit_DetailedPreprocessingRecord, CXTranslationUnit_Incomplete, CXTranslationUnit_PrecompiledPreamble, CXTranslationUnit_CacheCompletionResults, CXTranslationUnit_CXXPrecompiledPreamble, CXTranslationUnit_CXXChainedPCH] + +-- unsigned clang_defaultEditingTranslationUnitOptions(void); +%fun clang_defaultEditingTranslationUnitOptions :: IO Int + +-- CXTranslationUnit clang_parseTranslationUnit(CXIndex CIdx, +-- const char *source_filename, +-- const char * const *command_line_args, +-- int num_command_line_args, +-- struct CXUnsavedFile *unsaved_files, +-- unsigned num_unsaved_files, +-- unsigned options); +%fun clang_parseTranslationUnit :: Index -> Maybe String -> [String] -> [UnsavedFile] -> TranslationUnit_Flags -> IO (Maybe TranslationUnit) +%call (fptr (ptr i)) (maybeT {nullPtr} (string s)) (listLenString ((fptr (ptr ss)), (int ns))) (listLenUnsavedFile ((fptr (ptr ufs)), (int nufs))) (translationUnit_Flags i2) +%code r = clang_parseTranslationUnit(i,s,ss,ns,ufs,nufs,i2); +%result (maybeT {nullPtr} (translationUnit (ptr r))) + +marshall_listLenString :: [String] -> IO (ForeignPtr CString, Int) +marshall_listLenString [] = do + arr <- newForeignPtr finalizerFree nullPtr + return (arr, 0) +marshall_listLenString ss = do + let numStrs = length ss + arr_ <- mallocArray numStrs :: IO (Ptr CString) + cstrs <- mapM newCString ss + pokeArray arr_ cstrs + arr <- newForeignPtr finalizerFree arr_ + return (arr, numStrs) + +%C uint32_t unsavedFileSize() { return sizeof(struct CXUnsavedFile); } +% void setCXUnsavedFile(char * filename, char * contents,unsigned long length, struct CXUnsavedFile* uf, int i) {uf[i].Filename=filename;uf[i].Contents=contents;uf[i].Length=length;} + +foreign import ccall unsafe "FFI_stub_ffi.h unsavedFileSize" unsavedFileSize :: Word32 +foreign import ccall unsafe "FFI_stub_ffi.h setCXUnsavedFile" setCXUnsavedFile :: CString -> CString -> CULong -> Ptr () -> CInt -> IO () + +marshall_listLenUnsavedFile :: [UnsavedFile] -> IO (ForeignPtr (), Int) +marshall_listLenUnsavedFile [] = do + arr <- newForeignPtr finalizerFree nullPtr + return (arr, 0) +marshall_listLenUnsavedFile ufs = do + let numUFs = length ufs + ufsDataSize :: Int + ufsDataSize = fromIntegral unsavedFileSize + arr_ <- mallocBytes (numUFs * ufsDataSize) :: IO (Ptr ()) + let setUF (i, uf) = do + fname <- newCString $ usf_filename uf + contents <- newCString $ usf_contents uf + let len = (fromIntegral . length) (usf_contents uf) :: CULong + setCXUnsavedFile fname contents len arr_ (fromIntegral i) + mapM_ setUF (zip [0..(numUFs-1)] ufs) + arr <- newForeignPtr finalizerFree arr_ + return (arr, numUFs) + +-- enum CXSaveTranslationUnit_Flags { +-- CXSaveTranslationUnit_None = 0x0 +-- }; +%enum SaveTranslationUnitFlags Int [CXSaveTranslationUnit_None] + +-- unsigned clang_defaultSaveOptions(CXTranslationUnit TU); +%fun clang_defaultSaveOptions :: TranslationUnit -> IO Int +%call (fptr (ptr t)) +%code r = clang_defaultSaveOptions(t); +%result (int r) + +-- int clang_saveTranslationUnit(CXTranslationUnit TU, +-- const char *FileName, +-- unsigned options); +%fun clang_saveTranslationUnit :: TranslationUnit -> String -> Int -> IO Bool +%call (fptr (ptr t)) (string s) (int i) +%code unsigned r = clang_saveTranslationUnit(t, s, i); +%result (bool {r!=0?0:1}) + +-- enum CXReparse_Flags { +-- CXReparse_None = 0x0 +-- }; +%enum ReparseFlags Int [CXReparse_None] + +-- unsigned clang_defaultReparseOptions(CXTranslationUnit TU); +%fun clang_defaultReparseOptions :: TranslationUnit -> IO Int +%call (fptr (ptr t)) +%code r = clang_defaultReparseOptions(t); +%result (int r) + +-- int clang_reparseTranslationUnit(CXTranslationUnit TU, +-- unsigned num_unsaved_files, +-- struct CXUnsavedFile *unsaved_files, +-- unsigned options); +%fun clang_reparseTranslationUnit :: TranslationUnit -> [UnsavedFile] -> Int -> IO Int +%call (fptr (ptr t)) (listLenUnsavedFile ((fptr (ptr ufs)), (int nufs))) (int i) +%code r = clang_reparseTranslationUnit(t, nufs, ufs, i); +%result (int r) + +-- enum CXCursorKind { +-- CXCursor_UnexposedDecl = 1, +-- CXCursor_StructDecl = 2, +-- CXCursor_UnionDecl = 3, +-- CXCursor_ClassDecl = 4, +-- CXCursor_EnumDecl = 5, +-- CXCursor_FieldDecl = 6, +-- CXCursor_EnumConstantDecl = 7, +-- CXCursor_FunctionDecl = 8, +-- CXCursor_VarDecl = 9, +-- CXCursor_ParmDecl = 10, +-- CXCursor_ObjCInterfaceDecl = 11, +-- CXCursor_ObjCCategoryDecl = 12, +-- CXCursor_ObjCProtocolDecl = 13, +-- CXCursor_ObjCPropertyDecl = 14, +-- CXCursor_ObjCIvarDecl = 15, +-- CXCursor_ObjCInstanceMethodDecl = 16, +-- CXCursor_ObjCClassMethodDecl = 17, +-- CXCursor_ObjCImplementationDecl = 18, +-- CXCursor_ObjCCategoryImplDecl = 19, +-- CXCursor_TypedefDecl = 20, +-- CXCursor_CXXMethod = 21, +-- CXCursor_Namespace = 22, +-- CXCursor_LinkageSpec = 23, +-- CXCursor_Constructor = 24, +-- CXCursor_Destructor = 25, +-- CXCursor_ConversionFunction = 26, +-- CXCursor_TemplateTypeParameter = 27, +-- CXCursor_NonTypeTemplateParameter = 28, +-- CXCursor_TemplateTemplateParameter = 29, +-- CXCursor_FunctionTemplate = 30, +-- CXCursor_ClassTemplate = 31, +-- CXCursor_ClassTemplatePartialSpecialization = 32, +-- CXCursor_NamespaceAlias = 33, +-- CXCursor_UsingDirective = 34, +-- CXCursor_UsingDeclaration = 35, +-- CXCursor_FirstDecl = CXCursor_UnexposedDecl, +-- CXCursor_LastDecl = CXCursor_UsingDeclaration, +-- CXCursor_FirstRef = 40, /* Decl references */ +-- CXCursor_ObjCSuperClassRef = 40, +-- CXCursor_ObjCProtocolRef = 41, +-- CXCursor_ObjCClassRef = 42, +-- CXCursor_TypeRef = 43, +-- CXCursor_CXXBaseSpecifier = 44, +-- CXCursor_TemplateRef = 45, +-- CXCursor_NamespaceRef = 46, +-- CXCursor_MemberRef = 47, +-- CXCursor_LabelRef = 48, + +-- CXCursor_OverloadedDeclRef = 49, + +-- CXCursor_LastRef = CXCursor_OverloadedDeclRef, +-- CXCursor_FirstInvalid = 70, +-- CXCursor_InvalidFile = 70, +-- CXCursor_NoDeclFound = 71, +-- CXCursor_NotImplemented = 72, +-- CXCursor_InvalidCode = 73, +-- CXCursor_LastInvalid = CXCursor_InvalidCode, +-- CXCursor_FirstExpr = 100, +-- CXCursor_UnexposedExpr = 100, +-- CXCursor_DeclRefExpr = 101, +-- CXCursor_MemberRefExpr = 102, +-- CXCursor_CallExpr = 103, +-- object or class. */ +-- CXCursor_ObjCMessageExpr = 104, +-- CXCursor_BlockExpr = 105, +-- CXCursor_LastExpr = 105, +-- CXCursor_FirstStmt = 200, +-- CXCursor_UnexposedStmt = 200, + +-- CXCursor_LabelStmt = 201, + +-- CXCursor_LastStmt = CXCursor_LabelStmt, +-- CXCursor_TranslationUnit = 300, +-- CXCursor_FirstAttr = 400, +-- CXCursor_UnexposedAttr = 400, +-- CXCursor_IBActionAttr = 401, +-- CXCursor_IBOutletAttr = 402, +-- CXCursor_IBOutletCollectionAttr = 403, +-- CXCursor_LastAttr = CXCursor_IBOutletCollectionAttr, + +-- CXCursor_PreprocessingDirective = 500, +-- CXCursor_MacroDefinition = 501, +-- CXCursor_MacroInstantiation = 502, +-- CXCursor_InclusionDirective = 503, +-- CXCursor_FirstPreprocessing = CXCursor_PreprocessingDirective, +-- CXCursor_LastPreprocessing = CXCursor_InclusionDirective +-- }; +%enum CursorKind Int [CXCursor_UnexposedDecl,CXCursor_StructDecl,CXCursor_UnionDecl,CXCursor_ClassDecl,CXCursor_EnumDecl,CXCursor_FieldDecl,CXCursor_EnumConstantDecl,CXCursor_FunctionDecl,CXCursor_VarDecl,CXCursor_ParmDecl,CXCursor_ObjCInterfaceDecl,CXCursor_ObjCCategoryDecl,CXCursor_ObjCProtocolDecl,CXCursor_ObjCPropertyDecl,CXCursor_ObjCIvarDecl,CXCursor_ObjCInstanceMethodDecl,CXCursor_ObjCClassMethodDecl,CXCursor_ObjCImplementationDecl,CXCursor_ObjCCategoryImplDecl,CXCursor_TypedefDecl,CXCursor_CXXMethod,CXCursor_Namespace,CXCursor_LinkageSpec,CXCursor_Constructor,CXCursor_Destructor,CXCursor_ConversionFunction,CXCursor_TemplateTypeParameter,CXCursor_NonTypeTemplateParameter,CXCursor_TemplateTemplateParameter,CXCursor_FunctionTemplate,CXCursor_ClassTemplate,CXCursor_ClassTemplatePartialSpecialization,CXCursor_NamespaceAlias,CXCursor_UsingDirective,CXCursor_UsingDeclaration,CXCursor_FirstDecl,CXCursor_LastDecl,CXCursor_FirstRef,CXCursor_ObjCSuperClassRef,CXCursor_ObjCProtocolRef,CXCursor_ObjCClassRef,CXCursor_TypeRef,CXCursor_CXXBaseSpecifier,CXCursor_TemplateRef,CXCursor_NamespaceRef,CXCursor_MemberRef,CXCursor_LabelRef, CXCursor_OverloadedDeclRef, CXCursor_LastRef,CXCursor_FirstInvalid,CXCursor_InvalidFile,CXCursor_NoDeclFound,CXCursor_NotImplemented,CXCursor_InvalidCode,CXCursor_LastInvalid,CXCursor_FirstExpr,CXCursor_UnexposedExpr,CXCursor_DeclRefExpr,CXCursor_MemberRefExpr,CXCursor_CallExpr,CXCursor_ObjCMessageExpr,CXCursor_BlockExpr,CXCursor_LastExpr,CXCursor_FirstStmt,CXCursor_UnexposedStmt, CXCursor_LabelStmt, CXCursor_LastStmt,CXCursor_TranslationUnit,CXCursor_FirstAttr,CXCursor_UnexposedAttr,CXCursor_IBActionAttr,CXCursor_IBOutletAttr,CXCursor_IBOutletCollectionAttr,CXCursor_LastAttr, CXCursor_PreprocessingDirective,CXCursor_MacroDefinition,CXCursor_MacroInstantiation,CXCursor_InclusionDirective,CXCursor_FirstPreprocessing,CXCursor_LastPreprocessing] + +-- typedef struct { +-- enum CXCursorKind kind; +-- void *data[3]; +-- } CXCursor; +data Cursor = Cursor CursorKind (Ptr ()) (Ptr ()) (Ptr ()) +%dis cursor k p1 p2 p3 = Cursor (cursorKind k) (ptr p1) (ptr p2) (ptr p3) + +-- CXCursor clang_getNullCursor(void); +%fun clang_getNullCursor :: IO Cursor +%code CXCursor r = clang_getNullCursor(); +%result (cursor {r.kind} {r.data[0]} {r.data[1]} {r.data[2]}) + +-- CXCursor clang_getTranslationUnitCursor(CXTranslationUnit); +%fun clang_getTranslationUnitCursor :: TranslationUnit -> IO Cursor +%call (fptr (ptr t)) +%code CXCursor r = clang_getTranslationUnitCursor(t); +%result (cursor {r.kind} {r.data[0]} {r.data[1]} {r.data[2]}) + +-- unsigned clang_equalCursors(CXCursor, CXCursor); +%fun clang_equalCursors :: Cursor -> Cursor -> IO Bool +%call (cursor k p1 p2 p3) (cursor k2 p12 p22 p32) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXCursor b = {k2, {p12, p22, p32}}; +% unsigned r = clang_equalCursors(a, b); +%result (bool r) + +-- unsigned clang_hashCursor(CXCursor); +%fun clang_hashCursor :: Cursor -> IO Word32 +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% unsigned r = clang_hashCursor(a); +%result (word32 r) + +-- enum CXCursorKind clang_getCursorKind(CXCursor); +%fun clang_getCursorKind :: Cursor -> IO CursorKind +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% enum CXCursorKind r = clang_getCursorKind(a); +%result (cursorKind r) + +-- unsigned clang_isDeclaration(enum CXCursorKind); +%fun clang_isDeclaration :: CursorKind -> IO Bool +-- unsigned clang_isReference(enum CXCursorKind); +%fun clang_isReference :: CursorKind -> IO Bool +-- unsigned clang_isExpression(enum CXCursorKind); +%fun clang_isExpression :: CursorKind -> IO Bool +-- unsigned clang_isStatement(enum CXCursorKind); +%fun clang_isStatement :: CursorKind -> IO Bool +-- unsigned clang_isInvalid(enum CXCursorKind); +%fun clang_isInvalid :: CursorKind -> IO Bool +-- unsigned clang_isTranslationUnit(enum CXCursorKind); +%fun clang_isTranslationUnit :: CursorKind -> IO Bool +-- unsigned clang_isPreprocessing(enum CXCursorKind); +%fun clang_isPreprocessing :: CursorKind -> IO Bool +-- unsigned clang_isUnexposed(enum CXCursorKind); +%fun clang_isUnexposed :: CursorKind -> IO Bool + +-- enum CXLinkageKind { +-- CXLinkage_Invalid, +-- CXLinkage_NoLinkage, +-- CXLinkage_Internal, +-- CXLinkage_UniqueExternal, +-- CXLinkage_External +-- }; +%enum LinkageKind Int [CXLinkage_Invalid,CXLinkage_NoLinkage,CXLinkage_Internal,CXLinkage_UniqueExternal,CXLinkage_External] + +-- enum CXLinkageKind clang_getCursorLinkage(CXCursor cursor); +%fun clang_getCursorLinkage :: Cursor -> IO LinkageKind +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% enum CXLinkageKind r = clang_getCursorLinkage(a); +%result (linkageKind r) + +-- enum CXAvailabilityKind clang_getCursorAvailability(CXCursor cursor); +%fun clang_getCursorAvailability :: Cursor -> IO AvailabilityKind +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% enum CXAvailabilityKind r = clang_getCursorAvailability(a); +%result (availabilityKind r) + +-- enum CXLanguageKind { +-- CXLanguage_Invalid = 0, +-- CXLanguage_C, +-- CXLanguage_ObjC, +-- CXLanguage_CPlusPlus +-- }; +%enum LanguageKind Int [CXLanguage_Invalid,CXLanguage_C,CXLanguage_ObjC,CXLanguage_CPlusPlus] + +-- enum CXLanguageKind clang_getCursorLanguage(CXCursor cursor); +%fun clang_getCursorLanguage :: Cursor -> IO LanguageKind +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% enum CXLanguageKind r = clang_getCursorLanguage(a); +%result (languageKind r) + +-- typedef struct CXCursorSetImpl *CXCursorSet; +data CursorSetObj +type CursorSet = ForeignPtr CursorSetObj + +-- void clang_disposeCXCursorSet(CXCursorSet cset); +foreign import ccall unsafe "clang-c/Index.h &clang_disposeCXCursorSet" clang_disposeCXCursorSet :: FunPtr (Ptr CursorSetObj -> IO ()) + +unmarshall_cursorSet :: Ptr CursorSetObj -> IO (ForeignPtr CursorSetObj) +unmarshall_cursorSet = newForeignPtr clang_disposeCXCursorSet + +-- CXCursorSet clang_createCXCursorSet(); +%fun clang_createCXCursorSet :: IO CursorSet +%code CXCursorSet r = clang_createCXCursorSet(); +%result (cursorSet (ptr r)) + +-- unsigned clang_CXCursorSet_contains(CXCursorSet cset, CXCursor cursor); +%fun clang_CXCursorSet_contains :: CursorSet -> Cursor -> IO Bool +%call (fptr (ptr cs)) (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +%result (bool {clang_CXCursorSet_contains(cs, a)}) + +-- unsigned clang_CXCursorSet_insert(CXCursorSet cset, CXCursor cursor); +%fun clang_CXCursorSet_insert :: CursorSet -> Cursor -> IO Bool +%call (fptr (ptr cs)) (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +%result (bool {clang_CXCursorSet_insert(cs, a)}) + +-- CXCursor clang_getCursorSemanticParent(CXCursor cursor); +%fun clang_getCursorSemanticParent :: Cursor -> IO Cursor +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXCursor r = clang_getCursorSemanticParent(a); +%result (cursor {r.kind} {r.data[0]} {r.data[1]} {r.data[2]}) + +-- CXCursor clang_getCursorLexicalParent(CXCursor cursor); +%fun clang_getCursorLexicalParent :: Cursor -> IO Cursor +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXCursor r = clang_getCursorLexicalParent(a); +%result (cursor {r.kind} {r.data[0]} {r.data[1]} {r.data[2]}) + +-- We create a dummy type to get around greencard's inability to handle arrays +-- data CursorList = CursorList (Ptr ()) [Cursor] +type CursorList = [Cursor] + +%C enum CXCursorKind cursorListGetKind(CXCursor *clist, int i) {return clist[i].kind;} +% void * cursorListGetPtr(CXCursor *clist, int i, int pi) {return clist[i].data[pi];} + +foreign import ccall unsafe "FFI_stub_ffi.h cursorListGetKind" cursorListGetKind_ :: Ptr () -> CInt -> IO Int +foreign import ccall unsafe "FFI_stub_ffi.h cursorListGetPtr" cursorListGetPtr_ :: Ptr () -> CInt -> CInt -> IO (Ptr ()) + +-- void clang_disposeOverriddenCursors(CXCursor *overridden); +foreign import ccall unsafe "clang-c/Index.h clang_disposeOverriddenCursors" clang_disposeOverriddenCursors :: Ptr () -> IO () + +unmarshall_cursorList :: Int -> Ptr () -> IO CursorList +unmarshall_cursorList numO os = do + cursors <- mapM getCursor_ [0..nO] + clang_disposeOverriddenCursors os + return cursors + where nO = fromIntegral (numO-1) + getCursor_ i = do + kind <- unmarshall_CursorKind <$> (cursorListGetKind_ os i) + p1 <- cursorListGetPtr_ os i 0 + p2 <- cursorListGetPtr_ os i 1 + p3 <- cursorListGetPtr_ os i 2 + return $ Cursor kind p1 p2 p3 + +-- void clang_getOverriddenCursors(CXCursor cursor, CXCursor **overridden, unsigned *num_overridden); +%fun clang_getOverriddenCursors :: Cursor -> IO CursorList +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXCursor * overrides;unsigned num_overrides; +% clang_getOverriddenCursors(a, &overrides, &num_overrides); +%result (cursorList (int num_overrides) (ptr overrides)) + +-- CXFile clang_getIncludedFile(CXCursor cursor); +%fun clang_getIncludedFile :: Cursor -> IO File +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +%result (file {clang_getIncludedFile(a)}) + +-- CXCursor clang_getCursor(CXTranslationUnit, CXSourceLocation); +%fun clang_getCursor :: TranslationUnit -> SourceLocation -> IO Cursor +%call (fptr (ptr t)) (sourceLocation p1 p2 d) +%code CXSourceLocation l = {{p1, p2}, d}; +% CXCursor r = clang_getCursor(t, l); +%result (cursor {r.kind} {r.data[0]} {r.data[1]} {r.data[2]}) + +-- CXSourceLocation clang_getCursorLocation(CXCursor); +%fun clang_getCursorLocation :: Cursor -> IO SourceLocation +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXSourceLocation r = clang_getCursorLocation(a); +%result (sourceLocation {r.ptr_data[0]} {r.ptr_data[1]} {r.int_data}) + +-- CXSourceRange clang_getCursorExtent(CXCursor); +%fun clang_getCursorExtent :: Cursor -> IO SourceRange +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXSourceRange r = clang_getCursorExtent(a); +%result (sourceRange {r.ptr_data[0]} {r.ptr_data[1]} {r.begin_int_data} {r.end_int_data}) + +-- enum CXTypeKind { +-- CXType_Invalid = 0, +-- CXType_Unexposed = 1, +-- CXType_Void = 2, +-- CXType_Bool = 3, +-- CXType_Char_U = 4, +-- CXType_UChar = 5, +-- CXType_Char16 = 6, +-- CXType_Char32 = 7, +-- CXType_UShort = 8, +-- CXType_UInt = 9, +-- CXType_ULong = 10, +-- CXType_ULongLong = 11, +-- CXType_UInt128 = 12, +-- CXType_Char_S = 13, +-- CXType_SChar = 14, +-- CXType_WChar = 15, +-- CXType_Short = 16, +-- CXType_Int = 17, +-- CXType_Long = 18, +-- CXType_LongLong = 19, +-- CXType_Int128 = 20, +-- CXType_Float = 21, +-- CXType_Double = 22, +-- CXType_LongDouble = 23, +-- CXType_NullPtr = 24, +-- CXType_Overload = 25, +-- CXType_Dependent = 26, +-- CXType_ObjCId = 27, +-- CXType_ObjCClass = 28, +-- CXType_ObjCSel = 29, +-- CXType_FirstBuiltin = CXType_Void, +-- CXType_LastBuiltin = CXType_ObjCSel, +-- CXType_Complex = 100, +-- CXType_Pointer = 101, +-- CXType_BlockPointer = 102, +-- CXType_LValueReference = 103, +-- CXType_RValueReference = 104, +-- CXType_Record = 105, +-- CXType_Enum = 106, +-- CXType_Typedef = 107, +-- CXType_ObjCInterface = 108, +-- CXType_ObjCObjectPointer = 109, +-- CXType_FunctionNoProto = 110, +-- CXType_FunctionProto = 111 +-- }; + +%enum TypeKind Int [CXType_Invalid,CXType_Unexposed,CXType_Void,CXType_Bool,CXType_Char_U,CXType_UChar,CXType_Char16,CXType_Char32,CXType_UShort,CXType_UInt,CXType_ULong,CXType_ULongLong,CXType_UInt128,CXType_Char_S,CXType_SChar,CXType_WChar,CXType_Short,CXType_Int,CXType_Long,CXType_LongLong,CXType_Int128,CXType_Float,CXType_Double,CXType_LongDouble,CXType_NullPtr,CXType_Overload,CXType_Dependent,CXType_ObjCId,CXType_ObjCClass,CXType_ObjCSel,CXType_FirstBuiltin,CXType_LastBuiltin,CXType_Complex,CXType_Pointer,CXType_BlockPointer,CXType_LValueReference,CXType_RValueReference,CXType_Record,CXType_Enum,CXType_Typedef,CXType_ObjCInterface,CXType_ObjCObjectPointer,CXType_FunctionNoProto,CXType_FunctionProto] + +-- typedef struct { +-- enum CXTypeKind kind; +-- void *data[2]; +-- } CXType; +data Type = Type TypeKind (Ptr ()) (Ptr ()) +%dis type k p1 p2 = Type (typeKind k) (ptr p1) (ptr p2) + +-- CXType clang_getCursorType(CXCursor C); +%fun clang_getCursorType :: Cursor -> IO Type +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXType r = clang_getCursorType(a); +%result (type {r.kind} {r.data[0]} {r.data[1]}) + +-- unsigned clang_equalTypes(CXType A, CXType B); +%fun clang_equalTypes :: Type -> Type -> IO Bool +%call (type k p1 p2) (type k2 p12 p22) +%code CXType a = {k, {p1, p2}}; +% CXType b = {k2, {p12, p22}}; +% r = clang_equalTypes(a, b); +%result (bool r) + +-- CXType clang_getCanonicalType(CXType T); +%fun clang_getCanonicalType :: Type -> IO Type +%call (type k p1 p2) +%code CXType a = {k, {p1, p2}}; +% CXType r = clang_getCanonicalType(a); +%result (type {r.kind} {r.data[0]} {r.data[1]}) + +-- unsigned clang_isConstQualifiedType(CXType T); +%fun clang_isConstQualifiedType :: Type -> IO Bool +%call (type k p1 p2) +%code CXType a = {k, {p1, p2}}; +% r = clang_isConstQualifiedType(a); +%result (bool r) + +-- unsigned clang_isVolatileQualifiedType(CXType T); +%fun clang_isVolatileQualifiedType :: Type -> IO Bool +%call (type k p1 p2) +%code CXType a = {k, {p1, p2}}; +% r = clang_isVolatileQualifiedType(a); +%result (bool r) + +-- unsigned clang_isRestrictQualifiedType(CXType T); +%fun clang_isRestrictQualifiedType :: Type -> IO Bool +%call (type k p1 p2) +%code CXType a = {k, {p1, p2}}; +% r = clang_isRestrictQualifiedType(a); +%result (bool r) + +-- CXType clang_getPointeeType(CXType T); +%fun clang_getPointeeType :: Type -> IO Type +%call (type k p1 p2) +%code CXType a = {k, {p1, p2}}; +% CXType r = clang_getPointeeType(a); +%result (type {r.kind} {r.data[0]} {r.data[1]}) + +-- CXCursor clang_getTypeDeclaration(CXType T); +%fun clang_getTypeDeclaration :: Type -> IO Cursor +%call (type k p1 p2) +%code CXType a = {k, {p1, p2}}; +% CXCursor r = clang_getTypeDeclaration(a); +%result (cursor {r.kind} {r.data[0]} {r.data[1]} {r.data[2]}) + +-- CXString clang_getDeclObjCTypeEncoding(CXCursor C); +%fun clang_getDeclObjCTypeEncoding :: Cursor -> IO CXString +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXString *r = mkStrObj();*r = clang_getDeclObjCTypeEncoding(a); +%result (cxString (ptr r)) + +-- CXString clang_getTypeKindSpelling(enum CXTypeKind K); +%fun clang_getTypeKindSpelling :: TypeKind -> IO CXString +%call (typeKind tk) +%code CXString *r = mkStrObj();*r = clang_getTypeKindSpelling(tk); +%result (cxString (ptr r)) + +-- CXType clang_getResultType(CXType T); +%fun clang_getResultType :: Type -> IO Type +%call (type k p1 p2) +%code CXType a = {k, {p1, p2}}; +% CXType r = clang_getResultType(a); +%result (type {r.kind} {r.data[0]} {r.data[1]}) + +-- CXType clang_getCursorResultType(CXCursor C); +%fun clang_getCursorResultType :: Cursor -> IO Type +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXType r = clang_getCursorResultType(a); +%result (type {r.kind} {r.data[0]} {r.data[1]}) + +-- unsigned clang_isPODType(CXType T); +%fun clang_isPODType :: Type -> IO Bool +%call (type k p1 p2) +%code CXType a = {k, {p1, p2}}; +% r = clang_isPODType(a); +%result (bool r) + +-- unsigned clang_isVirtualBase(CXCursor); +%fun clang_isVirtualBase :: Cursor -> IO Bool +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% r = clang_isVirtualBase(a); +%result (bool r) + +-- enum CX_CXXAccessSpecifier { +-- CX_CXXInvalidAccessSpecifier, +-- CX_CXXPublic, +-- CX_CXXProtected, +-- CX_CXXPrivate +-- }; +%enum CppAccessSpecifier Int [CX_CXXInvalidAccessSpecifier, CX_CXXPublic, CX_CXXProtected, CX_CXXPrivate] + +-- enum CX_CXXAccessSpecifier clang_getCXXAccessSpecifier(CXCursor); +%fun clang_getCXXAccessSpecifier :: Cursor -> IO CppAccessSpecifier +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% r = clang_getCXXAccessSpecifier(a); +%result (cppAccessSpecifier r) + +-- unsigned clang_getNumOverloadedDecls(CXCursor cursor); +%fun clang_getNumOverloadedDecls :: Cursor -> IO Int +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% r = clang_getNumOverloadedDecls(a); +%result (int r) + +-- CXCursor clang_getOverloadedDecl(CXCursor cursor, +-- unsigned index); +%fun clang_getOverloadedDecl :: Cursor -> Int -> IO Cursor +%call (cursor k p1 p2 p3) (int i) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXCursor r = clang_getOverloadedDecl(a, i); +%result (cursor {r.kind} {r.data[0]} {r.data[1]} {r.data[2]}) + +-- CXType clang_getIBOutletCollectionType(CXCursor); +%fun clang_getIBOutletCollectionType :: Cursor -> IO Type +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXType r = clang_getIBOutletCollectionType(a); +%result (type {r.kind} {r.data[0]} {r.data[1]}) + +-- enum CXChildVisitResult { +-- CXChildVisit_Break, +-- CXChildVisit_Continue, +-- CXChildVisit_Recurse +-- }; +%enum ChildVisitResult Int [CXChildVisit_Break, CXChildVisit_Continue, CXChildVisit_Recurse] + +-- TODO: finish me +-- typedef enum CXChildVisitResult (*CXCursorVisitor)(CXCursor cursor, +-- CXCursor parent, +-- CXClientData client_data); +-- unsigned clang_visitChildren(CXCursor parent, +-- CXCursorVisitor visitor, +-- CXClientData client_data); +-- #ifdef __has_feature +-- # if __has_feature(blocks) +-- typedef enum CXChildVisitResult +-- (^CXCursorVisitorBlock)(CXCursor cursor, CXCursor parent); +-- unsigned clang_visitChildrenWithBlock(CXCursor parent, +-- CXCursorVisitorBlock block); +-- # endif +-- #endif + + +-- CXString clang_getCursorUSR(CXCursor); +%fun clang_getCursorUSR :: Cursor -> IO CXString +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXString *r = mkStrObj();*r = clang_getCursorUSR(a); +%result (cxString (ptr r)) + +-- CXString clang_constructUSR_ObjCClass(const char *class_name); +%fun clang_constructUSR_ObjCClass :: String -> IO CXString +%call (string s) +%code CXString *r = mkStrObj();*r = clang_constructUSR_ObjCClass(s); +%result (cxString (ptr r)) + +-- CXString +-- clang_constructUSR_ObjCCategory(const char *class_name, +-- const char *category_name); +%fun clang_constructUSR_ObjCCategory :: String -> String -> IO CXString +%call (string s) (string p) +%code CXString *r = mkStrObj();*r = clang_constructUSR_ObjCCategory(s, p); +%result (cxString (ptr r)) + +-- CXString +-- clang_constructUSR_ObjCProtocol(const char *protocol_name); +%fun clang_constructUSR_ObjCProtocol :: String -> IO CXString +%call (string s) +%code CXString *r = mkStrObj();*r = clang_constructUSR_ObjCProtocol(s); +%result (cxString (ptr r)) + +-- CXString clang_constructUSR_ObjCIvar(const char *name, +-- CXString classUSR); +%fun clang_constructUSR_ObjCIvar :: String -> CXString -> IO CXString +%call (string s) (fptr (ptr x)) +%code CXString *r = mkStrObj();*r = clang_constructUSR_ObjCIvar(s, *(CXString *)x); +%result (cxString (ptr r)) + +-- CXString clang_constructUSR_ObjCMethod(const char *name, +-- unsigned isInstanceMethod, +-- CXString classUSR); +%fun clang_constructUSR_ObjCMethod :: String -> Bool -> CXString -> IO CXString +%call (string s) (bool b) (fptr (ptr x)) +%code CXString *r = mkStrObj();*r = clang_constructUSR_ObjCMethod(s, b, *(CXString *)x); +%result (cxString (ptr r)) + +-- CXString clang_constructUSR_ObjCProperty(const char *property, +-- CXString classUSR); +%fun clang_constructUSR_ObjCProperty :: String -> CXString -> IO CXString +%call (string s) (fptr (ptr x)) +%code CXString *r = mkStrObj();*r = clang_constructUSR_ObjCProperty(s, *(CXString *)x); +%result (cxString (ptr r)) + +-- CXString clang_getCursorSpelling(CXCursor); +%fun clang_getCursorSpelling :: Cursor -> IO CXString +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXString *r = mkStrObj();*r = clang_getCursorSpelling(a); +%result (cxString (ptr r)) + +-- CXString clang_getCursorDisplayName(CXCursor); +%fun clang_getCursorDisplayName :: Cursor -> IO CXString +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXString *r = mkStrObj();*r = clang_getCursorDisplayName(a); +%result (cxString (ptr r)) + +-- CXCursor clang_getCursorReferenced(CXCursor); +%fun clang_getCursorReferenced :: Cursor -> IO Cursor +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXCursor r = clang_getCursorReferenced(a); +%result (cursor {r.kind} {r.data[0]} {r.data[1]} {r.data[2]}) + +-- CXCursor clang_getCursorDefinition(CXCursor); +%fun clang_getCursorDefinition :: Cursor -> IO Cursor +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXCursor r = clang_getCursorDefinition(a); +%result (cursor {r.kind} {r.data[0]} {r.data[1]} {r.data[2]}) + +-- unsigned clang_isCursorDefinition(CXCursor); +%fun clang_isCursorDefinition :: Cursor -> IO Bool +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% r = clang_isCursorDefinition(a); +%result (bool r) + +-- CXCursor clang_getCanonicalCursor(CXCursor); +%fun clang_getCanonicalCursor :: Cursor -> IO Cursor +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXCursor r = clang_getCanonicalCursor(a); +%result (cursor {r.kind} {r.data[0]} {r.data[1]} {r.data[2]}) + +-- unsigned clang_CXXMethod_isStatic(CXCursor C); +%fun clang_CppMethod_isStatic :: Cursor -> IO Bool +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% r = clang_CXXMethod_isStatic(a); +%result (bool r) + +-- enum CXCursorKind clang_getTemplateCursorKind(CXCursor C); +%fun clang_getTemplateCursorKind :: Cursor -> IO CursorKind +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% r = clang_getTemplateCursorKind(a); +%result (cursorKind r) + +-- CXCursor clang_getSpecializedCursorTemplate(CXCursor C); +%fun clang_getSpecializedCursorTemplate :: Cursor -> IO Cursor +%call (cursor k p1 p2 p3) +%code CXCursor a = {k, {p1, p2, p3}}; +% CXCursor r = clang_getSpecializedCursorTemplate(a); +%result (cursor {r.kind} {r.data[0]} {r.data[1]} {r.data[2]}) + +-- typedef enum CXTokenKind { +-- CXToken_Punctuation, +-- CXToken_Keyword, +-- CXToken_Identifier, +-- CXToken_Literal, +-- CXToken_Comment +-- } CXTokenKind; +%enum TokenKind Int [CXToken_Punctuation, CXToken_Keyword, CXToken_Identifier, CXToken_Literal, CXToken_Comment] + +-- typedef struct { +-- unsigned int_data[4]; +-- void *ptr_data; +-- } CXToken; +data Token = Token Int Int Int Int (Ptr ()) +%dis token w x y z p = Token (int w) (int x) (int y) (int z) (ptr p) + +-- CXTokenKind clang_getTokenKind(CXToken); +%fun clang_getTokenKind :: Token -> IO TokenKind +%call (token w x y z p) +%code CXToken a = {{w, x, y, z}, p}; +% r = clang_getTokenKind(a); +%result (tokenKind r) + +-- CXString clang_getTokenSpelling(CXTranslationUnit, CXToken); +%fun clang_getTokenSpelling :: TranslationUnit -> Token -> IO CXString +%call (fptr (ptr t)) (token w x y z p) +%code CXToken a = {{w, x, y, z}, p}; +% CXString *r = mkStrObj();*r = clang_getTokenSpelling(t, a); +%result (cxString (ptr r)) + +-- CXSourceLocation clang_getTokenLocation(CXTranslationUnit, +-- CXToken); +%fun clang_getTokenLocation :: TranslationUnit -> Token -> IO SourceLocation +%call (fptr (ptr t)) (token w x y z p) +%code CXToken a = {{w, x, y, z}, p}; +% CXSourceLocation r = clang_getTokenLocation(t, a); +%result (sourceLocation {r.ptr_data[0]} {r.ptr_data[1]} {r.int_data}) + +-- CXSourceRange clang_getTokenExtent(CXTranslationUnit, CXToken); +%fun clang_getTokenExtent :: TranslationUnit -> Token -> IO SourceRange +%call (fptr (ptr t)) (token w x y z p) +%code CXToken a = {{w, x, y, z}, p}; +% CXSourceRange r = clang_getTokenExtent(t, a); +%result (sourceRange {r.ptr_data[0]} {r.ptr_data[1]} {r.begin_int_data} {r.end_int_data}) + +-- data structure we make ti store token lists +type TokenList = [Token] + +%C unsigned tokenListGetInt(CXToken *tlist, int i, int pi) {return tlist[i].int_data[pi];} +% void * tokenListGetPtr(CXToken *tlist, int i) {return tlist[i].ptr_data;} + +foreign import ccall unsafe "FFI_stub_ffi.h tokenListGetInt" tokenListGetInt_ :: Ptr () -> CInt -> CInt -> IO Int +foreign import ccall unsafe "FFI_stub_ffi.h tokenListGetPtr" tokenListGetPtr_ :: Ptr () -> CInt -> IO (Ptr ()) + +-- void clang_disposeTokens(CXTranslationUnit TU, CXToken *Tokens, unsigned NumTokens); +foreign import ccall unsafe "FFI_stub_ffi.h clang_disposeTokens" clang_disposeTokens :: Ptr TranslationUnitObj -> Ptr () -> CUInt -> IO () + +unmarshall_tokenList :: Ptr TranslationUnitObj -> Int -> Ptr () -> IO TokenList +unmarshall_tokenList t numO os = do + tokens <- mapM getToken_ [0..nO] + clang_disposeTokens t os (fromIntegral numO) + return tokens + where nO = fromIntegral (numO-1) + getToken_ i = do + i1 <- fromIntegral <$> tokenListGetInt_ os i 0 + i2 <- fromIntegral <$> tokenListGetInt_ os i 1 + i3 <- fromIntegral <$> tokenListGetInt_ os i 2 + i4 <- fromIntegral <$> tokenListGetInt_ os i 3 + p <- tokenListGetPtr_ os i + return $ Token i1 i2 i3 i4 p + +-- marshall_tokenList :: TokenList -> IO (Int, Ptr ()) +-- marshall_tokenList (TokenList p ts)= return (length ts, p) + +-- void clang_tokenize(CXTranslationUnit TU, CXSourceRange Range, +-- CXToken **Tokens, unsigned *NumTokens); +%fun clang_tokenize :: TranslationUnit -> SourceRange -> IO TokenList +%call (fptr (ptr t)) (sourceRange p1 p2 d1 d2) +%code CXSourceRange a = {{p1, p2}, d1, d2}; +% CXToken * tokens;unsigned numTokens; +% clang_tokenize(t, a, &tokens, &numTokens); +%result (tokenList t (int numTokens) (ptr tokens)) + +-- void clang_annotateTokens(CXTranslationUnit TU, +-- CXToken *Tokens, unsigned NumTokens, +-- CXCursor *Cursors); +-- TODO: implement me +-- %fun clang_annotateTokens :: TranslationUnit -> TokenList -> IO CursorList +-- %call (fptr (ptr t)) (tokenList((int nts), (ptr ts))) +-- %code clang_annotateTokens(t, ts, nts, + +-- CXString clang_getCursorKindSpelling(enum CXCursorKind Kind); +%fun clang_getCursorKindSpelling :: CursorKind -> IO CXString +%call (cursorKind k) +%code CXString *r = mkStrObj();*r = clang_getCursorKindSpelling(k); +%result (cxString (ptr r)) + +-- TODO: implement me +-- void clang_getDefinitionSpellingAndExtent(CXCursor, +-- const char **startBuf, +-- const char **endBuf, +-- unsigned *startLine, +-- unsigned *startColumn, +-- unsigned *endLine, +-- unsigned *endColumn); + +-- void clang_enableStackTraces(void); +foreign import ccall unsafe "clang-c/Index.h clang_enableStackTraces" enableStackTraces :: IO () + +-- TODO: implement me +-- void clang_executeOnThread(void (*fn)(void*), void *user_data, +-- unsigned stack_size); + +-- typedef void *CXCompletionString; +newtype CompletionString = CompletionString (Ptr ()) +%dis completionString x = CompletionString (ptr x) + +-- typedef struct { +-- enum CXCursorKind CursorKind; +-- CXCompletionString CompletionString; +-- } CXCompletionResult; +data CompletionResult = CompletionResult CursorKind CompletionString +%dis completionResult k s = CompletionResult (cursorKind k) (competionString s) + +-- enum CXCompletionChunkKind { +-- CXCompletionChunk_Optional, +-- CXCompletionChunk_TypedText, +-- CXCompletionChunk_Text, +-- CXCompletionChunk_Placeholder, +-- CXCompletionChunk_Informative, +-- CXCompletionChunk_CurrentParameter, +-- CXCompletionChunk_LeftParen, +-- CXCompletionChunk_RightParen, +-- CXCompletionChunk_LeftBracket, +-- CXCompletionChunk_RightBracket, +-- CXCompletionChunk_LeftBrace, +-- CXCompletionChunk_RightBrace, +-- CXCompletionChunk_LeftAngle, +-- CXCompletionChunk_RightAngle, +-- CXCompletionChunk_Comma, +-- CXCompletionChunk_ResultType, +-- CXCompletionChunk_Colon, +-- CXCompletionChunk_SemiColon, +-- CXCompletionChunk_Equal, +-- CXCompletionChunk_HorizontalSpace, +-- CXCompletionChunk_VerticalSpace +-- }; +%enum CompletionChunkKind Int [CXCompletionChunk_Optional,CXCompletionChunk_TypedText,CXCompletionChunk_Text,CXCompletionChunk_Placeholder,CXCompletionChunk_Informative,CXCompletionChunk_CurrentParameter,CXCompletionChunk_LeftParen,CXCompletionChunk_RightParen,CXCompletionChunk_LeftBracket,CXCompletionChunk_RightBracket,CXCompletionChunk_LeftBrace,CXCompletionChunk_RightBrace,CXCompletionChunk_LeftAngle,CXCompletionChunk_RightAngle,CXCompletionChunk_Comma,CXCompletionChunk_ResultType,CXCompletionChunk_Colon,CXCompletionChunk_SemiColon,CXCompletionChunk_Equal,CXCompletionChunk_HorizontalSpace,CXCompletionChunk_VerticalSpace] + +-- enum CXCompletionChunkKind +-- clang_getCompletionChunkKind(CXCompletionString completion_string, +-- unsigned chunk_number); +%fun clang_getCompletionChunkKind :: CompletionString -> Int -> IO CompletionChunkKind + +-- CXString +-- clang_getCompletionChunkText(CXCompletionString completion_string, +-- unsigned chunk_number); +%fun clang_getCompletionChunkText :: CompletionString -> Int -> IO CXString +%call (completionString s) (int i) +%code CXString *r = mkStrObj();*r = clang_getCompletionChunkText(s, i); +%result (cxString (ptr r)) + +-- CXCompletionString +-- clang_getCompletionChunkCompletionString(CXCompletionString completion_string, +-- unsigned chunk_number); +%fun clang_getCompletionChunkCompletionString :: CompletionString -> Int -> IO CompletionString + +-- unsigned +-- clang_getNumCompletionChunks(CXCompletionString completion_string); +%fun clang_getNumCompletionChunks :: CompletionString -> IO Int + +-- unsigned +-- clang_getCompletionPriority(CXCompletionString completion_string); +%fun clang_getCompletionPriority :: CompletionString -> IO Int + +-- enum CXAvailabilityKind +-- clang_getCompletionAvailability(CXCompletionString completion_string); +%fun clang_getCompletionAvailability :: CompletionString -> IO AvailabilityKind + +-- enum CXCodeComplete_Flags { +-- CXCodeComplete_IncludeMacros = 0x01, +-- CXCodeComplete_IncludeCodePatterns = 0x02 +-- }; +%enum CodeCompleteFlags Int [CXCodeComplete_IncludeMacros, CXCodeComplete_IncludeCodePatterns] + +-- unsigned clang_defaultCodeCompleteOptions(void); +foreign import ccall unsafe "clang-c/Index.h clang_defaultCodeCompleteOptions" defaultCodeCompleteOptions :: IO () + +-- typedef struct { +-- CXCompletionResult *Results; +-- unsigned NumResults; +-- } CXCodeCompleteResults; +data CodeCompleteResultsObj +type CodeCompleteResults = ForeignPtr CodeCompleteResultsObj + +-- void clang_disposeCodeCompleteResults(CXCodeCompleteResults *Results); +foreign import ccall unsafe "FFI_stub_ffi.h &clang_disposeCodeCompleteResults" clang_disposeCodeCompleteResults :: FunPtr (Ptr CodeCompleteResultsObj -> IO ()) + +unmarshall_codeCompleteResults :: Ptr CodeCompleteResultsObj -> IO (ForeignPtr CodeCompleteResultsObj) +unmarshall_codeCompleteResults = newForeignPtr clang_disposeCodeCompleteResults + +-- CXCodeCompleteResults *clang_codeCompleteAt(CXTranslationUnit TU, +-- const char *complete_filename, +-- unsigned complete_line, +-- unsigned complete_column, +-- struct CXUnsavedFile *unsaved_files, +-- unsigned num_unsaved_files, +-- unsigned options); +%fun clang_codeCompleteAt :: TranslationUnit -> String -> Int -> Int -> [UnsavedFile] -> Int -> IO CodeCompleteResults +%call (fptr (ptr t)) (string s) (int i1) (int i2) (listLenUnsavedFile ((fptr (ptr ufs)), (int nufs))) (int i3) +%code r = clang_codeCompleteAt(t, s, i1, i2, ufs, nufs, i3) +%result (codeCompleteResults (ptr r)) + +-- void clang_sortCodeCompletionResults(CXCompletionResult *Results, +-- unsigned NumResults); +%fun clang_sortCodeCompletionResults :: CodeCompleteResults -> Int -> IO () +%call (fptr (ptr c)) (int i) +%code clang_sortCodeCompletionResults(c, i); + +-- unsigned clang_codeCompleteGetNumDiagnostics(CXCodeCompleteResults *Results); +%fun clang_codeCompleteGetNumDiagnostics :: CodeCompleteResults -> IO Int +%call (fptr (ptr c)) +%code r = clang_codeCompleteGetNumDiagnostics(c); +%result (int r) + +-- CXDiagnostic clang_codeCompleteGetDiagnostic(CXCodeCompleteResults *Results, +-- unsigned Index); +%fun clang_codeCompleteGetDiagnostic :: CodeCompleteResults -> Int -> IO Diagnostic +%call (fptr (ptr c)) (int i) +%code CXDiagnostic r = clang_codeCompleteGetDiagnostic(c, i); +%result (diag (ptr r)) + +-- CXString clang_getClangVersion(); +%fun clang_getClangVersion :: IO CXString +%code CXString *r = mkStrObj();*r = clang_getClangVersion(); +%result (cxString (ptr r)) + +-- void clang_toggleCrashRecovery(unsigned isEnabled); +%fun clang_toggleCrashRecovery :: Bool -> IO () + +-- TODO: implement me +-- typedef void (*CXInclusionVisitor)(CXFile included_file, +-- CXSourceLocation* inclusion_stack, +-- unsigned include_len, +-- CXClientData client_data); +-- void clang_getInclusions(CXTranslationUnit tu, +-- CXInclusionVisitor visitor, +-- CXClientData client_data); diff --git a/src/Clang/FFI_stub_ffi.c b/src/Clang/FFI_stub_ffi.c new file mode 100644 --- /dev/null +++ b/src/Clang/FFI_stub_ffi.c @@ -0,0 +1,2156 @@ +#include +#include +#include +#include "src/Clang/FFI_stub_ffi.h" +HsPtr prim_createIndex(HsInt a,HsInt b) +{ HsPtr r; + do { CXIndex r = clang_createIndex(a, b); + + return((HsPtr)(r));} while(0); +} +HsInt prim_availability_Available() +{ HsInt res1; + do {res1=CXAvailability_Available; + + return((HsInt)(res1));} while(0); +} +HsInt prim_availability_Deprecated() +{ HsInt res1; + do {res1=CXAvailability_Deprecated; + + return((HsInt)(res1));} while(0); +} +HsInt prim_availability_NotAvailable() +{ HsInt res1; + do {res1=CXAvailability_NotAvailable; + + return((HsInt)(res1));} while(0); +} + CXString * mkStrObj() { return malloc(sizeof(CXString)); } + void freeStrObj(CXString * str) { clang_disposeString(*str);free(str); } +char * prim_getCString(HsPtr d) +{ char * r; + do { r = clang_getCString(*(CXString*)d); + + return((char *)(r));} while(0); +} +HsPtr prim_getFileName(HsPtr x) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_getFileName(x); + + return((HsPtr)(r));} while(0); +} +HsWord64 prim_getFileTime(HsPtr arg1) +{ HsWord64 res1; + do {res1 = clang_getFileTime(arg1); + + return((HsWord64)(res1));} while(0); +} +HsPtr prim_getFile(HsPtr t,char * s) +{ HsPtr r; + do { CXFile r = clang_getFile(t, s); + + return((HsPtr)(r));} while(0); +} +void* prim_getNullLocation() +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;} gc_result; + do { CXSourceLocation r = clang_getNullLocation(); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getNullLocation_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res1);} +HsPtr access_prim_getNullLocation_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res2);} +HsInt access_prim_getNullLocation_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res3);} +HsInt prim_equalLocations(HsPtr p1,HsPtr p2,HsInt d,HsPtr p12,HsPtr p22,HsInt d2) +{ do { CXSourceLocation l = {{p1, p2}, d}; + CXSourceLocation m = {{p12, p22}, d2}; + + return((HsInt)(clang_equalLocations(l, m)));} while(0); +} +void* prim_getLocation(HsPtr t,HsPtr f,HsInt i,HsInt j) +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;} gc_result; + do { CXSourceLocation r = clang_getLocation(*(CXTranslationUnit*)t, f, i, j); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getLocation_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res1);} +HsPtr access_prim_getLocation_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res2);} +HsInt access_prim_getLocation_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res3);} +void* prim_getLocationForOffset(HsPtr t,HsPtr f,HsInt i) +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;} gc_result; + do { CXSourceLocation r = clang_getLocationForOffset(*(CXTranslationUnit*)t, f, i); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getLocationForOffset_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res1);} +HsPtr access_prim_getLocationForOffset_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res2);} +HsInt access_prim_getLocationForOffset_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res3);} +void* prim_getNullRange() +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;} gc_result; + do { CXSourceRange r = clang_getNullRange(); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.begin_int_data); + gc_result.gc_res4 = (HsInt)(r.end_int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getNullRange_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res1);} +HsPtr access_prim_getNullRange_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res2);} +HsInt access_prim_getNullRange_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res3);} +HsInt access_prim_getNullRange_gc_res4(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res4);} +void* prim_getRange(HsPtr p1,HsPtr p2,HsInt d,HsPtr p12,HsPtr p22,HsInt d2) +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;} gc_result; + do { CXSourceLocation l = {{p1, p2}, d}; + CXSourceLocation m = {{p12, p22}, d2}; + CXSourceRange r = clang_getRange(l, m); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.begin_int_data); + gc_result.gc_res4 = (HsInt)(r.end_int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getRange_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res1);} +HsPtr access_prim_getRange_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res2);} +HsInt access_prim_getRange_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res3);} +HsInt access_prim_getRange_gc_res4(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res4);} +void* prim_getInstantiationLocation(HsPtr p1,HsPtr p2,HsInt d) +{ static struct {HsPtr f;HsInt ln;HsInt c;HsInt o;} gc_result; + HsPtr f; HsInt ln; HsInt c; HsInt o; + do { CXSourceLocation l = {{p1, p2}, d}; + CXFile f;unsigned ln,c,o;clang_getInstantiationLocation(l,&f,&ln,&c,&o); + gc_result.f = (HsPtr)(f); + gc_result.ln = (HsInt)(ln); + gc_result.c = (HsInt)(c); + gc_result.o = (HsInt)(o); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getInstantiationLocation_f(void *ptr){ return(((struct {HsPtr f;HsInt ln;HsInt c;HsInt o;}*) ptr)->f);} +HsInt access_prim_getInstantiationLocation_ln(void *ptr){ return(((struct {HsPtr f;HsInt ln;HsInt c;HsInt o;}*) ptr)->ln);} +HsInt access_prim_getInstantiationLocation_c(void *ptr){ return(((struct {HsPtr f;HsInt ln;HsInt c;HsInt o;}*) ptr)->c);} +HsInt access_prim_getInstantiationLocation_o(void *ptr){ return(((struct {HsPtr f;HsInt ln;HsInt c;HsInt o;}*) ptr)->o);} +void* prim_getSpellingLocation(HsPtr p1,HsPtr p2,HsInt d) +{ static struct {HsPtr f;HsInt ln;HsInt c;HsInt o;} gc_result; + HsPtr f; HsInt ln; HsInt c; HsInt o; + do { CXSourceLocation l = {{p1, p2}, d}; + CXFile f;unsigned ln,c,o;clang_getSpellingLocation(l,&f,&ln,&c,&o); + gc_result.f = (HsPtr)(f); + gc_result.ln = (HsInt)(ln); + gc_result.c = (HsInt)(c); + gc_result.o = (HsInt)(o); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getSpellingLocation_f(void *ptr){ return(((struct {HsPtr f;HsInt ln;HsInt c;HsInt o;}*) ptr)->f);} +HsInt access_prim_getSpellingLocation_ln(void *ptr){ return(((struct {HsPtr f;HsInt ln;HsInt c;HsInt o;}*) ptr)->ln);} +HsInt access_prim_getSpellingLocation_c(void *ptr){ return(((struct {HsPtr f;HsInt ln;HsInt c;HsInt o;}*) ptr)->c);} +HsInt access_prim_getSpellingLocation_o(void *ptr){ return(((struct {HsPtr f;HsInt ln;HsInt c;HsInt o;}*) ptr)->o);} +void* prim_getRangeStart(HsPtr p1,HsPtr p2,HsInt d1,HsInt d2) +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;} gc_result; + do { CXSourceRange a = {{p1, p2}, d1, d2}; + CXSourceLocation r = clang_getRangeStart(a); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getRangeStart_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res1);} +HsPtr access_prim_getRangeStart_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res2);} +HsInt access_prim_getRangeStart_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res3);} +void* prim_getRangeEnd(HsPtr p1,HsPtr p2,HsInt d1,HsInt d2) +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;} gc_result; + do { CXSourceRange a = {{p1, p2}, d1, d2}; + CXSourceLocation r = clang_getRangeEnd(a); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getRangeEnd_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res1);} +HsPtr access_prim_getRangeEnd_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res2);} +HsInt access_prim_getRangeEnd_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res3);} +HsInt prim_diagnostic_Ignored() +{ HsInt res1; + do {res1=CXDiagnostic_Ignored; + + return((HsInt)(res1));} while(0); +} +HsInt prim_diagnostic_Note() +{ HsInt res1; + do {res1=CXDiagnostic_Note; + + return((HsInt)(res1));} while(0); +} +HsInt prim_diagnostic_Warning() +{ HsInt res1; + do {res1=CXDiagnostic_Warning; + + return((HsInt)(res1));} while(0); +} +HsInt prim_diagnostic_Error() +{ HsInt res1; + do {res1=CXDiagnostic_Error; + + return((HsInt)(res1));} while(0); +} +HsInt prim_diagnostic_Fatal() +{ HsInt res1; + do {res1=CXDiagnostic_Fatal; + + return((HsInt)(res1));} while(0); +} +HsInt prim_getNumDiagnostics(HsPtr t) +{ HsInt r; + do { unsigned r = clang_getNumDiagnostics(*(CXTranslationUnit*)t); + + return((HsInt)(r));} while(0); +} +HsPtr prim_getDiagnostic(HsPtr t,HsInt i) +{ HsPtr r; + do { CXDiagnostic r = clang_getDiagnostic(*(CXTranslationUnit*)t, i); + + return((HsPtr)(r));} while(0); +} +HsInt prim_diagnostic_DisplaySourceLocation() +{ HsInt res1; + do {res1=CXDiagnostic_DisplaySourceLocation; + + return((HsInt)(res1));} while(0); +} +HsInt prim_diagnostic_DisplayColumn() +{ HsInt res1; + do {res1=CXDiagnostic_DisplayColumn; + + return((HsInt)(res1));} while(0); +} +HsInt prim_diagnostic_DisplaySourceRanges() +{ HsInt res1; + do {res1=CXDiagnostic_DisplaySourceRanges; + + return((HsInt)(res1));} while(0); +} +HsInt prim_diagnostic_DisplayOption() +{ HsInt res1; + do {res1=CXDiagnostic_DisplayOption; + + return((HsInt)(res1));} while(0); +} +HsInt prim_diagnostic_DisplayCategoryId() +{ HsInt res1; + do {res1=CXDiagnostic_DisplayCategoryId; + + return((HsInt)(res1));} while(0); +} +HsInt prim_diagnostic_DisplayCategoryName() +{ HsInt res1; + do {res1=CXDiagnostic_DisplayCategoryName; + + return((HsInt)(res1));} while(0); +} +HsPtr prim_formatDiagnostic(HsPtr d,HsInt i) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_formatDiagnostic(d, i); + + return((HsPtr)(r));} while(0); +} +HsInt prim_defaultDiagnosticDisplayOptions() +{ HsInt res1; + do {res1 = clang_defaultDiagnosticDisplayOptions(); + + return((HsInt)(res1));} while(0); +} +HsInt prim_getDiagnosticSeverity(HsPtr arg1) +{ HsInt res1; + do {res1 = clang_getDiagnosticSeverity(arg1); + + return((HsInt)(res1));} while(0); +} +void* prim_getDiagnosticLocation(HsPtr d) +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;} gc_result; + do { CXSourceLocation r = clang_getDiagnosticLocation(d); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getDiagnosticLocation_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res1);} +HsPtr access_prim_getDiagnosticLocation_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res2);} +HsInt access_prim_getDiagnosticLocation_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res3);} +HsPtr prim_getDiagnosticSpelling(HsPtr d) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_getDiagnosticSpelling(d); + + return((HsPtr)(r));} while(0); +} +void* prim_getDiagnosticOption(HsPtr d) +{ static struct {HsPtr r;HsPtr a;} gc_result; + HsPtr r; HsPtr a; + do { CXString *a = mkStrObj();CXString *r = mkStrObj();*r = clang_getDiagnosticOption(d, a); + gc_result.r = (HsPtr)(r); + gc_result.a = (HsPtr)(a); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getDiagnosticOption_r(void *ptr){ return(((struct {HsPtr r;HsPtr a;}*) ptr)->r);} +HsPtr access_prim_getDiagnosticOption_a(void *ptr){ return(((struct {HsPtr r;HsPtr a;}*) ptr)->a);} +HsInt prim_getDiagnosticCategory(HsPtr arg1) +{ HsInt res1; + do {res1 = clang_getDiagnosticCategory(arg1); + + return((HsInt)(res1));} while(0); +} +HsPtr prim_getDiagnosticCategoryName(HsInt c) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_getDiagnosticCategoryName(c); + + return((HsPtr)(r));} while(0); +} +HsInt prim_getDiagnosticNumRanges(HsPtr arg1) +{ HsInt res1; + do {res1 = clang_getDiagnosticNumRanges(arg1); + + return((HsInt)(res1));} while(0); +} +void* prim_getDiagnosticRange(HsPtr d,HsInt i) +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;} gc_result; + do { CXSourceRange r = clang_getDiagnosticRange(d, i); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.begin_int_data); + gc_result.gc_res4 = (HsInt)(r.end_int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getDiagnosticRange_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res1);} +HsPtr access_prim_getDiagnosticRange_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res2);} +HsInt access_prim_getDiagnosticRange_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res3);} +HsInt access_prim_getDiagnosticRange_gc_res4(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res4);} +HsInt prim_getDiagnosticNumFixIts(HsPtr arg1) +{ HsInt res1; + do {res1 = clang_getDiagnosticNumFixIts(arg1); + + return((HsInt)(res1));} while(0); +} +void* prim_getDiagnosticFixIt(HsPtr d,HsInt i) +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;HsPtr r;} gc_result; + HsPtr r; + do { CXSourceRange a;CXString *r = mkStrObj();*r = clang_getDiagnosticFixIt(d, i, &a); + gc_result.gc_res1 = (HsPtr)(a.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(a.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(a.begin_int_data); + gc_result.gc_res4 = (HsInt)(a.end_int_data); + gc_result.r = (HsPtr)(r); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getDiagnosticFixIt_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;HsPtr r;}*) ptr)->gc_res1);} +HsPtr access_prim_getDiagnosticFixIt_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;HsPtr r;}*) ptr)->gc_res2);} +HsInt access_prim_getDiagnosticFixIt_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;HsPtr r;}*) ptr)->gc_res3);} +HsInt access_prim_getDiagnosticFixIt_gc_res4(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;HsPtr r;}*) ptr)->gc_res4);} +HsPtr access_prim_getDiagnosticFixIt_r(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;HsPtr r;}*) ptr)->r);} +HsPtr prim_getTranslationUnitSpelling(HsPtr t) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_getTranslationUnitSpelling(t); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_createTranslationUnitFromSourceFile(HsPtr i,char * s,HsPtr ss,HsInt ns,HsPtr ufs,HsInt nufs) +{ HsPtr r; + do { r = clang_createTranslationUnitFromSourceFile(i,s,ns,ss,nufs,ufs); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_createTranslationUnit(HsPtr i,char * s) +{ HsPtr r; + do { CXTranslationUnit r = clang_createTranslationUnit(i, s); + + return((HsPtr)(r));} while(0); +} +HsInt prim_translationUnit_None() +{ HsInt res1; + do {res1=CXTranslationUnit_None; + + return((HsInt)(res1));} while(0); +} +HsInt prim_translationUnit_DetailedPreprocessingRecord() +{ HsInt res1; + do {res1=CXTranslationUnit_DetailedPreprocessingRecord; + + return((HsInt)(res1));} while(0); +} +HsInt prim_translationUnit_Incomplete() +{ HsInt res1; + do {res1=CXTranslationUnit_Incomplete; + + return((HsInt)(res1));} while(0); +} +HsInt prim_translationUnit_PrecompiledPreamble() +{ HsInt res1; + do {res1=CXTranslationUnit_PrecompiledPreamble; + + return((HsInt)(res1));} while(0); +} +HsInt prim_translationUnit_CacheCompletionResults() +{ HsInt res1; + do {res1=CXTranslationUnit_CacheCompletionResults; + + return((HsInt)(res1));} while(0); +} +HsInt prim_translationUnit_CXXPrecompiledPreamble() +{ HsInt res1; + do {res1=CXTranslationUnit_CXXPrecompiledPreamble; + + return((HsInt)(res1));} while(0); +} +HsInt prim_translationUnit_CXXChainedPCH() +{ HsInt res1; + do {res1=CXTranslationUnit_CXXChainedPCH; + + return((HsInt)(res1));} while(0); +} +HsInt prim_defaultEditingTranslationUnitOptions() +{ HsInt res1; + do {res1 = clang_defaultEditingTranslationUnitOptions(); + + return((HsInt)(res1));} while(0); +} +HsPtr prim_parseTranslationUnit(HsPtr i,char * s,HsPtr ss,HsInt ns,HsPtr ufs,HsInt nufs,HsInt i2) +{ HsPtr r; + do { r = clang_parseTranslationUnit(i,s,ss,ns,ufs,nufs,i2); + + return((HsPtr)(r));} while(0); +} + uint32_t unsavedFileSize() { return sizeof(struct CXUnsavedFile); } + void setCXUnsavedFile(char * filename, char * contents,unsigned long length, struct CXUnsavedFile* uf, int i) {uf[i].Filename=filename;uf[i].Contents=contents;uf[i].Length=length;} +HsInt prim_saveTranslationUnit_None() +{ HsInt res1; + do {res1=CXSaveTranslationUnit_None; + + return((HsInt)(res1));} while(0); +} +HsInt prim_defaultSaveOptions(HsPtr t) +{ HsInt r; + do { r = clang_defaultSaveOptions(t); + + return((HsInt)(r));} while(0); +} +HsInt prim_saveTranslationUnit(HsPtr t,char * s,HsInt i) +{ do { unsigned r = clang_saveTranslationUnit(t, s, i); + + return((HsInt)(r!=0?0:1));} while(0); +} +HsInt prim_reparse_None() +{ HsInt res1; + do {res1=CXReparse_None; + + return((HsInt)(res1));} while(0); +} +HsInt prim_defaultReparseOptions(HsPtr t) +{ HsInt r; + do { r = clang_defaultReparseOptions(t); + + return((HsInt)(r));} while(0); +} +HsInt prim_reparseTranslationUnit(HsPtr t,HsPtr ufs,HsInt nufs,HsInt i) +{ HsInt r; + do { r = clang_reparseTranslationUnit(t, nufs, ufs, i); + + return((HsInt)(r));} while(0); +} +HsInt prim_cursor_UnexposedDecl() +{ HsInt res1; + do {res1=CXCursor_UnexposedDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_StructDecl() +{ HsInt res1; + do {res1=CXCursor_StructDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_UnionDecl() +{ HsInt res1; + do {res1=CXCursor_UnionDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ClassDecl() +{ HsInt res1; + do {res1=CXCursor_ClassDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_EnumDecl() +{ HsInt res1; + do {res1=CXCursor_EnumDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_FieldDecl() +{ HsInt res1; + do {res1=CXCursor_FieldDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_EnumConstantDecl() +{ HsInt res1; + do {res1=CXCursor_EnumConstantDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_FunctionDecl() +{ HsInt res1; + do {res1=CXCursor_FunctionDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_VarDecl() +{ HsInt res1; + do {res1=CXCursor_VarDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ParmDecl() +{ HsInt res1; + do {res1=CXCursor_ParmDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCInterfaceDecl() +{ HsInt res1; + do {res1=CXCursor_ObjCInterfaceDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCCategoryDecl() +{ HsInt res1; + do {res1=CXCursor_ObjCCategoryDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCProtocolDecl() +{ HsInt res1; + do {res1=CXCursor_ObjCProtocolDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCPropertyDecl() +{ HsInt res1; + do {res1=CXCursor_ObjCPropertyDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCIvarDecl() +{ HsInt res1; + do {res1=CXCursor_ObjCIvarDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCInstanceMethodDecl() +{ HsInt res1; + do {res1=CXCursor_ObjCInstanceMethodDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCClassMethodDecl() +{ HsInt res1; + do {res1=CXCursor_ObjCClassMethodDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCImplementationDecl() +{ HsInt res1; + do {res1=CXCursor_ObjCImplementationDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCCategoryImplDecl() +{ HsInt res1; + do {res1=CXCursor_ObjCCategoryImplDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_TypedefDecl() +{ HsInt res1; + do {res1=CXCursor_TypedefDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_CXXMethod() +{ HsInt res1; + do {res1=CXCursor_CXXMethod; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_Namespace() +{ HsInt res1; + do {res1=CXCursor_Namespace; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_LinkageSpec() +{ HsInt res1; + do {res1=CXCursor_LinkageSpec; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_Constructor() +{ HsInt res1; + do {res1=CXCursor_Constructor; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_Destructor() +{ HsInt res1; + do {res1=CXCursor_Destructor; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ConversionFunction() +{ HsInt res1; + do {res1=CXCursor_ConversionFunction; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_TemplateTypeParameter() +{ HsInt res1; + do {res1=CXCursor_TemplateTypeParameter; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_NonTypeTemplateParameter() +{ HsInt res1; + do {res1=CXCursor_NonTypeTemplateParameter; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_TemplateTemplateParameter() +{ HsInt res1; + do {res1=CXCursor_TemplateTemplateParameter; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_FunctionTemplate() +{ HsInt res1; + do {res1=CXCursor_FunctionTemplate; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ClassTemplate() +{ HsInt res1; + do {res1=CXCursor_ClassTemplate; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ClassTemplatePartialSpecialization() +{ HsInt res1; + do {res1=CXCursor_ClassTemplatePartialSpecialization; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_NamespaceAlias() +{ HsInt res1; + do {res1=CXCursor_NamespaceAlias; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_UsingDirective() +{ HsInt res1; + do {res1=CXCursor_UsingDirective; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_UsingDeclaration() +{ HsInt res1; + do {res1=CXCursor_UsingDeclaration; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_FirstDecl() +{ HsInt res1; + do {res1=CXCursor_FirstDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_LastDecl() +{ HsInt res1; + do {res1=CXCursor_LastDecl; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_FirstRef() +{ HsInt res1; + do {res1=CXCursor_FirstRef; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCSuperClassRef() +{ HsInt res1; + do {res1=CXCursor_ObjCSuperClassRef; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCProtocolRef() +{ HsInt res1; + do {res1=CXCursor_ObjCProtocolRef; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCClassRef() +{ HsInt res1; + do {res1=CXCursor_ObjCClassRef; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_TypeRef() +{ HsInt res1; + do {res1=CXCursor_TypeRef; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_CXXBaseSpecifier() +{ HsInt res1; + do {res1=CXCursor_CXXBaseSpecifier; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_TemplateRef() +{ HsInt res1; + do {res1=CXCursor_TemplateRef; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_NamespaceRef() +{ HsInt res1; + do {res1=CXCursor_NamespaceRef; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_MemberRef() +{ HsInt res1; + do {res1=CXCursor_MemberRef; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_LabelRef() +{ HsInt res1; + do {res1=CXCursor_LabelRef; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_OverloadedDeclRef() +{ HsInt res1; + do {res1=CXCursor_OverloadedDeclRef; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_LastRef() +{ HsInt res1; + do {res1=CXCursor_LastRef; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_FirstInvalid() +{ HsInt res1; + do {res1=CXCursor_FirstInvalid; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_InvalidFile() +{ HsInt res1; + do {res1=CXCursor_InvalidFile; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_NoDeclFound() +{ HsInt res1; + do {res1=CXCursor_NoDeclFound; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_NotImplemented() +{ HsInt res1; + do {res1=CXCursor_NotImplemented; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_InvalidCode() +{ HsInt res1; + do {res1=CXCursor_InvalidCode; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_LastInvalid() +{ HsInt res1; + do {res1=CXCursor_LastInvalid; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_FirstExpr() +{ HsInt res1; + do {res1=CXCursor_FirstExpr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_UnexposedExpr() +{ HsInt res1; + do {res1=CXCursor_UnexposedExpr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_DeclRefExpr() +{ HsInt res1; + do {res1=CXCursor_DeclRefExpr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_MemberRefExpr() +{ HsInt res1; + do {res1=CXCursor_MemberRefExpr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_CallExpr() +{ HsInt res1; + do {res1=CXCursor_CallExpr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_ObjCMessageExpr() +{ HsInt res1; + do {res1=CXCursor_ObjCMessageExpr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_BlockExpr() +{ HsInt res1; + do {res1=CXCursor_BlockExpr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_LastExpr() +{ HsInt res1; + do {res1=CXCursor_LastExpr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_FirstStmt() +{ HsInt res1; + do {res1=CXCursor_FirstStmt; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_UnexposedStmt() +{ HsInt res1; + do {res1=CXCursor_UnexposedStmt; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_LabelStmt() +{ HsInt res1; + do {res1=CXCursor_LabelStmt; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_LastStmt() +{ HsInt res1; + do {res1=CXCursor_LastStmt; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_TranslationUnit() +{ HsInt res1; + do {res1=CXCursor_TranslationUnit; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_FirstAttr() +{ HsInt res1; + do {res1=CXCursor_FirstAttr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_UnexposedAttr() +{ HsInt res1; + do {res1=CXCursor_UnexposedAttr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_IBActionAttr() +{ HsInt res1; + do {res1=CXCursor_IBActionAttr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_IBOutletAttr() +{ HsInt res1; + do {res1=CXCursor_IBOutletAttr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_IBOutletCollectionAttr() +{ HsInt res1; + do {res1=CXCursor_IBOutletCollectionAttr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_LastAttr() +{ HsInt res1; + do {res1=CXCursor_LastAttr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_PreprocessingDirective() +{ HsInt res1; + do {res1=CXCursor_PreprocessingDirective; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_MacroDefinition() +{ HsInt res1; + do {res1=CXCursor_MacroDefinition; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_MacroInstantiation() +{ HsInt res1; + do {res1=CXCursor_MacroInstantiation; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_InclusionDirective() +{ HsInt res1; + do {res1=CXCursor_InclusionDirective; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_FirstPreprocessing() +{ HsInt res1; + do {res1=CXCursor_FirstPreprocessing; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cursor_LastPreprocessing() +{ HsInt res1; + do {res1=CXCursor_LastPreprocessing; + + return((HsInt)(res1));} while(0); +} +void* prim_getNullCursor() +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;} gc_result; + do { CXCursor r = clang_getNullCursor(); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + gc_result.gc_res5 = (HsPtr)(r.data[2]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getNullCursor_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res2);} +HsPtr access_prim_getNullCursor_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res3);} +HsPtr access_prim_getNullCursor_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res4);} +HsPtr access_prim_getNullCursor_gc_res5(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res5);} +void* prim_getTranslationUnitCursor(HsPtr t) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;} gc_result; + do { CXCursor r = clang_getTranslationUnitCursor(t); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + gc_result.gc_res5 = (HsPtr)(r.data[2]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getTranslationUnitCursor_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res2);} +HsPtr access_prim_getTranslationUnitCursor_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res3);} +HsPtr access_prim_getTranslationUnitCursor_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res4);} +HsPtr access_prim_getTranslationUnitCursor_gc_res5(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res5);} +HsInt prim_equalCursors(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3,HsInt k2,HsPtr p12,HsPtr p22,HsPtr p32) +{ HsInt r; + do { CXCursor a = {k, {p1, p2, p3}}; + CXCursor b = {k2, {p12, p22, p32}}; + unsigned r = clang_equalCursors(a, b); + + return((HsInt)(r));} while(0); +} +HsWord32 prim_hashCursor(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsWord32 r; + do { CXCursor a = {k, {p1, p2, p3}}; + unsigned r = clang_hashCursor(a); + + return((HsWord32)(r));} while(0); +} +HsInt prim_getCursorKind(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsInt r; + do { CXCursor a = {k, {p1, p2, p3}}; + enum CXCursorKind r = clang_getCursorKind(a); + + return((HsInt)(r));} while(0); +} +HsInt prim_isDeclaration(HsInt arg1) +{ HsInt res1; + do {res1 = clang_isDeclaration(arg1); + + return((HsInt)(res1));} while(0); +} +HsInt prim_isReference(HsInt arg1) +{ HsInt res1; + do {res1 = clang_isReference(arg1); + + return((HsInt)(res1));} while(0); +} +HsInt prim_isExpression(HsInt arg1) +{ HsInt res1; + do {res1 = clang_isExpression(arg1); + + return((HsInt)(res1));} while(0); +} +HsInt prim_isStatement(HsInt arg1) +{ HsInt res1; + do {res1 = clang_isStatement(arg1); + + return((HsInt)(res1));} while(0); +} +HsInt prim_isInvalid(HsInt arg1) +{ HsInt res1; + do {res1 = clang_isInvalid(arg1); + + return((HsInt)(res1));} while(0); +} +HsInt prim_isTranslationUnit(HsInt arg1) +{ HsInt res1; + do {res1 = clang_isTranslationUnit(arg1); + + return((HsInt)(res1));} while(0); +} +HsInt prim_isPreprocessing(HsInt arg1) +{ HsInt res1; + do {res1 = clang_isPreprocessing(arg1); + + return((HsInt)(res1));} while(0); +} +HsInt prim_isUnexposed(HsInt arg1) +{ HsInt res1; + do {res1 = clang_isUnexposed(arg1); + + return((HsInt)(res1));} while(0); +} +HsInt prim_linkage_Invalid() +{ HsInt res1; + do {res1=CXLinkage_Invalid; + + return((HsInt)(res1));} while(0); +} +HsInt prim_linkage_NoLinkage() +{ HsInt res1; + do {res1=CXLinkage_NoLinkage; + + return((HsInt)(res1));} while(0); +} +HsInt prim_linkage_Internal() +{ HsInt res1; + do {res1=CXLinkage_Internal; + + return((HsInt)(res1));} while(0); +} +HsInt prim_linkage_UniqueExternal() +{ HsInt res1; + do {res1=CXLinkage_UniqueExternal; + + return((HsInt)(res1));} while(0); +} +HsInt prim_linkage_External() +{ HsInt res1; + do {res1=CXLinkage_External; + + return((HsInt)(res1));} while(0); +} +HsInt prim_getCursorLinkage(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsInt r; + do { CXCursor a = {k, {p1, p2, p3}}; + enum CXLinkageKind r = clang_getCursorLinkage(a); + + return((HsInt)(r));} while(0); +} +HsInt prim_getCursorAvailability(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsInt r; + do { CXCursor a = {k, {p1, p2, p3}}; + enum CXAvailabilityKind r = clang_getCursorAvailability(a); + + return((HsInt)(r));} while(0); +} +HsInt prim_language_Invalid() +{ HsInt res1; + do {res1=CXLanguage_Invalid; + + return((HsInt)(res1));} while(0); +} +HsInt prim_language_C() +{ HsInt res1; + do {res1=CXLanguage_C; + + return((HsInt)(res1));} while(0); +} +HsInt prim_language_ObjC() +{ HsInt res1; + do {res1=CXLanguage_ObjC; + + return((HsInt)(res1));} while(0); +} +HsInt prim_language_CPlusPlus() +{ HsInt res1; + do {res1=CXLanguage_CPlusPlus; + + return((HsInt)(res1));} while(0); +} +HsInt prim_getCursorLanguage(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsInt r; + do { CXCursor a = {k, {p1, p2, p3}}; + enum CXLanguageKind r = clang_getCursorLanguage(a); + + return((HsInt)(r));} while(0); +} +HsPtr prim_createCXCursorSet() +{ HsPtr r; + do { CXCursorSet r = clang_createCXCursorSet(); + + return((HsPtr)(r));} while(0); +} +HsInt prim_cXCursorSet_contains(HsPtr cs,HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ do { CXCursor a = {k, {p1, p2, p3}}; + + return((HsInt)(clang_CXCursorSet_contains(cs, a)));} while(0); +} +HsInt prim_cXCursorSet_insert(HsPtr cs,HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ do { CXCursor a = {k, {p1, p2, p3}}; + + return((HsInt)(clang_CXCursorSet_insert(cs, a)));} while(0); +} +void* prim_getCursorSemanticParent(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;} gc_result; + do { CXCursor a = {k, {p1, p2, p3}}; + CXCursor r = clang_getCursorSemanticParent(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + gc_result.gc_res5 = (HsPtr)(r.data[2]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getCursorSemanticParent_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res2);} +HsPtr access_prim_getCursorSemanticParent_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res3);} +HsPtr access_prim_getCursorSemanticParent_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res4);} +HsPtr access_prim_getCursorSemanticParent_gc_res5(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res5);} +void* prim_getCursorLexicalParent(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;} gc_result; + do { CXCursor a = {k, {p1, p2, p3}}; + CXCursor r = clang_getCursorLexicalParent(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + gc_result.gc_res5 = (HsPtr)(r.data[2]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getCursorLexicalParent_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res2);} +HsPtr access_prim_getCursorLexicalParent_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res3);} +HsPtr access_prim_getCursorLexicalParent_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res4);} +HsPtr access_prim_getCursorLexicalParent_gc_res5(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res5);} + enum CXCursorKind cursorListGetKind(CXCursor *clist, int i) {return clist[i].kind;} + void * cursorListGetPtr(CXCursor *clist, int i, int pi) {return clist[i].data[pi];} +void* prim_getOverriddenCursors(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ static struct {HsInt num_overrides;HsPtr overrides;} gc_result; + HsInt num_overrides; HsPtr overrides; + do { CXCursor a = {k, {p1, p2, p3}}; + CXCursor * overrides;unsigned num_overrides; + clang_getOverriddenCursors(a, &overrides, &num_overrides); + gc_result.num_overrides = (HsInt)(num_overrides); + gc_result.overrides = (HsPtr)(overrides); + + return(&gc_result);} while(0); +} +HsInt access_prim_getOverriddenCursors_num_overrides(void *ptr){ return(((struct {HsInt num_overrides;HsPtr overrides;}*) ptr)->num_overrides);} +HsPtr access_prim_getOverriddenCursors_overrides(void *ptr){ return(((struct {HsInt num_overrides;HsPtr overrides;}*) ptr)->overrides);} +HsPtr prim_getIncludedFile(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ do { CXCursor a = {k, {p1, p2, p3}}; + + return((HsPtr)(clang_getIncludedFile(a)));} while(0); +} +void* prim_getCursor(HsPtr t,HsPtr p1,HsPtr p2,HsInt d) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;} gc_result; + do { CXSourceLocation l = {{p1, p2}, d}; + CXCursor r = clang_getCursor(t, l); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + gc_result.gc_res5 = (HsPtr)(r.data[2]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getCursor_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res2);} +HsPtr access_prim_getCursor_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res3);} +HsPtr access_prim_getCursor_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res4);} +HsPtr access_prim_getCursor_gc_res5(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res5);} +void* prim_getCursorLocation(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;} gc_result; + do { CXCursor a = {k, {p1, p2, p3}}; + CXSourceLocation r = clang_getCursorLocation(a); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getCursorLocation_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res1);} +HsPtr access_prim_getCursorLocation_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res2);} +HsInt access_prim_getCursorLocation_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res3);} +void* prim_getCursorExtent(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;} gc_result; + do { CXCursor a = {k, {p1, p2, p3}}; + CXSourceRange r = clang_getCursorExtent(a); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.begin_int_data); + gc_result.gc_res4 = (HsInt)(r.end_int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getCursorExtent_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res1);} +HsPtr access_prim_getCursorExtent_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res2);} +HsInt access_prim_getCursorExtent_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res3);} +HsInt access_prim_getCursorExtent_gc_res4(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res4);} +HsInt prim_type_Invalid() +{ HsInt res1; + do {res1=CXType_Invalid; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Unexposed() +{ HsInt res1; + do {res1=CXType_Unexposed; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Void() +{ HsInt res1; + do {res1=CXType_Void; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Bool() +{ HsInt res1; + do {res1=CXType_Bool; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Char_U() +{ HsInt res1; + do {res1=CXType_Char_U; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_UChar() +{ HsInt res1; + do {res1=CXType_UChar; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Char16() +{ HsInt res1; + do {res1=CXType_Char16; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Char32() +{ HsInt res1; + do {res1=CXType_Char32; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_UShort() +{ HsInt res1; + do {res1=CXType_UShort; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_UInt() +{ HsInt res1; + do {res1=CXType_UInt; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_ULong() +{ HsInt res1; + do {res1=CXType_ULong; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_ULongLong() +{ HsInt res1; + do {res1=CXType_ULongLong; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_UInt128() +{ HsInt res1; + do {res1=CXType_UInt128; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Char_S() +{ HsInt res1; + do {res1=CXType_Char_S; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_SChar() +{ HsInt res1; + do {res1=CXType_SChar; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_WChar() +{ HsInt res1; + do {res1=CXType_WChar; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Short() +{ HsInt res1; + do {res1=CXType_Short; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Int() +{ HsInt res1; + do {res1=CXType_Int; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Long() +{ HsInt res1; + do {res1=CXType_Long; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_LongLong() +{ HsInt res1; + do {res1=CXType_LongLong; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Int128() +{ HsInt res1; + do {res1=CXType_Int128; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Float() +{ HsInt res1; + do {res1=CXType_Float; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Double() +{ HsInt res1; + do {res1=CXType_Double; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_LongDouble() +{ HsInt res1; + do {res1=CXType_LongDouble; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_NullPtr() +{ HsInt res1; + do {res1=CXType_NullPtr; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Overload() +{ HsInt res1; + do {res1=CXType_Overload; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Dependent() +{ HsInt res1; + do {res1=CXType_Dependent; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_ObjCId() +{ HsInt res1; + do {res1=CXType_ObjCId; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_ObjCClass() +{ HsInt res1; + do {res1=CXType_ObjCClass; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_ObjCSel() +{ HsInt res1; + do {res1=CXType_ObjCSel; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_FirstBuiltin() +{ HsInt res1; + do {res1=CXType_FirstBuiltin; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_LastBuiltin() +{ HsInt res1; + do {res1=CXType_LastBuiltin; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Complex() +{ HsInt res1; + do {res1=CXType_Complex; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Pointer() +{ HsInt res1; + do {res1=CXType_Pointer; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_BlockPointer() +{ HsInt res1; + do {res1=CXType_BlockPointer; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_LValueReference() +{ HsInt res1; + do {res1=CXType_LValueReference; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_RValueReference() +{ HsInt res1; + do {res1=CXType_RValueReference; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Record() +{ HsInt res1; + do {res1=CXType_Record; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Enum() +{ HsInt res1; + do {res1=CXType_Enum; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_Typedef() +{ HsInt res1; + do {res1=CXType_Typedef; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_ObjCInterface() +{ HsInt res1; + do {res1=CXType_ObjCInterface; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_ObjCObjectPointer() +{ HsInt res1; + do {res1=CXType_ObjCObjectPointer; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_FunctionNoProto() +{ HsInt res1; + do {res1=CXType_FunctionNoProto; + + return((HsInt)(res1));} while(0); +} +HsInt prim_type_FunctionProto() +{ HsInt res1; + do {res1=CXType_FunctionProto; + + return((HsInt)(res1));} while(0); +} +void* prim_getCursorType(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;} gc_result; + do { CXCursor a = {k, {p1, p2, p3}}; + CXType r = clang_getCursorType(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getCursorType_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res2);} +HsPtr access_prim_getCursorType_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res3);} +HsPtr access_prim_getCursorType_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res4);} +HsInt prim_equalTypes(HsInt k,HsPtr p1,HsPtr p2,HsInt k2,HsPtr p12,HsPtr p22) +{ HsInt r; + do { CXType a = {k, {p1, p2}}; + CXType b = {k2, {p12, p22}}; + r = clang_equalTypes(a, b); + + return((HsInt)(r));} while(0); +} +void* prim_getCanonicalType(HsInt k,HsPtr p1,HsPtr p2) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;} gc_result; + do { CXType a = {k, {p1, p2}}; + CXType r = clang_getCanonicalType(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getCanonicalType_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res2);} +HsPtr access_prim_getCanonicalType_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res3);} +HsPtr access_prim_getCanonicalType_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res4);} +HsInt prim_isConstQualifiedType(HsInt k,HsPtr p1,HsPtr p2) +{ HsInt r; + do { CXType a = {k, {p1, p2}}; + r = clang_isConstQualifiedType(a); + + return((HsInt)(r));} while(0); +} +HsInt prim_isVolatileQualifiedType(HsInt k,HsPtr p1,HsPtr p2) +{ HsInt r; + do { CXType a = {k, {p1, p2}}; + r = clang_isVolatileQualifiedType(a); + + return((HsInt)(r));} while(0); +} +HsInt prim_isRestrictQualifiedType(HsInt k,HsPtr p1,HsPtr p2) +{ HsInt r; + do { CXType a = {k, {p1, p2}}; + r = clang_isRestrictQualifiedType(a); + + return((HsInt)(r));} while(0); +} +void* prim_getPointeeType(HsInt k,HsPtr p1,HsPtr p2) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;} gc_result; + do { CXType a = {k, {p1, p2}}; + CXType r = clang_getPointeeType(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getPointeeType_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res2);} +HsPtr access_prim_getPointeeType_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res3);} +HsPtr access_prim_getPointeeType_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res4);} +void* prim_getTypeDeclaration(HsInt k,HsPtr p1,HsPtr p2) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;} gc_result; + do { CXType a = {k, {p1, p2}}; + CXCursor r = clang_getTypeDeclaration(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + gc_result.gc_res5 = (HsPtr)(r.data[2]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getTypeDeclaration_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res2);} +HsPtr access_prim_getTypeDeclaration_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res3);} +HsPtr access_prim_getTypeDeclaration_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res4);} +HsPtr access_prim_getTypeDeclaration_gc_res5(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res5);} +HsPtr prim_getDeclObjCTypeEncoding(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsPtr r; + do { CXCursor a = {k, {p1, p2, p3}}; + CXString *r = mkStrObj();*r = clang_getDeclObjCTypeEncoding(a); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_getTypeKindSpelling(HsInt tk) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_getTypeKindSpelling(tk); + + return((HsPtr)(r));} while(0); +} +void* prim_getResultType(HsInt k,HsPtr p1,HsPtr p2) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;} gc_result; + do { CXType a = {k, {p1, p2}}; + CXType r = clang_getResultType(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getResultType_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res2);} +HsPtr access_prim_getResultType_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res3);} +HsPtr access_prim_getResultType_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res4);} +void* prim_getCursorResultType(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;} gc_result; + do { CXCursor a = {k, {p1, p2, p3}}; + CXType r = clang_getCursorResultType(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getCursorResultType_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res2);} +HsPtr access_prim_getCursorResultType_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res3);} +HsPtr access_prim_getCursorResultType_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res4);} +HsInt prim_isPODType(HsInt k,HsPtr p1,HsPtr p2) +{ HsInt r; + do { CXType a = {k, {p1, p2}}; + r = clang_isPODType(a); + + return((HsInt)(r));} while(0); +} +HsInt prim_isVirtualBase(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsInt r; + do { CXCursor a = {k, {p1, p2, p3}}; + r = clang_isVirtualBase(a); + + return((HsInt)(r));} while(0); +} +HsInt prim_cXXInvalidAccessSpecifier() +{ HsInt res1; + do {res1=CX_CXXInvalidAccessSpecifier; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cXXPublic() +{ HsInt res1; + do {res1=CX_CXXPublic; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cXXProtected() +{ HsInt res1; + do {res1=CX_CXXProtected; + + return((HsInt)(res1));} while(0); +} +HsInt prim_cXXPrivate() +{ HsInt res1; + do {res1=CX_CXXPrivate; + + return((HsInt)(res1));} while(0); +} +HsInt prim_getCXXAccessSpecifier(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsInt r; + do { CXCursor a = {k, {p1, p2, p3}}; + r = clang_getCXXAccessSpecifier(a); + + return((HsInt)(r));} while(0); +} +HsInt prim_getNumOverloadedDecls(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsInt r; + do { CXCursor a = {k, {p1, p2, p3}}; + r = clang_getNumOverloadedDecls(a); + + return((HsInt)(r));} while(0); +} +void* prim_getOverloadedDecl(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3,HsInt i) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;} gc_result; + do { CXCursor a = {k, {p1, p2, p3}}; + CXCursor r = clang_getOverloadedDecl(a, i); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + gc_result.gc_res5 = (HsPtr)(r.data[2]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getOverloadedDecl_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res2);} +HsPtr access_prim_getOverloadedDecl_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res3);} +HsPtr access_prim_getOverloadedDecl_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res4);} +HsPtr access_prim_getOverloadedDecl_gc_res5(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res5);} +void* prim_getIBOutletCollectionType(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;} gc_result; + do { CXCursor a = {k, {p1, p2, p3}}; + CXType r = clang_getIBOutletCollectionType(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getIBOutletCollectionType_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res2);} +HsPtr access_prim_getIBOutletCollectionType_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res3);} +HsPtr access_prim_getIBOutletCollectionType_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;}*) ptr)->gc_res4);} +HsInt prim_childVisit_Break() +{ HsInt res1; + do {res1=CXChildVisit_Break; + + return((HsInt)(res1));} while(0); +} +HsInt prim_childVisit_Continue() +{ HsInt res1; + do {res1=CXChildVisit_Continue; + + return((HsInt)(res1));} while(0); +} +HsInt prim_childVisit_Recurse() +{ HsInt res1; + do {res1=CXChildVisit_Recurse; + + return((HsInt)(res1));} while(0); +} +HsPtr prim_getCursorUSR(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsPtr r; + do { CXCursor a = {k, {p1, p2, p3}}; + CXString *r = mkStrObj();*r = clang_getCursorUSR(a); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_constructUSR_ObjCClass(char * s) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_constructUSR_ObjCClass(s); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_constructUSR_ObjCCategory(char * s,char * p) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_constructUSR_ObjCCategory(s, p); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_constructUSR_ObjCProtocol(char * s) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_constructUSR_ObjCProtocol(s); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_constructUSR_ObjCIvar(char * s,HsPtr x) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_constructUSR_ObjCIvar(s, *(CXString *)x); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_constructUSR_ObjCMethod(char * s,HsInt b,HsPtr x) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_constructUSR_ObjCMethod(s, b, *(CXString *)x); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_constructUSR_ObjCProperty(char * s,HsPtr x) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_constructUSR_ObjCProperty(s, *(CXString *)x); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_getCursorSpelling(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsPtr r; + do { CXCursor a = {k, {p1, p2, p3}}; + CXString *r = mkStrObj();*r = clang_getCursorSpelling(a); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_getCursorDisplayName(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsPtr r; + do { CXCursor a = {k, {p1, p2, p3}}; + CXString *r = mkStrObj();*r = clang_getCursorDisplayName(a); + + return((HsPtr)(r));} while(0); +} +void* prim_getCursorReferenced(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;} gc_result; + do { CXCursor a = {k, {p1, p2, p3}}; + CXCursor r = clang_getCursorReferenced(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + gc_result.gc_res5 = (HsPtr)(r.data[2]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getCursorReferenced_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res2);} +HsPtr access_prim_getCursorReferenced_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res3);} +HsPtr access_prim_getCursorReferenced_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res4);} +HsPtr access_prim_getCursorReferenced_gc_res5(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res5);} +void* prim_getCursorDefinition(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;} gc_result; + do { CXCursor a = {k, {p1, p2, p3}}; + CXCursor r = clang_getCursorDefinition(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + gc_result.gc_res5 = (HsPtr)(r.data[2]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getCursorDefinition_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res2);} +HsPtr access_prim_getCursorDefinition_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res3);} +HsPtr access_prim_getCursorDefinition_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res4);} +HsPtr access_prim_getCursorDefinition_gc_res5(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res5);} +HsInt prim_isCursorDefinition(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsInt r; + do { CXCursor a = {k, {p1, p2, p3}}; + r = clang_isCursorDefinition(a); + + return((HsInt)(r));} while(0); +} +void* prim_getCanonicalCursor(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;} gc_result; + do { CXCursor a = {k, {p1, p2, p3}}; + CXCursor r = clang_getCanonicalCursor(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + gc_result.gc_res5 = (HsPtr)(r.data[2]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getCanonicalCursor_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res2);} +HsPtr access_prim_getCanonicalCursor_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res3);} +HsPtr access_prim_getCanonicalCursor_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res4);} +HsPtr access_prim_getCanonicalCursor_gc_res5(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res5);} +HsInt prim_cppMethod_isStatic(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsInt r; + do { CXCursor a = {k, {p1, p2, p3}}; + r = clang_CXXMethod_isStatic(a); + + return((HsInt)(r));} while(0); +} +HsInt prim_getTemplateCursorKind(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ HsInt r; + do { CXCursor a = {k, {p1, p2, p3}}; + r = clang_getTemplateCursorKind(a); + + return((HsInt)(r));} while(0); +} +void* prim_getSpecializedCursorTemplate(HsInt k,HsPtr p1,HsPtr p2,HsPtr p3) +{ static struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;} gc_result; + do { CXCursor a = {k, {p1, p2, p3}}; + CXCursor r = clang_getSpecializedCursorTemplate(a); + gc_result.gc_res2 = (HsInt)(r.kind); + gc_result.gc_res3 = (HsPtr)(r.data[0]); + gc_result.gc_res4 = (HsPtr)(r.data[1]); + gc_result.gc_res5 = (HsPtr)(r.data[2]); + + return(&gc_result);} while(0); +} +HsInt access_prim_getSpecializedCursorTemplate_gc_res2(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res2);} +HsPtr access_prim_getSpecializedCursorTemplate_gc_res3(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res3);} +HsPtr access_prim_getSpecializedCursorTemplate_gc_res4(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res4);} +HsPtr access_prim_getSpecializedCursorTemplate_gc_res5(void *ptr){ return(((struct {HsInt gc_res2;HsPtr gc_res3;HsPtr gc_res4;HsPtr gc_res5;}*) ptr)->gc_res5);} +HsInt prim_token_Punctuation() +{ HsInt res1; + do {res1=CXToken_Punctuation; + + return((HsInt)(res1));} while(0); +} +HsInt prim_token_Keyword() +{ HsInt res1; + do {res1=CXToken_Keyword; + + return((HsInt)(res1));} while(0); +} +HsInt prim_token_Identifier() +{ HsInt res1; + do {res1=CXToken_Identifier; + + return((HsInt)(res1));} while(0); +} +HsInt prim_token_Literal() +{ HsInt res1; + do {res1=CXToken_Literal; + + return((HsInt)(res1));} while(0); +} +HsInt prim_token_Comment() +{ HsInt res1; + do {res1=CXToken_Comment; + + return((HsInt)(res1));} while(0); +} +HsInt prim_getTokenKind(HsInt w,HsInt x,HsInt y,HsInt z,HsPtr p) +{ HsInt r; + do { CXToken a = {{w, x, y, z}, p}; + r = clang_getTokenKind(a); + + return((HsInt)(r));} while(0); +} +HsPtr prim_getTokenSpelling(HsPtr t,HsInt w,HsInt x,HsInt y,HsInt z,HsPtr p) +{ HsPtr r; + do { CXToken a = {{w, x, y, z}, p}; + CXString *r = mkStrObj();*r = clang_getTokenSpelling(t, a); + + return((HsPtr)(r));} while(0); +} +void* prim_getTokenLocation(HsPtr t,HsInt w,HsInt x,HsInt y,HsInt z,HsPtr p) +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;} gc_result; + do { CXToken a = {{w, x, y, z}, p}; + CXSourceLocation r = clang_getTokenLocation(t, a); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getTokenLocation_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res1);} +HsPtr access_prim_getTokenLocation_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res2);} +HsInt access_prim_getTokenLocation_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;}*) ptr)->gc_res3);} +void* prim_getTokenExtent(HsPtr t,HsInt w,HsInt x,HsInt y,HsInt z,HsPtr p) +{ static struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;} gc_result; + do { CXToken a = {{w, x, y, z}, p}; + CXSourceRange r = clang_getTokenExtent(t, a); + gc_result.gc_res1 = (HsPtr)(r.ptr_data[0]); + gc_result.gc_res2 = (HsPtr)(r.ptr_data[1]); + gc_result.gc_res3 = (HsInt)(r.begin_int_data); + gc_result.gc_res4 = (HsInt)(r.end_int_data); + + return(&gc_result);} while(0); +} +HsPtr access_prim_getTokenExtent_gc_res1(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res1);} +HsPtr access_prim_getTokenExtent_gc_res2(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res2);} +HsInt access_prim_getTokenExtent_gc_res3(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res3);} +HsInt access_prim_getTokenExtent_gc_res4(void *ptr){ return(((struct {HsPtr gc_res1;HsPtr gc_res2;HsInt gc_res3;HsInt gc_res4;}*) ptr)->gc_res4);} + unsigned tokenListGetInt(CXToken *tlist, int i, int pi) {return tlist[i].int_data[pi];} + void * tokenListGetPtr(CXToken *tlist, int i) {return tlist[i].ptr_data;} +void* prim_tokenize(HsPtr t,HsPtr p1,HsPtr p2,HsInt d1,HsInt d2) +{ static struct {HsInt numTokens;HsPtr tokens;} gc_result; + HsInt numTokens; HsPtr tokens; + do { CXSourceRange a = {{p1, p2}, d1, d2}; + CXToken * tokens;unsigned numTokens; + clang_tokenize(t, a, &tokens, &numTokens); + gc_result.numTokens = (HsInt)(numTokens); + gc_result.tokens = (HsPtr)(tokens); + + return(&gc_result);} while(0); +} +HsInt access_prim_tokenize_numTokens(void *ptr){ return(((struct {HsInt numTokens;HsPtr tokens;}*) ptr)->numTokens);} +HsPtr access_prim_tokenize_tokens(void *ptr){ return(((struct {HsInt numTokens;HsPtr tokens;}*) ptr)->tokens);} +HsPtr prim_getCursorKindSpelling(HsInt k) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_getCursorKindSpelling(k); + + return((HsPtr)(r));} while(0); +} +HsInt prim_completionChunk_Optional() +{ HsInt res1; + do {res1=CXCompletionChunk_Optional; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_TypedText() +{ HsInt res1; + do {res1=CXCompletionChunk_TypedText; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_Text() +{ HsInt res1; + do {res1=CXCompletionChunk_Text; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_Placeholder() +{ HsInt res1; + do {res1=CXCompletionChunk_Placeholder; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_Informative() +{ HsInt res1; + do {res1=CXCompletionChunk_Informative; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_CurrentParameter() +{ HsInt res1; + do {res1=CXCompletionChunk_CurrentParameter; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_LeftParen() +{ HsInt res1; + do {res1=CXCompletionChunk_LeftParen; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_RightParen() +{ HsInt res1; + do {res1=CXCompletionChunk_RightParen; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_LeftBracket() +{ HsInt res1; + do {res1=CXCompletionChunk_LeftBracket; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_RightBracket() +{ HsInt res1; + do {res1=CXCompletionChunk_RightBracket; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_LeftBrace() +{ HsInt res1; + do {res1=CXCompletionChunk_LeftBrace; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_RightBrace() +{ HsInt res1; + do {res1=CXCompletionChunk_RightBrace; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_LeftAngle() +{ HsInt res1; + do {res1=CXCompletionChunk_LeftAngle; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_RightAngle() +{ HsInt res1; + do {res1=CXCompletionChunk_RightAngle; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_Comma() +{ HsInt res1; + do {res1=CXCompletionChunk_Comma; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_ResultType() +{ HsInt res1; + do {res1=CXCompletionChunk_ResultType; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_Colon() +{ HsInt res1; + do {res1=CXCompletionChunk_Colon; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_SemiColon() +{ HsInt res1; + do {res1=CXCompletionChunk_SemiColon; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_Equal() +{ HsInt res1; + do {res1=CXCompletionChunk_Equal; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_HorizontalSpace() +{ HsInt res1; + do {res1=CXCompletionChunk_HorizontalSpace; + + return((HsInt)(res1));} while(0); +} +HsInt prim_completionChunk_VerticalSpace() +{ HsInt res1; + do {res1=CXCompletionChunk_VerticalSpace; + + return((HsInt)(res1));} while(0); +} +HsInt prim_getCompletionChunkKind(HsPtr arg1,HsInt arg2) +{ HsInt res1; + do {res1 = clang_getCompletionChunkKind(arg1, arg2); + + return((HsInt)(res1));} while(0); +} +HsPtr prim_getCompletionChunkText(HsPtr s,HsInt i) +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_getCompletionChunkText(s, i); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_getCompletionChunkCompletionString(HsPtr arg1,HsInt arg2) +{ HsPtr res1; + do {res1 = clang_getCompletionChunkCompletionString(arg1, arg2); + + return((HsPtr)(res1));} while(0); +} +HsInt prim_getNumCompletionChunks(HsPtr arg1) +{ HsInt res1; + do {res1 = clang_getNumCompletionChunks(arg1); + + return((HsInt)(res1));} while(0); +} +HsInt prim_getCompletionPriority(HsPtr arg1) +{ HsInt res1; + do {res1 = clang_getCompletionPriority(arg1); + + return((HsInt)(res1));} while(0); +} +HsInt prim_getCompletionAvailability(HsPtr arg1) +{ HsInt res1; + do {res1 = clang_getCompletionAvailability(arg1); + + return((HsInt)(res1));} while(0); +} +HsInt prim_codeComplete_IncludeMacros() +{ HsInt res1; + do {res1=CXCodeComplete_IncludeMacros; + + return((HsInt)(res1));} while(0); +} +HsInt prim_codeComplete_IncludeCodePatterns() +{ HsInt res1; + do {res1=CXCodeComplete_IncludeCodePatterns; + + return((HsInt)(res1));} while(0); +} +HsPtr prim_codeCompleteAt(HsPtr t,char * s,HsInt i1,HsInt i2,HsPtr ufs,HsInt nufs,HsInt i3) +{ HsPtr r; + do { r = clang_codeCompleteAt(t, s, i1, i2, ufs, nufs, i3); + + return((HsPtr)(r));} while(0); +} +void prim_sortCodeCompletionResults(HsPtr c,HsInt i) +{ do { clang_sortCodeCompletionResults(c, i); + ;} while(0); +} +HsInt prim_codeCompleteGetNumDiagnostics(HsPtr c) +{ HsInt r; + do { r = clang_codeCompleteGetNumDiagnostics(c); + + return((HsInt)(r));} while(0); +} +HsPtr prim_codeCompleteGetDiagnostic(HsPtr c,HsInt i) +{ HsPtr r; + do { CXDiagnostic r = clang_codeCompleteGetDiagnostic(c, i); + + return((HsPtr)(r));} while(0); +} +HsPtr prim_getClangVersion() +{ HsPtr r; + do { CXString *r = mkStrObj();*r = clang_getClangVersion(); + + return((HsPtr)(r));} while(0); +} +void prim_toggleCrashRecovery(HsInt arg1) +{ do {clang_toggleCrashRecovery(arg1); + ;} while(0); +}