midgard2-core-10.05.7.1/0000775000175000017500000000000011772046331011451 500000000000000midgard2-core-10.05.7.1/config.h.in0000664000175000017500000000323411772046303013415 00000000000000/* config.h.in. Generated from configure.in by autoheader. */ /* Define to 1 if you have the header file. */ #undef HAVE_DLFCN_H /* Define to 1 if you have the header file. */ #undef HAVE_INTTYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_MEMORY_H /* Define to 1 if you have the header file. */ #undef HAVE_STDINT_H /* Define to 1 if you have the header file. */ #undef HAVE_STDLIB_H /* Define to 1 if you have the header file. */ #undef HAVE_STRINGS_H /* Define to 1 if you have the header file. */ #undef HAVE_STRING_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_STAT_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_UNISTD_H /* Define to the sub-directory in which libtool stores uninstalled libraries. */ #undef LT_OBJDIR /* Name of package */ #undef PACKAGE /* Define to the address where bug reports for this package should be sent. */ #undef PACKAGE_BUGREPORT /* Define to the full name of this package. */ #undef PACKAGE_NAME /* Define to the full name and version of this package. */ #undef PACKAGE_STRING /* Define to the one symbol short name of this package. */ #undef PACKAGE_TARNAME /* Define to the home page for this package. */ #undef PACKAGE_URL /* Define to the version of this package. */ #undef PACKAGE_VERSION /* Define to 1 if you have the ANSI C header files. */ #undef STDC_HEADERS /* Version number of package */ #undef VERSION /* Define to empty if `const' does not conform to ANSI C. */ #undef const midgard2-core-10.05.7.1/configure0000775000175000017500000147126511772046302013316 00000000000000#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.68 for midgard2-core 10.05.7.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. as_myself= 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 -n \"\${ZSH_VERSION+set}\${BASH_VERSION+set}\" || ( ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO PATH=/empty FPATH=/empty; export PATH FPATH test \"X\`printf %s \$ECHO\`\" = \"X\$ECHO\" \\ || test \"X\`print -r -- \$ECHO\`\" = \"X\$ECHO\" ) || 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. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV export CONFIG_SHELL case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec "$CONFIG_SHELL" $as_opts "$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'" SHELL=${CONFIG_SHELL-/bin/sh} 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='midgard2-core' PACKAGE_TARNAME='midgard2-core' PACKAGE_VERSION='10.05.7.1' PACKAGE_STRING='midgard2-core 10.05.7.1' PACKAGE_BUGREPORT='' PACKAGE_URL='' ac_unique_file="src/midgard.c" # 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='am__EXEEXT_FALSE am__EXEEXT_TRUE LTLIBOBJS LIBOBJS DBUS_CONF_DIR LIBGDA_VERSION GDA_GIR_PACKAGE GDA_GIR_INCLUDE MIDGARD_DBUS_SUPPORT LFLAGS VERSION_STRING PLATFORM_WIN32_FALSE PLATFORM_WIN32_TRUE MIDGARD_DBUS_SUPPORT_FALSE MIDGARD_DBUS_SUPPORT_TRUE MIDGARD_LIBS MIDGARD_CFLAGS CPP OTOOL64 OTOOL LIPO NMEDIT DSYMUTIL MANIFEST_TOOL RANLIB ac_ct_AR AR DLLTOOL OBJDUMP LN_S NM ac_ct_DUMPBIN DUMPBIN LD FGREP EGREP GREP SED host_os host_vendor host_cpu host build_os build_vendor build_cpu build LIBTOOL am__fastdepCC_FALSE am__fastdepCC_TRUE CCDEPMODE am__nodep AMDEPBACKSLASH AMDEP_FALSE AMDEP_TRUE am__quote am__include DEPDIR OBJEXT EXEEXT ac_ct_CC CPPFLAGS LDFLAGS CFLAGS CC HAVE_INTROSPECTION_FALSE HAVE_INTROSPECTION_TRUE INTROSPECTION_MAKEFILE INTROSPECTION_LIBS INTROSPECTION_CFLAGS INTROSPECTION_TYPELIBDIR INTROSPECTION_GIRDIR INTROSPECTION_GENERATE INTROSPECTION_COMPILER INTROSPECTION_SCANNER PKG_CONFIG_LIBDIR PKG_CONFIG_PATH PKG_CONFIG MAINT MAINTAINER_MODE_FALSE MAINTAINER_MODE_TRUE am__untar am__tar AMTAR am__leading_dot SET_MAKE AWK mkdir_p MKDIR_P INSTALL_STRIP_PROGRAM STRIP install_sh MAKEINFO AUTOHEADER AUTOMAKE AUTOCONF ACLOCAL VERSION PACKAGE CYGPATH_W am__isrc INSTALL_DATA INSTALL_SCRIPT INSTALL_PROGRAM 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 enable_maintainer_mode enable_introspection enable_dependency_tracking enable_shared enable_static with_pic enable_fast_install with_gnu_ld with_sysroot enable_libtool_lock with_libgda5 with_dbus_support ' ac_precious_vars='build_alias host_alias target_alias PKG_CONFIG PKG_CONFIG_PATH PKG_CONFIG_LIBDIR CC CFLAGS LDFLAGS LIBS CPPFLAGS CPP MIDGARD_CFLAGS MIDGARD_LIBS' # 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 midgard2-core 10.05.7.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/midgard2-core] --htmldir=DIR html documentation [DOCDIR] --dvidir=DIR dvi documentation [DOCDIR] --pdfdir=DIR pdf documentation [DOCDIR] --psdir=DIR ps documentation [DOCDIR] _ACEOF cat <<\_ACEOF Program names: --program-prefix=PREFIX prepend PREFIX to installed program names --program-suffix=SUFFIX append SUFFIX to installed program names --program-transform-name=PROGRAM run sed PROGRAM on installed program names System types: --build=BUILD configure for building on BUILD [guessed] --host=HOST cross-compile to build programs to run on HOST [BUILD] _ACEOF fi if test -n "$ac_init_help"; then case $ac_init_help in short | recursive ) echo "Configuration of midgard2-core 10.05.7.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-maintainer-mode enable make rules and dependencies not useful (and sometimes confusing) to the casual installer --enable-introspection=[no/auto/yes] Enable introspection for this build --disable-dependency-tracking speeds up one-time build --enable-dependency-tracking do not reject slow dependency extractors --enable-shared[=PKGS] build shared libraries [default=yes] --enable-static[=PKGS] build static libraries [default=yes] --enable-fast-install[=PKGS] optimize for fast installation [default=yes] --disable-libtool-lock avoid locking (might break parallel builds) Optional Packages: --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --with-pic[=PKGS] try to use only PIC/non-PIC objects [default=use both] --with-gnu-ld assume the C compiler uses GNU ld [default=no] --with-sysroot=DIR Search for dependent libraries within DIR (or the compiler's sysroot if not specified). --with-libgda5 --with-dbus-support compile with dbus support Some influential environment variables: PKG_CONFIG path to pkg-config utility PKG_CONFIG_PATH directories to add to pkg-config's search path PKG_CONFIG_LIBDIR path overriding pkg-config's built-in search path 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 MIDGARD_CFLAGS C compiler flags for MIDGARD, overriding pkg-config MIDGARD_LIBS linker flags for MIDGARD, overriding pkg-config 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 midgard2-core configure 10.05.7.1 generated by GNU Autoconf 2.68 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; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_compile # ac_fn_c_try_link LINENO # ----------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext conftest$ac_exeext 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>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_exeext && { test "$cross_compiling" = yes || $as_test_x conftest$ac_exeext }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would # interfere with the next link command; also delete a directory that is # left behind by Apple's compiler. We do this before executing the actions. rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_link # 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 \${$3+:} false; 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; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_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; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_cpp # 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; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_run # ac_fn_c_check_func LINENO FUNC VAR # ---------------------------------- # Tests whether FUNC exists, setting the cache variable VAR accordingly ac_fn_c_check_func () { 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 \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Define $2 to an innocuous variant, in case declares $2. For example, HP-UX 11i declares gettimeofday. */ #define $2 innocuous_$2 /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $2 (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $2 /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char $2 (); /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined __stub_$2 || defined __stub___$2 choke me #endif int main () { return $2 (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext 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; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_func 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 midgard2-core $as_me 10.05.7.1, which was generated by GNU Autoconf 2.68. 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 ac_config_headers="$ac_config_headers config.h" am__api_version='1.11' ac_aux_dir= for ac_dir in "$srcdir" "$srcdir/.." "$srcdir/../.."; do if test -f "$ac_dir/install-sh"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f "$ac_dir/install.sh"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break elif test -f "$ac_dir/shtool"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/shtool install -c" break fi done if test -z "$ac_aux_dir"; then as_fn_error $? "cannot find install-sh, install.sh, or shtool in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" "$LINENO" 5 fi # These three variables are undocumented and unsupported, # and are intended to be withdrawn in a future Autoconf release. # They can cause serious problems if a builder's source tree is in a directory # whose full name contains unusual characters. ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var. ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var. ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: # SysV /etc/install, /usr/sbin/install # SunOS /usr/etc/install # IRIX /sbin/install # AIX /bin/install # AmigaOS /C/install, which installs bootblocks on floppy discs # AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag # AFS /usr/afsws/bin/install, which mishandles nonexistent args # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # OS/2's system install, which has a completely different semantic # ./install, which can be erroneously created by make from ./install.sh. # Reject install programs that cannot install multiple files. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5 $as_echo_n "checking for a BSD-compatible install... " >&6; } if test -z "$INSTALL"; then if ${ac_cv_path_install+:} false; then : $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. # Account for people who put trailing slashes in PATH elements. case $as_dir/ in #(( ./ | .// | /[cC]/* | \ /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \ /usr/ucb/* ) ;; *) # OSF1 and SCO ODT 3.0 have their own names for install. # Don't use installbsd from OSF since it installs stuff as root # by default. for ac_prog in ginstall scoinst install; do for ac_exec_ext in '' $ac_executable_extensions; do if { test -f "$as_dir/$ac_prog$ac_exec_ext" && $as_test_x "$as_dir/$ac_prog$ac_exec_ext"; }; then if test $ac_prog = install && grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : elif test $ac_prog = install && grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # program-specific install script used by HP pwplus--don't use. : else rm -rf conftest.one conftest.two conftest.dir echo one > conftest.one echo two > conftest.two mkdir conftest.dir if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" && test -s conftest.one && test -s conftest.two && test -s conftest.dir/conftest.one && test -s conftest.dir/conftest.two then ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" break 3 fi fi fi done done ;; esac done IFS=$as_save_IFS rm -rf conftest.one conftest.two conftest.dir fi if test "${ac_cv_path_install+set}" = set; then INSTALL=$ac_cv_path_install else # As a last resort, use the slow shell script. Don't cache a # value for INSTALL within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the value is a relative name. INSTALL=$ac_install_sh fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5 $as_echo "$INSTALL" >&6; } # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5 $as_echo_n "checking whether build environment is sane... " >&6; } # Just in case sleep 1 echo timestamp > conftest.file # Reject unsafe characters in $srcdir or the absolute working directory # name. Accept space and tab only in the latter. am_lf=' ' case `pwd` in *[\\\"\#\$\&\'\`$am_lf]*) as_fn_error $? "unsafe absolute working directory name" "$LINENO" 5;; esac case $srcdir in *[\\\"\#\$\&\'\`$am_lf\ \ ]*) as_fn_error $? "unsafe srcdir value: \`$srcdir'" "$LINENO" 5;; esac # Do `set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` if test "$*" = "X"; then # -L didn't work. set X `ls -t "$srcdir/configure" conftest.file` fi rm -f conftest.file if test "$*" != "X $srcdir/configure conftest.file" \ && test "$*" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". as_fn_error $? "ls -t appears to fail. Make sure there is not a broken alias in your environment" "$LINENO" 5 fi test "$2" = conftest.file ) then # Ok. : else as_fn_error $? "newly created file is older than distributed files! Check your system clock" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } test "$program_prefix" != NONE && program_transform_name="s&^&$program_prefix&;$program_transform_name" # Use a double $ so make ignores it. test "$program_suffix" != NONE && program_transform_name="s&\$&$program_suffix&;$program_transform_name" # Double any \ or $. # By default was `s,x,x', remove it if useless. ac_script='s/[\\$]/&&/g;s/;s,x,x,$//' program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"` # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` if test x"${MISSING+set}" != xset; then case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`missing' script is too old or missing" >&5 $as_echo "$as_me: WARNING: \`missing' script is too old or missing" >&2;} fi if test x"${install_sh}" != xset; then case $am_aux_dir in *\ * | *\ *) install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; *) install_sh="\${SHELL} $am_aux_dir/install-sh" esac fi # Installed binaries are usually stripped using `strip' when the user # run `make install-strip'. However `strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the `STRIP' environment variable to overrule this program. if test "$cross_compiling" != no; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # 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_STRIP="${ac_tool_prefix}strip" $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 STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 $as_echo "$STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # 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_STRIP="strip" $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_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 $as_echo "$ac_ct_STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" 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 STRIP=$ac_ct_STRIP fi else STRIP="$ac_cv_prog_STRIP" fi fi INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5 $as_echo_n "checking for a thread-safe mkdir -p... " >&6; } if test -z "$MKDIR_P"; then if ${ac_cv_path_mkdir+:} false; then : $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in mkdir gmkdir; do for ac_exec_ext in '' $ac_executable_extensions; do { test -f "$as_dir/$ac_prog$ac_exec_ext" && $as_test_x "$as_dir/$ac_prog$ac_exec_ext"; } || continue case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #( 'mkdir (GNU coreutils) '* | \ 'mkdir (coreutils) '* | \ 'mkdir (fileutils) '4.1*) ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext break 3;; esac done done done IFS=$as_save_IFS fi test -d ./--version && rmdir ./--version if test "${ac_cv_path_mkdir+set}" = set; then MKDIR_P="$ac_cv_path_mkdir -p" else # As a last resort, use the slow shell script. Don't cache a # value for MKDIR_P within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the value is a relative name. MKDIR_P="$ac_install_sh -d" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5 $as_echo "$MKDIR_P" >&6; } mkdir_p="$MKDIR_P" case $mkdir_p in [\\/$]* | ?:[\\/]*) ;; */*) mkdir_p="\$(top_builddir)/$mkdir_p" ;; esac for ac_prog in gawk mawk nawk awk 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 ${ac_cv_prog_AWK+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AWK"; then ac_cv_prog_AWK="$AWK" # 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_AWK="$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 AWK=$ac_cv_prog_AWK if test -n "$AWK"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5 $as_echo "$AWK" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$AWK" && break done { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 $as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } set x ${MAKE-make} ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then : $as_echo_n "(cached) " >&6 else cat >conftest.make <<\_ACEOF SHELL = /bin/sh all: @echo '@@@%%%=$(MAKE)=@@@%%%' _ACEOF # GNU make sometimes prints "make[1]: Entering ...", which would confuse us. case `${MAKE-make} -f conftest.make 2>/dev/null` in *@@@%%%=?*=@@@%%%*) eval ac_cv_prog_make_${ac_make}_set=yes;; *) eval ac_cv_prog_make_${ac_make}_set=no;; esac rm -f conftest.make fi if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } SET_MAKE= else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } SET_MAKE="MAKE=${MAKE-make}" fi rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null if test "`cd $srcdir && pwd`" != "`pwd`"; then # Use -I$(srcdir) only when $(srcdir) != ., so that make's output # is not polluted with repeated "-I." am__isrc=' -I$(srcdir)' # test to see if srcdir already configured if test -f $srcdir/config.status; then as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5 fi fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi # Define the identity of the package. PACKAGE='midgard2-core' VERSION='10.05.7.1' cat >>confdefs.h <<_ACEOF #define PACKAGE "$PACKAGE" _ACEOF cat >>confdefs.h <<_ACEOF #define VERSION "$VERSION" _ACEOF # Some tools Automake needs. ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"} AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"} AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"} AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"} MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"} # We need awk for the "check" target. The system "awk" is bad on # some platforms. # Always define AMTAR for backward compatibility. Yes, it's still used # in the wild :-( We should find a proper way to deprecate it ... AMTAR='$${TAR-tar}' am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -' { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to enable maintainer-specific portions of Makefiles" >&5 $as_echo_n "checking whether to enable maintainer-specific portions of Makefiles... " >&6; } # Check whether --enable-maintainer-mode was given. if test "${enable_maintainer_mode+set}" = set; then : enableval=$enable_maintainer_mode; USE_MAINTAINER_MODE=$enableval else USE_MAINTAINER_MODE=no fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $USE_MAINTAINER_MODE" >&5 $as_echo "$USE_MAINTAINER_MODE" >&6; } if test $USE_MAINTAINER_MODE = yes; then MAINTAINER_MODE_TRUE= MAINTAINER_MODE_FALSE='#' else MAINTAINER_MODE_TRUE='#' MAINTAINER_MODE_FALSE= fi MAINT=$MAINTAINER_MODE_TRUE if test "x$ac_cv_env_PKG_CONFIG_set" != "xset"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}pkg-config", so it can be a program name with args. set dummy ${ac_tool_prefix}pkg-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 ${ac_cv_path_PKG_CONFIG+:} false; then : $as_echo_n "(cached) " >&6 else case $PKG_CONFIG in [\\/]* | ?:[\\/]*) ac_cv_path_PKG_CONFIG="$PKG_CONFIG" # Let the user override the test with a path. ;; *) 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_path_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext" $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 ;; esac fi PKG_CONFIG=$ac_cv_path_PKG_CONFIG if test -n "$PKG_CONFIG"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PKG_CONFIG" >&5 $as_echo "$PKG_CONFIG" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_path_PKG_CONFIG"; then ac_pt_PKG_CONFIG=$PKG_CONFIG # Extract the first word of "pkg-config", so it can be a program name with args. set dummy pkg-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 ${ac_cv_path_ac_pt_PKG_CONFIG+:} false; then : $as_echo_n "(cached) " >&6 else case $ac_pt_PKG_CONFIG in [\\/]* | ?:[\\/]*) ac_cv_path_ac_pt_PKG_CONFIG="$ac_pt_PKG_CONFIG" # Let the user override the test with a path. ;; *) 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_path_ac_pt_PKG_CONFIG="$as_dir/$ac_word$ac_exec_ext" $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 ;; esac fi ac_pt_PKG_CONFIG=$ac_cv_path_ac_pt_PKG_CONFIG if test -n "$ac_pt_PKG_CONFIG"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_PKG_CONFIG" >&5 $as_echo "$ac_pt_PKG_CONFIG" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_pt_PKG_CONFIG" = x; then PKG_CONFIG="" 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 PKG_CONFIG=$ac_pt_PKG_CONFIG fi else PKG_CONFIG="$ac_cv_path_PKG_CONFIG" fi fi if test -n "$PKG_CONFIG"; then _pkg_min_version=0.9.0 { $as_echo "$as_me:${as_lineno-$LINENO}: checking pkg-config is at least version $_pkg_min_version" >&5 $as_echo_n "checking pkg-config is at least version $_pkg_min_version... " >&6; } if $PKG_CONFIG --atleast-pkgconfig-version $_pkg_min_version; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } PKG_CONFIG="" fi fi # Check whether --enable-introspection was given. if test "${enable_introspection+set}" = set; then : enableval=$enable_introspection; else enable_introspection=auto fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for gobject-introspection" >&5 $as_echo_n "checking for gobject-introspection... " >&6; } case $enable_introspection in #( no) : found_introspection="no (disabled, use --enable-introspection to enable)" ;; #( yes) : if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gobject-introspection-1.0\""; } >&5 ($PKG_CONFIG --exists --print-errors "gobject-introspection-1.0") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : else as_fn_error $? "gobject-introspection-1.0 is not installed" "$LINENO" 5 fi if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gobject-introspection-1.0 >= 0.6.5\""; } >&5 ($PKG_CONFIG --exists --print-errors "gobject-introspection-1.0 >= 0.6.5") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then found_introspection=yes else as_fn_error $? "You need to have gobject-introspection >= 0.6.5 installed to build midgard2-core" "$LINENO" 5 fi ;; #( auto) : if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"gobject-introspection-1.0 >= 0.6.5\""; } >&5 ($PKG_CONFIG --exists --print-errors "gobject-introspection-1.0 >= 0.6.5") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then found_introspection=yes else found_introspection=no fi ;; #( *) : as_fn_error $? "invalid argument passed to --enable-introspection, should be one of [no/auto/yes]" "$LINENO" 5 ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $found_introspection" >&5 $as_echo "$found_introspection" >&6; } INTROSPECTION_SCANNER= INTROSPECTION_COMPILER= INTROSPECTION_GENERATE= INTROSPECTION_GIRDIR= INTROSPECTION_TYPELIBDIR= if test "x$found_introspection" = "xyes"; then INTROSPECTION_SCANNER=`$PKG_CONFIG --variable=g_ir_scanner gobject-introspection-1.0` INTROSPECTION_COMPILER=`$PKG_CONFIG --variable=g_ir_compiler gobject-introspection-1.0` INTROSPECTION_GENERATE=`$PKG_CONFIG --variable=g_ir_generate gobject-introspection-1.0` INTROSPECTION_GIRDIR=`$PKG_CONFIG --variable=girdir gobject-introspection-1.0` INTROSPECTION_TYPELIBDIR="$($PKG_CONFIG --variable=typelibdir gobject-introspection-1.0)" INTROSPECTION_CFLAGS=`$PKG_CONFIG --cflags gobject-introspection-1.0` INTROSPECTION_LIBS=`$PKG_CONFIG --libs gobject-introspection-1.0` INTROSPECTION_MAKEFILE=`$PKG_CONFIG --variable=datadir gobject-introspection-1.0`/gobject-introspection-1.0/Makefile.introspection fi if test "x$found_introspection" = "xyes"; then HAVE_INTROSPECTION_TRUE= HAVE_INTROSPECTION_FALSE='#' else HAVE_INTROSPECTION_TRUE='#' HAVE_INTROSPECTION_FALSE= 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 for ac_prog in gcc cc 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 ${ac_cv_prog_CC+:} false; 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 gcc cc 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 ${ac_cv_prog_ac_ct_CC+:} false; 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 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 ${ac_cv_objext+:} false; 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 ${ac_cv_c_compiler_gnu+:} false; 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 ${ac_cv_prog_cc_g+:} false; 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 ${ac_cv_prog_cc_c89+:} false; 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 DEPDIR="${am__leading_dot}deps" ac_config_commands="$ac_config_commands depfiles" am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo this is the am__doit target .PHONY: am__doit END # If we don't find an include directive, just comment out the code. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of include used by $am_make" >&5 $as_echo_n "checking for style of include used by $am_make... " >&6; } am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # Ignore all kinds of additional output from `make'. case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=include am__quote= _am_result=GNU ;; esac # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=.include am__quote="\"" _am_result=BSD ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $_am_result" >&5 $as_echo "$_am_result" >&6; } rm -f confinc confmf # Check whether --enable-dependency-tracking was given. if test "${enable_dependency_tracking+set}" = set; then : enableval=$enable_dependency_tracking; fi if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' am__nodep='_no' fi if test "x$enable_dependency_tracking" != xno; then AMDEP_TRUE= AMDEP_FALSE='#' else AMDEP_TRUE='#' AMDEP_FALSE= fi depcc="$CC" am_compiler_list= { $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 $as_echo_n "checking dependency style of $depcc... " >&6; } if ${am_cv_CC_dependencies_compiler_type+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named `D' -- because `-MD' means `put the output # in D'. rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CC_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi am__universal=false case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with # Solaris 8's {/usr,}/bin/sh. touch sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with `-c' and `-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle `-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # after this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok `-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CC_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CC_dependencies_compiler_type=none fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5 $as_echo "$am_cv_CC_dependencies_compiler_type" >&6; } CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then am__fastdepCC_TRUE= am__fastdepCC_FALSE='#' else am__fastdepCC_TRUE='#' am__fastdepCC_FALSE= 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 case `pwd` in *\ * | *\ *) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&5 $as_echo "$as_me: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&2;} ;; esac macro_version='2.4.2' macro_revision='1.3337' ltmain="$ac_aux_dir/ltmain.sh" # Make sure we can run config.sub. $SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 || as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5 $as_echo_n "checking build system type... " >&6; } if ${ac_cv_build+:} false; then : $as_echo_n "(cached) " >&6 else ac_build_alias=$build_alias test "x$ac_build_alias" = x && ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"` test "x$ac_build_alias" = x && as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5 ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5 $as_echo "$ac_cv_build" >&6; } case $ac_cv_build in *-*-*) ;; *) as_fn_error $? "invalid value of canonical build" "$LINENO" 5;; esac build=$ac_cv_build ac_save_IFS=$IFS; IFS='-' set x $ac_cv_build shift build_cpu=$1 build_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: build_os=$* IFS=$ac_save_IFS case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5 $as_echo_n "checking host system type... " >&6; } if ${ac_cv_host+:} false; then : $as_echo_n "(cached) " >&6 else if test "x$host_alias" = x; then ac_cv_host=$ac_cv_build else ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5 fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5 $as_echo "$ac_cv_host" >&6; } case $ac_cv_host in *-*-*) ;; *) as_fn_error $? "invalid value of canonical host" "$LINENO" 5;; esac host=$ac_cv_host ac_save_IFS=$IFS; IFS='-' set x $ac_cv_host shift host_cpu=$1 host_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: host_os=$* IFS=$ac_save_IFS case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac # Backslashify metacharacters that are still active within # double-quoted strings. sed_quote_subst='s/\(["`$\\]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\(["`\\]\)/\\\1/g' # Sed substitution to delay expansion of an escaped shell variable in a # double_quote_subst'ed string. delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' # Sed substitution to delay expansion of an escaped single quote. delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' # Sed substitution to avoid accidental globbing in evaled expressions no_glob_subst='s/\*/\\\*/g' ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to print strings" >&5 $as_echo_n "checking how to print strings... " >&6; } # Test print first, because it will be a builtin if present. if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='print -r --' elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='printf %s\n' else # Use this function as a fallback that always works. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $1 _LTECHO_EOF' } ECHO='func_fallback_echo' fi # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "" } case "$ECHO" in printf*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: printf" >&5 $as_echo "printf" >&6; } ;; print*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: print -r" >&5 $as_echo "print -r" >&6; } ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: cat" >&5 $as_echo "cat" >&6; } ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a sed that does not truncate output" >&5 $as_echo_n "checking for a sed that does not truncate output... " >&6; } if ${ac_cv_path_SED+:} false; then : $as_echo_n "(cached) " >&6 else ac_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/ for ac_i in 1 2 3 4 5 6 7; do ac_script="$ac_script$as_nl$ac_script" done echo "$ac_script" 2>/dev/null | sed 99q >conftest.sed { ac_script=; unset ac_script;} if test -z "$SED"; then ac_path_SED_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 do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in sed gsed; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_SED="$as_dir/$ac_prog$ac_exec_ext" { test -f "$ac_path_SED" && $as_test_x "$ac_path_SED"; } || continue # Check for GNU ac_path_SED and select it if it is found. # Check for GNU $ac_path_SED case `"$ac_path_SED" --version 2>&1` in *GNU*) ac_cv_path_SED="$ac_path_SED" ac_path_SED_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 '' >> "conftest.nl" "$ac_path_SED" -f conftest.sed < "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_SED_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_SED="$ac_path_SED" ac_path_SED_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_SED_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_SED"; then as_fn_error $? "no acceptable sed could be found in \$PATH" "$LINENO" 5 fi else ac_cv_path_SED=$SED fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_SED" >&5 $as_echo "$ac_cv_path_SED" >&6; } SED="$ac_cv_path_SED" rm -f conftest.sed test -z "$SED" && SED=sed Xsed="$SED -e 1s/^X//" { $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 ${ac_cv_path_GREP+:} false; 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 ${ac_cv_path_EGREP+:} false; 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 fgrep" >&5 $as_echo_n "checking for fgrep... " >&6; } if ${ac_cv_path_FGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo 'ab*c' | $GREP -F 'ab*c' >/dev/null 2>&1 then ac_cv_path_FGREP="$GREP -F" else if test -z "$FGREP"; then ac_path_FGREP_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 fgrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext" { test -f "$ac_path_FGREP" && $as_test_x "$ac_path_FGREP"; } || continue # Check for GNU ac_path_FGREP and select it if it is found. # Check for GNU $ac_path_FGREP case `"$ac_path_FGREP" --version 2>&1` in *GNU*) ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_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 'FGREP' >> "conftest.nl" "$ac_path_FGREP" FGREP < "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_FGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_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_FGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_FGREP"; then as_fn_error $? "no acceptable fgrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_FGREP=$FGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_FGREP" >&5 $as_echo "$ac_cv_path_FGREP" >&6; } FGREP="$ac_cv_path_FGREP" test -z "$GREP" && GREP=grep # Check whether --with-gnu-ld was given. if test "${with_gnu_ld+set}" = set; then : withval=$with_gnu_ld; test "$withval" = no || with_gnu_ld=yes else with_gnu_ld=no fi ac_prog=ld if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5 $as_echo_n "checking for ld used by $CC... " >&6; } case $host in *-*-mingw*) # gcc leaves a trailing carriage return which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case $ac_prog in # Accept absolute paths. [\\/]* | ?:[\\/]*) re_direlt='/[^/][^/]*/\.\./' # Canonicalize the pathname of ld ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'` while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"` done test -z "$LD" && LD="$ac_prog" ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac elif test "$with_gnu_ld" = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5 $as_echo_n "checking for GNU ld... " >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5 $as_echo_n "checking for non-GNU ld... " >&6; } fi if ${lt_cv_path_LD+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$LD"; then lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &5 $as_echo "$LD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5 $as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; } if ${lt_cv_prog_gnu_ld+:} false; then : $as_echo_n "(cached) " >&6 else # I'd rather use --version here, but apparently some GNU lds only accept -v. case `$LD -v 2>&1 &5 $as_echo "$lt_cv_prog_gnu_ld" >&6; } with_gnu_ld=$lt_cv_prog_gnu_ld { $as_echo "$as_me:${as_lineno-$LINENO}: checking for BSD- or MS-compatible name lister (nm)" >&5 $as_echo_n "checking for BSD- or MS-compatible name lister (nm)... " >&6; } if ${lt_cv_path_NM+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$NM"; then # Let the user override the test. lt_cv_path_NM="$NM" else lt_nm_to_check="${ac_tool_prefix}nm" if test -n "$ac_tool_prefix" && test "$build" = "$host"; then lt_nm_to_check="$lt_nm_to_check nm" fi for lt_tmp_nm in $lt_nm_to_check; do lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. tmp_nm="$ac_dir/$lt_tmp_nm" if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then # Check to see if the nm accepts a BSD-compat flag. # Adding the `sed 1q' prevents false positives on HP-UX, which says: # nm: unknown option "B" ignored # Tru64's nm complains that /dev/null is an invalid object file case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in */dev/null* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break ;; *) lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags ;; esac ;; esac fi done IFS="$lt_save_ifs" done : ${lt_cv_path_NM=no} fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5 $as_echo "$lt_cv_path_NM" >&6; } if test "$lt_cv_path_NM" != "no"; then NM="$lt_cv_path_NM" else # Didn't find any BSD compatible name lister, look for dumpbin. if test -n "$DUMPBIN"; then : # Let the user override the test. else if test -n "$ac_tool_prefix"; then for ac_prog in dumpbin "link -dump" 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 ${ac_cv_prog_DUMPBIN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DUMPBIN"; then ac_cv_prog_DUMPBIN="$DUMPBIN" # 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_DUMPBIN="$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 DUMPBIN=$ac_cv_prog_DUMPBIN if test -n "$DUMPBIN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DUMPBIN" >&5 $as_echo "$DUMPBIN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$DUMPBIN" && break done fi if test -z "$DUMPBIN"; then ac_ct_DUMPBIN=$DUMPBIN for ac_prog in dumpbin "link -dump" 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 ${ac_cv_prog_ac_ct_DUMPBIN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DUMPBIN"; then ac_cv_prog_ac_ct_DUMPBIN="$ac_ct_DUMPBIN" # 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_DUMPBIN="$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_DUMPBIN=$ac_cv_prog_ac_ct_DUMPBIN if test -n "$ac_ct_DUMPBIN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DUMPBIN" >&5 $as_echo "$ac_ct_DUMPBIN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_DUMPBIN" && break done if test "x$ac_ct_DUMPBIN" = x; then DUMPBIN=":" 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 DUMPBIN=$ac_ct_DUMPBIN fi fi case `$DUMPBIN -symbols /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols" ;; *) DUMPBIN=: ;; esac fi if test "$DUMPBIN" != ":"; then NM="$DUMPBIN" fi fi test -z "$NM" && NM=nm { $as_echo "$as_me:${as_lineno-$LINENO}: checking the name lister ($NM) interface" >&5 $as_echo_n "checking the name lister ($NM) interface... " >&6; } if ${lt_cv_nm_interface+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_nm_interface="BSD nm" echo "int some_variable = 0;" > conftest.$ac_ext (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&5) (eval "$ac_compile" 2>conftest.err) cat conftest.err >&5 (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&5) (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) cat conftest.err >&5 (eval echo "\"\$as_me:$LINENO: output\"" >&5) cat conftest.out >&5 if $GREP 'External.*some_variable' conftest.out > /dev/null; then lt_cv_nm_interface="MS dumpbin" fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_nm_interface" >&5 $as_echo "$lt_cv_nm_interface" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5 $as_echo_n "checking whether ln -s works... " >&6; } LN_S=$as_ln_s if test "$LN_S" = "ln -s"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5 $as_echo "no, using $LN_S" >&6; } fi # find the maximum length of command line arguments { $as_echo "$as_me:${as_lineno-$LINENO}: checking the maximum length of command line arguments" >&5 $as_echo_n "checking the maximum length of command line arguments... " >&6; } if ${lt_cv_sys_max_cmd_len+:} false; then : $as_echo_n "(cached) " >&6 else i=0 teststring="ABCD" case $build_os in msdosdjgpp*) # On DJGPP, this test can blow up pretty badly due to problems in libc # (any single argument exceeding 2000 bytes causes a buffer overrun # during glob expansion). Even if it were fixed, the result of this # check would be larger than it should be. lt_cv_sys_max_cmd_len=12288; # 12K is about right ;; gnu*) # Under GNU Hurd, this test is not required because there is # no limit to the length of command line arguments. # Libtool will interpret -1 as no limit whatsoever lt_cv_sys_max_cmd_len=-1; ;; cygwin* | mingw* | cegcc*) # On Win9x/ME, this test blows up -- it succeeds, but takes # about 5 minutes as the teststring grows exponentially. # Worse, since 9x/ME are not pre-emptively multitasking, # you end up with a "frozen" computer, even though with patience # the test eventually succeeds (with a max line length of 256k). # Instead, let's just punt: use the minimum linelength reported by # all of the supported platforms: 8192 (on NT/2K/XP). lt_cv_sys_max_cmd_len=8192; ;; mint*) # On MiNT this can take a long time and run out of memory. lt_cv_sys_max_cmd_len=8192; ;; amigaos*) # On AmigaOS with pdksh, this test takes hours, literally. # So we just punt and use a minimum line length of 8192. lt_cv_sys_max_cmd_len=8192; ;; netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) # This has been around since 386BSD, at least. Likely further. if test -x /sbin/sysctl; then lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` elif test -x /usr/sbin/sysctl; then lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` else lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; interix*) # We know the value 262144 and hardcode it with a safety zone (like BSD) lt_cv_sys_max_cmd_len=196608 ;; os2*) # The test takes a long time on OS/2. lt_cv_sys_max_cmd_len=8192 ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not # nice to cause kernel panics so lets avoid the loop below. # First set a reasonable default. lt_cv_sys_max_cmd_len=16384 # if test -x /sbin/sysconfig; then case `/sbin/sysconfig -q proc exec_disable_arg_limit` in *1*) lt_cv_sys_max_cmd_len=-1 ;; esac fi ;; sco3.2v5*) lt_cv_sys_max_cmd_len=102400 ;; sysv5* | sco5v6* | sysv4.2uw2*) kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` if test -n "$kargmax"; then lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[ ]//'` else lt_cv_sys_max_cmd_len=32768 fi ;; *) lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` if test -n "$lt_cv_sys_max_cmd_len"; then lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` else # Make teststring a little bigger before we do anything with it. # a 1K string should be a reasonable start. for i in 1 2 3 4 5 6 7 8 ; do teststring=$teststring$teststring done SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} # If test is not a shell built-in, we'll probably end up computing a # maximum length that is only half of the actual maximum length, but # we can't tell. while { test "X"`env echo "$teststring$teststring" 2>/dev/null` \ = "X$teststring$teststring"; } >/dev/null 2>&1 && test $i != 17 # 1/2 MB should be enough do i=`expr $i + 1` teststring=$teststring$teststring done # Only check the string length outside the loop. lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` teststring= # Add a significant safety factor because C++ compilers can tack on # massive amounts of additional arguments before passing them to the # linker. It appears as though 1/2 is a usable value. lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` fi ;; esac fi if test -n $lt_cv_sys_max_cmd_len ; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sys_max_cmd_len" >&5 $as_echo "$lt_cv_sys_max_cmd_len" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: none" >&5 $as_echo "none" >&6; } fi max_cmd_len=$lt_cv_sys_max_cmd_len : ${CP="cp -f"} : ${MV="mv -f"} : ${RM="rm -f"} { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands some XSI constructs" >&5 $as_echo_n "checking whether the shell understands some XSI constructs... " >&6; } # Try some XSI features xsi_shell=no ( _lt_dummy="a/b/c" test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \ = c,a/b,b/c, \ && eval 'test $(( 1 + 1 )) -eq 2 \ && test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \ && xsi_shell=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $xsi_shell" >&5 $as_echo "$xsi_shell" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands \"+=\"" >&5 $as_echo_n "checking whether the shell understands \"+=\"... " >&6; } lt_shell_append=no ( foo=bar; set foo baz; eval "$1+=\$2" && test "$foo" = barbaz ) \ >/dev/null 2>&1 \ && lt_shell_append=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_shell_append" >&5 $as_echo "$lt_shell_append" >&6; } if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then lt_unset=unset else lt_unset=false fi # test EBCDIC or ASCII case `echo X|tr X '\101'` in A) # ASCII based system # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr lt_SP2NL='tr \040 \012' lt_NL2SP='tr \015\012 \040\040' ;; *) # EBCDIC based system lt_SP2NL='tr \100 \n' lt_NL2SP='tr \r\n \100\100' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to $host format" >&5 $as_echo_n "checking how to convert $build file names to $host format... " >&6; } if ${lt_cv_to_host_file_cmd+:} false; then : $as_echo_n "(cached) " >&6 else case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 ;; esac ;; *-*-cygwin* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_noop ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin ;; esac ;; * ) # unhandled hosts (and "normal" native builds) lt_cv_to_host_file_cmd=func_convert_file_noop ;; esac fi to_host_file_cmd=$lt_cv_to_host_file_cmd { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_host_file_cmd" >&5 $as_echo "$lt_cv_to_host_file_cmd" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to toolchain format" >&5 $as_echo_n "checking how to convert $build file names to toolchain format... " >&6; } if ${lt_cv_to_tool_file_cmd+:} false; then : $as_echo_n "(cached) " >&6 else #assume ordinary cross tools, or native build. lt_cv_to_tool_file_cmd=func_convert_file_noop case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 ;; esac ;; esac fi to_tool_file_cmd=$lt_cv_to_tool_file_cmd { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_tool_file_cmd" >&5 $as_echo "$lt_cv_to_tool_file_cmd" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $LD option to reload object files" >&5 $as_echo_n "checking for $LD option to reload object files... " >&6; } if ${lt_cv_ld_reload_flag+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_reload_flag='-r' fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_reload_flag" >&5 $as_echo "$lt_cv_ld_reload_flag" >&6; } reload_flag=$lt_cv_ld_reload_flag case $reload_flag in "" | " "*) ;; *) reload_flag=" $reload_flag" ;; esac reload_cmds='$LD$reload_flag -o $output$reload_objs' case $host_os in cygwin* | mingw* | pw32* | cegcc*) if test "$GCC" != yes; then reload_cmds=false fi ;; darwin*) if test "$GCC" = yes; then reload_cmds='$LTCC $LTCFLAGS -nostdlib ${wl}-r -o $output$reload_objs' else reload_cmds='$LD$reload_flag -o $output$reload_objs' fi ;; esac if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args. set dummy ${ac_tool_prefix}objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OBJDUMP"; then ac_cv_prog_OBJDUMP="$OBJDUMP" # 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_OBJDUMP="${ac_tool_prefix}objdump" $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 OBJDUMP=$ac_cv_prog_OBJDUMP if test -n "$OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5 $as_echo "$OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OBJDUMP"; then ac_ct_OBJDUMP=$OBJDUMP # Extract the first word of "objdump", so it can be a program name with args. set dummy objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OBJDUMP"; then ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # 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_OBJDUMP="objdump" $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_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP if test -n "$ac_ct_OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5 $as_echo "$ac_ct_OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OBJDUMP" = x; then OBJDUMP="false" 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 OBJDUMP=$ac_ct_OBJDUMP fi else OBJDUMP="$ac_cv_prog_OBJDUMP" fi test -z "$OBJDUMP" && OBJDUMP=objdump { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5 $as_echo_n "checking how to recognize dependent libraries... " >&6; } if ${lt_cv_deplibs_check_method+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_file_magic_cmd='$MAGIC_CMD' lt_cv_file_magic_test_file= lt_cv_deplibs_check_method='unknown' # Need to set the preceding variable on all platforms that support # interlibrary dependencies. # 'none' -- dependencies not supported. # `unknown' -- same as none, but documents that we really don't know. # 'pass_all' -- all dependencies passed with no checks. # 'test_compile' -- check by making test program. # 'file_magic [[regex]]' -- check by looking for files in library path # which responds to the $file_magic_cmd with a given extended regex. # If you have `file' or equivalent on your system and you're not sure # whether `pass_all' will *always* work, you probably want this one. case $host_os in aix[4-9]*) lt_cv_deplibs_check_method=pass_all ;; beos*) lt_cv_deplibs_check_method=pass_all ;; bsdi[45]*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)' lt_cv_file_magic_cmd='/usr/bin/file -L' lt_cv_file_magic_test_file=/shlib/libc.so ;; cygwin*) # func_win32_libid is a shell function defined in ltmain.sh lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' ;; mingw* | pw32*) # Base MSYS/MinGW do not provide the 'file' command needed by # func_win32_libid shell function, so use a weaker test based on 'objdump', # unless we find 'file', for example because we are cross-compiling. # func_win32_libid assumes BSD nm, so disallow it if using MS dumpbin. if ( test "$lt_cv_nm_interface" = "BSD nm" && file / ) >/dev/null 2>&1; then lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' else # Keep this pattern in sync with the one in func_win32_libid. lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' lt_cv_file_magic_cmd='$OBJDUMP -f' fi ;; cegcc*) # use the weaker test based on 'objdump'. See mingw*. lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' lt_cv_file_magic_cmd='$OBJDUMP -f' ;; darwin* | rhapsody*) lt_cv_deplibs_check_method=pass_all ;; freebsd* | dragonfly*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; gnu*) lt_cv_deplibs_check_method=pass_all ;; haiku*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20* | hpux11*) lt_cv_file_magic_cmd=/usr/bin/file case $host_cpu in ia64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64' lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; hppa*64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]' lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl ;; *) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9]\.[0-9]) shared library' lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; esac ;; interix[3-9]*) # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|\.a)$' ;; irix5* | irix6* | nonstopux*) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac lt_cv_deplibs_check_method=pass_all ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) lt_cv_deplibs_check_method=pass_all ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$' fi ;; newos6*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; *nto* | *qnx*) lt_cv_deplibs_check_method=pass_all ;; openbsd*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' fi ;; osf3* | osf4* | osf5*) lt_cv_deplibs_check_method=pass_all ;; rdos*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.3*) case $host_vendor in motorola) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; ncr) lt_cv_deplibs_check_method=pass_all ;; sequent) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )' ;; sni) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib" lt_cv_file_magic_test_file=/lib/libc.so ;; siemens) lt_cv_deplibs_check_method=pass_all ;; pc) lt_cv_deplibs_check_method=pass_all ;; esac ;; tpf*) lt_cv_deplibs_check_method=pass_all ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_deplibs_check_method" >&5 $as_echo "$lt_cv_deplibs_check_method" >&6; } file_magic_glob= want_nocaseglob=no if test "$build" = "$host"; then case $host_os in mingw* | pw32*) if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then want_nocaseglob=yes else file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[\1]\/[\1]\/g;/g"` fi ;; esac fi file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method test -z "$deplibs_check_method" && deplibs_check_method=unknown if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args. set dummy ${ac_tool_prefix}dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DLLTOOL"; then ac_cv_prog_DLLTOOL="$DLLTOOL" # 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_DLLTOOL="${ac_tool_prefix}dlltool" $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 DLLTOOL=$ac_cv_prog_DLLTOOL if test -n "$DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5 $as_echo "$DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DLLTOOL"; then ac_ct_DLLTOOL=$DLLTOOL # Extract the first word of "dlltool", so it can be a program name with args. set dummy dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DLLTOOL"; then ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # 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_DLLTOOL="dlltool" $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_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL if test -n "$ac_ct_DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5 $as_echo "$ac_ct_DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DLLTOOL" = x; then DLLTOOL="false" 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 DLLTOOL=$ac_ct_DLLTOOL fi else DLLTOOL="$ac_cv_prog_DLLTOOL" fi test -z "$DLLTOOL" && DLLTOOL=dlltool { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to associate runtime and link libraries" >&5 $as_echo_n "checking how to associate runtime and link libraries... " >&6; } if ${lt_cv_sharedlib_from_linklib_cmd+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_sharedlib_from_linklib_cmd='unknown' case $host_os in cygwin* | mingw* | pw32* | cegcc*) # two different shell functions defined in ltmain.sh # decide which to use based on capabilities of $DLLTOOL case `$DLLTOOL --help 2>&1` in *--identify-strict*) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib ;; *) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback ;; esac ;; *) # fallback: assume linklib IS sharedlib lt_cv_sharedlib_from_linklib_cmd="$ECHO" ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sharedlib_from_linklib_cmd" >&5 $as_echo "$lt_cv_sharedlib_from_linklib_cmd" >&6; } sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO if test -n "$ac_tool_prefix"; then for ac_prog in ar 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 ${ac_cv_prog_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AR"; then ac_cv_prog_AR="$AR" # 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_AR="$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 AR=$ac_cv_prog_AR if test -n "$AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5 $as_echo "$AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$AR" && break done fi if test -z "$AR"; then ac_ct_AR=$AR for ac_prog in ar 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 ${ac_cv_prog_ac_ct_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_AR"; then ac_cv_prog_ac_ct_AR="$ac_ct_AR" # 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_AR="$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_AR=$ac_cv_prog_ac_ct_AR if test -n "$ac_ct_AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5 $as_echo "$ac_ct_AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_AR" && break done if test "x$ac_ct_AR" = x; then AR="false" 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 AR=$ac_ct_AR fi fi : ${AR=ar} : ${AR_FLAGS=cru} { $as_echo "$as_me:${as_lineno-$LINENO}: checking for archiver @FILE support" >&5 $as_echo_n "checking for archiver @FILE support... " >&6; } if ${lt_cv_ar_at_file+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ar_at_file=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : echo conftest.$ac_objext > conftest.lst lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&5' { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 (eval $lt_ar_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if test "$ac_status" -eq 0; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 (eval $lt_ar_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if test "$ac_status" -ne 0; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ar_at_file" >&5 $as_echo "$lt_cv_ar_at_file" >&6; } if test "x$lt_cv_ar_at_file" = xno; then archiver_list_spec= else archiver_list_spec=$lt_cv_ar_at_file fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # 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_STRIP="${ac_tool_prefix}strip" $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 STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 $as_echo "$STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # 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_STRIP="strip" $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_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 $as_echo "$ac_ct_STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" 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 STRIP=$ac_ct_STRIP fi else STRIP="$ac_cv_prog_STRIP" fi test -z "$STRIP" && STRIP=: if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # 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_RANLIB="${ac_tool_prefix}ranlib" $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 RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 $as_echo "$RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # 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_RANLIB="ranlib" $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_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 $as_echo "$ac_ct_RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then RANLIB=":" 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 RANLIB=$ac_ct_RANLIB fi else RANLIB="$ac_cv_prog_RANLIB" fi test -z "$RANLIB" && RANLIB=: # Determine commands to create old-style static archives. old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' old_postinstall_cmds='chmod 644 $oldlib' old_postuninstall_cmds= if test -n "$RANLIB"; then case $host_os in openbsd*) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" ;; *) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" ;; esac old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" fi case $host_os in darwin*) lock_old_archive_extraction=yes ;; *) lock_old_archive_extraction=no ;; esac # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Check for command to grab the raw symbol name followed by C symbol from nm. { $as_echo "$as_me:${as_lineno-$LINENO}: checking command to parse $NM output from $compiler object" >&5 $as_echo_n "checking command to parse $NM output from $compiler object... " >&6; } if ${lt_cv_sys_global_symbol_pipe+:} false; then : $as_echo_n "(cached) " >&6 else # These are sane defaults that work on at least a few old systems. # [They come from Ultrix. What could be older than Ultrix?!! ;)] # Character class describing NM global symbol codes. symcode='[BCDEGRST]' # Regexp to match symbols that can be accessed directly from C. sympat='\([_A-Za-z][_A-Za-z0-9]*\)' # Define system-specific variables. case $host_os in aix*) symcode='[BCDT]' ;; cygwin* | mingw* | pw32* | cegcc*) symcode='[ABCDGISTW]' ;; hpux*) if test "$host_cpu" = ia64; then symcode='[ABCDEGRST]' fi ;; irix* | nonstopux*) symcode='[BCDEGRST]' ;; osf*) symcode='[BCDEGQRST]' ;; solaris*) symcode='[BDRT]' ;; sco3.2v5*) symcode='[DT]' ;; sysv4.2uw2*) symcode='[DT]' ;; sysv5* | sco5v6* | unixware* | OpenUNIX*) symcode='[ABDT]' ;; sysv4) symcode='[DFNSTU]' ;; esac # If we're using GNU nm, then use its standard symbol codes. case `$NM -V 2>&1` in *GNU* | *'with BFD'*) symcode='[ABCDGIRSTW]' ;; esac # Transform an extracted symbol line into a proper C declaration. # Some systems (esp. on ia64) link data and code symbols differently, # so use this general approach. lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" # Transform an extracted symbol line into symbol name and symbol address lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\)[ ]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (void *) \&\2},/p'" lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([^ ]*\)[ ]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \(lib[^ ]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"lib\2\", (void *) \&\2},/p'" # Handle CRLF in mingw tool chain opt_cr= case $build_os in mingw*) opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp ;; esac # Try without a prefix underscore, then with it. for ac_symprfx in "" "_"; do # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. symxfrm="\\1 $ac_symprfx\\2 \\2" # Write the raw and C identifiers. if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Fake it for dumpbin and say T for any non-static function # and D for any global variable. # Also find C++ and __fastcall symbols from MSVC++, # which start with @ or ?. lt_cv_sys_global_symbol_pipe="$AWK '"\ " {last_section=section; section=\$ 3};"\ " /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ " /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\ " {split(\$ 0, a, /\||\r/); split(a[2], s)};"\ " s[1]~/^[@?]/{print s[1], s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print t[1], substr(t[1],length(prfx))}"\ " ' prfx=^$ac_symprfx" else lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" fi lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" # Check to see that the pipe works correctly. pipe_works=no rm -f conftest* cat > conftest.$ac_ext <<_LT_EOF #ifdef __cplusplus extern "C" { #endif char nm_test_var; void nm_test_func(void); void nm_test_func(void){} #ifdef __cplusplus } #endif int main(){nm_test_var='a';nm_test_func();return(0);} _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then # Now try to grab the symbols. nlist=conftest.nm if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist\""; } >&5 (eval $NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s "$nlist"; then # Try sorting and uniquifying the output. if sort "$nlist" | uniq > "$nlist"T; then mv -f "$nlist"T "$nlist" else rm -f "$nlist"T fi # Make sure that we snagged all the symbols we need. if $GREP ' nm_test_var$' "$nlist" >/dev/null; then if $GREP ' nm_test_func$' "$nlist" >/dev/null; then cat <<_LT_EOF > conftest.$ac_ext /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE) /* DATA imports from DLLs on WIN32 con't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT_DLSYM_CONST #elif defined(__osf__) /* This system does not cope well with relocations in const data. */ # define LT_DLSYM_CONST #else # define LT_DLSYM_CONST const #endif #ifdef __cplusplus extern "C" { #endif _LT_EOF # Now generate the symbol file. eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' cat <<_LT_EOF >> conftest.$ac_ext /* The mapping between symbol names and symbols. */ LT_DLSYM_CONST struct { const char *name; void *address; } lt__PROGRAM__LTX_preloaded_symbols[] = { { "@PROGRAM@", (void *) 0 }, _LT_EOF $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext cat <<\_LT_EOF >> conftest.$ac_ext {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt__PROGRAM__LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif _LT_EOF # Now try linking the two files. mv conftest.$ac_objext conftstm.$ac_objext lt_globsym_save_LIBS=$LIBS lt_globsym_save_CFLAGS=$CFLAGS LIBS="conftstm.$ac_objext" CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag" if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext}; then pipe_works=yes fi LIBS=$lt_globsym_save_LIBS CFLAGS=$lt_globsym_save_CFLAGS else echo "cannot find nm_test_func in $nlist" >&5 fi else echo "cannot find nm_test_var in $nlist" >&5 fi else echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5 fi else echo "$progname: failed program was:" >&5 cat conftest.$ac_ext >&5 fi rm -rf conftest* conftst* # Do not use the global_symbol_pipe unless it works. if test "$pipe_works" = yes; then break else lt_cv_sys_global_symbol_pipe= fi done fi if test -z "$lt_cv_sys_global_symbol_pipe"; then lt_cv_sys_global_symbol_to_cdecl= fi if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: failed" >&5 $as_echo "failed" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok" >&5 $as_echo "ok" >&6; } fi # Response file support. if test "$lt_cv_nm_interface" = "MS dumpbin"; then nm_file_list_spec='@' elif $NM --help 2>/dev/null | grep '[@]FILE' >/dev/null; then nm_file_list_spec='@' fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sysroot" >&5 $as_echo_n "checking for sysroot... " >&6; } # Check whether --with-sysroot was given. if test "${with_sysroot+set}" = set; then : withval=$with_sysroot; else with_sysroot=no fi lt_sysroot= case ${with_sysroot} in #( yes) if test "$GCC" = yes; then lt_sysroot=`$CC --print-sysroot 2>/dev/null` fi ;; #( /*) lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` ;; #( no|'') ;; #( *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${with_sysroot}" >&5 $as_echo "${with_sysroot}" >&6; } as_fn_error $? "The sysroot must be an absolute path." "$LINENO" 5 ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${lt_sysroot:-no}" >&5 $as_echo "${lt_sysroot:-no}" >&6; } # Check whether --enable-libtool-lock was given. if test "${enable_libtool_lock+set}" = set; then : enableval=$enable_libtool_lock; fi test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in ia64-*-hpux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.$ac_objext` in *ELF-32*) HPUX_IA64_MODE="32" ;; *ELF-64*) HPUX_IA64_MODE="64" ;; esac fi rm -rf conftest* ;; *-*-irix6*) # Find out which ABI we are using. echo '#line '$LINENO' "configure"' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then if test "$lt_cv_prog_gnu_ld" = yes; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.o` in *32-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_i386_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_i386" ;; ppc64-*linux*|powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_x86_64_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; ppc*-*linux*|powerpc*-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*|s390*-*tpf*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS -belf" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler needs -belf" >&5 $as_echo_n "checking whether the C compiler needs -belf... " >&6; } if ${lt_cv_cc_needs_belf+:} false; then : $as_echo_n "(cached) " >&6 else 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 cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_cc_needs_belf=yes else lt_cv_cc_needs_belf=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext 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 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_cc_needs_belf" >&5 $as_echo "$lt_cv_cc_needs_belf" >&6; } if test x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; *-*solaris*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.o` in *64-bit*) case $lt_cv_prog_gnu_ld in yes*) case $host in i?86-*-solaris*) LD="${LD-ld} -m elf_x86_64" ;; sparc*-*-solaris*) LD="${LD-ld} -m elf64_sparc" ;; esac # GNU ld 2.21 introduced _sol2 emulations. Use them if available. if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then LD="${LD-ld}_sol2" fi ;; *) if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then LD="${LD-ld} -64" fi ;; esac ;; esac fi rm -rf conftest* ;; esac need_locks="$enable_libtool_lock" if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}mt", so it can be a program name with args. set dummy ${ac_tool_prefix}mt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_MANIFEST_TOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$MANIFEST_TOOL"; then ac_cv_prog_MANIFEST_TOOL="$MANIFEST_TOOL" # 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_MANIFEST_TOOL="${ac_tool_prefix}mt" $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 MANIFEST_TOOL=$ac_cv_prog_MANIFEST_TOOL if test -n "$MANIFEST_TOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MANIFEST_TOOL" >&5 $as_echo "$MANIFEST_TOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_MANIFEST_TOOL"; then ac_ct_MANIFEST_TOOL=$MANIFEST_TOOL # Extract the first word of "mt", so it can be a program name with args. set dummy mt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_MANIFEST_TOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_MANIFEST_TOOL"; then ac_cv_prog_ac_ct_MANIFEST_TOOL="$ac_ct_MANIFEST_TOOL" # 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_MANIFEST_TOOL="mt" $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_MANIFEST_TOOL=$ac_cv_prog_ac_ct_MANIFEST_TOOL if test -n "$ac_ct_MANIFEST_TOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_MANIFEST_TOOL" >&5 $as_echo "$ac_ct_MANIFEST_TOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_MANIFEST_TOOL" = x; then MANIFEST_TOOL=":" 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 MANIFEST_TOOL=$ac_ct_MANIFEST_TOOL fi else MANIFEST_TOOL="$ac_cv_prog_MANIFEST_TOOL" fi test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $MANIFEST_TOOL is a manifest tool" >&5 $as_echo_n "checking if $MANIFEST_TOOL is a manifest tool... " >&6; } if ${lt_cv_path_mainfest_tool+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_path_mainfest_tool=no echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&5 $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out cat conftest.err >&5 if $GREP 'Manifest Tool' conftest.out > /dev/null; then lt_cv_path_mainfest_tool=yes fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_mainfest_tool" >&5 $as_echo "$lt_cv_path_mainfest_tool" >&6; } if test "x$lt_cv_path_mainfest_tool" != xyes; then MANIFEST_TOOL=: fi case $host_os in rhapsody* | darwin*) if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dsymutil", so it can be a program name with args. set dummy ${ac_tool_prefix}dsymutil; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DSYMUTIL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DSYMUTIL"; then ac_cv_prog_DSYMUTIL="$DSYMUTIL" # 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_DSYMUTIL="${ac_tool_prefix}dsymutil" $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 DSYMUTIL=$ac_cv_prog_DSYMUTIL if test -n "$DSYMUTIL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DSYMUTIL" >&5 $as_echo "$DSYMUTIL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DSYMUTIL"; then ac_ct_DSYMUTIL=$DSYMUTIL # Extract the first word of "dsymutil", so it can be a program name with args. set dummy dsymutil; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DSYMUTIL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DSYMUTIL"; then ac_cv_prog_ac_ct_DSYMUTIL="$ac_ct_DSYMUTIL" # 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_DSYMUTIL="dsymutil" $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_DSYMUTIL=$ac_cv_prog_ac_ct_DSYMUTIL if test -n "$ac_ct_DSYMUTIL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DSYMUTIL" >&5 $as_echo "$ac_ct_DSYMUTIL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DSYMUTIL" = x; then DSYMUTIL=":" 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 DSYMUTIL=$ac_ct_DSYMUTIL fi else DSYMUTIL="$ac_cv_prog_DSYMUTIL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}nmedit", so it can be a program name with args. set dummy ${ac_tool_prefix}nmedit; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_NMEDIT+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$NMEDIT"; then ac_cv_prog_NMEDIT="$NMEDIT" # 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_NMEDIT="${ac_tool_prefix}nmedit" $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 NMEDIT=$ac_cv_prog_NMEDIT if test -n "$NMEDIT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NMEDIT" >&5 $as_echo "$NMEDIT" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_NMEDIT"; then ac_ct_NMEDIT=$NMEDIT # Extract the first word of "nmedit", so it can be a program name with args. set dummy nmedit; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_NMEDIT+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_NMEDIT"; then ac_cv_prog_ac_ct_NMEDIT="$ac_ct_NMEDIT" # 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_NMEDIT="nmedit" $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_NMEDIT=$ac_cv_prog_ac_ct_NMEDIT if test -n "$ac_ct_NMEDIT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_NMEDIT" >&5 $as_echo "$ac_ct_NMEDIT" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_NMEDIT" = x; then NMEDIT=":" 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 NMEDIT=$ac_ct_NMEDIT fi else NMEDIT="$ac_cv_prog_NMEDIT" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}lipo", so it can be a program name with args. set dummy ${ac_tool_prefix}lipo; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_LIPO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$LIPO"; then ac_cv_prog_LIPO="$LIPO" # 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_LIPO="${ac_tool_prefix}lipo" $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 LIPO=$ac_cv_prog_LIPO if test -n "$LIPO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIPO" >&5 $as_echo "$LIPO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_LIPO"; then ac_ct_LIPO=$LIPO # Extract the first word of "lipo", so it can be a program name with args. set dummy lipo; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_LIPO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_LIPO"; then ac_cv_prog_ac_ct_LIPO="$ac_ct_LIPO" # 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_LIPO="lipo" $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_LIPO=$ac_cv_prog_ac_ct_LIPO if test -n "$ac_ct_LIPO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_LIPO" >&5 $as_echo "$ac_ct_LIPO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_LIPO" = x; then LIPO=":" 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 LIPO=$ac_ct_LIPO fi else LIPO="$ac_cv_prog_LIPO" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}otool", so it can be a program name with args. set dummy ${ac_tool_prefix}otool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OTOOL"; then ac_cv_prog_OTOOL="$OTOOL" # 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_OTOOL="${ac_tool_prefix}otool" $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 OTOOL=$ac_cv_prog_OTOOL if test -n "$OTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL" >&5 $as_echo "$OTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OTOOL"; then ac_ct_OTOOL=$OTOOL # Extract the first word of "otool", so it can be a program name with args. set dummy otool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OTOOL"; then ac_cv_prog_ac_ct_OTOOL="$ac_ct_OTOOL" # 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_OTOOL="otool" $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_OTOOL=$ac_cv_prog_ac_ct_OTOOL if test -n "$ac_ct_OTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL" >&5 $as_echo "$ac_ct_OTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OTOOL" = x; then OTOOL=":" 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 OTOOL=$ac_ct_OTOOL fi else OTOOL="$ac_cv_prog_OTOOL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}otool64", so it can be a program name with args. set dummy ${ac_tool_prefix}otool64; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OTOOL64+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OTOOL64"; then ac_cv_prog_OTOOL64="$OTOOL64" # 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_OTOOL64="${ac_tool_prefix}otool64" $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 OTOOL64=$ac_cv_prog_OTOOL64 if test -n "$OTOOL64"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL64" >&5 $as_echo "$OTOOL64" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OTOOL64"; then ac_ct_OTOOL64=$OTOOL64 # Extract the first word of "otool64", so it can be a program name with args. set dummy otool64; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OTOOL64+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OTOOL64"; then ac_cv_prog_ac_ct_OTOOL64="$ac_ct_OTOOL64" # 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_OTOOL64="otool64" $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_OTOOL64=$ac_cv_prog_ac_ct_OTOOL64 if test -n "$ac_ct_OTOOL64"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL64" >&5 $as_echo "$ac_ct_OTOOL64" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OTOOL64" = x; then OTOOL64=":" 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 OTOOL64=$ac_ct_OTOOL64 fi else OTOOL64="$ac_cv_prog_OTOOL64" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -single_module linker flag" >&5 $as_echo_n "checking for -single_module linker flag... " >&6; } if ${lt_cv_apple_cc_single_mod+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_apple_cc_single_mod=no if test -z "${LT_MULTI_MODULE}"; then # By default we will add the -single_module flag. You can override # by either setting the environment variable LT_MULTI_MODULE # non-empty at configure time, or by adding -multi_module to the # link flags. rm -rf libconftest.dylib* echo "int foo(void){return 1;}" > conftest.c echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c" >&5 $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err _lt_result=$? # If there is a non-empty error log, and "single_module" # appears in it, assume the flag caused a linker warning if test -s conftest.err && $GREP single_module conftest.err; then cat conftest.err >&5 # Otherwise, if the output was created with a 0 exit code from # the compiler, it worked. elif test -f libconftest.dylib && test $_lt_result -eq 0; then lt_cv_apple_cc_single_mod=yes else cat conftest.err >&5 fi rm -rf libconftest.dylib* rm -f conftest.* fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_apple_cc_single_mod" >&5 $as_echo "$lt_cv_apple_cc_single_mod" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -exported_symbols_list linker flag" >&5 $as_echo_n "checking for -exported_symbols_list linker flag... " >&6; } if ${lt_cv_ld_exported_symbols_list+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_exported_symbols_list=no save_LDFLAGS=$LDFLAGS echo "_main" > conftest.sym LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_ld_exported_symbols_list=yes else lt_cv_ld_exported_symbols_list=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_exported_symbols_list" >&5 $as_echo "$lt_cv_ld_exported_symbols_list" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -force_load linker flag" >&5 $as_echo_n "checking for -force_load linker flag... " >&6; } if ${lt_cv_ld_force_load+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_force_load=no cat > conftest.c << _LT_EOF int forced_loaded() { return 2;} _LT_EOF echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&5 $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&5 echo "$AR cru libconftest.a conftest.o" >&5 $AR cru libconftest.a conftest.o 2>&5 echo "$RANLIB libconftest.a" >&5 $RANLIB libconftest.a 2>&5 cat > conftest.c << _LT_EOF int main() { return 0;} _LT_EOF echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&5 $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err _lt_result=$? if test -s conftest.err && $GREP force_load conftest.err; then cat conftest.err >&5 elif test -f conftest && test $_lt_result -eq 0 && $GREP forced_load conftest >/dev/null 2>&1 ; then lt_cv_ld_force_load=yes else cat conftest.err >&5 fi rm -f conftest.err libconftest.a conftest conftest.c rm -rf conftest.dSYM fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_force_load" >&5 $as_echo "$lt_cv_ld_force_load" >&6; } case $host_os in rhapsody* | darwin1.[012]) _lt_dar_allow_undefined='${wl}-undefined ${wl}suppress' ;; darwin1.*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; darwin*) # darwin 5.x on # if running on 10.5 or later, the deployment target defaults # to the OS version, if on x86, and 10.4, the deployment # target defaults to 10.4. Don't you love it? case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in 10.0,*86*-darwin8*|10.0,*-darwin[91]*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; 10.[012]*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; 10.*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; esac ;; esac if test "$lt_cv_apple_cc_single_mod" = "yes"; then _lt_dar_single_mod='$single_module' fi if test "$lt_cv_ld_exported_symbols_list" = "yes"; then _lt_dar_export_syms=' ${wl}-exported_symbols_list,$output_objdir/${libname}-symbols.expsym' else _lt_dar_export_syms='~$NMEDIT -s $output_objdir/${libname}-symbols.expsym ${lib}' fi if test "$DSYMUTIL" != ":" && test "$lt_cv_ld_force_load" = "no"; then _lt_dsymutil='~$DSYMUTIL $lib || :' else _lt_dsymutil= fi ;; esac 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 ${ac_cv_prog_CPP+:} false; 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 ANSI C header files" >&5 $as_echo_n "checking for ANSI C header files... " >&6; } if ${ac_cv_header_stdc+:} false; 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 dlfcn.h do : ac_fn_c_check_header_compile "$LINENO" "dlfcn.h" "ac_cv_header_dlfcn_h" "$ac_includes_default " if test "x$ac_cv_header_dlfcn_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_DLFCN_H 1 _ACEOF fi done # Set options enable_dlopen=no enable_win32_dll=no # Check whether --enable-shared was given. if test "${enable_shared+set}" = set; then : enableval=$enable_shared; p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS="$lt_save_ifs" ;; esac else enable_shared=yes fi # Check whether --enable-static was given. if test "${enable_static+set}" = set; then : enableval=$enable_static; p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS="$lt_save_ifs" ;; esac else enable_static=yes fi # Check whether --with-pic was given. if test "${with_pic+set}" = set; then : withval=$with_pic; lt_p=${PACKAGE-default} case $withval in yes|no) pic_mode=$withval ;; *) pic_mode=default # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for lt_pkg in $withval; do IFS="$lt_save_ifs" if test "X$lt_pkg" = "X$lt_p"; then pic_mode=yes fi done IFS="$lt_save_ifs" ;; esac else pic_mode=default fi test -z "$pic_mode" && pic_mode=default # Check whether --enable-fast-install was given. if test "${enable_fast_install+set}" = set; then : enableval=$enable_fast_install; p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS="$lt_save_ifs" ;; esac else enable_fast_install=yes fi # This can be used to rebuild libtool when needed LIBTOOL_DEPS="$ltmain" # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' test -z "$LN_S" && LN_S="ln -s" if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for objdir" >&5 $as_echo_n "checking for objdir... " >&6; } if ${lt_cv_objdir+:} false; then : $as_echo_n "(cached) " >&6 else rm -f .libs 2>/dev/null mkdir .libs 2>/dev/null if test -d .libs; then lt_cv_objdir=.libs else # MS-DOS does not allow filenames that begin with a dot. lt_cv_objdir=_libs fi rmdir .libs 2>/dev/null fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_objdir" >&5 $as_echo "$lt_cv_objdir" >&6; } objdir=$lt_cv_objdir cat >>confdefs.h <<_ACEOF #define LT_OBJDIR "$lt_cv_objdir/" _ACEOF case $host_os in aix3*) # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi ;; esac # Global variables: ofile=libtool can_build_shared=yes # All known linkers require a `.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a with_gnu_ld="$lt_cv_prog_gnu_ld" old_CC="$CC" old_CFLAGS="$CFLAGS" # Set sane defaults for various variables test -z "$CC" && CC=cc test -z "$LTCC" && LTCC=$CC test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS test -z "$LD" && LD=ld test -z "$ac_objext" && ac_objext=o for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` # Only perform the check for file, if the check method requires it test -z "$MAGIC_CMD" && MAGIC_CMD=file case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ${ac_tool_prefix}file" >&5 $as_echo_n "checking for ${ac_tool_prefix}file... " >&6; } if ${lt_cv_path_MAGIC_CMD+:} false; then : $as_echo_n "(cached) " >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/${ac_tool_prefix}file; then lt_cv_path_MAGIC_CMD="$ac_dir/${ac_tool_prefix}file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac fi MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 $as_echo "$MAGIC_CMD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for file" >&5 $as_echo_n "checking for file... " >&6; } if ${lt_cv_path_MAGIC_CMD+:} false; then : $as_echo_n "(cached) " >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/file; then lt_cv_path_MAGIC_CMD="$ac_dir/file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac fi MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 $as_echo "$MAGIC_CMD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi else MAGIC_CMD=: fi fi fi ;; esac # Use C for the default configuration in the libtool script lt_save_CC="$CC" 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 # Source file extension for C test sources. ac_ext=c # Object file extension for compiled C test sources. objext=o objext=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(){return(0);}' # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Save the default compiler, since it gets overwritten when the other # tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. compiler_DEFAULT=$CC # save warnings/boilerplate of simple test code ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $RM conftest* ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $RM -r conftest* ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then lt_prog_compiler_no_builtin_flag= if test "$GCC" = yes; then case $cc_basename in nvcc*) lt_prog_compiler_no_builtin_flag=' -Xcompiler -fno-builtin' ;; *) lt_prog_compiler_no_builtin_flag=' -fno-builtin' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 $as_echo_n "checking if $compiler supports -fno-rtti -fno-exceptions... " >&6; } if ${lt_cv_prog_compiler_rtti_exceptions+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_rtti_exceptions=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-fno-rtti -fno-exceptions" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_rtti_exceptions=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_rtti_exceptions" >&5 $as_echo "$lt_cv_prog_compiler_rtti_exceptions" >&6; } if test x"$lt_cv_prog_compiler_rtti_exceptions" = xyes; then lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions" else : fi fi lt_prog_compiler_wl= lt_prog_compiler_pic= lt_prog_compiler_static= if test "$GCC" = yes; then lt_prog_compiler_wl='-Wl,' lt_prog_compiler_static='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support lt_prog_compiler_pic='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries lt_prog_compiler_pic='-DDLL_EXPORT' ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic='-fno-common' ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. lt_prog_compiler_static= ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) # +Z the default ;; *) lt_prog_compiler_pic='-fPIC' ;; esac ;; interix[3-9]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. lt_prog_compiler_can_build_shared=no enable_shared=no ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic='-fPIC -shared' ;; sysv4*MP*) if test -d /usr/nec; then lt_prog_compiler_pic=-Kconform_pic fi ;; *) lt_prog_compiler_pic='-fPIC' ;; esac case $cc_basename in nvcc*) # Cuda Compiler Driver 2.2 lt_prog_compiler_wl='-Xlinker ' if test -n "$lt_prog_compiler_pic"; then lt_prog_compiler_pic="-Xcompiler $lt_prog_compiler_pic" fi ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) lt_prog_compiler_wl='-Wl,' if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' else lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp' fi ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). lt_prog_compiler_pic='-DDLL_EXPORT' ;; hpux9* | hpux10* | hpux11*) lt_prog_compiler_wl='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? lt_prog_compiler_static='${wl}-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) lt_prog_compiler_wl='-Wl,' # PIC (with -KPIC) is the default. lt_prog_compiler_static='-non_shared' ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in # old Intel for x86_64 which still supported -KPIC. ecc*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-static' ;; # icc used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. icc* | ifort*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; # Lahey Fortran 8.1. lf95*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='--shared' lt_prog_compiler_static='--static' ;; nagfor*) # NAG Fortran compiler lt_prog_compiler_wl='-Wl,-Wl,,' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fpic' lt_prog_compiler_static='-Bstatic' ;; ccc*) lt_prog_compiler_wl='-Wl,' # All Alpha code is PIC. lt_prog_compiler_static='-non_shared' ;; xl* | bgxl* | bgf* | mpixl*) # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-qpic' lt_prog_compiler_static='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*) # Sun Fortran 8.3 passes all unrecognized flags to the linker lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='' ;; *Sun\ F* | *Sun*Fortran*) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='-Qoption ld ' ;; *Sun\ C*) # Sun C 5.9 lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='-Wl,' ;; *Intel*\ [CF]*Compiler*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; *Portland\ Group*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fpic' lt_prog_compiler_static='-Bstatic' ;; esac ;; esac ;; newsos6) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic='-fPIC -shared' ;; osf3* | osf4* | osf5*) lt_prog_compiler_wl='-Wl,' # All OSF/1 code is PIC. lt_prog_compiler_static='-non_shared' ;; rdos*) lt_prog_compiler_static='-non_shared' ;; solaris*) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' case $cc_basename in f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) lt_prog_compiler_wl='-Qoption ld ';; *) lt_prog_compiler_wl='-Wl,';; esac ;; sunos4*) lt_prog_compiler_wl='-Qoption ld ' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec ;then lt_prog_compiler_pic='-Kconform_pic' lt_prog_compiler_static='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; unicos*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_can_build_shared=no ;; uts4*) lt_prog_compiler_pic='-pic' lt_prog_compiler_static='-Bstatic' ;; *) lt_prog_compiler_can_build_shared=no ;; esac fi case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) lt_prog_compiler_pic= ;; *) lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC" ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5 $as_echo_n "checking for $compiler option to produce PIC... " >&6; } if ${lt_cv_prog_compiler_pic+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic=$lt_prog_compiler_pic fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic" >&5 $as_echo "$lt_cv_prog_compiler_pic" >&6; } lt_prog_compiler_pic=$lt_cv_prog_compiler_pic # # Check to make sure the PIC flag actually works. # if test -n "$lt_prog_compiler_pic"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5 $as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic works... " >&6; } if ${lt_cv_prog_compiler_pic_works+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic_works=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$lt_prog_compiler_pic -DPIC" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_pic_works=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works" >&5 $as_echo "$lt_cv_prog_compiler_pic_works" >&6; } if test x"$lt_cv_prog_compiler_pic_works" = xyes; then case $lt_prog_compiler_pic in "" | " "*) ;; *) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;; esac else lt_prog_compiler_pic= lt_prog_compiler_can_build_shared=no fi fi # # Check to make sure the static flag actually works. # wl=$lt_prog_compiler_wl eval lt_tmp_static_flag=\"$lt_prog_compiler_static\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5 $as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; } if ${lt_cv_prog_compiler_static_works+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_static_works=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $lt_tmp_static_flag" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_static_works=yes fi else lt_cv_prog_compiler_static_works=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works" >&5 $as_echo "$lt_cv_prog_compiler_static_works" >&6; } if test x"$lt_cv_prog_compiler_static_works" = xyes; then : else lt_prog_compiler_static= fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 $as_echo "$lt_cv_prog_compiler_c_o" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 $as_echo "$lt_cv_prog_compiler_c_o" >&6; } hard_links="nottested" if test "$lt_cv_prog_compiler_c_o" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5 $as_echo_n "checking if we can lock with hard links... " >&6; } hard_links=yes $RM conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5 $as_echo "$hard_links" >&6; } if test "$hard_links" = no; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 $as_echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} need_locks=warn fi else need_locks=no fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5 $as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; } runpath_var= allow_undefined_flag= always_export_symbols=no archive_cmds= archive_expsym_cmds= compiler_needs_object=no enable_shared_with_static_runtimes=no export_dynamic_flag_spec= export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' hardcode_automatic=no hardcode_direct=no hardcode_direct_absolute=no hardcode_libdir_flag_spec= hardcode_libdir_separator= hardcode_minus_L=no hardcode_shlibpath_var=unsupported inherit_rpath=no link_all_deplibs=unknown module_cmds= module_expsym_cmds= old_archive_from_new_cmds= old_archive_from_expsyms_cmds= thread_safe_flag_spec= whole_archive_flag_spec= # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list include_expsyms= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ` (' and `)$', so one must not match beginning or # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', # as well as any symbol that contains `d'. exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. extract_expsyms_cmds= case $host_os in cygwin* | mingw* | pw32* | cegcc*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) with_gnu_ld=no ;; linux* | k*bsd*-gnu | gnu*) link_all_deplibs=no ;; esac ld_shlibs=yes # On some targets, GNU ld is compatible enough with the native linker # that we're better off using the native interface for both. lt_use_gnu_ld_interface=no if test "$with_gnu_ld" = yes; then case $host_os in aix*) # The AIX port of GNU ld has always aspired to compatibility # with the native linker. However, as the warning in the GNU ld # block says, versions before 2.19.5* couldn't really create working # shared libraries, regardless of the interface used. case `$LD -v 2>&1` in *\ \(GNU\ Binutils\)\ 2.19.5*) ;; *\ \(GNU\ Binutils\)\ 2.[2-9]*) ;; *\ \(GNU\ Binutils\)\ [3-9]*) ;; *) lt_use_gnu_ld_interface=yes ;; esac ;; *) lt_use_gnu_ld_interface=yes ;; esac fi if test "$lt_use_gnu_ld_interface" = yes; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='${wl}' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' export_dynamic_flag_spec='${wl}--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then whole_archive_flag_spec="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else whole_archive_flag_spec= fi supports_anon_versioning=no case `$LD -v 2>&1` in *GNU\ gold*) supports_anon_versioning=yes ;; *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[3-9]*) # On AIX/PPC, the GNU linker is very broken if test "$host_cpu" != ia64; then ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: the GNU linker, at least up to release 2.19, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to install binutils *** 2.20 or above, or modify your PATH so that a non-GNU linker is found. *** You will then need to restart the configuration process. _LT_EOF fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='' ;; m68k) archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then allow_undefined_flag=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else ld_shlibs=no fi ;; cygwin* | mingw* | pw32* | cegcc*) # _LT_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless, # as there is no search path for DLLs. hardcode_libdir_flag_spec='-L$libdir' export_dynamic_flag_spec='${wl}--export-all-symbols' allow_undefined_flag=unsupported always_export_symbols=no enable_shared_with_static_runtimes=yes export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' exclude_expsyms='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else ld_shlibs=no fi ;; haiku*) archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' link_all_deplibs=yes ;; interix[3-9]*) hardcode_direct=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='${wl}-rpath,$libdir' export_dynamic_flag_spec='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' archive_expsym_cmds='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) tmp_diet=no if test "$host_os" = linux-dietlibc; then case $cc_basename in diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) esac fi if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ && test "$tmp_diet" = no then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group f77 and f90 compilers whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; lf95*) # Lahey Fortran 8.1 whole_archive_flag_spec= tmp_sharedflag='--shared' ;; xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below) tmp_sharedflag='-qmkshrobj' tmp_addflag= ;; nvcc*) # Cuda Compiler Driver 2.2 whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' compiler_needs_object=yes ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 whole_archive_flag_spec='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' compiler_needs_object=yes tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; esac archive_cmds='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi case $cc_basename in xlf* | bgf* | bgxlf* | mpixlf*) # IBM XL Fortran 10.1 on PPC cannot create shared libs itself whole_archive_flag_spec='--whole-archive$convenience --no-whole-archive' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' if test "x$supports_anon_versioning" = xyes; then archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' fi ;; esac else ld_shlibs=no fi ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) # For security reasons, it is highly recommended that you always # use absolute paths for naming shared libraries, and exclude the # DT_RUNPATH tag from executables and libraries. But doing so # requires that you compile everything twice, which is a pain. if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac ;; sunos4*) archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= hardcode_direct=yes hardcode_shlibpath_var=no ;; *) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac if test "$ld_shlibs" = no; then runpath_var= hardcode_libdir_flag_spec= export_dynamic_flag_spec= whole_archive_flag_spec= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) allow_undefined_flag=unsupported always_export_symbols=yes archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. hardcode_minus_L=yes if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. hardcode_direct=unsupported fi ;; aix[4-9]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global # defined symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else export_symbols_cmds='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. archive_cmds='' hardcode_direct=yes hardcode_direct_absolute=yes hardcode_libdir_separator=':' link_all_deplibs=yes file_list_spec='${wl}-f,' if test "$GCC" = yes; then case $host_os in aix4.[012]|aix4.[012].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 hardcode_direct=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking hardcode_minus_L=yes hardcode_libdir_flag_spec='-L$libdir' hardcode_libdir_separator= fi ;; esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi link_all_deplibs=no else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi export_dynamic_flag_spec='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. always_export_symbols=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. allow_undefined_flag='-berok' # Determine the default libpath from the value encoded in an # empty executable. if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath_+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_="/usr/lib:/lib" fi fi aix_libpath=$lt_cv_aix_libpath_ fi hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" archive_expsym_cmds='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then hardcode_libdir_flag_spec='${wl}-R $libdir:/usr/lib:/lib' allow_undefined_flag="-z nodefs" archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath_+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_="/usr/lib:/lib" fi fi aix_libpath=$lt_cv_aix_libpath_ fi hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. no_undefined_flag=' ${wl}-bernotok' allow_undefined_flag=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. whole_archive_flag_spec='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives whole_archive_flag_spec='$convenience' fi archive_cmds_need_lc=yes # This is similar to how AIX traditionally builds its shared libraries. archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='' ;; m68k) archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; bsdi[45]*) export_dynamic_flag_spec=-rdynamic ;; cygwin* | mingw* | pw32* | cegcc*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. case $cc_basename in cl*) # Native MSVC hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported always_export_symbols=yes file_list_spec='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, )='true' enable_shared_with_static_runtimes=yes exclude_expsyms='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols' # Don't use ranlib old_postinstall_cmds='chmod 644 $oldlib' postlink_cmds='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # Assume MSVC wrapper hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. old_archive_from_new_cmds='true' # FIXME: Should let the user specify the lib program. old_archive_cmds='lib -OUT:$oldlib$oldobjs$old_deplibs' enable_shared_with_static_runtimes=yes ;; esac ;; darwin* | rhapsody*) archive_cmds_need_lc=no hardcode_direct=no hardcode_automatic=yes hardcode_shlibpath_var=unsupported if test "$lt_cv_ld_force_load" = "yes"; then whole_archive_flag_spec='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' else whole_archive_flag_spec='' fi link_all_deplibs=yes allow_undefined_flag="$_lt_dar_allow_undefined" case $cc_basename in ifort*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; then output_verbose_link_cmd=func_echo_all archive_cmds="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" module_cmds="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" archive_expsym_cmds="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" module_expsym_cmds="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" else ld_shlibs=no fi ;; dgux*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2.*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; hpux9*) if test "$GCC" = yes; then archive_cmds='$RM $output_objdir/$soname~$CC -shared $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else archive_cmds='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' fi hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: hardcode_direct=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes export_dynamic_flag_spec='${wl}-E' ;; hpux10*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: hardcode_direct=yes hardcode_direct_absolute=yes export_dynamic_flag_spec='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes fi ;; hpux11*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then case $host_cpu in hppa*64*) archive_cmds='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) archive_cmds='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) # Older versions of the 11.00 compiler do not understand -b yet # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $CC understands -b" >&5 $as_echo_n "checking if $CC understands -b... " >&6; } if ${lt_cv_prog_compiler__b+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler__b=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -b" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler__b=yes fi else lt_cv_prog_compiler__b=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler__b" >&5 $as_echo "$lt_cv_prog_compiler__b" >&6; } if test x"$lt_cv_prog_compiler__b" = xyes; then archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi ;; esac fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: case $host_cpu in hppa*64*|ia64*) hardcode_direct=no hardcode_shlibpath_var=no ;; *) hardcode_direct=yes hardcode_direct_absolute=yes export_dynamic_flag_spec='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test "$GCC" = yes; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' # Try to use the -exported_symbol ld option, if it does not # work, assume that -exports_file does not work either and # implicitly export all symbols. # This should be the same for all languages, so no per-tag cache variable. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5 $as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; } if ${lt_cv_irix_exported_symbol+:} false; then : $as_echo_n "(cached) " >&6 else save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int foo (void) { return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_irix_exported_symbol=yes else lt_cv_irix_exported_symbol=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5 $as_echo "$lt_cv_irix_exported_symbol" >&6; } if test "$lt_cv_irix_exported_symbol" = yes; then archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib' fi else archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib' fi archive_cmds_need_lc='no' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: inherit_rpath=yes link_all_deplibs=yes ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; newsos6) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: hardcode_shlibpath_var=no ;; *nto* | *qnx*) ;; openbsd*) if test -f /usr/libexec/ld.so; then hardcode_direct=yes hardcode_shlibpath_var=no hardcode_direct_absolute=yes if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' hardcode_libdir_flag_spec='${wl}-rpath,$libdir' export_dynamic_flag_spec='${wl}-E' else case $host_os in openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-R$libdir' ;; *) archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='${wl}-rpath,$libdir' ;; esac fi else ld_shlibs=no fi ;; os2*) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes allow_undefined_flag=unsupported archive_cmds='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' old_archive_from_new_cmds='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; then allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' fi archive_cmds_need_lc='no' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test "$GCC" = yes; then allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' archive_cmds='$CC -shared${allow_undefined_flag} $pic_flag $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ $CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp' # Both c and cxx compiler support -rpath directly hardcode_libdir_flag_spec='-rpath $libdir' fi archive_cmds_need_lc='no' hardcode_libdir_separator=: ;; solaris*) no_undefined_flag=' -z defs' if test "$GCC" = yes; then wlarc='${wl}' archive_cmds='$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' else case `$CC -V 2>&1` in *"Compilers 5.0"*) wlarc='' archive_cmds='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' ;; *) wlarc='${wl}' archive_cmds='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' ;; esac fi hardcode_libdir_flag_spec='-R$libdir' hardcode_shlibpath_var=no case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. GCC discards it without `$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test "$GCC" = yes; then whole_archive_flag_spec='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' else whole_archive_flag_spec='-z allextract$convenience -z defaultextract' fi ;; esac link_all_deplibs=yes ;; sunos4*) if test "x$host_vendor" = xsequent; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. archive_cmds='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi hardcode_libdir_flag_spec='-L$libdir' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; sysv4) case $host_vendor in sni) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags' reload_cmds='$CC -r -o $output$reload_objs' hardcode_direct=no ;; motorola) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' hardcode_shlibpath_var=no ;; sysv4.3*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no export_dynamic_flag_spec='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes ld_shlibs=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) no_undefined_flag='${wl}-z,text' archive_cmds_need_lc=no hardcode_shlibpath_var=no runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. no_undefined_flag='${wl}-z,text' allow_undefined_flag='${wl}-z,nodefs' archive_cmds_need_lc=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='${wl}-R,$libdir' hardcode_libdir_separator=':' link_all_deplibs=yes export_dynamic_flag_spec='${wl}-Bexport' runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; *) ld_shlibs=no ;; esac if test x$host_vendor = xsni; then case $host in sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) export_dynamic_flag_spec='${wl}-Blargedynsym' ;; esac fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs" >&5 $as_echo "$ld_shlibs" >&6; } test "$ld_shlibs" = no && can_build_shared=no with_gnu_ld=$with_gnu_ld # # Do we need to explicitly link libc? # case "x$archive_cmds_need_lc" in x|xyes) # Assume -lc should be added archive_cmds_need_lc=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $archive_cmds in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5 $as_echo_n "checking whether -lc should be explicitly linked in... " >&6; } if ${lt_cv_archive_cmds_need_lc+:} false; then : $as_echo_n "(cached) " >&6 else $RM conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$lt_prog_compiler_wl pic_flag=$lt_prog_compiler_pic compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$allow_undefined_flag allow_undefined_flag= if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5 (eval $archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } then lt_cv_archive_cmds_need_lc=no else lt_cv_archive_cmds_need_lc=yes fi allow_undefined_flag=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc" >&5 $as_echo "$lt_cv_archive_cmds_need_lc" >&6; } archive_cmds_need_lc=$lt_cv_archive_cmds_need_lc ;; esac fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 $as_echo_n "checking dynamic linker characteristics... " >&6; } if test "$GCC" = yes; then case $host_os in darwin*) lt_awk_arg="/^libraries:/,/LR/" ;; *) lt_awk_arg="/^libraries:/" ;; esac case $host_os in mingw* | cegcc*) lt_sed_strip_eq="s,=\([A-Za-z]:\),\1,g" ;; *) lt_sed_strip_eq="s,=/,/,g" ;; esac lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` case $lt_search_path_spec in *\;*) # if the path contains ";" then we assume it to be the separator # otherwise default to the standard path separator (i.e. ":") - it is # assumed that no part of a normal pathname contains ";" but that should # okay in the real world where ";" in dirpaths is itself problematic. lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` ;; *) lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` ;; esac # Ok, now we have the path, separated by spaces, we can step through it # and add multilib dir if necessary. lt_tmp_lt_search_path_spec= lt_multi_os_dir=`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` for lt_sys_path in $lt_search_path_spec; do if test -d "$lt_sys_path/$lt_multi_os_dir"; then lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path/$lt_multi_os_dir" else test -d "$lt_sys_path" && \ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" fi done lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' BEGIN {RS=" "; FS="/|\n";} { lt_foo=""; lt_count=0; for (lt_i = NF; lt_i > 0; lt_i--) { if ($lt_i != "" && $lt_i != ".") { if ($lt_i == "..") { lt_count++; } else { if (lt_count == 0) { lt_foo="/" $lt_i lt_foo; } else { lt_count--; } } } } if (lt_foo != "") { lt_freq[lt_foo]++; } if (lt_freq[lt_foo] == 1) { print lt_foo; } }'` # AWK program above erroneously prepends '/' to C:/dos/paths # for these hosts. case $host_os in mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ $SED 's,/\([A-Za-z]:\),\1,g'` ;; esac sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` else sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" fi library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[4-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[01] | aix4.[01].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) case $host_cpu in powerpc) # Since July 2007 AmigaOS4 officially supports .so libraries. # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' ;; m68k) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; esac ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[45]*) version_type=linux # correct to gnu/linux during the next big refactor need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32* | cegcc*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$cc_basename in yes,*) # gcc library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api" ;; mingw* | cegcc*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; esac dynamic_linker='Win32 ld.exe' ;; *,cl*) # Native MSVC libname_spec='$name' soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' library_names_spec='${libname}.dll.lib' case $build_os in mingw*) sys_lib_search_path_spec= lt_save_ifs=$IFS IFS=';' for lt_path in $LIB do IFS=$lt_save_ifs # Let DOS variable expansion print the short 8.3 style file name. lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" done IFS=$lt_save_ifs # Convert to MSYS style. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'` ;; cygwin*) # Convert to unix form, then to dos form, then back to unix form # but this time dos style (no spaces!) so that the unix form looks # like /cygdrive/c/PROGRA~1:/cygdr... sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` ;; *) sys_lib_search_path_spec="$LIB" if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then # It is most probably a Windows format PATH. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # FIXME: find the short name or the path components, as spaces are # common. (e.g. "Program Files" -> "PROGRA~1") ;; esac # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes dynamic_linker='Win32 link.exe' ;; *) # Assume MSVC wrapper library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' dynamic_linker='Win32 ld.exe' ;; esac # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib" sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[23].*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2.*) shlibpath_overrides_runpath=yes ;; freebsd3.[01]* | freebsdelf3.[01]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[2-9]* | freebsdelf3.[2-9]* | \ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; gnu*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; haiku*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no dynamic_linker="$host_os runtime_loader" library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LIBRARY_PATH shlibpath_overrides_runpath=yes sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555, ... postinstall_cmds='chmod 555 $lib' # or fails outright, so override atomically: install_override_mode=555 ;; interix[3-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux # correct to gnu/linux during the next big refactor else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # Some binutils ld are patched to set DT_RUNPATH if ${lt_cv_shlibpath_overrides_runpath+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$lt_prog_compiler_wl\"; \ LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec\"" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then : lt_cv_shlibpath_overrides_runpath=yes fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS libdir=$save_libdir fi shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsdelf*-gnu) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='NetBSD ld.elf_so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; *nto* | *qnx*) version_type=qnx need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='ldqnx.so' ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[89] | openbsd2.[89].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; tpf*) # TPF is a cross-target only. Preferred cross-host = GNU/Linux. version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; uts4*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5 $as_echo "$dynamic_linker" >&6; } test "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5 $as_echo_n "checking how to hardcode library paths into programs... " >&6; } hardcode_action= if test -n "$hardcode_libdir_flag_spec" || test -n "$runpath_var" || test "X$hardcode_automatic" = "Xyes" ; then # We can hardcode non-existent directories. if test "$hardcode_direct" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_TAGVAR(hardcode_shlibpath_var, )" != no && test "$hardcode_minus_L" != no; then # Linking always hardcodes the temporary library directory. hardcode_action=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. hardcode_action=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. hardcode_action=unsupported fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action" >&5 $as_echo "$hardcode_action" >&6; } if test "$hardcode_action" = relink || test "$inherit_rpath" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi if test "x$enable_dlopen" != xyes; then enable_dlopen=unknown enable_dlopen_self=unknown enable_dlopen_self_static=unknown else lt_cv_dlopen=no lt_cv_dlopen_libs= case $host_os in beos*) lt_cv_dlopen="load_add_on" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ;; mingw* | pw32* | cegcc*) lt_cv_dlopen="LoadLibrary" lt_cv_dlopen_libs= ;; cygwin*) lt_cv_dlopen="dlopen" lt_cv_dlopen_libs= ;; darwin*) # if libdl is installed we need to link against it { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" else lt_cv_dlopen="dyld" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes fi ;; *) ac_fn_c_check_func "$LINENO" "shl_load" "ac_cv_func_shl_load" if test "x$ac_cv_func_shl_load" = xyes; then : lt_cv_dlopen="shl_load" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5 $as_echo_n "checking for shl_load in -ldld... " >&6; } if ${ac_cv_lib_dld_shl_load+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char shl_load (); int main () { return shl_load (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dld_shl_load=yes else ac_cv_lib_dld_shl_load=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5 $as_echo "$ac_cv_lib_dld_shl_load" >&6; } if test "x$ac_cv_lib_dld_shl_load" = xyes; then : lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld" else ac_fn_c_check_func "$LINENO" "dlopen" "ac_cv_func_dlopen" if test "x$ac_cv_func_dlopen" = xyes; then : lt_cv_dlopen="dlopen" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lsvld" >&5 $as_echo_n "checking for dlopen in -lsvld... " >&6; } if ${ac_cv_lib_svld_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lsvld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_svld_dlopen=yes else ac_cv_lib_svld_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_svld_dlopen" >&5 $as_echo "$ac_cv_lib_svld_dlopen" >&6; } if test "x$ac_cv_lib_svld_dlopen" = xyes; then : lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dld_link in -ldld" >&5 $as_echo_n "checking for dld_link in -ldld... " >&6; } if ${ac_cv_lib_dld_dld_link+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dld_link (); int main () { return dld_link (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dld_dld_link=yes else ac_cv_lib_dld_dld_link=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dld_link" >&5 $as_echo "$ac_cv_lib_dld_dld_link" >&6; } if test "x$ac_cv_lib_dld_dld_link" = xyes; then : lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld" fi fi fi fi fi fi ;; esac if test "x$lt_cv_dlopen" != xno; then enable_dlopen=yes else enable_dlopen=no fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS="$CPPFLAGS" test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" save_LDFLAGS="$LDFLAGS" wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" save_LIBS="$LIBS" LIBS="$lt_cv_dlopen_libs $LIBS" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a program can dlopen itself" >&5 $as_echo_n "checking whether a program can dlopen itself... " >&6; } if ${lt_cv_dlopen_self+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : lt_cv_dlopen_self=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF #line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisbility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; } _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self=no ;; esac else : # compilation failed lt_cv_dlopen_self=no fi fi rm -fr conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self" >&5 $as_echo "$lt_cv_dlopen_self" >&6; } if test "x$lt_cv_dlopen_self" = xyes; then wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a statically linked program can dlopen itself" >&5 $as_echo_n "checking whether a statically linked program can dlopen itself... " >&6; } if ${lt_cv_dlopen_self_static+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : lt_cv_dlopen_self_static=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF #line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisbility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; } _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self_static=no ;; esac else : # compilation failed lt_cv_dlopen_self_static=no fi fi rm -fr conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self_static" >&5 $as_echo "$lt_cv_dlopen_self_static" >&6; } fi CPPFLAGS="$save_CPPFLAGS" LDFLAGS="$save_LDFLAGS" LIBS="$save_LIBS" ;; esac case $lt_cv_dlopen_self in yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; *) enable_dlopen_self=unknown ;; esac case $lt_cv_dlopen_self_static in yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; *) enable_dlopen_self_static=unknown ;; esac fi striplib= old_striplib= { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5 $as_echo_n "checking whether stripping libraries is possible... " >&6; } if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" test -z "$striplib" && striplib="$STRIP --strip-unneeded" { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else # FIXME - insert some real tests, host_os isn't really good enough case $host_os in darwin*) if test -n "$STRIP" ; then striplib="$STRIP -x" old_striplib="$STRIP -S" { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } ;; esac fi # Report which library types will actually be built { $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5 $as_echo_n "checking if libtool supports shared libraries... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5 $as_echo "$can_build_shared" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5 $as_echo_n "checking whether to build shared libraries... " >&6; } test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[4-9]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5 $as_echo "$enable_shared" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5 $as_echo_n "checking whether to build static libraries... " >&6; } # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5 $as_echo "$enable_static" >&6; } 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 CC="$lt_save_CC" ac_config_commands="$ac_config_commands libtool" # Only expand once: gdamodule="libgda-4.0" GDA_GIR_INCLUDE="Gda-4.0" GDA_GIR_PACKAGE="libgda-4.0" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to use Libgda5 (libgda4 by default)" >&5 $as_echo_n "checking whether to use Libgda5 (libgda4 by default)... " >&6; } # Check whether --with-libgda5 was given. if test "${with_libgda5+set}" = set; then : withval=$with_libgda5; gdamodule="libgda-5.0" else gdamodule="libgda-4.0" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gdamodule" >&5 $as_echo "$gdamodule" >&6; } if test "$gdamodule" == "libgda-5.0"; then GDA_GIR_INCLUDE="Gda-5.0" GDA_GIR_PACKAGE="libgda-5.0" fi _MIDGARD_DBUS_SUPPORT=yes dbus_libs="dbus-1 dbus-glib-1" MIDGARD_DBUS_SUPPORT=1 { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to compile dbus support (enabled by default)" >&5 $as_echo_n "checking whether to compile dbus support (enabled by default)... " >&6; } # Check whether --with-dbus-support was given. if test "${with_dbus_support+set}" = set; then : withval=$with_dbus_support; _MIDGARD_DBUS_SUPPORT=$withval else _MIDGARD_DBUS_SUPPORT="yes" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $_MIDGARD_DBUS_SUPPORT" >&5 $as_echo "$_MIDGARD_DBUS_SUPPORT" >&6; } if test "$_MIDGARD_DBUS_SUPPORT" == "no"; then #MIDGARD_DBUS_SUPPORT=0 dbus_libs="" fi pkg_failed=no { $as_echo "$as_me:${as_lineno-$LINENO}: checking for MIDGARD" >&5 $as_echo_n "checking for MIDGARD... " >&6; } if test -n "$MIDGARD_CFLAGS"; then pkg_cv_MIDGARD_CFLAGS="$MIDGARD_CFLAGS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"glib-2.0 gobject-2.0 libxml-2.0 \$gdamodule \$dbus_libs\""; } >&5 ($PKG_CONFIG --exists --print-errors "glib-2.0 gobject-2.0 libxml-2.0 $gdamodule $dbus_libs") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_MIDGARD_CFLAGS=`$PKG_CONFIG --cflags "glib-2.0 gobject-2.0 libxml-2.0 $gdamodule $dbus_libs" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test -n "$MIDGARD_LIBS"; then pkg_cv_MIDGARD_LIBS="$MIDGARD_LIBS" elif test -n "$PKG_CONFIG"; then if test -n "$PKG_CONFIG" && \ { { $as_echo "$as_me:${as_lineno-$LINENO}: \$PKG_CONFIG --exists --print-errors \"glib-2.0 gobject-2.0 libxml-2.0 \$gdamodule \$dbus_libs\""; } >&5 ($PKG_CONFIG --exists --print-errors "glib-2.0 gobject-2.0 libxml-2.0 $gdamodule $dbus_libs") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then pkg_cv_MIDGARD_LIBS=`$PKG_CONFIG --libs "glib-2.0 gobject-2.0 libxml-2.0 $gdamodule $dbus_libs" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes else pkg_failed=yes fi else pkg_failed=untried fi if test $pkg_failed = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi if test $_pkg_short_errors_supported = yes; then MIDGARD_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "glib-2.0 gobject-2.0 libxml-2.0 $gdamodule $dbus_libs" 2>&1` else MIDGARD_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "glib-2.0 gobject-2.0 libxml-2.0 $gdamodule $dbus_libs" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$MIDGARD_PKG_ERRORS" >&5 as_fn_error $? "Package requirements (glib-2.0 gobject-2.0 libxml-2.0 $gdamodule $dbus_libs) were not met: $MIDGARD_PKG_ERRORS Consider adjusting the PKG_CONFIG_PATH environment variable if you installed software in a non-standard prefix. Alternatively, you may set the environment variables MIDGARD_CFLAGS and MIDGARD_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details." "$LINENO" 5 elif test $pkg_failed = untried; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "The pkg-config script could not be found or is too old. Make sure it is in your PATH or set the PKG_CONFIG environment variable to the full path to pkg-config. Alternatively, you may set the environment variables MIDGARD_CFLAGS and MIDGARD_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details. To get pkg-config, see . See \`config.log' for more details" "$LINENO" 5; } else MIDGARD_CFLAGS=$pkg_cv_MIDGARD_CFLAGS MIDGARD_LIBS=$pkg_cv_MIDGARD_LIBS { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi if test "$gdamodule" == "libgda-4.0"; then MIDGARD_CFLAGS="${MIDGARD_CFLAGS} -DHAVE_LIBGDA_4" fi DBUS_CONF_DIR="/etc" if test "$_MIDGARD_DBUS_SUPPORT" == "yes"; then #MIDGARD_DBUS_SUPPORT=1 MIDGARD_CFLAGS=" ${MIDGARD_CFLAGS} -DMGD_HAVE_DBUS " DBUS_CONF_DIR=`pkg-config --variable sysconfdir dbus-1` fi if test x$_MIDGARD_DBUS_SUPPORT = xyes; then MIDGARD_DBUS_SUPPORT_TRUE= MIDGARD_DBUS_SUPPORT_FALSE='#' else MIDGARD_DBUS_SUPPORT_TRUE='#' MIDGARD_DBUS_SUPPORT_FALSE= fi LIBS="$INTLLIBS $LIBS" PATH="${PATH}:${prefix}/bin" { $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 ${ac_cv_header_stdc+:} false; 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 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for an ANSI C-conforming const" >&5 $as_echo_n "checking for an ANSI C-conforming const... " >&6; } if ${ac_cv_c_const+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { /* FIXME: Include the comments suggested by Paul. */ #ifndef __cplusplus /* Ultrix mips cc rejects this. */ typedef int charset[2]; const charset cs; /* SunOS 4.1.1 cc rejects this. */ char const *const *pcpcc; char **ppc; /* NEC SVR4.0.2 mips cc rejects this. */ struct point {int x, y;}; static struct point const zero = {0,0}; /* AIX XL C 1.02.0.0 rejects this. It does not let you subtract one const X* pointer from another in an arm of an if-expression whose if-part is not a constant expression */ const char *g = "string"; pcpcc = &g + (g ? g-g : 0); /* HPUX 7.0 cc rejects these. */ ++pcpcc; ppc = (char**) pcpcc; pcpcc = (char const *const *) ppc; { /* SCO 3.2v4 cc rejects this. */ char *t; char const *s = 0 ? (char *) 0 : (char const *) 0; *t++ = 0; if (s) return 0; } { /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */ int x[] = {25, 17}; const int *foo = &x[0]; ++foo; } { /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */ typedef const int *iptr; iptr p = 0; ++p; } { /* AIX XL C 1.02.0.0 rejects this saying "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */ struct s { int j; const int *ap[3]; }; struct s *b; b->j = 5; } { /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ const int foo = 10; if (!foo) return 0; } return !cs[0] && !zero.x; #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_c_const=yes else ac_cv_c_const=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_const" >&5 $as_echo "$ac_cv_c_const" >&6; } if test $ac_cv_c_const = no; then $as_echo "#define const /**/" >>confdefs.h fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing gethostbyname" >&5 $as_echo_n "checking for library containing gethostbyname... " >&6; } if ${ac_cv_search_gethostbyname+:} false; then : $as_echo_n "(cached) " >&6 else ac_func_search_save_LIBS=$LIBS cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char gethostbyname (); int main () { return gethostbyname (); ; return 0; } _ACEOF for ac_lib in '' nsl; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi if ac_fn_c_try_link "$LINENO"; then : ac_cv_search_gethostbyname=$ac_res fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext if ${ac_cv_search_gethostbyname+:} false; then : break fi done if ${ac_cv_search_gethostbyname+:} false; then : else ac_cv_search_gethostbyname=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_gethostbyname" >&5 $as_echo "$ac_cv_search_gethostbyname" >&6; } ac_res=$ac_cv_search_gethostbyname if test "$ac_res" != no; then : test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing htonl" >&5 $as_echo_n "checking for library containing htonl... " >&6; } if ${ac_cv_search_htonl+:} false; then : $as_echo_n "(cached) " >&6 else ac_func_search_save_LIBS=$LIBS cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char htonl (); int main () { return htonl (); ; return 0; } _ACEOF for ac_lib in '' socket; do if test -z "$ac_lib"; then ac_res="none required" else ac_res=-l$ac_lib LIBS="-l$ac_lib $ac_func_search_save_LIBS" fi if ac_fn_c_try_link "$LINENO"; then : ac_cv_search_htonl=$ac_res fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext if ${ac_cv_search_htonl+:} false; then : break fi done if ${ac_cv_search_htonl+:} false; then : else ac_cv_search_htonl=no fi rm conftest.$ac_ext LIBS=$ac_func_search_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_htonl" >&5 $as_echo "$ac_cv_search_htonl" >&6; } ac_res=$ac_cv_search_htonl if test "$ac_res" != no; then : test "$ac_res" = "none required" || LIBS="$ac_res $LIBS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking if building for some Win32 platform" >&5 $as_echo_n "checking if building for some Win32 platform... " >&6; } case "$host" in *-*-mingw*|*-*-cygwin*) platform_win32=yes ;; *) platform_win32=no ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $platform_win32" >&5 $as_echo "$platform_win32" >&6; } if test x$platform_win32 = xyes; then PLATFORM_WIN32_TRUE= PLATFORM_WIN32_FALSE='#' else PLATFORM_WIN32_TRUE='#' PLATFORM_WIN32_FALSE= fi if test "$prefix" = "/usr"; then sysconfdir="/etc/midgard2" elif test "$prefix" = "NONE"; then sysconfdir="/usr/local/etc/midgard2" else sysconfdir="$prefix/etc/midgard2" fi LIBS="$LIBS $MIDGARD_LIBS" LIBGDA_VERSION=$gdamodule ac_config_files="$ac_config_files Makefile Doxyfile src/midgard_config_auto.h midgard2.pc" 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 if test "x$cache_file" != "x/dev/null"; then { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 $as_echo "$as_me: updating cache $cache_file" >&6;} if test ! -f "$cache_file" || test -h "$cache_file"; then cat confcache >"$cache_file" else case $cache_file in #( */* | ?:*) mv -f confcache "$cache_file"$$ && mv -f "$cache_file"$$ "$cache_file" ;; #( *) mv -f confcache "$cache_file" ;; esac fi fi 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}' DEFS=-DHAVE_CONFIG_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 if test -n "$EXEEXT"; then am__EXEEXT_TRUE= am__EXEEXT_FALSE='#' else am__EXEEXT_TRUE='#' am__EXEEXT_FALSE= fi if test -z "${MAINTAINER_MODE_TRUE}" && test -z "${MAINTAINER_MODE_FALSE}"; then as_fn_error $? "conditional \"MAINTAINER_MODE\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${HAVE_INTROSPECTION_TRUE}" && test -z "${HAVE_INTROSPECTION_FALSE}"; then as_fn_error $? "conditional \"HAVE_INTROSPECTION\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then as_fn_error $? "conditional \"AMDEP\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then as_fn_error $? "conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${MIDGARD_DBUS_SUPPORT_TRUE}" && test -z "${MIDGARD_DBUS_SUPPORT_FALSE}"; then as_fn_error $? "conditional \"MIDGARD_DBUS_SUPPORT\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${PLATFORM_WIN32_TRUE}" && test -z "${PLATFORM_WIN32_FALSE}"; then as_fn_error $? "conditional \"PLATFORM_WIN32\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi : "${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. as_myself= 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 midgard2-core $as_me 10.05.7.1, which was generated by GNU Autoconf 2.68. 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 case $ac_config_headers in *" "*) set x $ac_config_headers; shift; ac_config_headers=$*;; esac cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # Files that config.status was made for. config_files="$ac_config_files" config_headers="$ac_config_headers" config_commands="$ac_config_commands" _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 --header=FILE[:TEMPLATE] instantiate the configuration header FILE Configuration files: $config_files Configuration headers: $config_headers Configuration commands: $config_commands 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="\\ midgard2-core config.status 10.05.7.1 configured by $0, generated by GNU Autoconf 2.68, 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' INSTALL='$INSTALL' MKDIR_P='$MKDIR_P' AWK='$AWK' 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;; --header | --heade | --head | --hea ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; esac as_fn_append CONFIG_HEADERS " '$ac_optarg'" ac_need_defaults=false;; --he | --h) # Conflict between --help and --header as_fn_error $? "ambiguous option: \`$1' Try \`$0 --help' for more information.";; --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 # # INIT-COMMANDS # AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir" # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH sed_quote_subst='$sed_quote_subst' double_quote_subst='$double_quote_subst' delay_variable_subst='$delay_variable_subst' macro_version='`$ECHO "$macro_version" | $SED "$delay_single_quote_subst"`' macro_revision='`$ECHO "$macro_revision" | $SED "$delay_single_quote_subst"`' enable_shared='`$ECHO "$enable_shared" | $SED "$delay_single_quote_subst"`' enable_static='`$ECHO "$enable_static" | $SED "$delay_single_quote_subst"`' pic_mode='`$ECHO "$pic_mode" | $SED "$delay_single_quote_subst"`' enable_fast_install='`$ECHO "$enable_fast_install" | $SED "$delay_single_quote_subst"`' SHELL='`$ECHO "$SHELL" | $SED "$delay_single_quote_subst"`' ECHO='`$ECHO "$ECHO" | $SED "$delay_single_quote_subst"`' PATH_SEPARATOR='`$ECHO "$PATH_SEPARATOR" | $SED "$delay_single_quote_subst"`' host_alias='`$ECHO "$host_alias" | $SED "$delay_single_quote_subst"`' host='`$ECHO "$host" | $SED "$delay_single_quote_subst"`' host_os='`$ECHO "$host_os" | $SED "$delay_single_quote_subst"`' build_alias='`$ECHO "$build_alias" | $SED "$delay_single_quote_subst"`' build='`$ECHO "$build" | $SED "$delay_single_quote_subst"`' build_os='`$ECHO "$build_os" | $SED "$delay_single_quote_subst"`' SED='`$ECHO "$SED" | $SED "$delay_single_quote_subst"`' Xsed='`$ECHO "$Xsed" | $SED "$delay_single_quote_subst"`' GREP='`$ECHO "$GREP" | $SED "$delay_single_quote_subst"`' EGREP='`$ECHO "$EGREP" | $SED "$delay_single_quote_subst"`' FGREP='`$ECHO "$FGREP" | $SED "$delay_single_quote_subst"`' LD='`$ECHO "$LD" | $SED "$delay_single_quote_subst"`' NM='`$ECHO "$NM" | $SED "$delay_single_quote_subst"`' LN_S='`$ECHO "$LN_S" | $SED "$delay_single_quote_subst"`' max_cmd_len='`$ECHO "$max_cmd_len" | $SED "$delay_single_quote_subst"`' ac_objext='`$ECHO "$ac_objext" | $SED "$delay_single_quote_subst"`' exeext='`$ECHO "$exeext" | $SED "$delay_single_quote_subst"`' lt_unset='`$ECHO "$lt_unset" | $SED "$delay_single_quote_subst"`' lt_SP2NL='`$ECHO "$lt_SP2NL" | $SED "$delay_single_quote_subst"`' lt_NL2SP='`$ECHO "$lt_NL2SP" | $SED "$delay_single_quote_subst"`' lt_cv_to_host_file_cmd='`$ECHO "$lt_cv_to_host_file_cmd" | $SED "$delay_single_quote_subst"`' lt_cv_to_tool_file_cmd='`$ECHO "$lt_cv_to_tool_file_cmd" | $SED "$delay_single_quote_subst"`' reload_flag='`$ECHO "$reload_flag" | $SED "$delay_single_quote_subst"`' reload_cmds='`$ECHO "$reload_cmds" | $SED "$delay_single_quote_subst"`' OBJDUMP='`$ECHO "$OBJDUMP" | $SED "$delay_single_quote_subst"`' deplibs_check_method='`$ECHO "$deplibs_check_method" | $SED "$delay_single_quote_subst"`' file_magic_cmd='`$ECHO "$file_magic_cmd" | $SED "$delay_single_quote_subst"`' file_magic_glob='`$ECHO "$file_magic_glob" | $SED "$delay_single_quote_subst"`' want_nocaseglob='`$ECHO "$want_nocaseglob" | $SED "$delay_single_quote_subst"`' DLLTOOL='`$ECHO "$DLLTOOL" | $SED "$delay_single_quote_subst"`' sharedlib_from_linklib_cmd='`$ECHO "$sharedlib_from_linklib_cmd" | $SED "$delay_single_quote_subst"`' AR='`$ECHO "$AR" | $SED "$delay_single_quote_subst"`' AR_FLAGS='`$ECHO "$AR_FLAGS" | $SED "$delay_single_quote_subst"`' archiver_list_spec='`$ECHO "$archiver_list_spec" | $SED "$delay_single_quote_subst"`' STRIP='`$ECHO "$STRIP" | $SED "$delay_single_quote_subst"`' RANLIB='`$ECHO "$RANLIB" | $SED "$delay_single_quote_subst"`' old_postinstall_cmds='`$ECHO "$old_postinstall_cmds" | $SED "$delay_single_quote_subst"`' old_postuninstall_cmds='`$ECHO "$old_postuninstall_cmds" | $SED "$delay_single_quote_subst"`' old_archive_cmds='`$ECHO "$old_archive_cmds" | $SED "$delay_single_quote_subst"`' lock_old_archive_extraction='`$ECHO "$lock_old_archive_extraction" | $SED "$delay_single_quote_subst"`' CC='`$ECHO "$CC" | $SED "$delay_single_quote_subst"`' CFLAGS='`$ECHO "$CFLAGS" | $SED "$delay_single_quote_subst"`' compiler='`$ECHO "$compiler" | $SED "$delay_single_quote_subst"`' GCC='`$ECHO "$GCC" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_pipe='`$ECHO "$lt_cv_sys_global_symbol_pipe" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_cdecl='`$ECHO "$lt_cv_sys_global_symbol_to_cdecl" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_c_name_address='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address_lib_prefix" | $SED "$delay_single_quote_subst"`' nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`' lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`' objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`' MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_no_builtin_flag='`$ECHO "$lt_prog_compiler_no_builtin_flag" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_pic='`$ECHO "$lt_prog_compiler_pic" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_wl='`$ECHO "$lt_prog_compiler_wl" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_static='`$ECHO "$lt_prog_compiler_static" | $SED "$delay_single_quote_subst"`' lt_cv_prog_compiler_c_o='`$ECHO "$lt_cv_prog_compiler_c_o" | $SED "$delay_single_quote_subst"`' need_locks='`$ECHO "$need_locks" | $SED "$delay_single_quote_subst"`' MANIFEST_TOOL='`$ECHO "$MANIFEST_TOOL" | $SED "$delay_single_quote_subst"`' DSYMUTIL='`$ECHO "$DSYMUTIL" | $SED "$delay_single_quote_subst"`' NMEDIT='`$ECHO "$NMEDIT" | $SED "$delay_single_quote_subst"`' LIPO='`$ECHO "$LIPO" | $SED "$delay_single_quote_subst"`' OTOOL='`$ECHO "$OTOOL" | $SED "$delay_single_quote_subst"`' OTOOL64='`$ECHO "$OTOOL64" | $SED "$delay_single_quote_subst"`' libext='`$ECHO "$libext" | $SED "$delay_single_quote_subst"`' shrext_cmds='`$ECHO "$shrext_cmds" | $SED "$delay_single_quote_subst"`' extract_expsyms_cmds='`$ECHO "$extract_expsyms_cmds" | $SED "$delay_single_quote_subst"`' archive_cmds_need_lc='`$ECHO "$archive_cmds_need_lc" | $SED "$delay_single_quote_subst"`' enable_shared_with_static_runtimes='`$ECHO "$enable_shared_with_static_runtimes" | $SED "$delay_single_quote_subst"`' export_dynamic_flag_spec='`$ECHO "$export_dynamic_flag_spec" | $SED "$delay_single_quote_subst"`' whole_archive_flag_spec='`$ECHO "$whole_archive_flag_spec" | $SED "$delay_single_quote_subst"`' compiler_needs_object='`$ECHO "$compiler_needs_object" | $SED "$delay_single_quote_subst"`' old_archive_from_new_cmds='`$ECHO "$old_archive_from_new_cmds" | $SED "$delay_single_quote_subst"`' old_archive_from_expsyms_cmds='`$ECHO "$old_archive_from_expsyms_cmds" | $SED "$delay_single_quote_subst"`' archive_cmds='`$ECHO "$archive_cmds" | $SED "$delay_single_quote_subst"`' archive_expsym_cmds='`$ECHO "$archive_expsym_cmds" | $SED "$delay_single_quote_subst"`' module_cmds='`$ECHO "$module_cmds" | $SED "$delay_single_quote_subst"`' module_expsym_cmds='`$ECHO "$module_expsym_cmds" | $SED "$delay_single_quote_subst"`' with_gnu_ld='`$ECHO "$with_gnu_ld" | $SED "$delay_single_quote_subst"`' allow_undefined_flag='`$ECHO "$allow_undefined_flag" | $SED "$delay_single_quote_subst"`' no_undefined_flag='`$ECHO "$no_undefined_flag" | $SED "$delay_single_quote_subst"`' hardcode_libdir_flag_spec='`$ECHO "$hardcode_libdir_flag_spec" | $SED "$delay_single_quote_subst"`' hardcode_libdir_separator='`$ECHO "$hardcode_libdir_separator" | $SED "$delay_single_quote_subst"`' hardcode_direct='`$ECHO "$hardcode_direct" | $SED "$delay_single_quote_subst"`' hardcode_direct_absolute='`$ECHO "$hardcode_direct_absolute" | $SED "$delay_single_quote_subst"`' hardcode_minus_L='`$ECHO "$hardcode_minus_L" | $SED "$delay_single_quote_subst"`' hardcode_shlibpath_var='`$ECHO "$hardcode_shlibpath_var" | $SED "$delay_single_quote_subst"`' hardcode_automatic='`$ECHO "$hardcode_automatic" | $SED "$delay_single_quote_subst"`' inherit_rpath='`$ECHO "$inherit_rpath" | $SED "$delay_single_quote_subst"`' link_all_deplibs='`$ECHO "$link_all_deplibs" | $SED "$delay_single_quote_subst"`' always_export_symbols='`$ECHO "$always_export_symbols" | $SED "$delay_single_quote_subst"`' export_symbols_cmds='`$ECHO "$export_symbols_cmds" | $SED "$delay_single_quote_subst"`' exclude_expsyms='`$ECHO "$exclude_expsyms" | $SED "$delay_single_quote_subst"`' include_expsyms='`$ECHO "$include_expsyms" | $SED "$delay_single_quote_subst"`' prelink_cmds='`$ECHO "$prelink_cmds" | $SED "$delay_single_quote_subst"`' postlink_cmds='`$ECHO "$postlink_cmds" | $SED "$delay_single_quote_subst"`' file_list_spec='`$ECHO "$file_list_spec" | $SED "$delay_single_quote_subst"`' variables_saved_for_relink='`$ECHO "$variables_saved_for_relink" | $SED "$delay_single_quote_subst"`' need_lib_prefix='`$ECHO "$need_lib_prefix" | $SED "$delay_single_quote_subst"`' need_version='`$ECHO "$need_version" | $SED "$delay_single_quote_subst"`' version_type='`$ECHO "$version_type" | $SED "$delay_single_quote_subst"`' runpath_var='`$ECHO "$runpath_var" | $SED "$delay_single_quote_subst"`' shlibpath_var='`$ECHO "$shlibpath_var" | $SED "$delay_single_quote_subst"`' shlibpath_overrides_runpath='`$ECHO "$shlibpath_overrides_runpath" | $SED "$delay_single_quote_subst"`' libname_spec='`$ECHO "$libname_spec" | $SED "$delay_single_quote_subst"`' library_names_spec='`$ECHO "$library_names_spec" | $SED "$delay_single_quote_subst"`' soname_spec='`$ECHO "$soname_spec" | $SED "$delay_single_quote_subst"`' install_override_mode='`$ECHO "$install_override_mode" | $SED "$delay_single_quote_subst"`' postinstall_cmds='`$ECHO "$postinstall_cmds" | $SED "$delay_single_quote_subst"`' postuninstall_cmds='`$ECHO "$postuninstall_cmds" | $SED "$delay_single_quote_subst"`' finish_cmds='`$ECHO "$finish_cmds" | $SED "$delay_single_quote_subst"`' finish_eval='`$ECHO "$finish_eval" | $SED "$delay_single_quote_subst"`' hardcode_into_libs='`$ECHO "$hardcode_into_libs" | $SED "$delay_single_quote_subst"`' sys_lib_search_path_spec='`$ECHO "$sys_lib_search_path_spec" | $SED "$delay_single_quote_subst"`' sys_lib_dlsearch_path_spec='`$ECHO "$sys_lib_dlsearch_path_spec" | $SED "$delay_single_quote_subst"`' hardcode_action='`$ECHO "$hardcode_action" | $SED "$delay_single_quote_subst"`' enable_dlopen='`$ECHO "$enable_dlopen" | $SED "$delay_single_quote_subst"`' enable_dlopen_self='`$ECHO "$enable_dlopen_self" | $SED "$delay_single_quote_subst"`' enable_dlopen_self_static='`$ECHO "$enable_dlopen_self_static" | $SED "$delay_single_quote_subst"`' old_striplib='`$ECHO "$old_striplib" | $SED "$delay_single_quote_subst"`' striplib='`$ECHO "$striplib" | $SED "$delay_single_quote_subst"`' LTCC='$LTCC' LTCFLAGS='$LTCFLAGS' compiler='$compiler_DEFAULT' # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$1 _LTECHO_EOF' } # Quote evaled strings. for var in SHELL \ ECHO \ PATH_SEPARATOR \ SED \ GREP \ EGREP \ FGREP \ LD \ NM \ LN_S \ lt_SP2NL \ lt_NL2SP \ reload_flag \ OBJDUMP \ deplibs_check_method \ file_magic_cmd \ file_magic_glob \ want_nocaseglob \ DLLTOOL \ sharedlib_from_linklib_cmd \ AR \ AR_FLAGS \ archiver_list_spec \ STRIP \ RANLIB \ CC \ CFLAGS \ compiler \ lt_cv_sys_global_symbol_pipe \ lt_cv_sys_global_symbol_to_cdecl \ lt_cv_sys_global_symbol_to_c_name_address \ lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \ nm_file_list_spec \ lt_prog_compiler_no_builtin_flag \ lt_prog_compiler_pic \ lt_prog_compiler_wl \ lt_prog_compiler_static \ lt_cv_prog_compiler_c_o \ need_locks \ MANIFEST_TOOL \ DSYMUTIL \ NMEDIT \ LIPO \ OTOOL \ OTOOL64 \ shrext_cmds \ export_dynamic_flag_spec \ whole_archive_flag_spec \ compiler_needs_object \ with_gnu_ld \ allow_undefined_flag \ no_undefined_flag \ hardcode_libdir_flag_spec \ hardcode_libdir_separator \ exclude_expsyms \ include_expsyms \ file_list_spec \ variables_saved_for_relink \ libname_spec \ library_names_spec \ soname_spec \ install_override_mode \ finish_eval \ old_striplib \ striplib; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done # Double-quote double-evaled strings. for var in reload_cmds \ old_postinstall_cmds \ old_postuninstall_cmds \ old_archive_cmds \ extract_expsyms_cmds \ old_archive_from_new_cmds \ old_archive_from_expsyms_cmds \ archive_cmds \ archive_expsym_cmds \ module_cmds \ module_expsym_cmds \ export_symbols_cmds \ prelink_cmds \ postlink_cmds \ postinstall_cmds \ postuninstall_cmds \ finish_cmds \ sys_lib_search_path_spec \ sys_lib_dlsearch_path_spec; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done ac_aux_dir='$ac_aux_dir' xsi_shell='$xsi_shell' lt_shell_append='$lt_shell_append' # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes INIT. if test -n "\${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi PACKAGE='$PACKAGE' VERSION='$VERSION' TIMESTAMP='$TIMESTAMP' RM='$RM' ofile='$ofile' _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 "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; "Doxyfile") CONFIG_FILES="$CONFIG_FILES Doxyfile" ;; "src/midgard_config_auto.h") CONFIG_FILES="$CONFIG_FILES src/midgard_config_auto.h" ;; "midgard2.pc") CONFIG_FILES="$CONFIG_FILES midgard2.pc" ;; *) 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 test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands 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= ac_tmp= trap 'exit_status=$? : "${ac_tmp:=$tmp}" { test ! -d "$ac_tmp" || rm -fr "$ac_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 -d "$tmp" } || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") } || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 ac_tmp=$tmp # 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 {' >"$ac_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 >>"\$ac_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 >>"\$ac_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 < "$ac_tmp/subs1.awk" > "$ac_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" # Set up the scripts for CONFIG_HEADERS section. # No need to generate them if there are no CONFIG_HEADERS. # This happens for instance with `./config.status Makefile'. if test -n "$CONFIG_HEADERS"; then cat >"$ac_tmp/defines.awk" <<\_ACAWK || BEGIN { _ACEOF # Transform confdefs.h into an awk script `defines.awk', embedded as # here-document in config.status, that substitutes the proper values into # config.h.in to produce config.h. # Create a delimiter string that does not exist in confdefs.h, to ease # handling of long lines. ac_delim='%!_!# ' for ac_last_try in false false :; do ac_tt=`sed -n "/$ac_delim/p" confdefs.h` if test -z "$ac_tt"; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done # For the awk script, D is an array of macro values keyed by name, # likewise P contains macro parameters if any. Preserve backslash # newline sequences. ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* sed -n ' s/.\{148\}/&'"$ac_delim"'/g t rset :rset s/^[ ]*#[ ]*define[ ][ ]*/ / t def d :def s/\\$// t bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3"/p s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p d :bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3\\\\\\n"\\/p t cont s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p t cont d :cont n s/.\{148\}/&'"$ac_delim"'/g t clear :clear s/\\$// t bsnlc s/["\\]/\\&/g; s/^/"/; s/$/"/p d :bsnlc s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p b cont ' >$CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 for (key in D) D_is_set[key] = 1 FS = "" } /^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { line = \$ 0 split(line, arg, " ") if (arg[1] == "#") { defundef = arg[2] mac1 = arg[3] } else { defundef = substr(arg[1], 2) mac1 = arg[2] } split(mac1, mac2, "(") #) macro = mac2[1] prefix = substr(line, 1, index(line, defundef) - 1) if (D_is_set[macro]) { # Preserve the white space surrounding the "#". print prefix "define", macro P[macro] D[macro] next } else { # Replace #undef with comments. This is necessary, for example, # in the case of _POSIX_SOURCE, which is predefined and required # on some systems where configure will not decide to define it. if (defundef == "undef") { print "/*", prefix defundef, macro, "*/" next } } } { print } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 fi # test -n "$CONFIG_HEADERS" eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" 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="$ac_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 >"$ac_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 # case $INSTALL in [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; esac ac_MKDIR_P=$MKDIR_P case $MKDIR_P in [\\/$]* | ?:[\\/]* ) ;; */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; esac _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 s&@INSTALL@&$ac_INSTALL&;t t s&@MKDIR_P@&$ac_MKDIR_P&;t t $ac_datarootdir_hack " eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ >$ac_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' "$ac_tmp/out"`; test -n "$ac_out"; } && { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ "$ac_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 "$ac_tmp/stdin" case $ac_file in -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; esac \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; :H) # # CONFIG_HEADER # if test x"$ac_file" != x-; then { $as_echo "/* $configure_input */" \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" } >"$ac_tmp/config.h" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 $as_echo "$as_me: $ac_file is unchanged" >&6;} else rm -f "$ac_file" mv "$ac_tmp/config.h" "$ac_file" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 fi else $as_echo "/* $configure_input */" \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ || as_fn_error $? "could not create -" "$LINENO" 5 fi # Compute "$ac_file"'s index in $config_headers. _am_arg="$ac_file" _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $_am_arg | $_am_arg:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || $as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$_am_arg" : 'X\(//\)[^/]' \| \ X"$_am_arg" : 'X\(//\)$' \| \ X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$_am_arg" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'`/stamp-h$_am_stamp_count ;; :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 $as_echo "$as_me: executing $ac_file commands" >&6;} ;; esac case $ac_file$ac_mode in "depfiles":C) test x"$AMDEP_TRUE" != x"" || { # Autoconf 2.62 quotes --file arguments for eval, but not when files # are listed without --file. Let's play safe and only enable the eval # if we detect the quoting. case $CONFIG_FILES in *\'*) eval set x "$CONFIG_FILES" ;; *) set x $CONFIG_FILES ;; esac shift for mf do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named `Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # Grep'ing the whole file is not good either: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then dirpart=`$as_dirname -- "$mf" || $as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$mf" : 'X\(//\)[^/]' \| \ X"$mf" : 'X\(//\)$' \| \ X"$mf" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$mf" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running `make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # When using ansi2knr, U may be empty or an underscore; expand it U=`sed -n 's/^U = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`$as_dirname -- "$file" || $as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$file" : 'X\(//\)[^/]' \| \ X"$file" : 'X\(//\)$' \| \ X"$file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir=$dirpart/$fdir; as_fn_mkdir_p # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done } ;; "libtool":C) # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi cfgfile="${ofile}T" trap "$RM \"$cfgfile\"; exit 1" 1 2 15 $RM "$cfgfile" cat <<_LT_EOF >> "$cfgfile" #! $SHELL # `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $VERSION # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # NOTE: Changes made to this file will be lost: look at ltmain.sh. # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is part of GNU Libtool. # # GNU Libtool is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, or # obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # The names of the tagged configurations supported by this script. available_tags="" # ### BEGIN LIBTOOL CONFIG # Which release of libtool.m4 was used? macro_version=$macro_version macro_revision=$macro_revision # Whether or not to build shared libraries. build_libtool_libs=$enable_shared # Whether or not to build static libraries. build_old_libs=$enable_static # What type of objects to build. pic_mode=$pic_mode # Whether or not to optimize for fast installation. fast_install=$enable_fast_install # Shell to use when invoking shell scripts. SHELL=$lt_SHELL # An echo program that protects backslashes. ECHO=$lt_ECHO # The PATH separator for the build system. PATH_SEPARATOR=$lt_PATH_SEPARATOR # The host system. host_alias=$host_alias host=$host host_os=$host_os # The build system. build_alias=$build_alias build=$build build_os=$build_os # A sed program that does not truncate output. SED=$lt_SED # Sed that helps us avoid accidentally triggering echo(1) options like -n. Xsed="\$SED -e 1s/^X//" # A grep program that handles long lines. GREP=$lt_GREP # An ERE matcher. EGREP=$lt_EGREP # A literal string matcher. FGREP=$lt_FGREP # A BSD- or MS-compatible name lister. NM=$lt_NM # Whether we need soft or hard links. LN_S=$lt_LN_S # What is the maximum length of a command? max_cmd_len=$max_cmd_len # Object file suffix (normally "o"). objext=$ac_objext # Executable file suffix (normally ""). exeext=$exeext # whether the shell understands "unset". lt_unset=$lt_unset # turn spaces into newlines. SP2NL=$lt_lt_SP2NL # turn newlines into spaces. NL2SP=$lt_lt_NL2SP # convert \$build file names to \$host format. to_host_file_cmd=$lt_cv_to_host_file_cmd # convert \$build files to toolchain format. to_tool_file_cmd=$lt_cv_to_tool_file_cmd # An object symbol dumper. OBJDUMP=$lt_OBJDUMP # Method to check whether dependent libraries are shared objects. deplibs_check_method=$lt_deplibs_check_method # Command to use when deplibs_check_method = "file_magic". file_magic_cmd=$lt_file_magic_cmd # How to find potential files when deplibs_check_method = "file_magic". file_magic_glob=$lt_file_magic_glob # Find potential files using nocaseglob when deplibs_check_method = "file_magic". want_nocaseglob=$lt_want_nocaseglob # DLL creation program. DLLTOOL=$lt_DLLTOOL # Command to associate shared and link libraries. sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd # The archiver. AR=$lt_AR # Flags to create an archive. AR_FLAGS=$lt_AR_FLAGS # How to feed a file listing to the archiver. archiver_list_spec=$lt_archiver_list_spec # A symbol stripping program. STRIP=$lt_STRIP # Commands used to install an old-style archive. RANLIB=$lt_RANLIB old_postinstall_cmds=$lt_old_postinstall_cmds old_postuninstall_cmds=$lt_old_postuninstall_cmds # Whether to use a lock for old archive extraction. lock_old_archive_extraction=$lock_old_archive_extraction # A C compiler. LTCC=$lt_CC # LTCC compiler flags. LTCFLAGS=$lt_CFLAGS # Take the output of nm and produce a listing of raw symbols and C names. global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe # Transform the output of nm in a proper C declaration. global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl # Transform the output of nm in a C name address pair. global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address # Transform the output of nm in a C name address pair when lib prefix is needed. global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix # Specify filename containing input files for \$NM. nm_file_list_spec=$lt_nm_file_list_spec # The root where to search for dependent libraries,and in which our libraries should be installed. lt_sysroot=$lt_sysroot # The name of the directory that contains temporary libtool files. objdir=$objdir # Used to examine libraries when file_magic_cmd begins with "file". MAGIC_CMD=$MAGIC_CMD # Must we lock files when doing compilation? need_locks=$lt_need_locks # Manifest tool. MANIFEST_TOOL=$lt_MANIFEST_TOOL # Tool to manipulate archived DWARF debug symbol files on Mac OS X. DSYMUTIL=$lt_DSYMUTIL # Tool to change global to local symbols on Mac OS X. NMEDIT=$lt_NMEDIT # Tool to manipulate fat objects and archives on Mac OS X. LIPO=$lt_LIPO # ldd/readelf like tool for Mach-O binaries on Mac OS X. OTOOL=$lt_OTOOL # ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. OTOOL64=$lt_OTOOL64 # Old archive suffix (normally "a"). libext=$libext # Shared library suffix (normally ".so"). shrext_cmds=$lt_shrext_cmds # The commands to extract the exported symbol list from a shared archive. extract_expsyms_cmds=$lt_extract_expsyms_cmds # Variables whose values should be saved in libtool wrapper scripts and # restored at link time. variables_saved_for_relink=$lt_variables_saved_for_relink # Do we need the "lib" prefix for modules? need_lib_prefix=$need_lib_prefix # Do we need a version for libraries? need_version=$need_version # Library versioning type. version_type=$version_type # Shared library runtime path variable. runpath_var=$runpath_var # Shared library path variable. shlibpath_var=$shlibpath_var # Is shlibpath searched before the hard-coded library search path? shlibpath_overrides_runpath=$shlibpath_overrides_runpath # Format of library name prefix. libname_spec=$lt_libname_spec # List of archive names. First name is the real one, the rest are links. # The last name is the one that the linker finds with -lNAME library_names_spec=$lt_library_names_spec # The coded name of the library, if different from the real name. soname_spec=$lt_soname_spec # Permission mode override for installation of shared libraries. install_override_mode=$lt_install_override_mode # Command to use after installation of a shared archive. postinstall_cmds=$lt_postinstall_cmds # Command to use after uninstallation of a shared archive. postuninstall_cmds=$lt_postuninstall_cmds # Commands used to finish a libtool library installation in a directory. finish_cmds=$lt_finish_cmds # As "finish_cmds", except a single script fragment to be evaled but # not shown. finish_eval=$lt_finish_eval # Whether we should hardcode library paths into libraries. hardcode_into_libs=$hardcode_into_libs # Compile-time system search path for libraries. sys_lib_search_path_spec=$lt_sys_lib_search_path_spec # Run-time system search path for libraries. sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec # Whether dlopen is supported. dlopen_support=$enable_dlopen # Whether dlopen of programs is supported. dlopen_self=$enable_dlopen_self # Whether dlopen of statically linked programs is supported. dlopen_self_static=$enable_dlopen_self_static # Commands to strip libraries. old_striplib=$lt_old_striplib striplib=$lt_striplib # The linker used to build libraries. LD=$lt_LD # How to create reloadable object files. reload_flag=$lt_reload_flag reload_cmds=$lt_reload_cmds # Commands used to build an old-style archive. old_archive_cmds=$lt_old_archive_cmds # A language specific compiler. CC=$lt_compiler # Is the compiler the GNU compiler? with_gcc=$GCC # Compiler flag to turn off builtin functions. no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag # Additional compiler flags for building library objects. pic_flag=$lt_lt_prog_compiler_pic # How to pass a linker flag through the compiler. wl=$lt_lt_prog_compiler_wl # Compiler flag to prevent dynamic linking. link_static_flag=$lt_lt_prog_compiler_static # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o # Whether or not to add -lc for building shared libraries. build_libtool_need_lc=$archive_cmds_need_lc # Whether or not to disallow shared libs when runtime libs are static. allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes # Compiler flag to allow reflexive dlopens. export_dynamic_flag_spec=$lt_export_dynamic_flag_spec # Compiler flag to generate shared objects directly from archives. whole_archive_flag_spec=$lt_whole_archive_flag_spec # Whether the compiler copes with passing no objects directly. compiler_needs_object=$lt_compiler_needs_object # Create an old-style archive from a shared archive. old_archive_from_new_cmds=$lt_old_archive_from_new_cmds # Create a temporary old-style archive to link instead of a shared archive. old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds # Commands used to build a shared archive. archive_cmds=$lt_archive_cmds archive_expsym_cmds=$lt_archive_expsym_cmds # Commands used to build a loadable module if different from building # a shared archive. module_cmds=$lt_module_cmds module_expsym_cmds=$lt_module_expsym_cmds # Whether we are building with GNU ld or not. with_gnu_ld=$lt_with_gnu_ld # Flag that allows shared libraries with undefined symbols to be built. allow_undefined_flag=$lt_allow_undefined_flag # Flag that enforces no undefined symbols. no_undefined_flag=$lt_no_undefined_flag # Flag to hardcode \$libdir into a binary during linking. # This must work even if \$libdir does not exist hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec # Whether we need a single "-rpath" flag with a separated argument. hardcode_libdir_separator=$lt_hardcode_libdir_separator # Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes # DIR into the resulting binary. hardcode_direct=$hardcode_direct # Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes # DIR into the resulting binary and the resulting library dependency is # "absolute",i.e impossible to change by setting \${shlibpath_var} if the # library is relocated. hardcode_direct_absolute=$hardcode_direct_absolute # Set to "yes" if using the -LDIR flag during linking hardcodes DIR # into the resulting binary. hardcode_minus_L=$hardcode_minus_L # Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR # into the resulting binary. hardcode_shlibpath_var=$hardcode_shlibpath_var # Set to "yes" if building a shared library automatically hardcodes DIR # into the library and all subsequent libraries and executables linked # against it. hardcode_automatic=$hardcode_automatic # Set to yes if linker adds runtime paths of dependent libraries # to runtime path list. inherit_rpath=$inherit_rpath # Whether libtool must link a program against all its dependency libraries. link_all_deplibs=$link_all_deplibs # Set to "yes" if exported symbols are required. always_export_symbols=$always_export_symbols # The commands to list exported symbols. export_symbols_cmds=$lt_export_symbols_cmds # Symbols that should not be listed in the preloaded symbols. exclude_expsyms=$lt_exclude_expsyms # Symbols that must always be exported. include_expsyms=$lt_include_expsyms # Commands necessary for linking programs (against libraries) with templates. prelink_cmds=$lt_prelink_cmds # Commands necessary for finishing linking programs. postlink_cmds=$lt_postlink_cmds # Specify filename containing input files. file_list_spec=$lt_file_list_spec # How to hardcode a shared library path into an executable. hardcode_action=$hardcode_action # ### END LIBTOOL CONFIG _LT_EOF case $host_os in aix3*) cat <<\_LT_EOF >> "$cfgfile" # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi _LT_EOF ;; esac ltmain="$ac_aux_dir/ltmain.sh" # We use sed instead of cat because bash on DJGPP gets confused if # if finds mixed CR/LF and LF-only lines. Since sed operates in # text mode, it properly converts lines to CR/LF. This bash problem # is reportedly fixed, but why not run on old versions too? sed '$q' "$ltmain" >> "$cfgfile" \ || (rm -f "$cfgfile"; exit 1) if test x"$xsi_shell" = xyes; then sed -e '/^func_dirname ()$/,/^} # func_dirname /c\ func_dirname ()\ {\ \ case ${1} in\ \ */*) func_dirname_result="${1%/*}${2}" ;;\ \ * ) func_dirname_result="${3}" ;;\ \ esac\ } # Extended-shell func_dirname implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_basename ()$/,/^} # func_basename /c\ func_basename ()\ {\ \ func_basename_result="${1##*/}"\ } # Extended-shell func_basename implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_dirname_and_basename ()$/,/^} # func_dirname_and_basename /c\ func_dirname_and_basename ()\ {\ \ case ${1} in\ \ */*) func_dirname_result="${1%/*}${2}" ;;\ \ * ) func_dirname_result="${3}" ;;\ \ esac\ \ func_basename_result="${1##*/}"\ } # Extended-shell func_dirname_and_basename implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_stripname ()$/,/^} # func_stripname /c\ func_stripname ()\ {\ \ # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are\ \ # positional parameters, so assign one to ordinary parameter first.\ \ func_stripname_result=${3}\ \ func_stripname_result=${func_stripname_result#"${1}"}\ \ func_stripname_result=${func_stripname_result%"${2}"}\ } # Extended-shell func_stripname implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_split_long_opt ()$/,/^} # func_split_long_opt /c\ func_split_long_opt ()\ {\ \ func_split_long_opt_name=${1%%=*}\ \ func_split_long_opt_arg=${1#*=}\ } # Extended-shell func_split_long_opt implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_split_short_opt ()$/,/^} # func_split_short_opt /c\ func_split_short_opt ()\ {\ \ func_split_short_opt_arg=${1#??}\ \ func_split_short_opt_name=${1%"$func_split_short_opt_arg"}\ } # Extended-shell func_split_short_opt implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_lo2o ()$/,/^} # func_lo2o /c\ func_lo2o ()\ {\ \ case ${1} in\ \ *.lo) func_lo2o_result=${1%.lo}.${objext} ;;\ \ *) func_lo2o_result=${1} ;;\ \ esac\ } # Extended-shell func_lo2o implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_xform ()$/,/^} # func_xform /c\ func_xform ()\ {\ func_xform_result=${1%.*}.lo\ } # Extended-shell func_xform implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_arith ()$/,/^} # func_arith /c\ func_arith ()\ {\ func_arith_result=$(( $* ))\ } # Extended-shell func_arith implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_len ()$/,/^} # func_len /c\ func_len ()\ {\ func_len_result=${#1}\ } # Extended-shell func_len implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$lt_shell_append" = xyes; then sed -e '/^func_append ()$/,/^} # func_append /c\ func_append ()\ {\ eval "${1}+=\\${2}"\ } # Extended-shell func_append implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_append_quoted ()$/,/^} # func_append_quoted /c\ func_append_quoted ()\ {\ \ func_quote_for_eval "${2}"\ \ eval "${1}+=\\\\ \\$func_quote_for_eval_result"\ } # Extended-shell func_append_quoted implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: # Save a `func_append' function call where possible by direct use of '+=' sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: else # Save a `func_append' function call even when '+=' is not available sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$_lt_function_replace_fail" = x":"; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Unable to substitute extended shell functions in $ofile" >&5 $as_echo "$as_me: WARNING: Unable to substitute extended shell functions in $ofile" >&2;} fi mv -f "$cfgfile" "$ofile" || (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") chmod +x "$ofile" ;; 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 midgard2-core-10.05.7.1/AUTHORS0000664000175000017500000000024211772045620012437 00000000000000Original Author: Jukka Zitting Assistance and ideas: Henri Bergius and the rest of the Midgard team midgard2-core-10.05.7.1/config.sub0000755000175000017500000010517611772046304013364 00000000000000#! /bin/sh # Configuration validation subroutine script. # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, # 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, # 2011, 2012 Free Software Foundation, Inc. timestamp='2012-02-10' # This file is (in principle) common to ALL GNU software. # The presence of a machine in this file suggests that SOME GNU software # can handle that machine. It does not imply ALL GNU software can. # # This file is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, see . # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Please send patches to . Submit a context # diff and a properly formatted GNU ChangeLog entry. # # Configuration subroutine to validate and canonicalize a configuration type. # Supply the specified configuration type as an argument. # If it is invalid, we print an error message on stderr and exit with code 1. # Otherwise, we print the canonical config type on stdout and succeed. # You can get the latest version of this script from: # http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD # This file is supposed to be the same for all GNU packages # and recognize all the CPU types, system types and aliases # that are meaningful with *any* GNU software. # Each package is responsible for reporting which valid configurations # it does not support. The user should be able to distinguish # a failure to support a valid configuration from a meaningless # configuration. # The goal of this file is to map all the various variations of a given # machine specification into a single specification in the form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # or in some cases, the newer four-part form: # CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM # It is wrong to echo any other type of specification. me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] CPU-MFR-OPSYS $0 [OPTION] ALIAS Canonicalize a configuration name. Operation modes: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.sub ($timestamp) Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" exit 1 ;; *local*) # First pass through any local machine types. echo $1 exit ;; * ) break ;; esac done case $# in 0) echo "$me: missing argument$help" >&2 exit 1;; 1) ;; *) echo "$me: too many arguments$help" >&2 exit 1;; esac # Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any). # Here we must recognize all the valid KERNEL-OS combinations. maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'` case $maybe_os in nto-qnx* | linux-gnu* | linux-android* | linux-dietlibc | linux-newlib* | \ linux-uclibc* | uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | \ knetbsd*-gnu* | netbsd*-gnu* | \ kopensolaris*-gnu* | \ storm-chaos* | os2-emx* | rtmk-nova*) os=-$maybe_os basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` ;; android-linux) os=-linux-android basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'`-unknown ;; *) basic_machine=`echo $1 | sed 's/-[^-]*$//'` if [ $basic_machine != $1 ] then os=`echo $1 | sed 's/.*-/-/'` else os=; fi ;; esac ### Let's recognize common machines as not being operating systems so ### that things like config.sub decstation-3100 work. We also ### recognize some manufacturers as not being operating systems, so we ### can provide default operating systems below. case $os in -sun*os*) # Prevent following clause from handling this invalid input. ;; -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \ -apple | -axis | -knuth | -cray | -microblaze) os= basic_machine=$1 ;; -bluegene*) os=-cnk ;; -sim | -cisco | -oki | -wec | -winbond) os= basic_machine=$1 ;; -scout) ;; -wrs) os=-vxworks basic_machine=$1 ;; -chorusos*) os=-chorusos basic_machine=$1 ;; -chorusrdb) os=-chorusrdb basic_machine=$1 ;; -hiux*) os=-hiuxwe2 ;; -sco6) os=-sco5v6 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco5) os=-sco3.2v5 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco4) os=-sco3.2v4 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2.[4-9]*) os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2v[4-9]*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco5v6*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco*) os=-sco3.2v2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -udk*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -isc) os=-isc2.2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -clix*) basic_machine=clipper-intergraph ;; -isc*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -lynx*) os=-lynxos ;; -ptx*) basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` ;; -windowsnt*) os=`echo $os | sed -e 's/windowsnt/winnt/'` ;; -psos*) os=-psos ;; -mint | -mint[0-9]*) basic_machine=m68k-atari os=-mint ;; esac # Decode aliases for certain CPU-COMPANY combinations. case $basic_machine in # Recognize the basic CPU types without company name. # Some are omitted here because they have special meanings below. 1750a | 580 \ | a29k \ | aarch64 | aarch64_be \ | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \ | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \ | am33_2.0 \ | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr | avr32 \ | be32 | be64 \ | bfin \ | c4x | clipper \ | d10v | d30v | dlx | dsp16xx \ | epiphany \ | fido | fr30 | frv \ | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ | hexagon \ | i370 | i860 | i960 | ia64 \ | ip2k | iq2000 \ | le32 | le64 \ | lm32 \ | m32c | m32r | m32rle | m68000 | m68k | m88k \ | maxq | mb | microblaze | mcore | mep | metag \ | mips | mipsbe | mipseb | mipsel | mipsle \ | mips16 \ | mips64 | mips64el \ | mips64octeon | mips64octeonel \ | mips64orion | mips64orionel \ | mips64r5900 | mips64r5900el \ | mips64vr | mips64vrel \ | mips64vr4100 | mips64vr4100el \ | mips64vr4300 | mips64vr4300el \ | mips64vr5000 | mips64vr5000el \ | mips64vr5900 | mips64vr5900el \ | mipsisa32 | mipsisa32el \ | mipsisa32r2 | mipsisa32r2el \ | mipsisa64 | mipsisa64el \ | mipsisa64r2 | mipsisa64r2el \ | mipsisa64sb1 | mipsisa64sb1el \ | mipsisa64sr71k | mipsisa64sr71kel \ | mipstx39 | mipstx39el \ | mn10200 | mn10300 \ | moxie \ | mt \ | msp430 \ | nds32 | nds32le | nds32be \ | nios | nios2 \ | ns16k | ns32k \ | open8 \ | or32 \ | pdp10 | pdp11 | pj | pjl \ | powerpc | powerpc64 | powerpc64le | powerpcle \ | pyramid \ | rl78 | rx \ | score \ | sh | sh[1234] | sh[24]a | sh[24]aeb | sh[23]e | sh[34]eb | sheb | shbe | shle | sh[1234]le | sh3ele \ | sh64 | sh64le \ | sparc | sparc64 | sparc64b | sparc64v | sparc86x | sparclet | sparclite \ | sparcv8 | sparcv9 | sparcv9b | sparcv9v \ | spu \ | tahoe | tic4x | tic54x | tic55x | tic6x | tic80 | tron \ | ubicom32 \ | v850 | v850e | v850e1 | v850e2 | v850es | v850e2v3 \ | we32k \ | x86 | xc16x | xstormy16 | xtensa \ | z8k | z80) basic_machine=$basic_machine-unknown ;; c54x) basic_machine=tic54x-unknown ;; c55x) basic_machine=tic55x-unknown ;; c6x) basic_machine=tic6x-unknown ;; m6811 | m68hc11 | m6812 | m68hc12 | m68hcs12x | picochip) basic_machine=$basic_machine-unknown os=-none ;; m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) ;; ms1) basic_machine=mt-unknown ;; strongarm | thumb | xscale) basic_machine=arm-unknown ;; xgate) basic_machine=$basic_machine-unknown os=-none ;; xscaleeb) basic_machine=armeb-unknown ;; xscaleel) basic_machine=armel-unknown ;; # We use `pc' rather than `unknown' # because (1) that's what they normally are, and # (2) the word "unknown" tends to confuse beginning users. i*86 | x86_64) basic_machine=$basic_machine-pc ;; # Object if more than one company name word. *-*-*) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; # Recognize the basic CPU types with company name. 580-* \ | a29k-* \ | aarch64-* | aarch64_be-* \ | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \ | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \ | alphapca5[67]-* | alpha64pca5[67]-* | arc-* \ | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ | avr-* | avr32-* \ | be32-* | be64-* \ | bfin-* | bs2000-* \ | c[123]* | c30-* | [cjt]90-* | c4x-* \ | clipper-* | craynv-* | cydra-* \ | d10v-* | d30v-* | dlx-* \ | elxsi-* \ | f30[01]-* | f700-* | fido-* | fr30-* | frv-* | fx80-* \ | h8300-* | h8500-* \ | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \ | hexagon-* \ | i*86-* | i860-* | i960-* | ia64-* \ | ip2k-* | iq2000-* \ | le32-* | le64-* \ | lm32-* \ | m32c-* | m32r-* | m32rle-* \ | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ | m88110-* | m88k-* | maxq-* | mcore-* | metag-* | microblaze-* \ | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ | mips16-* \ | mips64-* | mips64el-* \ | mips64octeon-* | mips64octeonel-* \ | mips64orion-* | mips64orionel-* \ | mips64r5900-* | mips64r5900el-* \ | mips64vr-* | mips64vrel-* \ | mips64vr4100-* | mips64vr4100el-* \ | mips64vr4300-* | mips64vr4300el-* \ | mips64vr5000-* | mips64vr5000el-* \ | mips64vr5900-* | mips64vr5900el-* \ | mipsisa32-* | mipsisa32el-* \ | mipsisa32r2-* | mipsisa32r2el-* \ | mipsisa64-* | mipsisa64el-* \ | mipsisa64r2-* | mipsisa64r2el-* \ | mipsisa64sb1-* | mipsisa64sb1el-* \ | mipsisa64sr71k-* | mipsisa64sr71kel-* \ | mipstx39-* | mipstx39el-* \ | mmix-* \ | mt-* \ | msp430-* \ | nds32-* | nds32le-* | nds32be-* \ | nios-* | nios2-* \ | none-* | np1-* | ns16k-* | ns32k-* \ | open8-* \ | orion-* \ | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* \ | pyramid-* \ | rl78-* | romp-* | rs6000-* | rx-* \ | sh-* | sh[1234]-* | sh[24]a-* | sh[24]aeb-* | sh[23]e-* | sh[34]eb-* | sheb-* | shbe-* \ | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \ | sparc-* | sparc64-* | sparc64b-* | sparc64v-* | sparc86x-* | sparclet-* \ | sparclite-* \ | sparcv8-* | sparcv9-* | sparcv9b-* | sparcv9v-* | sv1-* | sx?-* \ | tahoe-* \ | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \ | tile*-* \ | tron-* \ | ubicom32-* \ | v850-* | v850e-* | v850e1-* | v850es-* | v850e2-* | v850e2v3-* \ | vax-* \ | we32k-* \ | x86-* | x86_64-* | xc16x-* | xps100-* \ | xstormy16-* | xtensa*-* \ | ymp-* \ | z8k-* | z80-*) ;; # Recognize the basic CPU types without company name, with glob match. xtensa*) basic_machine=$basic_machine-unknown ;; # Recognize the various machine names and aliases which stand # for a CPU type and a company and sometimes even an OS. 386bsd) basic_machine=i386-unknown os=-bsd ;; 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) basic_machine=m68000-att ;; 3b*) basic_machine=we32k-att ;; a29khif) basic_machine=a29k-amd os=-udi ;; abacus) basic_machine=abacus-unknown ;; adobe68k) basic_machine=m68010-adobe os=-scout ;; alliant | fx80) basic_machine=fx80-alliant ;; altos | altos3068) basic_machine=m68k-altos ;; am29k) basic_machine=a29k-none os=-bsd ;; amd64) basic_machine=x86_64-pc ;; amd64-*) basic_machine=x86_64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; amdahl) basic_machine=580-amdahl os=-sysv ;; amiga | amiga-*) basic_machine=m68k-unknown ;; amigaos | amigados) basic_machine=m68k-unknown os=-amigaos ;; amigaunix | amix) basic_machine=m68k-unknown os=-sysv4 ;; apollo68) basic_machine=m68k-apollo os=-sysv ;; apollo68bsd) basic_machine=m68k-apollo os=-bsd ;; aros) basic_machine=i386-pc os=-aros ;; aux) basic_machine=m68k-apple os=-aux ;; balance) basic_machine=ns32k-sequent os=-dynix ;; blackfin) basic_machine=bfin-unknown os=-linux ;; blackfin-*) basic_machine=bfin-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; bluegene*) basic_machine=powerpc-ibm os=-cnk ;; c54x-*) basic_machine=tic54x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c55x-*) basic_machine=tic55x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c6x-*) basic_machine=tic6x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c90) basic_machine=c90-cray os=-unicos ;; cegcc) basic_machine=arm-unknown os=-cegcc ;; convex-c1) basic_machine=c1-convex os=-bsd ;; convex-c2) basic_machine=c2-convex os=-bsd ;; convex-c32) basic_machine=c32-convex os=-bsd ;; convex-c34) basic_machine=c34-convex os=-bsd ;; convex-c38) basic_machine=c38-convex os=-bsd ;; cray | j90) basic_machine=j90-cray os=-unicos ;; craynv) basic_machine=craynv-cray os=-unicosmp ;; cr16 | cr16-*) basic_machine=cr16-unknown os=-elf ;; crds | unos) basic_machine=m68k-crds ;; crisv32 | crisv32-* | etraxfs*) basic_machine=crisv32-axis ;; cris | cris-* | etrax*) basic_machine=cris-axis ;; crx) basic_machine=crx-unknown os=-elf ;; da30 | da30-*) basic_machine=m68k-da30 ;; decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) basic_machine=mips-dec ;; decsystem10* | dec10*) basic_machine=pdp10-dec os=-tops10 ;; decsystem20* | dec20*) basic_machine=pdp10-dec os=-tops20 ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) basic_machine=m68k-motorola ;; delta88) basic_machine=m88k-motorola os=-sysv3 ;; dicos) basic_machine=i686-pc os=-dicos ;; djgpp) basic_machine=i586-pc os=-msdosdjgpp ;; dpx20 | dpx20-*) basic_machine=rs6000-bull os=-bosx ;; dpx2* | dpx2*-bull) basic_machine=m68k-bull os=-sysv3 ;; ebmon29k) basic_machine=a29k-amd os=-ebmon ;; elxsi) basic_machine=elxsi-elxsi os=-bsd ;; encore | umax | mmax) basic_machine=ns32k-encore ;; es1800 | OSE68k | ose68k | ose | OSE) basic_machine=m68k-ericsson os=-ose ;; fx2800) basic_machine=i860-alliant ;; genix) basic_machine=ns32k-ns ;; gmicro) basic_machine=tron-gmicro os=-sysv ;; go32) basic_machine=i386-pc os=-go32 ;; h3050r* | hiux*) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; h8300hms) basic_machine=h8300-hitachi os=-hms ;; h8300xray) basic_machine=h8300-hitachi os=-xray ;; h8500hms) basic_machine=h8500-hitachi os=-hms ;; harris) basic_machine=m88k-harris os=-sysv3 ;; hp300-*) basic_machine=m68k-hp ;; hp300bsd) basic_machine=m68k-hp os=-bsd ;; hp300hpux) basic_machine=m68k-hp os=-hpux ;; hp3k9[0-9][0-9] | hp9[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k2[0-9][0-9] | hp9k31[0-9]) basic_machine=m68000-hp ;; hp9k3[2-9][0-9]) basic_machine=m68k-hp ;; hp9k6[0-9][0-9] | hp6[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k7[0-79][0-9] | hp7[0-79][0-9]) basic_machine=hppa1.1-hp ;; hp9k78[0-9] | hp78[0-9]) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[0-9][13679] | hp8[0-9][13679]) basic_machine=hppa1.1-hp ;; hp9k8[0-9][0-9] | hp8[0-9][0-9]) basic_machine=hppa1.0-hp ;; hppa-next) os=-nextstep3 ;; hppaosf) basic_machine=hppa1.1-hp os=-osf ;; hppro) basic_machine=hppa1.1-hp os=-proelf ;; i370-ibm* | ibm*) basic_machine=i370-ibm ;; i*86v32) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv32 ;; i*86v4*) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv4 ;; i*86v) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv ;; i*86sol2) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-solaris2 ;; i386mach) basic_machine=i386-mach os=-mach ;; i386-vsta | vsta) basic_machine=i386-unknown os=-vsta ;; iris | iris4d) basic_machine=mips-sgi case $os in -irix*) ;; *) os=-irix4 ;; esac ;; isi68 | isi) basic_machine=m68k-isi os=-sysv ;; m68knommu) basic_machine=m68k-unknown os=-linux ;; m68knommu-*) basic_machine=m68k-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; m88k-omron*) basic_machine=m88k-omron ;; magnum | m3230) basic_machine=mips-mips os=-sysv ;; merlin) basic_machine=ns32k-utek os=-sysv ;; microblaze) basic_machine=microblaze-xilinx ;; mingw32) basic_machine=i386-pc os=-mingw32 ;; mingw32ce) basic_machine=arm-unknown os=-mingw32ce ;; miniframe) basic_machine=m68000-convergent ;; *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*) basic_machine=m68k-atari os=-mint ;; mips3*-*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` ;; mips3*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown ;; monitor) basic_machine=m68k-rom68k os=-coff ;; morphos) basic_machine=powerpc-unknown os=-morphos ;; msdos) basic_machine=i386-pc os=-msdos ;; ms1-*) basic_machine=`echo $basic_machine | sed -e 's/ms1-/mt-/'` ;; msys) basic_machine=i386-pc os=-msys ;; mvs) basic_machine=i370-ibm os=-mvs ;; nacl) basic_machine=le32-unknown os=-nacl ;; ncr3000) basic_machine=i486-ncr os=-sysv4 ;; netbsd386) basic_machine=i386-unknown os=-netbsd ;; netwinder) basic_machine=armv4l-rebel os=-linux ;; news | news700 | news800 | news900) basic_machine=m68k-sony os=-newsos ;; news1000) basic_machine=m68030-sony os=-newsos ;; news-3600 | risc-news) basic_machine=mips-sony os=-newsos ;; necv70) basic_machine=v70-nec os=-sysv ;; next | m*-next ) basic_machine=m68k-next case $os in -nextstep* ) ;; -ns2*) os=-nextstep2 ;; *) os=-nextstep3 ;; esac ;; nh3000) basic_machine=m68k-harris os=-cxux ;; nh[45]000) basic_machine=m88k-harris os=-cxux ;; nindy960) basic_machine=i960-intel os=-nindy ;; mon960) basic_machine=i960-intel os=-mon960 ;; nonstopux) basic_machine=mips-compaq os=-nonstopux ;; np1) basic_machine=np1-gould ;; neo-tandem) basic_machine=neo-tandem ;; nse-tandem) basic_machine=nse-tandem ;; nsr-tandem) basic_machine=nsr-tandem ;; op50n-* | op60c-*) basic_machine=hppa1.1-oki os=-proelf ;; openrisc | openrisc-*) basic_machine=or32-unknown ;; os400) basic_machine=powerpc-ibm os=-os400 ;; OSE68000 | ose68000) basic_machine=m68000-ericsson os=-ose ;; os68k) basic_machine=m68k-none os=-os68k ;; pa-hitachi) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; paragon) basic_machine=i860-intel os=-osf ;; parisc) basic_machine=hppa-unknown os=-linux ;; parisc-*) basic_machine=hppa-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; pbd) basic_machine=sparc-tti ;; pbb) basic_machine=m68k-tti ;; pc532 | pc532-*) basic_machine=ns32k-pc532 ;; pc98) basic_machine=i386-pc ;; pc98-*) basic_machine=i386-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium | p5 | k5 | k6 | nexgen | viac3) basic_machine=i586-pc ;; pentiumpro | p6 | 6x86 | athlon | athlon_*) basic_machine=i686-pc ;; pentiumii | pentium2 | pentiumiii | pentium3) basic_machine=i686-pc ;; pentium4) basic_machine=i786-pc ;; pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*) basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumpro-* | p6-* | 6x86-* | athlon-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium4-*) basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pn) basic_machine=pn-gould ;; power) basic_machine=power-ibm ;; ppc | ppcbe) basic_machine=powerpc-unknown ;; ppc-* | ppcbe-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppcle | powerpclittle | ppc-le | powerpc-little) basic_machine=powerpcle-unknown ;; ppcle-* | powerpclittle-*) basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64) basic_machine=powerpc64-unknown ;; ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64le | powerpc64little | ppc64-le | powerpc64-little) basic_machine=powerpc64le-unknown ;; ppc64le-* | powerpc64little-*) basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ps2) basic_machine=i386-ibm ;; pw32) basic_machine=i586-unknown os=-pw32 ;; rdos) basic_machine=i386-pc os=-rdos ;; rom68k) basic_machine=m68k-rom68k os=-coff ;; rm[46]00) basic_machine=mips-siemens ;; rtpc | rtpc-*) basic_machine=romp-ibm ;; s390 | s390-*) basic_machine=s390-ibm ;; s390x | s390x-*) basic_machine=s390x-ibm ;; sa29200) basic_machine=a29k-amd os=-udi ;; sb1) basic_machine=mipsisa64sb1-unknown ;; sb1el) basic_machine=mipsisa64sb1el-unknown ;; sde) basic_machine=mipsisa32-sde os=-elf ;; sei) basic_machine=mips-sei os=-seiux ;; sequent) basic_machine=i386-sequent ;; sh) basic_machine=sh-hitachi os=-hms ;; sh5el) basic_machine=sh5le-unknown ;; sh64) basic_machine=sh64-unknown ;; sparclite-wrs | simso-wrs) basic_machine=sparclite-wrs os=-vxworks ;; sps7) basic_machine=m68k-bull os=-sysv2 ;; spur) basic_machine=spur-unknown ;; st2000) basic_machine=m68k-tandem ;; stratus) basic_machine=i860-stratus os=-sysv4 ;; strongarm-* | thumb-*) basic_machine=arm-`echo $basic_machine | sed 's/^[^-]*-//'` ;; sun2) basic_machine=m68000-sun ;; sun2os3) basic_machine=m68000-sun os=-sunos3 ;; sun2os4) basic_machine=m68000-sun os=-sunos4 ;; sun3os3) basic_machine=m68k-sun os=-sunos3 ;; sun3os4) basic_machine=m68k-sun os=-sunos4 ;; sun4os3) basic_machine=sparc-sun os=-sunos3 ;; sun4os4) basic_machine=sparc-sun os=-sunos4 ;; sun4sol2) basic_machine=sparc-sun os=-solaris2 ;; sun3 | sun3-*) basic_machine=m68k-sun ;; sun4) basic_machine=sparc-sun ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun ;; sv1) basic_machine=sv1-cray os=-unicos ;; symmetry) basic_machine=i386-sequent os=-dynix ;; t3e) basic_machine=alphaev5-cray os=-unicos ;; t90) basic_machine=t90-cray os=-unicos ;; tile*) basic_machine=$basic_machine-unknown os=-linux-gnu ;; tx39) basic_machine=mipstx39-unknown ;; tx39el) basic_machine=mipstx39el-unknown ;; toad1) basic_machine=pdp10-xkl os=-tops20 ;; tower | tower-32) basic_machine=m68k-ncr ;; tpf) basic_machine=s390x-ibm os=-tpf ;; udi29k) basic_machine=a29k-amd os=-udi ;; ultra3) basic_machine=a29k-nyu os=-sym1 ;; v810 | necv810) basic_machine=v810-nec os=-none ;; vaxv) basic_machine=vax-dec os=-sysv ;; vms) basic_machine=vax-dec os=-vms ;; vpp*|vx|vx-*) basic_machine=f301-fujitsu ;; vxworks960) basic_machine=i960-wrs os=-vxworks ;; vxworks68) basic_machine=m68k-wrs os=-vxworks ;; vxworks29k) basic_machine=a29k-wrs os=-vxworks ;; w65*) basic_machine=w65-wdc os=-none ;; w89k-*) basic_machine=hppa1.1-winbond os=-proelf ;; xbox) basic_machine=i686-pc os=-mingw32 ;; xps | xps100) basic_machine=xps100-honeywell ;; xscale-* | xscalee[bl]-*) basic_machine=`echo $basic_machine | sed 's/^xscale/arm/'` ;; ymp) basic_machine=ymp-cray os=-unicos ;; z8k-*-coff) basic_machine=z8k-unknown os=-sim ;; z80-*-coff) basic_machine=z80-unknown os=-sim ;; none) basic_machine=none-none os=-none ;; # Here we handle the default manufacturer of certain CPU types. It is in # some cases the only manufacturer, in others, it is the most popular. w89k) basic_machine=hppa1.1-winbond ;; op50n) basic_machine=hppa1.1-oki ;; op60c) basic_machine=hppa1.1-oki ;; romp) basic_machine=romp-ibm ;; mmix) basic_machine=mmix-knuth ;; rs6000) basic_machine=rs6000-ibm ;; vax) basic_machine=vax-dec ;; pdp10) # there are many clones, so DEC is not a safe bet basic_machine=pdp10-unknown ;; pdp11) basic_machine=pdp11-dec ;; we32k) basic_machine=we32k-att ;; sh[1234] | sh[24]a | sh[24]aeb | sh[34]eb | sh[1234]le | sh[23]ele) basic_machine=sh-unknown ;; sparc | sparcv8 | sparcv9 | sparcv9b | sparcv9v) basic_machine=sparc-sun ;; cydra) basic_machine=cydra-cydrome ;; orion) basic_machine=orion-highlevel ;; orion105) basic_machine=clipper-highlevel ;; mac | mpw | mac-mpw) basic_machine=m68k-apple ;; pmac | pmac-mpw) basic_machine=powerpc-apple ;; *-unknown) # Make sure to match an already-canonicalized machine name. ;; *) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; esac # Here we canonicalize certain aliases for manufacturers. case $basic_machine in *-digital*) basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` ;; *-commodore*) basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` ;; *) ;; esac # Decode manufacturer-specific aliases for certain operating systems. if [ x"$os" != x"" ] then case $os in # First match some system type aliases # that might get confused with valid system types. # -solaris* is a basic system type, with this one exception. -auroraux) os=-auroraux ;; -solaris1 | -solaris1.*) os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; -solaris) os=-solaris2 ;; -svr4*) os=-sysv4 ;; -unixware*) os=-sysv4.2uw ;; -gnu/linux*) os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` ;; # First accept the basic system types. # The portable systems comes first. # Each alternative MUST END IN A *, to match a version number. # -sysv* is not here because it comes later, after sysvr4. -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ | -*vms* | -sco* | -esix* | -isc* | -aix* | -cnk* | -sunos | -sunos[34]*\ | -hpux* | -unos* | -osf* | -luna* | -dgux* | -auroraux* | -solaris* \ | -sym* | -kopensolaris* \ | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ | -aos* | -aros* \ | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ | -hiux* | -386bsd* | -knetbsd* | -mirbsd* | -netbsd* \ | -openbsd* | -solidbsd* \ | -ekkobsd* | -kfreebsd* | -freebsd* | -riscix* | -lynxos* \ | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \ | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ | -chorusos* | -chorusrdb* | -cegcc* \ | -cygwin* | -msys* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ | -mingw32* | -linux-gnu* | -linux-android* \ | -linux-newlib* | -linux-uclibc* \ | -uxpv* | -beos* | -mpeix* | -udk* \ | -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \ | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \ | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \ | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \ | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \ | -powermax* | -dnix* | -nx6 | -nx7 | -sei* | -dragonfly* \ | -skyos* | -haiku* | -rdos* | -toppers* | -drops* | -es*) # Remember, each alternative MUST END IN *, to match a version number. ;; -qnx*) case $basic_machine in x86-* | i*86-*) ;; *) os=-nto$os ;; esac ;; -nto-qnx*) ;; -nto*) os=`echo $os | sed -e 's|nto|nto-qnx|'` ;; -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \ | -windows* | -osx | -abug | -netware* | -os9* | -beos* | -haiku* \ | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) ;; -mac*) os=`echo $os | sed -e 's|mac|macos|'` ;; -linux-dietlibc) os=-linux-dietlibc ;; -linux*) os=`echo $os | sed -e 's|linux|linux-gnu|'` ;; -sunos5*) os=`echo $os | sed -e 's|sunos5|solaris2|'` ;; -sunos6*) os=`echo $os | sed -e 's|sunos6|solaris3|'` ;; -opened*) os=-openedition ;; -os400*) os=-os400 ;; -wince*) os=-wince ;; -osfrose*) os=-osfrose ;; -osf*) os=-osf ;; -utek*) os=-bsd ;; -dynix*) os=-bsd ;; -acis*) os=-aos ;; -atheos*) os=-atheos ;; -syllable*) os=-syllable ;; -386bsd) os=-bsd ;; -ctix* | -uts*) os=-sysv ;; -nova*) os=-rtmk-nova ;; -ns2 ) os=-nextstep2 ;; -nsk*) os=-nsk ;; # Preserve the version number of sinix5. -sinix5.*) os=`echo $os | sed -e 's|sinix|sysv|'` ;; -sinix*) os=-sysv4 ;; -tpf*) os=-tpf ;; -triton*) os=-sysv3 ;; -oss*) os=-sysv3 ;; -svr4) os=-sysv4 ;; -svr3) os=-sysv3 ;; -sysvr4) os=-sysv4 ;; # This must come after -sysvr4. -sysv*) ;; -ose*) os=-ose ;; -es1800*) os=-ose ;; -xenix) os=-xenix ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) os=-mint ;; -aros*) os=-aros ;; -kaos*) os=-kaos ;; -zvmoe) os=-zvmoe ;; -dicos*) os=-dicos ;; -nacl*) ;; -none) ;; *) # Get rid of the `-' at the beginning of $os. os=`echo $os | sed 's/[^-]*-//'` echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 exit 1 ;; esac else # Here we handle the default operating systems that come with various machines. # The value should be what the vendor currently ships out the door with their # machine or put another way, the most popular os provided with the machine. # Note that if you're going to try to match "-MANUFACTURER" here (say, # "-sun"), then you have to tell the case statement up towards the top # that MANUFACTURER isn't an operating system. Otherwise, code above # will signal an error saying that MANUFACTURER isn't an operating # system, and we'll never get to this point. case $basic_machine in score-*) os=-elf ;; spu-*) os=-elf ;; *-acorn) os=-riscix1.2 ;; arm*-rebel) os=-linux ;; arm*-semi) os=-aout ;; c4x-* | tic4x-*) os=-coff ;; tic54x-*) os=-coff ;; tic55x-*) os=-coff ;; tic6x-*) os=-coff ;; # This must come before the *-dec entry. pdp10-*) os=-tops20 ;; pdp11-*) os=-none ;; *-dec | vax-*) os=-ultrix4.2 ;; m68*-apollo) os=-domain ;; i386-sun) os=-sunos4.0.2 ;; m68000-sun) os=-sunos3 ;; m68*-cisco) os=-aout ;; mep-*) os=-elf ;; mips*-cisco) os=-elf ;; mips*-*) os=-elf ;; or32-*) os=-coff ;; *-tti) # must be before sparc entry or we get the wrong os. os=-sysv3 ;; sparc-* | *-sun) os=-sunos4.1.1 ;; *-be) os=-beos ;; *-haiku) os=-haiku ;; *-ibm) os=-aix ;; *-knuth) os=-mmixware ;; *-wec) os=-proelf ;; *-winbond) os=-proelf ;; *-oki) os=-proelf ;; *-hp) os=-hpux ;; *-hitachi) os=-hiux ;; i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) os=-sysv ;; *-cbm) os=-amigaos ;; *-dg) os=-dgux ;; *-dolphin) os=-sysv3 ;; m68k-ccur) os=-rtu ;; m88k-omron*) os=-luna ;; *-next ) os=-nextstep ;; *-sequent) os=-ptx ;; *-crds) os=-unos ;; *-ns) os=-genix ;; i370-*) os=-mvs ;; *-next) os=-nextstep3 ;; *-gould) os=-sysv ;; *-highlevel) os=-bsd ;; *-encore) os=-bsd ;; *-sgi) os=-irix ;; *-siemens) os=-sysv4 ;; *-masscomp) os=-rtu ;; f30[01]-fujitsu | f700-fujitsu) os=-uxpv ;; *-rom68k) os=-coff ;; *-*bug) os=-coff ;; *-apple) os=-macos ;; *-atari*) os=-mint ;; *) os=-none ;; esac fi # Here we handle the case where we know the os, and the CPU type, but not the # manufacturer. We pick the logical manufacturer. vendor=unknown case $basic_machine in *-unknown) case $os in -riscix*) vendor=acorn ;; -sunos*) vendor=sun ;; -cnk*|-aix*) vendor=ibm ;; -beos*) vendor=be ;; -hpux*) vendor=hp ;; -mpeix*) vendor=hp ;; -hiux*) vendor=hitachi ;; -unos*) vendor=crds ;; -dgux*) vendor=dg ;; -luna*) vendor=omron ;; -genix*) vendor=ns ;; -mvs* | -opened*) vendor=ibm ;; -os400*) vendor=ibm ;; -ptx*) vendor=sequent ;; -tpf*) vendor=ibm ;; -vxsim* | -vxworks* | -windiss*) vendor=wrs ;; -aux*) vendor=apple ;; -hms*) vendor=hitachi ;; -mpw* | -macos*) vendor=apple ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) vendor=atari ;; -vos*) vendor=stratus ;; esac basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` ;; esac echo $basic_machine$os exit # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: midgard2-core-10.05.7.1/Doxyfile.in0000664000175000017500000000033311772046240013502 00000000000000PROJECT_NAME = @PACKAGE@ PROJECT_NUMBER = @VERSION@ INPUT = @srcdir@ RECURSIVE = YES OUTPUT_DIRECTORY = doc OPTIMIZE_OUTPUT_FOR_C = YES SOURCE_BROWSER = NO midgard2-core-10.05.7.1/ltmain.sh0000644000175000017500000105204011772046276013221 00000000000000 # libtool (GNU libtool) 2.4.2 # Written by Gordon Matzigkeit , 1996 # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2006, # 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. # This is free software; see the source for copying conditions. There is NO # warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # GNU Libtool is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, # or obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # Usage: $progname [OPTION]... [MODE-ARG]... # # Provide generalized library-building support services. # # --config show all configuration variables # --debug enable verbose shell tracing # -n, --dry-run display commands without modifying any files # --features display basic configuration information and exit # --mode=MODE use operation mode MODE # --preserve-dup-deps don't remove duplicate dependency libraries # --quiet, --silent don't print informational messages # --no-quiet, --no-silent # print informational messages (default) # --no-warn don't display warning messages # --tag=TAG use configuration variables from tag TAG # -v, --verbose print more informational messages than default # --no-verbose don't print the extra informational messages # --version print version information # -h, --help, --help-all print short, long, or detailed help message # # MODE must be one of the following: # # clean remove files from the build directory # compile compile a source file into a libtool object # execute automatically set library path, then run a program # finish complete the installation of libtool libraries # install install libraries or executables # link create a library or an executable # uninstall remove libraries from an installed directory # # MODE-ARGS vary depending on the MODE. When passed as first option, # `--mode=MODE' may be abbreviated as `MODE' or a unique abbreviation of that. # Try `$progname --help --mode=MODE' for a more detailed description of MODE. # # When reporting a bug, please describe a test case to reproduce it and # include the following information: # # host-triplet: $host # shell: $SHELL # compiler: $LTCC # compiler flags: $LTCFLAGS # linker: $LD (gnu? $with_gnu_ld) # $progname: (GNU libtool) 2.4.2 Debian-2.4.2-1ubuntu1 # automake: $automake_version # autoconf: $autoconf_version # # Report bugs to . # GNU libtool home page: . # General help using GNU software: . PROGRAM=libtool PACKAGE=libtool VERSION="2.4.2 Debian-2.4.2-1ubuntu1" TIMESTAMP="" package_revision=1.3337 # Be Bourne compatible if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs 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 BIN_SH=xpg4; export BIN_SH # for Tru64 DUALCASE=1; export DUALCASE # for MKS sh # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $1 _LTECHO_EOF' } # NLS nuisances: We save the old values to restore during execute mode. lt_user_locale= lt_safe_locale= for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES do eval "if test \"\${$lt_var+set}\" = set; then save_$lt_var=\$$lt_var $lt_var=C export $lt_var lt_user_locale=\"$lt_var=\\\$save_\$lt_var; \$lt_user_locale\" lt_safe_locale=\"$lt_var=C; \$lt_safe_locale\" fi" done LC_ALL=C LANGUAGE=C export LANGUAGE LC_ALL $lt_unset CDPATH # Work around backward compatibility issue on IRIX 6.5. On IRIX 6.4+, sh # is ksh but when the shell is invoked as "sh" and the current value of # the _XPG environment variable is not equal to 1 (one), the special # positional parameter $0, within a function call, is the name of the # function. progpath="$0" : ${CP="cp -f"} test "${ECHO+set}" = set || ECHO=${as_echo-'printf %s\n'} : ${MAKE="make"} : ${MKDIR="mkdir"} : ${MV="mv -f"} : ${RM="rm -f"} : ${SHELL="${CONFIG_SHELL-/bin/sh}"} : ${Xsed="$SED -e 1s/^X//"} # Global variables: EXIT_SUCCESS=0 EXIT_FAILURE=1 EXIT_MISMATCH=63 # $? = 63 is used to indicate version mismatch to missing. EXIT_SKIP=77 # $? = 77 is used to indicate a skipped test to automake. exit_status=$EXIT_SUCCESS # Make sure IFS has a sensible default lt_nl=' ' IFS=" $lt_nl" dirname="s,/[^/]*$,," basename="s,^.*/,," # func_dirname file append nondir_replacement # Compute the dirname of FILE. If nonempty, add APPEND to the result, # otherwise set result to NONDIR_REPLACEMENT. func_dirname () { func_dirname_result=`$ECHO "${1}" | $SED "$dirname"` if test "X$func_dirname_result" = "X${1}"; then func_dirname_result="${3}" else func_dirname_result="$func_dirname_result${2}" fi } # func_dirname may be replaced by extended shell implementation # func_basename file func_basename () { func_basename_result=`$ECHO "${1}" | $SED "$basename"` } # func_basename may be replaced by extended shell implementation # func_dirname_and_basename file append nondir_replacement # perform func_basename and func_dirname in a single function # call: # dirname: Compute the dirname of FILE. If nonempty, # add APPEND to the result, otherwise set result # to NONDIR_REPLACEMENT. # value returned in "$func_dirname_result" # basename: Compute filename of FILE. # value retuned in "$func_basename_result" # Implementation must be kept synchronized with func_dirname # and func_basename. For efficiency, we do not delegate to # those functions but instead duplicate the functionality here. func_dirname_and_basename () { # Extract subdirectory from the argument. func_dirname_result=`$ECHO "${1}" | $SED -e "$dirname"` if test "X$func_dirname_result" = "X${1}"; then func_dirname_result="${3}" else func_dirname_result="$func_dirname_result${2}" fi func_basename_result=`$ECHO "${1}" | $SED -e "$basename"` } # func_dirname_and_basename may be replaced by extended shell implementation # func_stripname prefix suffix name # strip PREFIX and SUFFIX off of NAME. # PREFIX and SUFFIX must not contain globbing or regex special # characters, hashes, percent signs, but SUFFIX may contain a leading # dot (in which case that matches only a dot). # func_strip_suffix prefix name func_stripname () { case ${2} in .*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;; *) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;; esac } # func_stripname may be replaced by extended shell implementation # These SED scripts presuppose an absolute path with a trailing slash. pathcar='s,^/\([^/]*\).*$,\1,' pathcdr='s,^/[^/]*,,' removedotparts=':dotsl s@/\./@/@g t dotsl s,/\.$,/,' collapseslashes='s@/\{1,\}@/@g' finalslash='s,/*$,/,' # func_normal_abspath PATH # Remove doubled-up and trailing slashes, "." path components, # and cancel out any ".." path components in PATH after making # it an absolute path. # value returned in "$func_normal_abspath_result" func_normal_abspath () { # Start from root dir and reassemble the path. func_normal_abspath_result= func_normal_abspath_tpath=$1 func_normal_abspath_altnamespace= case $func_normal_abspath_tpath in "") # Empty path, that just means $cwd. func_stripname '' '/' "`pwd`" func_normal_abspath_result=$func_stripname_result return ;; # The next three entries are used to spot a run of precisely # two leading slashes without using negated character classes; # we take advantage of case's first-match behaviour. ///*) # Unusual form of absolute path, do nothing. ;; //*) # Not necessarily an ordinary path; POSIX reserves leading '//' # and for example Cygwin uses it to access remote file shares # over CIFS/SMB, so we conserve a leading double slash if found. func_normal_abspath_altnamespace=/ ;; /*) # Absolute path, do nothing. ;; *) # Relative path, prepend $cwd. func_normal_abspath_tpath=`pwd`/$func_normal_abspath_tpath ;; esac # Cancel out all the simple stuff to save iterations. We also want # the path to end with a slash for ease of parsing, so make sure # there is one (and only one) here. func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$removedotparts" -e "$collapseslashes" -e "$finalslash"` while :; do # Processed it all yet? if test "$func_normal_abspath_tpath" = / ; then # If we ascended to the root using ".." the result may be empty now. if test -z "$func_normal_abspath_result" ; then func_normal_abspath_result=/ fi break fi func_normal_abspath_tcomponent=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$pathcar"` func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$pathcdr"` # Figure out what to do with it case $func_normal_abspath_tcomponent in "") # Trailing empty path component, ignore it. ;; ..) # Parent dir; strip last assembled component from result. func_dirname "$func_normal_abspath_result" func_normal_abspath_result=$func_dirname_result ;; *) # Actual path component, append it. func_normal_abspath_result=$func_normal_abspath_result/$func_normal_abspath_tcomponent ;; esac done # Restore leading double-slash if one was found on entry. func_normal_abspath_result=$func_normal_abspath_altnamespace$func_normal_abspath_result } # func_relative_path SRCDIR DSTDIR # generates a relative path from SRCDIR to DSTDIR, with a trailing # slash if non-empty, suitable for immediately appending a filename # without needing to append a separator. # value returned in "$func_relative_path_result" func_relative_path () { func_relative_path_result= func_normal_abspath "$1" func_relative_path_tlibdir=$func_normal_abspath_result func_normal_abspath "$2" func_relative_path_tbindir=$func_normal_abspath_result # Ascend the tree starting from libdir while :; do # check if we have found a prefix of bindir case $func_relative_path_tbindir in $func_relative_path_tlibdir) # found an exact match func_relative_path_tcancelled= break ;; $func_relative_path_tlibdir*) # found a matching prefix func_stripname "$func_relative_path_tlibdir" '' "$func_relative_path_tbindir" func_relative_path_tcancelled=$func_stripname_result if test -z "$func_relative_path_result"; then func_relative_path_result=. fi break ;; *) func_dirname $func_relative_path_tlibdir func_relative_path_tlibdir=${func_dirname_result} if test "x$func_relative_path_tlibdir" = x ; then # Have to descend all the way to the root! func_relative_path_result=../$func_relative_path_result func_relative_path_tcancelled=$func_relative_path_tbindir break fi func_relative_path_result=../$func_relative_path_result ;; esac done # Now calculate path; take care to avoid doubling-up slashes. func_stripname '' '/' "$func_relative_path_result" func_relative_path_result=$func_stripname_result func_stripname '/' '/' "$func_relative_path_tcancelled" if test "x$func_stripname_result" != x ; then func_relative_path_result=${func_relative_path_result}/${func_stripname_result} fi # Normalisation. If bindir is libdir, return empty string, # else relative path ending with a slash; either way, target # file name can be directly appended. if test ! -z "$func_relative_path_result"; then func_stripname './' '' "$func_relative_path_result/" func_relative_path_result=$func_stripname_result fi } # The name of this program: func_dirname_and_basename "$progpath" progname=$func_basename_result # Make sure we have an absolute path for reexecution: case $progpath in [\\/]*|[A-Za-z]:\\*) ;; *[\\/]*) progdir=$func_dirname_result progdir=`cd "$progdir" && pwd` progpath="$progdir/$progname" ;; *) save_IFS="$IFS" IFS=${PATH_SEPARATOR-:} for progdir in $PATH; do IFS="$save_IFS" test -x "$progdir/$progname" && break done IFS="$save_IFS" test -n "$progdir" || progdir=`pwd` progpath="$progdir/$progname" ;; esac # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. Xsed="${SED}"' -e 1s/^X//' sed_quote_subst='s/\([`"$\\]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\(["`\\]\)/\\\1/g' # Sed substitution that turns a string into a regex matching for the # string literally. sed_make_literal_regex='s,[].[^$\\*\/],\\&,g' # Sed substitution that converts a w32 file name or path # which contains forward slashes, into one that contains # (escaped) backslashes. A very naive implementation. lt_sed_naive_backslashify='s|\\\\*|\\|g;s|/|\\|g;s|\\|\\\\|g' # Re-`\' parameter expansions in output of double_quote_subst that were # `\'-ed in input to the same. If an odd number of `\' preceded a '$' # in input to double_quote_subst, that '$' was protected from expansion. # Since each input `\' is now two `\'s, look for any number of runs of # four `\'s followed by two `\'s and then a '$'. `\' that '$'. bs='\\' bs2='\\\\' bs4='\\\\\\\\' dollar='\$' sed_double_backslash="\ s/$bs4/&\\ /g s/^$bs2$dollar/$bs&/ s/\\([^$bs]\\)$bs2$dollar/\\1$bs2$bs$dollar/g s/\n//g" # Standard options: opt_dry_run=false opt_help=false opt_quiet=false opt_verbose=false opt_warning=: # func_echo arg... # Echo program name prefixed message, along with the current mode # name if it has been set yet. func_echo () { $ECHO "$progname: ${opt_mode+$opt_mode: }$*" } # func_verbose arg... # Echo program name prefixed message in verbose mode only. func_verbose () { $opt_verbose && func_echo ${1+"$@"} # A bug in bash halts the script if the last line of a function # fails when set -e is in force, so we need another command to # work around that: : } # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "$*" } # func_error arg... # Echo program name prefixed message to standard error. func_error () { $ECHO "$progname: ${opt_mode+$opt_mode: }"${1+"$@"} 1>&2 } # func_warning arg... # Echo program name prefixed warning message to standard error. func_warning () { $opt_warning && $ECHO "$progname: ${opt_mode+$opt_mode: }warning: "${1+"$@"} 1>&2 # bash bug again: : } # func_fatal_error arg... # Echo program name prefixed message to standard error, and exit. func_fatal_error () { func_error ${1+"$@"} exit $EXIT_FAILURE } # func_fatal_help arg... # Echo program name prefixed message to standard error, followed by # a help hint, and exit. func_fatal_help () { func_error ${1+"$@"} func_fatal_error "$help" } help="Try \`$progname --help' for more information." ## default # func_grep expression filename # Check whether EXPRESSION matches any line of FILENAME, without output. func_grep () { $GREP "$1" "$2" >/dev/null 2>&1 } # func_mkdir_p directory-path # Make sure the entire path to DIRECTORY-PATH is available. func_mkdir_p () { my_directory_path="$1" my_dir_list= if test -n "$my_directory_path" && test "$opt_dry_run" != ":"; then # Protect directory names starting with `-' case $my_directory_path in -*) my_directory_path="./$my_directory_path" ;; esac # While some portion of DIR does not yet exist... while test ! -d "$my_directory_path"; do # ...make a list in topmost first order. Use a colon delimited # list incase some portion of path contains whitespace. my_dir_list="$my_directory_path:$my_dir_list" # If the last portion added has no slash in it, the list is done case $my_directory_path in */*) ;; *) break ;; esac # ...otherwise throw away the child directory and loop my_directory_path=`$ECHO "$my_directory_path" | $SED -e "$dirname"` done my_dir_list=`$ECHO "$my_dir_list" | $SED 's,:*$,,'` save_mkdir_p_IFS="$IFS"; IFS=':' for my_dir in $my_dir_list; do IFS="$save_mkdir_p_IFS" # mkdir can fail with a `File exist' error if two processes # try to create one of the directories concurrently. Don't # stop in that case! $MKDIR "$my_dir" 2>/dev/null || : done IFS="$save_mkdir_p_IFS" # Bail out if we (or some other process) failed to create a directory. test -d "$my_directory_path" || \ func_fatal_error "Failed to create \`$1'" fi } # func_mktempdir [string] # Make a temporary directory that won't clash with other running # libtool processes, and avoids race conditions if possible. If # given, STRING is the basename for that directory. func_mktempdir () { my_template="${TMPDIR-/tmp}/${1-$progname}" if test "$opt_dry_run" = ":"; then # Return a directory name, but don't create it in dry-run mode my_tmpdir="${my_template}-$$" else # If mktemp works, use that first and foremost my_tmpdir=`mktemp -d "${my_template}-XXXXXXXX" 2>/dev/null` if test ! -d "$my_tmpdir"; then # Failing that, at least try and use $RANDOM to avoid a race my_tmpdir="${my_template}-${RANDOM-0}$$" save_mktempdir_umask=`umask` umask 0077 $MKDIR "$my_tmpdir" umask $save_mktempdir_umask fi # If we're not in dry-run mode, bomb out on failure test -d "$my_tmpdir" || \ func_fatal_error "cannot create temporary directory \`$my_tmpdir'" fi $ECHO "$my_tmpdir" } # func_quote_for_eval arg # Aesthetically quote ARG to be evaled later. # This function returns two values: FUNC_QUOTE_FOR_EVAL_RESULT # is double-quoted, suitable for a subsequent eval, whereas # FUNC_QUOTE_FOR_EVAL_UNQUOTED_RESULT has merely all characters # which are still active within double quotes backslashified. func_quote_for_eval () { case $1 in *[\\\`\"\$]*) func_quote_for_eval_unquoted_result=`$ECHO "$1" | $SED "$sed_quote_subst"` ;; *) func_quote_for_eval_unquoted_result="$1" ;; esac case $func_quote_for_eval_unquoted_result in # Double-quote args containing shell metacharacters to delay # word splitting, command substitution and and variable # expansion for a subsequent eval. # Many Bourne shells cannot handle close brackets correctly # in scan sets, so we specify it separately. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") func_quote_for_eval_result="\"$func_quote_for_eval_unquoted_result\"" ;; *) func_quote_for_eval_result="$func_quote_for_eval_unquoted_result" esac } # func_quote_for_expand arg # Aesthetically quote ARG to be evaled later; same as above, # but do not quote variable references. func_quote_for_expand () { case $1 in *[\\\`\"]*) my_arg=`$ECHO "$1" | $SED \ -e "$double_quote_subst" -e "$sed_double_backslash"` ;; *) my_arg="$1" ;; esac case $my_arg in # Double-quote args containing shell metacharacters to delay # word splitting and command substitution for a subsequent eval. # Many Bourne shells cannot handle close brackets correctly # in scan sets, so we specify it separately. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") my_arg="\"$my_arg\"" ;; esac func_quote_for_expand_result="$my_arg" } # func_show_eval cmd [fail_exp] # Unless opt_silent is true, then output CMD. Then, if opt_dryrun is # not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP # is given, then evaluate it. func_show_eval () { my_cmd="$1" my_fail_exp="${2-:}" ${opt_silent-false} || { func_quote_for_expand "$my_cmd" eval "func_echo $func_quote_for_expand_result" } if ${opt_dry_run-false}; then :; else eval "$my_cmd" my_status=$? if test "$my_status" -eq 0; then :; else eval "(exit $my_status); $my_fail_exp" fi fi } # func_show_eval_locale cmd [fail_exp] # Unless opt_silent is true, then output CMD. Then, if opt_dryrun is # not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP # is given, then evaluate it. Use the saved locale for evaluation. func_show_eval_locale () { my_cmd="$1" my_fail_exp="${2-:}" ${opt_silent-false} || { func_quote_for_expand "$my_cmd" eval "func_echo $func_quote_for_expand_result" } if ${opt_dry_run-false}; then :; else eval "$lt_user_locale $my_cmd" my_status=$? eval "$lt_safe_locale" if test "$my_status" -eq 0; then :; else eval "(exit $my_status); $my_fail_exp" fi fi } # func_tr_sh # Turn $1 into a string suitable for a shell variable name. # Result is stored in $func_tr_sh_result. All characters # not in the set a-zA-Z0-9_ are replaced with '_'. Further, # if $1 begins with a digit, a '_' is prepended as well. func_tr_sh () { case $1 in [0-9]* | *[!a-zA-Z0-9_]*) func_tr_sh_result=`$ECHO "$1" | $SED 's/^\([0-9]\)/_\1/; s/[^a-zA-Z0-9_]/_/g'` ;; * ) func_tr_sh_result=$1 ;; esac } # func_version # Echo version message to standard output and exit. func_version () { $opt_debug $SED -n '/(C)/!b go :more /\./!{ N s/\n# / / b more } :go /^# '$PROGRAM' (GNU /,/# warranty; / { s/^# // s/^# *$// s/\((C)\)[ 0-9,-]*\( [1-9][0-9]*\)/\1\2/ p }' < "$progpath" exit $? } # func_usage # Echo short help message to standard output and exit. func_usage () { $opt_debug $SED -n '/^# Usage:/,/^# *.*--help/ { s/^# // s/^# *$// s/\$progname/'$progname'/ p }' < "$progpath" echo $ECHO "run \`$progname --help | more' for full usage" exit $? } # func_help [NOEXIT] # Echo long help message to standard output and exit, # unless 'noexit' is passed as argument. func_help () { $opt_debug $SED -n '/^# Usage:/,/# Report bugs to/ { :print s/^# // s/^# *$// s*\$progname*'$progname'* s*\$host*'"$host"'* s*\$SHELL*'"$SHELL"'* s*\$LTCC*'"$LTCC"'* s*\$LTCFLAGS*'"$LTCFLAGS"'* s*\$LD*'"$LD"'* s/\$with_gnu_ld/'"$with_gnu_ld"'/ s/\$automake_version/'"`(${AUTOMAKE-automake} --version) 2>/dev/null |$SED 1q`"'/ s/\$autoconf_version/'"`(${AUTOCONF-autoconf} --version) 2>/dev/null |$SED 1q`"'/ p d } /^# .* home page:/b print /^# General help using/b print ' < "$progpath" ret=$? if test -z "$1"; then exit $ret fi } # func_missing_arg argname # Echo program name prefixed message to standard error and set global # exit_cmd. func_missing_arg () { $opt_debug func_error "missing argument for $1." exit_cmd=exit } # func_split_short_opt shortopt # Set func_split_short_opt_name and func_split_short_opt_arg shell # variables after splitting SHORTOPT after the 2nd character. func_split_short_opt () { my_sed_short_opt='1s/^\(..\).*$/\1/;q' my_sed_short_rest='1s/^..\(.*\)$/\1/;q' func_split_short_opt_name=`$ECHO "$1" | $SED "$my_sed_short_opt"` func_split_short_opt_arg=`$ECHO "$1" | $SED "$my_sed_short_rest"` } # func_split_short_opt may be replaced by extended shell implementation # func_split_long_opt longopt # Set func_split_long_opt_name and func_split_long_opt_arg shell # variables after splitting LONGOPT at the `=' sign. func_split_long_opt () { my_sed_long_opt='1s/^\(--[^=]*\)=.*/\1/;q' my_sed_long_arg='1s/^--[^=]*=//' func_split_long_opt_name=`$ECHO "$1" | $SED "$my_sed_long_opt"` func_split_long_opt_arg=`$ECHO "$1" | $SED "$my_sed_long_arg"` } # func_split_long_opt may be replaced by extended shell implementation exit_cmd=: magic="%%%MAGIC variable%%%" magic_exe="%%%MAGIC EXE variable%%%" # Global variables. nonopt= preserve_args= lo2o="s/\\.lo\$/.${objext}/" o2lo="s/\\.${objext}\$/.lo/" extracted_archives= extracted_serial=0 # If this variable is set in any of the actions, the command in it # will be execed at the end. This prevents here-documents from being # left over by shells. exec_cmd= # func_append var value # Append VALUE to the end of shell variable VAR. func_append () { eval "${1}=\$${1}\${2}" } # func_append may be replaced by extended shell implementation # func_append_quoted var value # Quote VALUE and append to the end of shell variable VAR, separated # by a space. func_append_quoted () { func_quote_for_eval "${2}" eval "${1}=\$${1}\\ \$func_quote_for_eval_result" } # func_append_quoted may be replaced by extended shell implementation # func_arith arithmetic-term... func_arith () { func_arith_result=`expr "${@}"` } # func_arith may be replaced by extended shell implementation # func_len string # STRING may not start with a hyphen. func_len () { func_len_result=`expr "${1}" : ".*" 2>/dev/null || echo $max_cmd_len` } # func_len may be replaced by extended shell implementation # func_lo2o object func_lo2o () { func_lo2o_result=`$ECHO "${1}" | $SED "$lo2o"` } # func_lo2o may be replaced by extended shell implementation # func_xform libobj-or-source func_xform () { func_xform_result=`$ECHO "${1}" | $SED 's/\.[^.]*$/.lo/'` } # func_xform may be replaced by extended shell implementation # func_fatal_configuration arg... # Echo program name prefixed message to standard error, followed by # a configuration failure hint, and exit. func_fatal_configuration () { func_error ${1+"$@"} func_error "See the $PACKAGE documentation for more information." func_fatal_error "Fatal configuration error." } # func_config # Display the configuration for all the tags in this script. func_config () { re_begincf='^# ### BEGIN LIBTOOL' re_endcf='^# ### END LIBTOOL' # Default configuration. $SED "1,/$re_begincf CONFIG/d;/$re_endcf CONFIG/,\$d" < "$progpath" # Now print the configurations for the tags. for tagname in $taglist; do $SED -n "/$re_begincf TAG CONFIG: $tagname\$/,/$re_endcf TAG CONFIG: $tagname\$/p" < "$progpath" done exit $? } # func_features # Display the features supported by this script. func_features () { echo "host: $host" if test "$build_libtool_libs" = yes; then echo "enable shared libraries" else echo "disable shared libraries" fi if test "$build_old_libs" = yes; then echo "enable static libraries" else echo "disable static libraries" fi exit $? } # func_enable_tag tagname # Verify that TAGNAME is valid, and either flag an error and exit, or # enable the TAGNAME tag. We also add TAGNAME to the global $taglist # variable here. func_enable_tag () { # Global variable: tagname="$1" re_begincf="^# ### BEGIN LIBTOOL TAG CONFIG: $tagname\$" re_endcf="^# ### END LIBTOOL TAG CONFIG: $tagname\$" sed_extractcf="/$re_begincf/,/$re_endcf/p" # Validate tagname. case $tagname in *[!-_A-Za-z0-9,/]*) func_fatal_error "invalid tag name: $tagname" ;; esac # Don't test for the "default" C tag, as we know it's # there but not specially marked. case $tagname in CC) ;; *) if $GREP "$re_begincf" "$progpath" >/dev/null 2>&1; then taglist="$taglist $tagname" # Evaluate the configuration. Be careful to quote the path # and the sed script, to avoid splitting on whitespace, but # also don't use non-portable quotes within backquotes within # quotes we have to do it in 2 steps: extractedcf=`$SED -n -e "$sed_extractcf" < "$progpath"` eval "$extractedcf" else func_error "ignoring unknown tag $tagname" fi ;; esac } # func_check_version_match # Ensure that we are using m4 macros, and libtool script from the same # release of libtool. func_check_version_match () { if test "$package_revision" != "$macro_revision"; then if test "$VERSION" != "$macro_version"; then if test -z "$macro_version"; then cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, but the $progname: definition of this LT_INIT comes from an older release. $progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION $progname: and run autoconf again. _LT_EOF else cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, but the $progname: definition of this LT_INIT comes from $PACKAGE $macro_version. $progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION $progname: and run autoconf again. _LT_EOF fi else cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, revision $package_revision, $progname: but the definition of this LT_INIT comes from revision $macro_revision. $progname: You should recreate aclocal.m4 with macros from revision $package_revision $progname: of $PACKAGE $VERSION and run autoconf again. _LT_EOF fi exit $EXIT_MISMATCH fi } # Shorthand for --mode=foo, only valid as the first argument case $1 in clean|clea|cle|cl) shift; set dummy --mode clean ${1+"$@"}; shift ;; compile|compil|compi|comp|com|co|c) shift; set dummy --mode compile ${1+"$@"}; shift ;; execute|execut|execu|exec|exe|ex|e) shift; set dummy --mode execute ${1+"$@"}; shift ;; finish|finis|fini|fin|fi|f) shift; set dummy --mode finish ${1+"$@"}; shift ;; install|instal|insta|inst|ins|in|i) shift; set dummy --mode install ${1+"$@"}; shift ;; link|lin|li|l) shift; set dummy --mode link ${1+"$@"}; shift ;; uninstall|uninstal|uninsta|uninst|unins|unin|uni|un|u) shift; set dummy --mode uninstall ${1+"$@"}; shift ;; esac # Option defaults: opt_debug=: opt_dry_run=false opt_config=false opt_preserve_dup_deps=false opt_features=false opt_finish=false opt_help=false opt_help_all=false opt_silent=: opt_warning=: opt_verbose=: opt_silent=false opt_verbose=false # Parse options once, thoroughly. This comes as soon as possible in the # script to make things like `--version' happen as quickly as we can. { # this just eases exit handling while test $# -gt 0; do opt="$1" shift case $opt in --debug|-x) opt_debug='set -x' func_echo "enabling shell trace mode" $opt_debug ;; --dry-run|--dryrun|-n) opt_dry_run=: ;; --config) opt_config=: func_config ;; --dlopen|-dlopen) optarg="$1" opt_dlopen="${opt_dlopen+$opt_dlopen }$optarg" shift ;; --preserve-dup-deps) opt_preserve_dup_deps=: ;; --features) opt_features=: func_features ;; --finish) opt_finish=: set dummy --mode finish ${1+"$@"}; shift ;; --help) opt_help=: ;; --help-all) opt_help_all=: opt_help=': help-all' ;; --mode) test $# = 0 && func_missing_arg $opt && break optarg="$1" opt_mode="$optarg" case $optarg in # Valid mode arguments: clean|compile|execute|finish|install|link|relink|uninstall) ;; # Catch anything else as an error *) func_error "invalid argument for $opt" exit_cmd=exit break ;; esac shift ;; --no-silent|--no-quiet) opt_silent=false func_append preserve_args " $opt" ;; --no-warning|--no-warn) opt_warning=false func_append preserve_args " $opt" ;; --no-verbose) opt_verbose=false func_append preserve_args " $opt" ;; --silent|--quiet) opt_silent=: func_append preserve_args " $opt" opt_verbose=false ;; --verbose|-v) opt_verbose=: func_append preserve_args " $opt" opt_silent=false ;; --tag) test $# = 0 && func_missing_arg $opt && break optarg="$1" opt_tag="$optarg" func_append preserve_args " $opt $optarg" func_enable_tag "$optarg" shift ;; -\?|-h) func_usage ;; --help) func_help ;; --version) func_version ;; # Separate optargs to long options: --*=*) func_split_long_opt "$opt" set dummy "$func_split_long_opt_name" "$func_split_long_opt_arg" ${1+"$@"} shift ;; # Separate non-argument short options: -\?*|-h*|-n*|-v*) func_split_short_opt "$opt" set dummy "$func_split_short_opt_name" "-$func_split_short_opt_arg" ${1+"$@"} shift ;; --) break ;; -*) func_fatal_help "unrecognized option \`$opt'" ;; *) set dummy "$opt" ${1+"$@"}; shift; break ;; esac done # Validate options: # save first non-option argument if test "$#" -gt 0; then nonopt="$opt" shift fi # preserve --debug test "$opt_debug" = : || func_append preserve_args " --debug" case $host in *cygwin* | *mingw* | *pw32* | *cegcc*) # don't eliminate duplications in $postdeps and $predeps opt_duplicate_compiler_generated_deps=: ;; *) opt_duplicate_compiler_generated_deps=$opt_preserve_dup_deps ;; esac $opt_help || { # Sanity checks first: func_check_version_match if test "$build_libtool_libs" != yes && test "$build_old_libs" != yes; then func_fatal_configuration "not configured to build any kind of library" fi # Darwin sucks eval std_shrext=\"$shrext_cmds\" # Only execute mode is allowed to have -dlopen flags. if test -n "$opt_dlopen" && test "$opt_mode" != execute; then func_error "unrecognized option \`-dlopen'" $ECHO "$help" 1>&2 exit $EXIT_FAILURE fi # Change the help message to a mode-specific one. generic_help="$help" help="Try \`$progname --help --mode=$opt_mode' for more information." } # Bail if the options were screwed $exit_cmd $EXIT_FAILURE } ## ----------- ## ## Main. ## ## ----------- ## # func_lalib_p file # True iff FILE is a libtool `.la' library or `.lo' object file. # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_lalib_p () { test -f "$1" && $SED -e 4q "$1" 2>/dev/null \ | $GREP "^# Generated by .*$PACKAGE" > /dev/null 2>&1 } # func_lalib_unsafe_p file # True iff FILE is a libtool `.la' library or `.lo' object file. # This function implements the same check as func_lalib_p without # resorting to external programs. To this end, it redirects stdin and # closes it afterwards, without saving the original file descriptor. # As a safety measure, use it only where a negative result would be # fatal anyway. Works if `file' does not exist. func_lalib_unsafe_p () { lalib_p=no if test -f "$1" && test -r "$1" && exec 5<&0 <"$1"; then for lalib_p_l in 1 2 3 4 do read lalib_p_line case "$lalib_p_line" in \#\ Generated\ by\ *$PACKAGE* ) lalib_p=yes; break;; esac done exec 0<&5 5<&- fi test "$lalib_p" = yes } # func_ltwrapper_script_p file # True iff FILE is a libtool wrapper script # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_script_p () { func_lalib_p "$1" } # func_ltwrapper_executable_p file # True iff FILE is a libtool wrapper executable # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_executable_p () { func_ltwrapper_exec_suffix= case $1 in *.exe) ;; *) func_ltwrapper_exec_suffix=.exe ;; esac $GREP "$magic_exe" "$1$func_ltwrapper_exec_suffix" >/dev/null 2>&1 } # func_ltwrapper_scriptname file # Assumes file is an ltwrapper_executable # uses $file to determine the appropriate filename for a # temporary ltwrapper_script. func_ltwrapper_scriptname () { func_dirname_and_basename "$1" "" "." func_stripname '' '.exe' "$func_basename_result" func_ltwrapper_scriptname_result="$func_dirname_result/$objdir/${func_stripname_result}_ltshwrapper" } # func_ltwrapper_p file # True iff FILE is a libtool wrapper script or wrapper executable # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_p () { func_ltwrapper_script_p "$1" || func_ltwrapper_executable_p "$1" } # func_execute_cmds commands fail_cmd # Execute tilde-delimited COMMANDS. # If FAIL_CMD is given, eval that upon failure. # FAIL_CMD may read-access the current command in variable CMD! func_execute_cmds () { $opt_debug save_ifs=$IFS; IFS='~' for cmd in $1; do IFS=$save_ifs eval cmd=\"$cmd\" func_show_eval "$cmd" "${2-:}" done IFS=$save_ifs } # func_source file # Source FILE, adding directory component if necessary. # Note that it is not necessary on cygwin/mingw to append a dot to # FILE even if both FILE and FILE.exe exist: automatic-append-.exe # behavior happens only for exec(3), not for open(2)! Also, sourcing # `FILE.' does not work on cygwin managed mounts. func_source () { $opt_debug case $1 in */* | *\\*) . "$1" ;; *) . "./$1" ;; esac } # func_resolve_sysroot PATH # Replace a leading = in PATH with a sysroot. Store the result into # func_resolve_sysroot_result func_resolve_sysroot () { func_resolve_sysroot_result=$1 case $func_resolve_sysroot_result in =*) func_stripname '=' '' "$func_resolve_sysroot_result" func_resolve_sysroot_result=$lt_sysroot$func_stripname_result ;; esac } # func_replace_sysroot PATH # If PATH begins with the sysroot, replace it with = and # store the result into func_replace_sysroot_result. func_replace_sysroot () { case "$lt_sysroot:$1" in ?*:"$lt_sysroot"*) func_stripname "$lt_sysroot" '' "$1" func_replace_sysroot_result="=$func_stripname_result" ;; *) # Including no sysroot. func_replace_sysroot_result=$1 ;; esac } # func_infer_tag arg # Infer tagged configuration to use if any are available and # if one wasn't chosen via the "--tag" command line option. # Only attempt this if the compiler in the base compile # command doesn't match the default compiler. # arg is usually of the form 'gcc ...' func_infer_tag () { $opt_debug if test -n "$available_tags" && test -z "$tagname"; then CC_quoted= for arg in $CC; do func_append_quoted CC_quoted "$arg" done CC_expanded=`func_echo_all $CC` CC_quoted_expanded=`func_echo_all $CC_quoted` case $@ in # Blanks in the command may have been stripped by the calling shell, # but not from the CC environment variable when configure was run. " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \ " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) ;; # Blanks at the start of $base_compile will cause this to fail # if we don't check for them as well. *) for z in $available_tags; do if $GREP "^# ### BEGIN LIBTOOL TAG CONFIG: $z$" < "$progpath" > /dev/null; then # Evaluate the configuration. eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^# ### END LIBTOOL TAG CONFIG: '$z'$/p' < $progpath`" CC_quoted= for arg in $CC; do # Double-quote args containing other shell metacharacters. func_append_quoted CC_quoted "$arg" done CC_expanded=`func_echo_all $CC` CC_quoted_expanded=`func_echo_all $CC_quoted` case "$@ " in " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \ " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) # The compiler in the base compile command matches # the one in the tagged configuration. # Assume this is the tagged configuration we want. tagname=$z break ;; esac fi done # If $tagname still isn't set, then no tagged configuration # was found and let the user know that the "--tag" command # line option must be used. if test -z "$tagname"; then func_echo "unable to infer tagged configuration" func_fatal_error "specify a tag with \`--tag'" # else # func_verbose "using $tagname tagged configuration" fi ;; esac fi } # func_write_libtool_object output_name pic_name nonpic_name # Create a libtool object file (analogous to a ".la" file), # but don't create it if we're doing a dry run. func_write_libtool_object () { write_libobj=${1} if test "$build_libtool_libs" = yes; then write_lobj=\'${2}\' else write_lobj=none fi if test "$build_old_libs" = yes; then write_oldobj=\'${3}\' else write_oldobj=none fi $opt_dry_run || { cat >${write_libobj}T </dev/null` if test "$?" -eq 0 && test -n "${func_convert_core_file_wine_to_w32_tmp}"; then func_convert_core_file_wine_to_w32_result=`$ECHO "$func_convert_core_file_wine_to_w32_tmp" | $SED -e "$lt_sed_naive_backslashify"` else func_convert_core_file_wine_to_w32_result= fi fi } # end: func_convert_core_file_wine_to_w32 # func_convert_core_path_wine_to_w32 ARG # Helper function used by path conversion functions when $build is *nix, and # $host is mingw, cygwin, or some other w32 environment. Relies on a correctly # configured wine environment available, with the winepath program in $build's # $PATH. Assumes ARG has no leading or trailing path separator characters. # # ARG is path to be converted from $build format to win32. # Result is available in $func_convert_core_path_wine_to_w32_result. # Unconvertible file (directory) names in ARG are skipped; if no directory names # are convertible, then the result may be empty. func_convert_core_path_wine_to_w32 () { $opt_debug # unfortunately, winepath doesn't convert paths, only file names func_convert_core_path_wine_to_w32_result="" if test -n "$1"; then oldIFS=$IFS IFS=: for func_convert_core_path_wine_to_w32_f in $1; do IFS=$oldIFS func_convert_core_file_wine_to_w32 "$func_convert_core_path_wine_to_w32_f" if test -n "$func_convert_core_file_wine_to_w32_result" ; then if test -z "$func_convert_core_path_wine_to_w32_result"; then func_convert_core_path_wine_to_w32_result="$func_convert_core_file_wine_to_w32_result" else func_append func_convert_core_path_wine_to_w32_result ";$func_convert_core_file_wine_to_w32_result" fi fi done IFS=$oldIFS fi } # end: func_convert_core_path_wine_to_w32 # func_cygpath ARGS... # Wrapper around calling the cygpath program via LT_CYGPATH. This is used when # when (1) $build is *nix and Cygwin is hosted via a wine environment; or (2) # $build is MSYS and $host is Cygwin, or (3) $build is Cygwin. In case (1) or # (2), returns the Cygwin file name or path in func_cygpath_result (input # file name or path is assumed to be in w32 format, as previously converted # from $build's *nix or MSYS format). In case (3), returns the w32 file name # or path in func_cygpath_result (input file name or path is assumed to be in # Cygwin format). Returns an empty string on error. # # ARGS are passed to cygpath, with the last one being the file name or path to # be converted. # # Specify the absolute *nix (or w32) name to cygpath in the LT_CYGPATH # environment variable; do not put it in $PATH. func_cygpath () { $opt_debug if test -n "$LT_CYGPATH" && test -f "$LT_CYGPATH"; then func_cygpath_result=`$LT_CYGPATH "$@" 2>/dev/null` if test "$?" -ne 0; then # on failure, ensure result is empty func_cygpath_result= fi else func_cygpath_result= func_error "LT_CYGPATH is empty or specifies non-existent file: \`$LT_CYGPATH'" fi } #end: func_cygpath # func_convert_core_msys_to_w32 ARG # Convert file name or path ARG from MSYS format to w32 format. Return # result in func_convert_core_msys_to_w32_result. func_convert_core_msys_to_w32 () { $opt_debug # awkward: cmd appends spaces to result func_convert_core_msys_to_w32_result=`( cmd //c echo "$1" ) 2>/dev/null | $SED -e 's/[ ]*$//' -e "$lt_sed_naive_backslashify"` } #end: func_convert_core_msys_to_w32 # func_convert_file_check ARG1 ARG2 # Verify that ARG1 (a file name in $build format) was converted to $host # format in ARG2. Otherwise, emit an error message, but continue (resetting # func_to_host_file_result to ARG1). func_convert_file_check () { $opt_debug if test -z "$2" && test -n "$1" ; then func_error "Could not determine host file name corresponding to" func_error " \`$1'" func_error "Continuing, but uninstalled executables may not work." # Fallback: func_to_host_file_result="$1" fi } # end func_convert_file_check # func_convert_path_check FROM_PATHSEP TO_PATHSEP FROM_PATH TO_PATH # Verify that FROM_PATH (a path in $build format) was converted to $host # format in TO_PATH. Otherwise, emit an error message, but continue, resetting # func_to_host_file_result to a simplistic fallback value (see below). func_convert_path_check () { $opt_debug if test -z "$4" && test -n "$3"; then func_error "Could not determine the host path corresponding to" func_error " \`$3'" func_error "Continuing, but uninstalled executables may not work." # Fallback. This is a deliberately simplistic "conversion" and # should not be "improved". See libtool.info. if test "x$1" != "x$2"; then lt_replace_pathsep_chars="s|$1|$2|g" func_to_host_path_result=`echo "$3" | $SED -e "$lt_replace_pathsep_chars"` else func_to_host_path_result="$3" fi fi } # end func_convert_path_check # func_convert_path_front_back_pathsep FRONTPAT BACKPAT REPL ORIG # Modifies func_to_host_path_result by prepending REPL if ORIG matches FRONTPAT # and appending REPL if ORIG matches BACKPAT. func_convert_path_front_back_pathsep () { $opt_debug case $4 in $1 ) func_to_host_path_result="$3$func_to_host_path_result" ;; esac case $4 in $2 ) func_append func_to_host_path_result "$3" ;; esac } # end func_convert_path_front_back_pathsep ################################################## # $build to $host FILE NAME CONVERSION FUNCTIONS # ################################################## # invoked via `$to_host_file_cmd ARG' # # In each case, ARG is the path to be converted from $build to $host format. # Result will be available in $func_to_host_file_result. # func_to_host_file ARG # Converts the file name ARG from $build format to $host format. Return result # in func_to_host_file_result. func_to_host_file () { $opt_debug $to_host_file_cmd "$1" } # end func_to_host_file # func_to_tool_file ARG LAZY # converts the file name ARG from $build format to toolchain format. Return # result in func_to_tool_file_result. If the conversion in use is listed # in (the comma separated) LAZY, no conversion takes place. func_to_tool_file () { $opt_debug case ,$2, in *,"$to_tool_file_cmd",*) func_to_tool_file_result=$1 ;; *) $to_tool_file_cmd "$1" func_to_tool_file_result=$func_to_host_file_result ;; esac } # end func_to_tool_file # func_convert_file_noop ARG # Copy ARG to func_to_host_file_result. func_convert_file_noop () { func_to_host_file_result="$1" } # end func_convert_file_noop # func_convert_file_msys_to_w32 ARG # Convert file name ARG from (mingw) MSYS to (mingw) w32 format; automatic # conversion to w32 is not available inside the cwrapper. Returns result in # func_to_host_file_result. func_convert_file_msys_to_w32 () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then func_convert_core_msys_to_w32 "$1" func_to_host_file_result="$func_convert_core_msys_to_w32_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_msys_to_w32 # func_convert_file_cygwin_to_w32 ARG # Convert file name ARG from Cygwin to w32 format. Returns result in # func_to_host_file_result. func_convert_file_cygwin_to_w32 () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then # because $build is cygwin, we call "the" cygpath in $PATH; no need to use # LT_CYGPATH in this case. func_to_host_file_result=`cygpath -m "$1"` fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_cygwin_to_w32 # func_convert_file_nix_to_w32 ARG # Convert file name ARG from *nix to w32 format. Requires a wine environment # and a working winepath. Returns result in func_to_host_file_result. func_convert_file_nix_to_w32 () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then func_convert_core_file_wine_to_w32 "$1" func_to_host_file_result="$func_convert_core_file_wine_to_w32_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_nix_to_w32 # func_convert_file_msys_to_cygwin ARG # Convert file name ARG from MSYS to Cygwin format. Requires LT_CYGPATH set. # Returns result in func_to_host_file_result. func_convert_file_msys_to_cygwin () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then func_convert_core_msys_to_w32 "$1" func_cygpath -u "$func_convert_core_msys_to_w32_result" func_to_host_file_result="$func_cygpath_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_msys_to_cygwin # func_convert_file_nix_to_cygwin ARG # Convert file name ARG from *nix to Cygwin format. Requires Cygwin installed # in a wine environment, working winepath, and LT_CYGPATH set. Returns result # in func_to_host_file_result. func_convert_file_nix_to_cygwin () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then # convert from *nix to w32, then use cygpath to convert from w32 to cygwin. func_convert_core_file_wine_to_w32 "$1" func_cygpath -u "$func_convert_core_file_wine_to_w32_result" func_to_host_file_result="$func_cygpath_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_nix_to_cygwin ############################################# # $build to $host PATH CONVERSION FUNCTIONS # ############################################# # invoked via `$to_host_path_cmd ARG' # # In each case, ARG is the path to be converted from $build to $host format. # The result will be available in $func_to_host_path_result. # # Path separators are also converted from $build format to $host format. If # ARG begins or ends with a path separator character, it is preserved (but # converted to $host format) on output. # # All path conversion functions are named using the following convention: # file name conversion function : func_convert_file_X_to_Y () # path conversion function : func_convert_path_X_to_Y () # where, for any given $build/$host combination the 'X_to_Y' value is the # same. If conversion functions are added for new $build/$host combinations, # the two new functions must follow this pattern, or func_init_to_host_path_cmd # will break. # func_init_to_host_path_cmd # Ensures that function "pointer" variable $to_host_path_cmd is set to the # appropriate value, based on the value of $to_host_file_cmd. to_host_path_cmd= func_init_to_host_path_cmd () { $opt_debug if test -z "$to_host_path_cmd"; then func_stripname 'func_convert_file_' '' "$to_host_file_cmd" to_host_path_cmd="func_convert_path_${func_stripname_result}" fi } # func_to_host_path ARG # Converts the path ARG from $build format to $host format. Return result # in func_to_host_path_result. func_to_host_path () { $opt_debug func_init_to_host_path_cmd $to_host_path_cmd "$1" } # end func_to_host_path # func_convert_path_noop ARG # Copy ARG to func_to_host_path_result. func_convert_path_noop () { func_to_host_path_result="$1" } # end func_convert_path_noop # func_convert_path_msys_to_w32 ARG # Convert path ARG from (mingw) MSYS to (mingw) w32 format; automatic # conversion to w32 is not available inside the cwrapper. Returns result in # func_to_host_path_result. func_convert_path_msys_to_w32 () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # Remove leading and trailing path separator characters from ARG. MSYS # behavior is inconsistent here; cygpath turns them into '.;' and ';.'; # and winepath ignores them completely. func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_msys_to_w32 "$func_to_host_path_tmp1" func_to_host_path_result="$func_convert_core_msys_to_w32_result" func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_msys_to_w32 # func_convert_path_cygwin_to_w32 ARG # Convert path ARG from Cygwin to w32 format. Returns result in # func_to_host_file_result. func_convert_path_cygwin_to_w32 () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_to_host_path_result=`cygpath -m -p "$func_to_host_path_tmp1"` func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_cygwin_to_w32 # func_convert_path_nix_to_w32 ARG # Convert path ARG from *nix to w32 format. Requires a wine environment and # a working winepath. Returns result in func_to_host_file_result. func_convert_path_nix_to_w32 () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1" func_to_host_path_result="$func_convert_core_path_wine_to_w32_result" func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_nix_to_w32 # func_convert_path_msys_to_cygwin ARG # Convert path ARG from MSYS to Cygwin format. Requires LT_CYGPATH set. # Returns result in func_to_host_file_result. func_convert_path_msys_to_cygwin () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_msys_to_w32 "$func_to_host_path_tmp1" func_cygpath -u -p "$func_convert_core_msys_to_w32_result" func_to_host_path_result="$func_cygpath_result" func_convert_path_check : : \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" : "$1" fi } # end func_convert_path_msys_to_cygwin # func_convert_path_nix_to_cygwin ARG # Convert path ARG from *nix to Cygwin format. Requires Cygwin installed in a # a wine environment, working winepath, and LT_CYGPATH set. Returns result in # func_to_host_file_result. func_convert_path_nix_to_cygwin () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # Remove leading and trailing path separator characters from # ARG. msys behavior is inconsistent here, cygpath turns them # into '.;' and ';.', and winepath ignores them completely. func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1" func_cygpath -u -p "$func_convert_core_path_wine_to_w32_result" func_to_host_path_result="$func_cygpath_result" func_convert_path_check : : \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" : "$1" fi } # end func_convert_path_nix_to_cygwin # func_mode_compile arg... func_mode_compile () { $opt_debug # Get the compilation command and the source file. base_compile= srcfile="$nonopt" # always keep a non-empty value in "srcfile" suppress_opt=yes suppress_output= arg_mode=normal libobj= later= pie_flag= for arg do case $arg_mode in arg ) # do not "continue". Instead, add this to base_compile lastarg="$arg" arg_mode=normal ;; target ) libobj="$arg" arg_mode=normal continue ;; normal ) # Accept any command-line options. case $arg in -o) test -n "$libobj" && \ func_fatal_error "you cannot specify \`-o' more than once" arg_mode=target continue ;; -pie | -fpie | -fPIE) func_append pie_flag " $arg" continue ;; -shared | -static | -prefer-pic | -prefer-non-pic) func_append later " $arg" continue ;; -no-suppress) suppress_opt=no continue ;; -Xcompiler) arg_mode=arg # the next one goes into the "base_compile" arg list continue # The current "srcfile" will either be retained or ;; # replaced later. I would guess that would be a bug. -Wc,*) func_stripname '-Wc,' '' "$arg" args=$func_stripname_result lastarg= save_ifs="$IFS"; IFS=',' for arg in $args; do IFS="$save_ifs" func_append_quoted lastarg "$arg" done IFS="$save_ifs" func_stripname ' ' '' "$lastarg" lastarg=$func_stripname_result # Add the arguments to base_compile. func_append base_compile " $lastarg" continue ;; *) # Accept the current argument as the source file. # The previous "srcfile" becomes the current argument. # lastarg="$srcfile" srcfile="$arg" ;; esac # case $arg ;; esac # case $arg_mode # Aesthetically quote the previous argument. func_append_quoted base_compile "$lastarg" done # for arg case $arg_mode in arg) func_fatal_error "you must specify an argument for -Xcompile" ;; target) func_fatal_error "you must specify a target with \`-o'" ;; *) # Get the name of the library object. test -z "$libobj" && { func_basename "$srcfile" libobj="$func_basename_result" } ;; esac # Recognize several different file suffixes. # If the user specifies -o file.o, it is replaced with file.lo case $libobj in *.[cCFSifmso] | \ *.ada | *.adb | *.ads | *.asm | \ *.c++ | *.cc | *.ii | *.class | *.cpp | *.cxx | \ *.[fF][09]? | *.for | *.java | *.go | *.obj | *.sx | *.cu | *.cup) func_xform "$libobj" libobj=$func_xform_result ;; esac case $libobj in *.lo) func_lo2o "$libobj"; obj=$func_lo2o_result ;; *) func_fatal_error "cannot determine name of library object from \`$libobj'" ;; esac func_infer_tag $base_compile for arg in $later; do case $arg in -shared) test "$build_libtool_libs" != yes && \ func_fatal_configuration "can not build a shared library" build_old_libs=no continue ;; -static) build_libtool_libs=no build_old_libs=yes continue ;; -prefer-pic) pic_mode=yes continue ;; -prefer-non-pic) pic_mode=no continue ;; esac done func_quote_for_eval "$libobj" test "X$libobj" != "X$func_quote_for_eval_result" \ && $ECHO "X$libobj" | $GREP '[]~#^*{};<>?"'"'"' &()|`$[]' \ && func_warning "libobj name \`$libobj' may not contain shell special characters." func_dirname_and_basename "$obj" "/" "" objname="$func_basename_result" xdir="$func_dirname_result" lobj=${xdir}$objdir/$objname test -z "$base_compile" && \ func_fatal_help "you must specify a compilation command" # Delete any leftover library objects. if test "$build_old_libs" = yes; then removelist="$obj $lobj $libobj ${libobj}T" else removelist="$lobj $libobj ${libobj}T" fi # On Cygwin there's no "real" PIC flag so we must build both object types case $host_os in cygwin* | mingw* | pw32* | os2* | cegcc*) pic_mode=default ;; esac if test "$pic_mode" = no && test "$deplibs_check_method" != pass_all; then # non-PIC code in shared libraries is not supported pic_mode=default fi # Calculate the filename of the output object if compiler does # not support -o with -c if test "$compiler_c_o" = no; then output_obj=`$ECHO "$srcfile" | $SED 's%^.*/%%; s%\.[^.]*$%%'`.${objext} lockfile="$output_obj.lock" else output_obj= need_locks=no lockfile= fi # Lock this critical section if it is needed # We use this script file to make the link, it avoids creating a new file if test "$need_locks" = yes; then until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do func_echo "Waiting for $lockfile to be removed" sleep 2 done elif test "$need_locks" = warn; then if test -f "$lockfile"; then $ECHO "\ *** ERROR, $lockfile exists and contains: `cat $lockfile 2>/dev/null` This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi func_append removelist " $output_obj" $ECHO "$srcfile" > "$lockfile" fi $opt_dry_run || $RM $removelist func_append removelist " $lockfile" trap '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' 1 2 15 func_to_tool_file "$srcfile" func_convert_file_msys_to_w32 srcfile=$func_to_tool_file_result func_quote_for_eval "$srcfile" qsrcfile=$func_quote_for_eval_result # Only build a PIC object if we are building libtool libraries. if test "$build_libtool_libs" = yes; then # Without this assignment, base_compile gets emptied. fbsd_hideous_sh_bug=$base_compile if test "$pic_mode" != no; then command="$base_compile $qsrcfile $pic_flag" else # Don't build PIC code command="$base_compile $qsrcfile" fi func_mkdir_p "$xdir$objdir" if test -z "$output_obj"; then # Place PIC objects in $objdir func_append command " -o $lobj" fi func_show_eval_locale "$command" \ 'test -n "$output_obj" && $RM $removelist; exit $EXIT_FAILURE' if test "$need_locks" = warn && test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then $ECHO "\ *** ERROR, $lockfile contains: `cat $lockfile 2>/dev/null` but it should contain: $srcfile This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi # Just move the object if needed, then go on to compile the next one if test -n "$output_obj" && test "X$output_obj" != "X$lobj"; then func_show_eval '$MV "$output_obj" "$lobj"' \ 'error=$?; $opt_dry_run || $RM $removelist; exit $error' fi # Allow error messages only from the first compilation. if test "$suppress_opt" = yes; then suppress_output=' >/dev/null 2>&1' fi fi # Only build a position-dependent object if we build old libraries. if test "$build_old_libs" = yes; then if test "$pic_mode" != yes; then # Don't build PIC code command="$base_compile $qsrcfile$pie_flag" else command="$base_compile $qsrcfile $pic_flag" fi if test "$compiler_c_o" = yes; then func_append command " -o $obj" fi # Suppress compiler output if we already did a PIC compilation. func_append command "$suppress_output" func_show_eval_locale "$command" \ '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' if test "$need_locks" = warn && test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then $ECHO "\ *** ERROR, $lockfile contains: `cat $lockfile 2>/dev/null` but it should contain: $srcfile This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi # Just move the object if needed if test -n "$output_obj" && test "X$output_obj" != "X$obj"; then func_show_eval '$MV "$output_obj" "$obj"' \ 'error=$?; $opt_dry_run || $RM $removelist; exit $error' fi fi $opt_dry_run || { func_write_libtool_object "$libobj" "$objdir/$objname" "$objname" # Unlock the critical section if it was locked if test "$need_locks" != no; then removelist=$lockfile $RM "$lockfile" fi } exit $EXIT_SUCCESS } $opt_help || { test "$opt_mode" = compile && func_mode_compile ${1+"$@"} } func_mode_help () { # We need to display help for each of the modes. case $opt_mode in "") # Generic help is extracted from the usage comments # at the start of this file. func_help ;; clean) $ECHO \ "Usage: $progname [OPTION]... --mode=clean RM [RM-OPTION]... FILE... Remove files from the build directory. RM is the name of the program to use to delete files associated with each FILE (typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed to RM. If FILE is a libtool library, object or program, all the files associated with it are deleted. Otherwise, only FILE itself is deleted using RM." ;; compile) $ECHO \ "Usage: $progname [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE Compile a source file into a libtool library object. This mode accepts the following additional options: -o OUTPUT-FILE set the output file name to OUTPUT-FILE -no-suppress do not suppress compiler output for multiple passes -prefer-pic try to build PIC objects only -prefer-non-pic try to build non-PIC objects only -shared do not build a \`.o' file suitable for static linking -static only build a \`.o' file suitable for static linking -Wc,FLAG pass FLAG directly to the compiler COMPILE-COMMAND is a command to be used in creating a \`standard' object file from the given SOURCEFILE. The output file name is determined by removing the directory component from SOURCEFILE, then substituting the C source code suffix \`.c' with the library object suffix, \`.lo'." ;; execute) $ECHO \ "Usage: $progname [OPTION]... --mode=execute COMMAND [ARGS]... Automatically set library path, then run a program. This mode accepts the following additional options: -dlopen FILE add the directory containing FILE to the library path This mode sets the library path environment variable according to \`-dlopen' flags. If any of the ARGS are libtool executable wrappers, then they are translated into their corresponding uninstalled binary, and any of their required library directories are added to the library path. Then, COMMAND is executed, with ARGS as arguments." ;; finish) $ECHO \ "Usage: $progname [OPTION]... --mode=finish [LIBDIR]... Complete the installation of libtool libraries. Each LIBDIR is a directory that contains libtool libraries. The commands that this mode executes may require superuser privileges. Use the \`--dry-run' option if you just want to see what would be executed." ;; install) $ECHO \ "Usage: $progname [OPTION]... --mode=install INSTALL-COMMAND... Install executables or libraries. INSTALL-COMMAND is the installation command. The first component should be either the \`install' or \`cp' program. The following components of INSTALL-COMMAND are treated specially: -inst-prefix-dir PREFIX-DIR Use PREFIX-DIR as a staging area for installation The rest of the components are interpreted as arguments to that command (only BSD-compatible install options are recognized)." ;; link) $ECHO \ "Usage: $progname [OPTION]... --mode=link LINK-COMMAND... Link object files or libraries together to form another library, or to create an executable program. LINK-COMMAND is a command using the C compiler that you would use to create a program from several object files. The following components of LINK-COMMAND are treated specially: -all-static do not do any dynamic linking at all -avoid-version do not add a version suffix if possible -bindir BINDIR specify path to binaries directory (for systems where libraries must be found in the PATH setting at runtime) -dlopen FILE \`-dlpreopen' FILE if it cannot be dlopened at runtime -dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols -export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3) -export-symbols SYMFILE try to export only the symbols listed in SYMFILE -export-symbols-regex REGEX try to export only the symbols matching REGEX -LLIBDIR search LIBDIR for required installed libraries -lNAME OUTPUT-FILE requires the installed library libNAME -module build a library that can dlopened -no-fast-install disable the fast-install mode -no-install link a not-installable executable -no-undefined declare that a library does not refer to external symbols -o OUTPUT-FILE create OUTPUT-FILE from the specified objects -objectlist FILE Use a list of object files found in FILE to specify objects -precious-files-regex REGEX don't remove output files matching REGEX -release RELEASE specify package release information -rpath LIBDIR the created library will eventually be installed in LIBDIR -R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries -shared only do dynamic linking of libtool libraries -shrext SUFFIX override the standard shared library file extension -static do not do any dynamic linking of uninstalled libtool libraries -static-libtool-libs do not do any dynamic linking of libtool libraries -version-info CURRENT[:REVISION[:AGE]] specify library version info [each variable defaults to 0] -weak LIBNAME declare that the target provides the LIBNAME interface -Wc,FLAG -Xcompiler FLAG pass linker-specific FLAG directly to the compiler -Wl,FLAG -Xlinker FLAG pass linker-specific FLAG directly to the linker -XCClinker FLAG pass link-specific FLAG to the compiler driver (CC) All other options (arguments beginning with \`-') are ignored. Every other argument is treated as a filename. Files ending in \`.la' are treated as uninstalled libtool libraries, other files are standard or library object files. If the OUTPUT-FILE ends in \`.la', then a libtool library is created, only library objects (\`.lo' files) may be specified, and \`-rpath' is required, except when creating a convenience library. If OUTPUT-FILE ends in \`.a' or \`.lib', then a standard library is created using \`ar' and \`ranlib', or on Windows using \`lib'. If OUTPUT-FILE ends in \`.lo' or \`.${objext}', then a reloadable object file is created, otherwise an executable program is created." ;; uninstall) $ECHO \ "Usage: $progname [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE... Remove libraries from an installation directory. RM is the name of the program to use to delete files associated with each FILE (typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed to RM. If FILE is a libtool library, all the files associated with it are deleted. Otherwise, only FILE itself is deleted using RM." ;; *) func_fatal_help "invalid operation mode \`$opt_mode'" ;; esac echo $ECHO "Try \`$progname --help' for more information about other modes." } # Now that we've collected a possible --mode arg, show help if necessary if $opt_help; then if test "$opt_help" = :; then func_mode_help else { func_help noexit for opt_mode in compile link execute install finish uninstall clean; do func_mode_help done } | sed -n '1p; 2,$s/^Usage:/ or: /p' { func_help noexit for opt_mode in compile link execute install finish uninstall clean; do echo func_mode_help done } | sed '1d /^When reporting/,/^Report/{ H d } $x /information about other modes/d /more detailed .*MODE/d s/^Usage:.*--mode=\([^ ]*\) .*/Description of \1 mode:/' fi exit $? fi # func_mode_execute arg... func_mode_execute () { $opt_debug # The first argument is the command name. cmd="$nonopt" test -z "$cmd" && \ func_fatal_help "you must specify a COMMAND" # Handle -dlopen flags immediately. for file in $opt_dlopen; do test -f "$file" \ || func_fatal_help "\`$file' is not a file" dir= case $file in *.la) func_resolve_sysroot "$file" file=$func_resolve_sysroot_result # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$file" \ || func_fatal_help "\`$lib' is not a valid libtool archive" # Read the libtool library. dlname= library_names= func_source "$file" # Skip this library if it cannot be dlopened. if test -z "$dlname"; then # Warn if it was a shared library. test -n "$library_names" && \ func_warning "\`$file' was not linked with \`-export-dynamic'" continue fi func_dirname "$file" "" "." dir="$func_dirname_result" if test -f "$dir/$objdir/$dlname"; then func_append dir "/$objdir" else if test ! -f "$dir/$dlname"; then func_fatal_error "cannot find \`$dlname' in \`$dir' or \`$dir/$objdir'" fi fi ;; *.lo) # Just add the directory containing the .lo file. func_dirname "$file" "" "." dir="$func_dirname_result" ;; *) func_warning "\`-dlopen' is ignored for non-libtool libraries and objects" continue ;; esac # Get the absolute pathname. absdir=`cd "$dir" && pwd` test -n "$absdir" && dir="$absdir" # Now add the directory to shlibpath_var. if eval "test -z \"\$$shlibpath_var\""; then eval "$shlibpath_var=\"\$dir\"" else eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\"" fi done # This variable tells wrapper scripts just to set shlibpath_var # rather than running their programs. libtool_execute_magic="$magic" # Check if any of the arguments is a wrapper script. args= for file do case $file in -* | *.la | *.lo ) ;; *) # Do a test to see if this is really a libtool program. if func_ltwrapper_script_p "$file"; then func_source "$file" # Transform arg to wrapped name. file="$progdir/$program" elif func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" func_source "$func_ltwrapper_scriptname_result" # Transform arg to wrapped name. file="$progdir/$program" fi ;; esac # Quote arguments (to preserve shell metacharacters). func_append_quoted args "$file" done if test "X$opt_dry_run" = Xfalse; then if test -n "$shlibpath_var"; then # Export the shlibpath_var. eval "export $shlibpath_var" fi # Restore saved environment variables for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES do eval "if test \"\${save_$lt_var+set}\" = set; then $lt_var=\$save_$lt_var; export $lt_var else $lt_unset $lt_var fi" done # Now prepare to actually exec the command. exec_cmd="\$cmd$args" else # Display what would be done. if test -n "$shlibpath_var"; then eval "\$ECHO \"\$shlibpath_var=\$$shlibpath_var\"" echo "export $shlibpath_var" fi $ECHO "$cmd$args" exit $EXIT_SUCCESS fi } test "$opt_mode" = execute && func_mode_execute ${1+"$@"} # func_mode_finish arg... func_mode_finish () { $opt_debug libs= libdirs= admincmds= for opt in "$nonopt" ${1+"$@"} do if test -d "$opt"; then func_append libdirs " $opt" elif test -f "$opt"; then if func_lalib_unsafe_p "$opt"; then func_append libs " $opt" else func_warning "\`$opt' is not a valid libtool archive" fi else func_fatal_error "invalid argument \`$opt'" fi done if test -n "$libs"; then if test -n "$lt_sysroot"; then sysroot_regex=`$ECHO "$lt_sysroot" | $SED "$sed_make_literal_regex"` sysroot_cmd="s/\([ ']\)$sysroot_regex/\1/g;" else sysroot_cmd= fi # Remove sysroot references if $opt_dry_run; then for lib in $libs; do echo "removing references to $lt_sysroot and \`=' prefixes from $lib" done else tmpdir=`func_mktempdir` for lib in $libs; do sed -e "${sysroot_cmd} s/\([ ']-[LR]\)=/\1/g; s/\([ ']\)=/\1/g" $lib \ > $tmpdir/tmp-la mv -f $tmpdir/tmp-la $lib done ${RM}r "$tmpdir" fi fi if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then for libdir in $libdirs; do if test -n "$finish_cmds"; then # Do each command in the finish commands. func_execute_cmds "$finish_cmds" 'admincmds="$admincmds '"$cmd"'"' fi if test -n "$finish_eval"; then # Do the single finish_eval. eval cmds=\"$finish_eval\" $opt_dry_run || eval "$cmds" || func_append admincmds " $cmds" fi done fi # Exit here if they wanted silent mode. $opt_silent && exit $EXIT_SUCCESS if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then echo "----------------------------------------------------------------------" echo "Libraries have been installed in:" for libdir in $libdirs; do $ECHO " $libdir" done echo echo "If you ever happen to want to link against installed libraries" echo "in a given directory, LIBDIR, you must either use libtool, and" echo "specify the full pathname of the library, or use the \`-LLIBDIR'" echo "flag during linking and do at least one of the following:" if test -n "$shlibpath_var"; then echo " - add LIBDIR to the \`$shlibpath_var' environment variable" echo " during execution" fi if test -n "$runpath_var"; then echo " - add LIBDIR to the \`$runpath_var' environment variable" echo " during linking" fi if test -n "$hardcode_libdir_flag_spec"; then libdir=LIBDIR eval flag=\"$hardcode_libdir_flag_spec\" $ECHO " - use the \`$flag' linker flag" fi if test -n "$admincmds"; then $ECHO " - have your system administrator run these commands:$admincmds" fi if test -f /etc/ld.so.conf; then echo " - have your system administrator add LIBDIR to \`/etc/ld.so.conf'" fi echo echo "See any operating system documentation about shared libraries for" case $host in solaris2.[6789]|solaris2.1[0-9]) echo "more information, such as the ld(1), crle(1) and ld.so(8) manual" echo "pages." ;; *) echo "more information, such as the ld(1) and ld.so(8) manual pages." ;; esac echo "----------------------------------------------------------------------" fi exit $EXIT_SUCCESS } test "$opt_mode" = finish && func_mode_finish ${1+"$@"} # func_mode_install arg... func_mode_install () { $opt_debug # There may be an optional sh(1) argument at the beginning of # install_prog (especially on Windows NT). if test "$nonopt" = "$SHELL" || test "$nonopt" = /bin/sh || # Allow the use of GNU shtool's install command. case $nonopt in *shtool*) :;; *) false;; esac; then # Aesthetically quote it. func_quote_for_eval "$nonopt" install_prog="$func_quote_for_eval_result " arg=$1 shift else install_prog= arg=$nonopt fi # The real first argument should be the name of the installation program. # Aesthetically quote it. func_quote_for_eval "$arg" func_append install_prog "$func_quote_for_eval_result" install_shared_prog=$install_prog case " $install_prog " in *[\\\ /]cp\ *) install_cp=: ;; *) install_cp=false ;; esac # We need to accept at least all the BSD install flags. dest= files= opts= prev= install_type= isdir=no stripme= no_mode=: for arg do arg2= if test -n "$dest"; then func_append files " $dest" dest=$arg continue fi case $arg in -d) isdir=yes ;; -f) if $install_cp; then :; else prev=$arg fi ;; -g | -m | -o) prev=$arg ;; -s) stripme=" -s" continue ;; -*) ;; *) # If the previous option needed an argument, then skip it. if test -n "$prev"; then if test "x$prev" = x-m && test -n "$install_override_mode"; then arg2=$install_override_mode no_mode=false fi prev= else dest=$arg continue fi ;; esac # Aesthetically quote the argument. func_quote_for_eval "$arg" func_append install_prog " $func_quote_for_eval_result" if test -n "$arg2"; then func_quote_for_eval "$arg2" fi func_append install_shared_prog " $func_quote_for_eval_result" done test -z "$install_prog" && \ func_fatal_help "you must specify an install program" test -n "$prev" && \ func_fatal_help "the \`$prev' option requires an argument" if test -n "$install_override_mode" && $no_mode; then if $install_cp; then :; else func_quote_for_eval "$install_override_mode" func_append install_shared_prog " -m $func_quote_for_eval_result" fi fi if test -z "$files"; then if test -z "$dest"; then func_fatal_help "no file or destination specified" else func_fatal_help "you must specify a destination" fi fi # Strip any trailing slash from the destination. func_stripname '' '/' "$dest" dest=$func_stripname_result # Check to see that the destination is a directory. test -d "$dest" && isdir=yes if test "$isdir" = yes; then destdir="$dest" destname= else func_dirname_and_basename "$dest" "" "." destdir="$func_dirname_result" destname="$func_basename_result" # Not a directory, so check to see that there is only one file specified. set dummy $files; shift test "$#" -gt 1 && \ func_fatal_help "\`$dest' is not a directory" fi case $destdir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) for file in $files; do case $file in *.lo) ;; *) func_fatal_help "\`$destdir' must be an absolute directory name" ;; esac done ;; esac # This variable tells wrapper scripts just to set variables rather # than running their programs. libtool_install_magic="$magic" staticlibs= future_libdirs= current_libdirs= for file in $files; do # Do each installation. case $file in *.$libext) # Do the static libraries later. func_append staticlibs " $file" ;; *.la) func_resolve_sysroot "$file" file=$func_resolve_sysroot_result # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$file" \ || func_fatal_help "\`$file' is not a valid libtool archive" library_names= old_library= relink_command= func_source "$file" # Add the libdir to current_libdirs if it is the destination. if test "X$destdir" = "X$libdir"; then case "$current_libdirs " in *" $libdir "*) ;; *) func_append current_libdirs " $libdir" ;; esac else # Note the libdir as a future libdir. case "$future_libdirs " in *" $libdir "*) ;; *) func_append future_libdirs " $libdir" ;; esac fi func_dirname "$file" "/" "" dir="$func_dirname_result" func_append dir "$objdir" if test -n "$relink_command"; then # Determine the prefix the user has applied to our future dir. inst_prefix_dir=`$ECHO "$destdir" | $SED -e "s%$libdir\$%%"` # Don't allow the user to place us outside of our expected # location b/c this prevents finding dependent libraries that # are installed to the same prefix. # At present, this check doesn't affect windows .dll's that # are installed into $libdir/../bin (currently, that works fine) # but it's something to keep an eye on. test "$inst_prefix_dir" = "$destdir" && \ func_fatal_error "error: cannot install \`$file' to a directory not ending in $libdir" if test -n "$inst_prefix_dir"; then # Stick the inst_prefix_dir data into the link command. relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%"` else relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%%"` fi func_warning "relinking \`$file'" func_show_eval "$relink_command" \ 'func_fatal_error "error: relink \`$file'\'' with the above command before installing it"' fi # See the names of the shared library. set dummy $library_names; shift if test -n "$1"; then realname="$1" shift srcname="$realname" test -n "$relink_command" && srcname="$realname"T # Install the shared library and build the symlinks. func_show_eval "$install_shared_prog $dir/$srcname $destdir/$realname" \ 'exit $?' tstripme="$stripme" case $host_os in cygwin* | mingw* | pw32* | cegcc*) case $realname in *.dll.a) tstripme="" ;; esac ;; esac if test -n "$tstripme" && test -n "$striplib"; then func_show_eval "$striplib $destdir/$realname" 'exit $?' fi if test "$#" -gt 0; then # Delete the old symlinks, and create new ones. # Try `ln -sf' first, because the `ln' binary might depend on # the symlink we replace! Solaris /bin/ln does not understand -f, # so we also need to try rm && ln -s. for linkname do test "$linkname" != "$realname" \ && func_show_eval "(cd $destdir && { $LN_S -f $realname $linkname || { $RM $linkname && $LN_S $realname $linkname; }; })" done fi # Do each command in the postinstall commands. lib="$destdir/$realname" func_execute_cmds "$postinstall_cmds" 'exit $?' fi # Install the pseudo-library for information purposes. func_basename "$file" name="$func_basename_result" instname="$dir/$name"i func_show_eval "$install_prog $instname $destdir/$name" 'exit $?' # Maybe install the static library, too. test -n "$old_library" && func_append staticlibs " $dir/$old_library" ;; *.lo) # Install (i.e. copy) a libtool object. # Figure out destination file name, if it wasn't already specified. if test -n "$destname"; then destfile="$destdir/$destname" else func_basename "$file" destfile="$func_basename_result" destfile="$destdir/$destfile" fi # Deduce the name of the destination old-style object file. case $destfile in *.lo) func_lo2o "$destfile" staticdest=$func_lo2o_result ;; *.$objext) staticdest="$destfile" destfile= ;; *) func_fatal_help "cannot copy a libtool object to \`$destfile'" ;; esac # Install the libtool object if requested. test -n "$destfile" && \ func_show_eval "$install_prog $file $destfile" 'exit $?' # Install the old object if enabled. if test "$build_old_libs" = yes; then # Deduce the name of the old-style object file. func_lo2o "$file" staticobj=$func_lo2o_result func_show_eval "$install_prog \$staticobj \$staticdest" 'exit $?' fi exit $EXIT_SUCCESS ;; *) # Figure out destination file name, if it wasn't already specified. if test -n "$destname"; then destfile="$destdir/$destname" else func_basename "$file" destfile="$func_basename_result" destfile="$destdir/$destfile" fi # If the file is missing, and there is a .exe on the end, strip it # because it is most likely a libtool script we actually want to # install stripped_ext="" case $file in *.exe) if test ! -f "$file"; then func_stripname '' '.exe' "$file" file=$func_stripname_result stripped_ext=".exe" fi ;; esac # Do a test to see if this is really a libtool program. case $host in *cygwin* | *mingw*) if func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" wrapper=$func_ltwrapper_scriptname_result else func_stripname '' '.exe' "$file" wrapper=$func_stripname_result fi ;; *) wrapper=$file ;; esac if func_ltwrapper_script_p "$wrapper"; then notinst_deplibs= relink_command= func_source "$wrapper" # Check the variables that should have been set. test -z "$generated_by_libtool_version" && \ func_fatal_error "invalid libtool wrapper script \`$wrapper'" finalize=yes for lib in $notinst_deplibs; do # Check to see that each library is installed. libdir= if test -f "$lib"; then func_source "$lib" fi libfile="$libdir/"`$ECHO "$lib" | $SED 's%^.*/%%g'` ### testsuite: skip nested quoting test if test -n "$libdir" && test ! -f "$libfile"; then func_warning "\`$lib' has not been installed in \`$libdir'" finalize=no fi done relink_command= func_source "$wrapper" outputname= if test "$fast_install" = no && test -n "$relink_command"; then $opt_dry_run || { if test "$finalize" = yes; then tmpdir=`func_mktempdir` func_basename "$file$stripped_ext" file="$func_basename_result" outputname="$tmpdir/$file" # Replace the output file specification. relink_command=`$ECHO "$relink_command" | $SED 's%@OUTPUT@%'"$outputname"'%g'` $opt_silent || { func_quote_for_expand "$relink_command" eval "func_echo $func_quote_for_expand_result" } if eval "$relink_command"; then : else func_error "error: relink \`$file' with the above command before installing it" $opt_dry_run || ${RM}r "$tmpdir" continue fi file="$outputname" else func_warning "cannot relink \`$file'" fi } else # Install the binary that we compiled earlier. file=`$ECHO "$file$stripped_ext" | $SED "s%\([^/]*\)$%$objdir/\1%"` fi fi # remove .exe since cygwin /usr/bin/install will append another # one anyway case $install_prog,$host in */usr/bin/install*,*cygwin*) case $file:$destfile in *.exe:*.exe) # this is ok ;; *.exe:*) destfile=$destfile.exe ;; *:*.exe) func_stripname '' '.exe' "$destfile" destfile=$func_stripname_result ;; esac ;; esac func_show_eval "$install_prog\$stripme \$file \$destfile" 'exit $?' $opt_dry_run || if test -n "$outputname"; then ${RM}r "$tmpdir" fi ;; esac done for file in $staticlibs; do func_basename "$file" name="$func_basename_result" # Set up the ranlib parameters. oldlib="$destdir/$name" func_to_tool_file "$oldlib" func_convert_file_msys_to_w32 tool_oldlib=$func_to_tool_file_result func_show_eval "$install_prog \$file \$oldlib" 'exit $?' if test -n "$stripme" && test -n "$old_striplib"; then func_show_eval "$old_striplib $tool_oldlib" 'exit $?' fi # Do each command in the postinstall commands. func_execute_cmds "$old_postinstall_cmds" 'exit $?' done test -n "$future_libdirs" && \ func_warning "remember to run \`$progname --finish$future_libdirs'" if test -n "$current_libdirs"; then # Maybe just do a dry run. $opt_dry_run && current_libdirs=" -n$current_libdirs" exec_cmd='$SHELL $progpath $preserve_args --finish$current_libdirs' else exit $EXIT_SUCCESS fi } test "$opt_mode" = install && func_mode_install ${1+"$@"} # func_generate_dlsyms outputname originator pic_p # Extract symbols from dlprefiles and create ${outputname}S.o with # a dlpreopen symbol table. func_generate_dlsyms () { $opt_debug my_outputname="$1" my_originator="$2" my_pic_p="${3-no}" my_prefix=`$ECHO "$my_originator" | sed 's%[^a-zA-Z0-9]%_%g'` my_dlsyms= if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then if test -n "$NM" && test -n "$global_symbol_pipe"; then my_dlsyms="${my_outputname}S.c" else func_error "not configured to extract global symbols from dlpreopened files" fi fi if test -n "$my_dlsyms"; then case $my_dlsyms in "") ;; *.c) # Discover the nlist of each of the dlfiles. nlist="$output_objdir/${my_outputname}.nm" func_show_eval "$RM $nlist ${nlist}S ${nlist}T" # Parse the name list into a source file. func_verbose "creating $output_objdir/$my_dlsyms" $opt_dry_run || $ECHO > "$output_objdir/$my_dlsyms" "\ /* $my_dlsyms - symbol resolution table for \`$my_outputname' dlsym emulation. */ /* Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION */ #ifdef __cplusplus extern \"C\" { #endif #if defined(__GNUC__) && (((__GNUC__ == 4) && (__GNUC_MINOR__ >= 4)) || (__GNUC__ > 4)) #pragma GCC diagnostic ignored \"-Wstrict-prototypes\" #endif /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE) /* DATA imports from DLLs on WIN32 con't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT_DLSYM_CONST #elif defined(__osf__) /* This system does not cope well with relocations in const data. */ # define LT_DLSYM_CONST #else # define LT_DLSYM_CONST const #endif /* External symbol declarations for the compiler. */\ " if test "$dlself" = yes; then func_verbose "generating symbol list for \`$output'" $opt_dry_run || echo ': @PROGRAM@ ' > "$nlist" # Add our own program objects to the symbol list. progfiles=`$ECHO "$objs$old_deplibs" | $SP2NL | $SED "$lo2o" | $NL2SP` for progfile in $progfiles; do func_to_tool_file "$progfile" func_convert_file_msys_to_w32 func_verbose "extracting global C symbols from \`$func_to_tool_file_result'" $opt_dry_run || eval "$NM $func_to_tool_file_result | $global_symbol_pipe >> '$nlist'" done if test -n "$exclude_expsyms"; then $opt_dry_run || { eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' } fi if test -n "$export_symbols_regex"; then $opt_dry_run || { eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' } fi # Prepare the list of exported symbols if test -z "$export_symbols"; then export_symbols="$output_objdir/$outputname.exp" $opt_dry_run || { $RM $export_symbols eval "${SED} -n -e '/^: @PROGRAM@ $/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"' case $host in *cygwin* | *mingw* | *cegcc* ) eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' eval 'cat "$export_symbols" >> "$output_objdir/$outputname.def"' ;; esac } else $opt_dry_run || { eval "${SED} -e 's/\([].[*^$]\)/\\\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$outputname.exp"' eval '$GREP -f "$output_objdir/$outputname.exp" < "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' case $host in *cygwin* | *mingw* | *cegcc* ) eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' eval 'cat "$nlist" >> "$output_objdir/$outputname.def"' ;; esac } fi fi for dlprefile in $dlprefiles; do func_verbose "extracting global C symbols from \`$dlprefile'" func_basename "$dlprefile" name="$func_basename_result" case $host in *cygwin* | *mingw* | *cegcc* ) # if an import library, we need to obtain dlname if func_win32_import_lib_p "$dlprefile"; then func_tr_sh "$dlprefile" eval "curr_lafile=\$libfile_$func_tr_sh_result" dlprefile_dlbasename="" if test -n "$curr_lafile" && func_lalib_p "$curr_lafile"; then # Use subshell, to avoid clobbering current variable values dlprefile_dlname=`source "$curr_lafile" && echo "$dlname"` if test -n "$dlprefile_dlname" ; then func_basename "$dlprefile_dlname" dlprefile_dlbasename="$func_basename_result" else # no lafile. user explicitly requested -dlpreopen . $sharedlib_from_linklib_cmd "$dlprefile" dlprefile_dlbasename=$sharedlib_from_linklib_result fi fi $opt_dry_run || { if test -n "$dlprefile_dlbasename" ; then eval '$ECHO ": $dlprefile_dlbasename" >> "$nlist"' else func_warning "Could not compute DLL name from $name" eval '$ECHO ": $name " >> "$nlist"' fi func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe | $SED -e '/I __imp/d' -e 's/I __nm_/D /;s/_nm__//' >> '$nlist'" } else # not an import lib $opt_dry_run || { eval '$ECHO ": $name " >> "$nlist"' func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'" } fi ;; *) $opt_dry_run || { eval '$ECHO ": $name " >> "$nlist"' func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'" } ;; esac done $opt_dry_run || { # Make sure we have at least an empty file. test -f "$nlist" || : > "$nlist" if test -n "$exclude_expsyms"; then $EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T $MV "$nlist"T "$nlist" fi # Try sorting and uniquifying the output. if $GREP -v "^: " < "$nlist" | if sort -k 3 /dev/null 2>&1; then sort -k 3 else sort +2 fi | uniq > "$nlist"S; then : else $GREP -v "^: " < "$nlist" > "$nlist"S fi if test -f "$nlist"S; then eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$my_dlsyms"' else echo '/* NONE */' >> "$output_objdir/$my_dlsyms" fi echo >> "$output_objdir/$my_dlsyms" "\ /* The mapping between symbol names and symbols. */ typedef struct { const char *name; void *address; } lt_dlsymlist; extern LT_DLSYM_CONST lt_dlsymlist lt_${my_prefix}_LTX_preloaded_symbols[]; LT_DLSYM_CONST lt_dlsymlist lt_${my_prefix}_LTX_preloaded_symbols[] = {\ { \"$my_originator\", (void *) 0 }," case $need_lib_prefix in no) eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$my_dlsyms" ;; *) eval "$global_symbol_to_c_name_address_lib_prefix" < "$nlist" >> "$output_objdir/$my_dlsyms" ;; esac echo >> "$output_objdir/$my_dlsyms" "\ {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt_${my_prefix}_LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif\ " } # !$opt_dry_run pic_flag_for_symtable= case "$compile_command " in *" -static "*) ;; *) case $host in # compiling the symbol table file with pic_flag works around # a FreeBSD bug that causes programs to crash when -lm is # linked before any other PIC object. But we must not use # pic_flag when linking with -static. The problem exists in # FreeBSD 2.2.6 and is fixed in FreeBSD 3.1. *-*-freebsd2.*|*-*-freebsd3.0*|*-*-freebsdelf3.0*) pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND" ;; *-*-hpux*) pic_flag_for_symtable=" $pic_flag" ;; *) if test "X$my_pic_p" != Xno; then pic_flag_for_symtable=" $pic_flag" fi ;; esac ;; esac symtab_cflags= for arg in $LTCFLAGS; do case $arg in -pie | -fpie | -fPIE) ;; *) func_append symtab_cflags " $arg" ;; esac done # Now compile the dynamic symbol file. func_show_eval '(cd $output_objdir && $LTCC$symtab_cflags -c$no_builtin_flag$pic_flag_for_symtable "$my_dlsyms")' 'exit $?' # Clean up the generated files. func_show_eval '$RM "$output_objdir/$my_dlsyms" "$nlist" "${nlist}S" "${nlist}T"' # Transform the symbol file into the correct name. symfileobj="$output_objdir/${my_outputname}S.$objext" case $host in *cygwin* | *mingw* | *cegcc* ) if test -f "$output_objdir/$my_outputname.def"; then compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"` else compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"` fi ;; *) compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"` ;; esac ;; *) func_fatal_error "unknown suffix for \`$my_dlsyms'" ;; esac else # We keep going just in case the user didn't refer to # lt_preloaded_symbols. The linker will fail if global_symbol_pipe # really was required. # Nullify the symbol file. compile_command=`$ECHO "$compile_command" | $SED "s% @SYMFILE@%%"` finalize_command=`$ECHO "$finalize_command" | $SED "s% @SYMFILE@%%"` fi } # func_win32_libid arg # return the library type of file 'arg' # # Need a lot of goo to handle *both* DLLs and import libs # Has to be a shell function in order to 'eat' the argument # that is supplied when $file_magic_command is called. # Despite the name, also deal with 64 bit binaries. func_win32_libid () { $opt_debug win32_libid_type="unknown" win32_fileres=`file -L $1 2>/dev/null` case $win32_fileres in *ar\ archive\ import\ library*) # definitely import win32_libid_type="x86 archive import" ;; *ar\ archive*) # could be an import, or static # Keep the egrep pattern in sync with the one in _LT_CHECK_MAGIC_METHOD. if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null | $EGREP 'file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' >/dev/null; then func_to_tool_file "$1" func_convert_file_msys_to_w32 win32_nmres=`eval $NM -f posix -A \"$func_to_tool_file_result\" | $SED -n -e ' 1,100{ / I /{ s,.*,import, p q } }'` case $win32_nmres in import*) win32_libid_type="x86 archive import";; *) win32_libid_type="x86 archive static";; esac fi ;; *DLL*) win32_libid_type="x86 DLL" ;; *executable*) # but shell scripts are "executable" too... case $win32_fileres in *MS\ Windows\ PE\ Intel*) win32_libid_type="x86 DLL" ;; esac ;; esac $ECHO "$win32_libid_type" } # func_cygming_dll_for_implib ARG # # Platform-specific function to extract the # name of the DLL associated with the specified # import library ARG. # Invoked by eval'ing the libtool variable # $sharedlib_from_linklib_cmd # Result is available in the variable # $sharedlib_from_linklib_result func_cygming_dll_for_implib () { $opt_debug sharedlib_from_linklib_result=`$DLLTOOL --identify-strict --identify "$1"` } # func_cygming_dll_for_implib_fallback_core SECTION_NAME LIBNAMEs # # The is the core of a fallback implementation of a # platform-specific function to extract the name of the # DLL associated with the specified import library LIBNAME. # # SECTION_NAME is either .idata$6 or .idata$7, depending # on the platform and compiler that created the implib. # # Echos the name of the DLL associated with the # specified import library. func_cygming_dll_for_implib_fallback_core () { $opt_debug match_literal=`$ECHO "$1" | $SED "$sed_make_literal_regex"` $OBJDUMP -s --section "$1" "$2" 2>/dev/null | $SED '/^Contents of section '"$match_literal"':/{ # Place marker at beginning of archive member dllname section s/.*/====MARK====/ p d } # These lines can sometimes be longer than 43 characters, but # are always uninteresting /:[ ]*file format pe[i]\{,1\}-/d /^In archive [^:]*:/d # Ensure marker is printed /^====MARK====/p # Remove all lines with less than 43 characters /^.\{43\}/!d # From remaining lines, remove first 43 characters s/^.\{43\}//' | $SED -n ' # Join marker and all lines until next marker into a single line /^====MARK====/ b para H $ b para b :para x s/\n//g # Remove the marker s/^====MARK====// # Remove trailing dots and whitespace s/[\. \t]*$// # Print /./p' | # we now have a list, one entry per line, of the stringified # contents of the appropriate section of all members of the # archive which possess that section. Heuristic: eliminate # all those which have a first or second character that is # a '.' (that is, objdump's representation of an unprintable # character.) This should work for all archives with less than # 0x302f exports -- but will fail for DLLs whose name actually # begins with a literal '.' or a single character followed by # a '.'. # # Of those that remain, print the first one. $SED -e '/^\./d;/^.\./d;q' } # func_cygming_gnu_implib_p ARG # This predicate returns with zero status (TRUE) if # ARG is a GNU/binutils-style import library. Returns # with nonzero status (FALSE) otherwise. func_cygming_gnu_implib_p () { $opt_debug func_to_tool_file "$1" func_convert_file_msys_to_w32 func_cygming_gnu_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $EGREP ' (_head_[A-Za-z0-9_]+_[ad]l*|[A-Za-z0-9_]+_[ad]l*_iname)$'` test -n "$func_cygming_gnu_implib_tmp" } # func_cygming_ms_implib_p ARG # This predicate returns with zero status (TRUE) if # ARG is an MS-style import library. Returns # with nonzero status (FALSE) otherwise. func_cygming_ms_implib_p () { $opt_debug func_to_tool_file "$1" func_convert_file_msys_to_w32 func_cygming_ms_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $GREP '_NULL_IMPORT_DESCRIPTOR'` test -n "$func_cygming_ms_implib_tmp" } # func_cygming_dll_for_implib_fallback ARG # Platform-specific function to extract the # name of the DLL associated with the specified # import library ARG. # # This fallback implementation is for use when $DLLTOOL # does not support the --identify-strict option. # Invoked by eval'ing the libtool variable # $sharedlib_from_linklib_cmd # Result is available in the variable # $sharedlib_from_linklib_result func_cygming_dll_for_implib_fallback () { $opt_debug if func_cygming_gnu_implib_p "$1" ; then # binutils import library sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$7' "$1"` elif func_cygming_ms_implib_p "$1" ; then # ms-generated import library sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$6' "$1"` else # unknown sharedlib_from_linklib_result="" fi } # func_extract_an_archive dir oldlib func_extract_an_archive () { $opt_debug f_ex_an_ar_dir="$1"; shift f_ex_an_ar_oldlib="$1" if test "$lock_old_archive_extraction" = yes; then lockfile=$f_ex_an_ar_oldlib.lock until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do func_echo "Waiting for $lockfile to be removed" sleep 2 done fi func_show_eval "(cd \$f_ex_an_ar_dir && $AR x \"\$f_ex_an_ar_oldlib\")" \ 'stat=$?; rm -f "$lockfile"; exit $stat' if test "$lock_old_archive_extraction" = yes; then $opt_dry_run || rm -f "$lockfile" fi if ($AR t "$f_ex_an_ar_oldlib" | sort | sort -uc >/dev/null 2>&1); then : else func_fatal_error "object name conflicts in archive: $f_ex_an_ar_dir/$f_ex_an_ar_oldlib" fi } # func_extract_archives gentop oldlib ... func_extract_archives () { $opt_debug my_gentop="$1"; shift my_oldlibs=${1+"$@"} my_oldobjs="" my_xlib="" my_xabs="" my_xdir="" for my_xlib in $my_oldlibs; do # Extract the objects. case $my_xlib in [\\/]* | [A-Za-z]:[\\/]*) my_xabs="$my_xlib" ;; *) my_xabs=`pwd`"/$my_xlib" ;; esac func_basename "$my_xlib" my_xlib="$func_basename_result" my_xlib_u=$my_xlib while :; do case " $extracted_archives " in *" $my_xlib_u "*) func_arith $extracted_serial + 1 extracted_serial=$func_arith_result my_xlib_u=lt$extracted_serial-$my_xlib ;; *) break ;; esac done extracted_archives="$extracted_archives $my_xlib_u" my_xdir="$my_gentop/$my_xlib_u" func_mkdir_p "$my_xdir" case $host in *-darwin*) func_verbose "Extracting $my_xabs" # Do not bother doing anything if just a dry run $opt_dry_run || { darwin_orig_dir=`pwd` cd $my_xdir || exit $? darwin_archive=$my_xabs darwin_curdir=`pwd` darwin_base_archive=`basename "$darwin_archive"` darwin_arches=`$LIPO -info "$darwin_archive" 2>/dev/null | $GREP Architectures 2>/dev/null || true` if test -n "$darwin_arches"; then darwin_arches=`$ECHO "$darwin_arches" | $SED -e 's/.*are://'` darwin_arch= func_verbose "$darwin_base_archive has multiple architectures $darwin_arches" for darwin_arch in $darwin_arches ; do func_mkdir_p "unfat-$$/${darwin_base_archive}-${darwin_arch}" $LIPO -thin $darwin_arch -output "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" "${darwin_archive}" cd "unfat-$$/${darwin_base_archive}-${darwin_arch}" func_extract_an_archive "`pwd`" "${darwin_base_archive}" cd "$darwin_curdir" $RM "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" done # $darwin_arches ## Okay now we've a bunch of thin objects, gotta fatten them up :) darwin_filelist=`find unfat-$$ -type f -name \*.o -print -o -name \*.lo -print | $SED -e "$basename" | sort -u` darwin_file= darwin_files= for darwin_file in $darwin_filelist; do darwin_files=`find unfat-$$ -name $darwin_file -print | sort | $NL2SP` $LIPO -create -output "$darwin_file" $darwin_files done # $darwin_filelist $RM -rf unfat-$$ cd "$darwin_orig_dir" else cd $darwin_orig_dir func_extract_an_archive "$my_xdir" "$my_xabs" fi # $darwin_arches } # !$opt_dry_run ;; *) func_extract_an_archive "$my_xdir" "$my_xabs" ;; esac my_oldobjs="$my_oldobjs "`find $my_xdir -name \*.$objext -print -o -name \*.lo -print | sort | $NL2SP` done func_extract_archives_result="$my_oldobjs" } # func_emit_wrapper [arg=no] # # Emit a libtool wrapper script on stdout. # Don't directly open a file because we may want to # incorporate the script contents within a cygwin/mingw # wrapper executable. Must ONLY be called from within # func_mode_link because it depends on a number of variables # set therein. # # ARG is the value that the WRAPPER_SCRIPT_BELONGS_IN_OBJDIR # variable will take. If 'yes', then the emitted script # will assume that the directory in which it is stored is # the $objdir directory. This is a cygwin/mingw-specific # behavior. func_emit_wrapper () { func_emit_wrapper_arg1=${1-no} $ECHO "\ #! $SHELL # $output - temporary wrapper script for $objdir/$outputname # Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION # # The $output program cannot be directly executed until all the libtool # libraries that it depends on are installed. # # This wrapper script should never be moved out of the build directory. # If it is, it will not operate correctly. # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. sed_quote_subst='$sed_quote_subst' # Be Bourne compatible if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs 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 BIN_SH=xpg4; export BIN_SH # for Tru64 DUALCASE=1; export DUALCASE # for MKS sh # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH relink_command=\"$relink_command\" # This environment variable determines our operation mode. if test \"\$libtool_install_magic\" = \"$magic\"; then # install mode needs the following variables: generated_by_libtool_version='$macro_version' notinst_deplibs='$notinst_deplibs' else # When we are sourced in execute mode, \$file and \$ECHO are already set. if test \"\$libtool_execute_magic\" != \"$magic\"; then file=\"\$0\"" qECHO=`$ECHO "$ECHO" | $SED "$sed_quote_subst"` $ECHO "\ # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$1 _LTECHO_EOF' } ECHO=\"$qECHO\" fi # Very basic option parsing. These options are (a) specific to # the libtool wrapper, (b) are identical between the wrapper # /script/ and the wrapper /executable/ which is used only on # windows platforms, and (c) all begin with the string "--lt-" # (application programs are unlikely to have options which match # this pattern). # # There are only two supported options: --lt-debug and # --lt-dump-script. There is, deliberately, no --lt-help. # # The first argument to this parsing function should be the # script's $0 value, followed by "$@". lt_option_debug= func_parse_lt_options () { lt_script_arg0=\$0 shift for lt_opt do case \"\$lt_opt\" in --lt-debug) lt_option_debug=1 ;; --lt-dump-script) lt_dump_D=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%/[^/]*$%%'\` test \"X\$lt_dump_D\" = \"X\$lt_script_arg0\" && lt_dump_D=. lt_dump_F=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%^.*/%%'\` cat \"\$lt_dump_D/\$lt_dump_F\" exit 0 ;; --lt-*) \$ECHO \"Unrecognized --lt- option: '\$lt_opt'\" 1>&2 exit 1 ;; esac done # Print the debug banner immediately: if test -n \"\$lt_option_debug\"; then echo \"${outputname}:${output}:\${LINENO}: libtool wrapper (GNU $PACKAGE$TIMESTAMP) $VERSION\" 1>&2 fi } # Used when --lt-debug. Prints its arguments to stdout # (redirection is the responsibility of the caller) func_lt_dump_args () { lt_dump_args_N=1; for lt_arg do \$ECHO \"${outputname}:${output}:\${LINENO}: newargv[\$lt_dump_args_N]: \$lt_arg\" lt_dump_args_N=\`expr \$lt_dump_args_N + 1\` done } # Core function for launching the target application func_exec_program_core () { " case $host in # Backslashes separate directories on plain windows *-*-mingw | *-*-os2* | *-cegcc*) $ECHO "\ if test -n \"\$lt_option_debug\"; then \$ECHO \"${outputname}:${output}:\${LINENO}: newargv[0]: \$progdir\\\\\$program\" 1>&2 func_lt_dump_args \${1+\"\$@\"} 1>&2 fi exec \"\$progdir\\\\\$program\" \${1+\"\$@\"} " ;; *) $ECHO "\ if test -n \"\$lt_option_debug\"; then \$ECHO \"${outputname}:${output}:\${LINENO}: newargv[0]: \$progdir/\$program\" 1>&2 func_lt_dump_args \${1+\"\$@\"} 1>&2 fi exec \"\$progdir/\$program\" \${1+\"\$@\"} " ;; esac $ECHO "\ \$ECHO \"\$0: cannot exec \$program \$*\" 1>&2 exit 1 } # A function to encapsulate launching the target application # Strips options in the --lt-* namespace from \$@ and # launches target application with the remaining arguments. func_exec_program () { case \" \$* \" in *\\ --lt-*) for lt_wr_arg do case \$lt_wr_arg in --lt-*) ;; *) set x \"\$@\" \"\$lt_wr_arg\"; shift;; esac shift done ;; esac func_exec_program_core \${1+\"\$@\"} } # Parse options func_parse_lt_options \"\$0\" \${1+\"\$@\"} # Find the directory that this script lives in. thisdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*$%%'\` test \"x\$thisdir\" = \"x\$file\" && thisdir=. # Follow symbolic links until we get to the real thisdir. file=\`ls -ld \"\$file\" | $SED -n 's/.*-> //p'\` while test -n \"\$file\"; do destdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*\$%%'\` # If there was a directory component, then change thisdir. if test \"x\$destdir\" != \"x\$file\"; then case \"\$destdir\" in [\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;; *) thisdir=\"\$thisdir/\$destdir\" ;; esac fi file=\`\$ECHO \"\$file\" | $SED 's%^.*/%%'\` file=\`ls -ld \"\$thisdir/\$file\" | $SED -n 's/.*-> //p'\` done # Usually 'no', except on cygwin/mingw when embedded into # the cwrapper. WRAPPER_SCRIPT_BELONGS_IN_OBJDIR=$func_emit_wrapper_arg1 if test \"\$WRAPPER_SCRIPT_BELONGS_IN_OBJDIR\" = \"yes\"; then # special case for '.' if test \"\$thisdir\" = \".\"; then thisdir=\`pwd\` fi # remove .libs from thisdir case \"\$thisdir\" in *[\\\\/]$objdir ) thisdir=\`\$ECHO \"\$thisdir\" | $SED 's%[\\\\/][^\\\\/]*$%%'\` ;; $objdir ) thisdir=. ;; esac fi # Try to get the absolute directory name. absdir=\`cd \"\$thisdir\" && pwd\` test -n \"\$absdir\" && thisdir=\"\$absdir\" " if test "$fast_install" = yes; then $ECHO "\ program=lt-'$outputname'$exeext progdir=\"\$thisdir/$objdir\" if test ! -f \"\$progdir/\$program\" || { file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | ${SED} 1q\`; \\ test \"X\$file\" != \"X\$progdir/\$program\"; }; then file=\"\$\$-\$program\" if test ! -d \"\$progdir\"; then $MKDIR \"\$progdir\" else $RM \"\$progdir/\$file\" fi" $ECHO "\ # relink executable if necessary if test -n \"\$relink_command\"; then if relink_command_output=\`eval \$relink_command 2>&1\`; then : else $ECHO \"\$relink_command_output\" >&2 $RM \"\$progdir/\$file\" exit 1 fi fi $MV \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null || { $RM \"\$progdir/\$program\"; $MV \"\$progdir/\$file\" \"\$progdir/\$program\"; } $RM \"\$progdir/\$file\" fi" else $ECHO "\ program='$outputname' progdir=\"\$thisdir/$objdir\" " fi $ECHO "\ if test -f \"\$progdir/\$program\"; then" # fixup the dll searchpath if we need to. # # Fix the DLL searchpath if we need to. Do this before prepending # to shlibpath, because on Windows, both are PATH and uninstalled # libraries must come first. if test -n "$dllsearchpath"; then $ECHO "\ # Add the dll search path components to the executable PATH PATH=$dllsearchpath:\$PATH " fi # Export our shlibpath_var if we have one. if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then $ECHO "\ # Add our own library path to $shlibpath_var $shlibpath_var=\"$temp_rpath\$$shlibpath_var\" # Some systems cannot cope with colon-terminated $shlibpath_var # The second colon is a workaround for a bug in BeOS R4 sed $shlibpath_var=\`\$ECHO \"\$$shlibpath_var\" | $SED 's/::*\$//'\` export $shlibpath_var " fi $ECHO "\ if test \"\$libtool_execute_magic\" != \"$magic\"; then # Run the actual program with our arguments. func_exec_program \${1+\"\$@\"} fi else # The program doesn't exist. \$ECHO \"\$0: error: \\\`\$progdir/\$program' does not exist\" 1>&2 \$ECHO \"This script is just a wrapper for \$program.\" 1>&2 \$ECHO \"See the $PACKAGE documentation for more information.\" 1>&2 exit 1 fi fi\ " } # func_emit_cwrapperexe_src # emit the source code for a wrapper executable on stdout # Must ONLY be called from within func_mode_link because # it depends on a number of variable set therein. func_emit_cwrapperexe_src () { cat < #include #ifdef _MSC_VER # include # include # include #else # include # include # ifdef __CYGWIN__ # include # endif #endif #include #include #include #include #include #include #include #include /* declarations of non-ANSI functions */ #if defined(__MINGW32__) # ifdef __STRICT_ANSI__ int _putenv (const char *); # endif #elif defined(__CYGWIN__) # ifdef __STRICT_ANSI__ char *realpath (const char *, char *); int putenv (char *); int setenv (const char *, const char *, int); # endif /* #elif defined (other platforms) ... */ #endif /* portability defines, excluding path handling macros */ #if defined(_MSC_VER) # define setmode _setmode # define stat _stat # define chmod _chmod # define getcwd _getcwd # define putenv _putenv # define S_IXUSR _S_IEXEC # ifndef _INTPTR_T_DEFINED # define _INTPTR_T_DEFINED # define intptr_t int # endif #elif defined(__MINGW32__) # define setmode _setmode # define stat _stat # define chmod _chmod # define getcwd _getcwd # define putenv _putenv #elif defined(__CYGWIN__) # define HAVE_SETENV # define FOPEN_WB "wb" /* #elif defined (other platforms) ... */ #endif #if defined(PATH_MAX) # define LT_PATHMAX PATH_MAX #elif defined(MAXPATHLEN) # define LT_PATHMAX MAXPATHLEN #else # define LT_PATHMAX 1024 #endif #ifndef S_IXOTH # define S_IXOTH 0 #endif #ifndef S_IXGRP # define S_IXGRP 0 #endif /* path handling portability macros */ #ifndef DIR_SEPARATOR # define DIR_SEPARATOR '/' # define PATH_SEPARATOR ':' #endif #if defined (_WIN32) || defined (__MSDOS__) || defined (__DJGPP__) || \ defined (__OS2__) # define HAVE_DOS_BASED_FILE_SYSTEM # define FOPEN_WB "wb" # ifndef DIR_SEPARATOR_2 # define DIR_SEPARATOR_2 '\\' # endif # ifndef PATH_SEPARATOR_2 # define PATH_SEPARATOR_2 ';' # endif #endif #ifndef DIR_SEPARATOR_2 # define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR) #else /* DIR_SEPARATOR_2 */ # define IS_DIR_SEPARATOR(ch) \ (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2)) #endif /* DIR_SEPARATOR_2 */ #ifndef PATH_SEPARATOR_2 # define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR) #else /* PATH_SEPARATOR_2 */ # define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR_2) #endif /* PATH_SEPARATOR_2 */ #ifndef FOPEN_WB # define FOPEN_WB "w" #endif #ifndef _O_BINARY # define _O_BINARY 0 #endif #define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type))) #define XFREE(stale) do { \ if (stale) { free ((void *) stale); stale = 0; } \ } while (0) #if defined(LT_DEBUGWRAPPER) static int lt_debug = 1; #else static int lt_debug = 0; #endif const char *program_name = "libtool-wrapper"; /* in case xstrdup fails */ void *xmalloc (size_t num); char *xstrdup (const char *string); const char *base_name (const char *name); char *find_executable (const char *wrapper); char *chase_symlinks (const char *pathspec); int make_executable (const char *path); int check_executable (const char *path); char *strendzap (char *str, const char *pat); void lt_debugprintf (const char *file, int line, const char *fmt, ...); void lt_fatal (const char *file, int line, const char *message, ...); static const char *nonnull (const char *s); static const char *nonempty (const char *s); void lt_setenv (const char *name, const char *value); char *lt_extend_str (const char *orig_value, const char *add, int to_end); void lt_update_exe_path (const char *name, const char *value); void lt_update_lib_path (const char *name, const char *value); char **prepare_spawn (char **argv); void lt_dump_script (FILE *f); EOF cat <= 0) && (st.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH))) return 1; else return 0; } int make_executable (const char *path) { int rval = 0; struct stat st; lt_debugprintf (__FILE__, __LINE__, "(make_executable): %s\n", nonempty (path)); if ((!path) || (!*path)) return 0; if (stat (path, &st) >= 0) { rval = chmod (path, st.st_mode | S_IXOTH | S_IXGRP | S_IXUSR); } return rval; } /* Searches for the full path of the wrapper. Returns newly allocated full path name if found, NULL otherwise Does not chase symlinks, even on platforms that support them. */ char * find_executable (const char *wrapper) { int has_slash = 0; const char *p; const char *p_next; /* static buffer for getcwd */ char tmp[LT_PATHMAX + 1]; int tmp_len; char *concat_name; lt_debugprintf (__FILE__, __LINE__, "(find_executable): %s\n", nonempty (wrapper)); if ((wrapper == NULL) || (*wrapper == '\0')) return NULL; /* Absolute path? */ #if defined (HAVE_DOS_BASED_FILE_SYSTEM) if (isalpha ((unsigned char) wrapper[0]) && wrapper[1] == ':') { concat_name = xstrdup (wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } else { #endif if (IS_DIR_SEPARATOR (wrapper[0])) { concat_name = xstrdup (wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } #if defined (HAVE_DOS_BASED_FILE_SYSTEM) } #endif for (p = wrapper; *p; p++) if (*p == '/') { has_slash = 1; break; } if (!has_slash) { /* no slashes; search PATH */ const char *path = getenv ("PATH"); if (path != NULL) { for (p = path; *p; p = p_next) { const char *q; size_t p_len; for (q = p; *q; q++) if (IS_PATH_SEPARATOR (*q)) break; p_len = q - p; p_next = (*q == '\0' ? q : q + 1); if (p_len == 0) { /* empty path: current directory */ if (getcwd (tmp, LT_PATHMAX) == NULL) lt_fatal (__FILE__, __LINE__, "getcwd failed: %s", nonnull (strerror (errno))); tmp_len = strlen (tmp); concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, tmp, tmp_len); concat_name[tmp_len] = '/'; strcpy (concat_name + tmp_len + 1, wrapper); } else { concat_name = XMALLOC (char, p_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, p, p_len); concat_name[p_len] = '/'; strcpy (concat_name + p_len + 1, wrapper); } if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } } /* not found in PATH; assume curdir */ } /* Relative path | not found in path: prepend cwd */ if (getcwd (tmp, LT_PATHMAX) == NULL) lt_fatal (__FILE__, __LINE__, "getcwd failed: %s", nonnull (strerror (errno))); tmp_len = strlen (tmp); concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, tmp, tmp_len); concat_name[tmp_len] = '/'; strcpy (concat_name + tmp_len + 1, wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); return NULL; } char * chase_symlinks (const char *pathspec) { #ifndef S_ISLNK return xstrdup (pathspec); #else char buf[LT_PATHMAX]; struct stat s; char *tmp_pathspec = xstrdup (pathspec); char *p; int has_symlinks = 0; while (strlen (tmp_pathspec) && !has_symlinks) { lt_debugprintf (__FILE__, __LINE__, "checking path component for symlinks: %s\n", tmp_pathspec); if (lstat (tmp_pathspec, &s) == 0) { if (S_ISLNK (s.st_mode) != 0) { has_symlinks = 1; break; } /* search backwards for last DIR_SEPARATOR */ p = tmp_pathspec + strlen (tmp_pathspec) - 1; while ((p > tmp_pathspec) && (!IS_DIR_SEPARATOR (*p))) p--; if ((p == tmp_pathspec) && (!IS_DIR_SEPARATOR (*p))) { /* no more DIR_SEPARATORS left */ break; } *p = '\0'; } else { lt_fatal (__FILE__, __LINE__, "error accessing file \"%s\": %s", tmp_pathspec, nonnull (strerror (errno))); } } XFREE (tmp_pathspec); if (!has_symlinks) { return xstrdup (pathspec); } tmp_pathspec = realpath (pathspec, buf); if (tmp_pathspec == 0) { lt_fatal (__FILE__, __LINE__, "could not follow symlinks for %s", pathspec); } return xstrdup (tmp_pathspec); #endif } char * strendzap (char *str, const char *pat) { size_t len, patlen; assert (str != NULL); assert (pat != NULL); len = strlen (str); patlen = strlen (pat); if (patlen <= len) { str += len - patlen; if (strcmp (str, pat) == 0) *str = '\0'; } return str; } void lt_debugprintf (const char *file, int line, const char *fmt, ...) { va_list args; if (lt_debug) { (void) fprintf (stderr, "%s:%s:%d: ", program_name, file, line); va_start (args, fmt); (void) vfprintf (stderr, fmt, args); va_end (args); } } static void lt_error_core (int exit_status, const char *file, int line, const char *mode, const char *message, va_list ap) { fprintf (stderr, "%s:%s:%d: %s: ", program_name, file, line, mode); vfprintf (stderr, message, ap); fprintf (stderr, ".\n"); if (exit_status >= 0) exit (exit_status); } void lt_fatal (const char *file, int line, const char *message, ...) { va_list ap; va_start (ap, message); lt_error_core (EXIT_FAILURE, file, line, "FATAL", message, ap); va_end (ap); } static const char * nonnull (const char *s) { return s ? s : "(null)"; } static const char * nonempty (const char *s) { return (s && !*s) ? "(empty)" : nonnull (s); } void lt_setenv (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_setenv) setting '%s' to '%s'\n", nonnull (name), nonnull (value)); { #ifdef HAVE_SETENV /* always make a copy, for consistency with !HAVE_SETENV */ char *str = xstrdup (value); setenv (name, str, 1); #else int len = strlen (name) + 1 + strlen (value) + 1; char *str = XMALLOC (char, len); sprintf (str, "%s=%s", name, value); if (putenv (str) != EXIT_SUCCESS) { XFREE (str); } #endif } } char * lt_extend_str (const char *orig_value, const char *add, int to_end) { char *new_value; if (orig_value && *orig_value) { int orig_value_len = strlen (orig_value); int add_len = strlen (add); new_value = XMALLOC (char, add_len + orig_value_len + 1); if (to_end) { strcpy (new_value, orig_value); strcpy (new_value + orig_value_len, add); } else { strcpy (new_value, add); strcpy (new_value + add_len, orig_value); } } else { new_value = xstrdup (add); } return new_value; } void lt_update_exe_path (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_update_exe_path) modifying '%s' by prepending '%s'\n", nonnull (name), nonnull (value)); if (name && *name && value && *value) { char *new_value = lt_extend_str (getenv (name), value, 0); /* some systems can't cope with a ':'-terminated path #' */ int len = strlen (new_value); while (((len = strlen (new_value)) > 0) && IS_PATH_SEPARATOR (new_value[len-1])) { new_value[len-1] = '\0'; } lt_setenv (name, new_value); XFREE (new_value); } } void lt_update_lib_path (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_update_lib_path) modifying '%s' by prepending '%s'\n", nonnull (name), nonnull (value)); if (name && *name && value && *value) { char *new_value = lt_extend_str (getenv (name), value, 0); lt_setenv (name, new_value); XFREE (new_value); } } EOF case $host_os in mingw*) cat <<"EOF" /* Prepares an argument vector before calling spawn(). Note that spawn() does not by itself call the command interpreter (getenv ("COMSPEC") != NULL ? getenv ("COMSPEC") : ({ OSVERSIONINFO v; v.dwOSVersionInfoSize = sizeof(OSVERSIONINFO); GetVersionEx(&v); v.dwPlatformId == VER_PLATFORM_WIN32_NT; }) ? "cmd.exe" : "command.com"). Instead it simply concatenates the arguments, separated by ' ', and calls CreateProcess(). We must quote the arguments since Win32 CreateProcess() interprets characters like ' ', '\t', '\\', '"' (but not '<' and '>') in a special way: - Space and tab are interpreted as delimiters. They are not treated as delimiters if they are surrounded by double quotes: "...". - Unescaped double quotes are removed from the input. Their only effect is that within double quotes, space and tab are treated like normal characters. - Backslashes not followed by double quotes are not special. - But 2*n+1 backslashes followed by a double quote become n backslashes followed by a double quote (n >= 0): \" -> " \\\" -> \" \\\\\" -> \\" */ #define SHELL_SPECIAL_CHARS "\"\\ \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037" #define SHELL_SPACE_CHARS " \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037" char ** prepare_spawn (char **argv) { size_t argc; char **new_argv; size_t i; /* Count number of arguments. */ for (argc = 0; argv[argc] != NULL; argc++) ; /* Allocate new argument vector. */ new_argv = XMALLOC (char *, argc + 1); /* Put quoted arguments into the new argument vector. */ for (i = 0; i < argc; i++) { const char *string = argv[i]; if (string[0] == '\0') new_argv[i] = xstrdup ("\"\""); else if (strpbrk (string, SHELL_SPECIAL_CHARS) != NULL) { int quote_around = (strpbrk (string, SHELL_SPACE_CHARS) != NULL); size_t length; unsigned int backslashes; const char *s; char *quoted_string; char *p; length = 0; backslashes = 0; if (quote_around) length++; for (s = string; *s != '\0'; s++) { char c = *s; if (c == '"') length += backslashes + 1; length++; if (c == '\\') backslashes++; else backslashes = 0; } if (quote_around) length += backslashes + 1; quoted_string = XMALLOC (char, length + 1); p = quoted_string; backslashes = 0; if (quote_around) *p++ = '"'; for (s = string; *s != '\0'; s++) { char c = *s; if (c == '"') { unsigned int j; for (j = backslashes + 1; j > 0; j--) *p++ = '\\'; } *p++ = c; if (c == '\\') backslashes++; else backslashes = 0; } if (quote_around) { unsigned int j; for (j = backslashes; j > 0; j--) *p++ = '\\'; *p++ = '"'; } *p = '\0'; new_argv[i] = quoted_string; } else new_argv[i] = (char *) string; } new_argv[argc] = NULL; return new_argv; } EOF ;; esac cat <<"EOF" void lt_dump_script (FILE* f) { EOF func_emit_wrapper yes | $SED -n -e ' s/^\(.\{79\}\)\(..*\)/\1\ \2/ h s/\([\\"]\)/\\\1/g s/$/\\n/ s/\([^\n]*\).*/ fputs ("\1", f);/p g D' cat <<"EOF" } EOF } # end: func_emit_cwrapperexe_src # func_win32_import_lib_p ARG # True if ARG is an import lib, as indicated by $file_magic_cmd func_win32_import_lib_p () { $opt_debug case `eval $file_magic_cmd \"\$1\" 2>/dev/null | $SED -e 10q` in *import*) : ;; *) false ;; esac } # func_mode_link arg... func_mode_link () { $opt_debug case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) # It is impossible to link a dll without this setting, and # we shouldn't force the makefile maintainer to figure out # which system we are compiling for in order to pass an extra # flag for every libtool invocation. # allow_undefined=no # FIXME: Unfortunately, there are problems with the above when trying # to make a dll which has undefined symbols, in which case not # even a static library is built. For now, we need to specify # -no-undefined on the libtool link line when we can be certain # that all symbols are satisfied, otherwise we get a static library. allow_undefined=yes ;; *) allow_undefined=yes ;; esac libtool_args=$nonopt base_compile="$nonopt $@" compile_command=$nonopt finalize_command=$nonopt compile_rpath= finalize_rpath= compile_shlibpath= finalize_shlibpath= convenience= old_convenience= deplibs= old_deplibs= compiler_flags= linker_flags= dllsearchpath= lib_search_path=`pwd` inst_prefix_dir= new_inherited_linker_flags= avoid_version=no bindir= dlfiles= dlprefiles= dlself=no export_dynamic=no export_symbols= export_symbols_regex= generated= libobjs= ltlibs= module=no no_install=no objs= non_pic_objects= precious_files_regex= prefer_static_libs=no preload=no prev= prevarg= release= rpath= xrpath= perm_rpath= temp_rpath= thread_safe=no vinfo= vinfo_number=no weak_libs= single_module="${wl}-single_module" func_infer_tag $base_compile # We need to know -static, to get the right output filenames. for arg do case $arg in -shared) test "$build_libtool_libs" != yes && \ func_fatal_configuration "can not build a shared library" build_old_libs=no break ;; -all-static | -static | -static-libtool-libs) case $arg in -all-static) if test "$build_libtool_libs" = yes && test -z "$link_static_flag"; then func_warning "complete static linking is impossible in this configuration" fi if test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=yes ;; -static) if test -z "$pic_flag" && test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=built ;; -static-libtool-libs) if test -z "$pic_flag" && test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=yes ;; esac build_libtool_libs=no build_old_libs=yes break ;; esac done # See if our shared archives depend on static archives. test -n "$old_archive_from_new_cmds" && build_old_libs=yes # Go through the arguments, transforming them on the way. while test "$#" -gt 0; do arg="$1" shift func_quote_for_eval "$arg" qarg=$func_quote_for_eval_unquoted_result func_append libtool_args " $func_quote_for_eval_result" # If the previous option needs an argument, assign it. if test -n "$prev"; then case $prev in output) func_append compile_command " @OUTPUT@" func_append finalize_command " @OUTPUT@" ;; esac case $prev in bindir) bindir="$arg" prev= continue ;; dlfiles|dlprefiles) if test "$preload" = no; then # Add the symbol object into the linking commands. func_append compile_command " @SYMFILE@" func_append finalize_command " @SYMFILE@" preload=yes fi case $arg in *.la | *.lo) ;; # We handle these cases below. force) if test "$dlself" = no; then dlself=needless export_dynamic=yes fi prev= continue ;; self) if test "$prev" = dlprefiles; then dlself=yes elif test "$prev" = dlfiles && test "$dlopen_self" != yes; then dlself=yes else dlself=needless export_dynamic=yes fi prev= continue ;; *) if test "$prev" = dlfiles; then func_append dlfiles " $arg" else func_append dlprefiles " $arg" fi prev= continue ;; esac ;; expsyms) export_symbols="$arg" test -f "$arg" \ || func_fatal_error "symbol file \`$arg' does not exist" prev= continue ;; expsyms_regex) export_symbols_regex="$arg" prev= continue ;; framework) case $host in *-*-darwin*) case "$deplibs " in *" $qarg.ltframework "*) ;; *) func_append deplibs " $qarg.ltframework" # this is fixed later ;; esac ;; esac prev= continue ;; inst_prefix) inst_prefix_dir="$arg" prev= continue ;; objectlist) if test -f "$arg"; then save_arg=$arg moreargs= for fil in `cat "$save_arg"` do # func_append moreargs " $fil" arg=$fil # A libtool-controlled object. # Check to see that this really is a libtool object. if func_lalib_unsafe_p "$arg"; then pic_object= non_pic_object= # Read the .lo file func_source "$arg" if test -z "$pic_object" || test -z "$non_pic_object" || test "$pic_object" = none && test "$non_pic_object" = none; then func_fatal_error "cannot find name of object for \`$arg'" fi # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" if test "$pic_object" != none; then # Prepend the subdirectory the object is found in. pic_object="$xdir$pic_object" if test "$prev" = dlfiles; then if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then func_append dlfiles " $pic_object" prev= continue else # If libtool objects are unsupported, then we need to preload. prev=dlprefiles fi fi # CHECK ME: I think I busted this. -Ossama if test "$prev" = dlprefiles; then # Preload the old-style object. func_append dlprefiles " $pic_object" prev= fi # A PIC object. func_append libobjs " $pic_object" arg="$pic_object" fi # Non-PIC object. if test "$non_pic_object" != none; then # Prepend the subdirectory the object is found in. non_pic_object="$xdir$non_pic_object" # A standard non-PIC object func_append non_pic_objects " $non_pic_object" if test -z "$pic_object" || test "$pic_object" = none ; then arg="$non_pic_object" fi else # If the PIC object exists, use it instead. # $xdir was prepended to $pic_object above. non_pic_object="$pic_object" func_append non_pic_objects " $non_pic_object" fi else # Only an error if not doing a dry-run. if $opt_dry_run; then # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" func_lo2o "$arg" pic_object=$xdir$objdir/$func_lo2o_result non_pic_object=$xdir$func_lo2o_result func_append libobjs " $pic_object" func_append non_pic_objects " $non_pic_object" else func_fatal_error "\`$arg' is not a valid libtool object" fi fi done else func_fatal_error "link input file \`$arg' does not exist" fi arg=$save_arg prev= continue ;; precious_regex) precious_files_regex="$arg" prev= continue ;; release) release="-$arg" prev= continue ;; rpath | xrpath) # We need an absolute path. case $arg in [\\/]* | [A-Za-z]:[\\/]*) ;; *) func_fatal_error "only absolute run-paths are allowed" ;; esac if test "$prev" = rpath; then case "$rpath " in *" $arg "*) ;; *) func_append rpath " $arg" ;; esac else case "$xrpath " in *" $arg "*) ;; *) func_append xrpath " $arg" ;; esac fi prev= continue ;; shrext) shrext_cmds="$arg" prev= continue ;; weak) func_append weak_libs " $arg" prev= continue ;; xcclinker) func_append linker_flags " $qarg" func_append compiler_flags " $qarg" prev= func_append compile_command " $qarg" func_append finalize_command " $qarg" continue ;; xcompiler) func_append compiler_flags " $qarg" prev= func_append compile_command " $qarg" func_append finalize_command " $qarg" continue ;; xlinker) func_append linker_flags " $qarg" func_append compiler_flags " $wl$qarg" prev= func_append compile_command " $wl$qarg" func_append finalize_command " $wl$qarg" continue ;; *) eval "$prev=\"\$arg\"" prev= continue ;; esac fi # test -n "$prev" prevarg="$arg" case $arg in -all-static) if test -n "$link_static_flag"; then # See comment for -static flag below, for more details. func_append compile_command " $link_static_flag" func_append finalize_command " $link_static_flag" fi continue ;; -allow-undefined) # FIXME: remove this flag sometime in the future. func_fatal_error "\`-allow-undefined' must not be used because it is the default" ;; -avoid-version) avoid_version=yes continue ;; -bindir) prev=bindir continue ;; -dlopen) prev=dlfiles continue ;; -dlpreopen) prev=dlprefiles continue ;; -export-dynamic) export_dynamic=yes continue ;; -export-symbols | -export-symbols-regex) if test -n "$export_symbols" || test -n "$export_symbols_regex"; then func_fatal_error "more than one -exported-symbols argument is not allowed" fi if test "X$arg" = "X-export-symbols"; then prev=expsyms else prev=expsyms_regex fi continue ;; -framework) prev=framework continue ;; -inst-prefix-dir) prev=inst_prefix continue ;; # The native IRIX linker understands -LANG:*, -LIST:* and -LNO:* # so, if we see these flags be careful not to treat them like -L -L[A-Z][A-Z]*:*) case $with_gcc/$host in no/*-*-irix* | /*-*-irix*) func_append compile_command " $arg" func_append finalize_command " $arg" ;; esac continue ;; -L*) func_stripname "-L" '' "$arg" if test -z "$func_stripname_result"; then if test "$#" -gt 0; then func_fatal_error "require no space between \`-L' and \`$1'" else func_fatal_error "need path for \`-L' option" fi fi func_resolve_sysroot "$func_stripname_result" dir=$func_resolve_sysroot_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) absdir=`cd "$dir" && pwd` test -z "$absdir" && \ func_fatal_error "cannot determine absolute directory name of \`$dir'" dir="$absdir" ;; esac case "$deplibs " in *" -L$dir "* | *" $arg "*) # Will only happen for absolute or sysroot arguments ;; *) # Preserve sysroot, but never include relative directories case $dir in [\\/]* | [A-Za-z]:[\\/]* | =*) func_append deplibs " $arg" ;; *) func_append deplibs " -L$dir" ;; esac func_append lib_search_path " $dir" ;; esac case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) testbindir=`$ECHO "$dir" | $SED 's*/lib$*/bin*'` case :$dllsearchpath: in *":$dir:"*) ;; ::) dllsearchpath=$dir;; *) func_append dllsearchpath ":$dir";; esac case :$dllsearchpath: in *":$testbindir:"*) ;; ::) dllsearchpath=$testbindir;; *) func_append dllsearchpath ":$testbindir";; esac ;; esac continue ;; -l*) if test "X$arg" = "X-lc" || test "X$arg" = "X-lm"; then case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-beos* | *-cegcc* | *-*-haiku*) # These systems don't actually have a C or math library (as such) continue ;; *-*-os2*) # These systems don't actually have a C library (as such) test "X$arg" = "X-lc" && continue ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc due to us having libc/libc_r. test "X$arg" = "X-lc" && continue ;; *-*-rhapsody* | *-*-darwin1.[012]) # Rhapsody C and math libraries are in the System framework func_append deplibs " System.ltframework" continue ;; *-*-sco3.2v5* | *-*-sco5v6*) # Causes problems with __ctype test "X$arg" = "X-lc" && continue ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work test "X$arg" = "X-lc" && continue ;; esac elif test "X$arg" = "X-lc_r"; then case $host in *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc_r directly, use -pthread flag. continue ;; esac fi func_append deplibs " $arg" continue ;; -module) module=yes continue ;; # Tru64 UNIX uses -model [arg] to determine the layout of C++ # classes, name mangling, and exception handling. # Darwin uses the -arch flag to determine output architecture. -model|-arch|-isysroot|--sysroot) func_append compiler_flags " $arg" func_append compile_command " $arg" func_append finalize_command " $arg" prev=xcompiler continue ;; -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) func_append compiler_flags " $arg" func_append compile_command " $arg" func_append finalize_command " $arg" case "$new_inherited_linker_flags " in *" $arg "*) ;; * ) func_append new_inherited_linker_flags " $arg" ;; esac continue ;; -multi_module) single_module="${wl}-multi_module" continue ;; -no-fast-install) fast_install=no continue ;; -no-install) case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-darwin* | *-cegcc*) # The PATH hackery in wrapper scripts is required on Windows # and Darwin in order for the loader to find any dlls it needs. func_warning "\`-no-install' is ignored for $host" func_warning "assuming \`-no-fast-install' instead" fast_install=no ;; *) no_install=yes ;; esac continue ;; -no-undefined) allow_undefined=no continue ;; -objectlist) prev=objectlist continue ;; -o) prev=output ;; -precious-files-regex) prev=precious_regex continue ;; -release) prev=release continue ;; -rpath) prev=rpath continue ;; -R) prev=xrpath continue ;; -R*) func_stripname '-R' '' "$arg" dir=$func_stripname_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) ;; =*) func_stripname '=' '' "$dir" dir=$lt_sysroot$func_stripname_result ;; *) func_fatal_error "only absolute run-paths are allowed" ;; esac case "$xrpath " in *" $dir "*) ;; *) func_append xrpath " $dir" ;; esac continue ;; -shared) # The effects of -shared are defined in a previous loop. continue ;; -shrext) prev=shrext continue ;; -static | -static-libtool-libs) # The effects of -static are defined in a previous loop. # We used to do the same as -all-static on platforms that # didn't have a PIC flag, but the assumption that the effects # would be equivalent was wrong. It would break on at least # Digital Unix and AIX. continue ;; -thread-safe) thread_safe=yes continue ;; -version-info) prev=vinfo continue ;; -version-number) prev=vinfo vinfo_number=yes continue ;; -weak) prev=weak continue ;; -Wc,*) func_stripname '-Wc,' '' "$arg" args=$func_stripname_result arg= save_ifs="$IFS"; IFS=',' for flag in $args; do IFS="$save_ifs" func_quote_for_eval "$flag" func_append arg " $func_quote_for_eval_result" func_append compiler_flags " $func_quote_for_eval_result" done IFS="$save_ifs" func_stripname ' ' '' "$arg" arg=$func_stripname_result ;; -Wl,*) func_stripname '-Wl,' '' "$arg" args=$func_stripname_result arg= save_ifs="$IFS"; IFS=',' for flag in $args; do IFS="$save_ifs" func_quote_for_eval "$flag" func_append arg " $wl$func_quote_for_eval_result" func_append compiler_flags " $wl$func_quote_for_eval_result" func_append linker_flags " $func_quote_for_eval_result" done IFS="$save_ifs" func_stripname ' ' '' "$arg" arg=$func_stripname_result ;; -Xcompiler) prev=xcompiler continue ;; -Xlinker) prev=xlinker continue ;; -XCClinker) prev=xcclinker continue ;; # -msg_* for osf cc -msg_*) func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" ;; # Flags to be passed through unchanged, with rationale: # -64, -mips[0-9] enable 64-bit mode for the SGI compiler # -r[0-9][0-9]* specify processor for the SGI compiler # -xarch=*, -xtarget=* enable 64-bit mode for the Sun compiler # +DA*, +DD* enable 64-bit mode for the HP compiler # -q* compiler args for the IBM compiler # -m*, -t[45]*, -txscale* architecture-specific flags for GCC # -F/path path to uninstalled frameworks, gcc on darwin # -p, -pg, --coverage, -fprofile-* profiling flags for GCC # @file GCC response files # -tp=* Portland pgcc target processor selection # --sysroot=* for sysroot support # -O*, -flto*, -fwhopr*, -fuse-linker-plugin GCC link-time optimization -64|-mips[0-9]|-r[0-9][0-9]*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*| \ -t[45]*|-txscale*|-p|-pg|--coverage|-fprofile-*|-F*|@*|-tp=*|--sysroot=*| \ -O*|-flto*|-fwhopr*|-fuse-linker-plugin) func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" func_append compile_command " $arg" func_append finalize_command " $arg" func_append compiler_flags " $arg" continue ;; # Some other compiler flag. -* | +*) func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" ;; *.$objext) # A standard object. func_append objs " $arg" ;; *.lo) # A libtool-controlled object. # Check to see that this really is a libtool object. if func_lalib_unsafe_p "$arg"; then pic_object= non_pic_object= # Read the .lo file func_source "$arg" if test -z "$pic_object" || test -z "$non_pic_object" || test "$pic_object" = none && test "$non_pic_object" = none; then func_fatal_error "cannot find name of object for \`$arg'" fi # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" if test "$pic_object" != none; then # Prepend the subdirectory the object is found in. pic_object="$xdir$pic_object" if test "$prev" = dlfiles; then if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then func_append dlfiles " $pic_object" prev= continue else # If libtool objects are unsupported, then we need to preload. prev=dlprefiles fi fi # CHECK ME: I think I busted this. -Ossama if test "$prev" = dlprefiles; then # Preload the old-style object. func_append dlprefiles " $pic_object" prev= fi # A PIC object. func_append libobjs " $pic_object" arg="$pic_object" fi # Non-PIC object. if test "$non_pic_object" != none; then # Prepend the subdirectory the object is found in. non_pic_object="$xdir$non_pic_object" # A standard non-PIC object func_append non_pic_objects " $non_pic_object" if test -z "$pic_object" || test "$pic_object" = none ; then arg="$non_pic_object" fi else # If the PIC object exists, use it instead. # $xdir was prepended to $pic_object above. non_pic_object="$pic_object" func_append non_pic_objects " $non_pic_object" fi else # Only an error if not doing a dry-run. if $opt_dry_run; then # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" func_lo2o "$arg" pic_object=$xdir$objdir/$func_lo2o_result non_pic_object=$xdir$func_lo2o_result func_append libobjs " $pic_object" func_append non_pic_objects " $non_pic_object" else func_fatal_error "\`$arg' is not a valid libtool object" fi fi ;; *.$libext) # An archive. func_append deplibs " $arg" func_append old_deplibs " $arg" continue ;; *.la) # A libtool-controlled library. func_resolve_sysroot "$arg" if test "$prev" = dlfiles; then # This library was specified with -dlopen. func_append dlfiles " $func_resolve_sysroot_result" prev= elif test "$prev" = dlprefiles; then # The library was specified with -dlpreopen. func_append dlprefiles " $func_resolve_sysroot_result" prev= else func_append deplibs " $func_resolve_sysroot_result" fi continue ;; # Some other compiler argument. *) # Unknown arguments in both finalize_command and compile_command need # to be aesthetically quoted because they are evaled later. func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" ;; esac # arg # Now actually substitute the argument into the commands. if test -n "$arg"; then func_append compile_command " $arg" func_append finalize_command " $arg" fi done # argument parsing loop test -n "$prev" && \ func_fatal_help "the \`$prevarg' option requires an argument" if test "$export_dynamic" = yes && test -n "$export_dynamic_flag_spec"; then eval arg=\"$export_dynamic_flag_spec\" func_append compile_command " $arg" func_append finalize_command " $arg" fi oldlibs= # calculate the name of the file, without its directory func_basename "$output" outputname="$func_basename_result" libobjs_save="$libobjs" if test -n "$shlibpath_var"; then # get the directories listed in $shlibpath_var eval shlib_search_path=\`\$ECHO \"\${$shlibpath_var}\" \| \$SED \'s/:/ /g\'\` else shlib_search_path= fi eval sys_lib_search_path=\"$sys_lib_search_path_spec\" eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\" func_dirname "$output" "/" "" output_objdir="$func_dirname_result$objdir" func_to_tool_file "$output_objdir/" tool_output_objdir=$func_to_tool_file_result # Create the object directory. func_mkdir_p "$output_objdir" # Determine the type of output case $output in "") func_fatal_help "you must specify an output file" ;; *.$libext) linkmode=oldlib ;; *.lo | *.$objext) linkmode=obj ;; *.la) linkmode=lib ;; *) linkmode=prog ;; # Anything else should be a program. esac specialdeplibs= libs= # Find all interdependent deplibs by searching for libraries # that are linked more than once (e.g. -la -lb -la) for deplib in $deplibs; do if $opt_preserve_dup_deps ; then case "$libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append libs " $deplib" done if test "$linkmode" = lib; then libs="$predeps $libs $compiler_lib_search_path $postdeps" # Compute libraries that are listed more than once in $predeps # $postdeps and mark them as special (i.e., whose duplicates are # not to be eliminated). pre_post_deps= if $opt_duplicate_compiler_generated_deps; then for pre_post_dep in $predeps $postdeps; do case "$pre_post_deps " in *" $pre_post_dep "*) func_append specialdeplibs " $pre_post_deps" ;; esac func_append pre_post_deps " $pre_post_dep" done fi pre_post_deps= fi deplibs= newdependency_libs= newlib_search_path= need_relink=no # whether we're linking any uninstalled libtool libraries notinst_deplibs= # not-installed libtool libraries notinst_path= # paths that contain not-installed libtool libraries case $linkmode in lib) passes="conv dlpreopen link" for file in $dlfiles $dlprefiles; do case $file in *.la) ;; *) func_fatal_help "libraries can \`-dlopen' only libtool libraries: $file" ;; esac done ;; prog) compile_deplibs= finalize_deplibs= alldeplibs=no newdlfiles= newdlprefiles= passes="conv scan dlopen dlpreopen link" ;; *) passes="conv" ;; esac for pass in $passes; do # The preopen pass in lib mode reverses $deplibs; put it back here # so that -L comes before libs that need it for instance... if test "$linkmode,$pass" = "lib,link"; then ## FIXME: Find the place where the list is rebuilt in the wrong ## order, and fix it there properly tmp_deplibs= for deplib in $deplibs; do tmp_deplibs="$deplib $tmp_deplibs" done deplibs="$tmp_deplibs" fi if test "$linkmode,$pass" = "lib,link" || test "$linkmode,$pass" = "prog,scan"; then libs="$deplibs" deplibs= fi if test "$linkmode" = prog; then case $pass in dlopen) libs="$dlfiles" ;; dlpreopen) libs="$dlprefiles" ;; link) libs="$deplibs %DEPLIBS%" test "X$link_all_deplibs" != Xno && libs="$libs $dependency_libs" ;; esac fi if test "$linkmode,$pass" = "lib,dlpreopen"; then # Collect and forward deplibs of preopened libtool libs for lib in $dlprefiles; do # Ignore non-libtool-libs dependency_libs= func_resolve_sysroot "$lib" case $lib in *.la) func_source "$func_resolve_sysroot_result" ;; esac # Collect preopened libtool deplibs, except any this library # has declared as weak libs for deplib in $dependency_libs; do func_basename "$deplib" deplib_base=$func_basename_result case " $weak_libs " in *" $deplib_base "*) ;; *) func_append deplibs " $deplib" ;; esac done done libs="$dlprefiles" fi if test "$pass" = dlopen; then # Collect dlpreopened libraries save_deplibs="$deplibs" deplibs= fi for deplib in $libs; do lib= found=no case $deplib in -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else func_append compiler_flags " $deplib" if test "$linkmode" = lib ; then case "$new_inherited_linker_flags " in *" $deplib "*) ;; * ) func_append new_inherited_linker_flags " $deplib" ;; esac fi fi continue ;; -l*) if test "$linkmode" != lib && test "$linkmode" != prog; then func_warning "\`-l' is ignored for archives/objects" continue fi func_stripname '-l' '' "$deplib" name=$func_stripname_result if test "$linkmode" = lib; then searchdirs="$newlib_search_path $lib_search_path $compiler_lib_search_dirs $sys_lib_search_path $shlib_search_path" else searchdirs="$newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path" fi for searchdir in $searchdirs; do for search_ext in .la $std_shrext .so .a; do # Search the libtool library lib="$searchdir/lib${name}${search_ext}" if test -f "$lib"; then if test "$search_ext" = ".la"; then found=yes else found=no fi break 2 fi done done if test "$found" != yes; then # deplib doesn't seem to be a libtool library if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" fi continue else # deplib is a libtool library # If $allow_libtool_libs_with_static_runtimes && $deplib is a stdlib, # We need to do some special things here, and not later. if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then case " $predeps $postdeps " in *" $deplib "*) if func_lalib_p "$lib"; then library_names= old_library= func_source "$lib" for l in $old_library $library_names; do ll="$l" done if test "X$ll" = "X$old_library" ; then # only static version available found=no func_dirname "$lib" "" "." ladir="$func_dirname_result" lib=$ladir/$old_library if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" fi continue fi fi ;; *) ;; esac fi fi ;; # -l *.ltframework) if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" if test "$linkmode" = lib ; then case "$new_inherited_linker_flags " in *" $deplib "*) ;; * ) func_append new_inherited_linker_flags " $deplib" ;; esac fi fi continue ;; -L*) case $linkmode in lib) deplibs="$deplib $deplibs" test "$pass" = conv && continue newdependency_libs="$deplib $newdependency_libs" func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; prog) if test "$pass" = conv; then deplibs="$deplib $deplibs" continue fi if test "$pass" = scan; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; *) func_warning "\`-L' is ignored for archives/objects" ;; esac # linkmode continue ;; # -L -R*) if test "$pass" = link; then func_stripname '-R' '' "$deplib" func_resolve_sysroot "$func_stripname_result" dir=$func_resolve_sysroot_result # Make sure the xrpath contains only unique directories. case "$xrpath " in *" $dir "*) ;; *) func_append xrpath " $dir" ;; esac fi deplibs="$deplib $deplibs" continue ;; *.la) func_resolve_sysroot "$deplib" lib=$func_resolve_sysroot_result ;; *.$libext) if test "$pass" = conv; then deplibs="$deplib $deplibs" continue fi case $linkmode in lib) # Linking convenience modules into shared libraries is allowed, # but linking other static libraries is non-portable. case " $dlpreconveniencelibs " in *" $deplib "*) ;; *) valid_a_lib=no case $deplibs_check_method in match_pattern*) set dummy $deplibs_check_method; shift match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"` if eval "\$ECHO \"$deplib\"" 2>/dev/null | $SED 10q \ | $EGREP "$match_pattern_regex" > /dev/null; then valid_a_lib=yes fi ;; pass_all) valid_a_lib=yes ;; esac if test "$valid_a_lib" != yes; then echo $ECHO "*** Warning: Trying to link with static lib archive $deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because the file extensions .$libext of this argument makes me believe" echo "*** that it is just a static archive that I should not use here." else echo $ECHO "*** Warning: Linking the shared library $output against the" $ECHO "*** static library $deplib is not portable!" deplibs="$deplib $deplibs" fi ;; esac continue ;; prog) if test "$pass" != link; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi continue ;; esac # linkmode ;; # *.$libext *.lo | *.$objext) if test "$pass" = conv; then deplibs="$deplib $deplibs" elif test "$linkmode" = prog; then if test "$pass" = dlpreopen || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then # If there is no dlopen support or we're linking statically, # we need to preload. func_append newdlprefiles " $deplib" compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else func_append newdlfiles " $deplib" fi fi continue ;; %DEPLIBS%) alldeplibs=yes continue ;; esac # case $deplib if test "$found" = yes || test -f "$lib"; then : else func_fatal_error "cannot find the library \`$lib' or unhandled argument \`$deplib'" fi # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$lib" \ || func_fatal_error "\`$lib' is not a valid libtool archive" func_dirname "$lib" "" "." ladir="$func_dirname_result" dlname= dlopen= dlpreopen= libdir= library_names= old_library= inherited_linker_flags= # If the library was installed with an old release of libtool, # it will not redefine variables installed, or shouldnotlink installed=yes shouldnotlink=no avoidtemprpath= # Read the .la file func_source "$lib" # Convert "-framework foo" to "foo.ltframework" if test -n "$inherited_linker_flags"; then tmp_inherited_linker_flags=`$ECHO "$inherited_linker_flags" | $SED 's/-framework \([^ $]*\)/\1.ltframework/g'` for tmp_inherited_linker_flag in $tmp_inherited_linker_flags; do case " $new_inherited_linker_flags " in *" $tmp_inherited_linker_flag "*) ;; *) func_append new_inherited_linker_flags " $tmp_inherited_linker_flag";; esac done fi dependency_libs=`$ECHO " $dependency_libs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` if test "$linkmode,$pass" = "lib,link" || test "$linkmode,$pass" = "prog,scan" || { test "$linkmode" != prog && test "$linkmode" != lib; }; then test -n "$dlopen" && func_append dlfiles " $dlopen" test -n "$dlpreopen" && func_append dlprefiles " $dlpreopen" fi if test "$pass" = conv; then # Only check for convenience libraries deplibs="$lib $deplibs" if test -z "$libdir"; then if test -z "$old_library"; then func_fatal_error "cannot find name of link library for \`$lib'" fi # It is a libtool convenience library, so add in its objects. func_append convenience " $ladir/$objdir/$old_library" func_append old_convenience " $ladir/$objdir/$old_library" tmp_libs= for deplib in $dependency_libs; do deplibs="$deplib $deplibs" if $opt_preserve_dup_deps ; then case "$tmp_libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append tmp_libs " $deplib" done elif test "$linkmode" != prog && test "$linkmode" != lib; then func_fatal_error "\`$lib' is not a convenience library" fi continue fi # $pass = conv # Get the name of the library we link against. linklib= if test -n "$old_library" && { test "$prefer_static_libs" = yes || test "$prefer_static_libs,$installed" = "built,no"; }; then linklib=$old_library else for l in $old_library $library_names; do linklib="$l" done fi if test -z "$linklib"; then func_fatal_error "cannot find name of link library for \`$lib'" fi # This library was specified with -dlopen. if test "$pass" = dlopen; then if test -z "$libdir"; then func_fatal_error "cannot -dlopen a convenience library: \`$lib'" fi if test -z "$dlname" || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then # If there is no dlname, no dlopen support or we're linking # statically, we need to preload. We also need to preload any # dependent libraries so libltdl's deplib preloader doesn't # bomb out in the load deplibs phase. func_append dlprefiles " $lib $dependency_libs" else func_append newdlfiles " $lib" fi continue fi # $pass = dlopen # We need an absolute path. case $ladir in [\\/]* | [A-Za-z]:[\\/]*) abs_ladir="$ladir" ;; *) abs_ladir=`cd "$ladir" && pwd` if test -z "$abs_ladir"; then func_warning "cannot determine absolute directory name of \`$ladir'" func_warning "passing it literally to the linker, although it might fail" abs_ladir="$ladir" fi ;; esac func_basename "$lib" laname="$func_basename_result" # Find the relevant object directory and library name. if test "X$installed" = Xyes; then if test ! -f "$lt_sysroot$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then func_warning "library \`$lib' was moved." dir="$ladir" absdir="$abs_ladir" libdir="$abs_ladir" else dir="$lt_sysroot$libdir" absdir="$lt_sysroot$libdir" fi test "X$hardcode_automatic" = Xyes && avoidtemprpath=yes else if test ! -f "$ladir/$objdir/$linklib" && test -f "$abs_ladir/$linklib"; then dir="$ladir" absdir="$abs_ladir" # Remove this search path later func_append notinst_path " $abs_ladir" else dir="$ladir/$objdir" absdir="$abs_ladir/$objdir" # Remove this search path later func_append notinst_path " $abs_ladir" fi fi # $installed = yes func_stripname 'lib' '.la' "$laname" name=$func_stripname_result # This library was specified with -dlpreopen. if test "$pass" = dlpreopen; then if test -z "$libdir" && test "$linkmode" = prog; then func_fatal_error "only libraries may -dlpreopen a convenience library: \`$lib'" fi case "$host" in # special handling for platforms with PE-DLLs. *cygwin* | *mingw* | *cegcc* ) # Linker will automatically link against shared library if both # static and shared are present. Therefore, ensure we extract # symbols from the import library if a shared library is present # (otherwise, the dlopen module name will be incorrect). We do # this by putting the import library name into $newdlprefiles. # We recover the dlopen module name by 'saving' the la file # name in a special purpose variable, and (later) extracting the # dlname from the la file. if test -n "$dlname"; then func_tr_sh "$dir/$linklib" eval "libfile_$func_tr_sh_result=\$abs_ladir/\$laname" func_append newdlprefiles " $dir/$linklib" else func_append newdlprefiles " $dir/$old_library" # Keep a list of preopened convenience libraries to check # that they are being used correctly in the link pass. test -z "$libdir" && \ func_append dlpreconveniencelibs " $dir/$old_library" fi ;; * ) # Prefer using a static library (so that no silly _DYNAMIC symbols # are required to link). if test -n "$old_library"; then func_append newdlprefiles " $dir/$old_library" # Keep a list of preopened convenience libraries to check # that they are being used correctly in the link pass. test -z "$libdir" && \ func_append dlpreconveniencelibs " $dir/$old_library" # Otherwise, use the dlname, so that lt_dlopen finds it. elif test -n "$dlname"; then func_append newdlprefiles " $dir/$dlname" else func_append newdlprefiles " $dir/$linklib" fi ;; esac fi # $pass = dlpreopen if test -z "$libdir"; then # Link the convenience library if test "$linkmode" = lib; then deplibs="$dir/$old_library $deplibs" elif test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$dir/$old_library $compile_deplibs" finalize_deplibs="$dir/$old_library $finalize_deplibs" else deplibs="$lib $deplibs" # used for prog,scan pass fi continue fi if test "$linkmode" = prog && test "$pass" != link; then func_append newlib_search_path " $ladir" deplibs="$lib $deplibs" linkalldeplibs=no if test "$link_all_deplibs" != no || test -z "$library_names" || test "$build_libtool_libs" = no; then linkalldeplibs=yes fi tmp_libs= for deplib in $dependency_libs; do case $deplib in -L*) func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; esac # Need to link against all dependency_libs? if test "$linkalldeplibs" = yes; then deplibs="$deplib $deplibs" else # Need to hardcode shared library paths # or/and link against static libraries newdependency_libs="$deplib $newdependency_libs" fi if $opt_preserve_dup_deps ; then case "$tmp_libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append tmp_libs " $deplib" done # for deplib continue fi # $linkmode = prog... if test "$linkmode,$pass" = "prog,link"; then if test -n "$library_names" && { { test "$prefer_static_libs" = no || test "$prefer_static_libs,$installed" = "built,yes"; } || test -z "$old_library"; }; then # We need to hardcode the library path if test -n "$shlibpath_var" && test -z "$avoidtemprpath" ; then # Make sure the rpath contains only unique directories. case "$temp_rpath:" in *"$absdir:"*) ;; *) func_append temp_rpath "$absdir:" ;; esac fi # Hardcode the library path. # Skip directories that are in the system default run-time # search path. case " $sys_lib_dlsearch_path " in *" $absdir "*) ;; *) case "$compile_rpath " in *" $absdir "*) ;; *) func_append compile_rpath " $absdir" ;; esac ;; esac case " $sys_lib_dlsearch_path " in *" $libdir "*) ;; *) case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac ;; esac fi # $linkmode,$pass = prog,link... if test "$alldeplibs" = yes && { test "$deplibs_check_method" = pass_all || { test "$build_libtool_libs" = yes && test -n "$library_names"; }; }; then # We only need to search for static libraries continue fi fi link_static=no # Whether the deplib will be linked statically use_static_libs=$prefer_static_libs if test "$use_static_libs" = built && test "$installed" = yes; then use_static_libs=no fi if test -n "$library_names" && { test "$use_static_libs" = no || test -z "$old_library"; }; then case $host in *cygwin* | *mingw* | *cegcc*) # No point in relinking DLLs because paths are not encoded func_append notinst_deplibs " $lib" need_relink=no ;; *) if test "$installed" = no; then func_append notinst_deplibs " $lib" need_relink=yes fi ;; esac # This is a shared library # Warn about portability, can't link against -module's on some # systems (darwin). Don't bleat about dlopened modules though! dlopenmodule="" for dlpremoduletest in $dlprefiles; do if test "X$dlpremoduletest" = "X$lib"; then dlopenmodule="$dlpremoduletest" break fi done if test -z "$dlopenmodule" && test "$shouldnotlink" = yes && test "$pass" = link; then echo if test "$linkmode" = prog; then $ECHO "*** Warning: Linking the executable $output against the loadable module" else $ECHO "*** Warning: Linking the shared library $output against the loadable module" fi $ECHO "*** $linklib is not portable!" fi if test "$linkmode" = lib && test "$hardcode_into_libs" = yes; then # Hardcode the library path. # Skip directories that are in the system default run-time # search path. case " $sys_lib_dlsearch_path " in *" $absdir "*) ;; *) case "$compile_rpath " in *" $absdir "*) ;; *) func_append compile_rpath " $absdir" ;; esac ;; esac case " $sys_lib_dlsearch_path " in *" $libdir "*) ;; *) case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac ;; esac fi if test -n "$old_archive_from_expsyms_cmds"; then # figure out the soname set dummy $library_names shift realname="$1" shift libname=`eval "\\$ECHO \"$libname_spec\""` # use dlname if we got it. it's perfectly good, no? if test -n "$dlname"; then soname="$dlname" elif test -n "$soname_spec"; then # bleh windows case $host in *cygwin* | mingw* | *cegcc*) func_arith $current - $age major=$func_arith_result versuffix="-$major" ;; esac eval soname=\"$soname_spec\" else soname="$realname" fi # Make a new name for the extract_expsyms_cmds to use soroot="$soname" func_basename "$soroot" soname="$func_basename_result" func_stripname 'lib' '.dll' "$soname" newlib=libimp-$func_stripname_result.a # If the library has no export list, then create one now if test -f "$output_objdir/$soname-def"; then : else func_verbose "extracting exported symbol list from \`$soname'" func_execute_cmds "$extract_expsyms_cmds" 'exit $?' fi # Create $newlib if test -f "$output_objdir/$newlib"; then :; else func_verbose "generating import library for \`$soname'" func_execute_cmds "$old_archive_from_expsyms_cmds" 'exit $?' fi # make sure the library variables are pointing to the new library dir=$output_objdir linklib=$newlib fi # test -n "$old_archive_from_expsyms_cmds" if test "$linkmode" = prog || test "$opt_mode" != relink; then add_shlibpath= add_dir= add= lib_linked=yes case $hardcode_action in immediate | unsupported) if test "$hardcode_direct" = no; then add="$dir/$linklib" case $host in *-*-sco3.2v5.0.[024]*) add_dir="-L$dir" ;; *-*-sysv4*uw2*) add_dir="-L$dir" ;; *-*-sysv5OpenUNIX* | *-*-sysv5UnixWare7.[01].[10]* | \ *-*-unixware7*) add_dir="-L$dir" ;; *-*-darwin* ) # if the lib is a (non-dlopened) module then we can not # link against it, someone is ignoring the earlier warnings if /usr/bin/file -L $add 2> /dev/null | $GREP ": [^:]* bundle" >/dev/null ; then if test "X$dlopenmodule" != "X$lib"; then $ECHO "*** Warning: lib $linklib is a module, not a shared library" if test -z "$old_library" ; then echo echo "*** And there doesn't seem to be a static archive available" echo "*** The link will probably fail, sorry" else add="$dir/$old_library" fi elif test -n "$old_library"; then add="$dir/$old_library" fi fi esac elif test "$hardcode_minus_L" = no; then case $host in *-*-sunos*) add_shlibpath="$dir" ;; esac add_dir="-L$dir" add="-l$name" elif test "$hardcode_shlibpath_var" = no; then add_shlibpath="$dir" add="-l$name" else lib_linked=no fi ;; relink) if test "$hardcode_direct" = yes && test "$hardcode_direct_absolute" = no; then add="$dir/$linklib" elif test "$hardcode_minus_L" = yes; then add_dir="-L$absdir" # Try looking first in the location we're being installed to. if test -n "$inst_prefix_dir"; then case $libdir in [\\/]*) func_append add_dir " -L$inst_prefix_dir$libdir" ;; esac fi add="-l$name" elif test "$hardcode_shlibpath_var" = yes; then add_shlibpath="$dir" add="-l$name" else lib_linked=no fi ;; *) lib_linked=no ;; esac if test "$lib_linked" != yes; then func_fatal_configuration "unsupported hardcode properties" fi if test -n "$add_shlibpath"; then case :$compile_shlibpath: in *":$add_shlibpath:"*) ;; *) func_append compile_shlibpath "$add_shlibpath:" ;; esac fi if test "$linkmode" = prog; then test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs" test -n "$add" && compile_deplibs="$add $compile_deplibs" else test -n "$add_dir" && deplibs="$add_dir $deplibs" test -n "$add" && deplibs="$add $deplibs" if test "$hardcode_direct" != yes && test "$hardcode_minus_L" != yes && test "$hardcode_shlibpath_var" = yes; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) func_append finalize_shlibpath "$libdir:" ;; esac fi fi fi if test "$linkmode" = prog || test "$opt_mode" = relink; then add_shlibpath= add_dir= add= # Finalize command for both is simple: just hardcode it. if test "$hardcode_direct" = yes && test "$hardcode_direct_absolute" = no; then add="$libdir/$linklib" elif test "$hardcode_minus_L" = yes; then add_dir="-L$libdir" add="-l$name" elif test "$hardcode_shlibpath_var" = yes; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) func_append finalize_shlibpath "$libdir:" ;; esac add="-l$name" elif test "$hardcode_automatic" = yes; then if test -n "$inst_prefix_dir" && test -f "$inst_prefix_dir$libdir/$linklib" ; then add="$inst_prefix_dir$libdir/$linklib" else add="$libdir/$linklib" fi else # We cannot seem to hardcode it, guess we'll fake it. add_dir="-L$libdir" # Try looking first in the location we're being installed to. if test -n "$inst_prefix_dir"; then case $libdir in [\\/]*) func_append add_dir " -L$inst_prefix_dir$libdir" ;; esac fi add="-l$name" fi if test "$linkmode" = prog; then test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs" test -n "$add" && finalize_deplibs="$add $finalize_deplibs" else test -n "$add_dir" && deplibs="$add_dir $deplibs" test -n "$add" && deplibs="$add $deplibs" fi fi elif test "$linkmode" = prog; then # Here we assume that one of hardcode_direct or hardcode_minus_L # is not unsupported. This is valid on all known static and # shared platforms. if test "$hardcode_direct" != unsupported; then test -n "$old_library" && linklib="$old_library" compile_deplibs="$dir/$linklib $compile_deplibs" finalize_deplibs="$dir/$linklib $finalize_deplibs" else compile_deplibs="-l$name -L$dir $compile_deplibs" finalize_deplibs="-l$name -L$dir $finalize_deplibs" fi elif test "$build_libtool_libs" = yes; then # Not a shared library if test "$deplibs_check_method" != pass_all; then # We're trying link a shared library against a static one # but the system doesn't support it. # Just print a warning and add the library to dependency_libs so # that the program can be linked against the static library. echo $ECHO "*** Warning: This system can not link to static lib archive $lib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have." if test "$module" = yes; then echo "*** But as you try to build a module library, libtool will still create " echo "*** a static module, that should work as long as the dlopening application" echo "*** is linked with the -dlopen flag to resolve symbols at runtime." if test -z "$global_symbol_pipe"; then echo echo "*** However, this would only work if libtool was able to extract symbol" echo "*** lists from a program, using \`nm' or equivalent, but libtool could" echo "*** not find such a program. So, this module is probably useless." echo "*** \`nm' from GNU binutils and a full rebuild may help." fi if test "$build_old_libs" = no; then build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi fi else deplibs="$dir/$old_library $deplibs" link_static=yes fi fi # link shared/static library? if test "$linkmode" = lib; then if test -n "$dependency_libs" && { test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes || test "$link_static" = yes; }; then # Extract -R from dependency_libs temp_deplibs= for libdir in $dependency_libs; do case $libdir in -R*) func_stripname '-R' '' "$libdir" temp_xrpath=$func_stripname_result case " $xrpath " in *" $temp_xrpath "*) ;; *) func_append xrpath " $temp_xrpath";; esac;; *) func_append temp_deplibs " $libdir";; esac done dependency_libs="$temp_deplibs" fi func_append newlib_search_path " $absdir" # Link against this library test "$link_static" = no && newdependency_libs="$abs_ladir/$laname $newdependency_libs" # ... and its dependency_libs tmp_libs= for deplib in $dependency_libs; do newdependency_libs="$deplib $newdependency_libs" case $deplib in -L*) func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result";; *) func_resolve_sysroot "$deplib" ;; esac if $opt_preserve_dup_deps ; then case "$tmp_libs " in *" $func_resolve_sysroot_result "*) func_append specialdeplibs " $func_resolve_sysroot_result" ;; esac fi func_append tmp_libs " $func_resolve_sysroot_result" done if test "$link_all_deplibs" != no; then # Add the search paths of all dependency libraries for deplib in $dependency_libs; do path= case $deplib in -L*) path="$deplib" ;; *.la) func_resolve_sysroot "$deplib" deplib=$func_resolve_sysroot_result func_dirname "$deplib" "" "." dir=$func_dirname_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) absdir="$dir" ;; *) absdir=`cd "$dir" && pwd` if test -z "$absdir"; then func_warning "cannot determine absolute directory name of \`$dir'" absdir="$dir" fi ;; esac if $GREP "^installed=no" $deplib > /dev/null; then case $host in *-*-darwin*) depdepl= eval deplibrary_names=`${SED} -n -e 's/^library_names=\(.*\)$/\1/p' $deplib` if test -n "$deplibrary_names" ; then for tmp in $deplibrary_names ; do depdepl=$tmp done if test -f "$absdir/$objdir/$depdepl" ; then depdepl="$absdir/$objdir/$depdepl" darwin_install_name=`${OTOOL} -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'` if test -z "$darwin_install_name"; then darwin_install_name=`${OTOOL64} -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'` fi func_append compiler_flags " ${wl}-dylib_file ${wl}${darwin_install_name}:${depdepl}" func_append linker_flags " -dylib_file ${darwin_install_name}:${depdepl}" path= fi fi ;; *) path="-L$absdir/$objdir" ;; esac else eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` test -z "$libdir" && \ func_fatal_error "\`$deplib' is not a valid libtool archive" test "$absdir" != "$libdir" && \ func_warning "\`$deplib' seems to be moved" path="-L$absdir" fi ;; esac case " $deplibs " in *" $path "*) ;; *) deplibs="$path $deplibs" ;; esac done fi # link_all_deplibs != no fi # linkmode = lib done # for deplib in $libs if test "$pass" = link; then if test "$linkmode" = "prog"; then compile_deplibs="$new_inherited_linker_flags $compile_deplibs" finalize_deplibs="$new_inherited_linker_flags $finalize_deplibs" else compiler_flags="$compiler_flags "`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` fi fi dependency_libs="$newdependency_libs" if test "$pass" = dlpreopen; then # Link the dlpreopened libraries before other libraries for deplib in $save_deplibs; do deplibs="$deplib $deplibs" done fi if test "$pass" != dlopen; then if test "$pass" != conv; then # Make sure lib_search_path contains only unique directories. lib_search_path= for dir in $newlib_search_path; do case "$lib_search_path " in *" $dir "*) ;; *) func_append lib_search_path " $dir" ;; esac done newlib_search_path= fi if test "$linkmode,$pass" != "prog,link"; then vars="deplibs" else vars="compile_deplibs finalize_deplibs" fi for var in $vars dependency_libs; do # Add libraries to $var in reverse order eval tmp_libs=\"\$$var\" new_libs= for deplib in $tmp_libs; do # FIXME: Pedantically, this is the right thing to do, so # that some nasty dependency loop isn't accidentally # broken: #new_libs="$deplib $new_libs" # Pragmatically, this seems to cause very few problems in # practice: case $deplib in -L*) new_libs="$deplib $new_libs" ;; -R*) ;; *) # And here is the reason: when a library appears more # than once as an explicit dependence of a library, or # is implicitly linked in more than once by the # compiler, it is considered special, and multiple # occurrences thereof are not removed. Compare this # with having the same library being listed as a # dependency of multiple other libraries: in this case, # we know (pedantically, we assume) the library does not # need to be listed more than once, so we keep only the # last copy. This is not always right, but it is rare # enough that we require users that really mean to play # such unportable linking tricks to link the library # using -Wl,-lname, so that libtool does not consider it # for duplicate removal. case " $specialdeplibs " in *" $deplib "*) new_libs="$deplib $new_libs" ;; *) case " $new_libs " in *" $deplib "*) ;; *) new_libs="$deplib $new_libs" ;; esac ;; esac ;; esac done tmp_libs= for deplib in $new_libs; do case $deplib in -L*) case " $tmp_libs " in *" $deplib "*) ;; *) func_append tmp_libs " $deplib" ;; esac ;; *) func_append tmp_libs " $deplib" ;; esac done eval $var=\"$tmp_libs\" done # for var fi # Last step: remove runtime libs from dependency_libs # (they stay in deplibs) tmp_libs= for i in $dependency_libs ; do case " $predeps $postdeps $compiler_lib_search_path " in *" $i "*) i="" ;; esac if test -n "$i" ; then func_append tmp_libs " $i" fi done dependency_libs=$tmp_libs done # for pass if test "$linkmode" = prog; then dlfiles="$newdlfiles" fi if test "$linkmode" = prog || test "$linkmode" = lib; then dlprefiles="$newdlprefiles" fi case $linkmode in oldlib) if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then func_warning "\`-dlopen' is ignored for archives" fi case " $deplibs" in *\ -l* | *\ -L*) func_warning "\`-l' and \`-L' are ignored for archives" ;; esac test -n "$rpath" && \ func_warning "\`-rpath' is ignored for archives" test -n "$xrpath" && \ func_warning "\`-R' is ignored for archives" test -n "$vinfo" && \ func_warning "\`-version-info/-version-number' is ignored for archives" test -n "$release" && \ func_warning "\`-release' is ignored for archives" test -n "$export_symbols$export_symbols_regex" && \ func_warning "\`-export-symbols' is ignored for archives" # Now set the variables for building old libraries. build_libtool_libs=no oldlibs="$output" func_append objs "$old_deplibs" ;; lib) # Make sure we only generate libraries of the form `libNAME.la'. case $outputname in lib*) func_stripname 'lib' '.la' "$outputname" name=$func_stripname_result eval shared_ext=\"$shrext_cmds\" eval libname=\"$libname_spec\" ;; *) test "$module" = no && \ func_fatal_help "libtool library \`$output' must begin with \`lib'" if test "$need_lib_prefix" != no; then # Add the "lib" prefix for modules if required func_stripname '' '.la' "$outputname" name=$func_stripname_result eval shared_ext=\"$shrext_cmds\" eval libname=\"$libname_spec\" else func_stripname '' '.la' "$outputname" libname=$func_stripname_result fi ;; esac if test -n "$objs"; then if test "$deplibs_check_method" != pass_all; then func_fatal_error "cannot build libtool library \`$output' from non-libtool objects on this host:$objs" else echo $ECHO "*** Warning: Linking the shared library $output against the non-libtool" $ECHO "*** objects $objs is not portable!" func_append libobjs " $objs" fi fi test "$dlself" != no && \ func_warning "\`-dlopen self' is ignored for libtool libraries" set dummy $rpath shift test "$#" -gt 1 && \ func_warning "ignoring multiple \`-rpath's for a libtool library" install_libdir="$1" oldlibs= if test -z "$rpath"; then if test "$build_libtool_libs" = yes; then # Building a libtool convenience library. # Some compilers have problems with a `.al' extension so # convenience libraries should have the same extension an # archive normally would. oldlibs="$output_objdir/$libname.$libext $oldlibs" build_libtool_libs=convenience build_old_libs=yes fi test -n "$vinfo" && \ func_warning "\`-version-info/-version-number' is ignored for convenience libraries" test -n "$release" && \ func_warning "\`-release' is ignored for convenience libraries" else # Parse the version information argument. save_ifs="$IFS"; IFS=':' set dummy $vinfo 0 0 0 shift IFS="$save_ifs" test -n "$7" && \ func_fatal_help "too many parameters to \`-version-info'" # convert absolute version numbers to libtool ages # this retains compatibility with .la files and attempts # to make the code below a bit more comprehensible case $vinfo_number in yes) number_major="$1" number_minor="$2" number_revision="$3" # # There are really only two kinds -- those that # use the current revision as the major version # and those that subtract age and use age as # a minor version. But, then there is irix # which has an extra 1 added just for fun # case $version_type in # correct linux to gnu/linux during the next big refactor darwin|linux|osf|windows|none) func_arith $number_major + $number_minor current=$func_arith_result age="$number_minor" revision="$number_revision" ;; freebsd-aout|freebsd-elf|qnx|sunos) current="$number_major" revision="$number_minor" age="0" ;; irix|nonstopux) func_arith $number_major + $number_minor current=$func_arith_result age="$number_minor" revision="$number_minor" lt_irix_increment=no ;; *) func_fatal_configuration "$modename: unknown library version type \`$version_type'" ;; esac ;; no) current="$1" revision="$2" age="$3" ;; esac # Check that each of the things are valid numbers. case $current in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "CURRENT \`$current' must be a nonnegative integer" func_fatal_error "\`$vinfo' is not valid version information" ;; esac case $revision in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "REVISION \`$revision' must be a nonnegative integer" func_fatal_error "\`$vinfo' is not valid version information" ;; esac case $age in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "AGE \`$age' must be a nonnegative integer" func_fatal_error "\`$vinfo' is not valid version information" ;; esac if test "$age" -gt "$current"; then func_error "AGE \`$age' is greater than the current interface number \`$current'" func_fatal_error "\`$vinfo' is not valid version information" fi # Calculate the version variables. major= versuffix= verstring= case $version_type in none) ;; darwin) # Like Linux, but with the current version available in # verstring for coding it into the library header func_arith $current - $age major=.$func_arith_result versuffix="$major.$age.$revision" # Darwin ld doesn't like 0 for these options... func_arith $current + 1 minor_current=$func_arith_result xlcverstring="${wl}-compatibility_version ${wl}$minor_current ${wl}-current_version ${wl}$minor_current.$revision" verstring="-compatibility_version $minor_current -current_version $minor_current.$revision" ;; freebsd-aout) major=".$current" versuffix=".$current.$revision"; ;; freebsd-elf) major=".$current" versuffix=".$current" ;; irix | nonstopux) if test "X$lt_irix_increment" = "Xno"; then func_arith $current - $age else func_arith $current - $age + 1 fi major=$func_arith_result case $version_type in nonstopux) verstring_prefix=nonstopux ;; *) verstring_prefix=sgi ;; esac verstring="$verstring_prefix$major.$revision" # Add in all the interfaces that we are compatible with. loop=$revision while test "$loop" -ne 0; do func_arith $revision - $loop iface=$func_arith_result func_arith $loop - 1 loop=$func_arith_result verstring="$verstring_prefix$major.$iface:$verstring" done # Before this point, $major must not contain `.'. major=.$major versuffix="$major.$revision" ;; linux) # correct to gnu/linux during the next big refactor func_arith $current - $age major=.$func_arith_result versuffix="$major.$age.$revision" ;; osf) func_arith $current - $age major=.$func_arith_result versuffix=".$current.$age.$revision" verstring="$current.$age.$revision" # Add in all the interfaces that we are compatible with. loop=$age while test "$loop" -ne 0; do func_arith $current - $loop iface=$func_arith_result func_arith $loop - 1 loop=$func_arith_result verstring="$verstring:${iface}.0" done # Make executables depend on our current version. func_append verstring ":${current}.0" ;; qnx) major=".$current" versuffix=".$current" ;; sunos) major=".$current" versuffix=".$current.$revision" ;; windows) # Use '-' rather than '.', since we only want one # extension on DOS 8.3 filesystems. func_arith $current - $age major=$func_arith_result versuffix="-$major" ;; *) func_fatal_configuration "unknown library version type \`$version_type'" ;; esac # Clear the version info if we defaulted, and they specified a release. if test -z "$vinfo" && test -n "$release"; then major= case $version_type in darwin) # we can't check for "0.0" in archive_cmds due to quoting # problems, so we reset it completely verstring= ;; *) verstring="0.0" ;; esac if test "$need_version" = no; then versuffix= else versuffix=".0.0" fi fi # Remove version info from name if versioning should be avoided if test "$avoid_version" = yes && test "$need_version" = no; then major= versuffix= verstring="" fi # Check to see if the archive will have undefined symbols. if test "$allow_undefined" = yes; then if test "$allow_undefined_flag" = unsupported; then func_warning "undefined symbols not allowed in $host shared libraries" build_libtool_libs=no build_old_libs=yes fi else # Don't allow undefined symbols. allow_undefined_flag="$no_undefined_flag" fi fi func_generate_dlsyms "$libname" "$libname" "yes" func_append libobjs " $symfileobj" test "X$libobjs" = "X " && libobjs= if test "$opt_mode" != relink; then # Remove our outputs, but don't remove object files since they # may have been created when compiling PIC objects. removelist= tempremovelist=`$ECHO "$output_objdir/*"` for p in $tempremovelist; do case $p in *.$objext | *.gcno) ;; $output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/${libname}${release}.*) if test "X$precious_files_regex" != "X"; then if $ECHO "$p" | $EGREP -e "$precious_files_regex" >/dev/null 2>&1 then continue fi fi func_append removelist " $p" ;; *) ;; esac done test -n "$removelist" && \ func_show_eval "${RM}r \$removelist" fi # Now set the variables for building old libraries. if test "$build_old_libs" = yes && test "$build_libtool_libs" != convenience ; then func_append oldlibs " $output_objdir/$libname.$libext" # Transform .lo files to .o files. oldobjs="$objs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.${libext}$/d; $lo2o" | $NL2SP` fi # Eliminate all temporary directories. #for path in $notinst_path; do # lib_search_path=`$ECHO "$lib_search_path " | $SED "s% $path % %g"` # deplibs=`$ECHO "$deplibs " | $SED "s% -L$path % %g"` # dependency_libs=`$ECHO "$dependency_libs " | $SED "s% -L$path % %g"` #done if test -n "$xrpath"; then # If the user specified any rpath flags, then add them. temp_xrpath= for libdir in $xrpath; do func_replace_sysroot "$libdir" func_append temp_xrpath " -R$func_replace_sysroot_result" case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac done if test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes; then dependency_libs="$temp_xrpath $dependency_libs" fi fi # Make sure dlfiles contains only unique files that won't be dlpreopened old_dlfiles="$dlfiles" dlfiles= for lib in $old_dlfiles; do case " $dlprefiles $dlfiles " in *" $lib "*) ;; *) func_append dlfiles " $lib" ;; esac done # Make sure dlprefiles contains only unique files old_dlprefiles="$dlprefiles" dlprefiles= for lib in $old_dlprefiles; do case "$dlprefiles " in *" $lib "*) ;; *) func_append dlprefiles " $lib" ;; esac done if test "$build_libtool_libs" = yes; then if test -n "$rpath"; then case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos* | *-cegcc* | *-*-haiku*) # these systems don't actually have a c library (as such)! ;; *-*-rhapsody* | *-*-darwin1.[012]) # Rhapsody C library is in the System framework func_append deplibs " System.ltframework" ;; *-*-netbsd*) # Don't link with libc until the a.out ld.so is fixed. ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc due to us having libc/libc_r. ;; *-*-sco3.2v5* | *-*-sco5v6*) # Causes problems with __ctype ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work ;; *) # Add libc to deplibs on all other systems if necessary. if test "$build_libtool_need_lc" = "yes"; then func_append deplibs " -lc" fi ;; esac fi # Transform deplibs into only deplibs that can be linked in shared. name_save=$name libname_save=$libname release_save=$release versuffix_save=$versuffix major_save=$major # I'm not sure if I'm treating the release correctly. I think # release should show up in the -l (ie -lgmp5) so we don't want to # add it in twice. Is that correct? release="" versuffix="" major="" newdeplibs= droppeddeps=no case $deplibs_check_method in pass_all) # Don't check for shared/static. Everything works. # This might be a little naive. We might want to check # whether the library exists or not. But this is on # osf3 & osf4 and I'm not really sure... Just # implementing what was already the behavior. newdeplibs=$deplibs ;; test_compile) # This code stresses the "libraries are programs" paradigm to its # limits. Maybe even breaks it. We compile a program, linking it # against the deplibs as a proxy for the library. Then we can check # whether they linked in statically or dynamically with ldd. $opt_dry_run || $RM conftest.c cat > conftest.c </dev/null` $nocaseglob else potential_libs=`ls $i/$libnameglob[.-]* 2>/dev/null` fi for potent_lib in $potential_libs; do # Follow soft links. if ls -lLd "$potent_lib" 2>/dev/null | $GREP " -> " >/dev/null; then continue fi # The statement above tries to avoid entering an # endless loop below, in case of cyclic links. # We might still enter an endless loop, since a link # loop can be closed while we follow links, # but so what? potlib="$potent_lib" while test -h "$potlib" 2>/dev/null; do potliblink=`ls -ld $potlib | ${SED} 's/.* -> //'` case $potliblink in [\\/]* | [A-Za-z]:[\\/]*) potlib="$potliblink";; *) potlib=`$ECHO "$potlib" | $SED 's,[^/]*$,,'`"$potliblink";; esac done if eval $file_magic_cmd \"\$potlib\" 2>/dev/null | $SED -e 10q | $EGREP "$file_magic_regex" > /dev/null; then func_append newdeplibs " $a_deplib" a_deplib="" break 2 fi done done fi if test -n "$a_deplib" ; then droppeddeps=yes echo $ECHO "*** Warning: linker path does not have real file for library $a_deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because I did check the linker path looking for a file starting" if test -z "$potlib" ; then $ECHO "*** with $libname but no candidates were found. (...for file magic test)" else $ECHO "*** with $libname and none of the candidates passed a file format test" $ECHO "*** using a file magic. Last file checked: $potlib" fi fi ;; *) # Add a -L argument. func_append newdeplibs " $a_deplib" ;; esac done # Gone through all deplibs. ;; match_pattern*) set dummy $deplibs_check_method; shift match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"` for a_deplib in $deplibs; do case $a_deplib in -l*) func_stripname -l '' "$a_deplib" name=$func_stripname_result if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then case " $predeps $postdeps " in *" $a_deplib "*) func_append newdeplibs " $a_deplib" a_deplib="" ;; esac fi if test -n "$a_deplib" ; then libname=`eval "\\$ECHO \"$libname_spec\""` for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do potential_libs=`ls $i/$libname[.-]* 2>/dev/null` for potent_lib in $potential_libs; do potlib="$potent_lib" # see symlink-check above in file_magic test if eval "\$ECHO \"$potent_lib\"" 2>/dev/null | $SED 10q | \ $EGREP "$match_pattern_regex" > /dev/null; then func_append newdeplibs " $a_deplib" a_deplib="" break 2 fi done done fi if test -n "$a_deplib" ; then droppeddeps=yes echo $ECHO "*** Warning: linker path does not have real file for library $a_deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because I did check the linker path looking for a file starting" if test -z "$potlib" ; then $ECHO "*** with $libname but no candidates were found. (...for regex pattern test)" else $ECHO "*** with $libname and none of the candidates passed a file format test" $ECHO "*** using a regex pattern. Last file checked: $potlib" fi fi ;; *) # Add a -L argument. func_append newdeplibs " $a_deplib" ;; esac done # Gone through all deplibs. ;; none | unknown | *) newdeplibs="" tmp_deplibs=`$ECHO " $deplibs" | $SED 's/ -lc$//; s/ -[LR][^ ]*//g'` if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then for i in $predeps $postdeps ; do # can't use Xsed below, because $i might contain '/' tmp_deplibs=`$ECHO " $tmp_deplibs" | $SED "s,$i,,"` done fi case $tmp_deplibs in *[!\ \ ]*) echo if test "X$deplibs_check_method" = "Xnone"; then echo "*** Warning: inter-library dependencies are not supported in this platform." else echo "*** Warning: inter-library dependencies are not known to be supported." fi echo "*** All declared inter-library dependencies are being dropped." droppeddeps=yes ;; esac ;; esac versuffix=$versuffix_save major=$major_save release=$release_save libname=$libname_save name=$name_save case $host in *-*-rhapsody* | *-*-darwin1.[012]) # On Rhapsody replace the C library with the System framework newdeplibs=`$ECHO " $newdeplibs" | $SED 's/ -lc / System.ltframework /'` ;; esac if test "$droppeddeps" = yes; then if test "$module" = yes; then echo echo "*** Warning: libtool could not satisfy all declared inter-library" $ECHO "*** dependencies of module $libname. Therefore, libtool will create" echo "*** a static module, that should work as long as the dlopening" echo "*** application is linked with the -dlopen flag." if test -z "$global_symbol_pipe"; then echo echo "*** However, this would only work if libtool was able to extract symbol" echo "*** lists from a program, using \`nm' or equivalent, but libtool could" echo "*** not find such a program. So, this module is probably useless." echo "*** \`nm' from GNU binutils and a full rebuild may help." fi if test "$build_old_libs" = no; then oldlibs="$output_objdir/$libname.$libext" build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi else echo "*** The inter-library dependencies that have been dropped here will be" echo "*** automatically added whenever a program is linked with this library" echo "*** or is declared to -dlopen it." if test "$allow_undefined" = no; then echo echo "*** Since this library must not contain undefined symbols," echo "*** because either the platform does not support them or" echo "*** it was explicitly requested with -no-undefined," echo "*** libtool will only create a static version of it." if test "$build_old_libs" = no; then oldlibs="$output_objdir/$libname.$libext" build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi fi fi fi # Done checking deplibs! deplibs=$newdeplibs fi # Time to change all our "foo.ltframework" stuff back to "-framework foo" case $host in *-*-darwin*) newdeplibs=`$ECHO " $newdeplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` new_inherited_linker_flags=`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` deplibs=`$ECHO " $deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` ;; esac # move library search paths that coincide with paths to not yet # installed libraries to the beginning of the library search list new_libs= for path in $notinst_path; do case " $new_libs " in *" -L$path/$objdir "*) ;; *) case " $deplibs " in *" -L$path/$objdir "*) func_append new_libs " -L$path/$objdir" ;; esac ;; esac done for deplib in $deplibs; do case $deplib in -L*) case " $new_libs " in *" $deplib "*) ;; *) func_append new_libs " $deplib" ;; esac ;; *) func_append new_libs " $deplib" ;; esac done deplibs="$new_libs" # All the library-specific variables (install_libdir is set above). library_names= old_library= dlname= # Test again, we may have decided not to build it any more if test "$build_libtool_libs" = yes; then # Remove ${wl} instances when linking with ld. # FIXME: should test the right _cmds variable. case $archive_cmds in *\$LD\ *) wl= ;; esac if test "$hardcode_into_libs" = yes; then # Hardcode the library paths hardcode_libdirs= dep_rpath= rpath="$finalize_rpath" test "$opt_mode" != relink && rpath="$compile_rpath$rpath" for libdir in $rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then func_replace_sysroot "$libdir" libdir=$func_replace_sysroot_result if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append dep_rpath " $flag" fi elif test -n "$runpath_var"; then case "$perm_rpath " in *" $libdir "*) ;; *) func_append perm_rpath " $libdir" ;; esac fi done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval "dep_rpath=\"$hardcode_libdir_flag_spec\"" fi if test -n "$runpath_var" && test -n "$perm_rpath"; then # We should set the runpath_var. rpath= for dir in $perm_rpath; do func_append rpath "$dir:" done eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var" fi test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs" fi shlibpath="$finalize_shlibpath" test "$opt_mode" != relink && shlibpath="$compile_shlibpath$shlibpath" if test -n "$shlibpath"; then eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var" fi # Get the real and link names of the library. eval shared_ext=\"$shrext_cmds\" eval library_names=\"$library_names_spec\" set dummy $library_names shift realname="$1" shift if test -n "$soname_spec"; then eval soname=\"$soname_spec\" else soname="$realname" fi if test -z "$dlname"; then dlname=$soname fi lib="$output_objdir/$realname" linknames= for link do func_append linknames " $link" done # Use standard objects if they are pic test -z "$pic_flag" && libobjs=`$ECHO "$libobjs" | $SP2NL | $SED "$lo2o" | $NL2SP` test "X$libobjs" = "X " && libobjs= delfiles= if test -n "$export_symbols" && test -n "$include_expsyms"; then $opt_dry_run || cp "$export_symbols" "$output_objdir/$libname.uexp" export_symbols="$output_objdir/$libname.uexp" func_append delfiles " $export_symbols" fi orig_export_symbols= case $host_os in cygwin* | mingw* | cegcc*) if test -n "$export_symbols" && test -z "$export_symbols_regex"; then # exporting using user supplied symfile if test "x`$SED 1q $export_symbols`" != xEXPORTS; then # and it's NOT already a .def file. Must figure out # which of the given symbols are data symbols and tag # them as such. So, trigger use of export_symbols_cmds. # export_symbols gets reassigned inside the "prepare # the list of exported symbols" if statement, so the # include_expsyms logic still works. orig_export_symbols="$export_symbols" export_symbols= always_export_symbols=yes fi fi ;; esac # Prepare the list of exported symbols if test -z "$export_symbols"; then if test "$always_export_symbols" = yes || test -n "$export_symbols_regex"; then func_verbose "generating symbol list for \`$libname.la'" export_symbols="$output_objdir/$libname.exp" $opt_dry_run || $RM $export_symbols cmds=$export_symbols_cmds save_ifs="$IFS"; IFS='~' for cmd1 in $cmds; do IFS="$save_ifs" # Take the normal branch if the nm_file_list_spec branch # doesn't work or if tool conversion is not needed. case $nm_file_list_spec~$to_tool_file_cmd in *~func_convert_file_noop | *~func_convert_file_msys_to_w32 | ~*) try_normal_branch=yes eval cmd=\"$cmd1\" func_len " $cmd" len=$func_len_result ;; *) try_normal_branch=no ;; esac if test "$try_normal_branch" = yes \ && { test "$len" -lt "$max_cmd_len" \ || test "$max_cmd_len" -le -1; } then func_show_eval "$cmd" 'exit $?' skipped_export=false elif test -n "$nm_file_list_spec"; then func_basename "$output" output_la=$func_basename_result save_libobjs=$libobjs save_output=$output output=${output_objdir}/${output_la}.nm func_to_tool_file "$output" libobjs=$nm_file_list_spec$func_to_tool_file_result func_append delfiles " $output" func_verbose "creating $NM input file list: $output" for obj in $save_libobjs; do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" done > "$output" eval cmd=\"$cmd1\" func_show_eval "$cmd" 'exit $?' output=$save_output libobjs=$save_libobjs skipped_export=false else # The command line is too long to execute in one step. func_verbose "using reloadable object file for export list..." skipped_export=: # Break out early, otherwise skipped_export may be # set to false by a later but shorter cmd. break fi done IFS="$save_ifs" if test -n "$export_symbols_regex" && test "X$skipped_export" != "X:"; then func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' func_show_eval '$MV "${export_symbols}T" "$export_symbols"' fi fi fi if test -n "$export_symbols" && test -n "$include_expsyms"; then tmp_export_symbols="$export_symbols" test -n "$orig_export_symbols" && tmp_export_symbols="$orig_export_symbols" $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"' fi if test "X$skipped_export" != "X:" && test -n "$orig_export_symbols"; then # The given exports_symbols file has to be filtered, so filter it. func_verbose "filter symbol list for \`$libname.la' to tag DATA exports" # FIXME: $output_objdir/$libname.filter potentially contains lots of # 's' commands which not all seds can handle. GNU sed should be fine # though. Also, the filter scales superlinearly with the number of # global variables. join(1) would be nice here, but unfortunately # isn't a blessed tool. $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter func_append delfiles " $export_symbols $output_objdir/$libname.filter" export_symbols=$output_objdir/$libname.def $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols fi tmp_deplibs= for test_deplib in $deplibs; do case " $convenience " in *" $test_deplib "*) ;; *) func_append tmp_deplibs " $test_deplib" ;; esac done deplibs="$tmp_deplibs" if test -n "$convenience"; then if test -n "$whole_archive_flag_spec" && test "$compiler_needs_object" = yes && test -z "$libobjs"; then # extract the archives, so we have objects to list. # TODO: could optimize this to just extract one archive. whole_archive_flag_spec= fi if test -n "$whole_archive_flag_spec"; then save_libobjs=$libobjs eval libobjs=\"\$libobjs $whole_archive_flag_spec\" test "X$libobjs" = "X " && libobjs= else gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $convenience func_append libobjs " $func_extract_archives_result" test "X$libobjs" = "X " && libobjs= fi fi if test "$thread_safe" = yes && test -n "$thread_safe_flag_spec"; then eval flag=\"$thread_safe_flag_spec\" func_append linker_flags " $flag" fi # Make a backup of the uninstalled library when relinking if test "$opt_mode" = relink; then $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}U && $MV $realname ${realname}U)' || exit $? fi # Do each of the archive commands. if test "$module" = yes && test -n "$module_cmds" ; then if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then eval test_cmds=\"$module_expsym_cmds\" cmds=$module_expsym_cmds else eval test_cmds=\"$module_cmds\" cmds=$module_cmds fi else if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then eval test_cmds=\"$archive_expsym_cmds\" cmds=$archive_expsym_cmds else eval test_cmds=\"$archive_cmds\" cmds=$archive_cmds fi fi if test "X$skipped_export" != "X:" && func_len " $test_cmds" && len=$func_len_result && test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then : else # The command line is too long to link in one step, link piecewise # or, if using GNU ld and skipped_export is not :, use a linker # script. # Save the value of $output and $libobjs because we want to # use them later. If we have whole_archive_flag_spec, we # want to use save_libobjs as it was before # whole_archive_flag_spec was expanded, because we can't # assume the linker understands whole_archive_flag_spec. # This may have to be revisited, in case too many # convenience libraries get linked in and end up exceeding # the spec. if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then save_libobjs=$libobjs fi save_output=$output func_basename "$output" output_la=$func_basename_result # Clear the reloadable object creation command queue and # initialize k to one. test_cmds= concat_cmds= objlist= last_robj= k=1 if test -n "$save_libobjs" && test "X$skipped_export" != "X:" && test "$with_gnu_ld" = yes; then output=${output_objdir}/${output_la}.lnkscript func_verbose "creating GNU ld script: $output" echo 'INPUT (' > $output for obj in $save_libobjs do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" >> $output done echo ')' >> $output func_append delfiles " $output" func_to_tool_file "$output" output=$func_to_tool_file_result elif test -n "$save_libobjs" && test "X$skipped_export" != "X:" && test "X$file_list_spec" != X; then output=${output_objdir}/${output_la}.lnk func_verbose "creating linker input file list: $output" : > $output set x $save_libobjs shift firstobj= if test "$compiler_needs_object" = yes; then firstobj="$1 " shift fi for obj do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" >> $output done func_append delfiles " $output" func_to_tool_file "$output" output=$firstobj\"$file_list_spec$func_to_tool_file_result\" else if test -n "$save_libobjs"; then func_verbose "creating reloadable object files..." output=$output_objdir/$output_la-${k}.$objext eval test_cmds=\"$reload_cmds\" func_len " $test_cmds" len0=$func_len_result len=$len0 # Loop over the list of objects to be linked. for obj in $save_libobjs do func_len " $obj" func_arith $len + $func_len_result len=$func_arith_result if test "X$objlist" = X || test "$len" -lt "$max_cmd_len"; then func_append objlist " $obj" else # The command $test_cmds is almost too long, add a # command to the queue. if test "$k" -eq 1 ; then # The first file doesn't have a previous command to add. reload_objs=$objlist eval concat_cmds=\"$reload_cmds\" else # All subsequent reloadable object files will link in # the last one created. reload_objs="$objlist $last_robj" eval concat_cmds=\"\$concat_cmds~$reload_cmds~\$RM $last_robj\" fi last_robj=$output_objdir/$output_la-${k}.$objext func_arith $k + 1 k=$func_arith_result output=$output_objdir/$output_la-${k}.$objext objlist=" $obj" func_len " $last_robj" func_arith $len0 + $func_len_result len=$func_arith_result fi done # Handle the remaining objects by creating one last # reloadable object file. All subsequent reloadable object # files will link in the last one created. test -z "$concat_cmds" || concat_cmds=$concat_cmds~ reload_objs="$objlist $last_robj" eval concat_cmds=\"\${concat_cmds}$reload_cmds\" if test -n "$last_robj"; then eval concat_cmds=\"\${concat_cmds}~\$RM $last_robj\" fi func_append delfiles " $output" else output= fi if ${skipped_export-false}; then func_verbose "generating symbol list for \`$libname.la'" export_symbols="$output_objdir/$libname.exp" $opt_dry_run || $RM $export_symbols libobjs=$output # Append the command to create the export file. test -z "$concat_cmds" || concat_cmds=$concat_cmds~ eval concat_cmds=\"\$concat_cmds$export_symbols_cmds\" if test -n "$last_robj"; then eval concat_cmds=\"\$concat_cmds~\$RM $last_robj\" fi fi test -n "$save_libobjs" && func_verbose "creating a temporary reloadable object file: $output" # Loop through the commands generated above and execute them. save_ifs="$IFS"; IFS='~' for cmd in $concat_cmds; do IFS="$save_ifs" $opt_silent || { func_quote_for_expand "$cmd" eval "func_echo $func_quote_for_expand_result" } $opt_dry_run || eval "$cmd" || { lt_exit=$? # Restore the uninstalled library and exit if test "$opt_mode" = relink; then ( cd "$output_objdir" && \ $RM "${realname}T" && \ $MV "${realname}U" "$realname" ) fi exit $lt_exit } done IFS="$save_ifs" if test -n "$export_symbols_regex" && ${skipped_export-false}; then func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' func_show_eval '$MV "${export_symbols}T" "$export_symbols"' fi fi if ${skipped_export-false}; then if test -n "$export_symbols" && test -n "$include_expsyms"; then tmp_export_symbols="$export_symbols" test -n "$orig_export_symbols" && tmp_export_symbols="$orig_export_symbols" $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"' fi if test -n "$orig_export_symbols"; then # The given exports_symbols file has to be filtered, so filter it. func_verbose "filter symbol list for \`$libname.la' to tag DATA exports" # FIXME: $output_objdir/$libname.filter potentially contains lots of # 's' commands which not all seds can handle. GNU sed should be fine # though. Also, the filter scales superlinearly with the number of # global variables. join(1) would be nice here, but unfortunately # isn't a blessed tool. $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter func_append delfiles " $export_symbols $output_objdir/$libname.filter" export_symbols=$output_objdir/$libname.def $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols fi fi libobjs=$output # Restore the value of output. output=$save_output if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then eval libobjs=\"\$libobjs $whole_archive_flag_spec\" test "X$libobjs" = "X " && libobjs= fi # Expand the library linking commands again to reset the # value of $libobjs for piecewise linking. # Do each of the archive commands. if test "$module" = yes && test -n "$module_cmds" ; then if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then cmds=$module_expsym_cmds else cmds=$module_cmds fi else if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then cmds=$archive_expsym_cmds else cmds=$archive_cmds fi fi fi if test -n "$delfiles"; then # Append the command to remove temporary files to $cmds. eval cmds=\"\$cmds~\$RM $delfiles\" fi # Add any objects from preloaded convenience libraries if test -n "$dlprefiles"; then gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $dlprefiles func_append libobjs " $func_extract_archives_result" test "X$libobjs" = "X " && libobjs= fi save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $opt_silent || { func_quote_for_expand "$cmd" eval "func_echo $func_quote_for_expand_result" } $opt_dry_run || eval "$cmd" || { lt_exit=$? # Restore the uninstalled library and exit if test "$opt_mode" = relink; then ( cd "$output_objdir" && \ $RM "${realname}T" && \ $MV "${realname}U" "$realname" ) fi exit $lt_exit } done IFS="$save_ifs" # Restore the uninstalled library and exit if test "$opt_mode" = relink; then $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}T && $MV $realname ${realname}T && $MV ${realname}U $realname)' || exit $? if test -n "$convenience"; then if test -z "$whole_archive_flag_spec"; then func_show_eval '${RM}r "$gentop"' fi fi exit $EXIT_SUCCESS fi # Create links to the real library. for linkname in $linknames; do if test "$realname" != "$linkname"; then func_show_eval '(cd "$output_objdir" && $RM "$linkname" && $LN_S "$realname" "$linkname")' 'exit $?' fi done # If -module or -export-dynamic was specified, set the dlname. if test "$module" = yes || test "$export_dynamic" = yes; then # On all known operating systems, these are identical. dlname="$soname" fi fi ;; obj) if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then func_warning "\`-dlopen' is ignored for objects" fi case " $deplibs" in *\ -l* | *\ -L*) func_warning "\`-l' and \`-L' are ignored for objects" ;; esac test -n "$rpath" && \ func_warning "\`-rpath' is ignored for objects" test -n "$xrpath" && \ func_warning "\`-R' is ignored for objects" test -n "$vinfo" && \ func_warning "\`-version-info' is ignored for objects" test -n "$release" && \ func_warning "\`-release' is ignored for objects" case $output in *.lo) test -n "$objs$old_deplibs" && \ func_fatal_error "cannot build library object \`$output' from non-libtool objects" libobj=$output func_lo2o "$libobj" obj=$func_lo2o_result ;; *) libobj= obj="$output" ;; esac # Delete the old objects. $opt_dry_run || $RM $obj $libobj # Objects from convenience libraries. This assumes # single-version convenience libraries. Whenever we create # different ones for PIC/non-PIC, this we'll have to duplicate # the extraction. reload_conv_objs= gentop= # reload_cmds runs $LD directly, so let us get rid of # -Wl from whole_archive_flag_spec and hope we can get by with # turning comma into space.. wl= if test -n "$convenience"; then if test -n "$whole_archive_flag_spec"; then eval tmp_whole_archive_flags=\"$whole_archive_flag_spec\" reload_conv_objs=$reload_objs\ `$ECHO "$tmp_whole_archive_flags" | $SED 's|,| |g'` else gentop="$output_objdir/${obj}x" func_append generated " $gentop" func_extract_archives $gentop $convenience reload_conv_objs="$reload_objs $func_extract_archives_result" fi fi # If we're not building shared, we need to use non_pic_objs test "$build_libtool_libs" != yes && libobjs="$non_pic_objects" # Create the old-style object. reload_objs="$objs$old_deplibs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.${libext}$/d; /\.lib$/d; $lo2o" | $NL2SP`" $reload_conv_objs" ### testsuite: skip nested quoting test output="$obj" func_execute_cmds "$reload_cmds" 'exit $?' # Exit if we aren't doing a library object file. if test -z "$libobj"; then if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi exit $EXIT_SUCCESS fi if test "$build_libtool_libs" != yes; then if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi # Create an invalid libtool object if no PIC, so that we don't # accidentally link it into a program. # $show "echo timestamp > $libobj" # $opt_dry_run || eval "echo timestamp > $libobj" || exit $? exit $EXIT_SUCCESS fi if test -n "$pic_flag" || test "$pic_mode" != default; then # Only do commands if we really have different PIC objects. reload_objs="$libobjs $reload_conv_objs" output="$libobj" func_execute_cmds "$reload_cmds" 'exit $?' fi if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi exit $EXIT_SUCCESS ;; prog) case $host in *cygwin*) func_stripname '' '.exe' "$output" output=$func_stripname_result.exe;; esac test -n "$vinfo" && \ func_warning "\`-version-info' is ignored for programs" test -n "$release" && \ func_warning "\`-release' is ignored for programs" test "$preload" = yes \ && test "$dlopen_support" = unknown \ && test "$dlopen_self" = unknown \ && test "$dlopen_self_static" = unknown && \ func_warning "\`LT_INIT([dlopen])' not used. Assuming no dlopen support." case $host in *-*-rhapsody* | *-*-darwin1.[012]) # On Rhapsody replace the C library is the System framework compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's/ -lc / System.ltframework /'` finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's/ -lc / System.ltframework /'` ;; esac case $host in *-*-darwin*) # Don't allow lazy linking, it breaks C++ global constructors # But is supposedly fixed on 10.4 or later (yay!). if test "$tagname" = CXX ; then case ${MACOSX_DEPLOYMENT_TARGET-10.0} in 10.[0123]) func_append compile_command " ${wl}-bind_at_load" func_append finalize_command " ${wl}-bind_at_load" ;; esac fi # Time to change all our "foo.ltframework" stuff back to "-framework foo" compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` ;; esac # move library search paths that coincide with paths to not yet # installed libraries to the beginning of the library search list new_libs= for path in $notinst_path; do case " $new_libs " in *" -L$path/$objdir "*) ;; *) case " $compile_deplibs " in *" -L$path/$objdir "*) func_append new_libs " -L$path/$objdir" ;; esac ;; esac done for deplib in $compile_deplibs; do case $deplib in -L*) case " $new_libs " in *" $deplib "*) ;; *) func_append new_libs " $deplib" ;; esac ;; *) func_append new_libs " $deplib" ;; esac done compile_deplibs="$new_libs" func_append compile_command " $compile_deplibs" func_append finalize_command " $finalize_deplibs" if test -n "$rpath$xrpath"; then # If the user specified any rpath flags, then add them. for libdir in $rpath $xrpath; do # This is the magic to use -rpath. case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac done fi # Now hardcode the library paths rpath= hardcode_libdirs= for libdir in $compile_rpath $finalize_rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append rpath " $flag" fi elif test -n "$runpath_var"; then case "$perm_rpath " in *" $libdir "*) ;; *) func_append perm_rpath " $libdir" ;; esac fi case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) testbindir=`${ECHO} "$libdir" | ${SED} -e 's*/lib$*/bin*'` case :$dllsearchpath: in *":$libdir:"*) ;; ::) dllsearchpath=$libdir;; *) func_append dllsearchpath ":$libdir";; esac case :$dllsearchpath: in *":$testbindir:"*) ;; ::) dllsearchpath=$testbindir;; *) func_append dllsearchpath ":$testbindir";; esac ;; esac done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval rpath=\" $hardcode_libdir_flag_spec\" fi compile_rpath="$rpath" rpath= hardcode_libdirs= for libdir in $finalize_rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append rpath " $flag" fi elif test -n "$runpath_var"; then case "$finalize_perm_rpath " in *" $libdir "*) ;; *) func_append finalize_perm_rpath " $libdir" ;; esac fi done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval rpath=\" $hardcode_libdir_flag_spec\" fi finalize_rpath="$rpath" if test -n "$libobjs" && test "$build_old_libs" = yes; then # Transform all the library objects into standard objects. compile_command=`$ECHO "$compile_command" | $SP2NL | $SED "$lo2o" | $NL2SP` finalize_command=`$ECHO "$finalize_command" | $SP2NL | $SED "$lo2o" | $NL2SP` fi func_generate_dlsyms "$outputname" "@PROGRAM@" "no" # template prelinking step if test -n "$prelink_cmds"; then func_execute_cmds "$prelink_cmds" 'exit $?' fi wrappers_required=yes case $host in *cegcc* | *mingw32ce*) # Disable wrappers for cegcc and mingw32ce hosts, we are cross compiling anyway. wrappers_required=no ;; *cygwin* | *mingw* ) if test "$build_libtool_libs" != yes; then wrappers_required=no fi ;; *) if test "$need_relink" = no || test "$build_libtool_libs" != yes; then wrappers_required=no fi ;; esac if test "$wrappers_required" = no; then # Replace the output file specification. compile_command=`$ECHO "$compile_command" | $SED 's%@OUTPUT@%'"$output"'%g'` link_command="$compile_command$compile_rpath" # We have no uninstalled library dependencies, so finalize right now. exit_status=0 func_show_eval "$link_command" 'exit_status=$?' if test -n "$postlink_cmds"; then func_to_tool_file "$output" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi # Delete the generated files. if test -f "$output_objdir/${outputname}S.${objext}"; then func_show_eval '$RM "$output_objdir/${outputname}S.${objext}"' fi exit $exit_status fi if test -n "$compile_shlibpath$finalize_shlibpath"; then compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command" fi if test -n "$finalize_shlibpath"; then finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command" fi compile_var= finalize_var= if test -n "$runpath_var"; then if test -n "$perm_rpath"; then # We should set the runpath_var. rpath= for dir in $perm_rpath; do func_append rpath "$dir:" done compile_var="$runpath_var=\"$rpath\$$runpath_var\" " fi if test -n "$finalize_perm_rpath"; then # We should set the runpath_var. rpath= for dir in $finalize_perm_rpath; do func_append rpath "$dir:" done finalize_var="$runpath_var=\"$rpath\$$runpath_var\" " fi fi if test "$no_install" = yes; then # We don't need to create a wrapper script. link_command="$compile_var$compile_command$compile_rpath" # Replace the output file specification. link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output"'%g'` # Delete the old output file. $opt_dry_run || $RM $output # Link the executable and exit func_show_eval "$link_command" 'exit $?' if test -n "$postlink_cmds"; then func_to_tool_file "$output" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi exit $EXIT_SUCCESS fi if test "$hardcode_action" = relink; then # Fast installation is not supported link_command="$compile_var$compile_command$compile_rpath" relink_command="$finalize_var$finalize_command$finalize_rpath" func_warning "this platform does not like uninstalled shared libraries" func_warning "\`$output' will be relinked during installation" else if test "$fast_install" != no; then link_command="$finalize_var$compile_command$finalize_rpath" if test "$fast_install" = yes; then relink_command=`$ECHO "$compile_var$compile_command$compile_rpath" | $SED 's%@OUTPUT@%\$progdir/\$file%g'` else # fast_install is set to needless relink_command= fi else link_command="$compile_var$compile_command$compile_rpath" relink_command="$finalize_var$finalize_command$finalize_rpath" fi fi # Replace the output file specification. link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'` # Delete the old output files. $opt_dry_run || $RM $output $output_objdir/$outputname $output_objdir/lt-$outputname func_show_eval "$link_command" 'exit $?' if test -n "$postlink_cmds"; then func_to_tool_file "$output_objdir/$outputname" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi # Now create the wrapper script. func_verbose "creating $output" # Quote the relink command for shipping. if test -n "$relink_command"; then # Preserve any variables that may affect compiler behavior for var in $variables_saved_for_relink; do if eval test -z \"\${$var+set}\"; then relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command" elif eval var_value=\$$var; test -z "$var_value"; then relink_command="$var=; export $var; $relink_command" else func_quote_for_eval "$var_value" relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command" fi done relink_command="(cd `pwd`; $relink_command)" relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"` fi # Only actually do things if not in dry run mode. $opt_dry_run || { # win32 will think the script is a binary if it has # a .exe suffix, so we strip it off here. case $output in *.exe) func_stripname '' '.exe' "$output" output=$func_stripname_result ;; esac # test for cygwin because mv fails w/o .exe extensions case $host in *cygwin*) exeext=.exe func_stripname '' '.exe' "$outputname" outputname=$func_stripname_result ;; *) exeext= ;; esac case $host in *cygwin* | *mingw* ) func_dirname_and_basename "$output" "" "." output_name=$func_basename_result output_path=$func_dirname_result cwrappersource="$output_path/$objdir/lt-$output_name.c" cwrapper="$output_path/$output_name.exe" $RM $cwrappersource $cwrapper trap "$RM $cwrappersource $cwrapper; exit $EXIT_FAILURE" 1 2 15 func_emit_cwrapperexe_src > $cwrappersource # The wrapper executable is built using the $host compiler, # because it contains $host paths and files. If cross- # compiling, it, like the target executable, must be # executed on the $host or under an emulation environment. $opt_dry_run || { $LTCC $LTCFLAGS -o $cwrapper $cwrappersource $STRIP $cwrapper } # Now, create the wrapper script for func_source use: func_ltwrapper_scriptname $cwrapper $RM $func_ltwrapper_scriptname_result trap "$RM $func_ltwrapper_scriptname_result; exit $EXIT_FAILURE" 1 2 15 $opt_dry_run || { # note: this script will not be executed, so do not chmod. if test "x$build" = "x$host" ; then $cwrapper --lt-dump-script > $func_ltwrapper_scriptname_result else func_emit_wrapper no > $func_ltwrapper_scriptname_result fi } ;; * ) $RM $output trap "$RM $output; exit $EXIT_FAILURE" 1 2 15 func_emit_wrapper no > $output chmod +x $output ;; esac } exit $EXIT_SUCCESS ;; esac # See if we need to build an old-fashioned archive. for oldlib in $oldlibs; do if test "$build_libtool_libs" = convenience; then oldobjs="$libobjs_save $symfileobj" addlibs="$convenience" build_libtool_libs=no else if test "$build_libtool_libs" = module; then oldobjs="$libobjs_save" build_libtool_libs=no else oldobjs="$old_deplibs $non_pic_objects" if test "$preload" = yes && test -f "$symfileobj"; then func_append oldobjs " $symfileobj" fi fi addlibs="$old_convenience" fi if test -n "$addlibs"; then gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $addlibs func_append oldobjs " $func_extract_archives_result" fi # Do each command in the archive commands. if test -n "$old_archive_from_new_cmds" && test "$build_libtool_libs" = yes; then cmds=$old_archive_from_new_cmds else # Add any objects from preloaded convenience libraries if test -n "$dlprefiles"; then gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $dlprefiles func_append oldobjs " $func_extract_archives_result" fi # POSIX demands no paths to be encoded in archives. We have # to avoid creating archives with duplicate basenames if we # might have to extract them afterwards, e.g., when creating a # static archive out of a convenience library, or when linking # the entirety of a libtool archive into another (currently # not supported by libtool). if (for obj in $oldobjs do func_basename "$obj" $ECHO "$func_basename_result" done | sort | sort -uc >/dev/null 2>&1); then : else echo "copying selected object files to avoid basename conflicts..." gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_mkdir_p "$gentop" save_oldobjs=$oldobjs oldobjs= counter=1 for obj in $save_oldobjs do func_basename "$obj" objbase="$func_basename_result" case " $oldobjs " in " ") oldobjs=$obj ;; *[\ /]"$objbase "*) while :; do # Make sure we don't pick an alternate name that also # overlaps. newobj=lt$counter-$objbase func_arith $counter + 1 counter=$func_arith_result case " $oldobjs " in *[\ /]"$newobj "*) ;; *) if test ! -f "$gentop/$newobj"; then break; fi ;; esac done func_show_eval "ln $obj $gentop/$newobj || cp $obj $gentop/$newobj" func_append oldobjs " $gentop/$newobj" ;; *) func_append oldobjs " $obj" ;; esac done fi func_to_tool_file "$oldlib" func_convert_file_msys_to_w32 tool_oldlib=$func_to_tool_file_result eval cmds=\"$old_archive_cmds\" func_len " $cmds" len=$func_len_result if test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then cmds=$old_archive_cmds elif test -n "$archiver_list_spec"; then func_verbose "using command file archive linking..." for obj in $oldobjs do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" done > $output_objdir/$libname.libcmd func_to_tool_file "$output_objdir/$libname.libcmd" oldobjs=" $archiver_list_spec$func_to_tool_file_result" cmds=$old_archive_cmds else # the command line is too long to link in one step, link in parts func_verbose "using piecewise archive linking..." save_RANLIB=$RANLIB RANLIB=: objlist= concat_cmds= save_oldobjs=$oldobjs oldobjs= # Is there a better way of finding the last object in the list? for obj in $save_oldobjs do last_oldobj=$obj done eval test_cmds=\"$old_archive_cmds\" func_len " $test_cmds" len0=$func_len_result len=$len0 for obj in $save_oldobjs do func_len " $obj" func_arith $len + $func_len_result len=$func_arith_result func_append objlist " $obj" if test "$len" -lt "$max_cmd_len"; then : else # the above command should be used before it gets too long oldobjs=$objlist if test "$obj" = "$last_oldobj" ; then RANLIB=$save_RANLIB fi test -z "$concat_cmds" || concat_cmds=$concat_cmds~ eval concat_cmds=\"\${concat_cmds}$old_archive_cmds\" objlist= len=$len0 fi done RANLIB=$save_RANLIB oldobjs=$objlist if test "X$oldobjs" = "X" ; then eval cmds=\"\$concat_cmds\" else eval cmds=\"\$concat_cmds~\$old_archive_cmds\" fi fi fi func_execute_cmds "$cmds" 'exit $?' done test -n "$generated" && \ func_show_eval "${RM}r$generated" # Now create the libtool archive. case $output in *.la) old_library= test "$build_old_libs" = yes && old_library="$libname.$libext" func_verbose "creating $output" # Preserve any variables that may affect compiler behavior for var in $variables_saved_for_relink; do if eval test -z \"\${$var+set}\"; then relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command" elif eval var_value=\$$var; test -z "$var_value"; then relink_command="$var=; export $var; $relink_command" else func_quote_for_eval "$var_value" relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command" fi done # Quote the link command for shipping. relink_command="(cd `pwd`; $SHELL $progpath $preserve_args --mode=relink $libtool_args @inst_prefix_dir@)" relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"` if test "$hardcode_automatic" = yes ; then relink_command= fi # Only create the output if not a dry run. $opt_dry_run || { for installed in no yes; do if test "$installed" = yes; then if test -z "$install_libdir"; then break fi output="$output_objdir/$outputname"i # Replace all uninstalled libtool libraries with the installed ones newdependency_libs= for deplib in $dependency_libs; do case $deplib in *.la) func_basename "$deplib" name="$func_basename_result" func_resolve_sysroot "$deplib" eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $func_resolve_sysroot_result` test -z "$libdir" && \ func_fatal_error "\`$deplib' is not a valid libtool archive" func_append newdependency_libs " ${lt_sysroot:+=}$libdir/$name" ;; -L*) func_stripname -L '' "$deplib" func_replace_sysroot "$func_stripname_result" func_append newdependency_libs " -L$func_replace_sysroot_result" ;; -R*) func_stripname -R '' "$deplib" func_replace_sysroot "$func_stripname_result" func_append newdependency_libs " -R$func_replace_sysroot_result" ;; *) func_append newdependency_libs " $deplib" ;; esac done dependency_libs="$newdependency_libs" newdlfiles= for lib in $dlfiles; do case $lib in *.la) func_basename "$lib" name="$func_basename_result" eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` test -z "$libdir" && \ func_fatal_error "\`$lib' is not a valid libtool archive" func_append newdlfiles " ${lt_sysroot:+=}$libdir/$name" ;; *) func_append newdlfiles " $lib" ;; esac done dlfiles="$newdlfiles" newdlprefiles= for lib in $dlprefiles; do case $lib in *.la) # Only pass preopened files to the pseudo-archive (for # eventual linking with the app. that links it) if we # didn't already link the preopened objects directly into # the library: func_basename "$lib" name="$func_basename_result" eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` test -z "$libdir" && \ func_fatal_error "\`$lib' is not a valid libtool archive" func_append newdlprefiles " ${lt_sysroot:+=}$libdir/$name" ;; esac done dlprefiles="$newdlprefiles" else newdlfiles= for lib in $dlfiles; do case $lib in [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; *) abs=`pwd`"/$lib" ;; esac func_append newdlfiles " $abs" done dlfiles="$newdlfiles" newdlprefiles= for lib in $dlprefiles; do case $lib in [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; *) abs=`pwd`"/$lib" ;; esac func_append newdlprefiles " $abs" done dlprefiles="$newdlprefiles" fi $RM $output # place dlname in correct position for cygwin # In fact, it would be nice if we could use this code for all target # systems that can't hard-code library paths into their executables # and that have no shared library path variable independent of PATH, # but it turns out we can't easily determine that from inspecting # libtool variables, so we have to hard-code the OSs to which it # applies here; at the moment, that means platforms that use the PE # object format with DLL files. See the long comment at the top of # tests/bindir.at for full details. tdlname=$dlname case $host,$output,$installed,$module,$dlname in *cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll | *cegcc*,*lai,yes,no,*.dll) # If a -bindir argument was supplied, place the dll there. if test "x$bindir" != x ; then func_relative_path "$install_libdir" "$bindir" tdlname=$func_relative_path_result$dlname else # Otherwise fall back on heuristic. tdlname=../bin/$dlname fi ;; esac $ECHO > $output "\ # $outputname - a libtool library file # Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION # # Please DO NOT delete this file! # It is necessary for linking the library. # The name that we can dlopen(3). dlname='$tdlname' # Names of this library. library_names='$library_names' # The name of the static archive. old_library='$old_library' # Linker flags that can not go in dependency_libs. inherited_linker_flags='$new_inherited_linker_flags' # Libraries that this one depends upon. dependency_libs='$dependency_libs' # Names of additional weak libraries provided by this library weak_library_names='$weak_libs' # Version information for $libname. current=$current age=$age revision=$revision # Is this an already installed library? installed=$installed # Should we warn about portability when linking against -modules? shouldnotlink=$module # Files to dlopen/dlpreopen dlopen='$dlfiles' dlpreopen='$dlprefiles' # Directory that this library needs to be installed in: libdir='$install_libdir'" if test "$installed" = no && test "$need_relink" = yes; then $ECHO >> $output "\ relink_command=\"$relink_command\"" fi done } # Do a symbolic link so that the libtool archive can be found in # LD_LIBRARY_PATH before the program is installed. func_show_eval '( cd "$output_objdir" && $RM "$outputname" && $LN_S "../$outputname" "$outputname" )' 'exit $?' ;; esac exit $EXIT_SUCCESS } { test "$opt_mode" = link || test "$opt_mode" = relink; } && func_mode_link ${1+"$@"} # func_mode_uninstall arg... func_mode_uninstall () { $opt_debug RM="$nonopt" files= rmforce= exit_status=0 # This variable tells wrapper scripts just to set variables rather # than running their programs. libtool_install_magic="$magic" for arg do case $arg in -f) func_append RM " $arg"; rmforce=yes ;; -*) func_append RM " $arg" ;; *) func_append files " $arg" ;; esac done test -z "$RM" && \ func_fatal_help "you must specify an RM program" rmdirs= for file in $files; do func_dirname "$file" "" "." dir="$func_dirname_result" if test "X$dir" = X.; then odir="$objdir" else odir="$dir/$objdir" fi func_basename "$file" name="$func_basename_result" test "$opt_mode" = uninstall && odir="$dir" # Remember odir for removal later, being careful to avoid duplicates if test "$opt_mode" = clean; then case " $rmdirs " in *" $odir "*) ;; *) func_append rmdirs " $odir" ;; esac fi # Don't error if the file doesn't exist and rm -f was used. if { test -L "$file"; } >/dev/null 2>&1 || { test -h "$file"; } >/dev/null 2>&1 || test -f "$file"; then : elif test -d "$file"; then exit_status=1 continue elif test "$rmforce" = yes; then continue fi rmfiles="$file" case $name in *.la) # Possibly a libtool archive, so verify it. if func_lalib_p "$file"; then func_source $dir/$name # Delete the libtool libraries and symlinks. for n in $library_names; do func_append rmfiles " $odir/$n" done test -n "$old_library" && func_append rmfiles " $odir/$old_library" case "$opt_mode" in clean) case " $library_names " in *" $dlname "*) ;; *) test -n "$dlname" && func_append rmfiles " $odir/$dlname" ;; esac test -n "$libdir" && func_append rmfiles " $odir/$name $odir/${name}i" ;; uninstall) if test -n "$library_names"; then # Do each command in the postuninstall commands. func_execute_cmds "$postuninstall_cmds" 'test "$rmforce" = yes || exit_status=1' fi if test -n "$old_library"; then # Do each command in the old_postuninstall commands. func_execute_cmds "$old_postuninstall_cmds" 'test "$rmforce" = yes || exit_status=1' fi # FIXME: should reinstall the best remaining shared library. ;; esac fi ;; *.lo) # Possibly a libtool object, so verify it. if func_lalib_p "$file"; then # Read the .lo file func_source $dir/$name # Add PIC object to the list of files to remove. if test -n "$pic_object" && test "$pic_object" != none; then func_append rmfiles " $dir/$pic_object" fi # Add non-PIC object to the list of files to remove. if test -n "$non_pic_object" && test "$non_pic_object" != none; then func_append rmfiles " $dir/$non_pic_object" fi fi ;; *) if test "$opt_mode" = clean ; then noexename=$name case $file in *.exe) func_stripname '' '.exe' "$file" file=$func_stripname_result func_stripname '' '.exe' "$name" noexename=$func_stripname_result # $file with .exe has already been added to rmfiles, # add $file without .exe func_append rmfiles " $file" ;; esac # Do a test to see if this is a libtool program. if func_ltwrapper_p "$file"; then if func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" relink_command= func_source $func_ltwrapper_scriptname_result func_append rmfiles " $func_ltwrapper_scriptname_result" else relink_command= func_source $dir/$noexename fi # note $name still contains .exe if it was in $file originally # as does the version of $file that was added into $rmfiles func_append rmfiles " $odir/$name $odir/${name}S.${objext}" if test "$fast_install" = yes && test -n "$relink_command"; then func_append rmfiles " $odir/lt-$name" fi if test "X$noexename" != "X$name" ; then func_append rmfiles " $odir/lt-${noexename}.c" fi fi fi ;; esac func_show_eval "$RM $rmfiles" 'exit_status=1' done # Try to remove the ${objdir}s in the directories where we deleted files for dir in $rmdirs; do if test -d "$dir"; then func_show_eval "rmdir $dir >/dev/null 2>&1" fi done exit $exit_status } { test "$opt_mode" = uninstall || test "$opt_mode" = clean; } && func_mode_uninstall ${1+"$@"} test -z "$opt_mode" && { help="$generic_help" func_fatal_help "you must specify a MODE" } test -z "$exec_cmd" && \ func_fatal_help "invalid operation mode \`$opt_mode'" if test -n "$exec_cmd"; then eval exec "$exec_cmd" exit $EXIT_FAILURE fi exit $exit_status # The TAGs below are defined such that we never get into a situation # in which we disable both kinds of libraries. Given conflicting # choices, we go for a static library, that is the most portable, # since we can't tell whether shared libraries were disabled because # the user asked for that or because the platform doesn't support # them. This is particularly important on AIX, because we don't # support having both static and shared libraries enabled at the same # time on that platform, so we default to a shared-only configuration. # If a disable-shared tag is given, we'll fallback to a static-only # configuration. But we'll never go from static-only to shared-only. # ### BEGIN LIBTOOL TAG CONFIG: disable-shared build_libtool_libs=no build_old_libs=yes # ### END LIBTOOL TAG CONFIG: disable-shared # ### BEGIN LIBTOOL TAG CONFIG: disable-static build_old_libs=`case $build_libtool_libs in yes) echo no;; *) echo yes;; esac` # ### END LIBTOOL TAG CONFIG: disable-static # Local Variables: # mode:shell-script # sh-indentation:2 # End: # vi:sw=2 midgard2-core-10.05.7.1/Makefile.in0000664000175000017500000047776211772046305013466 00000000000000# Makefile.in generated by automake 1.11.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ bin_PROGRAMS = test/midgard2-schema$(EXEEXT) \ test/midgard2-query$(EXEEXT) noinst_PROGRAMS = @HAVE_INTROSPECTION_TRUE@am__append_1 = $(AM_CFLAGS) @HAVE_INTROSPECTION_TRUE@am__append_2 = -lxml2 subdir = . DIST_COMMON = README $(am__configure_deps) $(dist_pkgdata_DATA) \ $(libmidgardinclude_HEADERS) $(libmidgardsqlinclude_HEADERS) \ $(libsubmidgardinclude_HEADERS) $(nobase_dist_sysconf_DATA) \ $(srcdir)/Doxyfile.in $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/config.h.in \ $(srcdir)/midgard2.pc.in $(top_srcdir)/configure \ $(top_srcdir)/src/midgard_config_auto.h.in AUTHORS COPYING \ ChangeLog INSTALL NEWS config.guess config.sub depcomp \ install-sh ltmain.sh missing ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/introspection.m4 \ $(top_srcdir)/m4/libtool.m4 $(top_srcdir)/m4/ltoptions.m4 \ $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \ $(top_srcdir)/m4/lt~obsolete.m4 $(top_srcdir)/configure.in am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \ configure.lineno config.status.lineno mkinstalldirs = $(install_sh) -d CONFIG_HEADER = config.h CONFIG_CLEAN_FILES = Doxyfile src/midgard_config_auto.h midgard2.pc CONFIG_CLEAN_VPATH_FILES = am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } am__installdirs = "$(DESTDIR)$(libdir)" "$(DESTDIR)$(bindir)" \ "$(DESTDIR)$(man1dir)" "$(DESTDIR)$(dbus_pkgdatadir)" \ "$(DESTDIR)$(pkgdatadir)" "$(DESTDIR)$(girdir)" \ "$(DESTDIR)$(sysconfdir)" "$(DESTDIR)$(pkgconfigdir)" \ "$(DESTDIR)$(schemadir)" "$(DESTDIR)$(typelibsdir)" \ "$(DESTDIR)$(viewsdir)" "$(DESTDIR)$(libmidgardincludedir)" \ "$(DESTDIR)$(libmidgardsqlincludedir)" \ "$(DESTDIR)$(libsubmidgardincludedir)" LTLIBRARIES = $(lib_LTLIBRARIES) src_libmidgard2_la_LIBADD = am__src_libmidgard2_la_SOURCES_DIST = src/midgard.c \ src/midgard_base_abstract.c src/midgard_base_interface.c \ src/midgard_base_mixin.c src/midgard_key_config.c \ src/midgard_key_config_context.c src/midgard_key_config_file.c \ src/midgard_key_config_file_context.c \ src/midgard_key_config_common.h src/midgard_object.c \ src/uuid.c src/guid.c src/midgard_type.c src/midgard_config.c \ src/query_builder.c src/midgard_metadata.c \ src/midgard_timestamp.c src/midgard_reflection_property.c \ src/midgard_connection.c src/midgard_error.c \ src/midgard_collector.c src/midgard_dbus.h src/midgard_dbus.c \ src/midgard_executable.c src/midgard_object_parameter.c \ src/midgard_object_attachment.c src/midgard_query_constraint.c \ src/midgard_query_executor.c \ src/midgard_query_constraint_group.c \ src/midgard_query_holder.c src/midgard_query_property.c \ src/midgard_query_select.c \ src/midgard_query_constraint_simple.c \ src/midgard_query_storage.c src/midgard_query_value.c \ src/midgard_query_row.c src/midgard_query_column.c \ src/midgard_query_selector.c src/midgard_query_result.c \ src/midgard_reflector_object.c \ src/midgard_reflector_property.c src/midgard_replicator.c \ src/midgard_repligard.c src/midgard_user.c \ src/midgard_schema_object_factory.c \ src/midgard_schema_object_factory.h \ src/midgard_schema_object_tree.c \ src/midgard_schema_object_tree.h src/midgard_storage.c \ src/midgard_storage.h src/midgard_dbobject.c \ src/midgard_blob.c src/midgard_transaction.c src/midgard_md5.c \ src/midgard_md5.h src/midgard_validable.c src/midgard_view.c \ src/midgard_workspace.c src/midgard_workspace_context.c \ src/midgard_workspace_manager.c \ src/midgard_workspace_storage.c \ src/sql/midgard_sql_query_column.c \ src/sql/midgard_sql_query_row.c \ src/sql/midgard_sql_query_result.c \ src/sql/midgard_sql_query_select_data.c \ src/sql/midgard_sql_query_constraint.c \ src/midgard_core_connection.h src/midgard_core_connection.c \ src/midgard_core_query.h src/midgard_core_query.c \ src/mgdschema.c src/midgard_quota.c src/query_constraint.c \ src/query_constraint.h src/group_constraint.c \ src/group_constraint.h src/query_group_constraint.h \ src/query_group_constraint.c src/query_order.c \ src/query_order.h src/schema.h src/midgard_core_metadata.c \ src/midgard_core_metadata.h src/midgard_core_object_class.c \ src/midgard_core_object_class.h \ src/midgard_core_query_builder.h \ src/midgard_core_query_builder.c src/midgard_core_object.c \ src/midgard_core_object.h src/midgard_core_config.c \ src/midgard_core_config.h src/midgard_core_object_parameter.h \ src/midgard_core_schema.c src/midgard_core_views.c \ src/midgard_core_views.h src/midgard_core_xml.h \ src/midgard_core_xml.c src/midgard_core_workspace.h \ src/midgard_core_workspace.c src/midgard_dbus_interface.h am__objects_1 = am__objects_2 = src_libmidgard2_la-midgard.lo \ src_libmidgard2_la-midgard_base_abstract.lo \ src_libmidgard2_la-midgard_base_interface.lo \ src_libmidgard2_la-midgard_base_mixin.lo \ src_libmidgard2_la-midgard_key_config.lo \ src_libmidgard2_la-midgard_key_config_context.lo \ src_libmidgard2_la-midgard_key_config_file.lo \ src_libmidgard2_la-midgard_key_config_file_context.lo \ src_libmidgard2_la-midgard_object.lo \ src_libmidgard2_la-uuid.lo src_libmidgard2_la-guid.lo \ src_libmidgard2_la-midgard_type.lo \ src_libmidgard2_la-midgard_config.lo \ src_libmidgard2_la-query_builder.lo \ src_libmidgard2_la-midgard_metadata.lo \ src_libmidgard2_la-midgard_timestamp.lo \ src_libmidgard2_la-midgard_reflection_property.lo \ src_libmidgard2_la-midgard_connection.lo \ src_libmidgard2_la-midgard_error.lo \ src_libmidgard2_la-midgard_collector.lo \ src_libmidgard2_la-midgard_dbus.lo \ src_libmidgard2_la-midgard_executable.lo \ src_libmidgard2_la-midgard_object_parameter.lo \ src_libmidgard2_la-midgard_object_attachment.lo \ src_libmidgard2_la-midgard_query_constraint.lo \ src_libmidgard2_la-midgard_query_executor.lo \ src_libmidgard2_la-midgard_query_constraint_group.lo \ src_libmidgard2_la-midgard_query_holder.lo \ src_libmidgard2_la-midgard_query_property.lo \ src_libmidgard2_la-midgard_query_select.lo \ src_libmidgard2_la-midgard_query_constraint_simple.lo \ src_libmidgard2_la-midgard_query_storage.lo \ src_libmidgard2_la-midgard_query_value.lo \ src_libmidgard2_la-midgard_query_row.lo \ src_libmidgard2_la-midgard_query_column.lo \ src_libmidgard2_la-midgard_query_selector.lo \ src_libmidgard2_la-midgard_query_result.lo \ src_libmidgard2_la-midgard_reflector_object.lo \ src_libmidgard2_la-midgard_reflector_property.lo \ src_libmidgard2_la-midgard_replicator.lo \ src_libmidgard2_la-midgard_repligard.lo \ src_libmidgard2_la-midgard_user.lo \ src_libmidgard2_la-midgard_schema_object_factory.lo \ src_libmidgard2_la-midgard_schema_object_tree.lo \ src_libmidgard2_la-midgard_storage.lo \ src_libmidgard2_la-midgard_dbobject.lo \ src_libmidgard2_la-midgard_blob.lo \ src_libmidgard2_la-midgard_transaction.lo \ src_libmidgard2_la-midgard_md5.lo \ src_libmidgard2_la-midgard_validable.lo \ src_libmidgard2_la-midgard_view.lo \ src_libmidgard2_la-midgard_workspace.lo \ src_libmidgard2_la-midgard_workspace_context.lo \ src_libmidgard2_la-midgard_workspace_manager.lo \ src_libmidgard2_la-midgard_workspace_storage.lo \ src_libmidgard2_la-midgard_sql_query_column.lo \ src_libmidgard2_la-midgard_sql_query_row.lo \ src_libmidgard2_la-midgard_sql_query_result.lo \ src_libmidgard2_la-midgard_sql_query_select_data.lo \ src_libmidgard2_la-midgard_sql_query_constraint.lo \ $(am__objects_1) am__objects_3 = src_libmidgard2_la-midgard_core_connection.lo \ src_libmidgard2_la-midgard_core_query.lo \ src_libmidgard2_la-mgdschema.lo \ src_libmidgard2_la-midgard_quota.lo \ src_libmidgard2_la-query_constraint.lo \ src_libmidgard2_la-group_constraint.lo \ src_libmidgard2_la-query_group_constraint.lo \ src_libmidgard2_la-query_order.lo \ src_libmidgard2_la-midgard_core_metadata.lo \ src_libmidgard2_la-midgard_core_object_class.lo \ src_libmidgard2_la-midgard_core_query_builder.lo \ src_libmidgard2_la-midgard_core_object.lo \ src_libmidgard2_la-midgard_core_config.lo \ src_libmidgard2_la-midgard_core_schema.lo \ src_libmidgard2_la-midgard_core_views.lo \ src_libmidgard2_la-midgard_core_xml.lo \ src_libmidgard2_la-midgard_core_workspace.lo $(am__objects_1) am_src_libmidgard2_la_OBJECTS = $(am__objects_2) $(am__objects_3) \ $(am__objects_1) src_libmidgard2_la_OBJECTS = $(am_src_libmidgard2_la_OBJECTS) src_libmidgard2_la_LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) \ $(LIBTOOLFLAGS) --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) \ $(src_libmidgard2_la_LDFLAGS) $(LDFLAGS) -o $@ am__dirstamp = $(am__leading_dot)dirstamp PROGRAMS = $(bin_PROGRAMS) $(noinst_PROGRAMS) am_test_midgard2_query_OBJECTS = midgard-query.$(OBJEXT) test_midgard2_query_OBJECTS = $(am_test_midgard2_query_OBJECTS) test_midgard2_query_LDADD = $(LDADD) test_midgard2_query_DEPENDENCIES = src/libmidgard2.la am_test_midgard2_schema_OBJECTS = midgard-schema.$(OBJEXT) test_midgard2_schema_OBJECTS = $(am_test_midgard2_schema_OBJECTS) test_midgard2_schema_LDADD = $(LDADD) test_midgard2_schema_DEPENDENCIES = src/libmidgard2.la DEFAULT_INCLUDES = -I.@am__isrc@ depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(src_libmidgard2_la_SOURCES) $(test_midgard2_query_SOURCES) \ $(test_midgard2_schema_SOURCES) DIST_SOURCES = $(am__src_libmidgard2_la_SOURCES_DIST) \ $(test_midgard2_query_SOURCES) $(test_midgard2_schema_SOURCES) man1dir = $(mandir)/man1 NROFF = nroff MANS = $(man_MANS) DATA = $(dbus_pkgdata_DATA) $(dist_pkgdata_DATA) $(gir_DATA) \ $(nobase_dist_sysconf_DATA) $(pkgconfig_DATA) $(schema_DATA) \ $(typelibs_DATA) $(views_DATA) HEADERS = $(libmidgardinclude_HEADERS) $(libmidgardsqlinclude_HEADERS) \ $(libsubmidgardinclude_HEADERS) ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) distdir = $(PACKAGE)-$(VERSION) top_distdir = $(distdir) am__remove_distdir = \ if test -d "$(distdir)"; then \ find "$(distdir)" -type d ! -perm -200 -exec chmod u+w {} ';' \ && rm -rf "$(distdir)" \ || { sleep 5 && rm -rf "$(distdir)"; }; \ else :; fi DIST_ARCHIVES = $(distdir).tar.gz GZIP_ENV = --best distuninstallcheck_listfiles = find . -type f -print am__distuninstallcheck_listfiles = $(distuninstallcheck_listfiles) \ | sed 's|^\./|$(prefix)/|' | grep -v '$(infodir)/dir$$' distcleancheck_listfiles = find . -type f -print pkgdatadir = $(datadir)/midgard2 pkglibdir = $(libdir)/midgard2 ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DBUS_CONF_DIR = @DBUS_CONF_DIR@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GDA_GIR_INCLUDE = @GDA_GIR_INCLUDE@ GDA_GIR_PACKAGE = @GDA_GIR_PACKAGE@ GREP = @GREP@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ INTROSPECTION_CFLAGS = @INTROSPECTION_CFLAGS@ $(am__append_1) INTROSPECTION_COMPILER = @INTROSPECTION_COMPILER@ INTROSPECTION_GENERATE = @INTROSPECTION_GENERATE@ INTROSPECTION_GIRDIR = @INTROSPECTION_GIRDIR@ INTROSPECTION_LIBS = @INTROSPECTION_LIBS@ $(am__append_2) INTROSPECTION_MAKEFILE = @INTROSPECTION_MAKEFILE@ INTROSPECTION_SCANNER = @INTROSPECTION_SCANNER@ INTROSPECTION_TYPELIBDIR = @INTROSPECTION_TYPELIBDIR@ LD = @LD@ LDFLAGS = @LDFLAGS@ LFLAGS = @LFLAGS@ LIBGDA_VERSION = @LIBGDA_VERSION@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAINT = @MAINT@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MIDGARD_CFLAGS = @MIDGARD_CFLAGS@ MIDGARD_DBUS_SUPPORT = @MIDGARD_DBUS_SUPPORT@ MIDGARD_LIBS = @MIDGARD_LIBS@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ PKG_CONFIG = @PKG_CONFIG@ PKG_CONFIG_LIBDIR = @PKG_CONFIG_LIBDIR@ PKG_CONFIG_PATH = @PKG_CONFIG_PATH@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ VERSION_STRING = @VERSION_STRING@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ NULL = ACLOCAL_AMFLAGS = -I m4 DISTCHECK_CONFIGURE_FLAGS = --enable-introspection lib_LTLIBRARIES = \ src/libmidgard2.la @MIDGARD_DBUS_SUPPORT_TRUE@dbus_pkgdatadir = $(DBUS_CONF_DIR)/dbus-1/system.d @MIDGARD_DBUS_SUPPORT_TRUE@dbus_pkgdata_DATA = midgard_dbus.conf test_midgard2_schema_SOURCES = test/midgard-schema.c test_midgard2_query_SOURCES = test/midgard-query.c nobase_dist_sysconf_DATA = \ conf.d/midgard.conf.example dist_pkgdata_DATA = MidgardObjects.xml \ midgard_auth_types.xml \ midgard_dbus.conf \ conf.d/midgard.conf.example schemadir = $(datadir)/midgard2/schema schema_DATA = schema/README.txt viewsdir = $(datadir)/midgard2/views views_DATA = views/README-views.txt midgard_public_h = \ src/midgard_base_abstract.h \ src/midgard_base_interface.h \ src/midgard_base_mixin.h \ src/midgard_config.h \ src/midgard_config_auto.h \ src/midgard_dbobject.h \ src/midgard_defs.h \ src/midgard_dbus.h \ src/midgard_executable.h \ src/midgard_key_config_common.h \ src/midgard_object.h \ src/query_builder.h \ src/midgard_metadata.h \ src/midgard_timestamp.h \ src/uuid.h \ src/guid.h \ src/midgard_datatypes.h \ src/midgard_type.h \ src/midgard_quota.h \ src/midgard_reflection_property.h \ src/midgard_schema.h \ src/midgard_connection.h \ src/midgard_error.h \ src/midgard_collector.h \ src/midgard_object_parameter.h \ src/midgard_object_attachment.h \ src/midgard_query_constraint.h \ src/midgard_query_executor.h \ src/midgard_query_constraint_group.h \ src/midgard_query_holder.h \ src/midgard_query_value.h \ src/midgard_query_property.h \ src/midgard_query_select.h \ src/midgard_query_storage.h \ src/midgard_query_constraint_simple.h \ src/midgard_reflector_object.h \ src/midgard_reflector_property.h \ src/midgard_replicator.h \ src/midgard_repligard.h \ src/midgard_schema_object_factory.h \ src/midgard_schema_object_tree.h \ src/midgard_blob.h \ src/midgard_storage.h \ src/midgard_transaction.h \ src/midgard_user.h \ src/midgard_utils.h \ src/midgard_validable.h \ src/midgard_view.h \ src/midgard_workspace.h \ src/midgard_workspace_context.h \ src/midgard_workspace_manager.h \ src/midgard_workspace_storage.h \ src/midgard_query_row.h \ src/midgard_query_column.h \ src/midgard_query_selector.h \ src/midgard_query_result.h \ $(NULL) midgard_sql_public_h = \ src/sql/midgard_sql_query_column.h \ src/sql/midgard_sql_query_row.h \ src/sql/midgard_sql_query_result.h \ src/sql/midgard_sql_query_select_data.h \ src/sql/midgard_sql_query_constraint.h \ $(NULL) man_MANS = man/midgard2-schema.1 \ man/midgard2-query.1 EXTRA_DIST = \ $(man_MANS) \ midgard2.pc.in \ $(schema_DATA) \ $(views_DATA) \ m4/introspection.m4 LDADD = src/libmidgard2.la @PLATFORM_WIN32_TRUE@no_undefined = -no-undefined src_libmidgard2_la_CPPFLAGS = \ -I$(top_srcdir)/src -DG_LOG_DOMAIN=\"midgard-core\" AM_CFLAGS = -I$(top_srcdir)/src @MIDGARD_CFLAGS@ AM_LDFLAGS = @MIDGARD_LIBS@ src_libmidgard2_la_LDFLAGS = -version-info 2015:0:5 $(no_undefined) test_midgard_schema_CPPFLAGS = \ -DG_LOG_DOMAIN=\"midgard-core\" src_libmidgard2_la_core_SOURCES = \ src/midgard_core_connection.h \ src/midgard_core_connection.c \ src/midgard_core_query.h \ src/midgard_core_query.c \ src/mgdschema.c \ src/midgard_quota.c \ src/query_constraint.c \ src/query_constraint.h \ src/group_constraint.c \ src/group_constraint.h \ src/query_group_constraint.h \ src/query_group_constraint.c \ src/query_order.c \ src/query_order.h \ src/schema.h \ src/midgard_core_metadata.c \ src/midgard_core_metadata.h \ src/midgard_core_object_class.c \ src/midgard_core_object_class.h \ src/midgard_core_query_builder.h \ src/midgard_core_query_builder.c \ src/midgard_core_object.c \ src/midgard_core_object.h \ src/midgard_core_config.c \ src/midgard_core_config.h \ src/midgard_core_object_parameter.h \ src/midgard_core_schema.c \ src/midgard_core_views.c \ src/midgard_core_views.h \ src/midgard_core_xml.h \ src/midgard_core_xml.c \ src/midgard_core_workspace.h \ src/midgard_core_workspace.c \ $(NULL) src_libmidgard2_la_public_SOURCES = \ src/midgard.c \ src/midgard_base_abstract.c \ src/midgard_base_interface.c \ src/midgard_base_mixin.c \ src/midgard_key_config.c \ src/midgard_key_config_context.c \ src/midgard_key_config_file.c \ src/midgard_key_config_file_context.c \ src/midgard_key_config_common.h \ src/midgard_object.c \ src/uuid.c \ src/guid.c \ src/midgard_type.c \ src/midgard_config.c \ src/query_builder.c \ src/midgard_metadata.c \ src/midgard_timestamp.c \ src/midgard_reflection_property.c \ src/midgard_connection.c \ src/midgard_error.c \ src/midgard_collector.c \ src/midgard_dbus.h \ src/midgard_dbus.c \ src/midgard_executable.c \ src/midgard_object_parameter.c \ src/midgard_object_attachment.c \ src/midgard_query_constraint.c \ src/midgard_query_executor.c \ src/midgard_query_constraint_group.c \ src/midgard_query_holder.c \ src/midgard_query_property.c \ src/midgard_query_select.c \ src/midgard_query_constraint_simple.c \ src/midgard_query_storage.c \ src/midgard_query_value.c \ src/midgard_query_row.c \ src/midgard_query_column.c \ src/midgard_query_selector.c \ src/midgard_query_result.c \ src/midgard_reflector_object.c \ src/midgard_reflector_property.c \ src/midgard_replicator.c \ src/midgard_repligard.c \ src/midgard_user.c \ src/midgard_schema_object_factory.c \ src/midgard_schema_object_factory.h \ src/midgard_schema_object_tree.c \ src/midgard_schema_object_tree.h \ src/midgard_storage.c \ src/midgard_storage.h \ src/midgard_dbobject.c \ src/midgard_blob.c \ src/midgard_transaction.c \ src/midgard_md5.c \ src/midgard_md5.h \ src/midgard_validable.c \ src/midgard_view.c \ src/midgard_workspace.c \ src/midgard_workspace_context.c \ src/midgard_workspace_manager.c \ src/midgard_workspace_storage.c \ src/sql/midgard_sql_query_column.c \ src/sql/midgard_sql_query_row.c \ src/sql/midgard_sql_query_result.c \ src/sql/midgard_sql_query_select_data.c \ src/sql/midgard_sql_query_constraint.c \ $(NULL) @MIDGARD_DBUS_SUPPORT_FALSE@src_libmidgard2_la_dbus_SOURCES = @MIDGARD_DBUS_SUPPORT_TRUE@src_libmidgard2_la_dbus_SOURCES = src/midgard_dbus_interface.h libmidgardincludedir = $(includedir)/midgard2 libmidgardinclude_HEADERS = src/midgard2.h libsubmidgardincludedir = $(includedir)/midgard2/midgard libsubmidgardinclude_HEADERS = $(midgard_public_h) src/midgard.h libmidgardsqlincludedir = $(includedir)/midgard2/midgard/sql libmidgardsqlinclude_HEADERS = $(midgard_sql_public_h) src_libmidgard2_la_SOURCES = $(src_libmidgard2_la_public_SOURCES) $(src_libmidgard2_la_core_SOURCES) $(src_libmidgard2_la_dbus_SOURCES) mgdschemasdir = $(datadir)/midgard2/schema pkgconfigdir = $(libdir)/pkgconfig pkgconfig_DATA = midgard2.pc INTROSPECTION_SCANNER_ARGS = --add-include-path=$(srcdir) INTROSPECTION_COMPILER_ARGS = --includedir=$(srcdir) @HAVE_INTROSPECTION_TRUE@introspection_sources = $(src_libmidgard2_la_public_SOURCES) $(midgard_public_h) $(midgard_sql_public_h) @HAVE_INTROSPECTION_TRUE@Midgard_10_05_gir_INCLUDES = GObject-2.0 libxml2-2.0 $(GDA_GIR_INCLUDE) @HAVE_INTROSPECTION_TRUE@Midgard_10_05_gir_CFLAGS = $(AM_CFLAGS) `pkg-config --cflags libxml-2.0` @HAVE_INTROSPECTION_TRUE@Midgard_10_05_gir_LIBS = $(lib_LTLIBRARIES) @HAVE_INTROSPECTION_TRUE@Midgard_10_05_gir_FILES = $(addprefix $(srcdir)/,$(introspection_sources)) @HAVE_INTROSPECTION_TRUE@Midgard_10_05_gir_PACKAGES = gobject-2.0 libxml-2.0 $(GDA_GIR_PACKAGE) @HAVE_INTROSPECTION_TRUE@INTROSPECTION_GIRS = Midgard-10.05.gir @HAVE_INTROSPECTION_TRUE@girdir = $(datadir)/gir-1.0 @HAVE_INTROSPECTION_TRUE@gir_DATA = $(INTROSPECTION_GIRS) @HAVE_INTROSPECTION_TRUE@typelibsdir = $(libdir)/girepository-1.0 @HAVE_INTROSPECTION_TRUE@typelibs_DATA = $(INTROSPECTION_GIRS:.gir=.typelib) @HAVE_INTROSPECTION_TRUE@CLEANFILES = $(dist_gir_DATA) $(typelib_DATA) all: config.h $(MAKE) $(AM_MAKEFLAGS) all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj am--refresh: Makefile @: $(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ echo ' cd $(srcdir) && $(AUTOMAKE) --gnu'; \ $(am__cd) $(srcdir) && $(AUTOMAKE) --gnu \ && exit 0; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --gnu Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --gnu Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ echo ' $(SHELL) ./config.status'; \ $(SHELL) ./config.status;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) $(SHELL) ./config.status --recheck $(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) $(am__cd) $(srcdir) && $(AUTOCONF) $(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps) $(am__cd) $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS) $(am__aclocal_m4_deps): config.h: stamp-h1 @if test ! -f $@; then rm -f stamp-h1; else :; fi @if test ! -f $@; then $(MAKE) $(AM_MAKEFLAGS) stamp-h1; else :; fi stamp-h1: $(srcdir)/config.h.in $(top_builddir)/config.status @rm -f stamp-h1 cd $(top_builddir) && $(SHELL) ./config.status config.h $(srcdir)/config.h.in: @MAINTAINER_MODE_TRUE@ $(am__configure_deps) ($(am__cd) $(top_srcdir) && $(AUTOHEADER)) rm -f stamp-h1 touch $@ distclean-hdr: -rm -f config.h stamp-h1 Doxyfile: $(top_builddir)/config.status $(srcdir)/Doxyfile.in cd $(top_builddir) && $(SHELL) ./config.status $@ src/midgard_config_auto.h: $(top_builddir)/config.status $(top_srcdir)/src/midgard_config_auto.h.in cd $(top_builddir) && $(SHELL) ./config.status $@ midgard2.pc: $(top_builddir)/config.status $(srcdir)/midgard2.pc.in cd $(top_builddir) && $(SHELL) ./config.status $@ install-libLTLIBRARIES: $(lib_LTLIBRARIES) @$(NORMAL_INSTALL) test -z "$(libdir)" || $(MKDIR_P) "$(DESTDIR)$(libdir)" @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ list2=; for p in $$list; do \ if test -f $$p; then \ list2="$$list2 $$p"; \ else :; fi; \ done; \ test -z "$$list2" || { \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 '$(DESTDIR)$(libdir)'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL) $(INSTALL_STRIP_FLAG) $$list2 "$(DESTDIR)$(libdir)"; \ } uninstall-libLTLIBRARIES: @$(NORMAL_UNINSTALL) @list='$(lib_LTLIBRARIES)'; test -n "$(libdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f '$(DESTDIR)$(libdir)/$$f'"; \ $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=uninstall rm -f "$(DESTDIR)$(libdir)/$$f"; \ done clean-libLTLIBRARIES: -test -z "$(lib_LTLIBRARIES)" || rm -f $(lib_LTLIBRARIES) @list='$(lib_LTLIBRARIES)'; for p in $$list; do \ dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \ test "$$dir" != "$$p" || dir=.; \ echo "rm -f \"$${dir}/so_locations\""; \ rm -f "$${dir}/so_locations"; \ done src/$(am__dirstamp): @$(MKDIR_P) src @: > src/$(am__dirstamp) src/libmidgard2.la: $(src_libmidgard2_la_OBJECTS) $(src_libmidgard2_la_DEPENDENCIES) $(EXTRA_src_libmidgard2_la_DEPENDENCIES) src/$(am__dirstamp) $(src_libmidgard2_la_LINK) -rpath $(libdir) $(src_libmidgard2_la_OBJECTS) $(src_libmidgard2_la_LIBADD) $(LIBS) install-binPROGRAMS: $(bin_PROGRAMS) @$(NORMAL_INSTALL) test -z "$(bindir)" || $(MKDIR_P) "$(DESTDIR)$(bindir)" @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \ for p in $$list; do echo "$$p $$p"; done | \ sed 's/$(EXEEXT)$$//' | \ while read p p1; do if test -f $$p || test -f $$p1; \ then echo "$$p"; echo "$$p"; else :; fi; \ done | \ sed -e 'p;s,.*/,,;n;h' -e 's|.*|.|' \ -e 'p;x;s,.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/' | \ sed 'N;N;N;s,\n, ,g' | \ $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1 } \ { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \ if ($$2 == $$4) files[d] = files[d] " " $$1; \ else { print "f", $$3 "/" $$4, $$1; } } \ END { for (d in files) print "f", d, files[d] }' | \ while read type dir files; do \ if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \ test -z "$$files" || { \ echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files '$(DESTDIR)$(bindir)$$dir'"; \ $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \ } \ ; done uninstall-binPROGRAMS: @$(NORMAL_UNINSTALL) @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \ files=`for p in $$list; do echo "$$p"; done | \ sed -e 'h;s,^.*/,,;s/$(EXEEXT)$$//;$(transform)' \ -e 's/$$/$(EXEEXT)/' `; \ test -n "$$list" || exit 0; \ echo " ( cd '$(DESTDIR)$(bindir)' && rm -f" $$files ")"; \ cd "$(DESTDIR)$(bindir)" && rm -f $$files clean-binPROGRAMS: @list='$(bin_PROGRAMS)'; test -n "$$list" || exit 0; \ echo " rm -f" $$list; \ rm -f $$list || exit $$?; \ test -n "$(EXEEXT)" || exit 0; \ list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \ echo " rm -f" $$list; \ rm -f $$list clean-noinstPROGRAMS: @list='$(noinst_PROGRAMS)'; test -n "$$list" || exit 0; \ echo " rm -f" $$list; \ rm -f $$list || exit $$?; \ test -n "$(EXEEXT)" || exit 0; \ list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \ echo " rm -f" $$list; \ rm -f $$list test/$(am__dirstamp): @$(MKDIR_P) test @: > test/$(am__dirstamp) test/midgard2-query$(EXEEXT): $(test_midgard2_query_OBJECTS) $(test_midgard2_query_DEPENDENCIES) $(EXTRA_test_midgard2_query_DEPENDENCIES) test/$(am__dirstamp) @rm -f test/midgard2-query$(EXEEXT) $(LINK) $(test_midgard2_query_OBJECTS) $(test_midgard2_query_LDADD) $(LIBS) test/midgard2-schema$(EXEEXT): $(test_midgard2_schema_OBJECTS) $(test_midgard2_schema_DEPENDENCIES) $(EXTRA_test_midgard2_schema_DEPENDENCIES) test/$(am__dirstamp) @rm -f test/midgard2-schema$(EXEEXT) $(LINK) $(test_midgard2_schema_OBJECTS) $(test_midgard2_schema_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/midgard-query.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/midgard-schema.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-group_constraint.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-guid.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-mgdschema.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_base_abstract.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_base_interface.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_base_mixin.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_blob.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_collector.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_config.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_connection.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_core_config.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_core_connection.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_core_metadata.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_core_object.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_core_object_class.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_core_query.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_core_query_builder.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_core_schema.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_core_views.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_core_workspace.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_core_xml.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_dbobject.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_dbus.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_error.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_executable.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_key_config.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_key_config_context.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_key_config_file.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_key_config_file_context.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_md5.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_metadata.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_object.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_object_attachment.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_object_parameter.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_column.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_constraint.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_constraint_group.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_constraint_simple.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_executor.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_holder.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_property.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_result.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_row.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_select.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_selector.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_storage.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_query_value.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_quota.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_reflection_property.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_reflector_object.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_reflector_property.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_replicator.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_repligard.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_schema_object_factory.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_schema_object_tree.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_sql_query_column.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_sql_query_constraint.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_sql_query_result.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_sql_query_row.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_sql_query_select_data.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_storage.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_timestamp.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_transaction.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_type.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_user.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_validable.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_view.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_workspace.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_workspace_context.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_workspace_manager.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-midgard_workspace_storage.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-query_builder.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-query_constraint.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-query_group_constraint.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-query_order.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/src_libmidgard2_la-uuid.Plo@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< src_libmidgard2_la-midgard.lo: src/midgard.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard.Tpo -c -o src_libmidgard2_la-midgard.lo `test -f 'src/midgard.c' || echo '$(srcdir)/'`src/midgard.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard.Tpo $(DEPDIR)/src_libmidgard2_la-midgard.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard.c' object='src_libmidgard2_la-midgard.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard.lo `test -f 'src/midgard.c' || echo '$(srcdir)/'`src/midgard.c src_libmidgard2_la-midgard_base_abstract.lo: src/midgard_base_abstract.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_base_abstract.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_base_abstract.Tpo -c -o src_libmidgard2_la-midgard_base_abstract.lo `test -f 'src/midgard_base_abstract.c' || echo '$(srcdir)/'`src/midgard_base_abstract.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_base_abstract.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_base_abstract.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_base_abstract.c' object='src_libmidgard2_la-midgard_base_abstract.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_base_abstract.lo `test -f 'src/midgard_base_abstract.c' || echo '$(srcdir)/'`src/midgard_base_abstract.c src_libmidgard2_la-midgard_base_interface.lo: src/midgard_base_interface.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_base_interface.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_base_interface.Tpo -c -o src_libmidgard2_la-midgard_base_interface.lo `test -f 'src/midgard_base_interface.c' || echo '$(srcdir)/'`src/midgard_base_interface.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_base_interface.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_base_interface.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_base_interface.c' object='src_libmidgard2_la-midgard_base_interface.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_base_interface.lo `test -f 'src/midgard_base_interface.c' || echo '$(srcdir)/'`src/midgard_base_interface.c src_libmidgard2_la-midgard_base_mixin.lo: src/midgard_base_mixin.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_base_mixin.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_base_mixin.Tpo -c -o src_libmidgard2_la-midgard_base_mixin.lo `test -f 'src/midgard_base_mixin.c' || echo '$(srcdir)/'`src/midgard_base_mixin.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_base_mixin.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_base_mixin.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_base_mixin.c' object='src_libmidgard2_la-midgard_base_mixin.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_base_mixin.lo `test -f 'src/midgard_base_mixin.c' || echo '$(srcdir)/'`src/midgard_base_mixin.c src_libmidgard2_la-midgard_key_config.lo: src/midgard_key_config.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_key_config.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_key_config.Tpo -c -o src_libmidgard2_la-midgard_key_config.lo `test -f 'src/midgard_key_config.c' || echo '$(srcdir)/'`src/midgard_key_config.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_key_config.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_key_config.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_key_config.c' object='src_libmidgard2_la-midgard_key_config.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_key_config.lo `test -f 'src/midgard_key_config.c' || echo '$(srcdir)/'`src/midgard_key_config.c src_libmidgard2_la-midgard_key_config_context.lo: src/midgard_key_config_context.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_key_config_context.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_key_config_context.Tpo -c -o src_libmidgard2_la-midgard_key_config_context.lo `test -f 'src/midgard_key_config_context.c' || echo '$(srcdir)/'`src/midgard_key_config_context.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_key_config_context.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_key_config_context.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_key_config_context.c' object='src_libmidgard2_la-midgard_key_config_context.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_key_config_context.lo `test -f 'src/midgard_key_config_context.c' || echo '$(srcdir)/'`src/midgard_key_config_context.c src_libmidgard2_la-midgard_key_config_file.lo: src/midgard_key_config_file.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_key_config_file.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_key_config_file.Tpo -c -o src_libmidgard2_la-midgard_key_config_file.lo `test -f 'src/midgard_key_config_file.c' || echo '$(srcdir)/'`src/midgard_key_config_file.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_key_config_file.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_key_config_file.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_key_config_file.c' object='src_libmidgard2_la-midgard_key_config_file.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_key_config_file.lo `test -f 'src/midgard_key_config_file.c' || echo '$(srcdir)/'`src/midgard_key_config_file.c src_libmidgard2_la-midgard_key_config_file_context.lo: src/midgard_key_config_file_context.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_key_config_file_context.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_key_config_file_context.Tpo -c -o src_libmidgard2_la-midgard_key_config_file_context.lo `test -f 'src/midgard_key_config_file_context.c' || echo '$(srcdir)/'`src/midgard_key_config_file_context.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_key_config_file_context.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_key_config_file_context.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_key_config_file_context.c' object='src_libmidgard2_la-midgard_key_config_file_context.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_key_config_file_context.lo `test -f 'src/midgard_key_config_file_context.c' || echo '$(srcdir)/'`src/midgard_key_config_file_context.c src_libmidgard2_la-midgard_object.lo: src/midgard_object.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_object.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_object.Tpo -c -o src_libmidgard2_la-midgard_object.lo `test -f 'src/midgard_object.c' || echo '$(srcdir)/'`src/midgard_object.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_object.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_object.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_object.c' object='src_libmidgard2_la-midgard_object.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_object.lo `test -f 'src/midgard_object.c' || echo '$(srcdir)/'`src/midgard_object.c src_libmidgard2_la-uuid.lo: src/uuid.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-uuid.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-uuid.Tpo -c -o src_libmidgard2_la-uuid.lo `test -f 'src/uuid.c' || echo '$(srcdir)/'`src/uuid.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-uuid.Tpo $(DEPDIR)/src_libmidgard2_la-uuid.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/uuid.c' object='src_libmidgard2_la-uuid.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-uuid.lo `test -f 'src/uuid.c' || echo '$(srcdir)/'`src/uuid.c src_libmidgard2_la-guid.lo: src/guid.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-guid.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-guid.Tpo -c -o src_libmidgard2_la-guid.lo `test -f 'src/guid.c' || echo '$(srcdir)/'`src/guid.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-guid.Tpo $(DEPDIR)/src_libmidgard2_la-guid.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/guid.c' object='src_libmidgard2_la-guid.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-guid.lo `test -f 'src/guid.c' || echo '$(srcdir)/'`src/guid.c src_libmidgard2_la-midgard_type.lo: src/midgard_type.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_type.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_type.Tpo -c -o src_libmidgard2_la-midgard_type.lo `test -f 'src/midgard_type.c' || echo '$(srcdir)/'`src/midgard_type.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_type.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_type.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_type.c' object='src_libmidgard2_la-midgard_type.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_type.lo `test -f 'src/midgard_type.c' || echo '$(srcdir)/'`src/midgard_type.c src_libmidgard2_la-midgard_config.lo: src/midgard_config.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_config.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_config.Tpo -c -o src_libmidgard2_la-midgard_config.lo `test -f 'src/midgard_config.c' || echo '$(srcdir)/'`src/midgard_config.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_config.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_config.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_config.c' object='src_libmidgard2_la-midgard_config.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_config.lo `test -f 'src/midgard_config.c' || echo '$(srcdir)/'`src/midgard_config.c src_libmidgard2_la-query_builder.lo: src/query_builder.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-query_builder.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-query_builder.Tpo -c -o src_libmidgard2_la-query_builder.lo `test -f 'src/query_builder.c' || echo '$(srcdir)/'`src/query_builder.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-query_builder.Tpo $(DEPDIR)/src_libmidgard2_la-query_builder.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/query_builder.c' object='src_libmidgard2_la-query_builder.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-query_builder.lo `test -f 'src/query_builder.c' || echo '$(srcdir)/'`src/query_builder.c src_libmidgard2_la-midgard_metadata.lo: src/midgard_metadata.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_metadata.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_metadata.Tpo -c -o src_libmidgard2_la-midgard_metadata.lo `test -f 'src/midgard_metadata.c' || echo '$(srcdir)/'`src/midgard_metadata.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_metadata.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_metadata.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_metadata.c' object='src_libmidgard2_la-midgard_metadata.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_metadata.lo `test -f 'src/midgard_metadata.c' || echo '$(srcdir)/'`src/midgard_metadata.c src_libmidgard2_la-midgard_timestamp.lo: src/midgard_timestamp.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_timestamp.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_timestamp.Tpo -c -o src_libmidgard2_la-midgard_timestamp.lo `test -f 'src/midgard_timestamp.c' || echo '$(srcdir)/'`src/midgard_timestamp.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_timestamp.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_timestamp.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_timestamp.c' object='src_libmidgard2_la-midgard_timestamp.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_timestamp.lo `test -f 'src/midgard_timestamp.c' || echo '$(srcdir)/'`src/midgard_timestamp.c src_libmidgard2_la-midgard_reflection_property.lo: src/midgard_reflection_property.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_reflection_property.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_reflection_property.Tpo -c -o src_libmidgard2_la-midgard_reflection_property.lo `test -f 'src/midgard_reflection_property.c' || echo '$(srcdir)/'`src/midgard_reflection_property.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_reflection_property.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_reflection_property.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_reflection_property.c' object='src_libmidgard2_la-midgard_reflection_property.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_reflection_property.lo `test -f 'src/midgard_reflection_property.c' || echo '$(srcdir)/'`src/midgard_reflection_property.c src_libmidgard2_la-midgard_connection.lo: src/midgard_connection.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_connection.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_connection.Tpo -c -o src_libmidgard2_la-midgard_connection.lo `test -f 'src/midgard_connection.c' || echo '$(srcdir)/'`src/midgard_connection.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_connection.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_connection.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_connection.c' object='src_libmidgard2_la-midgard_connection.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_connection.lo `test -f 'src/midgard_connection.c' || echo '$(srcdir)/'`src/midgard_connection.c src_libmidgard2_la-midgard_error.lo: src/midgard_error.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_error.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_error.Tpo -c -o src_libmidgard2_la-midgard_error.lo `test -f 'src/midgard_error.c' || echo '$(srcdir)/'`src/midgard_error.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_error.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_error.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_error.c' object='src_libmidgard2_la-midgard_error.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_error.lo `test -f 'src/midgard_error.c' || echo '$(srcdir)/'`src/midgard_error.c src_libmidgard2_la-midgard_collector.lo: src/midgard_collector.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_collector.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_collector.Tpo -c -o src_libmidgard2_la-midgard_collector.lo `test -f 'src/midgard_collector.c' || echo '$(srcdir)/'`src/midgard_collector.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_collector.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_collector.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_collector.c' object='src_libmidgard2_la-midgard_collector.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_collector.lo `test -f 'src/midgard_collector.c' || echo '$(srcdir)/'`src/midgard_collector.c src_libmidgard2_la-midgard_dbus.lo: src/midgard_dbus.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_dbus.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_dbus.Tpo -c -o src_libmidgard2_la-midgard_dbus.lo `test -f 'src/midgard_dbus.c' || echo '$(srcdir)/'`src/midgard_dbus.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_dbus.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_dbus.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_dbus.c' object='src_libmidgard2_la-midgard_dbus.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_dbus.lo `test -f 'src/midgard_dbus.c' || echo '$(srcdir)/'`src/midgard_dbus.c src_libmidgard2_la-midgard_executable.lo: src/midgard_executable.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_executable.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_executable.Tpo -c -o src_libmidgard2_la-midgard_executable.lo `test -f 'src/midgard_executable.c' || echo '$(srcdir)/'`src/midgard_executable.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_executable.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_executable.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_executable.c' object='src_libmidgard2_la-midgard_executable.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_executable.lo `test -f 'src/midgard_executable.c' || echo '$(srcdir)/'`src/midgard_executable.c src_libmidgard2_la-midgard_object_parameter.lo: src/midgard_object_parameter.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_object_parameter.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_object_parameter.Tpo -c -o src_libmidgard2_la-midgard_object_parameter.lo `test -f 'src/midgard_object_parameter.c' || echo '$(srcdir)/'`src/midgard_object_parameter.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_object_parameter.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_object_parameter.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_object_parameter.c' object='src_libmidgard2_la-midgard_object_parameter.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_object_parameter.lo `test -f 'src/midgard_object_parameter.c' || echo '$(srcdir)/'`src/midgard_object_parameter.c src_libmidgard2_la-midgard_object_attachment.lo: src/midgard_object_attachment.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_object_attachment.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_object_attachment.Tpo -c -o src_libmidgard2_la-midgard_object_attachment.lo `test -f 'src/midgard_object_attachment.c' || echo '$(srcdir)/'`src/midgard_object_attachment.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_object_attachment.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_object_attachment.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_object_attachment.c' object='src_libmidgard2_la-midgard_object_attachment.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_object_attachment.lo `test -f 'src/midgard_object_attachment.c' || echo '$(srcdir)/'`src/midgard_object_attachment.c src_libmidgard2_la-midgard_query_constraint.lo: src/midgard_query_constraint.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_constraint.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_constraint.Tpo -c -o src_libmidgard2_la-midgard_query_constraint.lo `test -f 'src/midgard_query_constraint.c' || echo '$(srcdir)/'`src/midgard_query_constraint.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_constraint.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_constraint.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_constraint.c' object='src_libmidgard2_la-midgard_query_constraint.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_constraint.lo `test -f 'src/midgard_query_constraint.c' || echo '$(srcdir)/'`src/midgard_query_constraint.c src_libmidgard2_la-midgard_query_executor.lo: src/midgard_query_executor.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_executor.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_executor.Tpo -c -o src_libmidgard2_la-midgard_query_executor.lo `test -f 'src/midgard_query_executor.c' || echo '$(srcdir)/'`src/midgard_query_executor.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_executor.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_executor.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_executor.c' object='src_libmidgard2_la-midgard_query_executor.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_executor.lo `test -f 'src/midgard_query_executor.c' || echo '$(srcdir)/'`src/midgard_query_executor.c src_libmidgard2_la-midgard_query_constraint_group.lo: src/midgard_query_constraint_group.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_constraint_group.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_constraint_group.Tpo -c -o src_libmidgard2_la-midgard_query_constraint_group.lo `test -f 'src/midgard_query_constraint_group.c' || echo '$(srcdir)/'`src/midgard_query_constraint_group.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_constraint_group.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_constraint_group.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_constraint_group.c' object='src_libmidgard2_la-midgard_query_constraint_group.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_constraint_group.lo `test -f 'src/midgard_query_constraint_group.c' || echo '$(srcdir)/'`src/midgard_query_constraint_group.c src_libmidgard2_la-midgard_query_holder.lo: src/midgard_query_holder.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_holder.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_holder.Tpo -c -o src_libmidgard2_la-midgard_query_holder.lo `test -f 'src/midgard_query_holder.c' || echo '$(srcdir)/'`src/midgard_query_holder.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_holder.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_holder.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_holder.c' object='src_libmidgard2_la-midgard_query_holder.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_holder.lo `test -f 'src/midgard_query_holder.c' || echo '$(srcdir)/'`src/midgard_query_holder.c src_libmidgard2_la-midgard_query_property.lo: src/midgard_query_property.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_property.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_property.Tpo -c -o src_libmidgard2_la-midgard_query_property.lo `test -f 'src/midgard_query_property.c' || echo '$(srcdir)/'`src/midgard_query_property.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_property.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_property.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_property.c' object='src_libmidgard2_la-midgard_query_property.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_property.lo `test -f 'src/midgard_query_property.c' || echo '$(srcdir)/'`src/midgard_query_property.c src_libmidgard2_la-midgard_query_select.lo: src/midgard_query_select.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_select.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_select.Tpo -c -o src_libmidgard2_la-midgard_query_select.lo `test -f 'src/midgard_query_select.c' || echo '$(srcdir)/'`src/midgard_query_select.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_select.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_select.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_select.c' object='src_libmidgard2_la-midgard_query_select.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_select.lo `test -f 'src/midgard_query_select.c' || echo '$(srcdir)/'`src/midgard_query_select.c src_libmidgard2_la-midgard_query_constraint_simple.lo: src/midgard_query_constraint_simple.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_constraint_simple.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_constraint_simple.Tpo -c -o src_libmidgard2_la-midgard_query_constraint_simple.lo `test -f 'src/midgard_query_constraint_simple.c' || echo '$(srcdir)/'`src/midgard_query_constraint_simple.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_constraint_simple.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_constraint_simple.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_constraint_simple.c' object='src_libmidgard2_la-midgard_query_constraint_simple.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_constraint_simple.lo `test -f 'src/midgard_query_constraint_simple.c' || echo '$(srcdir)/'`src/midgard_query_constraint_simple.c src_libmidgard2_la-midgard_query_storage.lo: src/midgard_query_storage.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_storage.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_storage.Tpo -c -o src_libmidgard2_la-midgard_query_storage.lo `test -f 'src/midgard_query_storage.c' || echo '$(srcdir)/'`src/midgard_query_storage.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_storage.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_storage.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_storage.c' object='src_libmidgard2_la-midgard_query_storage.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_storage.lo `test -f 'src/midgard_query_storage.c' || echo '$(srcdir)/'`src/midgard_query_storage.c src_libmidgard2_la-midgard_query_value.lo: src/midgard_query_value.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_value.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_value.Tpo -c -o src_libmidgard2_la-midgard_query_value.lo `test -f 'src/midgard_query_value.c' || echo '$(srcdir)/'`src/midgard_query_value.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_value.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_value.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_value.c' object='src_libmidgard2_la-midgard_query_value.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_value.lo `test -f 'src/midgard_query_value.c' || echo '$(srcdir)/'`src/midgard_query_value.c src_libmidgard2_la-midgard_query_row.lo: src/midgard_query_row.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_row.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_row.Tpo -c -o src_libmidgard2_la-midgard_query_row.lo `test -f 'src/midgard_query_row.c' || echo '$(srcdir)/'`src/midgard_query_row.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_row.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_row.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_row.c' object='src_libmidgard2_la-midgard_query_row.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_row.lo `test -f 'src/midgard_query_row.c' || echo '$(srcdir)/'`src/midgard_query_row.c src_libmidgard2_la-midgard_query_column.lo: src/midgard_query_column.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_column.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_column.Tpo -c -o src_libmidgard2_la-midgard_query_column.lo `test -f 'src/midgard_query_column.c' || echo '$(srcdir)/'`src/midgard_query_column.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_column.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_column.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_column.c' object='src_libmidgard2_la-midgard_query_column.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_column.lo `test -f 'src/midgard_query_column.c' || echo '$(srcdir)/'`src/midgard_query_column.c src_libmidgard2_la-midgard_query_selector.lo: src/midgard_query_selector.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_selector.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_selector.Tpo -c -o src_libmidgard2_la-midgard_query_selector.lo `test -f 'src/midgard_query_selector.c' || echo '$(srcdir)/'`src/midgard_query_selector.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_selector.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_selector.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_selector.c' object='src_libmidgard2_la-midgard_query_selector.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_selector.lo `test -f 'src/midgard_query_selector.c' || echo '$(srcdir)/'`src/midgard_query_selector.c src_libmidgard2_la-midgard_query_result.lo: src/midgard_query_result.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_query_result.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_query_result.Tpo -c -o src_libmidgard2_la-midgard_query_result.lo `test -f 'src/midgard_query_result.c' || echo '$(srcdir)/'`src/midgard_query_result.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_query_result.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_query_result.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_query_result.c' object='src_libmidgard2_la-midgard_query_result.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_query_result.lo `test -f 'src/midgard_query_result.c' || echo '$(srcdir)/'`src/midgard_query_result.c src_libmidgard2_la-midgard_reflector_object.lo: src/midgard_reflector_object.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_reflector_object.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_reflector_object.Tpo -c -o src_libmidgard2_la-midgard_reflector_object.lo `test -f 'src/midgard_reflector_object.c' || echo '$(srcdir)/'`src/midgard_reflector_object.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_reflector_object.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_reflector_object.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_reflector_object.c' object='src_libmidgard2_la-midgard_reflector_object.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_reflector_object.lo `test -f 'src/midgard_reflector_object.c' || echo '$(srcdir)/'`src/midgard_reflector_object.c src_libmidgard2_la-midgard_reflector_property.lo: src/midgard_reflector_property.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_reflector_property.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_reflector_property.Tpo -c -o src_libmidgard2_la-midgard_reflector_property.lo `test -f 'src/midgard_reflector_property.c' || echo '$(srcdir)/'`src/midgard_reflector_property.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_reflector_property.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_reflector_property.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_reflector_property.c' object='src_libmidgard2_la-midgard_reflector_property.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_reflector_property.lo `test -f 'src/midgard_reflector_property.c' || echo '$(srcdir)/'`src/midgard_reflector_property.c src_libmidgard2_la-midgard_replicator.lo: src/midgard_replicator.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_replicator.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_replicator.Tpo -c -o src_libmidgard2_la-midgard_replicator.lo `test -f 'src/midgard_replicator.c' || echo '$(srcdir)/'`src/midgard_replicator.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_replicator.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_replicator.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_replicator.c' object='src_libmidgard2_la-midgard_replicator.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_replicator.lo `test -f 'src/midgard_replicator.c' || echo '$(srcdir)/'`src/midgard_replicator.c src_libmidgard2_la-midgard_repligard.lo: src/midgard_repligard.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_repligard.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_repligard.Tpo -c -o src_libmidgard2_la-midgard_repligard.lo `test -f 'src/midgard_repligard.c' || echo '$(srcdir)/'`src/midgard_repligard.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_repligard.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_repligard.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_repligard.c' object='src_libmidgard2_la-midgard_repligard.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_repligard.lo `test -f 'src/midgard_repligard.c' || echo '$(srcdir)/'`src/midgard_repligard.c src_libmidgard2_la-midgard_user.lo: src/midgard_user.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_user.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_user.Tpo -c -o src_libmidgard2_la-midgard_user.lo `test -f 'src/midgard_user.c' || echo '$(srcdir)/'`src/midgard_user.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_user.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_user.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_user.c' object='src_libmidgard2_la-midgard_user.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_user.lo `test -f 'src/midgard_user.c' || echo '$(srcdir)/'`src/midgard_user.c src_libmidgard2_la-midgard_schema_object_factory.lo: src/midgard_schema_object_factory.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_schema_object_factory.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_schema_object_factory.Tpo -c -o src_libmidgard2_la-midgard_schema_object_factory.lo `test -f 'src/midgard_schema_object_factory.c' || echo '$(srcdir)/'`src/midgard_schema_object_factory.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_schema_object_factory.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_schema_object_factory.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_schema_object_factory.c' object='src_libmidgard2_la-midgard_schema_object_factory.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_schema_object_factory.lo `test -f 'src/midgard_schema_object_factory.c' || echo '$(srcdir)/'`src/midgard_schema_object_factory.c src_libmidgard2_la-midgard_schema_object_tree.lo: src/midgard_schema_object_tree.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_schema_object_tree.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_schema_object_tree.Tpo -c -o src_libmidgard2_la-midgard_schema_object_tree.lo `test -f 'src/midgard_schema_object_tree.c' || echo '$(srcdir)/'`src/midgard_schema_object_tree.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_schema_object_tree.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_schema_object_tree.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_schema_object_tree.c' object='src_libmidgard2_la-midgard_schema_object_tree.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_schema_object_tree.lo `test -f 'src/midgard_schema_object_tree.c' || echo '$(srcdir)/'`src/midgard_schema_object_tree.c src_libmidgard2_la-midgard_storage.lo: src/midgard_storage.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_storage.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_storage.Tpo -c -o src_libmidgard2_la-midgard_storage.lo `test -f 'src/midgard_storage.c' || echo '$(srcdir)/'`src/midgard_storage.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_storage.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_storage.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_storage.c' object='src_libmidgard2_la-midgard_storage.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_storage.lo `test -f 'src/midgard_storage.c' || echo '$(srcdir)/'`src/midgard_storage.c src_libmidgard2_la-midgard_dbobject.lo: src/midgard_dbobject.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_dbobject.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_dbobject.Tpo -c -o src_libmidgard2_la-midgard_dbobject.lo `test -f 'src/midgard_dbobject.c' || echo '$(srcdir)/'`src/midgard_dbobject.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_dbobject.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_dbobject.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_dbobject.c' object='src_libmidgard2_la-midgard_dbobject.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_dbobject.lo `test -f 'src/midgard_dbobject.c' || echo '$(srcdir)/'`src/midgard_dbobject.c src_libmidgard2_la-midgard_blob.lo: src/midgard_blob.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_blob.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_blob.Tpo -c -o src_libmidgard2_la-midgard_blob.lo `test -f 'src/midgard_blob.c' || echo '$(srcdir)/'`src/midgard_blob.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_blob.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_blob.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_blob.c' object='src_libmidgard2_la-midgard_blob.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_blob.lo `test -f 'src/midgard_blob.c' || echo '$(srcdir)/'`src/midgard_blob.c src_libmidgard2_la-midgard_transaction.lo: src/midgard_transaction.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_transaction.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_transaction.Tpo -c -o src_libmidgard2_la-midgard_transaction.lo `test -f 'src/midgard_transaction.c' || echo '$(srcdir)/'`src/midgard_transaction.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_transaction.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_transaction.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_transaction.c' object='src_libmidgard2_la-midgard_transaction.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_transaction.lo `test -f 'src/midgard_transaction.c' || echo '$(srcdir)/'`src/midgard_transaction.c src_libmidgard2_la-midgard_md5.lo: src/midgard_md5.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_md5.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_md5.Tpo -c -o src_libmidgard2_la-midgard_md5.lo `test -f 'src/midgard_md5.c' || echo '$(srcdir)/'`src/midgard_md5.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_md5.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_md5.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_md5.c' object='src_libmidgard2_la-midgard_md5.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_md5.lo `test -f 'src/midgard_md5.c' || echo '$(srcdir)/'`src/midgard_md5.c src_libmidgard2_la-midgard_validable.lo: src/midgard_validable.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_validable.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_validable.Tpo -c -o src_libmidgard2_la-midgard_validable.lo `test -f 'src/midgard_validable.c' || echo '$(srcdir)/'`src/midgard_validable.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_validable.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_validable.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_validable.c' object='src_libmidgard2_la-midgard_validable.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_validable.lo `test -f 'src/midgard_validable.c' || echo '$(srcdir)/'`src/midgard_validable.c src_libmidgard2_la-midgard_view.lo: src/midgard_view.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_view.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_view.Tpo -c -o src_libmidgard2_la-midgard_view.lo `test -f 'src/midgard_view.c' || echo '$(srcdir)/'`src/midgard_view.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_view.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_view.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_view.c' object='src_libmidgard2_la-midgard_view.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_view.lo `test -f 'src/midgard_view.c' || echo '$(srcdir)/'`src/midgard_view.c src_libmidgard2_la-midgard_workspace.lo: src/midgard_workspace.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_workspace.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_workspace.Tpo -c -o src_libmidgard2_la-midgard_workspace.lo `test -f 'src/midgard_workspace.c' || echo '$(srcdir)/'`src/midgard_workspace.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_workspace.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_workspace.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_workspace.c' object='src_libmidgard2_la-midgard_workspace.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_workspace.lo `test -f 'src/midgard_workspace.c' || echo '$(srcdir)/'`src/midgard_workspace.c src_libmidgard2_la-midgard_workspace_context.lo: src/midgard_workspace_context.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_workspace_context.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_workspace_context.Tpo -c -o src_libmidgard2_la-midgard_workspace_context.lo `test -f 'src/midgard_workspace_context.c' || echo '$(srcdir)/'`src/midgard_workspace_context.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_workspace_context.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_workspace_context.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_workspace_context.c' object='src_libmidgard2_la-midgard_workspace_context.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_workspace_context.lo `test -f 'src/midgard_workspace_context.c' || echo '$(srcdir)/'`src/midgard_workspace_context.c src_libmidgard2_la-midgard_workspace_manager.lo: src/midgard_workspace_manager.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_workspace_manager.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_workspace_manager.Tpo -c -o src_libmidgard2_la-midgard_workspace_manager.lo `test -f 'src/midgard_workspace_manager.c' || echo '$(srcdir)/'`src/midgard_workspace_manager.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_workspace_manager.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_workspace_manager.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_workspace_manager.c' object='src_libmidgard2_la-midgard_workspace_manager.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_workspace_manager.lo `test -f 'src/midgard_workspace_manager.c' || echo '$(srcdir)/'`src/midgard_workspace_manager.c src_libmidgard2_la-midgard_workspace_storage.lo: src/midgard_workspace_storage.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_workspace_storage.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_workspace_storage.Tpo -c -o src_libmidgard2_la-midgard_workspace_storage.lo `test -f 'src/midgard_workspace_storage.c' || echo '$(srcdir)/'`src/midgard_workspace_storage.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_workspace_storage.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_workspace_storage.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_workspace_storage.c' object='src_libmidgard2_la-midgard_workspace_storage.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_workspace_storage.lo `test -f 'src/midgard_workspace_storage.c' || echo '$(srcdir)/'`src/midgard_workspace_storage.c src_libmidgard2_la-midgard_sql_query_column.lo: src/sql/midgard_sql_query_column.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_sql_query_column.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_column.Tpo -c -o src_libmidgard2_la-midgard_sql_query_column.lo `test -f 'src/sql/midgard_sql_query_column.c' || echo '$(srcdir)/'`src/sql/midgard_sql_query_column.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_column.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_column.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/sql/midgard_sql_query_column.c' object='src_libmidgard2_la-midgard_sql_query_column.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_sql_query_column.lo `test -f 'src/sql/midgard_sql_query_column.c' || echo '$(srcdir)/'`src/sql/midgard_sql_query_column.c src_libmidgard2_la-midgard_sql_query_row.lo: src/sql/midgard_sql_query_row.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_sql_query_row.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_row.Tpo -c -o src_libmidgard2_la-midgard_sql_query_row.lo `test -f 'src/sql/midgard_sql_query_row.c' || echo '$(srcdir)/'`src/sql/midgard_sql_query_row.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_row.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_row.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/sql/midgard_sql_query_row.c' object='src_libmidgard2_la-midgard_sql_query_row.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_sql_query_row.lo `test -f 'src/sql/midgard_sql_query_row.c' || echo '$(srcdir)/'`src/sql/midgard_sql_query_row.c src_libmidgard2_la-midgard_sql_query_result.lo: src/sql/midgard_sql_query_result.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_sql_query_result.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_result.Tpo -c -o src_libmidgard2_la-midgard_sql_query_result.lo `test -f 'src/sql/midgard_sql_query_result.c' || echo '$(srcdir)/'`src/sql/midgard_sql_query_result.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_result.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_result.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/sql/midgard_sql_query_result.c' object='src_libmidgard2_la-midgard_sql_query_result.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_sql_query_result.lo `test -f 'src/sql/midgard_sql_query_result.c' || echo '$(srcdir)/'`src/sql/midgard_sql_query_result.c src_libmidgard2_la-midgard_sql_query_select_data.lo: src/sql/midgard_sql_query_select_data.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_sql_query_select_data.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_select_data.Tpo -c -o src_libmidgard2_la-midgard_sql_query_select_data.lo `test -f 'src/sql/midgard_sql_query_select_data.c' || echo '$(srcdir)/'`src/sql/midgard_sql_query_select_data.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_select_data.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_select_data.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/sql/midgard_sql_query_select_data.c' object='src_libmidgard2_la-midgard_sql_query_select_data.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_sql_query_select_data.lo `test -f 'src/sql/midgard_sql_query_select_data.c' || echo '$(srcdir)/'`src/sql/midgard_sql_query_select_data.c src_libmidgard2_la-midgard_sql_query_constraint.lo: src/sql/midgard_sql_query_constraint.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_sql_query_constraint.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_constraint.Tpo -c -o src_libmidgard2_la-midgard_sql_query_constraint.lo `test -f 'src/sql/midgard_sql_query_constraint.c' || echo '$(srcdir)/'`src/sql/midgard_sql_query_constraint.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_constraint.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_sql_query_constraint.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/sql/midgard_sql_query_constraint.c' object='src_libmidgard2_la-midgard_sql_query_constraint.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_sql_query_constraint.lo `test -f 'src/sql/midgard_sql_query_constraint.c' || echo '$(srcdir)/'`src/sql/midgard_sql_query_constraint.c src_libmidgard2_la-midgard_core_connection.lo: src/midgard_core_connection.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_core_connection.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_core_connection.Tpo -c -o src_libmidgard2_la-midgard_core_connection.lo `test -f 'src/midgard_core_connection.c' || echo '$(srcdir)/'`src/midgard_core_connection.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_core_connection.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_core_connection.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_core_connection.c' object='src_libmidgard2_la-midgard_core_connection.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_core_connection.lo `test -f 'src/midgard_core_connection.c' || echo '$(srcdir)/'`src/midgard_core_connection.c src_libmidgard2_la-midgard_core_query.lo: src/midgard_core_query.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_core_query.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_core_query.Tpo -c -o src_libmidgard2_la-midgard_core_query.lo `test -f 'src/midgard_core_query.c' || echo '$(srcdir)/'`src/midgard_core_query.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_core_query.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_core_query.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_core_query.c' object='src_libmidgard2_la-midgard_core_query.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_core_query.lo `test -f 'src/midgard_core_query.c' || echo '$(srcdir)/'`src/midgard_core_query.c src_libmidgard2_la-mgdschema.lo: src/mgdschema.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-mgdschema.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-mgdschema.Tpo -c -o src_libmidgard2_la-mgdschema.lo `test -f 'src/mgdschema.c' || echo '$(srcdir)/'`src/mgdschema.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-mgdschema.Tpo $(DEPDIR)/src_libmidgard2_la-mgdschema.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/mgdschema.c' object='src_libmidgard2_la-mgdschema.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-mgdschema.lo `test -f 'src/mgdschema.c' || echo '$(srcdir)/'`src/mgdschema.c src_libmidgard2_la-midgard_quota.lo: src/midgard_quota.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_quota.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_quota.Tpo -c -o src_libmidgard2_la-midgard_quota.lo `test -f 'src/midgard_quota.c' || echo '$(srcdir)/'`src/midgard_quota.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_quota.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_quota.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_quota.c' object='src_libmidgard2_la-midgard_quota.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_quota.lo `test -f 'src/midgard_quota.c' || echo '$(srcdir)/'`src/midgard_quota.c src_libmidgard2_la-query_constraint.lo: src/query_constraint.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-query_constraint.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-query_constraint.Tpo -c -o src_libmidgard2_la-query_constraint.lo `test -f 'src/query_constraint.c' || echo '$(srcdir)/'`src/query_constraint.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-query_constraint.Tpo $(DEPDIR)/src_libmidgard2_la-query_constraint.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/query_constraint.c' object='src_libmidgard2_la-query_constraint.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-query_constraint.lo `test -f 'src/query_constraint.c' || echo '$(srcdir)/'`src/query_constraint.c src_libmidgard2_la-group_constraint.lo: src/group_constraint.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-group_constraint.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-group_constraint.Tpo -c -o src_libmidgard2_la-group_constraint.lo `test -f 'src/group_constraint.c' || echo '$(srcdir)/'`src/group_constraint.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-group_constraint.Tpo $(DEPDIR)/src_libmidgard2_la-group_constraint.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/group_constraint.c' object='src_libmidgard2_la-group_constraint.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-group_constraint.lo `test -f 'src/group_constraint.c' || echo '$(srcdir)/'`src/group_constraint.c src_libmidgard2_la-query_group_constraint.lo: src/query_group_constraint.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-query_group_constraint.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-query_group_constraint.Tpo -c -o src_libmidgard2_la-query_group_constraint.lo `test -f 'src/query_group_constraint.c' || echo '$(srcdir)/'`src/query_group_constraint.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-query_group_constraint.Tpo $(DEPDIR)/src_libmidgard2_la-query_group_constraint.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/query_group_constraint.c' object='src_libmidgard2_la-query_group_constraint.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-query_group_constraint.lo `test -f 'src/query_group_constraint.c' || echo '$(srcdir)/'`src/query_group_constraint.c src_libmidgard2_la-query_order.lo: src/query_order.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-query_order.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-query_order.Tpo -c -o src_libmidgard2_la-query_order.lo `test -f 'src/query_order.c' || echo '$(srcdir)/'`src/query_order.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-query_order.Tpo $(DEPDIR)/src_libmidgard2_la-query_order.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/query_order.c' object='src_libmidgard2_la-query_order.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-query_order.lo `test -f 'src/query_order.c' || echo '$(srcdir)/'`src/query_order.c src_libmidgard2_la-midgard_core_metadata.lo: src/midgard_core_metadata.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_core_metadata.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_core_metadata.Tpo -c -o src_libmidgard2_la-midgard_core_metadata.lo `test -f 'src/midgard_core_metadata.c' || echo '$(srcdir)/'`src/midgard_core_metadata.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_core_metadata.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_core_metadata.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_core_metadata.c' object='src_libmidgard2_la-midgard_core_metadata.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_core_metadata.lo `test -f 'src/midgard_core_metadata.c' || echo '$(srcdir)/'`src/midgard_core_metadata.c src_libmidgard2_la-midgard_core_object_class.lo: src/midgard_core_object_class.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_core_object_class.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_core_object_class.Tpo -c -o src_libmidgard2_la-midgard_core_object_class.lo `test -f 'src/midgard_core_object_class.c' || echo '$(srcdir)/'`src/midgard_core_object_class.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_core_object_class.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_core_object_class.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_core_object_class.c' object='src_libmidgard2_la-midgard_core_object_class.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_core_object_class.lo `test -f 'src/midgard_core_object_class.c' || echo '$(srcdir)/'`src/midgard_core_object_class.c src_libmidgard2_la-midgard_core_query_builder.lo: src/midgard_core_query_builder.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_core_query_builder.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_core_query_builder.Tpo -c -o src_libmidgard2_la-midgard_core_query_builder.lo `test -f 'src/midgard_core_query_builder.c' || echo '$(srcdir)/'`src/midgard_core_query_builder.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_core_query_builder.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_core_query_builder.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_core_query_builder.c' object='src_libmidgard2_la-midgard_core_query_builder.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_core_query_builder.lo `test -f 'src/midgard_core_query_builder.c' || echo '$(srcdir)/'`src/midgard_core_query_builder.c src_libmidgard2_la-midgard_core_object.lo: src/midgard_core_object.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_core_object.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_core_object.Tpo -c -o src_libmidgard2_la-midgard_core_object.lo `test -f 'src/midgard_core_object.c' || echo '$(srcdir)/'`src/midgard_core_object.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_core_object.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_core_object.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_core_object.c' object='src_libmidgard2_la-midgard_core_object.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_core_object.lo `test -f 'src/midgard_core_object.c' || echo '$(srcdir)/'`src/midgard_core_object.c src_libmidgard2_la-midgard_core_config.lo: src/midgard_core_config.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_core_config.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_core_config.Tpo -c -o src_libmidgard2_la-midgard_core_config.lo `test -f 'src/midgard_core_config.c' || echo '$(srcdir)/'`src/midgard_core_config.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_core_config.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_core_config.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_core_config.c' object='src_libmidgard2_la-midgard_core_config.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_core_config.lo `test -f 'src/midgard_core_config.c' || echo '$(srcdir)/'`src/midgard_core_config.c src_libmidgard2_la-midgard_core_schema.lo: src/midgard_core_schema.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_core_schema.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_core_schema.Tpo -c -o src_libmidgard2_la-midgard_core_schema.lo `test -f 'src/midgard_core_schema.c' || echo '$(srcdir)/'`src/midgard_core_schema.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_core_schema.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_core_schema.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_core_schema.c' object='src_libmidgard2_la-midgard_core_schema.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_core_schema.lo `test -f 'src/midgard_core_schema.c' || echo '$(srcdir)/'`src/midgard_core_schema.c src_libmidgard2_la-midgard_core_views.lo: src/midgard_core_views.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_core_views.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_core_views.Tpo -c -o src_libmidgard2_la-midgard_core_views.lo `test -f 'src/midgard_core_views.c' || echo '$(srcdir)/'`src/midgard_core_views.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_core_views.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_core_views.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_core_views.c' object='src_libmidgard2_la-midgard_core_views.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_core_views.lo `test -f 'src/midgard_core_views.c' || echo '$(srcdir)/'`src/midgard_core_views.c src_libmidgard2_la-midgard_core_xml.lo: src/midgard_core_xml.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_core_xml.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_core_xml.Tpo -c -o src_libmidgard2_la-midgard_core_xml.lo `test -f 'src/midgard_core_xml.c' || echo '$(srcdir)/'`src/midgard_core_xml.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_core_xml.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_core_xml.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_core_xml.c' object='src_libmidgard2_la-midgard_core_xml.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_core_xml.lo `test -f 'src/midgard_core_xml.c' || echo '$(srcdir)/'`src/midgard_core_xml.c src_libmidgard2_la-midgard_core_workspace.lo: src/midgard_core_workspace.c @am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src_libmidgard2_la-midgard_core_workspace.lo -MD -MP -MF $(DEPDIR)/src_libmidgard2_la-midgard_core_workspace.Tpo -c -o src_libmidgard2_la-midgard_core_workspace.lo `test -f 'src/midgard_core_workspace.c' || echo '$(srcdir)/'`src/midgard_core_workspace.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/src_libmidgard2_la-midgard_core_workspace.Tpo $(DEPDIR)/src_libmidgard2_la-midgard_core_workspace.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='src/midgard_core_workspace.c' object='src_libmidgard2_la-midgard_core_workspace.lo' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(src_libmidgard2_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src_libmidgard2_la-midgard_core_workspace.lo `test -f 'src/midgard_core_workspace.c' || echo '$(srcdir)/'`src/midgard_core_workspace.c midgard-query.o: test/midgard-query.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT midgard-query.o -MD -MP -MF $(DEPDIR)/midgard-query.Tpo -c -o midgard-query.o `test -f 'test/midgard-query.c' || echo '$(srcdir)/'`test/midgard-query.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/midgard-query.Tpo $(DEPDIR)/midgard-query.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='test/midgard-query.c' object='midgard-query.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o midgard-query.o `test -f 'test/midgard-query.c' || echo '$(srcdir)/'`test/midgard-query.c midgard-query.obj: test/midgard-query.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT midgard-query.obj -MD -MP -MF $(DEPDIR)/midgard-query.Tpo -c -o midgard-query.obj `if test -f 'test/midgard-query.c'; then $(CYGPATH_W) 'test/midgard-query.c'; else $(CYGPATH_W) '$(srcdir)/test/midgard-query.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/midgard-query.Tpo $(DEPDIR)/midgard-query.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='test/midgard-query.c' object='midgard-query.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o midgard-query.obj `if test -f 'test/midgard-query.c'; then $(CYGPATH_W) 'test/midgard-query.c'; else $(CYGPATH_W) '$(srcdir)/test/midgard-query.c'; fi` midgard-schema.o: test/midgard-schema.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT midgard-schema.o -MD -MP -MF $(DEPDIR)/midgard-schema.Tpo -c -o midgard-schema.o `test -f 'test/midgard-schema.c' || echo '$(srcdir)/'`test/midgard-schema.c @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/midgard-schema.Tpo $(DEPDIR)/midgard-schema.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='test/midgard-schema.c' object='midgard-schema.o' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o midgard-schema.o `test -f 'test/midgard-schema.c' || echo '$(srcdir)/'`test/midgard-schema.c midgard-schema.obj: test/midgard-schema.c @am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT midgard-schema.obj -MD -MP -MF $(DEPDIR)/midgard-schema.Tpo -c -o midgard-schema.obj `if test -f 'test/midgard-schema.c'; then $(CYGPATH_W) 'test/midgard-schema.c'; else $(CYGPATH_W) '$(srcdir)/test/midgard-schema.c'; fi` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/midgard-schema.Tpo $(DEPDIR)/midgard-schema.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='test/midgard-schema.c' object='midgard-schema.obj' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o midgard-schema.obj `if test -f 'test/midgard-schema.c'; then $(CYGPATH_W) 'test/midgard-schema.c'; else $(CYGPATH_W) '$(srcdir)/test/midgard-schema.c'; fi` mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs -rm -rf src/.libs src/_libs -rm -rf test/.libs test/_libs distclean-libtool: -rm -f libtool config.lt install-man1: $(man_MANS) @$(NORMAL_INSTALL) test -z "$(man1dir)" || $(MKDIR_P) "$(DESTDIR)$(man1dir)" @list=''; test -n "$(man1dir)" || exit 0; \ { for i in $$list; do echo "$$i"; done; \ l2='$(man_MANS)'; for i in $$l2; do echo "$$i"; done | \ sed -n '/\.1[a-z]*$$/p'; \ } | while read p; do \ if test -f $$p; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; echo "$$p"; \ done | \ sed -e 'n;s,.*/,,;p;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \ -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,' | \ sed 'N;N;s,\n, ,g' | { \ list=; while read file base inst; do \ if test "$$base" = "$$inst"; then list="$$list $$file"; else \ echo " $(INSTALL_DATA) '$$file' '$(DESTDIR)$(man1dir)/$$inst'"; \ $(INSTALL_DATA) "$$file" "$(DESTDIR)$(man1dir)/$$inst" || exit $$?; \ fi; \ done; \ for i in $$list; do echo "$$i"; done | $(am__base_list) | \ while read files; do \ test -z "$$files" || { \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(man1dir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(man1dir)" || exit $$?; }; \ done; } uninstall-man1: @$(NORMAL_UNINSTALL) @list=''; test -n "$(man1dir)" || exit 0; \ files=`{ for i in $$list; do echo "$$i"; done; \ l2='$(man_MANS)'; for i in $$l2; do echo "$$i"; done | \ sed -n '/\.1[a-z]*$$/p'; \ } | sed -e 's,.*/,,;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \ -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,'`; \ dir='$(DESTDIR)$(man1dir)'; $(am__uninstall_files_from_dir) install-dbus_pkgdataDATA: $(dbus_pkgdata_DATA) @$(NORMAL_INSTALL) test -z "$(dbus_pkgdatadir)" || $(MKDIR_P) "$(DESTDIR)$(dbus_pkgdatadir)" @list='$(dbus_pkgdata_DATA)'; test -n "$(dbus_pkgdatadir)" || list=; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dbus_pkgdatadir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dbus_pkgdatadir)" || exit $$?; \ done uninstall-dbus_pkgdataDATA: @$(NORMAL_UNINSTALL) @list='$(dbus_pkgdata_DATA)'; test -n "$(dbus_pkgdatadir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(dbus_pkgdatadir)'; $(am__uninstall_files_from_dir) install-dist_pkgdataDATA: $(dist_pkgdata_DATA) @$(NORMAL_INSTALL) test -z "$(pkgdatadir)" || $(MKDIR_P) "$(DESTDIR)$(pkgdatadir)" @list='$(dist_pkgdata_DATA)'; test -n "$(pkgdatadir)" || list=; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgdatadir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pkgdatadir)" || exit $$?; \ done uninstall-dist_pkgdataDATA: @$(NORMAL_UNINSTALL) @list='$(dist_pkgdata_DATA)'; test -n "$(pkgdatadir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(pkgdatadir)'; $(am__uninstall_files_from_dir) install-girDATA: $(gir_DATA) @$(NORMAL_INSTALL) test -z "$(girdir)" || $(MKDIR_P) "$(DESTDIR)$(girdir)" @list='$(gir_DATA)'; test -n "$(girdir)" || list=; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(girdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(girdir)" || exit $$?; \ done uninstall-girDATA: @$(NORMAL_UNINSTALL) @list='$(gir_DATA)'; test -n "$(girdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(girdir)'; $(am__uninstall_files_from_dir) install-nobase_dist_sysconfDATA: $(nobase_dist_sysconf_DATA) @$(NORMAL_INSTALL) test -z "$(sysconfdir)" || $(MKDIR_P) "$(DESTDIR)$(sysconfdir)" @list='$(nobase_dist_sysconf_DATA)'; test -n "$(sysconfdir)" || list=; \ $(am__nobase_list) | while read dir files; do \ xfiles=; for file in $$files; do \ if test -f "$$file"; then xfiles="$$xfiles $$file"; \ else xfiles="$$xfiles $(srcdir)/$$file"; fi; done; \ test -z "$$xfiles" || { \ test "x$$dir" = x. || { \ echo "$(MKDIR_P) '$(DESTDIR)$(sysconfdir)/$$dir'"; \ $(MKDIR_P) "$(DESTDIR)$(sysconfdir)/$$dir"; }; \ echo " $(INSTALL_DATA) $$xfiles '$(DESTDIR)$(sysconfdir)/$$dir'"; \ $(INSTALL_DATA) $$xfiles "$(DESTDIR)$(sysconfdir)/$$dir" || exit $$?; }; \ done uninstall-nobase_dist_sysconfDATA: @$(NORMAL_UNINSTALL) @list='$(nobase_dist_sysconf_DATA)'; test -n "$(sysconfdir)" || list=; \ $(am__nobase_strip_setup); files=`$(am__nobase_strip)`; \ dir='$(DESTDIR)$(sysconfdir)'; $(am__uninstall_files_from_dir) install-pkgconfigDATA: $(pkgconfig_DATA) @$(NORMAL_INSTALL) test -z "$(pkgconfigdir)" || $(MKDIR_P) "$(DESTDIR)$(pkgconfigdir)" @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pkgconfigdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pkgconfigdir)" || exit $$?; \ done uninstall-pkgconfigDATA: @$(NORMAL_UNINSTALL) @list='$(pkgconfig_DATA)'; test -n "$(pkgconfigdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(pkgconfigdir)'; $(am__uninstall_files_from_dir) install-schemaDATA: $(schema_DATA) @$(NORMAL_INSTALL) test -z "$(schemadir)" || $(MKDIR_P) "$(DESTDIR)$(schemadir)" @list='$(schema_DATA)'; test -n "$(schemadir)" || list=; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(schemadir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(schemadir)" || exit $$?; \ done uninstall-schemaDATA: @$(NORMAL_UNINSTALL) @list='$(schema_DATA)'; test -n "$(schemadir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(schemadir)'; $(am__uninstall_files_from_dir) install-typelibsDATA: $(typelibs_DATA) @$(NORMAL_INSTALL) test -z "$(typelibsdir)" || $(MKDIR_P) "$(DESTDIR)$(typelibsdir)" @list='$(typelibs_DATA)'; test -n "$(typelibsdir)" || list=; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(typelibsdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(typelibsdir)" || exit $$?; \ done uninstall-typelibsDATA: @$(NORMAL_UNINSTALL) @list='$(typelibs_DATA)'; test -n "$(typelibsdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(typelibsdir)'; $(am__uninstall_files_from_dir) install-viewsDATA: $(views_DATA) @$(NORMAL_INSTALL) test -z "$(viewsdir)" || $(MKDIR_P) "$(DESTDIR)$(viewsdir)" @list='$(views_DATA)'; test -n "$(viewsdir)" || list=; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(viewsdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(viewsdir)" || exit $$?; \ done uninstall-viewsDATA: @$(NORMAL_UNINSTALL) @list='$(views_DATA)'; test -n "$(viewsdir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(viewsdir)'; $(am__uninstall_files_from_dir) install-libmidgardincludeHEADERS: $(libmidgardinclude_HEADERS) @$(NORMAL_INSTALL) test -z "$(libmidgardincludedir)" || $(MKDIR_P) "$(DESTDIR)$(libmidgardincludedir)" @list='$(libmidgardinclude_HEADERS)'; test -n "$(libmidgardincludedir)" || list=; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(libmidgardincludedir)'"; \ $(INSTALL_HEADER) $$files "$(DESTDIR)$(libmidgardincludedir)" || exit $$?; \ done uninstall-libmidgardincludeHEADERS: @$(NORMAL_UNINSTALL) @list='$(libmidgardinclude_HEADERS)'; test -n "$(libmidgardincludedir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(libmidgardincludedir)'; $(am__uninstall_files_from_dir) install-libmidgardsqlincludeHEADERS: $(libmidgardsqlinclude_HEADERS) @$(NORMAL_INSTALL) test -z "$(libmidgardsqlincludedir)" || $(MKDIR_P) "$(DESTDIR)$(libmidgardsqlincludedir)" @list='$(libmidgardsqlinclude_HEADERS)'; test -n "$(libmidgardsqlincludedir)" || list=; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(libmidgardsqlincludedir)'"; \ $(INSTALL_HEADER) $$files "$(DESTDIR)$(libmidgardsqlincludedir)" || exit $$?; \ done uninstall-libmidgardsqlincludeHEADERS: @$(NORMAL_UNINSTALL) @list='$(libmidgardsqlinclude_HEADERS)'; test -n "$(libmidgardsqlincludedir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(libmidgardsqlincludedir)'; $(am__uninstall_files_from_dir) install-libsubmidgardincludeHEADERS: $(libsubmidgardinclude_HEADERS) @$(NORMAL_INSTALL) test -z "$(libsubmidgardincludedir)" || $(MKDIR_P) "$(DESTDIR)$(libsubmidgardincludedir)" @list='$(libsubmidgardinclude_HEADERS)'; test -n "$(libsubmidgardincludedir)" || list=; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_HEADER) $$files '$(DESTDIR)$(libsubmidgardincludedir)'"; \ $(INSTALL_HEADER) $$files "$(DESTDIR)$(libsubmidgardincludedir)" || exit $$?; \ done uninstall-libsubmidgardincludeHEADERS: @$(NORMAL_UNINSTALL) @list='$(libsubmidgardinclude_HEADERS)'; test -n "$(libsubmidgardincludedir)" || list=; \ files=`for p in $$list; do echo $$p; done | sed -e 's|^.*/||'`; \ dir='$(DESTDIR)$(libsubmidgardincludedir)'; $(am__uninstall_files_from_dir) ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) config.h.in $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) config.h.in $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @list='$(MANS)'; if test -n "$$list"; then \ list=`for p in $$list; do \ if test -f $$p; then d=; else d="$(srcdir)/"; fi; \ if test -f "$$d$$p"; then echo "$$d$$p"; else :; fi; done`; \ if test -n "$$list" && \ grep 'ab help2man is required to generate this page' $$list >/dev/null; then \ echo "error: found man pages containing the \`missing help2man' replacement text:" >&2; \ grep -l 'ab help2man is required to generate this page' $$list | sed 's/^/ /' >&2; \ echo " to fix them, install help2man, remove and regenerate the man pages;" >&2; \ echo " typically \`make maintainer-clean' will remove them" >&2; \ exit 1; \ else :; fi; \ else :; fi $(am__remove_distdir) test -d "$(distdir)" || mkdir "$(distdir)" @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done -test -n "$(am__skip_mode_fix)" \ || find "$(distdir)" -type d ! -perm -755 \ -exec chmod u+rwx,go+rx {} \; -o \ ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \ ! -type d ! -perm -400 -exec chmod a+r {} \; -o \ ! -type d ! -perm -444 -exec $(install_sh) -c -m a+r {} {} \; \ || chmod -R a+r "$(distdir)" dist-gzip: distdir tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz $(am__remove_distdir) dist-bzip2: distdir tardir=$(distdir) && $(am__tar) | BZIP2=$${BZIP2--9} bzip2 -c >$(distdir).tar.bz2 $(am__remove_distdir) dist-lzip: distdir tardir=$(distdir) && $(am__tar) | lzip -c $${LZIP_OPT--9} >$(distdir).tar.lz $(am__remove_distdir) dist-lzma: distdir tardir=$(distdir) && $(am__tar) | lzma -9 -c >$(distdir).tar.lzma $(am__remove_distdir) dist-xz: distdir tardir=$(distdir) && $(am__tar) | XZ_OPT=$${XZ_OPT--e} xz -c >$(distdir).tar.xz $(am__remove_distdir) dist-tarZ: distdir tardir=$(distdir) && $(am__tar) | compress -c >$(distdir).tar.Z $(am__remove_distdir) dist-shar: distdir shar $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).shar.gz $(am__remove_distdir) dist-zip: distdir -rm -f $(distdir).zip zip -rq $(distdir).zip $(distdir) $(am__remove_distdir) dist dist-all: distdir tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz $(am__remove_distdir) # This target untars the dist file and tries a VPATH configuration. Then # it guarantees that the distribution is self-contained by making another # tarfile. distcheck: dist case '$(DIST_ARCHIVES)' in \ *.tar.gz*) \ GZIP=$(GZIP_ENV) gzip -dc $(distdir).tar.gz | $(am__untar) ;;\ *.tar.bz2*) \ bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\ *.tar.lzma*) \ lzma -dc $(distdir).tar.lzma | $(am__untar) ;;\ *.tar.lz*) \ lzip -dc $(distdir).tar.lz | $(am__untar) ;;\ *.tar.xz*) \ xz -dc $(distdir).tar.xz | $(am__untar) ;;\ *.tar.Z*) \ uncompress -c $(distdir).tar.Z | $(am__untar) ;;\ *.shar.gz*) \ GZIP=$(GZIP_ENV) gzip -dc $(distdir).shar.gz | unshar ;;\ *.zip*) \ unzip $(distdir).zip ;;\ esac chmod -R a-w $(distdir); chmod a+w $(distdir) mkdir $(distdir)/_build mkdir $(distdir)/_inst chmod a-w $(distdir) test -d $(distdir)/_build || exit 0; \ dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \ && dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \ && am__cwd=`pwd` \ && $(am__cd) $(distdir)/_build \ && ../configure --srcdir=.. --prefix="$$dc_install_base" \ $(AM_DISTCHECK_CONFIGURE_FLAGS) \ $(DISTCHECK_CONFIGURE_FLAGS) \ && $(MAKE) $(AM_MAKEFLAGS) \ && $(MAKE) $(AM_MAKEFLAGS) dvi \ && $(MAKE) $(AM_MAKEFLAGS) check \ && $(MAKE) $(AM_MAKEFLAGS) install \ && $(MAKE) $(AM_MAKEFLAGS) installcheck \ && $(MAKE) $(AM_MAKEFLAGS) uninstall \ && $(MAKE) $(AM_MAKEFLAGS) distuninstallcheck_dir="$$dc_install_base" \ distuninstallcheck \ && chmod -R a-w "$$dc_install_base" \ && ({ \ (cd ../.. && umask 077 && mkdir "$$dc_destdir") \ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" install \ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" uninstall \ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" \ distuninstallcheck_dir="$$dc_destdir" distuninstallcheck; \ } || { rm -rf "$$dc_destdir"; exit 1; }) \ && rm -rf "$$dc_destdir" \ && $(MAKE) $(AM_MAKEFLAGS) dist \ && rm -rf $(DIST_ARCHIVES) \ && $(MAKE) $(AM_MAKEFLAGS) distcleancheck \ && cd "$$am__cwd" \ || exit 1 $(am__remove_distdir) @(echo "$(distdir) archives ready for distribution: "; \ list='$(DIST_ARCHIVES)'; for i in $$list; do echo $$i; done) | \ sed -e 1h -e 1s/./=/g -e 1p -e 1x -e '$$p' -e '$$x' distuninstallcheck: @test -n '$(distuninstallcheck_dir)' || { \ echo 'ERROR: trying to run $@ with an empty' \ '$$(distuninstallcheck_dir)' >&2; \ exit 1; \ }; \ $(am__cd) '$(distuninstallcheck_dir)' || { \ echo 'ERROR: cannot chdir into $(distuninstallcheck_dir)' >&2; \ exit 1; \ }; \ test `$(am__distuninstallcheck_listfiles) | wc -l` -eq 0 \ || { echo "ERROR: files left after uninstall:" ; \ if test -n "$(DESTDIR)"; then \ echo " (check DESTDIR support)"; \ fi ; \ $(distuninstallcheck_listfiles) ; \ exit 1; } >&2 distcleancheck: distclean @if test '$(srcdir)' = . ; then \ echo "ERROR: distcleancheck can only run from a VPATH build" ; \ exit 1 ; \ fi @test `$(distcleancheck_listfiles) | wc -l` -eq 0 \ || { echo "ERROR: files left in build directory after distclean:" ; \ $(distcleancheck_listfiles) ; \ exit 1; } >&2 check-am: all-am check: check-am all-am: Makefile $(LTLIBRARIES) $(PROGRAMS) $(MANS) $(DATA) $(HEADERS) \ config.h install-binPROGRAMS: install-libLTLIBRARIES installdirs: for dir in "$(DESTDIR)$(libdir)" "$(DESTDIR)$(bindir)" "$(DESTDIR)$(man1dir)" "$(DESTDIR)$(dbus_pkgdatadir)" "$(DESTDIR)$(pkgdatadir)" "$(DESTDIR)$(girdir)" "$(DESTDIR)$(sysconfdir)" "$(DESTDIR)$(pkgconfigdir)" "$(DESTDIR)$(schemadir)" "$(DESTDIR)$(typelibsdir)" "$(DESTDIR)$(viewsdir)" "$(DESTDIR)$(libmidgardincludedir)" "$(DESTDIR)$(libmidgardsqlincludedir)" "$(DESTDIR)$(libsubmidgardincludedir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: -test -z "$(CLEANFILES)" || rm -f $(CLEANFILES) distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) -rm -f src/$(am__dirstamp) -rm -f test/$(am__dirstamp) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-binPROGRAMS clean-generic clean-libLTLIBRARIES \ clean-libtool clean-noinstPROGRAMS mostlyclean-am distclean: distclean-am -rm -f $(am__CONFIG_DISTCLEAN_FILES) -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-hdr distclean-libtool distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dbus_pkgdataDATA install-dist_pkgdataDATA \ install-girDATA install-libmidgardincludeHEADERS \ install-libmidgardsqlincludeHEADERS \ install-libsubmidgardincludeHEADERS install-man \ install-pkgconfigDATA install-schemaDATA install-typelibsDATA \ install-viewsDATA install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-binPROGRAMS install-libLTLIBRARIES \ install-nobase_dist_sysconfDATA install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-man1 install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f $(am__CONFIG_DISTCLEAN_FILES) -rm -rf $(top_srcdir)/autom4te.cache -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-binPROGRAMS uninstall-dbus_pkgdataDATA \ uninstall-dist_pkgdataDATA uninstall-girDATA \ uninstall-libLTLIBRARIES uninstall-libmidgardincludeHEADERS \ uninstall-libmidgardsqlincludeHEADERS \ uninstall-libsubmidgardincludeHEADERS uninstall-man \ uninstall-nobase_dist_sysconfDATA uninstall-pkgconfigDATA \ uninstall-schemaDATA uninstall-typelibsDATA \ uninstall-viewsDATA uninstall-man: uninstall-man1 .MAKE: all install-am install-strip .PHONY: CTAGS GTAGS all all-am am--refresh check check-am clean \ clean-binPROGRAMS clean-generic clean-libLTLIBRARIES \ clean-libtool clean-noinstPROGRAMS ctags dist dist-all \ dist-bzip2 dist-gzip dist-lzip dist-lzma dist-shar dist-tarZ \ dist-xz dist-zip distcheck distclean distclean-compile \ distclean-generic distclean-hdr distclean-libtool \ distclean-tags distcleancheck distdir distuninstallcheck dvi \ dvi-am html html-am info info-am install install-am \ install-binPROGRAMS install-data install-data-am \ install-dbus_pkgdataDATA install-dist_pkgdataDATA install-dvi \ install-dvi-am install-exec install-exec-am install-girDATA \ install-html install-html-am install-info install-info-am \ install-libLTLIBRARIES install-libmidgardincludeHEADERS \ install-libmidgardsqlincludeHEADERS \ install-libsubmidgardincludeHEADERS install-man install-man1 \ install-nobase_dist_sysconfDATA install-pdf install-pdf-am \ install-pkgconfigDATA install-ps install-ps-am \ install-schemaDATA install-strip install-typelibsDATA \ install-viewsDATA installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \ pdf pdf-am ps ps-am tags uninstall uninstall-am \ uninstall-binPROGRAMS uninstall-dbus_pkgdataDATA \ uninstall-dist_pkgdataDATA uninstall-girDATA \ uninstall-libLTLIBRARIES uninstall-libmidgardincludeHEADERS \ uninstall-libmidgardsqlincludeHEADERS \ uninstall-libsubmidgardincludeHEADERS uninstall-man \ uninstall-man1 uninstall-nobase_dist_sysconfDATA \ uninstall-pkgconfigDATA uninstall-schemaDATA \ uninstall-typelibsDATA uninstall-viewsDATA $(PROGRAMS): $(LDADD) -include $(INTROSPECTION_MAKEFILE) @HAVE_INTROSPECTION_TRUE@Midgard-10.05.gir: $(lib_LTLIBRARIES) doc: doxygen .PHONY: doc # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: midgard2-core-10.05.7.1/install-sh0000755000175000017500000003325611772046304013404 00000000000000#!/bin/sh # install - install a program, script, or datafile scriptversion=2011-01-19.21; # UTC # This originates from X11R5 (mit/util/scripts/install.sh), which was # later released in X11R6 (xc/config/util/install.sh) with the # following copyright and license. # # Copyright (C) 1994 X Consortium # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to # deal in the Software without restriction, including without limitation the # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or # sell copies of the Software, and to permit persons to whom the Software is # furnished to do so, subject to the following conditions: # # The above copyright notice and this permission notice shall be included in # all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE # X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN # AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC- # TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. # # Except as contained in this notice, the name of the X Consortium shall not # be used in advertising or otherwise to promote the sale, use or other deal- # ings in this Software without prior written authorization from the X Consor- # tium. # # # FSF changes to this file are in the public domain. # # Calling this script install-sh is preferred over install.sh, to prevent # `make' implicit rules from creating a file called install from it # when there is no Makefile. # # This script is compatible with the BSD install script, but was written # from scratch. nl=' ' IFS=" "" $nl" # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit=${DOITPROG-} if test -z "$doit"; then doit_exec=exec else doit_exec=$doit fi # Put in absolute file names if you don't have them in your path; # or use environment vars. chgrpprog=${CHGRPPROG-chgrp} chmodprog=${CHMODPROG-chmod} chownprog=${CHOWNPROG-chown} cmpprog=${CMPPROG-cmp} cpprog=${CPPROG-cp} mkdirprog=${MKDIRPROG-mkdir} mvprog=${MVPROG-mv} rmprog=${RMPROG-rm} stripprog=${STRIPPROG-strip} posix_glob='?' initialize_posix_glob=' test "$posix_glob" != "?" || { if (set -f) 2>/dev/null; then posix_glob= else posix_glob=: fi } ' posix_mkdir= # Desired mode of installed file. mode=0755 chgrpcmd= chmodcmd=$chmodprog chowncmd= mvcmd=$mvprog rmcmd="$rmprog -f" stripcmd= src= dst= dir_arg= dst_arg= copy_on_change=false no_target_directory= usage="\ Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE or: $0 [OPTION]... SRCFILES... DIRECTORY or: $0 [OPTION]... -t DIRECTORY SRCFILES... or: $0 [OPTION]... -d DIRECTORIES... In the 1st form, copy SRCFILE to DSTFILE. In the 2nd and 3rd, copy all SRCFILES to DIRECTORY. In the 4th, create DIRECTORIES. Options: --help display this help and exit. --version display version info and exit. -c (ignored) -C install only if different (preserve the last data modification time) -d create directories instead of installing files. -g GROUP $chgrpprog installed files to GROUP. -m MODE $chmodprog installed files to MODE. -o USER $chownprog installed files to USER. -s $stripprog installed files. -t DIRECTORY install into DIRECTORY. -T report an error if DSTFILE is a directory. Environment variables override the default commands: CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG " while test $# -ne 0; do case $1 in -c) ;; -C) copy_on_change=true;; -d) dir_arg=true;; -g) chgrpcmd="$chgrpprog $2" shift;; --help) echo "$usage"; exit $?;; -m) mode=$2 case $mode in *' '* | *' '* | *' '* | *'*'* | *'?'* | *'['*) echo "$0: invalid mode: $mode" >&2 exit 1;; esac shift;; -o) chowncmd="$chownprog $2" shift;; -s) stripcmd=$stripprog;; -t) dst_arg=$2 # Protect names problematic for `test' and other utilities. case $dst_arg in -* | [=\(\)!]) dst_arg=./$dst_arg;; esac shift;; -T) no_target_directory=true;; --version) echo "$0 $scriptversion"; exit $?;; --) shift break;; -*) echo "$0: invalid option: $1" >&2 exit 1;; *) break;; esac shift done if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then # When -d is used, all remaining arguments are directories to create. # When -t is used, the destination is already specified. # Otherwise, the last argument is the destination. Remove it from $@. for arg do if test -n "$dst_arg"; then # $@ is not empty: it contains at least $arg. set fnord "$@" "$dst_arg" shift # fnord fi shift # arg dst_arg=$arg # Protect names problematic for `test' and other utilities. case $dst_arg in -* | [=\(\)!]) dst_arg=./$dst_arg;; esac done fi if test $# -eq 0; then if test -z "$dir_arg"; then echo "$0: no input file specified." >&2 exit 1 fi # It's OK to call `install-sh -d' without argument. # This can happen when creating conditional directories. exit 0 fi if test -z "$dir_arg"; then do_exit='(exit $ret); exit $ret' trap "ret=129; $do_exit" 1 trap "ret=130; $do_exit" 2 trap "ret=141; $do_exit" 13 trap "ret=143; $do_exit" 15 # Set umask so as not to create temps with too-generous modes. # However, 'strip' requires both read and write access to temps. case $mode in # Optimize common cases. *644) cp_umask=133;; *755) cp_umask=22;; *[0-7]) if test -z "$stripcmd"; then u_plus_rw= else u_plus_rw='% 200' fi cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;; *) if test -z "$stripcmd"; then u_plus_rw= else u_plus_rw=,u+rw fi cp_umask=$mode$u_plus_rw;; esac fi for src do # Protect names problematic for `test' and other utilities. case $src in -* | [=\(\)!]) src=./$src;; esac if test -n "$dir_arg"; then dst=$src dstdir=$dst test -d "$dstdir" dstdir_status=$? else # Waiting for this to be detected by the "$cpprog $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if test ! -f "$src" && test ! -d "$src"; then echo "$0: $src does not exist." >&2 exit 1 fi if test -z "$dst_arg"; then echo "$0: no destination specified." >&2 exit 1 fi dst=$dst_arg # If destination is a directory, append the input filename; won't work # if double slashes aren't ignored. if test -d "$dst"; then if test -n "$no_target_directory"; then echo "$0: $dst_arg: Is a directory" >&2 exit 1 fi dstdir=$dst dst=$dstdir/`basename "$src"` dstdir_status=0 else # Prefer dirname, but fall back on a substitute if dirname fails. dstdir=` (dirname "$dst") 2>/dev/null || expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$dst" : 'X\(//\)[^/]' \| \ X"$dst" : 'X\(//\)$' \| \ X"$dst" : 'X\(/\)' \| . 2>/dev/null || echo X"$dst" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q' ` test -d "$dstdir" dstdir_status=$? fi fi obsolete_mkdir_used=false if test $dstdir_status != 0; then case $posix_mkdir in '') # Create intermediate dirs using mode 755 as modified by the umask. # This is like FreeBSD 'install' as of 1997-10-28. umask=`umask` case $stripcmd.$umask in # Optimize common cases. *[2367][2367]) mkdir_umask=$umask;; .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;; *[0-7]) mkdir_umask=`expr $umask + 22 \ - $umask % 100 % 40 + $umask % 20 \ - $umask % 10 % 4 + $umask % 2 `;; *) mkdir_umask=$umask,go-w;; esac # With -d, create the new directory with the user-specified mode. # Otherwise, rely on $mkdir_umask. if test -n "$dir_arg"; then mkdir_mode=-m$mode else mkdir_mode= fi posix_mkdir=false case $umask in *[123567][0-7][0-7]) # POSIX mkdir -p sets u+wx bits regardless of umask, which # is incompatible with FreeBSD 'install' when (umask & 300) != 0. ;; *) tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$ trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0 if (umask $mkdir_umask && exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1 then if test -z "$dir_arg" || { # Check for POSIX incompatibilities with -m. # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or # other-writeable bit of parent directory when it shouldn't. # FreeBSD 6.1 mkdir -m -p sets mode of existing directory. ls_ld_tmpdir=`ls -ld "$tmpdir"` case $ls_ld_tmpdir in d????-?r-*) different_mode=700;; d????-?--*) different_mode=755;; *) false;; esac && $mkdirprog -m$different_mode -p -- "$tmpdir" && { ls_ld_tmpdir_1=`ls -ld "$tmpdir"` test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1" } } then posix_mkdir=: fi rmdir "$tmpdir/d" "$tmpdir" else # Remove any dirs left behind by ancient mkdir implementations. rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null fi trap '' 0;; esac;; esac if $posix_mkdir && ( umask $mkdir_umask && $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir" ) then : else # The umask is ridiculous, or mkdir does not conform to POSIX, # or it failed possibly due to a race condition. Create the # directory the slow way, step by step, checking for races as we go. case $dstdir in /*) prefix='/';; [-=\(\)!]*) prefix='./';; *) prefix='';; esac eval "$initialize_posix_glob" oIFS=$IFS IFS=/ $posix_glob set -f set fnord $dstdir shift $posix_glob set +f IFS=$oIFS prefixes= for d do test X"$d" = X && continue prefix=$prefix$d if test -d "$prefix"; then prefixes= else if $posix_mkdir; then (umask=$mkdir_umask && $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break # Don't fail if two instances are running concurrently. test -d "$prefix" || exit 1 else case $prefix in *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;; *) qprefix=$prefix;; esac prefixes="$prefixes '$qprefix'" fi fi prefix=$prefix/ done if test -n "$prefixes"; then # Don't fail if two instances are running concurrently. (umask $mkdir_umask && eval "\$doit_exec \$mkdirprog $prefixes") || test -d "$dstdir" || exit 1 obsolete_mkdir_used=true fi fi fi if test -n "$dir_arg"; then { test -z "$chowncmd" || $doit $chowncmd "$dst"; } && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } && { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false || test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1 else # Make a couple of temp file names in the proper directory. dsttmp=$dstdir/_inst.$$_ rmtmp=$dstdir/_rm.$$_ # Trap to clean up those temp files at exit. trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0 # Copy the file name to the temp name. (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") && # and set any options; do chmod last to preserve setuid bits. # # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $cpprog $src $dsttmp" command. # { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } && { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } && # If -C, don't bother to copy if it wouldn't change the file. if $copy_on_change && old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` && new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` && eval "$initialize_posix_glob" && $posix_glob set -f && set X $old && old=:$2:$4:$5:$6 && set X $new && new=:$2:$4:$5:$6 && $posix_glob set +f && test "$old" = "$new" && $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1 then rm -f "$dsttmp" else # Rename the file to the real destination. $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null || # The rename failed, perhaps because mv can't rename something else # to itself, or perhaps because mv is so ancient that it does not # support -f. { # Now remove or move aside any old file at destination location. # We try this two ways since rm can't unlink itself on some # systems and the destination file might be busy for other # reasons. In this case, the final cleanup might fail but the new # file should still install successfully. { test ! -f "$dst" || $doit $rmcmd -f "$dst" 2>/dev/null || { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null && { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; } } || { echo "$0: cannot unlink or rename $dst" >&2 (exit 1); exit 1 } } && # Now rename the file to the real destination. $doit $mvcmd "$dsttmp" "$dst" } fi || exit 1 trap '' 0 fi done # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC" # time-stamp-end: "; # UTC" # End: midgard2-core-10.05.7.1/config.guess0000755000175000017500000012743211772046304013720 00000000000000#! /bin/sh # Attempt to guess a canonical system name. # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, # 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, # 2011, 2012 Free Software Foundation, Inc. timestamp='2012-02-10' # This file is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, see . # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Originally written by Per Bothner. Please send patches (context # diff format) to and include a ChangeLog # entry. # # This script attempts to guess a canonical system name similar to # config.sub. If it succeeds, it prints the system name on stdout, and # exits with 0. Otherwise, it exits with 1. # # You can get the latest version of this script from: # http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] Output the configuration name of the system \`$me' is run on. Operation modes: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.guess ($timestamp) Originally written by Per Bothner. Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" >&2 exit 1 ;; * ) break ;; esac done if test $# != 0; then echo "$me: too many arguments$help" >&2 exit 1 fi trap 'exit 1' 1 2 15 # CC_FOR_BUILD -- compiler used by this script. Note that the use of a # compiler to aid in system detection is discouraged as it requires # temporary files to be created and, as you can see below, it is a # headache to deal with in a portable fashion. # Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still # use `HOST_CC' if defined, but it is deprecated. # Portable tmp directory creation inspired by the Autoconf team. set_cc_for_build=' trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ; trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ; : ${TMPDIR=/tmp} ; { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } || { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } || { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } || { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ; dummy=$tmp/dummy ; tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ; case $CC_FOR_BUILD,$HOST_CC,$CC in ,,) echo "int x;" > $dummy.c ; for c in cc gcc c89 c99 ; do if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then CC_FOR_BUILD="$c"; break ; fi ; done ; if test x"$CC_FOR_BUILD" = x ; then CC_FOR_BUILD=no_compiler_found ; fi ;; ,,*) CC_FOR_BUILD=$CC ;; ,*,*) CC_FOR_BUILD=$HOST_CC ;; esac ; set_cc_for_build= ;' # This is needed to find uname on a Pyramid OSx when run in the BSD universe. # (ghazi@noc.rutgers.edu 1994-08-24) if (test -f /.attbin/uname) >/dev/null 2>&1 ; then PATH=$PATH:/.attbin ; export PATH fi UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown # Note: order is significant - the case branches are not exclusive. case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in *:NetBSD:*:*) # NetBSD (nbsd) targets should (where applicable) match one or # more of the tuples: *-*-netbsdelf*, *-*-netbsdaout*, # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently # switched to ELF, *-*-netbsd* would select the old # object file format. This provides both forward # compatibility and a consistent mechanism for selecting the # object file format. # # Note: NetBSD doesn't particularly care about the vendor # portion of the name. We always set it to "unknown". sysctl="sysctl -n hw.machine_arch" UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \ /usr/sbin/$sysctl 2>/dev/null || echo unknown)` case "${UNAME_MACHINE_ARCH}" in armeb) machine=armeb-unknown ;; arm*) machine=arm-unknown ;; sh3el) machine=shl-unknown ;; sh3eb) machine=sh-unknown ;; sh5el) machine=sh5le-unknown ;; *) machine=${UNAME_MACHINE_ARCH}-unknown ;; esac # The Operating System including object format, if it has switched # to ELF recently, or will in the future. case "${UNAME_MACHINE_ARCH}" in arm*|i386|m68k|ns32k|sh3*|sparc|vax) eval $set_cc_for_build if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ELF__ then # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout). # Return netbsd for either. FIX? os=netbsd else os=netbsdelf fi ;; *) os=netbsd ;; esac # The OS release # Debian GNU/NetBSD machines have a different userland, and # thus, need a distinct triplet. However, they do not need # kernel version information, so it can be replaced with a # suitable tag, in the style of linux-gnu. case "${UNAME_VERSION}" in Debian*) release='-gnu' ;; *) release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` ;; esac # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: # contains redundant information, the shorter form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. echo "${machine}-${os}${release}" exit ;; *:OpenBSD:*:*) UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'` echo ${UNAME_MACHINE_ARCH}-unknown-openbsd${UNAME_RELEASE} exit ;; *:ekkoBSD:*:*) echo ${UNAME_MACHINE}-unknown-ekkobsd${UNAME_RELEASE} exit ;; *:SolidBSD:*:*) echo ${UNAME_MACHINE}-unknown-solidbsd${UNAME_RELEASE} exit ;; macppc:MirBSD:*:*) echo powerpc-unknown-mirbsd${UNAME_RELEASE} exit ;; *:MirBSD:*:*) echo ${UNAME_MACHINE}-unknown-mirbsd${UNAME_RELEASE} exit ;; alpha:OSF1:*:*) case $UNAME_RELEASE in *4.0) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` ;; *5.*) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'` ;; esac # According to Compaq, /usr/sbin/psrinfo has been available on # OSF/1 and Tru64 systems produced since 1995. I hope that # covers most systems running today. This code pipes the CPU # types through head -n 1, so we only detect the type of CPU 0. ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1` case "$ALPHA_CPU_TYPE" in "EV4 (21064)") UNAME_MACHINE="alpha" ;; "EV4.5 (21064)") UNAME_MACHINE="alpha" ;; "LCA4 (21066/21068)") UNAME_MACHINE="alpha" ;; "EV5 (21164)") UNAME_MACHINE="alphaev5" ;; "EV5.6 (21164A)") UNAME_MACHINE="alphaev56" ;; "EV5.6 (21164PC)") UNAME_MACHINE="alphapca56" ;; "EV5.7 (21164PC)") UNAME_MACHINE="alphapca57" ;; "EV6 (21264)") UNAME_MACHINE="alphaev6" ;; "EV6.7 (21264A)") UNAME_MACHINE="alphaev67" ;; "EV6.8CB (21264C)") UNAME_MACHINE="alphaev68" ;; "EV6.8AL (21264B)") UNAME_MACHINE="alphaev68" ;; "EV6.8CX (21264D)") UNAME_MACHINE="alphaev68" ;; "EV6.9A (21264/EV69A)") UNAME_MACHINE="alphaev69" ;; "EV7 (21364)") UNAME_MACHINE="alphaev7" ;; "EV7.9 (21364A)") UNAME_MACHINE="alphaev79" ;; esac # A Pn.n version is a patched version. # A Vn.n version is a released version. # A Tn.n version is a released field test version. # A Xn.n version is an unreleased experimental baselevel. # 1.2 uses "1.2" for uname -r. echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[PVTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` # Reset EXIT trap before exiting to avoid spurious non-zero exit code. exitcode=$? trap '' 0 exit $exitcode ;; Alpha\ *:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # Should we change UNAME_MACHINE based on the output of uname instead # of the specific Alpha model? echo alpha-pc-interix exit ;; 21064:Windows_NT:50:3) echo alpha-dec-winnt3.5 exit ;; Amiga*:UNIX_System_V:4.0:*) echo m68k-unknown-sysv4 exit ;; *:[Aa]miga[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-amigaos exit ;; *:[Mm]orph[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-morphos exit ;; *:OS/390:*:*) echo i370-ibm-openedition exit ;; *:z/VM:*:*) echo s390-ibm-zvmoe exit ;; *:OS400:*:*) echo powerpc-ibm-os400 exit ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) echo arm-acorn-riscix${UNAME_RELEASE} exit ;; arm:riscos:*:*|arm:RISCOS:*:*) echo arm-unknown-riscos exit ;; SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) echo hppa1.1-hitachi-hiuxmpp exit ;; Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. if test "`(/bin/universe) 2>/dev/null`" = att ; then echo pyramid-pyramid-sysv3 else echo pyramid-pyramid-bsd fi exit ;; NILE*:*:*:dcosx) echo pyramid-pyramid-svr4 exit ;; DRS?6000:unix:4.0:6*) echo sparc-icl-nx6 exit ;; DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*) case `/usr/bin/uname -p` in sparc) echo sparc-icl-nx7; exit ;; esac ;; s390x:SunOS:*:*) echo ${UNAME_MACHINE}-ibm-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4H:SunOS:5.*:*) echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; i86pc:AuroraUX:5.*:* | i86xen:AuroraUX:5.*:*) echo i386-pc-auroraux${UNAME_RELEASE} exit ;; i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*) eval $set_cc_for_build SUN_ARCH="i386" # If there is a compiler, see if it is configured for 64-bit objects. # Note that the Sun cc does not turn __LP64__ into 1 like gcc does. # This test works for both compilers. if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') | \ (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_64BIT_ARCH >/dev/null then SUN_ARCH="x86_64" fi fi echo ${SUN_ARCH}-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:6*:*) # According to config.sub, this is the proper way to canonicalize # SunOS6. Hard to guess exactly what SunOS6 will be like, but # it's likely to be more like Solaris than SunOS4. echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:*:*) case "`/usr/bin/arch -k`" in Series*|S4*) UNAME_RELEASE=`uname -v` ;; esac # Japanese Language versions have a version number like `4.1.3-JL'. echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` exit ;; sun3*:SunOS:*:*) echo m68k-sun-sunos${UNAME_RELEASE} exit ;; sun*:*:4.2BSD:*) UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3 case "`/bin/arch`" in sun3) echo m68k-sun-sunos${UNAME_RELEASE} ;; sun4) echo sparc-sun-sunos${UNAME_RELEASE} ;; esac exit ;; aushp:SunOS:*:*) echo sparc-auspex-sunos${UNAME_RELEASE} exit ;; # The situation for MiNT is a little confusing. The machine name # can be virtually everything (everything which is not # "atarist" or "atariste" at least should have a processor # > m68000). The system name ranges from "MiNT" over "FreeMiNT" # to the lowercase version "mint" (or "freemint"). Finally # the system name "TOS" denotes a system which is actually not # MiNT. But MiNT is downward compatible to TOS, so this should # be no problem. atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) echo m68k-milan-mint${UNAME_RELEASE} exit ;; hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) echo m68k-hades-mint${UNAME_RELEASE} exit ;; *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) echo m68k-unknown-mint${UNAME_RELEASE} exit ;; m68k:machten:*:*) echo m68k-apple-machten${UNAME_RELEASE} exit ;; powerpc:machten:*:*) echo powerpc-apple-machten${UNAME_RELEASE} exit ;; RISC*:Mach:*:*) echo mips-dec-mach_bsd4.3 exit ;; RISC*:ULTRIX:*:*) echo mips-dec-ultrix${UNAME_RELEASE} exit ;; VAX*:ULTRIX*:*:*) echo vax-dec-ultrix${UNAME_RELEASE} exit ;; 2020:CLIX:*:* | 2430:CLIX:*:*) echo clipper-intergraph-clix${UNAME_RELEASE} exit ;; mips:*:*:UMIPS | mips:*:*:RISCos) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #ifdef __cplusplus #include /* for printf() prototype */ int main (int argc, char *argv[]) { #else int main (argc, argv) int argc; char *argv[]; { #endif #if defined (host_mips) && defined (MIPSEB) #if defined (SYSTYPE_SYSV) printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_SVR4) printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0); #endif #endif exit (-1); } EOF $CC_FOR_BUILD -o $dummy $dummy.c && dummyarg=`echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` && SYSTEM_NAME=`$dummy $dummyarg` && { echo "$SYSTEM_NAME"; exit; } echo mips-mips-riscos${UNAME_RELEASE} exit ;; Motorola:PowerMAX_OS:*:*) echo powerpc-motorola-powermax exit ;; Motorola:*:4.3:PL8-*) echo powerpc-harris-powermax exit ;; Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) echo powerpc-harris-powermax exit ;; Night_Hawk:Power_UNIX:*:*) echo powerpc-harris-powerunix exit ;; m88k:CX/UX:7*:*) echo m88k-harris-cxux7 exit ;; m88k:*:4*:R4*) echo m88k-motorola-sysv4 exit ;; m88k:*:3*:R3*) echo m88k-motorola-sysv3 exit ;; AViiON:dgux:*:*) # DG/UX returns AViiON for all architectures UNAME_PROCESSOR=`/usr/bin/uname -p` if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ] then if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \ [ ${TARGET_BINARY_INTERFACE}x = x ] then echo m88k-dg-dgux${UNAME_RELEASE} else echo m88k-dg-dguxbcs${UNAME_RELEASE} fi else echo i586-dg-dgux${UNAME_RELEASE} fi exit ;; M88*:DolphinOS:*:*) # DolphinOS (SVR3) echo m88k-dolphin-sysv3 exit ;; M88*:*:R3*:*) # Delta 88k system running SVR3 echo m88k-motorola-sysv3 exit ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) echo m88k-tektronix-sysv3 exit ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) echo m68k-tektronix-bsd exit ;; *:IRIX*:*:*) echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` exit ;; ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id exit ;; # Note that: echo "'`uname -s`'" gives 'AIX ' i*86:AIX:*:*) echo i386-ibm-aix exit ;; ia64:AIX:*:*) if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${UNAME_MACHINE}-ibm-aix${IBM_REV} exit ;; *:AIX:2:3) if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include main() { if (!__power_pc()) exit(1); puts("powerpc-ibm-aix3.2.5"); exit(0); } EOF if $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` then echo "$SYSTEM_NAME" else echo rs6000-ibm-aix3.2.5 fi elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then echo rs6000-ibm-aix3.2.4 else echo rs6000-ibm-aix3.2 fi exit ;; *:AIX:*:[4567]) IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then IBM_ARCH=rs6000 else IBM_ARCH=powerpc fi if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${IBM_ARCH}-ibm-aix${IBM_REV} exit ;; *:AIX:*:*) echo rs6000-ibm-aix exit ;; ibmrt:4.4BSD:*|romp-ibm:BSD:*) echo romp-ibm-bsd4.4 exit ;; ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to exit ;; # report: romp-ibm BSD 4.3 *:BOSX:*:*) echo rs6000-bull-bosx exit ;; DPX/2?00:B.O.S.:*:*) echo m68k-bull-sysv3 exit ;; 9000/[34]??:4.3bsd:1.*:*) echo m68k-hp-bsd exit ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) echo m68k-hp-bsd4.4 exit ;; 9000/[34678]??:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` case "${UNAME_MACHINE}" in 9000/31? ) HP_ARCH=m68000 ;; 9000/[34]?? ) HP_ARCH=m68k ;; 9000/[678][0-9][0-9]) if [ -x /usr/bin/getconf ]; then sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` case "${sc_cpu_version}" in 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1 532) # CPU_PA_RISC2_0 case "${sc_kernel_bits}" in 32) HP_ARCH="hppa2.0n" ;; 64) HP_ARCH="hppa2.0w" ;; '') HP_ARCH="hppa2.0" ;; # HP-UX 10.20 esac ;; esac fi if [ "${HP_ARCH}" = "" ]; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #define _HPUX_SOURCE #include #include int main () { #if defined(_SC_KERNEL_BITS) long bits = sysconf(_SC_KERNEL_BITS); #endif long cpu = sysconf (_SC_CPU_VERSION); switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0"); break; case CPU_PA_RISC1_1: puts ("hppa1.1"); break; case CPU_PA_RISC2_0: #if defined(_SC_KERNEL_BITS) switch (bits) { case 64: puts ("hppa2.0w"); break; case 32: puts ("hppa2.0n"); break; default: puts ("hppa2.0"); break; } break; #else /* !defined(_SC_KERNEL_BITS) */ puts ("hppa2.0"); break; #endif default: puts ("hppa1.0"); break; } exit (0); } EOF (CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy` test -z "$HP_ARCH" && HP_ARCH=hppa fi ;; esac if [ ${HP_ARCH} = "hppa2.0w" ] then eval $set_cc_for_build # hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating # 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler # generating 64-bit code. GNU and HP use different nomenclature: # # $ CC_FOR_BUILD=cc ./config.guess # => hppa2.0w-hp-hpux11.23 # $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess # => hppa64-hp-hpux11.23 if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | grep -q __LP64__ then HP_ARCH="hppa2.0w" else HP_ARCH="hppa64" fi fi echo ${HP_ARCH}-hp-hpux${HPUX_REV} exit ;; ia64:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` echo ia64-hp-hpux${HPUX_REV} exit ;; 3050*:HI-UX:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include int main () { long cpu = sysconf (_SC_CPU_VERSION); /* The order matters, because CPU_IS_HP_MC68K erroneously returns true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct results, however. */ if (CPU_IS_PA_RISC (cpu)) { switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; default: puts ("hppa-hitachi-hiuxwe2"); break; } } else if (CPU_IS_HP_MC68K (cpu)) puts ("m68k-hitachi-hiuxwe2"); else puts ("unknown-hitachi-hiuxwe2"); exit (0); } EOF $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } echo unknown-hitachi-hiuxwe2 exit ;; 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) echo hppa1.1-hp-bsd exit ;; 9000/8??:4.3bsd:*:*) echo hppa1.0-hp-bsd exit ;; *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) echo hppa1.0-hp-mpeix exit ;; hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) echo hppa1.1-hp-osf exit ;; hp8??:OSF1:*:*) echo hppa1.0-hp-osf exit ;; i*86:OSF1:*:*) if [ -x /usr/sbin/sysversion ] ; then echo ${UNAME_MACHINE}-unknown-osf1mk else echo ${UNAME_MACHINE}-unknown-osf1 fi exit ;; parisc*:Lites*:*:*) echo hppa1.1-hp-lites exit ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) echo c1-convex-bsd exit ;; C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) echo c34-convex-bsd exit ;; C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) echo c38-convex-bsd exit ;; C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) echo c4-convex-bsd exit ;; CRAY*Y-MP:*:*:*) echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*[A-Z]90:*:*:*) echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \ | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \ -e 's/\.[^.]*$/.X/' exit ;; CRAY*TS:*:*:*) echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*T3E:*:*:*) echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*SV1:*:*:*) echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; *:UNICOS/mp:*:*) echo craynv-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'` echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; 5000:UNIX_System_V:4.*:*) FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/ /_/'` echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} exit ;; sparc*:BSD/OS:*:*) echo sparc-unknown-bsdi${UNAME_RELEASE} exit ;; *:BSD/OS:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit ;; *:FreeBSD:*:*) UNAME_PROCESSOR=`/usr/bin/uname -p` case ${UNAME_PROCESSOR} in amd64) echo x86_64-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; *) echo ${UNAME_PROCESSOR}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; esac exit ;; i*:CYGWIN*:*) echo ${UNAME_MACHINE}-pc-cygwin exit ;; *:MINGW*:*) echo ${UNAME_MACHINE}-pc-mingw32 exit ;; i*:MSYS*:*) echo ${UNAME_MACHINE}-pc-msys exit ;; i*:windows32*:*) # uname -m includes "-pc" on this system. echo ${UNAME_MACHINE}-mingw32 exit ;; i*:PW*:*) echo ${UNAME_MACHINE}-pc-pw32 exit ;; *:Interix*:*) case ${UNAME_MACHINE} in x86) echo i586-pc-interix${UNAME_RELEASE} exit ;; authenticamd | genuineintel | EM64T) echo x86_64-unknown-interix${UNAME_RELEASE} exit ;; IA64) echo ia64-unknown-interix${UNAME_RELEASE} exit ;; esac ;; [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*) echo i${UNAME_MACHINE}-pc-mks exit ;; 8664:Windows_NT:*) echo x86_64-pc-mks exit ;; i*:Windows_NT*:* | Pentium*:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we # UNAME_MACHINE based on the output of uname instead of i386? echo i586-pc-interix exit ;; i*:UWIN*:*) echo ${UNAME_MACHINE}-pc-uwin exit ;; amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*) echo x86_64-unknown-cygwin exit ;; p*:CYGWIN*:*) echo powerpcle-unknown-cygwin exit ;; prep*:SunOS:5.*:*) echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; *:GNU:*:*) # the GNU system echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` exit ;; *:GNU/*:*:*) # other systems with GNU libc and userland echo ${UNAME_MACHINE}-unknown-`echo ${UNAME_SYSTEM} | sed 's,^[^/]*/,,' | tr '[A-Z]' '[a-z]'``echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`-gnu exit ;; i*86:Minix:*:*) echo ${UNAME_MACHINE}-pc-minix exit ;; aarch64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; aarch64_be:Linux:*:*) UNAME_MACHINE=aarch64_be echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; alpha:Linux:*:*) case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in EV5) UNAME_MACHINE=alphaev5 ;; EV56) UNAME_MACHINE=alphaev56 ;; PCA56) UNAME_MACHINE=alphapca56 ;; PCA57) UNAME_MACHINE=alphapca56 ;; EV6) UNAME_MACHINE=alphaev6 ;; EV67) UNAME_MACHINE=alphaev67 ;; EV68*) UNAME_MACHINE=alphaev68 ;; esac objdump --private-headers /bin/sh | grep -q ld.so.1 if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC} exit ;; arm*:Linux:*:*) eval $set_cc_for_build if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_EABI__ then echo ${UNAME_MACHINE}-unknown-linux-gnu else if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_PCS_VFP then echo ${UNAME_MACHINE}-unknown-linux-gnueabi else echo ${UNAME_MACHINE}-unknown-linux-gnueabihf fi fi exit ;; avr32*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; cris:Linux:*:*) echo ${UNAME_MACHINE}-axis-linux-gnu exit ;; crisv32:Linux:*:*) echo ${UNAME_MACHINE}-axis-linux-gnu exit ;; frv:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; hexagon:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; i*86:Linux:*:*) LIBC=gnu eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #ifdef __dietlibc__ LIBC=dietlibc #endif EOF eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^LIBC'` echo "${UNAME_MACHINE}-pc-linux-${LIBC}" exit ;; ia64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; m32r*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; m68*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; mips:Linux:*:* | mips64:Linux:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #undef CPU #undef ${UNAME_MACHINE} #undef ${UNAME_MACHINE}el #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) CPU=${UNAME_MACHINE}el #else #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) CPU=${UNAME_MACHINE} #else CPU= #endif #endif EOF eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^CPU'` test x"${CPU}" != x && { echo "${CPU}-unknown-linux-gnu"; exit; } ;; or32:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; padre:Linux:*:*) echo sparc-unknown-linux-gnu exit ;; parisc64:Linux:*:* | hppa64:Linux:*:*) echo hppa64-unknown-linux-gnu exit ;; parisc:Linux:*:* | hppa:Linux:*:*) # Look for CPU level case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in PA7*) echo hppa1.1-unknown-linux-gnu ;; PA8*) echo hppa2.0-unknown-linux-gnu ;; *) echo hppa-unknown-linux-gnu ;; esac exit ;; ppc64:Linux:*:*) echo powerpc64-unknown-linux-gnu exit ;; ppc:Linux:*:*) echo powerpc-unknown-linux-gnu exit ;; s390:Linux:*:* | s390x:Linux:*:*) echo ${UNAME_MACHINE}-ibm-linux exit ;; sh64*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; sh*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; sparc:Linux:*:* | sparc64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; tile*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; vax:Linux:*:*) echo ${UNAME_MACHINE}-dec-linux-gnu exit ;; x86_64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; xtensa*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; i*86:DYNIX/ptx:4*:*) # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. # earlier versions are messed up and put the nodename in both # sysname and nodename. echo i386-sequent-sysv4 exit ;; i*86:UNIX_SV:4.2MP:2.*) # Unixware is an offshoot of SVR4, but it has its own version # number series starting with 2... # I am not positive that other SVR4 systems won't match this, # I just have to hope. -- rms. # Use sysv4.2uw... so that sysv4* matches it. echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION} exit ;; i*86:OS/2:*:*) # If we were able to find `uname', then EMX Unix compatibility # is probably installed. echo ${UNAME_MACHINE}-pc-os2-emx exit ;; i*86:XTS-300:*:STOP) echo ${UNAME_MACHINE}-unknown-stop exit ;; i*86:atheos:*:*) echo ${UNAME_MACHINE}-unknown-atheos exit ;; i*86:syllable:*:*) echo ${UNAME_MACHINE}-pc-syllable exit ;; i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.[02]*:*) echo i386-unknown-lynxos${UNAME_RELEASE} exit ;; i*86:*DOS:*:*) echo ${UNAME_MACHINE}-pc-msdosdjgpp exit ;; i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*) UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'` if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL} else echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL} fi exit ;; i*86:*:5:[678]*) # UnixWare 7.x, OpenUNIX and OpenServer 6. case `/bin/uname -X | grep "^Machine"` in *486*) UNAME_MACHINE=i486 ;; *Pentium) UNAME_MACHINE=i586 ;; *Pent*|*Celeron) UNAME_MACHINE=i686 ;; esac echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION} exit ;; i*86:*:3.2:*) if test -f /usr/options/cb.name; then UNAME_REL=`sed -n 's/.*Version //p' /dev/null >/dev/null ; then UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ && UNAME_MACHINE=i586 (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \ && UNAME_MACHINE=i686 (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \ && UNAME_MACHINE=i686 echo ${UNAME_MACHINE}-pc-sco$UNAME_REL else echo ${UNAME_MACHINE}-pc-sysv32 fi exit ;; pc:*:*:*) # Left here for compatibility: # uname -m prints for DJGPP always 'pc', but it prints nothing about # the processor, so we play safe by assuming i586. # Note: whatever this is, it MUST be the same as what config.sub # prints for the "djgpp" host, or else GDB configury will decide that # this is a cross-build. echo i586-pc-msdosdjgpp exit ;; Intel:Mach:3*:*) echo i386-pc-mach3 exit ;; paragon:*:*:*) echo i860-intel-osf1 exit ;; i860:*:4.*:*) # i860-SVR4 if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 else # Add other i860-SVR4 vendors below as they are discovered. echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 fi exit ;; mini*:CTIX:SYS*5:*) # "miniframe" echo m68010-convergent-sysv exit ;; mc68k:UNIX:SYSTEM5:3.51m) echo m68k-convergent-sysv exit ;; M680?0:D-NIX:5.3:*) echo m68k-diab-dnix exit ;; M68*:*:R3V[5678]*:*) test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;; 3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0) OS_REL='' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;; 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4; exit; } ;; NCR*:*:4.2:* | MPRAS*:*:4.2:*) OS_REL='.3' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep pteron >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;; m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) echo m68k-unknown-lynxos${UNAME_RELEASE} exit ;; mc68030:UNIX_System_V:4.*:*) echo m68k-atari-sysv4 exit ;; TSUNAMI:LynxOS:2.*:*) echo sparc-unknown-lynxos${UNAME_RELEASE} exit ;; rs6000:LynxOS:2.*:*) echo rs6000-unknown-lynxos${UNAME_RELEASE} exit ;; PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.[02]*:*) echo powerpc-unknown-lynxos${UNAME_RELEASE} exit ;; SM[BE]S:UNIX_SV:*:*) echo mips-dde-sysv${UNAME_RELEASE} exit ;; RM*:ReliantUNIX-*:*:*) echo mips-sni-sysv4 exit ;; RM*:SINIX-*:*:*) echo mips-sni-sysv4 exit ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then UNAME_MACHINE=`(uname -p) 2>/dev/null` echo ${UNAME_MACHINE}-sni-sysv4 else echo ns32k-sni-sysv fi exit ;; PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort # says echo i586-unisys-sysv4 exit ;; *:UNIX_System_V:4*:FTX*) # From Gerald Hewes . # How about differentiating between stratus architectures? -djm echo hppa1.1-stratus-sysv4 exit ;; *:*:*:FTX*) # From seanf@swdc.stratus.com. echo i860-stratus-sysv4 exit ;; i*86:VOS:*:*) # From Paul.Green@stratus.com. echo ${UNAME_MACHINE}-stratus-vos exit ;; *:VOS:*:*) # From Paul.Green@stratus.com. echo hppa1.1-stratus-vos exit ;; mc68*:A/UX:*:*) echo m68k-apple-aux${UNAME_RELEASE} exit ;; news*:NEWS-OS:6*:*) echo mips-sony-newsos6 exit ;; R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) if [ -d /usr/nec ]; then echo mips-nec-sysv${UNAME_RELEASE} else echo mips-unknown-sysv${UNAME_RELEASE} fi exit ;; BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. echo powerpc-be-beos exit ;; BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. echo powerpc-apple-beos exit ;; BePC:BeOS:*:*) # BeOS running on Intel PC compatible. echo i586-pc-beos exit ;; BePC:Haiku:*:*) # Haiku running on Intel PC compatible. echo i586-pc-haiku exit ;; SX-4:SUPER-UX:*:*) echo sx4-nec-superux${UNAME_RELEASE} exit ;; SX-5:SUPER-UX:*:*) echo sx5-nec-superux${UNAME_RELEASE} exit ;; SX-6:SUPER-UX:*:*) echo sx6-nec-superux${UNAME_RELEASE} exit ;; SX-7:SUPER-UX:*:*) echo sx7-nec-superux${UNAME_RELEASE} exit ;; SX-8:SUPER-UX:*:*) echo sx8-nec-superux${UNAME_RELEASE} exit ;; SX-8R:SUPER-UX:*:*) echo sx8r-nec-superux${UNAME_RELEASE} exit ;; Power*:Rhapsody:*:*) echo powerpc-apple-rhapsody${UNAME_RELEASE} exit ;; *:Rhapsody:*:*) echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} exit ;; *:Darwin:*:*) UNAME_PROCESSOR=`uname -p` || UNAME_PROCESSOR=unknown case $UNAME_PROCESSOR in i386) eval $set_cc_for_build if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') | \ (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_64BIT_ARCH >/dev/null then UNAME_PROCESSOR="x86_64" fi fi ;; unknown) UNAME_PROCESSOR=powerpc ;; esac echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE} exit ;; *:procnto*:*:* | *:QNX:[0123456789]*:*) UNAME_PROCESSOR=`uname -p` if test "$UNAME_PROCESSOR" = "x86"; then UNAME_PROCESSOR=i386 UNAME_MACHINE=pc fi echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE} exit ;; *:QNX:*:4*) echo i386-pc-qnx exit ;; NEO-?:NONSTOP_KERNEL:*:*) echo neo-tandem-nsk${UNAME_RELEASE} exit ;; NSE-?:NONSTOP_KERNEL:*:*) echo nse-tandem-nsk${UNAME_RELEASE} exit ;; NSR-?:NONSTOP_KERNEL:*:*) echo nsr-tandem-nsk${UNAME_RELEASE} exit ;; *:NonStop-UX:*:*) echo mips-compaq-nonstopux exit ;; BS2000:POSIX*:*:*) echo bs2000-siemens-sysv exit ;; DS/*:UNIX_System_V:*:*) echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE} exit ;; *:Plan9:*:*) # "uname -m" is not consistent, so use $cputype instead. 386 # is converted to i386 for consistency with other x86 # operating systems. if test "$cputype" = "386"; then UNAME_MACHINE=i386 else UNAME_MACHINE="$cputype" fi echo ${UNAME_MACHINE}-unknown-plan9 exit ;; *:TOPS-10:*:*) echo pdp10-unknown-tops10 exit ;; *:TENEX:*:*) echo pdp10-unknown-tenex exit ;; KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) echo pdp10-dec-tops20 exit ;; XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) echo pdp10-xkl-tops20 exit ;; *:TOPS-20:*:*) echo pdp10-unknown-tops20 exit ;; *:ITS:*:*) echo pdp10-unknown-its exit ;; SEI:*:*:SEIUX) echo mips-sei-seiux${UNAME_RELEASE} exit ;; *:DragonFly:*:*) echo ${UNAME_MACHINE}-unknown-dragonfly`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` exit ;; *:*VMS:*:*) UNAME_MACHINE=`(uname -p) 2>/dev/null` case "${UNAME_MACHINE}" in A*) echo alpha-dec-vms ; exit ;; I*) echo ia64-dec-vms ; exit ;; V*) echo vax-dec-vms ; exit ;; esac ;; *:XENIX:*:SysV) echo i386-pc-xenix exit ;; i*86:skyos:*:*) echo ${UNAME_MACHINE}-pc-skyos`echo ${UNAME_RELEASE}` | sed -e 's/ .*$//' exit ;; i*86:rdos:*:*) echo ${UNAME_MACHINE}-pc-rdos exit ;; i*86:AROS:*:*) echo ${UNAME_MACHINE}-pc-aros exit ;; x86_64:VMkernel:*:*) echo ${UNAME_MACHINE}-unknown-esx exit ;; esac #echo '(No uname command or uname output not recognized.)' 1>&2 #echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2 eval $set_cc_for_build cat >$dummy.c < # include #endif main () { #if defined (sony) #if defined (MIPSEB) /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, I don't know.... */ printf ("mips-sony-bsd\n"); exit (0); #else #include printf ("m68k-sony-newsos%s\n", #ifdef NEWSOS4 "4" #else "" #endif ); exit (0); #endif #endif #if defined (__arm) && defined (__acorn) && defined (__unix) printf ("arm-acorn-riscix\n"); exit (0); #endif #if defined (hp300) && !defined (hpux) printf ("m68k-hp-bsd\n"); exit (0); #endif #if defined (NeXT) #if !defined (__ARCHITECTURE__) #define __ARCHITECTURE__ "m68k" #endif int version; version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; if (version < 4) printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); else printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); exit (0); #endif #if defined (MULTIMAX) || defined (n16) #if defined (UMAXV) printf ("ns32k-encore-sysv\n"); exit (0); #else #if defined (CMU) printf ("ns32k-encore-mach\n"); exit (0); #else printf ("ns32k-encore-bsd\n"); exit (0); #endif #endif #endif #if defined (__386BSD__) printf ("i386-pc-bsd\n"); exit (0); #endif #if defined (sequent) #if defined (i386) printf ("i386-sequent-dynix\n"); exit (0); #endif #if defined (ns32000) printf ("ns32k-sequent-dynix\n"); exit (0); #endif #endif #if defined (_SEQUENT_) struct utsname un; uname(&un); if (strncmp(un.version, "V2", 2) == 0) { printf ("i386-sequent-ptx2\n"); exit (0); } if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ printf ("i386-sequent-ptx1\n"); exit (0); } printf ("i386-sequent-ptx\n"); exit (0); #endif #if defined (vax) # if !defined (ultrix) # include # if defined (BSD) # if BSD == 43 printf ("vax-dec-bsd4.3\n"); exit (0); # else # if BSD == 199006 printf ("vax-dec-bsd4.3reno\n"); exit (0); # else printf ("vax-dec-bsd\n"); exit (0); # endif # endif # else printf ("vax-dec-bsd\n"); exit (0); # endif # else printf ("vax-dec-ultrix\n"); exit (0); # endif #endif #if defined (alliant) && defined (i860) printf ("i860-alliant-bsd\n"); exit (0); #endif exit (1); } EOF $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } # Apollos put the system type in the environment. test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit; } # Convex versions that predate uname can use getsysinfo(1) if [ -x /usr/convex/getsysinfo ] then case `getsysinfo -f cpu_type` in c1*) echo c1-convex-bsd exit ;; c2*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; c34*) echo c34-convex-bsd exit ;; c38*) echo c38-convex-bsd exit ;; c4*) echo c4-convex-bsd exit ;; esac fi cat >&2 < in order to provide the needed information to handle your system. config.guess timestamp = $timestamp 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` /bin/uname -X = `(/bin/uname -X) 2>/dev/null` hostinfo = `(hostinfo) 2>/dev/null` /bin/universe = `(/bin/universe) 2>/dev/null` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` /bin/arch = `(/bin/arch) 2>/dev/null` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` UNAME_MACHINE = ${UNAME_MACHINE} UNAME_RELEASE = ${UNAME_RELEASE} UNAME_SYSTEM = ${UNAME_SYSTEM} UNAME_VERSION = ${UNAME_VERSION} EOF exit 1 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: midgard2-core-10.05.7.1/src/0000775000175000017500000000000011772046331012240 500000000000000midgard2-core-10.05.7.1/src/midgard_query_constraint.c0000664000175000017500000004515311772046240017433 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_constraint.h" #include "midgard_query_property.h" #include "midgard_query_storage.h" #include "midgard_query_holder.h" #include "midgard_query_constraint_simple.h" #include "midgard_dbobject.h" #include "midgard_core_query.h" #include "midgard_core_object_class.h" #include "midgard_core_object.h" #include "midgard_validable.h" struct _MidgardQueryConstraintPrivate { GObject parent; MidgardQueryProperty *property_value; gchar *op; GdaSqlOperatorType op_type; MidgardQueryStorage *storage; MidgardQueryHolder *holder; gboolean is_valid; }; static struct { const gchar *name; GdaSqlOperatorType op_type; } valid_operators[] = { { "=", GDA_SQL_OPERATOR_TYPE_EQ }, { ">", GDA_SQL_OPERATOR_TYPE_GT }, { "<", GDA_SQL_OPERATOR_TYPE_LT }, { "!=", GDA_SQL_OPERATOR_TYPE_DIFF }, { "<>", GDA_SQL_OPERATOR_TYPE_DIFF }, { "<=", GDA_SQL_OPERATOR_TYPE_LEQ }, { ">=", GDA_SQL_OPERATOR_TYPE_GEQ }, { "LIKE", GDA_SQL_OPERATOR_TYPE_LIKE }, { "NOT LIKE", GDA_SQL_OPERATOR_TYPE_GT }, { "IN", GDA_SQL_OPERATOR_TYPE_IN }, { "NOT IN", GDA_SQL_OPERATOR_TYPE_NOTIN }, { NULL, 0 } }; gboolean __query_constraint_operator_is_valid(const gchar *op, GdaSqlOperatorType *op_type) { guint i; for (i = 0; valid_operators[i].name != NULL; i++) { if (g_str_equal(op, valid_operators[i].name)) { if (op_type) *op_type = valid_operators[i].op_type; return TRUE; } } if (valid_operators[i].name == NULL) { g_warning("Invalid comparison operator %s", op); return FALSE; } return TRUE; } /** * midgard_query_constraint_new: * @property: #MidgardQueryProperty instance * @op: constraint operator * @holder: #MidgardQueryHolder instance * @storage: (allow-none): optional #MidgardQueryStorage to use with constraint * * Valid @op operators are: '=', '<', '>', '!=', '<>', '<=', '>=', 'LIKE', 'NOT LIKE', 'IN', 'NOT IN' * * Returns: new #MidgardQueryConstraint instance, or %NULL on failure * Since: 10.05 */ MidgardQueryConstraint * midgard_query_constraint_new (MidgardQueryProperty *property, const gchar *op, MidgardQueryHolder *holder, MidgardQueryStorage *storage) { g_return_val_if_fail (property != NULL, NULL); g_return_val_if_fail (op != NULL, NULL); g_return_val_if_fail (holder != NULL, NULL); GdaSqlOperatorType op_type; if (!__query_constraint_operator_is_valid (op, &op_type)) return NULL; MidgardQueryConstraint *self = g_object_new (MIDGARD_TYPE_QUERY_CONSTRAINT, "property", property, "operator", op, "holder", holder, NULL); /* Allow NULL storage */ if (storage) midgard_query_constraint_set_storage (self, storage); return self; } /** * midgard_query_constraint_get_storage: * @self: #MidgardQueryStorage instance * * Returns: (transfer none): #MidgardQueryStorage associated with constraint or %NULL * Since: 10.05 */ MidgardQueryStorage * midgard_query_constraint_get_storage (MidgardQueryConstraint *self) { g_return_val_if_fail (self != NULL, NULL); return self->priv->storage; } /** * midgard_query_constraint_set_storage: * @self: #MidgardQueryConstraint instance * @storage: (allow-none): #MidgardQueryStorage to associate with @self constraint * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05 */ gboolean midgard_query_constraint_set_storage (MidgardQueryConstraint *self, MidgardQueryStorage *storage) { g_return_val_if_fail (self != NULL, FALSE); if (self->priv->storage) g_object_unref (self->priv->storage); if (!storage) { self->priv->storage = NULL; return TRUE; } g_return_val_if_fail (MIDGARD_IS_QUERY_STORAGE (storage), FALSE); self->priv->storage = g_object_ref (storage); return TRUE; } /** * midgard_query_constraint_get_property: * @self: #MidgardQueryConstraint instance * * Returns: (transfer none): #MidgardQueryProperty associated with @self constraint, or %NULL * Since: 10.05 */ MidgardQueryProperty * midgard_query_constraint_get_property (MidgardQueryConstraint *self) { g_return_val_if_fail (self != NULL, NULL); return self->priv->property_value; } /** * midgard_query_constraint_set_property: * @self: #MidgardQueryConstraint instance * @property: #MidgardQueryProperty to associate with @self constraint * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05 */ gboolean midgard_query_constraint_set_property (MidgardQueryConstraint *self, MidgardQueryProperty *property) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (MIDGARD_IS_QUERY_PROPERTY (property), FALSE); if (self->priv->property_value) g_object_unref (self->priv->property_value); self->priv->property_value = g_object_ref (property); /* set default storage */ if (!self->priv->storage) { MidgardQueryProperty *_p = self->priv->property_value; midgard_query_constraint_set_storage (self, _p->priv->storage); } return TRUE; } /** * midgard_query_constraint_get_operator: * @self: #MidgardQueryConstraint instance * * Returns: operator type associated with @self constraint, or %NULL * Since: 10.05 */ const gchar * midgard_query_constraint_get_operator (MidgardQueryConstraint *self) { g_return_val_if_fail (self != NULL, NULL); return self->priv->op; } /** * midgard_query_constraint_set_operator: * @self: #MidgardQueryConstraint instance * @op: operator to associate with constraint * * Check midgard_query_constraint_new() for valid operator types. * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05 */ gboolean midgard_query_constraint_set_operator (MidgardQueryConstraint *self, const gchar *op) { g_return_val_if_fail (self != NULL, FALSE); GdaSqlOperatorType op_type; if (!__query_constraint_operator_is_valid (op, &op_type)) return FALSE; self->priv->op = g_strdup (op); self->priv->op_type = op_type; return TRUE; } /* GOBJECT ROUTINES */ enum { MIDGARD_QUERY_CONSTRAINT_PROPERTY = 1, MIDGARD_QUERY_CONSTRAINT_OP, MIDGARD_QUERY_CONSTRAINT_HOLDER, MIDGARD_QUERY_CONSTRAINT_STORAGE }; static GObjectClass *parent_class = NULL; MidgardQueryConstraintSimple** _midgard_query_constraint_list_constraints (MidgardQueryConstraintSimple *self, guint *n_objects) { return NULL; } static void __get_expression_value (GdaConnection *cnc, GValue *src, GString *str) { gchar *escaped_string = NULL; switch (G_TYPE_FUNDAMENTAL (G_VALUE_TYPE (src))) { case G_TYPE_STRING: escaped_string = gda_connection_value_to_sql_string(cnc, src); g_string_append_printf (str, "%s", escaped_string); g_free(escaped_string); break; case G_TYPE_UINT: g_string_append_printf (str, "%d", g_value_get_uint (src)); break; case G_TYPE_INT: g_string_append_printf (str, "%d", g_value_get_int (src)); break; case G_TYPE_FLOAT: g_string_append_printf (str, "%.04f", g_value_get_float (src)); break; case G_TYPE_BOOLEAN: g_string_append_printf (str, "%d", g_value_get_boolean (src)); break; case G_TYPE_BOXED: if (G_VALUE_TYPE (src) == G_TYPE_VALUE_ARRAY) { GValueArray *array = (GValueArray *) g_value_get_boxed (src); if (!array) { /* FIXME, add this to validate */ g_warning ("Empty array given"); return; } guint i; for (i = 0; i < array->n_values; i++) { if (i > 0) g_string_append (str, ", "); __get_expression_value (cnc, g_value_array_get_nth (array, i), str); } } else { /*FIXME, add this to validate */ g_warning ("BOXED type '%s' not implemented \n", G_VALUE_TYPE_NAME (src)); } break; default: break; } return; } void _midgard_query_constraint_add_conditions_to_statement (MidgardQueryExecutor *executor, MidgardQueryConstraintSimple *constraint_simple, GdaSqlStatement *stmt, GdaSqlExpr *where_expr_node, GError **error) { MidgardQueryConstraint *self = MIDGARD_QUERY_CONSTRAINT (constraint_simple); GdaConnection *cnc = executor->priv->mgd->priv->connection; MidgardDBObjectClass *dbklass = NULL; if (self->priv->storage && (self->priv->storage != MIDGARD_QUERY_EXECUTOR (executor)->priv->storage)) { dbklass = self->priv->storage->priv->klass; MQE_SET_TABLE_ALIAS (executor, self->priv->storage); } if (!dbklass) dbklass = executor->priv->storage->priv->klass; g_return_if_fail (dbklass != NULL); /* Get table */ //const gchar *table = midgard_core_class_get_table (dbklass); /* Get field name */ GValue field_value = {0, }; midgard_query_holder_get_value (MIDGARD_QUERY_HOLDER (MIDGARD_QUERY_CONSTRAINT (constraint_simple)->priv->property_value), &field_value); GdaSqlStatementSelect *select = stmt->contents; GdaSqlExpr *top_where, *where, *expr; GdaSqlOperation *top_operation, *cond; GValue *value; if (where_expr_node) { top_where = where_expr_node; top_operation = top_where->cond; } else { top_where = select->where_cond; top_operation = top_where->cond; } where = gda_sql_expr_new (GDA_SQL_ANY_PART (top_operation)); top_operation->operands = g_slist_append (top_operation->operands, where); cond = gda_sql_operation_new (GDA_SQL_ANY_PART (where)); where->cond = cond; cond->operator_type = self->priv->op_type; /* Create table_alias.field name */ gchar *table_alias_field; expr = gda_sql_expr_new (GDA_SQL_ANY_PART (cond)); GError *err = NULL; table_alias_field = midgard_core_query_compute_constraint_property (executor, MIDGARD_QUERY_CONSTRAINT (constraint_simple)->priv->storage, g_value_get_string (&field_value), &err); if (err) { g_propagate_error (error, err); return; } g_value_take_string ((value = gda_value_new (G_TYPE_STRING)), table_alias_field); expr->value = value; cond->operands = g_slist_append (cond->operands, expr); expr = gda_sql_expr_new (GDA_SQL_ANY_PART (cond)); g_value_unset (&field_value); /* Create value */ GValue val = {0, }; midgard_query_holder_get_value (MIDGARD_QUERY_CONSTRAINT (constraint_simple)->priv->holder, &val); /*GType v_type = G_VALUE_TYPE (&val); //FIXME, create parameter name::type */ //GValue *dval = gda_value_new (G_TYPE_STRING); //g_value_transform (&val, dval); //expr->param_spec = gda_sql_param_spec_new (dval); //expr->param_spec->g_type = v_type; expr->value = gda_value_new (G_TYPE_STRING); GString *str = g_string_new (""); __get_expression_value (cnc, &val, str); g_value_take_string (expr->value, g_string_free (str, FALSE)); g_value_unset (&val); cond->operands = g_slist_append (cond->operands, expr); /* increase executor's constraints number */ executor->priv->n_constraints++; } static void _midgard_query_constraint_iface_init (MidgardQueryConstraintSimpleIFace *iface) { iface->list_constraints = _midgard_query_constraint_list_constraints; iface->priv = g_new (MidgardQueryConstraintSimplePrivate, 1); iface->priv->add_conditions_to_statement = _midgard_query_constraint_add_conditions_to_statement; return; } static void _midgard_query_constraint_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardQueryConstraint *self = MIDGARD_QUERY_CONSTRAINT (instance); self->priv = g_new (MidgardQueryConstraintPrivate, 1); self->priv->property_value = NULL; self->priv->op = NULL; self->priv->storage = NULL; self->priv->holder = NULL; self->priv->is_valid = FALSE; } /* Validable iface */ static void _midgard_query_constraint_validable_iface_validate (MidgardValidable *iface, GError **error) { g_return_if_fail (iface != NULL); MidgardQueryConstraint *self = MIDGARD_QUERY_CONSTRAINT (iface); self->priv->is_valid = FALSE; /* Property */ if (MIDGARD_IS_VALIDABLE (self->priv->property_value)) { GError *err = NULL; if (!midgard_validable_is_valid (MIDGARD_VALIDABLE (self->priv->property_value))) midgard_validable_validate (MIDGARD_VALIDABLE (self->priv->property_value), &err); if (err) { g_propagate_error (error, err); return; } } /* Storage, TODO */ /* Value, TODO */ /* Operator */ if (!__query_constraint_operator_is_valid (self->priv->op, NULL)) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_TYPE_INVALID, "Invalid operator type '%s'", self->priv->op); return; } MIDGARD_QUERY_CONSTRAINT (self)->priv->is_valid = TRUE; return; } gboolean _midgard_query_constraint_validable_iface_is_valid (MidgardValidable *self) { g_return_val_if_fail (self != NULL, FALSE); return MIDGARD_QUERY_CONSTRAINT (self)->priv->is_valid; } static void _midgard_query_constraint_validable_iface_init (MidgardValidableIFace *iface) { iface->validate = _midgard_query_constraint_validable_iface_validate; iface->is_valid = _midgard_query_constraint_validable_iface_is_valid; } static GObject * _midgard_query_constraint_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_query_constraint_dispose (GObject *object) { parent_class->dispose (object); MidgardQueryConstraint *self = (MidgardQueryConstraint *) object; if (self->priv->property_value) { g_object_unref (self->priv->property_value); self->priv->property_value = NULL; } if (self->priv->storage && G_IS_OBJECT (self->priv->storage)) { g_object_unref (self->priv->storage); self->priv->storage = NULL; } if (self->priv->holder && G_IS_OBJECT (self->priv->holder)) { g_object_unref (self->priv->holder); self->priv->holder = NULL; } } static void _midgard_query_constraint_finalize (GObject *object) { MidgardQueryConstraint *self = MIDGARD_QUERY_CONSTRAINT (object); g_free (self->priv->op); self->priv->op = NULL; g_free (self->priv); self->priv = NULL; parent_class->finalize (object); } static void __midgard_query_constraint_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardQueryConstraint *self = (MidgardQueryConstraint *) object; switch (property_id) { case MIDGARD_QUERY_CONSTRAINT_PROPERTY: g_value_set_object (value, self->priv->property_value); break; case MIDGARD_QUERY_CONSTRAINT_OP: g_value_set_string (value, self->priv->op); break; case MIDGARD_QUERY_CONSTRAINT_HOLDER: g_value_set_object (value, self->priv->holder); break; case MIDGARD_QUERY_CONSTRAINT_STORAGE: g_value_set_object (value, self->priv->storage); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void __midgard_query_constraint_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardQueryConstraint *self = (MidgardQueryConstraint *) (object); GdaSqlOperatorType op_type; gchar *op; switch (property_id) { case MIDGARD_QUERY_CONSTRAINT_PROPERTY: midgard_query_constraint_set_property (self, g_value_get_object (value)); break; case MIDGARD_QUERY_CONSTRAINT_OP: op = (gchar *)g_value_get_string (value); if (__query_constraint_operator_is_valid (op, &op_type)) { g_free (self->priv->op); self->priv->op = g_strdup (op); self->priv->op_type = op_type; } break; case MIDGARD_QUERY_CONSTRAINT_HOLDER: if (self->priv->holder) g_object_unref (self->priv->holder); self->priv->holder = g_value_dup_object (value); break; case MIDGARD_QUERY_CONSTRAINT_STORAGE: midgard_query_constraint_set_storage (self, g_value_get_object (value)); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_query_constraint_class_init (MidgardQueryConstraintClass *klass, gpointer class_data) { GObjectClass *object_class = G_OBJECT_CLASS (klass); parent_class = g_type_class_peek_parent (klass); object_class->constructor = _midgard_query_constraint_constructor; object_class->dispose = _midgard_query_constraint_dispose; object_class->finalize = _midgard_query_constraint_finalize; object_class->set_property = __midgard_query_constraint_set_property; object_class->get_property = __midgard_query_constraint_get_property; /* Properties */ GParamSpec *pspec = g_param_spec_object ("property", "", "", MIDGARD_TYPE_QUERY_PROPERTY, G_PARAM_READWRITE); /** * MidgardQueryConstraint:property: * */ g_object_class_install_property (object_class, MIDGARD_QUERY_CONSTRAINT_PROPERTY, pspec); pspec = g_param_spec_string ("operator", "", "", "", G_PARAM_READWRITE); /** * MidgardQueryConstraint:operator: * */ g_object_class_install_property (object_class, MIDGARD_QUERY_CONSTRAINT_OP, pspec); pspec = g_param_spec_object ("holder", "", "", MIDGARD_TYPE_QUERY_HOLDER, G_PARAM_READWRITE); /** * MidgardQueryConstraint:holder: * */ g_object_class_install_property (object_class, MIDGARD_QUERY_CONSTRAINT_HOLDER, pspec); pspec = g_param_spec_object ("storage", "", "", MIDGARD_TYPE_QUERY_STORAGE, G_PARAM_READWRITE); /** * MidgardQueryConstraint:storage: * */ g_object_class_install_property (object_class, MIDGARD_QUERY_CONSTRAINT_STORAGE, pspec); } GType midgard_query_constraint_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQueryConstraintClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc)_midgard_query_constraint_class_init, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardQueryConstraint), 0, /* n_preallocs */ _midgard_query_constraint_instance_init /* instance_init */ }; static const GInterfaceInfo property_info = { (GInterfaceInitFunc) _midgard_query_constraint_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; static const GInterfaceInfo validable_info = { (GInterfaceInitFunc) _midgard_query_constraint_validable_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardQueryConstraint", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_QUERY_CONSTRAINT_SIMPLE, &property_info); g_type_add_interface_static (type, MIDGARD_TYPE_VALIDABLE, &validable_info); } return type; } midgard2-core-10.05.7.1/src/midgard_object_parameter.h0000664000175000017500000000323711772046240017332 00000000000000/* * Copyright (C) 2006, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_OBJECT_PARAMETER_H #define MIDGARD_OBJECT_PARAMETER_H #include "midgard_object.h" G_BEGIN_DECLS const GValue *midgard_object_get_parameter (MidgardObject *self, const gchar *domain, const gchar *name); gboolean midgard_object_set_parameter (MidgardObject *self, const gchar *domain, const gchar *name, GValue *value); MidgardObject **midgard_object_list_parameters (MidgardObject *self, const gchar *domain); gboolean midgard_object_delete_parameters (MidgardObject *self, guint n_params, const GParameter *parameters); gboolean midgard_object_purge_parameters (MidgardObject *self, guint n_params, const GParameter *parameters); MidgardObject **midgard_object_find_parameters (MidgardObject *self, guint n_params, const GParameter *parameters); gboolean midgard_object_has_parameters (MidgardObject *self); G_END_DECLS #endif /* MIDGARD_OBJECT_PARAMETER_H */ midgard2-core-10.05.7.1/src/midgard_key_config_file.c0000664000175000017500000005241211772046240017132 00000000000000/* midgard_key_config_file.c generated by valac, the Vala compiler * generated from midgard_key_config_file.vala, do not modify */ /* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include #include #include #include #define MIDGARD_TYPE_KEY_CONFIG (midgard_key_config_get_type ()) #define MIDGARD_KEY_CONFIG(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG, MidgardKeyConfig)) #define MIDGARD_KEY_CONFIG_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG, MidgardKeyConfigClass)) #define MIDGARD_IS_KEY_CONFIG(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG)) #define MIDGARD_IS_KEY_CONFIG_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG)) #define MIDGARD_KEY_CONFIG_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG, MidgardKeyConfigClass)) typedef struct _MidgardKeyConfig MidgardKeyConfig; typedef struct _MidgardKeyConfigClass MidgardKeyConfigClass; typedef struct _MidgardKeyConfigPrivate MidgardKeyConfigPrivate; #define MIDGARD_TYPE_KEY_CONFIG_CONTEXT (midgard_key_config_context_get_type ()) #define MIDGARD_KEY_CONFIG_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContext)) #define MIDGARD_KEY_CONFIG_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContextClass)) #define MIDGARD_IS_KEY_CONFIG_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT)) #define MIDGARD_IS_KEY_CONFIG_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG_CONTEXT)) #define MIDGARD_KEY_CONFIG_CONTEXT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContextClass)) typedef struct _MidgardKeyConfigContext MidgardKeyConfigContext; typedef struct _MidgardKeyConfigContextClass MidgardKeyConfigContextClass; #define MIDGARD_TYPE_KEY_CONFIG_FILE (midgard_key_config_file_get_type ()) #define MIDGARD_KEY_CONFIG_FILE(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE, MidgardKeyConfigFile)) #define MIDGARD_KEY_CONFIG_FILE_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG_FILE, MidgardKeyConfigFileClass)) #define MIDGARD_IS_KEY_CONFIG_FILE(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE)) #define MIDGARD_IS_KEY_CONFIG_FILE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG_FILE)) #define MIDGARD_KEY_CONFIG_FILE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE, MidgardKeyConfigFileClass)) typedef struct _MidgardKeyConfigFile MidgardKeyConfigFile; typedef struct _MidgardKeyConfigFileClass MidgardKeyConfigFileClass; typedef struct _MidgardKeyConfigFilePrivate MidgardKeyConfigFilePrivate; #define _g_key_file_free0(var) ((var == NULL) ? NULL : (var = (g_key_file_free (var), NULL))) #define _g_free0(var) (var = (g_free (var), NULL)) #define _g_error_free0(var) ((var == NULL) ? NULL : (var = (g_error_free (var), NULL))) #define MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT (midgard_key_config_file_context_get_type ()) #define MIDGARD_KEY_CONFIG_FILE_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT, MidgardKeyConfigFileContext)) #define MIDGARD_KEY_CONFIG_FILE_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT, MidgardKeyConfigFileContextClass)) #define MIDGARD_IS_KEY_CONFIG_FILE_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT)) #define MIDGARD_IS_KEY_CONFIG_FILE_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT)) #define MIDGARD_KEY_CONFIG_FILE_CONTEXT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT, MidgardKeyConfigFileContextClass)) typedef struct _MidgardKeyConfigFileContext MidgardKeyConfigFileContext; typedef struct _MidgardKeyConfigFileContextClass MidgardKeyConfigFileContextClass; struct _MidgardKeyConfig { GObject parent_instance; MidgardKeyConfigPrivate * priv; char* path; MidgardKeyConfigContext* context; }; struct _MidgardKeyConfigClass { GObjectClass parent_class; void (*set_value) (MidgardKeyConfig* self, const char* group, const char* key, const char* value); char* (*get_value) (MidgardKeyConfig* self, const char* group, const char* key); void (*set_comment) (MidgardKeyConfig* self, const char* group, const char* key, const char* comment); char* (*get_comment) (MidgardKeyConfig* self, const char* group, const char* key); char** (*list_groups) (MidgardKeyConfig* self, int* result_length1); gboolean (*group_exists) (MidgardKeyConfig* self, const char* name); gboolean (*delete_group) (MidgardKeyConfig* self, const char* name); gboolean (*store) (MidgardKeyConfig* self); gboolean (*load_from_data) (MidgardKeyConfig* self, const char* data); char* (*to_data) (MidgardKeyConfig* self); }; struct _MidgardKeyConfigFile { MidgardKeyConfig parent_instance; MidgardKeyConfigFilePrivate * priv; }; struct _MidgardKeyConfigFileClass { MidgardKeyConfigClass parent_class; }; struct _MidgardKeyConfigFilePrivate { GKeyFile* key_file; char* file_path; gboolean file_exists; }; typedef enum { KEY_CONFIG_CONTEXT_ERROR_PATH_IS_NOT_ABSOLUTE } KeyConfigContextError; #define KEY_CONFIG_CONTEXT_ERROR key_config_context_error_quark () static gpointer midgard_key_config_file_parent_class = NULL; #define MIDGARD_CONFIG_EXTENSION ".mcfg" GType midgard_key_config_get_type (void); GType midgard_key_config_context_get_type (void); GType midgard_key_config_file_get_type (void); #define MIDGARD_KEY_CONFIG_FILE_GET_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), MIDGARD_TYPE_KEY_CONFIG_FILE, MidgardKeyConfigFilePrivate)) enum { MIDGARD_KEY_CONFIG_FILE_DUMMY_PROPERTY }; MidgardKeyConfig* midgard_key_config_construct (GType object_type, MidgardKeyConfigContext* keyctx, const char* path); const char* midgard_key_config_context_get_context_path (MidgardKeyConfigContext* self); GQuark key_config_context_error_quark (void); GType midgard_key_config_file_context_get_type (void); MidgardKeyConfigFile* midgard_key_config_file_new (MidgardKeyConfigFileContext* keyctx, const char* path, GError** error); MidgardKeyConfigFile* midgard_key_config_file_construct (GType object_type, MidgardKeyConfigFileContext* keyctx, const char* path, GError** error); static void midgard_key_config_file_real_set_value (MidgardKeyConfig* base, const char* group, const char* key, const char* value); static char* midgard_key_config_file_real_get_value (MidgardKeyConfig* base, const char* group, const char* key); static void midgard_key_config_file_real_set_comment (MidgardKeyConfig* base, const char* group, const char* key, const char* comment); static char* midgard_key_config_file_real_get_comment (MidgardKeyConfig* base, const char* group, const char* key); static char** midgard_key_config_file_real_list_groups (MidgardKeyConfig* base, int* result_length1); static gboolean midgard_key_config_file_real_group_exists (MidgardKeyConfig* base, const char* name); static gboolean midgard_key_config_file_real_delete_group (MidgardKeyConfig* base, const char* name); static gboolean midgard_key_config_file_real_store (MidgardKeyConfig* base); static gboolean midgard_key_config_file_real_load_from_data (MidgardKeyConfig* base, const char* data); static char* midgard_key_config_file_real_to_data (MidgardKeyConfig* base); static void midgard_key_config_file_finalize (GObject* obj); MidgardKeyConfigFile* midgard_key_config_file_construct (GType object_type, MidgardKeyConfigFileContext* keyctx, const char* path, GError** error) { GError * _inner_error_; MidgardKeyConfigFile * self; GKeyFile* _tmp2_; g_return_val_if_fail (keyctx != NULL, NULL); g_return_val_if_fail (path != NULL, NULL); _inner_error_ = NULL; self = (MidgardKeyConfigFile*) midgard_key_config_construct (object_type, (MidgardKeyConfigContext*) keyctx, path); if (g_str_has_suffix (path, MIDGARD_CONFIG_EXTENSION)) { char* _tmp0_; self->priv->file_path = (_tmp0_ = g_build_filename (midgard_key_config_context_get_context_path ((MidgardKeyConfigContext*) keyctx), path, NULL), _g_free0 (self->priv->file_path), _tmp0_); } else { char* _tmp1_; self->priv->file_path = (_tmp1_ = g_build_filename (midgard_key_config_context_get_context_path ((MidgardKeyConfigContext*) keyctx), path, MIDGARD_CONFIG_EXTENSION, NULL), _g_free0 (self->priv->file_path), _tmp1_); } if (!g_path_is_absolute (self->priv->file_path)) { _inner_error_ = g_error_new (KEY_CONFIG_CONTEXT_ERROR, KEY_CONFIG_CONTEXT_ERROR_PATH_IS_NOT_ABSOLUTE, "Absolute paths are not accepted while %s is passed.", self->priv->file_path); if (_inner_error_ != NULL) { if (_inner_error_->domain == KEY_CONFIG_CONTEXT_ERROR) { g_propagate_error (error, _inner_error_); return NULL; } else { g_critical ("file %s: line %d: uncaught error: %s", __FILE__, __LINE__, _inner_error_->message); g_clear_error (&_inner_error_); return NULL; } } } self->priv->key_file = (_tmp2_ = g_key_file_new (), _g_key_file_free0 (self->priv->key_file), _tmp2_); if (g_file_test (self->priv->file_path, G_FILE_TEST_IS_REGULAR)) { self->priv->file_exists = TRUE; { g_key_file_load_from_file (self->priv->key_file, self->priv->file_path, G_KEY_FILE_KEEP_TRANSLATIONS, &_inner_error_); if (_inner_error_ != NULL) { goto __catch2_g_error; goto __finally2; } } goto __finally2; __catch2_g_error: { GError * e; e = _inner_error_; _inner_error_ = NULL; { self->priv->file_exists = FALSE; _g_error_free0 (e); } } __finally2: if (_inner_error_ != NULL) { if (_inner_error_->domain == KEY_CONFIG_CONTEXT_ERROR) { g_propagate_error (error, _inner_error_); return NULL; } else { g_critical ("file %s: line %d: uncaught error: %s", __FILE__, __LINE__, _inner_error_->message); g_clear_error (&_inner_error_); return NULL; } } } return self; } MidgardKeyConfigFile* midgard_key_config_file_new (MidgardKeyConfigFileContext* keyctx, const char* path, GError** error) { return midgard_key_config_file_construct (MIDGARD_TYPE_KEY_CONFIG_FILE, keyctx, path, error); } static void midgard_key_config_file_real_set_value (MidgardKeyConfig* base, const char* group, const char* key, const char* value) { MidgardKeyConfigFile * self; self = (MidgardKeyConfigFile*) base; g_return_if_fail (group != NULL); g_return_if_fail (key != NULL); g_return_if_fail (value != NULL); g_key_file_set_string (self->priv->key_file, group, key, value); } static char* midgard_key_config_file_real_get_value (MidgardKeyConfig* base, const char* group, const char* key) { MidgardKeyConfigFile * self; char* result; GError * _inner_error_; self = (MidgardKeyConfigFile*) base; g_return_val_if_fail (group != NULL, NULL); g_return_val_if_fail (key != NULL, NULL); _inner_error_ = NULL; { gboolean _tmp0_; _tmp0_ = g_key_file_has_key (self->priv->key_file, group, key, &_inner_error_); if (_inner_error_ != NULL) { if (_inner_error_->domain == G_KEY_FILE_ERROR) { goto __catch3_g_key_file_error; } goto __finally3; } if (_tmp0_) { char* _tmp1_; _tmp1_ = g_key_file_get_string (self->priv->key_file, group, key, &_inner_error_); if (_inner_error_ != NULL) { if (_inner_error_->domain == G_KEY_FILE_ERROR) { goto __catch3_g_key_file_error; } goto __finally3; } result = _tmp1_; return result; } } goto __finally3; __catch3_g_key_file_error: { GError * e; e = _inner_error_; _inner_error_ = NULL; { result = NULL; _g_error_free0 (e); return result; } } __finally3: if (_inner_error_ != NULL) { g_critical ("file %s: line %d: uncaught error: %s", __FILE__, __LINE__, _inner_error_->message); g_clear_error (&_inner_error_); return NULL; } result = NULL; return result; } static void midgard_key_config_file_real_set_comment (MidgardKeyConfig* base, const char* group, const char* key, const char* comment) { MidgardKeyConfigFile * self; GError * _inner_error_; self = (MidgardKeyConfigFile*) base; g_return_if_fail (group != NULL); g_return_if_fail (key != NULL); g_return_if_fail (comment != NULL); _inner_error_ = NULL; { g_key_file_set_comment (self->priv->key_file, group, key, comment, &_inner_error_); if (_inner_error_ != NULL) { goto __catch4_g_error; goto __finally4; } } goto __finally4; __catch4_g_error: { GError * e; e = _inner_error_; _inner_error_ = NULL; { g_warning ("midgard_key_config_file.vala:74: Failed to set comment string for key %s, group %s. Error is %s", key, group, e->message); _g_error_free0 (e); } } __finally4: if (_inner_error_ != NULL) { g_critical ("file %s: line %d: uncaught error: %s", __FILE__, __LINE__, _inner_error_->message); g_clear_error (&_inner_error_); return; } } static char* midgard_key_config_file_real_get_comment (MidgardKeyConfig* base, const char* group, const char* key) { MidgardKeyConfigFile * self; char* result; GError * _inner_error_; self = (MidgardKeyConfigFile*) base; g_return_val_if_fail (group != NULL, NULL); g_return_val_if_fail (key != NULL, NULL); _inner_error_ = NULL; { char* _tmp0_; _tmp0_ = g_key_file_get_comment (self->priv->key_file, group, key, &_inner_error_); if (_inner_error_ != NULL) { goto __catch5_g_error; goto __finally5; } result = _tmp0_; return result; } goto __finally5; __catch5_g_error: { /*Error object is not used within catch statement, clear it*/ g_clear_error (&_inner_error_); _inner_error_ = NULL; { result = NULL; return result; } } __finally5: if (_inner_error_ != NULL) { g_critical ("file %s: line %d: uncaught error: %s", __FILE__, __LINE__, _inner_error_->message); g_clear_error (&_inner_error_); return NULL; } } static char** midgard_key_config_file_real_list_groups (MidgardKeyConfig* base, int* result_length1) { MidgardKeyConfigFile * self; char** result; gsize _tmp0_; char** _tmp1_; self = (MidgardKeyConfigFile*) base; result = (_tmp1_ = g_key_file_get_groups (self->priv->key_file, &_tmp0_), *result_length1 = _tmp0_, _tmp1_); return result; } static gboolean midgard_key_config_file_real_group_exists (MidgardKeyConfig* base, const char* name) { MidgardKeyConfigFile * self; gboolean result; self = (MidgardKeyConfigFile*) base; g_return_val_if_fail (name != NULL, FALSE); result = g_key_file_has_group (self->priv->key_file, name); return result; } static gboolean midgard_key_config_file_real_delete_group (MidgardKeyConfig* base, const char* name) { MidgardKeyConfigFile * self; gboolean result; GError * _inner_error_; self = (MidgardKeyConfigFile*) base; g_return_val_if_fail (name != NULL, FALSE); _inner_error_ = NULL; { g_key_file_remove_group (self->priv->key_file, name, &_inner_error_); if (_inner_error_ != NULL) { goto __catch6_g_error; goto __finally6; } result = TRUE; return result; } goto __finally6; __catch6_g_error: { GError * e; e = _inner_error_; _inner_error_ = NULL; { g_warning ("midgard_key_config_file.vala:99: Failed to delete group %s. Error is %s", name, e->message); _g_error_free0 (e); } } __finally6: if (_inner_error_ != NULL) { g_critical ("file %s: line %d: uncaught error: %s", __FILE__, __LINE__, _inner_error_->message); g_clear_error (&_inner_error_); return FALSE; } result = FALSE; return result; } static gboolean midgard_key_config_file_real_store (MidgardKeyConfig* base) { MidgardKeyConfigFile * self; gboolean result; GError * _inner_error_; self = (MidgardKeyConfigFile*) base; _inner_error_ = NULL; if (!self->priv->file_exists) { char* basedir; basedir = g_path_get_dirname (self->priv->file_path); if (!g_file_test (basedir, G_FILE_TEST_IS_DIR)) { gint created; created = g_mkdir_with_parents (basedir, 0750); if (created == (-1)) { result = FALSE; _g_free0 (basedir); return result; } } _g_free0 (basedir); } { char* _tmp0_; gboolean _tmp1_; gboolean _tmp2_; _tmp2_ = (_tmp1_ = g_file_set_contents (self->priv->file_path, _tmp0_ = g_key_file_to_data (self->priv->key_file, NULL, NULL), -1, &_inner_error_), _g_free0 (_tmp0_), _tmp1_); if (_inner_error_ != NULL) { goto __catch7_g_error; goto __finally7; } result = _tmp2_; return result; } goto __finally7; __catch7_g_error: { /*Error object is not used within catch statement, clear it*/ g_clear_error (&_inner_error_); _inner_error_ = NULL; { result = FALSE; return result; } } __finally7: if (_inner_error_ != NULL) { g_critical ("file %s: line %d: uncaught error: %s", __FILE__, __LINE__, _inner_error_->message); g_clear_error (&_inner_error_); return FALSE; } } static glong string_get_length (const char* self) { glong result; g_return_val_if_fail (self != NULL, 0L); result = g_utf8_strlen (self, -1); return result; } static gboolean midgard_key_config_file_real_load_from_data (MidgardKeyConfig* base, const char* data) { MidgardKeyConfigFile * self; gboolean result; GError * _inner_error_; self = (MidgardKeyConfigFile*) base; g_return_val_if_fail (data != NULL, FALSE); _inner_error_ = NULL; if (self->priv->file_exists) { result = FALSE; return result; } { gboolean _tmp0_; _tmp0_ = g_key_file_load_from_data (self->priv->key_file, data, (gulong) string_get_length (data), G_KEY_FILE_KEEP_TRANSLATIONS, &_inner_error_); if (_inner_error_ != NULL) { goto __catch8_g_error; goto __finally8; } result = _tmp0_; return result; } goto __finally8; __catch8_g_error: { /*Error object is not used within catch statement, clear it*/ g_clear_error (&_inner_error_); _inner_error_ = NULL; { result = FALSE; return result; } } __finally8: if (_inner_error_ != NULL) { g_critical ("file %s: line %d: uncaught error: %s", __FILE__, __LINE__, _inner_error_->message); g_clear_error (&_inner_error_); return FALSE; } } static char* midgard_key_config_file_real_to_data (MidgardKeyConfig* base) { MidgardKeyConfigFile * self; char* result; self = (MidgardKeyConfigFile*) base; if (!self->priv->file_exists) { result = NULL; return result; } result = g_key_file_to_data (self->priv->key_file, NULL, NULL); return result; } static void midgard_key_config_file_class_init (MidgardKeyConfigFileClass * klass) { midgard_key_config_file_parent_class = g_type_class_peek_parent (klass); g_type_class_add_private (klass, sizeof (MidgardKeyConfigFilePrivate)); MIDGARD_KEY_CONFIG_CLASS (klass)->set_value = midgard_key_config_file_real_set_value; MIDGARD_KEY_CONFIG_CLASS (klass)->get_value = midgard_key_config_file_real_get_value; MIDGARD_KEY_CONFIG_CLASS (klass)->set_comment = midgard_key_config_file_real_set_comment; MIDGARD_KEY_CONFIG_CLASS (klass)->get_comment = midgard_key_config_file_real_get_comment; MIDGARD_KEY_CONFIG_CLASS (klass)->list_groups = midgard_key_config_file_real_list_groups; MIDGARD_KEY_CONFIG_CLASS (klass)->group_exists = midgard_key_config_file_real_group_exists; MIDGARD_KEY_CONFIG_CLASS (klass)->delete_group = midgard_key_config_file_real_delete_group; MIDGARD_KEY_CONFIG_CLASS (klass)->store = midgard_key_config_file_real_store; MIDGARD_KEY_CONFIG_CLASS (klass)->load_from_data = midgard_key_config_file_real_load_from_data; MIDGARD_KEY_CONFIG_CLASS (klass)->to_data = midgard_key_config_file_real_to_data; G_OBJECT_CLASS (klass)->finalize = midgard_key_config_file_finalize; } static void midgard_key_config_file_instance_init (MidgardKeyConfigFile * self) { self->priv = MIDGARD_KEY_CONFIG_FILE_GET_PRIVATE (self); self->priv->key_file = NULL; self->priv->file_path = NULL; self->priv->file_exists = FALSE; } static void midgard_key_config_file_finalize (GObject* obj) { MidgardKeyConfigFile * self; self = MIDGARD_KEY_CONFIG_FILE (obj); _g_key_file_free0 (self->priv->key_file); _g_free0 (self->priv->file_path); G_OBJECT_CLASS (midgard_key_config_file_parent_class)->finalize (obj); } GType midgard_key_config_file_get_type (void) { static volatile gsize midgard_key_config_file_type_id__volatile = 0; if (g_once_init_enter (&midgard_key_config_file_type_id__volatile)) { static const GTypeInfo g_define_type_info = { sizeof (MidgardKeyConfigFileClass), (GBaseInitFunc) NULL, (GBaseFinalizeFunc) NULL, (GClassInitFunc) midgard_key_config_file_class_init, (GClassFinalizeFunc) NULL, NULL, sizeof (MidgardKeyConfigFile), 0, (GInstanceInitFunc) midgard_key_config_file_instance_init, NULL }; GType midgard_key_config_file_type_id; midgard_key_config_file_type_id = g_type_register_static (MIDGARD_TYPE_KEY_CONFIG, "MidgardKeyConfigFile", &g_define_type_info, 0); g_once_init_leave (&midgard_key_config_file_type_id__volatile, midgard_key_config_file_type_id); } return midgard_key_config_file_type_id__volatile; } midgard2-core-10.05.7.1/src/uuid.h0000664000175000017500000000174111772046240013301 00000000000000/* * Copyright (C) 2005 Jukka Zitting * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_UUID_H #define MIDGARD_UUID_H #include gboolean midgard_is_uuid (const gchar *uuid); gchar *midgard_uuid_new (void); gchar *midgard_uuid_external (const gchar *external); #endif midgard2-core-10.05.7.1/src/midgard_storage.c0000664000175000017500000002176711772046240015473 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include #include "midgard_defs.h" #include "midgard_storage.h" #include "midgard_core_object.h" #include "midgard_core_query.h" #include "midgard_user.h" #include "midgard_core_connection.h" #include "midgard_core_metadata.h" #include "midgard_replicator.h" #include "midgard_core_workspace.h" #define ADMIN_USER_GUID "f4edf43cc32a11deb15c11e64583ae10ae10" #define ADMIN_USER_LOGIN "admin" #define ADMIN_USER_PASSWORD "password" #define ADMIN_PERSON_GUID "f6b665f1984503790ed91f39b11b5392" #define ADMIN_PERSON_CREATED "1999-05-18 14:40:01" #define ADMIN_PERSON_FIRSTNAME "Midgard" #define ADMIN_PERSON_LASTNAME "Administrator" #define DEFAULT_AUTH_TYPE "Plaintext" struct _MidgardStorage { GObject parent; }; struct _MidgardStorageClass { GObjectClass parent; }; /** * midgard_storage_create_base_storage: * @mgd: #MidgardConnection instance * * Creates storage for base Midgard classes. * Tables created by this method: repligard, midgard_user and midgard_person. * * Returns: %TRUE if tables has been created, %FALSE otherwise. * * Since: 9.09 */ gboolean midgard_storage_create_base_storage(MidgardConnection *mgd) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(mgd->priv->connection != NULL, FALSE); gboolean ret = midgard_core_query_create_basic_db(mgd); if(!ret) return FALSE; /* Create midgard_user storage */ midgard_storage_create (mgd, g_type_name (MIDGARD_TYPE_USER)); GString *query = g_string_new ("SELECT id from midgard_user where guid = "); g_string_append_printf (query, "'%s'", ADMIN_USER_GUID); const gchar *sql = query->str; GdaDataModel *model = midgard_core_query_get_model(mgd, sql); guint ret_rows = 0; if(model) ret_rows = gda_data_model_get_n_rows(model); if(!model || ret_rows == 0) { /* Enable admin login */ GString *query = g_string_new ("INSERT INTO midgard_user (login, password, user_type, auth_type, auth_type_id, guid, person_guid, active) "); g_string_append_printf (query, "VALUES ('%s', '%s', %d, '%s', %d, '%s', '%s', ##active::boolean)", ADMIN_USER_LOGIN, ADMIN_USER_PASSWORD, MIDGARD_USER_TYPE_ADMIN, DEFAULT_AUTH_TYPE, midgard_core_auth_type_id_from_name (mgd, DEFAULT_AUTH_TYPE), ADMIN_USER_GUID, ADMIN_PERSON_GUID); sql = query->str; midgard_core_query_execute_statement (mgd, sql, FALSE, "active", "TRUE", NULL); g_string_free (query, TRUE); } /* quota table */ midgard_storage_create (mgd, "midgard_quota"); /* person table */ midgard_storage_create (mgd, "midgard_person"); sql = "SELECT lastname, firstname FROM person WHERE guid='f6b665f1984503790ed91f39b11b5392'"; model = midgard_core_query_get_model(mgd, sql); if(model) ret_rows = gda_data_model_get_n_rows(model); if(!model || ret_rows == 0) { MidgardObject *person = midgard_object_new (mgd, "midgard_person", NULL); /* guid */ g_free ((gchar *)MGD_OBJECT_GUID (person)); MGD_OBJECT_GUID (person) = g_strdup (ADMIN_PERSON_GUID); /* lastname and firstname */ g_object_set (G_OBJECT (person), "lastname", ADMIN_PERSON_LASTNAME, "firstname", ADMIN_PERSON_FIRSTNAME, NULL); /* metadata creator */ GValue val = {0, }; g_value_init (&val, G_TYPE_STRING); g_value_set_string (&val, ADMIN_PERSON_GUID); midgard_core_metadata_set_creator (MGD_DBOBJECT_METADATA (person), &val); g_value_unset (&val); //midgard_object_create (person); /* metadata created */ g_value_init (&val, G_TYPE_STRING); g_value_set_string (&val, ADMIN_PERSON_CREATED); midgard_core_metadata_set_created (MGD_DBOBJECT_METADATA (person), &val); g_value_unset (&val); midgard_replicator_import_object (MIDGARD_DBOBJECT (person), TRUE); } if(model) g_object_unref(model); /* workspace table */ midgard_storage_create (mgd, "MidgardWorkspace"); return TRUE; } /** * midgard_storage_create: * @mgd: #MidgardConnection instance * @name: name of #MidgardDBObject derived class * * Creates underlying storage (e.g. table in database) for class which is identified by given @name. * It may be class which represents any underlying storage type (database table or view, for example). * * If underlying storage already exists, this method silently ignore creation * and returns %TRUE. Such case is not considered an error. * * This method also creates metadata storage if given class uses such. * * Indexes are created if: * * * property is a link type * * * property is linked to another property * * * property is either parent or up * * * property holds guid value * * * * Auto increment (and primary key ) field is created if property is defined * as primaryproperty, and it's integer ( or unsigned one ) type * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_storage_create (MidgardConnection *mgd, const gchar *name) { g_return_val_if_fail (mgd != NULL, FALSE); g_return_val_if_fail (name != NULL, FALSE); MidgardDBObjectClass *klass = g_type_class_peek (g_type_from_name (name)); if (!MIDGARD_IS_DBOBJECT_CLASS (klass)) { g_warning ("Expected DBObject derived instance. '%s' given", name); return FALSE; } if (klass->dbpriv->create_storage == NULL) return FALSE; return klass->dbpriv->create_storage(mgd, klass); } /** * midgard_storage_update: * @mgd: #MidgardConnection instance * @name: Name of #MidgardDBObjectClass derived class. * * Update underlying storage. * * This method doesn't create storage. It creates new columns if are defined * for class properties and do not exist in storage yet. * * See midgard_storage_create() if you need more info about indexes. * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_storage_update (MidgardConnection *mgd, const gchar *name) { g_return_val_if_fail (mgd != NULL, FALSE); g_return_val_if_fail (name != NULL, FALSE); MidgardDBObjectClass *klass = g_type_class_peek (g_type_from_name (name)); if (!MIDGARD_IS_DBOBJECT_CLASS (klass)) { g_warning ("Expected DBObject derived instance. '%s' given", name); return FALSE; } if (klass->dbpriv->update_storage == NULL) return FALSE; return klass->dbpriv->update_storage(mgd, klass); } /** * midgard_storage_exists: * @mgd: #MidgardConnection instance * @name: Name of #MidgardDBObjectClass derived class * * Checks whether storage for given class exists. * * Returns: %TRUE if storage exists, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_storage_exists (MidgardConnection *mgd, const gchar *name) { g_return_val_if_fail (mgd != NULL, FALSE); g_return_val_if_fail (name != NULL, FALSE); MidgardDBObjectClass *klass = g_type_class_peek (g_type_from_name (name)); if (!MIDGARD_IS_DBOBJECT_CLASS (klass)) { g_warning ("Expected DBObject derived instance. '%s' given", name); return FALSE; } if (klass->dbpriv->storage_exists == NULL) return FALSE; return klass->dbpriv->storage_exists(mgd, klass); } /** * midgard_storage_delete: * @mgd: #MidgardConnection instance * @name: name of #MidgardDBObjectClass derived class. * * Delete storage for given class. * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_storage_delete (MidgardConnection *mgd, const gchar *name) { g_return_val_if_fail (mgd != NULL, FALSE); g_return_val_if_fail (name != NULL, FALSE); MidgardDBObjectClass *klass = g_type_class_peek (g_type_from_name (name)); if (!MIDGARD_IS_DBOBJECT_CLASS (klass)) { g_warning ("Expected DBObject derived instance. '%s' given", name); return FALSE; } if (klass->dbpriv->delete_storage == NULL) return FALSE; return klass->dbpriv->delete_storage(mgd, klass); } /* OBJECT ROUTINES */ GType midgard_storage_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardStorageClass), NULL, /* base_init */ NULL, /* base_finalize */ NULL, /* class init */ NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardStorage), 0, /* n_preallocs */ NULL }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardStorage", &info, 0); } return type; } midgard2-core-10.05.7.1/src/midgard_user.c0000664000175000017500000014163711772046240015004 00000000000000/* * Copyright (C) 2007, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "config.h" #include /* stddef included due to bug in openssl package. * In theory 0.9.8g fix this, but on some systems stddef is not included. * Remove this include when stddef is included in openssl dev headers. */ #include #include "midgard_md5.h" #include "midgard_core_query.h" #include "midgard_core_object.h" #include "midgard_dbobject.h" #include "midgard_core_query.h" #include "midgard_user.h" #include "midgard_error.h" #include "midgard_replicator.h" #include "guid.h" #include "midgard_core_object_class.h" #include "midgard_core_connection.h" #include "midgard_query_value.h" #include "midgard_query_constraint.h" #include "midgard_query_constraint_group.h" #include "midgard_query_select.h" #include "midgard_executable.h" #if HAVE_CRYPT_H # include #else # define _XOPEN_SOURCE # include #endif /* declarations for virtual methods */ MidgardUser *__midgard_user_get (MidgardConnection *mgd, guint n_params, const GParameter *parameters); MidgardUser **__midgard_user_query (MidgardConnection *mgd, guint n_params, const GParameter *parameters); gboolean __midgard_user_create (MidgardUser *self); gboolean __midgard_user_update (MidgardUser *self); gboolean __midgard_user_delete (MidgardUser *self); gboolean __midgard_user_is_user (MidgardUser *self); gboolean __midgard_user_is_admin (MidgardUser *self); MidgardObject *__midgard_user_get_person (MidgardUser *self); gboolean __midgard_user_set_person (MidgardUser *self, MidgardObject *person); gboolean __midgard_user_login (MidgardUser *self); gboolean __midgard_user_logout (MidgardUser *self); struct _MidgardUserPrivate { MidgardObject *person; gchar *person_guid; guint user_type; gchar *login; gchar *password; gboolean active; guint auth_type_id; gchar *auth_type; gboolean fetched; gboolean is_logged; }; #define MIDGARD_USER_TABLE "midgard_user" #define MIDGARD_USER_PROP_LOGIN "login" #define MIDGARD_USER_PROP_AUTHTYPE "authtype" #define MIDGARD_USER_PROP_GUID "guid" /* MidgardUser object properties */ enum { MIDGARD_USER_GUID = 1, MIDGARD_USER_LOGIN, MIDGARD_USER_PASS, MIDGARD_USER_ACTIVE, MIDGARD_USER_AUTH_TYPE, MIDGARD_USER_AUTH_TYPE_ID, MIDGARD_USER_TYPE, MIDGARD_USER_PERSON_GUID }; static GObjectClass *__parent_class= NULL; /** * midgard_user_new: * @mgd: #MidgardConnection instance * @n_params: number of parameters * @parameters: #GParameter with #MidgardUser properties * * @parameters and @n_params arguments are optional. midgard_user_get() will be invoked * in constructor if @parameters argument will be set to not %NULL value. * * Returns: #MidgardUser object or %NULL on failure */ MidgardUser * midgard_user_new (MidgardConnection *mgd, guint n_params, const GParameter *parameters) { g_return_val_if_fail (mgd != NULL, NULL); if (parameters && n_params > 0) { MidgardUserClass *klass = g_type_class_peek (MIDGARD_TYPE_USER); return klass->get (mgd, n_params, parameters); } MidgardUser *self = g_object_new (MIDGARD_TYPE_USER, "connection", mgd, NULL); return self; } static gboolean __validate_parameters (MidgardConnection *mgd, guint n_params, const GParameter *parameters, guint valid) { guint i; const gchar *pname; gint pvalid = 0; for (i = 0; i < n_params; i++) { pname = parameters[i].name; if (g_str_equal (pname, MIDGARD_USER_PROP_LOGIN) || g_str_equal (pname, MIDGARD_USER_PROP_AUTHTYPE) || g_str_equal (pname, MIDGARD_USER_PROP_GUID)) pvalid++; } if (pvalid < valid) { MIDGARD_ERRNO_SET (mgd, MGD_ERR_INVALID_PROPERTY_VALUE); return FALSE; } return TRUE; } static GParameter * __convert_to_storage_parameters (MidgardConnection *mgd, guint n_params, const GParameter *parameters, MidgardUserClass *klass, GValue idval) { GParameter *tbl_params = g_new0 (GParameter, n_params); guint i; const gchar *pname; for (i = 0; i < n_params; i++ ) { pname = parameters[i].name; GParamSpec *pspec = g_object_class_find_property(G_OBJECT_CLASS(klass), pname); if (pspec) { if (g_str_equal (pspec->name, "authtype")) { tbl_params[i].name = "auth_type_id"; /* Validate authentication type */ guint id = midgard_core_auth_type_id_from_name (mgd, g_value_get_string ((const GValue *)¶meters[i].value)); if (id == 0) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Unknown authentication type"); g_free (tbl_params); return NULL; } g_value_set_uint (&idval, id); tbl_params[i].value = idval; } else { tbl_params[i].value = parameters[i].value; tbl_params[i].name = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (klass), pname); } } } return tbl_params; } /** * midgard_user_get: * @mgd: #MidgardConnection instance * @n_params: number of parameters * @parameters: #GParameter with #MidgardUser properties * * Fetch #MidgardUser object from storage. * At least 'login' and 'authtype' property are required to be set in parameters. * * Cases to return %NULL: * * * 'login' or 'authtype' properties do not exist in given parameters (MGD_ERR_INVALID_PROPERTY_VALUE) * * * There's no user object which match given parameters (MGD_ERR_NOT_EXISTS) * * * More than one record found in database (MGD_ERR_INTERNAL) * * * * Returns: (transfer full): new #MidgardUser instance or %NULL in case of failure * * Since 9.09 */ MidgardUser * midgard_user_get (MidgardConnection *mgd, guint n_params, const GParameter *parameters) { MidgardUserClass *klass = g_type_class_peek (MIDGARD_TYPE_USER); return klass->get (mgd, n_params, parameters); } MidgardUser * __midgard_user_get (MidgardConnection *mgd, guint n_params, const GParameter *parameters) { g_return_val_if_fail (mgd != NULL, NULL); g_return_val_if_fail (parameters != NULL, NULL); MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); MidgardUserClass *klass = g_type_class_peek (MIDGARD_TYPE_USER); /* Validate properties and find required ones */ if (!__validate_parameters(mgd, n_params, parameters, 2)) return NULL; /* Create new parameters. We need to pass column names instead of properties */ GValue idval = {0, }; g_value_init (&idval, G_TYPE_UINT); GParameter *tbl_params = __convert_to_storage_parameters (mgd, n_params, parameters, klass, idval); if (!tbl_params) { g_value_unset (&idval); return NULL; } GdaDataModel *model = midgard_core_query_get_dbobject_model (mgd, MIDGARD_DBOBJECT_CLASS (klass), n_params, tbl_params); g_free (tbl_params); g_value_unset (&idval); if (!model) { MIDGARD_ERRNO_SET (mgd, MGD_ERR_NOT_EXISTS); return NULL; } guint rows = gda_data_model_get_n_rows(model); if (rows > 1) { g_warning ("midgard_user storage inconsistency. Found %d records. Expected one.", rows); MIDGARD_ERRNO_SET (mgd, MGD_ERR_INTERNAL); } if(rows == 0) { MIDGARD_ERRNO_SET (mgd, MGD_ERR_NOT_EXISTS); g_object_unref(model); return NULL; } MidgardUser *self = g_object_new (MIDGARD_TYPE_USER, "connection", mgd, NULL); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->__set_from_sql (MIDGARD_DBOBJECT (self), model, 0); g_object_unref (model); return self; } /** * midgard_user_query: * @mgd: #MidgardConnection instance * @n_params: number of parameters * @parameters: #GParameter with #MidgardUser properties * * Fetch #MidgardUser objects from storage. * At least 'login' and 'authtype' property are required to be set in parameters. * * Cases to return %NULL: * * * There are no user objects which match given parameters (MGD_ERR_NOT_EXISTS) * * * * Returned array should be freed (g_free()) when no longer needed. * * Returns: (transfer full): newly allocated and NULL terminated array of #MidgardUser objects or %NULL * * Since 9.09 */ MidgardUser ** midgard_user_query (MidgardConnection *mgd, guint n_params, const GParameter *parameters) { MidgardUserClass *klass = g_type_class_peek (MIDGARD_TYPE_USER); return klass->query (mgd, n_params, parameters); } MidgardUser ** __midgard_user_query (MidgardConnection *mgd, guint n_params, const GParameter *parameters) { g_return_val_if_fail (mgd != NULL, NULL); g_return_val_if_fail (parameters != NULL, NULL); MidgardUser **result = NULL; if (n_params == 0) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Expected one parameter (at least) to get user object"); return result; } MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); guint i; GSList *constraints = NULL; GSList *objects_list = NULL; MidgardUserClass *klass = g_type_class_peek (MIDGARD_TYPE_USER); for (i = 0; i < n_params; i++) { MidgardQueryProperty *mqp = midgard_query_property_new (parameters[i].name, NULL); objects_list = g_slist_prepend (objects_list, (gpointer) mqp); MidgardQueryValue *mqv = midgard_query_value_create_with_value (((const GValue *) ¶meters[i].value)); objects_list = g_slist_prepend (objects_list, (gpointer) mqv); MidgardQueryConstraint *mqc = midgard_query_constraint_new (mqp, "=", MIDGARD_QUERY_HOLDER (mqv), NULL); objects_list = g_slist_prepend (objects_list, (gpointer) mqc); constraints = g_slist_prepend (constraints, mqc); } /* We need either group or one constraint */ MidgardQueryConstraintSimple *constraint = NULL; GSList *l = NULL; if (g_slist_length (constraints) > 1) { MidgardQueryConstraintGroup *cgroup = midgard_query_constraint_group_new (); for (l = constraints; l != NULL; l = l->next) { midgard_query_constraint_group_add_constraint (cgroup, (MidgardQueryConstraintSimple *) l->data); } constraint = (MidgardQueryConstraintSimple*) cgroup; } else { constraint = (MidgardQueryConstraintSimple *) constraints->data; } g_slist_free (constraints); MidgardQueryStorage *storage = midgard_query_storage_new (g_type_name (MIDGARD_TYPE_USER)); MidgardQuerySelect *select = midgard_query_select_new (mgd, storage); midgard_query_executor_set_constraint (MIDGARD_QUERY_EXECUTOR (select), constraint); midgard_query_select_toggle_read_only (select, FALSE); GError *err = NULL; midgard_executable_execute (MIDGARD_EXECUTABLE (select), &err); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to query user. %s", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); goto free_objects_and_return; } guint n_objects; result = (MidgardUser **) midgard_query_select_list_objects (select, &n_objects); free_objects_and_return: for (l = objects_list; l != NULL; l = l->next) { g_object_unref ((GObject*) l->data); } g_slist_free (objects_list); g_object_unref (storage); g_object_unref (select); return result; } /** * midgard_user_create: * @self: #MidgardUser instance * * Creates database record for given user. * * Cases to return %FALSE: * * * User with such login and authentication type already exists ( MGD_ERR_DUPLICATE ) * * * User's guid is already set ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * 'authtype' property is empty or NULL ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * 'authtype' property value is invalid ( MGD_ERR_INTERNAL ) * * * * Returns: %TRUE on success, %FALSE otherwise * * Since: 9.09 */ gboolean midgard_user_create (MidgardUser *self) { g_return_val_if_fail (self != NULL, FALSE); MidgardUserClass *klass = MIDGARD_USER_GET_CLASS (self); return klass->create (self); } gboolean __midgard_user_create (MidgardUser *self) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (MIDGARD_IS_USER (self), FALSE); MidgardConnection *mgd = MGD_OBJECT_CNC (self); const gchar *guid = MGD_OBJECT_GUID (self); g_return_val_if_fail (mgd != NULL, FALSE); MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); /* Validate guid */ if (guid || (guid && !midgard_is_guid (guid))) { MIDGARD_ERRNO_SET (mgd, MGD_ERR_INVALID_PROPERTY_VALUE); return FALSE; } /* Validate auth type */ gchar *auth_type; GValue aval = {0, }; g_value_init (&aval, G_TYPE_STRING); g_object_get_property (G_OBJECT (self), "authtype", &aval); auth_type = (gchar *) g_value_get_string (&aval); if (auth_type == NULL || (auth_type && *auth_type == '\0')) { g_value_unset (&aval); MIDGARD_ERRNO_SET (mgd, MGD_ERR_INVALID_PROPERTY_VALUE); return FALSE; } guint id = midgard_core_auth_type_id_from_name (mgd, auth_type); if (id == 0) { g_value_unset (&aval); MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Unknown authentication type"); return FALSE; } self->priv->auth_type_id = id; /* Create parameters to get user */ GValue lval = {0, }; g_value_init (&lval, G_TYPE_STRING); g_object_get_property (G_OBJECT (self), "login", &lval); GParameter *parameters = g_new0 (GParameter, 2); parameters[0].name = "login"; parameters[0].value = lval; parameters[1].name = "authtype"; parameters[1].value = aval; /* Check if user with given login and authtype already exists */ MidgardUser *user = midgard_user_get (mgd, 2, (const GParameter *) parameters); /* Reset error, it might be changed by midgard_user_get */ MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); g_free (parameters); g_value_unset (&aval); g_value_unset (&lval); if (user) { g_object_unref (user); MIDGARD_ERRNO_SET (mgd, MGD_ERR_DUPLICATE); return FALSE; } /* Set correct auth type id */ /* Create record */ MIDGARD_DBOBJECT (self)->dbpriv->guid = midgard_guid_new (mgd); if (midgard_core_query_create_dbobject_record (MIDGARD_DBOBJECT (self))) return TRUE; g_free ( (gchar *)MIDGARD_DBOBJECT (self)->dbpriv->guid); MIDGARD_DBOBJECT (self)->dbpriv->guid = NULL; MIDGARD_ERRNO_SET (mgd, MGD_ERR_INTERNAL); return FALSE; } /** * midgard_user_update: * @self: #MidgardUser instance * * Updates user storage record * * Cases to return %FALSE: * * * User with such login and authentication type already exists ( MGD_ERR_DUPLICATE ) * * * User's guid is not set ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * 'authtype' property is empty or NULL ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * User record hasn't been found ( MGD_ERR_INTERNAL ) * * * Failed to update storage record ( MGD_ERR_INTERNAL ) * * * 'authtype' property value is invalid ( MGD_ERR_INTERNAL ) * * * * Returns: %TRUE on success, %FALSE otherwise * * Since: 9.09 */ gboolean midgard_user_update (MidgardUser *self) { g_return_val_if_fail (self != NULL, FALSE); MidgardUserClass *klass = MIDGARD_USER_GET_CLASS (self); return klass->update (self); } gboolean __midgard_user_update (MidgardUser *self) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (MIDGARD_IS_USER (self), FALSE); MidgardConnection *mgd = MGD_OBJECT_CNC (self); const gchar *guid = MGD_OBJECT_GUID (self); g_return_val_if_fail (mgd != NULL, FALSE); MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); /* Validate guid */ if (!guid || (*guid && *guid == '\0') || (guid && !midgard_is_guid (guid))) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INVALID_PROPERTY_VALUE, "Invalid guid value"); return FALSE; } /* Validate auth type */ gchar *auth_type; GValue aval = {0, }; g_value_init (&aval, G_TYPE_STRING); g_object_get_property (G_OBJECT (self), "authtype", &aval); auth_type = (gchar *) g_value_get_string (&aval); if (auth_type == NULL || (auth_type && *auth_type == '\0')) { g_value_unset (&aval); MIDGARD_ERRNO_SET (mgd, MGD_ERR_INVALID_PROPERTY_VALUE); return FALSE; } guint id = midgard_core_auth_type_id_from_name (mgd, auth_type); if (id == 0) { g_value_unset (&aval); MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Unknown authentication type"); return FALSE; } self->priv->auth_type_id = id; /* Create parameters to get user */ GValue lval = {0, }; g_value_init (&lval, G_TYPE_STRING); g_object_get_property (G_OBJECT (self), MIDGARD_USER_PROP_LOGIN, &lval); guint np = 2; GParameter *parameters = g_new0 (GParameter, np); parameters[0].name = MIDGARD_USER_PROP_LOGIN; parameters[0].value = lval; parameters[1].name = "authtype"; parameters[1].value = aval; /* Check if user with given guid and authtype already exists */ MidgardUser *user = midgard_user_get (mgd, np, (const GParameter *) parameters); /* Reset error, it might be changed by midgard_user_get */ MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); g_free (parameters); g_value_unset (&aval); g_value_unset (&lval); if (user) { if (!g_str_equal (MGD_OBJECT_GUID (user), MGD_OBJECT_GUID (self))) { MIDGARD_ERRNO_SET (mgd, MGD_ERR_DUPLICATE); g_object_unref (user); return FALSE; } } if (midgard_core_query_update_dbobject_record (MIDGARD_DBOBJECT (self), NULL) ) return TRUE; MIDGARD_ERRNO_SET (mgd, MGD_ERR_INTERNAL); return FALSE; } /** * midgard_user_delete: * @self: #MidgardUser instance * * Delete user's storage record. * * Cases to return %FALSE: * * * User's guid is not set ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * Failed to delete storage record ( MGD_ERR_INTERNAL ) * * * * Returns: @TRUE on success, @FALSE otherwise * * Since: 9.09.2 */ gboolean midgard_user_delete (MidgardUser *self) { g_return_val_if_fail (self != NULL, FALSE); MidgardUserClass *klass = MIDGARD_USER_GET_CLASS (self); return klass->delete_record (self); } gboolean __midgard_user_delete (MidgardUser *self) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (MIDGARD_IS_USER (self), FALSE); MidgardConnection *mgd = MGD_OBJECT_CNC (self); const gchar *guid = MGD_OBJECT_GUID (self); g_return_val_if_fail (mgd != NULL, FALSE); MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); /* Validate guid */ if (!guid || (*guid && *guid == '\0') || (guid && !midgard_is_guid (guid))) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INVALID_PROPERTY_VALUE, "Invalid guid value"); return FALSE; } GString *del_query = g_string_new ("DELETE FROM midgard_user WHERE "); g_string_append_printf (del_query, "guid='%s'", guid); g_debug ("%s", del_query->str); GError *error = NULL; GdaConnection *connection = mgd->priv->connection; #ifdef HAVE_LIBGDA_4 gda_execute_non_select_command (connection, del_query->str, &error); #else gda_connection_execute_non_select_command (connection, del_query->str, &error); #endif g_string_free (del_query, TRUE); if(error){ g_clear_error(&error); return FALSE; } /* Set empty guid */ g_free ((gchar *)MIDGARD_DBOBJECT (self)->dbpriv->guid); MIDGARD_DBOBJECT (self)->dbpriv->guid = NULL; return TRUE; } /** * midgard_user_log_in: * @self: #MidgardUser instance * * Logs in user instance, if given one is valid. * A valid user object must have (at least) guid set. * Which means, #MidgardObject must be fetched from database. * Either with midgard_user_get() or with midgard_user_query(). * * This method silently returns with success when given user is already logged in. * * Cases to return %FALSE: * * * User's guid is not set ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * * Returns: %TRUE if user has been logged in, %FALSE otherwise * * Since: 9.09 */ gboolean midgard_user_log_in (MidgardUser *self) { g_return_val_if_fail (self != NULL, FALSE); MidgardUserClass *klass = MIDGARD_USER_GET_CLASS (self); return klass->log_in (self); } gboolean __midgard_user_login (MidgardUser *self) { g_return_val_if_fail(self != NULL, FALSE); g_return_val_if_fail(MIDGARD_IS_USER (self), FALSE); MidgardConnection *mgd = MGD_OBJECT_CNC(self); g_return_val_if_fail(mgd != NULL, FALSE); MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); /* Check if given user instance is already logged in */ if (mgd->priv->user && mgd->priv->user == self) return TRUE; const gchar *guid = MGD_OBJECT_GUID(self); if (!guid || (guid && *guid == '\0') || (guid && !midgard_is_guid(guid))) { MIDGARD_ERRNO_SET_STRING(mgd, MGD_ERR_INVALID_PROPERTY_VALUE, "'guid' property doesn't hold guid value"); return FALSE; } g_object_ref(self); // storing as priv->user mgd->priv->user = self; g_object_ref(self); // storing in priv->authstack mgd->priv->authstack = g_slist_append(mgd->priv->authstack, self); self->priv->is_logged = TRUE; g_signal_emit_by_name(mgd, "auth_changed"); return TRUE; } /** * midgard_user_log_out: * @self: #MidgardUser instance * * Cases to return %FALSE: * * * There's no user logged in (MGD_ERR_INTERNAL) * * * User is not recently logged in (MGD_ERR_INTERNAL) * * * * Returns: %TRUE if user successfully logs out, %FALSE otherwise * * Since: 9.09 */ gboolean midgard_user_log_out (MidgardUser *self) { g_return_val_if_fail(self != NULL, FALSE); MidgardUserClass *klass = MIDGARD_USER_GET_CLASS(self); return klass->log_out(self); } gboolean __midgard_user_logout (MidgardUser *self) { g_return_val_if_fail(self != NULL, FALSE); g_return_val_if_fail(MIDGARD_IS_USER (self), FALSE); MidgardConnection *mgd = MGD_OBJECT_CNC (self); g_return_val_if_fail(mgd != NULL, FALSE); MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); GSList *list = mgd->priv->authstack; if (list == NULL || (list && g_slist_length(list) < 1)) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_INTERNAL); return FALSE; } if ((gpointer)self == (gpointer)mgd->priv->user) { mgd->priv->authstack = g_slist_remove(mgd->priv->authstack, (gconstpointer) self); self->priv->is_logged = FALSE; g_object_unref(self); // not storing it in priv->authstack anymore g_object_unref(mgd->priv->user); // will overwrite priv->user in a moment if (mgd->priv->authstack && mgd->priv->authstack->data) { g_object_ref(mgd->priv->authstack->data); // storing in priv->user mgd->priv->user = (gpointer) mgd->priv->authstack->data; } else { mgd->priv->user = NULL; } g_signal_emit_by_name(mgd, "auth_changed"); return TRUE; } /* Throw this warning explicitly as it's programmer fault. Some language bindings might throw an exception in such case. */ g_warning("Can not log out user who is not currently logged in"); MIDGARD_ERRNO_SET(mgd, MGD_ERR_INTERNAL); return FALSE; } /** * midgard_user_is_user: * @self: #MidgardUser instance * * Checks if given user is a user. * For example, function will return FALSE for user who is logged in as admin or root. * * Returns: %TRUE if user is a user, %FALSE otherwise */ gboolean midgard_user_is_user(MidgardUser *self) { g_return_val_if_fail (self != NULL, FALSE); MidgardUserClass *klass = MIDGARD_USER_GET_CLASS (self); return klass->is_user (self); } gboolean __midgard_user_is_user (MidgardUser *self) { if (!self || !self->priv) return FALSE; if (self->priv->user_type == MIDGARD_USER_TYPE_USER) return TRUE; return FALSE; } /** * midgard_user_is_admin: * @self: #MidgardUser instance * * Checks if given user is an admin. * * Returns: %TRUE if user is an admin, %FALSE otherwise */ gboolean midgard_user_is_admin (MidgardUser *self) { g_return_val_if_fail (self != NULL, FALSE); MidgardUserClass *klass = MIDGARD_USER_GET_CLASS (self); return klass->is_admin (self); } gboolean __midgard_user_is_admin(MidgardUser *self) { if (!self || !self->priv) return FALSE; if (self->priv->user_type == MIDGARD_USER_TYPE_ADMIN) return TRUE; return FALSE; } /* Set active flag */ gboolean midgard_user_set_active(MidgardUser *self, gboolean flag) { g_assert(self != NULL); if(!MIDGARD_DBOBJECT (self)->dbpriv->mgd) { g_warning("Can not set activity for user without person assigned"); return FALSE; } MidgardConnection *mgd = MIDGARD_DBOBJECT (self)->dbpriv->mgd; MidgardUser *user = MIDGARD_USER(mgd->priv->user); MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); if(!user) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_ACCESS_DENIED); return FALSE; } if(midgard_user_is_user(user)) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_ACCESS_DENIED); return FALSE; } guint active = 0; if(flag) active = 1; GString *sql = g_string_new("UPDATE midgard_user SET "); g_string_append_printf(sql, "active = %d WHERE guid = '%s' ", active, MIDGARD_DBOBJECT (self)->dbpriv->guid); gint rv = midgard_core_query_execute(mgd, sql->str, FALSE); g_string_free(sql, TRUE); if(rv == -1) return FALSE; self->priv->active = flag; if(rv == -2) { g_warning("Provider didn't return number of updated rows. User record might be not updated"); return TRUE; } return TRUE; } static void __set_from_sql(MidgardDBObject *object, GdaDataModel *model, gint row) { MidgardUser *self = MIDGARD_USER(object); /* 'at_col_name' acceptable since we do not use this frequently */ const GValue *value; guint i = 0; /* GUID */ value = midgard_data_model_get_value_at_col_name (model, "guid", row); if (value) MIDGARD_DBOBJECT (self)->dbpriv->guid = g_value_dup_string (value); /* LOGIN */ value = midgard_data_model_get_value_at_col_name (model, "login", row); if (value) self->priv->login = g_value_dup_string (value); /* PASSWORD */ value = midgard_data_model_get_value_at_col_name (model, "password", row); if (value && G_VALUE_HOLDS_STRING (value)) self->priv->password = g_value_dup_string (value); else g_warning ("Invalid value type for user's password. Expected string, got %s", value ? G_VALUE_TYPE_NAME (value) : "NULL"); /* PERSON GUID */ value = midgard_data_model_get_value_at_col_name (model, "person", row); if (value && G_IS_VALUE (value) && G_VALUE_HOLDS_STRING (value)) { g_free (self->priv->person_guid); self->priv->person_guid = g_value_dup_string (value); } else { g_warning ("Invalid value type for user's person guid. Expected string, got %s", value ? G_VALUE_TYPE_NAME (value) : "NULL"); } /* ACTIVE */ value = midgard_data_model_get_value_at_col_name (model, "active", row); if (value) { MIDGARD_GET_BOOLEAN_FROM_VALUE (self->priv->active, value); } /* AUTH TYPE */ value = midgard_data_model_get_value_at_col_name (model, "authtype", row); if (value) self->priv->auth_type = g_value_dup_string (value); /* AUTH TYPE ID */ value = midgard_data_model_get_value_at_col_name (model, "authtypeid", row); if (value) { MIDGARD_GET_UINT_FROM_VALUE (i, value); self->priv->auth_type_id = i; } /* USER TYPE */ value = midgard_data_model_get_value_at_col_name (model, "usertype", row); if (value) { MIDGARD_GET_UINT_FROM_VALUE (i, value); self->priv->user_type = i; } } xmlNode *__lookup_node(xmlNode *node, const gchar *name) { xmlNode *cur = NULL; for (cur = node; cur; cur = cur->next) { if (cur->type == XML_ELEMENT_NODE) { if (g_str_equal (cur->name, name)) return cur; } } return NULL; } static void __set_from_xml_node (MidgardDBObject *object, xmlNode *node) { g_assert (object != NULL); g_assert (node != NULL); MidgardUser *self = MIDGARD_USER (object); xmlNode *lnode = NULL; gchar *content; /* guid */ lnode = __lookup_node (node, "guid"); g_free ((gchar*) MIDGARD_DBOBJECT (self)->dbpriv->guid); //self->dbpriv->guid = ; /* login */ lnode = __lookup_node (node, "login"); content = (gchar *)xmlNodeGetContent (lnode); if (content != NULL) { g_free (self->priv->login); self->priv->login = g_strdup (content); g_free (content); } /* password */ lnode = __lookup_node (node, "password"); content = (gchar *)xmlNodeGetContent (lnode); if (content != NULL) { g_free (self->priv->password); self->priv->password = g_strdup (content); g_free (content); } /* active */ lnode = __lookup_node (node, "active"); content = (gchar *)xmlNodeGetContent (lnode); if (content != NULL) { self->priv->active = (gboolean)atoi (content); g_free (content); } /* authtype */ lnode = __lookup_node (node, "authtype"); content = (gchar *)xmlNodeGetContent (lnode); if (content != NULL) { g_free (self->priv->auth_type); self->priv->auth_type = g_strdup (content); g_free (content); } /* authtypeid */ lnode = __lookup_node (node, "authtypeid"); content = (gchar *)xmlNodeGetContent (lnode); if (content != NULL) { self->priv->auth_type_id = atoi (content); g_free (content); } /* usertype */ lnode = __lookup_node (node, "usertype"); content = (gchar *)xmlNodeGetContent (lnode); if (content != NULL) { self->priv->user_type = atoi (content); g_free (content); } /* person */ lnode = __lookup_node (node, "person"); content = (gchar *)xmlNodeGetContent (lnode); if (content != NULL) { g_free (self->priv->person_guid); self->priv->person_guid = g_strdup (content); g_free (content); } } /** * midgard_user_set_person: * @self: #MidgardUser instance * @person: #MidgardObject instance * * Associates given #MidgardObject person with @self #MidgardUser. * Sets person property and updates user storage record. * * #MidgardUser @self takes ownership of the given #MidgardObject ('midgard_person' type) reference, * and increases person's object reference count. * * See midgard_user_update() for returned error details. * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_user_set_person (MidgardUser *self, MidgardObject *person) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (person != NULL, FALSE); GType person_type = g_type_from_name ("midgard_person"); g_return_val_if_fail (MIDGARD_IS_OBJECT (person), FALSE); g_return_val_if_fail (person_type == G_OBJECT_TYPE (person), FALSE); g_return_val_if_fail (MGD_OBJECT_GUID (person) != NULL, FALSE); if (G_IS_OBJECT (self->priv->person)) g_object_unref (self->priv->person); self->priv->person = g_object_ref (person); g_free (self->priv->person_guid); self->priv->person_guid = g_strdup (MGD_OBJECT_GUID (person)); return midgard_user_update (self); } /** * midgard_user_get_person: * @self: #MidgardUser instance * * Returned object should not be unref. * * Returns: (transfer none): #MidgardObject of "midgard_person" type, or %NULL if none associated. */ MidgardObject * midgard_user_get_person (MidgardUser *self) { MidgardUserClass *klass = MIDGARD_USER_GET_CLASS (self); return klass->get_person (self); } MidgardObject * __midgard_user_get_person(MidgardUser *self) { g_assert(self != NULL); if (self->priv->person == NULL) { gchar *person_guid = self->priv->person_guid; /* Load person from storage if user holds its guid reference */ if (person_guid && *person_guid != '\0') { GValue gval = {0, }; g_value_init (&gval, G_TYPE_STRING); g_value_set_string (&gval, self->priv->person_guid); self->priv->person = midgard_object_new (MGD_OBJECT_CNC (self), "midgard_person", &gval); g_value_unset (&gval); } } return self->priv->person; } MidgardUser * midgard_user_quick_login (MidgardConnection *mgd, const gchar *login, const gchar *password) { g_return_val_if_fail (mgd != NULL, NULL); g_return_val_if_fail (login != NULL, NULL); g_return_val_if_fail (password != NULL, NULL); guint np = 3; GParameter *parameters = g_new0 (GParameter, np); parameters[0].name = "login"; GValue lval = {0, }; g_value_init (&lval, G_TYPE_STRING); g_value_set_string (&lval, login); parameters[0].value = lval; parameters[1].name = "password"; GValue pval = {0, }; g_value_init (&pval, G_TYPE_STRING); g_value_set_string (&pval, password); parameters[1].value = pval; parameters[2].name = "authtype"; GValue aval = {0, }; g_value_init (&aval, G_TYPE_STRING); g_value_set_string (&aval, "Plaintext"); parameters[2].value = aval; MidgardUser *user = midgard_user_new (mgd, np, parameters); g_value_unset (&lval); g_value_unset (&pval); g_value_unset (&aval); g_free (parameters); if (!user) return NULL; if (midgard_user_log_in (user)) return user; g_object_unref (user); return NULL; } /* GOBJECT ROUTINES */ static void _midgard_user_finalize(GObject *object) { g_assert (object != NULL); MidgardUser *self = (MidgardUser *) object; if (self && (MIDGARD_DBOBJECT (self)->dbpriv && self->priv->is_logged)) (void) midgard_user_log_out (self); g_free (self->priv->auth_type); self->priv->auth_type = NULL; self->priv->auth_type_id = 0; self->priv->user_type = MIDGARD_USER_TYPE_NONE; g_free (self->priv->login); self->priv->login = NULL; g_free (self->priv->password); self->priv->password = NULL; g_free (self->priv->person_guid); self->priv->person_guid = NULL; g_free(self->priv); self->priv = NULL; __parent_class->finalize (object); } static void _midgard_user_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardUser *self = MIDGARD_USER(object); switch (property_id) { case MIDGARD_USER_LOGIN: g_free (self->priv->login); self->priv->login = g_value_dup_string (value); break; case MIDGARD_USER_PASS: g_free (self->priv->password); self->priv->password = g_value_dup_string (value); break; case MIDGARD_USER_ACTIVE: MIDGARD_GET_BOOLEAN_FROM_VALUE (self->priv->active, value); break; case MIDGARD_USER_AUTH_TYPE: g_free (self->priv->auth_type); self->priv->auth_type = g_value_dup_string (value); /* TODO, set auth type id via core API */ break; case MIDGARD_USER_TYPE: if (g_value_get_uint (value) > MIDGARD_USER_TYPE_ADMIN || g_value_get_uint (value) < MIDGARD_USER_TYPE_NONE) { g_warning ("Invalid user type (%d).", g_value_get_uint (value)); } else { self->priv->user_type = g_value_get_uint (value); } break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID(self, property_id, pspec); break; } } static void _midgard_user_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardUser *self = (MidgardUser *) object; switch (property_id) { case MIDGARD_USER_GUID: g_value_set_string(value, MIDGARD_DBOBJECT (self)->dbpriv->guid); break; case MIDGARD_USER_LOGIN: g_value_set_string(value, self->priv->login); break; case MIDGARD_USER_PASS: g_value_set_string(value, self->priv->password); break; case MIDGARD_USER_ACTIVE: g_value_set_boolean(value, self->priv->active); break; case MIDGARD_USER_TYPE: g_value_set_uint (value, self->priv->user_type); break; case MIDGARD_USER_AUTH_TYPE: g_value_set_string (value, self->priv->auth_type); break; case MIDGARD_USER_AUTH_TYPE_ID: g_value_set_uint (value, self->priv->auth_type_id); break; case MIDGARD_USER_PERSON_GUID: g_value_set_string (value, self->priv->person_guid); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID(self, property_id, pspec); break; } } static GObject * __midgard_user_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (__parent_class)->constructor (type, n_construct_properties, construct_properties); MIDGARD_USER (object)->priv = g_new(MidgardUserPrivate, 1); MIDGARD_USER (object)->priv->person = NULL; MIDGARD_USER (object)->priv->person_guid = g_strdup (""); MIDGARD_USER (object)->priv->user_type = MIDGARD_USER_TYPE_NONE; MIDGARD_USER (object)->priv->fetched = FALSE; MIDGARD_USER (object)->priv->login = NULL; MIDGARD_USER (object)->priv->password = NULL; MIDGARD_USER (object)->priv->active = FALSE; MIDGARD_USER (object)->priv->auth_type = NULL; MIDGARD_USER (object)->priv->auth_type_id = 0; MIDGARD_USER (object)->priv->is_logged = FALSE; return G_OBJECT(object); } static void __midgard_user_dispose (GObject *object) { MidgardUser *self = MIDGARD_USER (object); if (self->priv->person && G_IS_OBJECT (self->priv->person)) g_object_unref (self->priv->person); __parent_class->dispose (object); } static gboolean _user_storage_exists (MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(klass != NULL, FALSE); return midgard_core_table_exists(mgd, MIDGARD_USER_TABLE); } static gboolean _user_storage_delete (MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail (mgd != NULL, FALSE); g_return_val_if_fail (klass != NULL, FALSE); g_warning ("midgard_user storage can not be deleted"); return FALSE; } static void __set_from_data_model (MidgardDBObject *self, GdaDataModel *model, gint row, guint column_id) { g_return_if_fail (self != NULL); g_return_if_fail (model != NULL); g_return_if_fail (row > -1); GError *error = NULL; const GValue *value; /* guid */ value = gda_data_model_get_value_at (model, column_id, row, &error); if (!value) { g_warning ("Failed to get guid value: %s", error && error->message ? error->message : "Unknown reason"); if (error) g_clear_error (&error); } else { g_free ((gchar *)MGD_OBJECT_GUID (self)); MGD_OBJECT_GUID (self) = g_value_dup_string (value); } if (error) g_clear_error (&error); /* FIXME, add column indexes (or constants) for easier data fetching, COL_ID_PERSON instead of 7, etc */ /* person */ value = gda_data_model_get_value_at (model, 7, row, &error); if (!value) { g_warning ("Failed to get person value: %s", error && error->message ? error->message : "Unknown reason"); if (error) g_clear_error (&error); } else { g_free(MIDGARD_USER(self)->priv->person_guid); MIDGARD_USER(self)->priv->person_guid = g_value_dup_string (value); } if (error) g_clear_error (&error); /* authtypeid */ value = gda_data_model_get_value_at (model, 5, row, &error); if (!value) { g_warning ("Failed to get auth type id value: %s", error && error->message ? error->message : "Unknown reason"); if (error) g_clear_error (&error); } else { MIDGARD_USER(self)->priv->auth_type_id = g_value_get_int (value); } if (error) g_clear_error (&error); column_id++; MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->set_from_data_model (self, model, row, column_id); } static void _midgard_user_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardUserClass *klass = MIDGARD_USER_CLASS (g_class); __parent_class = g_type_class_peek_parent (g_class); gobject_class->constructor = __midgard_user_constructor; gobject_class->dispose = __midgard_user_dispose; gobject_class->finalize = _midgard_user_finalize; gobject_class->get_property = _midgard_user_get_property; gobject_class->set_property = _midgard_user_set_property; /* Virtual methods */ klass->get_person = __midgard_user_get_person; klass->log_in = __midgard_user_login; klass->log_out = __midgard_user_logout; klass->get = __midgard_user_get; klass->query = __midgard_user_query; klass->create = __midgard_user_create; klass->update = __midgard_user_update; klass->delete_record = __midgard_user_delete; klass->is_user = __midgard_user_is_user; klass->is_admin = __midgard_user_is_admin; MgdSchemaPropertyAttr *prop_attr; MgdSchemaTypeAttr *type_attr = midgard_core_schema_type_attr_new(); GParamSpec *pspec; gchar *property_name; /* GUID */ property_name = "guid"; pspec = g_param_spec_string (property_name, "Guid which identifies user object.", "", "", G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_USER_GUID, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->name = g_strdup (property_name); prop_attr->gtype = MGD_TYPE_GUID; prop_attr->field = g_strdup(property_name); prop_attr->table = g_strdup(MIDGARD_USER_TABLE); prop_attr->tablefield = g_strjoin(".", MIDGARD_USER_TABLE, property_name, NULL); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, property_name); /* LOGIN */ property_name = "login"; pspec = g_param_spec_string (property_name, "midgard_user's login", "", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_USER_LOGIN, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->name = g_strdup (property_name); prop_attr->gtype = MGD_TYPE_STRING; prop_attr->field = g_strdup(property_name); prop_attr->table = g_strdup(MIDGARD_USER_TABLE); prop_attr->tablefield = g_strjoin(".", MIDGARD_USER_TABLE, property_name, NULL); prop_attr->dbindex = TRUE; g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, property_name); /* PASSWORD */ property_name = "password"; pspec = g_param_spec_string ("password", "midgard_user's password", "", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_USER_PASS, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->name = g_strdup (property_name); prop_attr->gtype = MGD_TYPE_STRING; prop_attr->field = g_strdup(property_name); prop_attr->table = g_strdup(MIDGARD_USER_TABLE); prop_attr->tablefield = g_strjoin(".", MIDGARD_USER_TABLE, property_name, NULL); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, property_name); /* PERSON */ property_name = "person"; pspec = g_param_spec_string (property_name, "Guid which identifies person object associated with user.", "", "", G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_USER_PERSON_GUID, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->name = g_strdup (property_name); prop_attr->gtype = MGD_TYPE_GUID; prop_attr->field = g_strdup("person_guid"); prop_attr->table = g_strdup(MIDGARD_USER_TABLE); prop_attr->tablefield = g_strjoin(".", MIDGARD_USER_TABLE, "person_guid", NULL); prop_attr->is_link = TRUE; prop_attr->link = g_strdup ("midgard_person"); prop_attr->link_target = g_strdup ("guid"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, property_name); /* ACTIVE */ property_name = "active"; pspec = g_param_spec_boolean (property_name, "midgard_user's active info", "", FALSE, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_USER_ACTIVE, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->name = g_strdup (property_name); prop_attr->gtype = MGD_TYPE_BOOLEAN; prop_attr->field = g_strdup(property_name); prop_attr->table = g_strdup(MIDGARD_USER_TABLE); prop_attr->tablefield = g_strjoin(".", MIDGARD_USER_TABLE, property_name, NULL); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, property_name); /* AUTH TYPE */ property_name = "authtype"; pspec = g_param_spec_string (property_name, "midgard_user's authentication type", "", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_USER_AUTH_TYPE, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->name = g_strdup (property_name); prop_attr->gtype = MGD_TYPE_STRING; prop_attr->field = g_strdup("auth_type"); prop_attr->table = g_strdup(MIDGARD_USER_TABLE); prop_attr->tablefield = g_strjoin(".", MIDGARD_USER_TABLE, "auth_type", NULL); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, property_name); /* AUTH TYPE ID */ property_name = "authtypeid"; pspec = g_param_spec_uint (property_name, "midgard_user's authentication type id", "", 0, G_MAXUINT32, 0, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_USER_AUTH_TYPE_ID, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->name = g_strdup (property_name); prop_attr->gtype = MGD_TYPE_UINT; prop_attr->field = g_strdup("auth_type_id"); prop_attr->table = g_strdup(MIDGARD_USER_TABLE); prop_attr->tablefield = g_strjoin(".", MIDGARD_USER_TABLE, "auth_type_id", NULL); prop_attr->dbindex = TRUE; g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, property_name); /* USER TYPE */ property_name = "usertype"; pspec = g_param_spec_uint (property_name, "midgard_user's type", "", 0, G_MAXUINT32, 0, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_USER_TYPE, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->name = g_strdup (property_name); prop_attr->gtype = MGD_TYPE_UINT; prop_attr->field = g_strdup("user_type"); prop_attr->table = g_strdup(MIDGARD_USER_TABLE); prop_attr->tablefield = g_strjoin(".", MIDGARD_USER_TABLE, "user_type", NULL); prop_attr->dbindex = TRUE; g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, property_name); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv = midgard_core_dbobject_private_new (); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_data = type_attr; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_data->table = g_strdup(MIDGARD_USER_TABLE); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_data->tables = g_strdup(MIDGARD_USER_TABLE); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->has_metadata = FALSE; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->uses_workspace = FALSE; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->add_fields_to_select_statement = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->add_fields_to_select_statement; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->__set_from_sql = __set_from_sql; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->set_from_xml_node = __set_from_xml_node; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->set_from_sql = NULL; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->set_from_data_model = __set_from_data_model; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->create_storage = midgard_core_query_create_class_storage; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->update_storage = midgard_core_query_update_class_storage; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_exists = _user_storage_exists; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->delete_storage = _user_storage_delete; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->set_static_sql_select = NULL; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->get_statement_insert = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->get_statement_insert; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->get_statement_insert_params = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->get_statement_insert_params; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->get_statement_update = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->get_statement_update; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->get_statement_update_params = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->get_statement_update_params; type_attr->params = midgard_core_dbobject_class_list_properties (MIDGARD_DBOBJECT_CLASS (klass), &type_attr->num_properties); guint i; const gchar *field_name; GString *sql_full = g_string_new (""); for (i = 0; i < type_attr->num_properties; i++) { field_name = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (klass), type_attr->params[i]->name); if (i > 0) g_string_append (sql_full, ", "); g_string_append_printf (sql_full, "%s AS %s", field_name, type_attr->params[i]->name); } type_attr->sql_select_full = g_strdup (sql_full->str); g_string_free (sql_full, TRUE); } static void _midgard_user_instance_init( GTypeInstance *instance, gpointer g_class) { return; } /* Register midgard_user type */ GType midgard_user_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardUserClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_user_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardUser), 0, /* n_preallocs */ (GInstanceInitFunc) _midgard_user_instance_init/* instance_init */ }; type = g_type_register_static (MIDGARD_TYPE_DBOBJECT, "MidgardUser", &info, 0); } return type; } midgard2-core-10.05.7.1/src/midgard_schema.h0000664000175000017500000000437411772046240015267 00000000000000/* * Copyright (C) 2006 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_SCHEMA_H #define MIDGARD_SCHEMA_H #include #include #include /* Undefine XMLCALL defined in expat library needed by repligard and already included in midgard.h file. */ #ifdef XMLCALL #undef XMLCALL #endif GType midgard_schema_get_type(void); /* convention macros */ #define MIDGARD_TYPE_SCHEMA (midgard_schema_get_type()) #define MIDGARD_SCHEMA(object) \ (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_SCHEMA, midgard)) #define MIDGARD_SCHEMA_CLASS(klass) \ (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_SCHEMA, MidgardSchemaClass)) #define MIDGARD_IS_SCHEMA(object) \ (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_SCHEMA)) #define MIDGARD_IS_SCHEMA_CLASS(klass) \ (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_SCHEMA)) #define MIDGARD_SCHEMA_GET_CLASS(obj) \ (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_SCHEMA, MidgardSchemaClass)) typedef struct _MidgardSchema MidgardSchema; typedef struct _MidgardSchemaClass MidgardSchemaClass; struct _MidgardSchema { GObject parent; /* < private > */ GHashTable *types; }; struct _MidgardSchemaClass{ GObjectClass parent; }; void midgard_schema_init (MidgardSchema *self, const gchar *path); gboolean midgard_schema_read_dir (MidgardSchema *self, const gchar *dirname); gboolean midgard_schema_type_exists (MidgardSchema *self, const gchar *classname); void midgard_schema_read_file (MidgardSchema *self, const gchar *filename); #endif /* MIDGARD_SCHEMA_H */ midgard2-core-10.05.7.1/src/midgard_query_property.c0000664000175000017500000002150211772046240017123 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_holder.h" #include "midgard_query_property.h" #include "midgard_dbobject.h" #include "midgard_query_storage.h" #include "midgard_core_query.h" #include "midgard_validable.h" /** * midgard_query_property_new: * @property: name of the property * @storage: (allow-none): optional storage for given property * * Returns: new #MidgardQueryProperty instance or NULL on failure * Since: 10.05 */ MidgardQueryProperty * midgard_query_property_new (const gchar *property, MidgardQueryStorage *storage) { g_return_val_if_fail (property != NULL, NULL); MidgardQueryProperty *self = g_object_new (MIDGARD_TYPE_QUERY_PROPERTY, "property", property, NULL); if (storage != NULL) self->priv->storage = g_object_ref (storage); return self; } static void __get_value (MidgardQueryHolder *self, GValue *value) { g_return_if_fail (self != NULL); g_return_if_fail (self != NULL); MidgardQueryProperty *mqp = (MidgardQueryProperty *) self; if (!G_VALUE_HOLDS_STRING (value)) g_value_init (value, G_VALUE_TYPE (&mqp->priv->value)); g_value_copy ((const GValue *) &mqp->priv->value, value); return; } static gboolean __set_value (MidgardQueryHolder *self, const GValue *value) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (value != NULL, FALSE); g_return_val_if_fail (G_VALUE_HOLDS_STRING (value), FALSE); MidgardQueryProperty *mqp = (MidgardQueryProperty *) self; if (G_IS_VALUE (&mqp->priv->value)) g_value_unset (&mqp->priv->value); g_value_init (&mqp->priv->value, G_TYPE_STRING); g_value_copy (value, &mqp->priv->value); return TRUE; } /* GOBJECT ROUTINES */ enum { MIDGARD_QUERY_PROPERTY_PROPNAME = 1, MIDGARD_QUERY_PROPERTY_STORAGE }; static GObjectClass *parent_class= NULL; static void _midgard_query_property_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardQueryProperty *self = (MidgardQueryProperty *)instance; self->priv = g_new (MidgardQueryPropertyPrivate, 1); self->priv->storage = NULL; self->priv->klass = NULL; self->priv->is_valid = FALSE; GValue value = {0, }; self->priv->value = value; g_value_init (&self->priv->value, G_TYPE_STRING); } static GObject * _midgard_query_property_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_query_property_dispose (GObject *object) { MidgardQueryProperty *self = (MidgardQueryProperty *) object; if (self->priv->storage) { g_object_unref (self->priv->storage); self->priv->storage = NULL; } parent_class->dispose (object); } static void _midgard_query_property_finalize (GObject *object) { MidgardQueryProperty *self = MIDGARD_QUERY_PROPERTY (object); if (self->priv && G_IS_VALUE (&self->priv->value)) g_value_unset (&self->priv->value); g_free (self->priv); self->priv = NULL; parent_class->finalize (object); } static void __midgard_query_property_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardQueryProperty *self = (MidgardQueryProperty *) object; switch (property_id) { case MIDGARD_QUERY_PROPERTY_PROPNAME: __get_value (MIDGARD_QUERY_HOLDER (object), value); break; case MIDGARD_QUERY_PROPERTY_STORAGE: g_value_set_object (value, self->priv->storage); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void __midgard_query_property_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardQueryProperty *self = (MidgardQueryProperty *) (object); switch (property_id) { case MIDGARD_QUERY_PROPERTY_PROPNAME: __set_value (MIDGARD_QUERY_HOLDER (object), (GValue *)value); break; case MIDGARD_QUERY_PROPERTY_STORAGE: if (self->priv->storage) g_object_unref (self->priv->storage); self->priv->storage = g_value_dup_object (value); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_query_property_class_init (MidgardQueryPropertyClass *klass, gpointer class_data) { GObjectClass *object_class = G_OBJECT_CLASS (klass); parent_class = g_type_class_peek_parent (klass); object_class->constructor = _midgard_query_property_constructor; object_class->dispose = _midgard_query_property_dispose; object_class->finalize = _midgard_query_property_finalize; object_class->set_property = __midgard_query_property_set_property; object_class->get_property = __midgard_query_property_get_property; /* Properties */ GParamSpec *pspec = g_param_spec_string ("property", "", "", "", G_PARAM_READWRITE); /** * MidgardQueryProperty:property: * */ g_object_class_install_property (object_class, MIDGARD_QUERY_PROPERTY_PROPNAME, pspec); pspec = g_param_spec_object ("storage", "", "", MIDGARD_TYPE_QUERY_STORAGE, G_PARAM_READWRITE); /** * MidgardQueryProperty:property: * */ g_object_class_install_property (object_class, MIDGARD_QUERY_PROPERTY_STORAGE, pspec); } static void midgard_query_property_iface_init (MidgardQueryHolderIFace *iface) { iface->get_value = __get_value; iface->set_value = __set_value; } /* Validable iface */ static void _midgard_query_property_validable_iface_validate (MidgardValidable *iface, GError **error) { g_return_if_fail (iface != NULL); MidgardQueryProperty *self = MIDGARD_QUERY_PROPERTY (iface); self->priv->is_valid = FALSE; MidgardQueryStorage *storage = self->priv->storage; if (!G_IS_VALUE (&self->priv->value) || !G_VALUE_HOLDS_STRING (&self->priv->value)) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_VALUE_INVALID, "Invalid property's value type"); return; } /* There's no class context without storage. We have no access to executor, * so we assume property is valid. */ if (!storage) return; /* We do not check if storage is valid */ if (!storage->priv->classname) return; GObjectClass *klass = g_type_class_peek (g_type_from_name (storage->priv->classname)); if (!klass) return; const gchar *property_name = g_value_get_string (&self->priv->value); GParamSpec *pspec = g_object_class_find_property (klass, property_name); if (!pspec) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_NAME_INVALID, "Property '%s' is not registered for '%s' class.", property_name, G_OBJECT_CLASS_NAME (klass)); return; } MIDGARD_QUERY_PROPERTY (self)->priv->is_valid = TRUE; return; } gboolean _midgard_query_property_validable_iface_is_valid (MidgardValidable *self) { g_return_val_if_fail (self != NULL, FALSE); return MIDGARD_QUERY_PROPERTY (self)->priv->is_valid; } static void _midgard_query_property_validable_iface_init (MidgardValidableIFace *iface) { iface->validate = _midgard_query_property_validable_iface_validate; iface->is_valid = _midgard_query_property_validable_iface_is_valid; } GType midgard_query_property_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQueryPropertyClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_query_property_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardQueryProperty), 0, /* n_preallocs */ _midgard_query_property_instance_init /* instance_init */ }; static const GInterfaceInfo property_info = { (GInterfaceInitFunc) midgard_query_property_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; static const GInterfaceInfo validable_info = { (GInterfaceInitFunc) _midgard_query_property_validable_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardQueryProperty", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_QUERY_HOLDER, &property_info); g_type_add_interface_static (type, MIDGARD_TYPE_VALIDABLE, &validable_info); } return type; } midgard2-core-10.05.7.1/src/midgard_query_executor.c0000664000175000017500000002323311772046240017100 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_executor.h" #include "midgard_core_query.h" #include "midgard_validable.h" #include "midgard_executable.h" /* MidgardQueryExecutor properties */ enum { PROPERTY_RESULTS_COUNT = 1, PROPERTY_CONSTRAINT }; MidgardQueryExecutor * midgard_query_executor_new (MidgardConnection *mgd, MidgardQueryStorage *storage) { return NULL; } /** * midgard_query_executor_set_constraint: * @self: #MidgardQueryExecutor instance * @constraint: #MidgardQueryConstraintSimple instance * * Set constraint object which will be used for query execution * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_query_executor_set_constraint (MidgardQueryExecutor *self, MidgardQueryConstraintSimple *constraint) { return MIDGARD_QUERY_EXECUTOR_GET_CLASS (self)->set_constraint (self, constraint); } /** * midgard_query_executor_set_limit: * @self: #MidgardQueryExecutor instance * @limit: execution limit * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_query_executor_set_limit (MidgardQueryExecutor *self, guint limit) { return MIDGARD_QUERY_EXECUTOR_GET_CLASS (self)->set_limit (self, limit); } /** * midgard_query_executor_set_offset: * @self: #MidgardQueryExecutor instance * @offset: execution offset * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_query_executor_set_offset (MidgardQueryExecutor *self, guint offset) { return MIDGARD_QUERY_EXECUTOR_GET_CLASS (self)->set_offset (self, offset); } /** * midgard_query_executor_add_order: * @self: #MidgardQueryExecutor instance * @holder: #MidgardQueryHolder instance * @type: execution order * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_query_executor_add_order (MidgardQueryExecutor *self, MidgardQueryHolder *holder, const gchar *type) { return MIDGARD_QUERY_EXECUTOR_GET_CLASS (self)->add_order (self, holder, type); } gboolean midgard_query_executor_add_join (MidgardQueryExecutor *self, const gchar *join_type, MidgardQueryHolder *left_holder, MidgardQueryHolder *right_holder) { return MIDGARD_QUERY_EXECUTOR_GET_CLASS (self)->add_join (self, join_type, left_holder, right_holder); } /** * midgard_query_executor_get_results_count: * @self: #MidgardQueryExecutor instance * * Returns: number of objects or records returned from execution * * Since: 10.05 */ guint midgard_query_executor_get_results_count (MidgardQueryExecutor *self) { return MIDGARD_QUERY_EXECUTOR_GET_CLASS (self)->get_results_count (self); } /* GOBJECT ROUTINES */ static GObjectClass *parent_class= NULL; static void __midgard_query_executor_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardQueryExecutor *object = (MidgardQueryExecutor *) instance; MIDGARD_QUERY_EXECUTOR (object)->priv = g_new (MidgardQueryExecutorPrivate, 1); MIDGARD_QUERY_EXECUTOR (object)->priv->mgd = NULL; MIDGARD_QUERY_EXECUTOR (object)->priv->storage = NULL; MIDGARD_QUERY_EXECUTOR (object)->priv->constraint = NULL; MIDGARD_QUERY_EXECUTOR (object)->priv->n_constraints = 0; MIDGARD_QUERY_EXECUTOR (object)->priv->orders = NULL; MIDGARD_QUERY_EXECUTOR (object)->priv->joins = NULL; MIDGARD_QUERY_EXECUTOR (object)->priv->limit = -1; MIDGARD_QUERY_EXECUTOR (object)->priv->offset = -1; MIDGARD_QUERY_EXECUTOR (object)->priv->resultset = NULL; MIDGARD_QUERY_EXECUTOR (object)->priv->tableid = 0; MIDGARD_QUERY_EXECUTOR (object)->priv->table_alias = NULL; MIDGARD_QUERY_EXECUTOR (object)->priv->stmt = NULL; MIDGARD_QUERY_EXECUTOR (object)->priv->joinid = 0; MIDGARD_QUERY_EXECUTOR (object)->priv->results_count = 0; MIDGARD_QUERY_EXECUTOR (object)->priv->read_only = TRUE; MIDGARD_QUERY_EXECUTOR (object)->priv->include_deleted = FALSE; MIDGARD_QUERY_EXECUTOR (object)->priv->is_valid = FALSE; MIDGARD_QUERY_EXECUTOR (object)->priv->bool_is_int = FALSE; } static GObject * _midgard_query_executor_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_query_executor_dispose (GObject *object) { MidgardQueryExecutor *self = (MidgardQueryExecutor *) object; if (MIDGARD_QUERY_EXECUTOR (self)->priv->mgd) { g_object_unref (MIDGARD_QUERY_EXECUTOR (self)->priv->mgd); MIDGARD_QUERY_EXECUTOR (self)->priv->mgd = NULL; } if (MIDGARD_QUERY_EXECUTOR (self)->priv->storage) { g_object_unref (MIDGARD_QUERY_EXECUTOR (self)->priv->storage); MIDGARD_QUERY_EXECUTOR (self)->priv->storage = NULL; } if (MIDGARD_QUERY_EXECUTOR (self)->priv->constraint) { g_object_unref (MIDGARD_QUERY_EXECUTOR (self)->priv->constraint); MIDGARD_QUERY_EXECUTOR (self)->priv->constraint = NULL; } parent_class->dispose (object); } static void _midgard_query_executor_finalize (GObject *object) { MidgardQueryExecutor *self = MIDGARD_QUERY_EXECUTOR (object); if (self->priv->joins) { g_slist_foreach (self->priv->joins, (GFunc) g_free, NULL); g_slist_free (self->priv->joins); self->priv->joins = NULL; } if (self->priv->orders) { g_slist_foreach (self->priv->orders, (GFunc) g_free, NULL); g_slist_free (self->priv->orders); self->priv->orders = NULL; } g_free (self->priv->table_alias); self->priv->table_alias = NULL; g_free (self->priv); self->priv = NULL; parent_class->finalize (object); } static void _midgard_query_executor_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardQueryExecutor *self = MIDGARD_QUERY_EXECUTOR (object); switch (property_id) { case PROPERTY_RESULTS_COUNT: g_value_set_uint (value, self->priv->results_count); break; case PROPERTY_CONSTRAINT: g_value_set_object(value, self->priv->constraint); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID(self, property_id, pspec); break; } } static void _midgard_query_executor_class_init (MidgardQueryExecutorClass *klass, gpointer class_data) { GObjectClass *object_class = G_OBJECT_CLASS (klass); parent_class = g_type_class_peek_parent (klass); object_class->constructor = _midgard_query_executor_constructor; object_class->dispose = _midgard_query_executor_dispose; object_class->finalize = _midgard_query_executor_finalize; object_class->get_property = _midgard_query_executor_get_property; /* SIGNALS */ klass->signal_id_execution_start = g_signal_new("execution-start", G_TYPE_FROM_CLASS(klass), G_SIGNAL_RUN_LAST | G_SIGNAL_NO_RECURSE | G_SIGNAL_NO_HOOKS, G_STRUCT_OFFSET (MidgardQueryExecutorClass, execution_start), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); klass->signal_id_execution_end = g_signal_new("execution-end", G_TYPE_FROM_CLASS(klass), G_SIGNAL_RUN_LAST | G_SIGNAL_NO_RECURSE | G_SIGNAL_NO_HOOKS, G_STRUCT_OFFSET (MidgardQueryExecutorClass, execution_end), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); /* PROPERTIES */ GParamSpec *pspec = g_param_spec_uint ("resultscount", "Number of objects.", "", 0, G_MAXUINT32, 0, G_PARAM_READABLE); /** * MidgardQueryExecutor:resultscount * * Number of records matched in query. */ g_object_class_install_property (object_class, PROPERTY_RESULTS_COUNT, pspec); pspec = g_param_spec_object ("constraint", "", "", MIDGARD_TYPE_QUERY_CONSTRAINT_SIMPLE, G_PARAM_READABLE); /** * MidgardQueryExecutor:constraint: * * Constraint object which has been set to given executor instance */ g_object_class_install_property (object_class, PROPERTY_CONSTRAINT, pspec); /* Nullify virtual methods pointers */ klass->set_constraint = NULL; klass->set_limit = NULL; klass->set_offset = NULL; klass->add_order = NULL; klass->add_join = NULL; klass->get_results_count = NULL; } /* Executable iface */ static void _midgard_query_executor_executable_iface_init (MidgardExecutableIFace *iface) { iface->execute = NULL; } GType midgard_query_executor_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQueryExecutorClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_query_executor_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardQueryExecutor), 0, /* n_preallocs */ __midgard_query_executor_instance_init /* instance_init */ }; static const GInterfaceInfo executable_info = { (GInterfaceInitFunc) _midgard_query_executor_executable_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardQueryExecutor", &info, G_TYPE_FLAG_ABSTRACT); g_type_add_interface_static (type, MIDGARD_TYPE_EXECUTABLE, &executable_info); } return type; } midgard2-core-10.05.7.1/src/midgard_validable.h0000664000175000017500000000457211772046240015752 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_VALIDABLE_H #define MIDGARD_VALIDABLE_H #include G_BEGIN_DECLS typedef enum { MIDGARD_VALIDATION_ERROR_NAME_INVALID, MIDGARD_VALIDATION_ERROR_NAME_DUPLICATED, MIDGARD_VALIDATION_ERROR_ELEMENT_INVALID, MIDGARD_VALIDATION_ERROR_TYPE_INVALID, MIDGARD_VALIDATION_ERROR_KEY_INVALID, MIDGARD_VALIDATION_ERROR_VALUE_INVALID, MIDGARD_VALIDATION_ERROR_REFERENCE_INVALID, MIDGARD_VALIDATION_ERROR_PARENT_INVALID, MIDGARD_VALIDATION_ERROR_LOCATION_INVALID, MIDGARD_VALIDATION_ERROR_INTERNAL } MidgardValidationError; #define MIDGARD_VALIDATION_ERROR midgard_validation_error_quark () /* convention macros */ #define MIDGARD_TYPE_VALIDABLE (midgard_validable_get_type()) #define MIDGARD_VALIDABLE(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_VALIDABLE, MidgardValidable)) #define MIDGARD_IS_VALIDABLE(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_VALIDABLE)) #define MIDGARD_VALIDABLE_GET_INTERFACE(inst) (G_TYPE_INSTANCE_GET_INTERFACE ((inst), MIDGARD_TYPE_VALIDABLE, MidgardValidableIFace)) typedef struct _MidgardValidable MidgardValidable; /* dummy */ typedef struct _MidgardValidableIFace MidgardValidableIFace; struct _MidgardValidableIFace { GTypeInterface parent; void (*validate) (MidgardValidable *self, GError **error); gboolean (*is_valid) (MidgardValidable *self); }; GType midgard_validable_get_type (void); void midgard_validable_validate (MidgardValidable *self, GError **error); gboolean midgard_validable_is_valid (MidgardValidable *self); GQuark midgard_validation_error_quark (void); G_END_DECLS #endif /* MIDGARD_VALIDABLE_H */ midgard2-core-10.05.7.1/src/midgard_query_row.h0000664000175000017500000000415111772046240016054 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_ROW_H #define MIDGARD_QUERY_ROW_H #include G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_ROW (midgard_query_row_get_type()) #define MIDGARD_QUERY_ROW(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_ROW, MidgardQueryRow)) #define MIDGARD_IS_QUERY_ROW(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_ROW)) #define MIDGARD_QUERY_ROW_GET_INTERFACE(inst) (G_TYPE_INSTANCE_GET_INTERFACE ((inst), MIDGARD_TYPE_QUERY_ROW, MidgardQueryRowIFace)) typedef struct _MidgardQueryRow MidgardQueryRow; typedef struct _MidgardQueryRowIFace MidgardQueryRowIFace; struct _MidgardQueryRowIFace { GTypeInterface parent; const GValue* (*get_value) (MidgardQueryRow *self, const gchar *column_name, GError **error); GValueArray* (*get_values) (MidgardQueryRow *self, GError **error); GObject* (*get_object) (MidgardQueryRow *self, const gchar *column_name, GError **error); }; GType midgard_query_row_get_type (void); const GValue* midgard_query_row_get_value (MidgardQueryRow *self, const gchar *column_name, GError **error); GValueArray* midgard_query_row_get_values (MidgardQueryRow *self, GError **error); GObject* midgard_query_row_get_object (MidgardQueryRow *self, const gchar *column_name, GError **error); G_END_DECLS #endif /* MIDGARD_QUERY_ROW_H */ midgard2-core-10.05.7.1/src/midgard_core_query_builder.c0000664000175000017500000004153011772046240017700 00000000000000/* * Copyright (c) 2005 Jukka Zitting * Copyright (C) 2006, 2007 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "midgard_schema.h" #include "midgard_core_query_builder.h" #include "query_builder.h" #include "query_constraint.h" #include "group_constraint.h" #include "query_order.h" #include "midgard_object.h" #include "schema.h" #include "midgard_reflection_property.h" #include "midgard_core_object_class.h" #include "midgard_metadata.h" #include "midgard_user.h" #include "midgard_core_object.h" #define _RESERVED_BLOB_NAME "attachment" #define _RESERVED_BLOB_TABLE "blobs" #define _RESERVED_PARAM_NAME "parameter" #define _RESERVED_PARAM_TABLE "record_extension" MidgardQueryBuilderPrivate *midgard_query_builder_private_new(void) { MidgardQueryBuilderPrivate *mqbp = g_new(MidgardQueryBuilderPrivate, 1); mqbp->constraints = NULL; mqbp->groups = NULL; mqbp->orders = NULL; mqbp->tables = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, NULL); mqbp->value = NULL; mqbp->is_grouping = FALSE; mqbp->grouping_ref = 0; mqbp->group_constraint = NULL; mqbp->joins = NULL; mqbp->select_distinct = FALSE; mqbp->param_join_exists = FALSE; mqbp->blob_join_exists = FALSE; return mqbp; } void midgard_query_builder_private_free(MidgardQueryBuilderPrivate *mqbp) { g_assert(mqbp != NULL); GSList *list = NULL; /* free constraints */ for(list = mqbp->constraints; list != NULL; list = list->next) { if(list->data != NULL && G_IS_OBJECT(list->data)) g_object_unref(G_OBJECT(list->data)); } if(mqbp->constraints) { g_slist_free(mqbp->constraints); mqbp->constraints = NULL; } /* free groups */ for(list = mqbp->groups; list != NULL; list = list->next) { g_object_unref(list->data); } if(mqbp->groups) { g_slist_free(mqbp->groups); mqbp->groups = NULL; } /* free orders */ for(list = mqbp->orders; list != NULL; list = list->next) { midgard_core_query_order_free((MidgardQueryOrder *)list->data); } if(mqbp->orders) { g_slist_free(mqbp->orders); mqbp->orders = NULL; } /* free joins */ for(list = mqbp->joins; list != NULL; list = list->next) { midgard_core_query_constraint_private_free((MidgardCoreQueryConstraintPrivate*) list->data); } if(mqbp->joins) { g_slist_free(mqbp->joins); mqbp->joins = NULL; } list = NULL; /* free tables */ g_hash_table_destroy(mqbp->tables); mqbp->tables = NULL; /* free itself */ g_free(mqbp); } void midgard_core_qb_add_table(MidgardQueryBuilder *builder, const gchar *table) { g_assert(builder != NULL); g_assert(table != NULL); g_hash_table_insert(builder->priv->tables, g_strdup((gchar *) table), NULL); return ; } void midgard_core_qb_add_constraint(MidgardQueryBuilder *builder, MidgardCoreQueryConstraint *constraint) { g_assert(builder != NULL); g_assert(constraint != NULL); builder->priv->constraints = g_slist_append(builder->priv->constraints, constraint); } void midgard_core_qb_add_order(MidgardQueryBuilder *builder, MidgardQueryOrder *order) { g_assert(builder != NULL); g_assert(order != NULL); builder->priv->orders = g_slist_append(builder->priv->orders, order); } static void _add_table_foreach(gpointer key, gpointer value, gpointer userdata) { GSList **list = (GSList **) userdata; *list = g_slist_append(*list, key); } static void __sql_add_constraints(GString *sql, MidgardQueryBuilder *builder) { GSList *clist = NULL; GSList *jlist = NULL; guint j = 0; for(clist = builder->priv->constraints; clist != NULL; clist = clist->next) { if(j > 0) g_string_append(sql, " AND "); g_string_append(sql, MIDGARD_CORE_QUERY_CONSTRAINT(clist->data)->priv->condition); for(jlist = ((MidgardCoreQueryConstraint*)clist->data)->priv->joins; jlist != NULL; jlist = jlist->next) { g_string_append(sql, " AND "); g_string_append(sql, ((MidgardCoreQueryConstraintPrivate*)jlist->data)->condition); } j++; } if(builder->priv->constraints == NULL && builder->priv->groups == NULL) g_string_append(sql, "1=1"); } gchar *midgard_core_qb_get_sql( MidgardQueryBuilder *builder, guint mode, gchar *select) { g_assert (builder != NULL); g_assert (builder->priv->schema->table); /* FIXME, error reporting needed */ if (builder->priv->error != 0) { g_warning("Can not create query"); return NULL; } /* SELECT */ GString *sql = g_string_new ("SELECT "); if (builder->priv->select_distinct) g_string_append (sql, "DISTINCT "); g_string_append (sql, select); g_free (select); /* FROM */ g_string_append (sql, " FROM "); GSList *tlist = NULL; g_hash_table_foreach (builder->priv->tables, _add_table_foreach, &tlist); GString *tables = g_string_new (""); guint l = 0; GSList *nlist; for (nlist = tlist; nlist != NULL; nlist = nlist->next) { if(l < 1) g_string_append(tables, (gchar *) nlist->data); else g_string_append_printf(tables, ", %s", (gchar *) nlist->data); l++; } if(tlist) g_slist_free(tlist); g_string_append(sql, tables->str); /* WHERE */ g_string_append(sql, " WHERE "); __sql_add_constraints(sql, builder); g_string_free(tables, TRUE); /* OR&AND groupings */ guint i = 0; builder->priv->groups = g_slist_reverse(builder->priv->groups); if(builder->priv->groups != NULL) { if(builder->priv->constraints) g_string_append(sql, " AND "); GSList *glist = NULL; MidgardGroupConstraintClass *klass; for(glist = builder->priv->groups; glist != NULL; glist = glist->next) { if(i > 0) g_string_append(sql, " AND "); klass = MIDGARD_GROUP_CONSTRAINT_GET_CLASS( MIDGARD_GROUP_CONSTRAINT(glist->data)); klass->add_sql(MIDGARD_GROUP_CONSTRAINT(glist->data), sql); i++; } } /* Join tables from ORDER BY */ GSList *olist = NULL; GSList *jlist = NULL; if(builder->priv->orders != NULL) { for(olist = builder->priv->orders; olist != NULL; olist = olist->next) { for(jlist = ((MidgardQueryOrder*)olist->data)->constraint->priv->joins; jlist != NULL; jlist = jlist->next) { g_string_append(sql, " AND "); g_string_append(sql, ((MidgardCoreQueryConstraintPrivate*)jlist->data)->condition); } } } /* Add joins */ if(builder->priv->joins != NULL) { for(jlist = builder->priv->joins; jlist != NULL; jlist = jlist->next) { g_string_append(sql, " AND "); g_string_append(sql, ((MidgardCoreQueryConstraintPrivate*)jlist->data)->condition); } } MidgardDBObjectClass *dbklass = g_type_class_peek(builder->priv->type); if(!builder->priv->include_deleted) { const gchar *deleted_field = midgard_core_object_get_deleted_field (dbklass); if (deleted_field) { g_string_append(sql, " AND "); g_string_append_printf(sql, " %s.%s = FALSE", builder->priv->schema->table, deleted_field); } } /* ORDER BY */ olist = NULL; i = 0; if(builder->priv->orders != NULL) { g_string_append(sql, " ORDER BY "); for(olist = builder->priv->orders; olist != NULL; olist = olist->next) { if(i > 0) g_string_append(sql, ", "); MidgardQueryOrder *order = (MidgardQueryOrder *)olist->data; g_string_append(sql, midgard_core_query_order_get_sql(order)); i++; } } if (mode < MQB_SELECT_COUNT && builder->priv->limit != G_MAXUINT) g_string_append_printf(sql, " LIMIT %u", builder->priv->limit); if (builder->priv->offset != 0) g_string_append_printf(sql, " OFFSET %u", builder->priv->offset); return g_string_free(sql, FALSE); } gchar * midgard_core_qb_get_sql_as( MidgardQueryBuilder *builder, const gchar *name) { g_assert(builder != NULL); g_assert(name != NULL); g_warning("FIXME, it's not supported"); return NULL; } static void __join_reference(MidgardQueryBuilder *builder, const gchar *src_table, const gchar *ref_table) { /* Join guid and parent_guid */ MidgardCoreQueryConstraint *jc = midgard_core_query_constraint_new(); GString *jstr = g_string_new(""); g_string_append_printf(jstr,"%s.parent_guid = %s.guid", ref_table, src_table); jc->priv->condition = g_strdup(jstr->str); g_string_free(jstr, TRUE); midgard_core_qb_add_constraint(builder,jc); /* limit to records which are not deleted */ MidgardCoreQueryConstraint *dc = midgard_core_query_constraint_new(); GString *dstr = g_string_new(""); g_string_append_printf(dstr,"%s.metadata_deleted = 0", ref_table); dc->priv->condition = g_string_free(dstr, FALSE); midgard_core_qb_add_constraint(builder,dc); return; } static gboolean __add_join(GSList **list, MidgardCoreQueryConstraintPrivate *mqcp) { GSList *clist = NULL; gboolean exists = FALSE; if(mqcp->condition == NULL) return exists; for(clist = *list; clist != NULL; clist = clist->next) { if(((MidgardCoreQueryConstraintPrivate *)clist->data)->condition == NULL) continue; if(g_str_equal(((MidgardCoreQueryConstraintPrivate *)clist->data)->condition, mqcp->condition)) exists = TRUE; } if(!exists) { *list = g_slist_append(*list, mqcp); return TRUE; } return FALSE; } static gboolean __set_schema_property_attr( MidgardQueryBuilder *builder, MidgardDBObjectClass **klass, MidgardCoreQueryConstraint **constraint, const gchar *name, gboolean do_link) { MgdSchemaPropertyAttr *attr = NULL; const gchar *target_property = NULL; const gchar *link_property = NULL; /* Set klass and property so later we use this info when * gvalue typecasting should be done */ (*constraint)->priv->klass = G_OBJECT_CLASS(*klass); (*constraint)->priv->propname = name; /* Reserved properties */ /* METADATA */ if (g_str_equal("metadata", name)) { *klass = g_type_class_peek(MIDGARD_TYPE_METADATA); return TRUE; } /* ATTACHMENT */ if (g_str_equal(_RESERVED_BLOB_NAME, name)) { if (builder && !builder->priv->blob_join_exists) { __join_reference(builder, (const gchar *)(*constraint)->priv->current->table, _RESERVED_BLOB_TABLE); builder->priv->blob_join_exists = TRUE; } *klass = g_type_class_peek(g_type_from_name("midgard_attachment")); (*constraint)->priv->current->table = _RESERVED_BLOB_TABLE; return TRUE; } /* PARAMETER */ if (g_str_equal(_RESERVED_PARAM_NAME, name)) { if (builder && !builder->priv->param_join_exists) { __join_reference(builder, (const gchar *)(*constraint)->priv->current->table, _RESERVED_PARAM_TABLE); builder->priv->param_join_exists = TRUE; } *klass = g_type_class_peek(g_type_from_name("midgard_parameter")); (*constraint)->priv->current->table = _RESERVED_PARAM_TABLE; /* Select DISTINCT. * Constraints might be grouped with "OR" operator and duplicated * records can be returned explicitly */ if (builder) { builder->priv->select_distinct = TRUE; } return TRUE; } /* User defined properties */ GParamSpec *pspec = g_object_class_find_property(G_OBJECT_CLASS(*klass), name); if(!pspec) { g_warning("%s is not registered property of %s class", name, G_OBJECT_CLASS_NAME(*klass)); return FALSE; } /* Set klass and property so later we use this info when gvalue typecasting should be done */ (*constraint)->priv->klass = G_OBJECT_CLASS(*klass); (*constraint)->priv->propname = pspec->name; (*constraint)->priv->pspec = pspec; attr = midgard_core_class_get_property_attr (MIDGARD_DBOBJECT_CLASS(*klass), name); target_property = NULL; link_property = NULL; MidgardReflectionProperty *mrp = midgard_reflection_property_new (MIDGARD_DBOBJECT_CLASS (*klass)); if (midgard_reflection_property_is_link (mrp, name) && do_link) { const gchar *target_property = midgard_reflection_property_get_link_target(mrp, name); const gchar *link_klass = midgard_reflection_property_get_link_name(mrp, name); gboolean is_link = TRUE; if ((*constraint)->priv->current->link_target == NULL) { MidgardCoreQueryConstraintPrivate *mqcp = midgard_core_query_constraint_private_new(); mqcp->current->is_link = is_link; mqcp->current->link_target = target_property; mqcp->condition_operator = g_strdup("="); mqcp->prop_left->table = midgard_core_class_get_property_table (MIDGARD_DBOBJECT_CLASS(*klass), name); mqcp->prop_left->field = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS(*klass), name); MidgardObjectClass *lclass = g_type_class_peek (g_type_from_name(link_klass)); mqcp->prop_right->table = midgard_core_class_get_property_table (MIDGARD_DBOBJECT_CLASS(lclass), target_property); mqcp->prop_right->field = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS(lclass), target_property); GString *cond = g_string_new (""); g_string_append_printf (cond, "%s.%s %s %s.%s", mqcp->prop_left->table, mqcp->prop_left->field, mqcp->condition_operator, mqcp->prop_right->table, mqcp->prop_right->field); mqcp->condition = g_string_free (cond, FALSE); if (builder) { midgard_core_qb_add_table(builder, mqcp->prop_left->table); midgard_core_qb_add_table(builder, mqcp->prop_right->table); } if (builder) { if(!__add_join(&builder->priv->joins, mqcp)) { midgard_core_query_constraint_private_free(mqcp); } } } *klass = (MidgardDBObjectClass *) midgard_reflection_property_get_link_class(mrp, name); (*constraint)->priv->current->table = midgard_core_class_get_table(MIDGARD_DBOBJECT_CLASS(*klass)); g_object_unref(mrp); return TRUE; } g_object_unref(mrp); const gchar *table, *field; if (g_str_equal (name, "guid")) { table = midgard_core_class_get_table(MIDGARD_DBOBJECT_CLASS(*klass)); field = "guid"; } else { table = attr->table; field = attr->field; } if(table != NULL) (*constraint)->priv->current->table = table; (*constraint)->priv->current->field = field; return TRUE; } gboolean midgard_core_query_constraint_parse_property (MidgardCoreQueryConstraint **constraint, MidgardDBObjectClass *klass, const gchar *name) { g_assert(name != NULL); if (!klass) klass = MIDGARD_DBOBJECT_CLASS((*constraint)->priv->klass); (*constraint)->priv->current->table = midgard_core_class_get_table(MIDGARD_DBOBJECT_CLASS(klass)); /* This is optional and might be set to NULL explicitly. We need to parse property for any class which needs this */ MidgardQueryBuilder *builder = (*constraint)->priv->builder; gchar **spltd = g_strsplit(name, ".", 0); guint i = 0; /* We can support max 3 tokens */ while(spltd[i] != NULL) i++; if(i == 1) { g_strfreev(spltd); /* FIXME , it should be done by some more generic function */ GParamSpec *pspec = g_object_class_find_property(G_OBJECT_CLASS(klass), name); if(!pspec) { g_warning("%s is not a member of %s", name, G_OBJECT_CLASS_NAME(klass)); return FALSE; } const gchar *stable = midgard_core_class_get_property_table( MIDGARD_DBOBJECT_CLASS(klass), name); (*constraint)->priv->pspec = pspec; (*constraint)->priv->current->field = midgard_core_class_get_property_colname( MIDGARD_DBOBJECT_CLASS(klass), name); (*constraint)->priv->current->table = stable; if (builder) midgard_core_qb_add_table(builder, stable); (*constraint)->priv->klass = G_OBJECT_CLASS(klass); (*constraint)->priv->propname = name; if(g_str_equal(name, "guid")) (*constraint)->priv->current->field = "guid"; return TRUE; } if(i > 3) { g_warning("Failed to parse '%s'. At most 3 tokens allowed", name); g_strfreev(spltd); return FALSE; } gboolean parsed = FALSE; gboolean do_link = TRUE; guint j = 0; while(spltd[j] != NULL) { if(j+1 == i) do_link = FALSE; parsed = __set_schema_property_attr (builder, &klass, constraint, (const gchar *) spltd[j], do_link); if(!parsed) { g_strfreev(spltd); return FALSE; } j++; } g_strfreev(spltd); return TRUE; } GObject **midgard_core_qb_execute(MidgardQueryBuilder *builder, guint *n_objects) { g_assert(builder != NULL); GSList *list = midgard_core_qb_set_object_from_query(builder, MQB_SELECT_OBJECT, NULL); if(list == NULL) return NULL; guint i = 0; *n_objects = g_slist_length(list); MidgardObject **objects = g_new(MidgardObject *, *n_objects+1); GSList *l = NULL; for(l = list; l != NULL; l = l->next) { objects[i] = l->data; i++; } objects[i] = NULL; /* Terminate by NULL */ g_slist_free(list); return (GObject **)objects; } midgard2-core-10.05.7.1/src/midgard_query_result.c0000664000175000017500000000710511772046240016560 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_result.h" struct _MidgardQueryResult { GObject parent; }; /** * midgard_query_result_get_objects: * @self: #MidgardQueryResult instance * @n_objects: pointer to store number of returned objects * @error: pointer to store returned error * * Returns: (element-type GObject) (array length=n_objects) (transfer full): array of objects available in this result or %NULL * * Since: 10.05.6 */ GObject** midgard_query_result_get_objects (MidgardQueryResult *self, guint *n_objects, GError **error) { return MIDGARD_QUERY_RESULT_GET_INTERFACE (self)->get_objects (self, n_objects, error); } /** * midgard_query_result_get_columns: * @self: #MidgardQueryResult instance * @n_objects: pointer to store number of returned objects * @error: pointer to store returned error * * Returns: (element-type MidgardQueryColumn) (array length=n_objects) (transfer full): array of #MidgardQueryColumn columns available in this result or %NULL * * Since: 10.05.6 */ MidgardQueryColumn** midgard_query_result_get_columns (MidgardQueryResult *self, guint *n_objects, GError **error) { return MIDGARD_QUERY_RESULT_GET_INTERFACE (self)->get_columns (self, n_objects, error); } /** * midgard_query_result_get_rows: * @self: #MidgardQueryResult instance * @n_objects: pointer to store number of returned objects * @error: pointer to store returned error * * Returns: (element-type MidgardQueryRow) (array length=n_objects) (transfer full): array of #MidgardQueryRow rows available in this result or %NULL * * Since: 10.05.6 */ MidgardQueryRow** midgard_query_result_get_rows (MidgardQueryResult *self, guint *n_objects, GError **error) { return MIDGARD_QUERY_RESULT_GET_INTERFACE (self)->get_rows (self, n_objects, error); } /** * midgard_query_result_get_column_names: * @self: #MidgardQueryResult instance * @n_names: pointer to store number of returned names * @error: pointer to store returned error * * Returns: (transfer container) (array length=n_names): array of column names available in this result or %NULL * * Since: 10.05.6 */ gchar** midgard_query_result_get_column_names (MidgardQueryResult *self, guint *n_names, GError **error) { return MIDGARD_QUERY_RESULT_GET_INTERFACE (self)->get_column_names (self, n_names, error); } /* GOBJECT ROUTINES */ GType midgard_query_result_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQueryResultIFace), NULL, /* base_init */ NULL, /* base_finalize */ NULL, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_INTERFACE, "MidgardQueryResult", &info, 0); g_type_interface_add_prerequisite (type, G_TYPE_OBJECT); } return type; } midgard2-core-10.05.7.1/src/midgard_utils.h0000664000175000017500000000176111772046240015164 00000000000000/* * Midgard core. Utilities and routines. * * Copyright (C) 2008 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef _MIDGARD_UTIL_H_ #define _MIDGARD_UTIL_H_ const char *midgard_version(void); void midgard_init(void); void midgard_close(void); #endif /* _MIDGARD_UTIL_H_ */ midgard2-core-10.05.7.1/src/mgdschema.c0000664000175000017500000014727011772046240014266 00000000000000/* Midgard schema , records and objects definition. Copyright (C) 2004,2005,2006,2007,2008, 2009 Piotr Pokora This program is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "midgard_schema.h" #include "midgard_object.h" #include #include #include "midgard_datatypes.h" #include "midgard_type.h" #include "schema.h" #include "midgard_core_config.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" #include "midgard_core_views.h" #include "midgard_reflection_property.h" #include #include "guid.h" #include "midgard_core_xml.h" #include "midgard_metadata.h" #include "midgard_reflector_object.h" #include "midgard_base_abstract.h" /* TODO tune header files , no need to include string.h while we need to include midgard.h in almost every case */ /* Global schema_trash used when MgdSchema is destroyed * Trash must be global as we share pointers between different schemas. * Especially Midgard core object's MgdSchemaTypes are shared. * */ static GSList *schema_trash = NULL; /* Global schema file path, it's a pointer to filename being parsed. * Only for warning purposes */ static const gchar *parsed_schema = NULL; void _destroy_query_hash(gpointer key, gpointer value, gpointer userdata) { gchar *name = (gchar *) key; if(name) g_free(name); } /* return type's struct or NULL if type is not in schema */ MgdSchemaTypeAttr * midgard_schema_lookup_type (MidgardSchema *schema, gchar *name) { g_assert(schema != NULL); g_assert(name != NULL); return (MgdSchemaTypeAttr *) g_hash_table_lookup(schema->types, name); } /** * \ingroup mgdschema * \internal * Lookup for property attributes * * @param schema MgdSchema used by application * @param type Name of type registered in schema * @param propname Name of property registered for type * * @return hash table which contains property's attributes */ GHashTable * midgard_schema_lookup_type_member(MidgardSchema *schema, const gchar *typename, gchar *propname) { g_assert(schema != NULL); g_assert(typename != NULL); g_assert(propname != NULL); MgdSchemaTypeAttr *sts; sts = midgard_schema_lookup_type(schema, (gchar *)typename); if (sts != NULL) return g_hash_table_lookup(sts->prophash, propname); return NULL; } static void __warn_msg(xmlNode * node, const gchar *msg) { gchar *prop = (gchar *)xmlGetProp(node, (const xmlChar *)"name"); g_warning("%s ( %s:%s, %s on line %ld )", msg, node->name, prop, parsed_schema, xmlGetLineNo(node)); g_free(prop); } /* Define which element names should be addedd to schema. * We change them only here , and in xml file itself. */ static const gchar *mgd_complextype[] = { "type", "property", "Schema", "description", "include", "copy", "extends", TYPE_RW_ABSTRACT, TYPE_RW_USERVALUES, NULL }; static const gchar *mgd_attribute[] = { TYPE_RW_TYPE, TYPE_RW_NAME, TYPE_RW_TABLE, TYPE_RW_EXTENDS, TYPE_RW_COPY, TYPE_RW_METADATA, TYPE_RW_ABSTRACT, "parent", "parentfield", "link", "upfield", "field", "reverse", "primaryfield", "dbtype", "index", "default", "unique", "multilang", PROP_RW_PRIVATE, NULL }; static const gchar *schema_allowed_types[] = { "integer", "unsigned integer", "float", "double", "string", "text", "guid", "longtext", "bool", "boolean", "datetime", NULL }; /* RESERVED type names */ static const gchar *rtypes[] = { "midgard_view", "midgard_user", NULL }; /* RESERVED table names */ static const gchar *rtables[] = { "repligard", "midgard_user", NULL }; /* RESERVED column names */ static const gchar *rcolumns[] = { "metadata_", "group", /* This is MySQL reserved word */ NULL }; /* RESERVED abstract names */ static const gchar *rabstract_names[] = { "true", "yes", "interface", "mixin", NULL }; static gboolean strv_contains(const char **strv, const xmlChar *str) { g_assert(strv != NULL); g_assert(str != NULL); while (*strv != NULL) { if (g_str_equal(*strv++, str)) { return TRUE; } } return FALSE; } static void check_metadata_column(const xmlChar *column){ if(g_str_has_prefix((const gchar *)column, "metadata_")) g_critical("Column names prefixed with 'metadata_' are reserved ones"); } static void check_property_name(const xmlChar *name, const gchar *typename){ g_assert(name != NULL); if(g_strrstr_len((const gchar *)name, strlen((const gchar *)name), "_") != NULL) g_critical("Type '%s', property '%s'. Underscore not allowed in property names!", typename, name); if(g_str_equal(name, "guid")) g_critical("Type '%s'.Property name 'guid' is reserved!", typename); } /* Get all type attributes */ static void _get_type_attributes(xmlNode * node, MgdSchemaTypeAttr *type_attr, MidgardSchema *schema) { xmlAttr *attr; xmlChar *attrval; if (node != NULL){ attr = node->properties; attr = attr->next; /* avoid getting already added */ while (attr != NULL){ if (!strv_contains(mgd_attribute, attr->name)){ g_warning("Wrong attribute '%s' in '%s' on line %ld", attr->name, parsed_schema, xmlGetLineNo(node)); } attr = attr->next; } /* Get table name */ attrval = xmlGetProp(node, (const xmlChar *)TYPE_RW_TABLE); if (attrval) { if (strv_contains(rtables, attrval)) g_error("'%s' is reserved table name", attrval); midgard_core_schema_type_set_table (type_attr, (const gchar *)attrval); xmlFree(attrval); } /* Abstract */ attrval = xmlGetProp(node, (const xmlChar *)TYPE_RW_ABSTRACT); if (attrval) { if (!strv_contains (rabstract_names, attrval)) { __warn_msg (node, "Invalid abstract type"); g_error ("Invalid abstract type"); } if (g_str_equal (attrval, "true") || g_str_equal (attrval, "yes")) type_attr->is_abstract = TRUE; else if (g_str_equal (attrval, "interface")) type_attr->is_iface = TRUE; else if (g_str_equal (attrval, "mixin")) type_attr->is_iface = type_attr->is_mixin = TRUE; xmlFree(attrval); } /* parent */ attrval = xmlGetProp(node, (const xmlChar *)TYPE_RW_PARENT); if (attrval) { if (type_attr->parent) g_free((gchar *)type_attr->parent); type_attr->parent = g_strdup((gchar *)attrval); xmlFree(attrval); } /* extends */ attrval = xmlGetProp (node, (const xmlChar *)TYPE_RW_EXTENDS); if (attrval) { type_attr->extends = g_strdup ((gchar *)attrval); xmlFree (attrval); } /* copy */ attrval = xmlGetProp(node, (const xmlChar *)TYPE_RW_COPY); if (attrval) { g_warning ("'copy' attribute is obsolete. Please add 'table' and 'extends' attributes"); xmlFree(attrval); } /* metadata */ attrval = xmlGetProp(node, (const xmlChar *)TYPE_RW_METADATA); if (attrval) { if (g_str_equal (attrval, "false")) { type_attr->metadata_class_name = NULL; type_attr->metadata_class_ptr = NULL; } else { type_attr->metadata_class_name = g_strdup((gchar *)attrval); type_attr->metadata_class_ptr = g_type_class_peek(g_type_from_name((gchar *)attrval)); } xmlFree(attrval); } else { type_attr->metadata_class_name = g_strdup ("MidgardMetadata"); type_attr->metadata_class_ptr = g_type_class_peek (MIDGARD_TYPE_METADATA); } } } static void midgard_core_schema_get_property_type(xmlNode *node, MgdSchemaTypeAttr *type_attr, MgdSchemaPropertyAttr *prop_attr) { xmlAttr *attr; xmlChar *attrval; if (node != NULL) { attr = node->properties; attr = attr->next; while (attr != NULL) { if(g_str_equal(attr->name, "type")) { attrval = xmlNodeListGetString (node->doc, attr->children, 1); if (strv_contains(schema_allowed_types, attrval)) { midgard_core_schema_type_property_set_gtype(prop_attr, (const gchar *)attrval); } else { __warn_msg(node, "Unknown type"); } xmlFree(attrval); } attr = attr->next; } } return; } static void midgard_core_schema_get_default_value(xmlNode *node, MgdSchemaTypeAttr *type_attr, MgdSchemaPropertyAttr *prop_attr) { xmlAttr *attr; xmlChar *attrval; if (node != NULL) { attr = node->properties; attr = attr->next; while (attr != NULL) { if(g_str_equal(attr->name, "default")) { attrval = xmlNodeListGetString (node->doc, attr->children, 1); prop_attr->default_value = g_new0(GValue, 1); if (prop_attr->gtype == MGD_TYPE_STRING || prop_attr->gtype == MGD_TYPE_LONGTEXT) { g_value_init(prop_attr->default_value, G_TYPE_STRING); g_value_set_string(prop_attr->default_value, (const gchar *)attrval); } else if (prop_attr->gtype == MGD_TYPE_INT) { if (attrval == NULL || *attrval == '\0') { __warn_msg(node, "Can not set default integer value from empty string"); goto STEP_FORWARD; } g_value_init(prop_attr->default_value, G_TYPE_INT); g_value_set_int(prop_attr->default_value, (gint) atoi((const gchar *)attrval)); } else if (prop_attr->gtype == MGD_TYPE_UINT) { if (attrval == NULL || *attrval == '\0') { __warn_msg(node, "Can not set default integer value from empty string"); goto STEP_FORWARD; } g_value_init(prop_attr->default_value, G_TYPE_UINT); g_value_set_uint(prop_attr->default_value, (guint) atoi((const gchar *)attrval)); } else if (prop_attr->gtype == MGD_TYPE_FLOAT) { if (attrval == NULL || *attrval == '\0') { __warn_msg(node, "Can not set default float value from empty string"); goto STEP_FORWARD; } g_value_init(prop_attr->default_value, G_TYPE_FLOAT); g_value_set_float(prop_attr->default_value, (gfloat) g_ascii_strtod((const gchar *)attrval, NULL)); } else if (prop_attr->gtype == MGD_TYPE_TIMESTAMP) { if (attrval == NULL || *attrval == '\0') { __warn_msg(node, "Can not set default timestamp value from empty string"); goto STEP_FORWARD; } GValue strval = {0, }; g_value_init(&strval, G_TYPE_STRING); g_value_set_string(&strval, (const gchar *)attrval); g_value_init(prop_attr->default_value, MIDGARD_TYPE_TIMESTAMP); g_value_transform(&strval, prop_attr->default_value); g_value_unset(&strval); } else if (prop_attr->gtype == MGD_TYPE_BOOLEAN) { if (attrval == NULL || *attrval == '\0') { __warn_msg(node, "Can not set default boolean value from empty string"); goto STEP_FORWARD; } g_value_init(prop_attr->default_value, G_TYPE_BOOLEAN); g_value_set_boolean(prop_attr->default_value, (gint) atoi((const gchar *)attrval)); } else if (prop_attr->gtype == MGD_TYPE_GUID) { if (attrval == NULL || *attrval == '\0') { __warn_msg(node, "Can not set default guid value from empty string"); goto STEP_FORWARD; } if (!midgard_is_guid((const gchar *)attrval)) { __warn_msg(node, "Given string (default value) is not guid"); goto STEP_FORWARD; } g_value_init(prop_attr->default_value, G_TYPE_STRING); g_value_set_string(prop_attr->default_value, (const gchar *)attrval); } else { __warn_msg(node, "Do not know how to set default value for unknown type"); } xmlFree(attrval); } STEP_FORWARD: attr = attr->next; } } return; } /* Check if property is unique_name */ static void midgard_core_schema_get_unique_name(xmlNode * node, MgdSchemaTypeAttr *type_attr, MgdSchemaPropertyAttr *prop_attr) { xmlAttr *attr; xmlChar *attrval; if (node != NULL){ attr = node->properties; attr = attr->next; /* avoid getting already added */ while (attr != NULL){ if (!strv_contains(mgd_attribute, attr->name)){ g_warning("Wrong attribute '%s' in '%s' on line %ld", attr->name, parsed_schema, xmlGetLineNo(node)); } if (g_str_equal(attr->name, "unique")) { attrval = xmlGetProp(node, (const xmlChar*)"unique"); if (attrval && g_str_equal(attrval, "yes")) { if (prop_attr->gtype != MGD_TYPE_STRING) __warn_msg(node, "Unique name must be declared as string type"); gchar *propname = (gchar *)xmlGetProp(node, (const xmlChar *)"name"); type_attr->unique_name = g_strdup(propname); g_free(propname); prop_attr->is_unique = TRUE; } if (attrval != NULL) xmlFree(attrval); } attr = attr->next; } } } /* Get property attributes */ static void _get_property_attributes(xmlNode * node, MgdSchemaTypeAttr *type_attr, MgdSchemaPropertyAttr *prop_attr) { g_return_if_fail (node != NULL); g_return_if_fail (type_attr != NULL); g_return_if_fail (prop_attr != NULL); xmlAttr *attr; xmlChar *attrval = NULL; /* Validate attributes. Throw warning if there's invalid one. */ attr = node->properties; attr = attr->next; while (attr != NULL) { if (!strv_contains(mgd_attribute, attr->name)) { g_warning ("Wrong attribute '%s' in '%s' on line %ld", attr->name, parsed_schema, xmlGetLineNo(node)); } attr = attr->next; } /* dbtype */ attrval = xmlGetProp (node, (const xmlChar *)"dbtype"); if (attrval) { prop_attr->dbtype = g_strdup((gchar *)attrval); xmlFree (attrval); } /* field */ attrval = xmlGetProp (node, (const xmlChar *)PROP_RW_FIELD); if (attrval) { /* Check if column name is reserved one */ check_metadata_column (attrval); if (strv_contains (rcolumns, attrval)) { __warn_msg(node, "Invalid (reserved) column name defined"); g_error ("Invalid column name"); } prop_attr->field = g_ascii_strdown ((gchar *)attrval, -1); xmlFree (attrval); } else { gchar *dash = g_strstr_len (prop_attr->name, -1, "-"); if (dash != NULL) { gchar *tmp = g_strdup (prop_attr->name); prop_attr->field = g_ascii_strdown (g_strdelimit (tmp, "-", '_'), -1); g_free (tmp); } else { prop_attr->field = g_ascii_strdown (prop_attr->name, -1); } } /* index */ attrval = xmlGetProp (node, (const xmlChar *)PROP_RW_INDEX); if (attrval) { if (g_str_equal(attrval, "yes") || g_str_equal (attrval, "true")) prop_attr->dbindex = TRUE; xmlFree (attrval); } /* table, backward compatibility */ attrval = xmlGetProp (node, (const xmlChar *)TYPE_RW_TABLE); if (attrval) { /* Disable warning, we can not use debug level */ /* __warn_msg (node, "'table' attribute not supported"); */ xmlFree (attrval); } /* upfield */ attrval = xmlGetProp (node, (const xmlChar *)PROP_RW_UPFIELD); if (attrval) { check_metadata_column (attrval); /* Check if column name is reserved one */ if (strv_contains (rcolumns, attrval)) { g_critical("'%s' is reserved column name", attrval); } if(!type_attr->property_up) { xmlChar *tmpattr = xmlGetProp (node, (const xmlChar *)"name"); type_attr->property_up = g_strdup((gchar *)tmpattr); type_attr->upfield = g_strdup((gchar *)attrval); if (!midgard_core_object_prop_up_is_valid(prop_attr->gtype)) { __warn_msg(node, "Invalid type for up property."); g_error("Wrong schema attribute"); } xmlFree(tmpattr); } else { __warn_msg(node, "Upfield redefined!"); } prop_attr->upfield = g_strdup((gchar *)attrval); xmlFree (attrval); } /* parentfield */ attrval = xmlGetProp (node, (const xmlChar *)PROP_RW_PARENTFIELD); if (attrval) { check_metadata_column (attrval); /* Check if column name is reserved one */ if (strv_contains (rcolumns, attrval)) { g_critical ("'%s' is reserved column name", attrval); } if (!type_attr->property_parent) { xmlChar *tmpattr = xmlGetProp (node, (const xmlChar *)"name"); type_attr->property_parent = g_strdup ((gchar *)tmpattr); type_attr->parentfield = g_strdup ((gchar *)attrval); if (!midgard_core_object_prop_parent_is_valid (prop_attr->gtype)) { __warn_msg (node, "Invalid type for parent property."); g_error ("Wrong schema attribute"); } xmlFree(tmpattr); } else { __warn_msg(node, "Parentfield redefined!"); } if (type_attr->upfield && (g_str_equal (type_attr->upfield, type_attr->parentfield))) { __warn_msg (node, "Parentfield and upfield is the same property"); g_error ("Wrong schema attribute"); } prop_attr->parentfield = g_strdup ((gchar *)attrval); xmlFree (attrval); } /* multilang, backward compatibility */ attrval = xmlGetProp (node, (const xmlChar *)"multilang"); if (attrval) { /* Disable warning, we can not use debug level */ /* __warn_msg (node, "'multilang' attribute not supported"); */ xmlFree (attrval); } /* primaryfield */ attrval = xmlGetProp (node, (const xmlChar *)PROP_RW_PRIMARY); if (attrval) { check_metadata_column (attrval); /* Check if column name is reserved one */ if (strv_contains (rcolumns, attrval)) g_critical ("'%s' is reserved column name",attrval); prop_attr->primaryfield = g_strdup ((gchar *)attrval); prop_attr->is_primary = TRUE; xmlChar *tmpattr = xmlGetProp (node, (const xmlChar *)"name"); type_attr->primary = g_strdup ((gchar *)tmpattr); type_attr->primaryfield = g_strdup ((gchar *)attrval); xmlFree (tmpattr); xmlFree (attrval); } /* reverse */ attrval = xmlGetProp (node, (const xmlChar *)PROP_RW_REVERSE); if (attrval ) { if (g_str_equal (attrval, "yes") || g_str_equal (attrval, "true")) prop_attr->is_reversed = TRUE; xmlFree (attrval); } /* link */ attrval = xmlGetProp (node, (const xmlChar *)PROP_RW_LINK); if (attrval) { if(!midgard_core_object_prop_link_is_valid(prop_attr->gtype)) { __warn_msg(node, "Invalid type for link property."); g_error("Wrong schema attribute"); } gchar **link = g_strsplit((gchar *)attrval, ":", -1); prop_attr->link = g_strdup((gchar *)link[0]); prop_attr->is_link = TRUE; if(link[1]) prop_attr->link_target = g_strdup((gchar *)link[1]); else prop_attr->link_target = g_strdup("guid"); g_strfreev(link); xmlFree (attrval); } /* private */ attrval = xmlGetProp (node, (const xmlChar *)PROP_RW_PRIVATE); if (attrval) { if (g_str_equal (attrval, "yes") || g_str_equal (attrval, "true")) prop_attr->is_private = TRUE; xmlFree (attrval); } } static void _get_user_fields (xmlNode *node, MgdSchemaPropertyAttr *prop_attr) { xmlNode *snode = NULL; for (snode = node->children; snode != NULL; snode = snode->next) { if (snode->type == XML_ELEMENT_NODE){ xmlParserCtxtPtr parser = xmlNewParserCtxt(); gchar *value = (gchar *)xmlNodeGetContent(snode); xmlChar *decoded = xmlStringDecodeEntities(parser, (const xmlChar *) value, XML_SUBSTITUTE_REF, 0, 0, 0); if (g_str_equal (snode->name, "description")) { g_free (prop_attr->description); /* Explicitly free, it's initialized with new empty string by default */ prop_attr->description = g_strdup((gchar *)decoded); } else { g_hash_table_insert(prop_attr->user_values, g_strdup((gchar *)snode->name), g_strdup((gchar *)decoded)); } g_free(decoded); xmlFreeParserCtxt(parser); g_free(value); } } } static void __get_type_user_values (xmlNode *node, MgdSchemaTypeAttr *type_attr) { xmlNode *snode = NULL; xmlNode *user_value = NULL; for (snode = node; snode != NULL; snode = snode->next) { if (snode->type != XML_ELEMENT_NODE) continue; if (g_str_equal (snode->name, TYPE_RW_USERVALUES)) { for (user_value = snode->children; user_value != NULL; user_value = user_value->next) { if (user_value->type != XML_ELEMENT_NODE) continue; xmlParserCtxtPtr parser = xmlNewParserCtxt(); gchar *value = (gchar *)xmlNodeGetContent(user_value); xmlChar *decoded = xmlStringDecodeEntities (parser, (const xmlChar *) value, XML_SUBSTITUTE_REF, 0, 0, 0); g_hash_table_insert (type_attr->user_values, g_strdup ((gchar *)user_value->name), g_strdup ((gchar *)decoded)); g_free (decoded); xmlFreeParserCtxt (parser); g_free (value); } } } } static void __get_properties (xmlNode *curn, MgdSchemaTypeAttr *type_attr, MidgardSchema *schema) { xmlNode *node = NULL; xmlChar *nv = NULL; MgdSchemaPropertyAttr *prop_attr; gchar *tmpstr; for (node = curn; node != NULL; node = node->next){ if (node->type != XML_ELEMENT_NODE) continue; if (!strv_contains (mgd_complextype, node->name)) { g_warning ("Wrong node name '%s' in '%s' on line %ld", node->name, parsed_schema, xmlGetLineNo(node)); } if (g_str_equal (node->name, TYPE_RW_PROPERTY)) { nv = xmlGetProp (node, (const xmlChar *) TYPE_RW_NAME); check_property_name (nv, type_attr->name); prop_attr = g_hash_table_lookup (type_attr->prophash, (gchar *)nv); if (prop_attr != NULL) { __warn_msg (node, "Invalid property"); g_error ("Property '%s' already added to %s", nv, type_attr->name); } prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->name = g_strdup ((gchar *)nv); midgard_core_schema_get_property_type (node, type_attr, prop_attr); midgard_core_schema_get_default_value (node, type_attr, prop_attr); midgard_core_schema_get_unique_name (node, type_attr, prop_attr); _get_user_fields (node, prop_attr); _get_property_attributes (node, type_attr, prop_attr); if(prop_attr->is_primary && prop_attr->gtype != MGD_TYPE_UINT) { tmpstr = (gchar *)xmlGetProp(node->parent, (const xmlChar *)"name"); g_message(" %s - type for primaryfield not defined" " as 'unsigned integer'. Forcing uint type", tmpstr); g_free(tmpstr); } gchar *property_name = g_strdup ((gchar *)nv); g_hash_table_insert (type_attr->prophash, property_name, prop_attr); /* Workaround. * _properties_list is only properties' holder. * It just holds properties in the same order we declared them in MgdSchema file */ type_attr->_properties_list = g_slist_append (type_attr->_properties_list, property_name); xmlFree (nv); } } } static void _get_element_names (xmlNode *curn , MgdSchemaTypeAttr *type_attr, MidgardSchema *schema) { xmlNode *obj = NULL; xmlChar *nv = NULL; MgdSchemaTypeAttr *duplicate; for (obj = curn->children; obj != NULL; obj = obj->next) { if (obj->type != XML_ELEMENT_NODE) continue; if (!strv_contains(mgd_complextype, obj->name)) { g_warning("Wrong node name '%s' in '%s' on line %ld", obj->name, parsed_schema, xmlGetLineNo(obj)); } if (!g_str_equal(obj->name, TYPE_RW_TYPE)) continue; /* Get type name */ nv = xmlGetProp (obj, (const xmlChar *) TYPE_RW_NAME); /* Check if type name is reserved one */ if (strv_contains(rtypes, nv)) { __warn_msg(obj, "Invalid type name"); g_error("'%s' is reserved type name", nv); } /* Check for duplicates */ duplicate = midgard_schema_lookup_type(schema, (gchar *)nv); if (duplicate != NULL) { __warn_msg(obj, "Invalid type name"); g_error("%s:%s already added to schema!", obj->name, nv); } type_attr = midgard_core_schema_type_attr_new(); type_attr->name = g_strdup((gchar *)nv); type_attr->schema = schema; g_hash_table_insert(schema->types, g_strdup((gchar *)nv), type_attr); _get_type_attributes (obj, type_attr, schema); if (obj->children != NULL) { __get_properties(obj->children, type_attr, schema); __get_type_user_values (obj->children, type_attr); } xmlFree(nv); } } /* Start processing type's properties data. * This function is called from __get_tdata_foreach */ void __get_pdata_foreach(gpointer key, gpointer value, gpointer user_data) { MgdSchemaTypeAttr *type_attr = (MgdSchemaTypeAttr *) user_data; MgdSchemaPropertyAttr *prop_attr = (MgdSchemaPropertyAttr *) value; const gchar *primary; const gchar *pname = (gchar *) key; const gchar *upfield = NULL, *parentfield = NULL; const gchar *fname = NULL; gchar *table = NULL; table = g_strdup (prop_attr->table); upfield = prop_attr->upfield; parentfield = prop_attr->parentfield; primary = prop_attr->primaryfield; if (table != NULL){ fname = prop_attr->field; midgard_core_schema_type_property_set_tablefield (prop_attr, table, fname ? fname : pname); midgard_core_schema_type_add_table(type_attr, table); } /* FIXME , this needs to be refactored for real property2field mapping */ if(!type_attr->primaryfield) type_attr->primaryfield = g_strdup("guid"); if(!type_attr->primary){ type_attr->primary = g_strdup("guid"); } if(primary != NULL && table != NULL) midgard_core_schema_type_property_set_tablefield(prop_attr, table, primary); if(upfield != NULL && table != NULL) midgard_core_schema_type_property_set_tablefield(prop_attr, table, upfield); if(parentfield != NULL && table != NULL) midgard_core_schema_type_property_set_tablefield(prop_attr, table, parentfield); if(prop_attr->field == NULL) prop_attr->field = g_ascii_strdown (pname, -1); /* Force G_TYPE_UINT type for primaryfield */ if((prop_attr->is_primary) && (prop_attr->gtype != G_TYPE_UINT)) prop_attr->gtype = G_TYPE_UINT; g_free (table); } /* Get types' data. Type's name and its values. * We can not start creating GParamSpec while we parse xml file. * This is internally used with _register_types function. At this * moment we can count all properties of type and call sizeof * with correct values */ void __get_tdata_foreach(gpointer key, gpointer value, gpointer user_data) { MgdSchemaTypeAttr *type_attr = (MgdSchemaTypeAttr *) value; guint np; if(g_type_from_name(key)) return; np = g_hash_table_size(type_attr->prophash); if (np < 1) return; if (type_attr->table) g_hash_table_foreach(type_attr->prophash, __get_pdata_foreach, type_attr); } /* Copy source schema types ( class names ) and its MgdSchemaType structures * to destination schema */ void _copy_schemas(gpointer key, gpointer value, gpointer userdata) { gchar *typename = (gchar *)key; MgdSchemaTypeAttr *type = (MgdSchemaTypeAttr *)value; MidgardSchema *ts = (MidgardSchema *) userdata; if(!g_hash_table_lookup(ts->types, typename)) { if(type != NULL) g_hash_table_insert(ts->types, g_strdup(typename), type); } } /* We CAN NOT define some data during __get_tdata_foreach. * parent and children relation ( for example ) must be done AFTER * all types are registered and all types internal structures are * already initialized and defined */ void __postconfig_schema_foreach(gpointer key, gpointer value, gpointer userdata) { MgdSchemaTypeAttr *type_attr = (MgdSchemaTypeAttr *) value; MgdSchemaTypeAttr *parenttype = NULL; MidgardSchema *schema = (MidgardSchema *) userdata; gchar *typename = (gchar *) key; const gchar *parentname; parentname = type_attr->parent; if (parentname != NULL ){ /* WARNING!! , all types which has parenttype defined will be appended to * this list. It doesn't matter if they are "registered" in such schema. * Every GObjectClass has only one corresponding C structure , so it is impossible * to initialize new MgdSchemaTypeAttr per every classname * in every schema and keep them separated for every GObjectClass , * as we define only one GType. * It may be resolved by expensive hash lookups for every new object instance. */ if ((parenttype = midgard_schema_lookup_type(schema, (gchar *)parentname)) != NULL){ // g_debug("type %s, parent %s", typename, parentname); if (!g_slist_find_custom(parenttype->children, (gpointer)typename, (GCompareFunc)g_strcmp0)) { parenttype->children = g_slist_append(parenttype->children, (gpointer) g_strdup(typename)); } } } } static const char *NAMESPACE = "http://www.midgard-project.org/repligard/1.4"; /* Forward declarations used by read_schema_path() */ static void read_schema_directory(GHashTable *files, const char *directory); static void read_schema_file(GHashTable *files, const char *file); static void read_schema_path(GHashTable *files, const char *path) { g_assert(files != NULL); g_assert(path != NULL); if (g_file_test(path, G_FILE_TEST_IS_DIR)) { read_schema_directory(files, path); } else if (g_file_test(path, G_FILE_TEST_EXISTS)) { read_schema_file(files, path); } else { g_warning("Schema path %s not found", path); } } /* * \internal * Reads the schema file from the given path to the given schema hash table. * The file is parsed as an XML file and the resulting xmlDocPtr is inserted * to the schema hash table with the file path as the key. Both the XML * document and the file path are newly allocated and must be freed when * the hash table is destroyed. Logs a warning and returns if the file * has already been included in the hash table or if it cannot be parsed. * Any includes within the parsed file are processed recursively. */ static void read_schema_file(GHashTable *files, const char *file) { g_assert(files != NULL); g_assert(file != NULL); /* Guard against duplicate loading of schema files */ if (g_hash_table_lookup(files, file) != NULL) { g_warning("Skipping already seen schema file %s", file); return; } /* Parse this schema file */ /* g_debug("Reading schema file %s", file); */ xmlDocPtr doc = xmlParseFile(file); if (doc == NULL) { g_warning("Skipping malformed schema file %s", file); return; } xmlNodePtr root = xmlDocGetRootElement(doc); if (root == NULL || root->ns == NULL || !g_str_equal(root->ns->href, NAMESPACE) || !g_str_equal(root->name, "Schema")) { g_warning("Skipping invalid schema file %s", file); xmlFreeDoc(doc); return; } /* Add the schema file to the hash table */ g_hash_table_insert(files, g_strdup(file), doc); /* Read all included schema files */ xmlNodePtr node = root->children; while (node != NULL) { xmlChar *attr = xmlGetNoNsProp(node, (xmlChar *) "name"); if (node->type == XML_ELEMENT_NODE && node->ns != NULL && g_str_equal(node->ns->href, NAMESPACE) && g_str_equal(node->name, "include") && attr != NULL) { GError *error = NULL; gchar *name = g_filename_from_utf8( (const gchar *) attr, -1, NULL, NULL, &error); if (name == NULL) { g_warning("g_filename_from_utf8: %s", error->message); g_error_free(error); } else if (g_path_is_absolute(name)) { read_schema_path(files, name); g_free(name); } else { gchar *dir = g_path_get_dirname(file); gchar *path = g_build_filename(dir, name, NULL); read_schema_path(files, path); g_free(path); g_free(dir); g_free(name); } } if (attr != NULL) { xmlFree(attr); } node = node->next; } } /* * \internal * Reads the schema directory from the given path to the given schema * hash table. Ignores all hidden files and subdirectories, and recurses * into normal subdirectories. All files with the suffix ".xml" are read * and inserted into the schema hash table. */ static void read_schema_directory(GHashTable *files, const char *directory) { g_assert(files != NULL); g_assert(directory != NULL); GError *error = NULL; GDir *dir = g_dir_open(directory, 0, &error); if (dir != NULL) { const gchar *file = g_dir_read_name(dir); while (file != NULL) { gchar *path = g_build_filename(directory, file, NULL); if (g_str_has_prefix(file, ".")) { /* skip hidden files and directories */ } else if (g_str_has_prefix(file, "#")) { /* skip backup files and directories */ } else if (!g_file_test(path, G_FILE_TEST_IS_DIR)) { /* recurse into subdirectories */ read_schema_directory(files, path); } else if (g_str_has_suffix(file, ".xml")) { /* read xml file, guaranteed to exist */ read_schema_file(files, path); } g_free(path); file = g_dir_read_name(dir); } g_dir_close(dir); } else { g_warning("g_dir_open: %s", error->message); g_error_free(error); } } /* * \internal * Reads all the schema files identified by the given path and any includes * within the schema files. Returns the fiels as a newly allocated hash * table with the schema file paths as keys and the parsed XML documents * (xmlDocPtr) as values. The returned hash table contains content destroy * functions so the caller can just use g_hash_table_destroy() to release * all memory associated with the returned hash table. */ static GHashTable *read_schema_files(const char *path) { g_assert(path != NULL); GHashTable *files = g_hash_table_new_full( g_str_hash, g_str_equal, g_free, (GDestroyNotify) xmlFreeDoc); read_schema_path(files, path); return files; } static void parse_schema(gpointer key, gpointer value, gpointer user_data) { g_assert(key != NULL); g_assert(value != NULL); g_assert(user_data != NULL); parsed_schema = (const gchar *)key; MidgardSchema *schema = (MidgardSchema *) user_data; xmlDocPtr doc = (xmlDocPtr) value; xmlNodePtr root = xmlDocGetRootElement(doc); _get_element_names(root, NULL, schema); } /* API functions */ /* Initializes basic Midgard classes */ /** * midgard_schema_init: * @self: #MidgardSchema instance * @path: full path to a xml file with common classes * * Reads xml file which defines very basic and common classes. * By default it's `/usr/local/share/midgard/MidgardObjects.xml` file. */ void midgard_schema_init(MidgardSchema *self, const gchar *path) { g_assert(self != NULL); const gchar *lpath = path; if (path == NULL) { lpath = MIDGARD_GLOBAL_SCHEMA; const gchar *env_schema = g_getenv("MIDGARD_ENV_GLOBAL_SCHEMA"); if (env_schema != NULL) lpath = env_schema; } if (g_file_test(lpath, G_FILE_TEST_IS_DIR)) { g_warning("Common MidgardObjects.xml path is a directory"); return; } if (!g_file_test(lpath, G_FILE_TEST_EXISTS)) { g_warning("Common MidgardObjects.xml file (%s) doesn't exist.", lpath); return; } midgard_schema_read_file(self, lpath); } /* Checks if classname is registsred for schema. */ /** * midgard_schema_type_exists: * @self: #MidgardSchema instance * @classname: #GObjectClass derived class name * * Returns: %TRUE if class is registered as #MidgardObjectClass derived, %FALSE otherwise */ gboolean midgard_schema_type_exists(MidgardSchema *self, const gchar *classname) { g_assert(self != NULL); g_assert(classname != NULL); if(g_hash_table_lookup(self->types, classname)) return TRUE; return FALSE; } /** * midgard_schema_read_file: * @self: #MidgardSchema instance * @filename: full path to a file * * Reads file at given path and initialize all #MidgardObjectClass derived classes defined * in this file. Also reads all files which are included in this file. * Such files are read and parsed when given file is already parsed and all classes * defined in given file are already registered in GType system. */ void midgard_schema_read_file( MidgardSchema *self, const gchar *filename) { MidgardSchema *schema = self; g_assert(schema != NULL); g_assert(filename != NULL); GHashTable *files = read_schema_files(filename); g_hash_table_foreach(files, parse_schema, schema); g_hash_table_destroy(files); /* register types */ g_hash_table_foreach(schema->types, __get_tdata_foreach, schema); /* Do postconfig for every initialized schema */ g_hash_table_foreach(schema->types, __postconfig_schema_foreach, schema); } static void __is_linked_valid(MidgardDBObjectClass *klass, const gchar *prop) { MidgardReflectionProperty *smrp = NULL; MidgardReflectionProperty *dmrp = NULL; smrp = midgard_reflection_property_new(klass); const gchar *typename = G_OBJECT_CLASS_NAME(klass); if(!midgard_reflection_property_is_link(smrp, prop)) { g_object_unref (smrp); return; } const MidgardDBObjectClass *pklass = midgard_reflection_property_get_link_class(smrp, prop); if(!pklass) g_error("Can not get link class for %s.%s", typename, prop); const gchar *prop_link = midgard_reflection_property_get_link_target(smrp, prop); if(!prop_link) g_error("Can not get link for %s.%s", typename, prop); /* We need to set is_linked for linked property. It can not be done when schema is parsed because * linked class might be not registered in that phase */ MgdSchemaPropertyAttr *prop_attr = g_hash_table_lookup(pklass->dbpriv->storage_data->prophash, prop_link); if (prop_attr == NULL) { g_warning("Couldn't find property attribute for %s.%s", G_OBJECT_CLASS_NAME(pklass), prop_link); } else { prop_attr->is_linked = TRUE; } GType src_type = midgard_reflection_property_get_midgard_type(smrp, prop); dmrp = midgard_reflection_property_new(MIDGARD_DBOBJECT_CLASS(pklass)); GType dst_type = midgard_reflection_property_get_midgard_type(dmrp, prop_link); g_object_unref (smrp); g_object_unref (dmrp); if(src_type != dst_type) g_error("Mismatched references' types: %s.%s type != %s.%s type", typename, prop, G_OBJECT_CLASS_NAME(pklass), prop_link); return; } static void __midgard_schema_validate() { guint n_types, i; guint n_prop = 0; guint j = 0; const gchar *typename, *parentname; GType *all_types = g_type_children(MIDGARD_TYPE_OBJECT, &n_types); MidgardObjectClass *klass = NULL; MidgardObjectClass *pklass = NULL; for (i = 0; i < n_types; i++) { typename = g_type_name(all_types[i]); klass = MIDGARD_OBJECT_GET_CLASS_BY_NAME(typename); GParamSpec **pspecs = g_object_class_list_properties(G_OBJECT_CLASS(klass), &n_prop); if(n_prop == 0) continue; for(j = 0; j < n_prop; j++) { __is_linked_valid(MIDGARD_DBOBJECT_CLASS(klass), pspecs[j]->name); } g_free(pspecs); parentname = MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_data->parent; if(parentname != NULL) { /* validate tree parent class */ pklass = MIDGARD_OBJECT_GET_CLASS_BY_NAME(parentname); if(pklass == NULL) { g_error("Parent %s for %s class is not registered in GType system", parentname, typename); } /* validate parent property if exists */ const gchar *prop = midgard_reflector_object_get_property_parent (typename); MidgardReflectionProperty *smrp = NULL; if(prop) { smrp = midgard_reflection_property_new(MIDGARD_DBOBJECT_CLASS(klass)); if(!midgard_reflection_property_is_link(smrp, prop)) g_error("Parent property %s of class %s is not defined as link", prop, typename); __is_linked_valid(MIDGARD_DBOBJECT_CLASS(klass), prop); g_object_unref(smrp); } /* validate up property link */ prop = midgard_reflector_object_get_property_up (typename); if(prop) { smrp = midgard_reflection_property_new(MIDGARD_DBOBJECT_CLASS(klass)); if(!midgard_reflection_property_is_link(smrp, prop)) g_error("Up property %s of class %s is not defined as link", prop, typename); __is_linked_valid(MIDGARD_DBOBJECT_CLASS(klass), prop); g_object_unref(smrp); } } } g_free(all_types); } static void __extend_type_attr(gpointer key, gpointer val, gpointer userdata) { MgdSchemaPropertyAttr *parent_attr = (MgdSchemaPropertyAttr *) val; MgdSchemaTypeAttr *type = (MgdSchemaTypeAttr *) userdata; /* Look for property registered for child type. If it is registered we silently return. Child type may use different field for inherited property name */ MgdSchemaPropertyAttr *prop_attr = g_hash_table_lookup(type->prophash, key); if (prop_attr) return; midgard_core_schema_type_property_copy(parent_attr, type); } static void __extend_type(MgdSchemaTypeAttr *type_attr, MidgardSchema *schema) { if (type_attr->extends == NULL) return; MgdSchemaTypeAttr *parent_type_attr = NULL; guint n_types; guint i; gchar **extends = midgard_core_schema_type_list_extends (type_attr, &n_types); if (n_types == 0) return; for (i = 0; i < n_types; i++) { MgdSchemaTypeAttr *parent_type_attr = midgard_schema_lookup_type(schema, extends[i]); GType parent_type = g_type_from_name (extends[i]); /* Try to get type from class' data */ if (!parent_type_attr) { GObjectClass *klass = g_type_class_peek (parent_type); if (klass && MIDGARD_IS_DBOBJECT_CLASS(klass)) { parent_type_attr = MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_data; } } if (!parent_type_attr && (parent_type != G_TYPE_NONE && !G_TYPE_IS_ABSTRACT(parent_type))) { g_error("Type information for %s (%s's parent) not found", extends[i], type_attr->name); } /* We do not need to start inheritance chain, if it's abstract type * or type without storage or properties defined */ if (!parent_type_attr) return; /* Chain up */ __extend_type (parent_type_attr, schema); midgard_core_schema_type_attr_extend (parent_type_attr, type_attr); /* Use parent's storage */ if (type_attr->table == NULL) type_attr->table = g_strdup(parent_type_attr->table); if (type_attr->tables == NULL) type_attr->tables = g_strdup(parent_type_attr->tables); GSList *slist = NULL; for (slist = parent_type_attr->_properties_list; slist != NULL; slist = slist->next) { if (g_slist_find_custom (type_attr->_properties_list, slist->data, (GCompareFunc) g_ascii_strcasecmp) == NULL) type_attr->_properties_list = g_slist_prepend (type_attr->_properties_list, slist->data); } g_hash_table_foreach(parent_type_attr->prophash, __extend_type_attr, type_attr); } g_strfreev (extends); } static void __extend_type_foreach(gpointer key, gpointer val, gpointer userdata) { if (val == NULL) return; MgdSchemaTypeAttr *type_attr = (MgdSchemaTypeAttr *) val; MidgardSchema *schema = (MidgardSchema*) userdata; if (type_attr->extends == NULL) return; __extend_type (type_attr, schema); } static void __copy_type_attr(gpointer key, gpointer val, gpointer userdata) { MgdSchemaPropertyAttr *parent_attr = (MgdSchemaPropertyAttr *) val; MgdSchemaTypeAttr *type = (MgdSchemaTypeAttr *) userdata; /* Look for property registered for child type. If it is registered we silently return. Child type may use different field for inherited property name */ MgdSchemaPropertyAttr *prop_attr = g_hash_table_lookup(type->prophash, key); if (prop_attr) return; midgard_core_schema_type_property_copy(parent_attr, type); prop_attr = g_hash_table_lookup(type->prophash, key); /* redefine tablefield */ if (type->table) midgard_core_schema_type_property_set_tablefield(prop_attr, type->table, prop_attr->field); } static void __copy_type_foreach(gpointer key, gpointer val, gpointer userdata) { MgdSchemaTypeAttr *type_attr = (MgdSchemaTypeAttr *) val; MidgardSchema *schema = (MidgardSchema*) userdata; gchar *copied = type_attr->copy_from; if (val == NULL) return; if (copied == NULL) return; MgdSchemaTypeAttr *parent_type_attr = midgard_schema_lookup_type(schema, copied); if (!parent_type_attr) g_error("Type information for %s (%s's parent) not found", copied, type_attr->name); GSList *slist = NULL; for (slist = parent_type_attr->_properties_list; slist != NULL; slist = slist->next) { type_attr->_properties_list = g_slist_prepend (type_attr->_properties_list, slist->data); } g_hash_table_foreach(parent_type_attr->prophash, __copy_type_attr, type_attr); } static void __register_schema_type (MgdSchemaTypeAttr *type_attr) { GType new_type; if (type_attr->is_abstract) { new_type = midgard_type_register_abstract (type_attr, MIDGARD_TYPE_BASE_ABSTRACT); } else if (type_attr->is_mixin || type_attr->is_iface) { new_type = midgard_core_type_register_interface (type_attr); return; } else { new_type = midgard_type_register(type_attr); } if (!type_attr->is_abstract && g_type_is_a (new_type, MIDGARD_TYPE_BASE_ABSTRACT)) { g_warning ("Can not register '%s' type, which is derived from '%s' abstract template", type_attr->name, g_type_name (g_type_parent (new_type))); return; } if (new_type) { /* Create new instance to ensure class is initialized */ if (!G_TYPE_IS_ABSTRACT (new_type)) { GObject *foo = g_object_new(new_type, NULL); g_object_unref (foo); } GObjectClass *klass = g_type_class_peek (new_type); if (!klass) klass = g_type_class_ref (new_type); /* Set number of properties. * This way we gain performance for instance_init call */ GParamSpec **pspecs = g_object_class_list_properties (klass, &type_attr->class_nprop); g_free(pspecs); } } static void __register_schema_type_foreach (gpointer key, gpointer val, gpointer user_data) { if (val == NULL) return; __register_schema_type ((MgdSchemaTypeAttr *) val); } static void __get_interfaces (gpointer key, gpointer val, gpointer user_data) { GSList **ifaces = (GSList **) user_data; MgdSchemaTypeAttr *type_attr = (MgdSchemaTypeAttr *) val; if (type_attr->is_iface || type_attr->is_mixin) *ifaces = g_slist_append (*ifaces, type_attr); } static void __midgard_schema_register_interfaces (MidgardSchema *self) { GSList *ifaces = NULL; g_hash_table_foreach (self->types, __get_interfaces, &ifaces); GSList *l = NULL; for (l = ifaces; l != NULL; l = l->next) { __register_schema_type ((MgdSchemaTypeAttr *) l->data); } g_slist_free (ifaces); } static void __build_static_sql (gpointer key, gpointer val, gpointer userdata) { MgdSchemaTypeAttr *type_attr = (MgdSchemaTypeAttr *)val; midgard_core_schema_type_build_static_sql (type_attr); } static void __initialize_paramspec (gpointer key, gpointer val, gpointer userdata) { MgdSchemaTypeAttr *type_attr = (MgdSchemaTypeAttr *)val; midgard_core_schema_type_initialize_paramspec (type_attr); } static void __validate_fields (gpointer key, gpointer val, gpointer userdata) { MgdSchemaTypeAttr *type_attr = (MgdSchemaTypeAttr *)val; midgard_core_schema_type_validate_fields (type_attr); } static void __midgard_schema_postconfig(MidgardSchema *self) { g_assert(self != NULL); /* TODO, validate metadata class, once we support user defined one */ g_hash_table_foreach (self->types, __extend_type_foreach, self); g_hash_table_foreach (self->types, __copy_type_foreach, self); g_hash_table_foreach (self->types, __initialize_paramspec, NULL); g_hash_table_foreach (self->types, __build_static_sql, NULL); g_hash_table_foreach (self->types, __validate_fields, NULL); __midgard_schema_register_interfaces (self); g_hash_table_foreach (self->types, __register_schema_type_foreach, NULL); } /** * midgard_schema_read_dir: * @self: #MidgardSchema instance * @dirname: a directory with 'schema' and 'views' subdirectories. * * This function expects 'schema' subdirectory at least. * 'views' subdirectory is optional, and if missed, won't be read. * midgard_schema_read_file() is invoked for every valid xml MgdSchema file * found in 'schema' subdirectory found in given directory. * * You can also use explicit NULL instead of directory path. * In such case, MIDGARD_ENV_GLOBAL_SHAREDIR environment variable is checked. * If it's not set, directory path is determined using prefix set for compile * and build time. * * Returns: %TRUE if files has been read, %FALSE otherwise */ gboolean midgard_schema_read_dir( MidgardSchema *self, const gchar *dirname) { const gchar *fname = NULL; gchar *fpfname = NULL ; GDir *dir; gint visible = 0; gchar *lschema_dir = midgard_core_config_build_schemadir_path(dirname); gchar *lview_dir = midgard_core_config_build_viewdir_path(dirname); if (!lschema_dir) return FALSE; dir = g_dir_open(lschema_dir, 0, NULL); if (dir != NULL) { while ((fname = g_dir_read_name(dir)) != NULL) { visible = 1; fpfname = g_strconcat(lschema_dir, "/", fname, NULL); /* Get files only with xml extension, * swap files with '~' suffix will be ignored */ if (!g_file_test (fpfname, G_FILE_TEST_IS_DIR) && g_str_has_suffix(fname, ".xml")){ /* Hide hidden files */ if(g_str_has_prefix(fname, ".")) visible = 0; /* Hide recovery files if such exist */ if(g_str_has_prefix(fname, "#")) visible = 0; if ( visible == 0) g_warning("File %s ignored!", fpfname); if(visible == 1){ /* FIXME, use fpath here */ midgard_schema_read_file(self, fpfname); } } g_free(fpfname); /* Do not free ( or change ) fname. * Glib itself is responsible for data returned from g_dir_read_name */ } /* post parsing routines */ __midgard_schema_postconfig(self); /* validate */ __midgard_schema_validate(); g_dir_close(dir); if (lschema_dir) g_free(lschema_dir); /* Optionally read view directory and initialize every midgard_view derived class */ if (lview_dir != NULL) { midgard_core_views_read_dir(lview_dir); g_free(lview_dir); } return TRUE; } if (lschema_dir) g_free(lschema_dir); if (lview_dir) g_free(lview_dir); return FALSE; } /* SCHEMA DESTRUCTORS */ /* Free type names, collect all MgdSchemaTypeAttr pointers */ static void _get_schema_trash(gpointer key, gpointer val, gpointer userdata) { MgdSchemaTypeAttr *stype = (MgdSchemaTypeAttr *) val; /* Collect types data pointers*/ if(!g_slist_find(schema_trash, stype)) { /* g_debug("Adding %s type to trash", (gchar *)key); */ schema_trash = g_slist_append(schema_trash, stype); } } /* GOBJECT AND CLASS */ /* Create new object instance */ static void _schema_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardSchema *self = (MidgardSchema *) instance; self->types = g_hash_table_new (g_str_hash, g_str_equal); } /* Finalize */ static void _midgard_schema_finalize (GObject *object) { g_assert (object != NULL); /* just in case */ MidgardSchema *self = (MidgardSchema *) object; g_hash_table_foreach (self->types, _get_schema_trash, NULL); g_hash_table_destroy (self->types); GSList *l = NULL; for (l = schema_trash; l != NULL; l = l->next){ midgard_core_schema_type_attr_free ((MgdSchemaTypeAttr *) l->data); } if (schema_trash) { g_slist_free (schema_trash); schema_trash = NULL; } } /* Initialize class */ static void _midgard_schema_class_init (gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); gobject_class->set_property = NULL; gobject_class->get_property = NULL; gobject_class->finalize = _midgard_schema_finalize; } /* Register MidgardSchema type */ GType midgard_schema_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardSchemaClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_schema_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardSchema), 0, /* n_preallocs */ _schema_instance_init /* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardSchema", &info, 0); } return type; } midgard2-core-10.05.7.1/src/midgard2.h0000664000175000017500000000003511772046240014017 00000000000000#include midgard2-core-10.05.7.1/src/midgard_config.c0000664000175000017500000013531211772046240015264 00000000000000/* Midgard config files routine functions * * Copyright (C) 2005, 2006, 2007 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #define _GNU_SOURCE #include #include #include #include #include #include #include #include #include "midgard_object.h" #include "midgard_config.h" #include "midgard_datatypes.h" #include "midgard_core_object.h" #include "midgard_core_query.h" #include "midgard_defs.h" #include "midgard_core_config.h" #include "midgard_connection.h" #include "midgard_error.h" #include "midgard_core_object_class.h" static gchar *__get_default_confdir(void); /* Properties */ enum { MIDGARD_CONFIG_DBTYPE = 1, MIDGARD_CONFIG_DBNAME, MIDGARD_CONFIG_DBPORT, MIDGARD_CONFIG_DBUSER, MIDGARD_CONFIG_DBPASS, MIDGARD_CONFIG_DBDIR, MIDGARD_CONFIG_HOST, MIDGARD_CONFIG_LOGFILENAME, MIDGARD_CONFIG_LOGLEVEL, MIDGARD_CONFIG_TABLECREATE, MIDGARD_CONFIG_TABLEUPDATE, MIDGARD_CONFIG_LOGFILE, MIDGARD_CONFIG_TESTUNIT, MIDGARD_CONFIG_MGDUSERNAME, MIDGARD_CONFIG_MGDPASSWORD, MIDGARD_CONFIG_AUTHTYPE, MIDGARD_CONFIG_PAMFILE, MIDGARD_CONFIG_BLOBDIR, MIDGARD_CONFIG_SHAREDIR, MIDGARD_CONFIG_VARDIR, MIDGARD_CONFIG_CACHEDIR, MIDGARD_CONFIG_GDATHREADS }; static MidgardConfigPrivate *midgard_config_private_new(void) { MidgardConfigPrivate *config_private = g_new(MidgardConfigPrivate, 1); config_private->keyfile = NULL; config_private->configname = NULL; config_private->g_file = NULL; config_private->output_stream = NULL; return config_private; } /** * midgard_config_new: * * Initializes new instance of MidgardConfig object type. * NULL is returned when object can not be initialized. * * Returns: pointer to @MidgardConfig object or %NULL on failure. */ MidgardConfig *midgard_config_new(void) { MidgardConfig *self = g_object_new(MIDGARD_TYPE_CONFIG, NULL); return self; } void __set_dbtype(MidgardConfig *self, const gchar *tmpstr) { const gchar *_dbtype = tmpstr; if(g_str_equal(tmpstr, "MySQL")) { self->priv->dbtype = MIDGARD_DB_TYPE_MYSQL; } else if(g_str_equal(tmpstr, "PostgreSQL")) { self->priv->dbtype = MIDGARD_DB_TYPE_POSTGRES; } else if(g_str_equal(tmpstr, "FreeTDS")) { self->priv->dbtype = MIDGARD_DB_TYPE_FREETDS; } else if(g_str_equal(tmpstr, "SQLite")) { self->priv->dbtype = MIDGARD_DB_TYPE_SQLITE; } else if(g_str_equal(tmpstr, "ODBC")) { self->priv->dbtype = MIDGARD_DB_TYPE_ODBC; } else if(g_str_equal(tmpstr, "Oracle")) { self->priv->dbtype = MIDGARD_DB_TYPE_ORACLE; } else if(tmpstr == NULL) { self->priv->dbtype = MIDGARD_DB_TYPE_MYSQL; } else { g_warning ("'%s' database type is invalid. Setting default MySQL one", tmpstr); self->priv->dbtype = MIDGARD_DB_TYPE_MYSQL; _dbtype = "MySQL"; } g_free (self->dbtype); self->dbtype = g_strdup(_dbtype); } void __create_log_dir(const gchar *path) { if(path == NULL || *path == '\0') return; if(g_file_test(path, G_FILE_TEST_EXISTS)) return; gchar *dir_path = g_path_get_dirname(path); gint rv = g_mkdir_with_parents((const gchar *)dir_path, 0711); if(rv == -1) { g_warning ("Failed to create '%s' directory", dir_path); g_free (dir_path); return ; } } static void __set_config_from_keyfile(MidgardConfig *self, GKeyFile *keyfile, const gchar *filename) { g_assert (self != NULL); g_assert (keyfile != NULL); gchar *tmpstr; gboolean tmpbool; /* Get database type */ self->priv->dbtype = MIDGARD_DB_TYPE_MYSQL; tmpstr = g_key_file_get_string (keyfile, "MidgardDatabase", "Type", NULL); if(tmpstr == NULL || *tmpstr == '\0') { g_free (tmpstr); tmpstr = g_strdup("MySQL"); } __set_dbtype(self, tmpstr); g_free (tmpstr); /* Get host name or IP */ tmpstr = g_key_file_get_string (keyfile, "MidgardDatabase", "Host", NULL); if(tmpstr == NULL) tmpstr = g_strdup("localhost"); if(self->host) g_free (self->host); self->host = g_strdup(tmpstr); g_free (tmpstr); /* Get database port */ guint port = g_key_file_get_integer (keyfile, "MidgardDatabase", "Port", NULL); if (port > 0) self->dbport = port; /* Get database name */ tmpstr = g_key_file_get_string (keyfile, "MidgardDatabase", "Name", NULL); if(tmpstr != NULL && *tmpstr != '\0') { g_free (self->database); self->database = g_strdup(tmpstr); } g_free (tmpstr); /* Get database's username */ tmpstr = g_key_file_get_string (keyfile, "MidgardDatabase", "Username", NULL); if(tmpstr != NULL && *tmpstr != '\0') { g_free (self->dbuser); self->dbuser = g_strdup(tmpstr); } g_free (tmpstr); /* Get password for database user */ tmpstr = g_key_file_get_string (keyfile, "MidgardDatabase", "Password", NULL); if(tmpstr != NULL && *tmpstr != '\0') { g_free (self->dbpass); self->dbpass = g_strdup(tmpstr); } g_free (tmpstr); /* Get directory for SQLite database */ tmpstr = g_key_file_get_string (keyfile, "MidgardDatabase", "DatabaseDir", NULL); if(tmpstr != NULL && *tmpstr != '\0') { g_free (self->dbdir); self->dbdir = g_strdup(tmpstr); } g_free (tmpstr); /* Get log filename */ tmpstr = g_key_file_get_string (keyfile, "MidgardDatabase", "Logfile", NULL); if(tmpstr != NULL && !g_str_equal(tmpstr, "")) { __create_log_dir((const gchar *) tmpstr); g_free (self->logfilename); self->logfilename = g_strdup(tmpstr); GError *err = NULL; GFile *g_file = g_file_new_for_path ((const gchar *)self->logfilename); GFileOutputStream *output_stream = g_file_append_to (g_file, G_FILE_CREATE_NONE, NULL, &err); g_free (tmpstr); tmpstr = NULL; if(!output_stream){ g_warning ("Can not open '%s' logfile. %s", self->logfilename, err->message); } else { self->priv->g_file = g_file; self->priv->output_stream = output_stream; } if (err) g_clear_error(&err); } if(tmpstr) g_free (tmpstr); /* Get log level */ tmpstr = g_key_file_get_string (keyfile, "MidgardDatabase", "Loglevel", NULL); if(tmpstr == NULL) tmpstr = g_strdup("warn"); if(self->loglevel) g_free (self->loglevel); self->loglevel = g_strdup(tmpstr); g_free (tmpstr); tmpstr = NULL; /* Get database creation mode */ tmpbool = g_key_file_get_boolean(keyfile, "MidgardDatabase", "TableCreate", NULL); self->tablecreate = tmpbool; /* Get database update mode */ tmpbool = g_key_file_get_boolean(keyfile, "MidgardDatabase", "TableUpdate", NULL); self->tableupdate = tmpbool; /* Get SG admin username */ tmpstr = g_key_file_get_string (keyfile, "MidgardDatabase", "MidgardUsername", NULL); if(tmpstr != NULL && *tmpstr != '\0') { if(self->mgdusername) g_free (self->mgdusername); self->mgdusername = g_strdup(tmpstr); g_free (tmpstr); } /* Get SG admin password */ tmpstr = g_key_file_get_string (keyfile, "MidgardDatabase", "MidgardPassword", NULL); if(tmpstr != NULL && *tmpstr != '\0') { if(self->mgdpassword) g_free (self->mgdpassword); self->mgdpassword = g_strdup(tmpstr); g_free (tmpstr); } /* Get test mode */ tmpbool = g_key_file_get_boolean(keyfile, "MidgardDatabase", "TestUnit", NULL); self->testunit = tmpbool; /* Get auth type */ tmpstr = g_key_file_get_string (keyfile, "MidgardDatabase", "AuthType", NULL); midgard_config_set_authtype(self, (const gchar *)tmpstr); g_free (tmpstr); /* Get Pam file */ tmpstr = g_key_file_get_string (keyfile, "MidgardDatabase", "PamFile", NULL); if(tmpstr == NULL) tmpstr = g_strdup("midgard"); g_free (self->pamfile); self->pamfile = g_strdup(tmpstr); g_free (tmpstr); /* Disable threads */ tmpbool = g_key_file_get_boolean(keyfile, "MidgardDatabase", "GdaThreads", NULL); self->gdathreads = tmpbool; /* DIRECTORIES */ /* BlobDir */ tmpstr = g_key_file_get_string (keyfile, "MidgardDir", "BlobDir", NULL); if(tmpstr != NULL && *tmpstr != '\0') { g_free (self->blobdir); self->blobdir = g_strdup(tmpstr); g_free (tmpstr); } else { gchar *db_blobdir = g_build_path(G_DIR_SEPARATOR_S, self->blobdir, self->database, NULL); g_free (self->blobdir); self->blobdir = db_blobdir; } /* ShareDir */ tmpstr = g_key_file_get_string (keyfile, "MidgardDir", "ShareDir", NULL); if(tmpstr != NULL && *tmpstr != '\0') { g_free (self->sharedir); self->sharedir = tmpstr; } /* VarDir */ tmpstr = g_key_file_get_string (keyfile, "MidgardDir", "VarDir", NULL); if(tmpstr != NULL || (tmpstr && *tmpstr != '\0')) { g_free (self->vardir); self->vardir = tmpstr; } /* CacheDir */ tmpstr = g_key_file_get_string (keyfile, "MidgardDir", "CacheDir", NULL); if(tmpstr != NULL || (tmpstr && *tmpstr == '\0')) { g_free (self->cachedir); self->cachedir = tmpstr; } /* SchemaDir */ g_free (self->schemadir); self->schemadir = g_build_path(G_DIR_SEPARATOR_S, self->sharedir, MIDGARD_CONFIG_RW_SCHEMA, NULL); /* ViewsDir */ g_free (self->viewsdir); self->viewsdir = g_build_path(G_DIR_SEPARATOR_S, self->sharedir, MIDGARD_CONFIG_RW_VIEW, NULL); /* We will free it when config is unref */ self->priv->keyfile = keyfile; if (filename) self->priv->configname = g_strdup(filename); return; } /** * midgard_config_read_file: * @self: #MidgardConfig object instance * @filename: name of the file to read * @user: boolean switch for system or user's config files * @error: pointer to store error * * This method reads configuration file from the given name and sets MidgardConfig object's properties. * Such initialized MidgardConfig instance may be reused among midgard-core and midgard-php extension * for example, without any need to re-read configuration file and without any need to re-initalize * #MidgardConfig object instance. * * Set %TRUE as @user boolean value to read files from user's home directory. * * Returns: %TRUE when file has been read , %FALSE otherwise. * Since: 9.3 */ gboolean midgard_config_read_file(MidgardConfig *self, const gchar *filename, gboolean user, GError **error) { gchar *fname = NULL; GKeyFile *keyfile; g_assert (self != NULL); g_return_val_if_fail (error == NULL || *error == NULL, FALSE); if(filename == NULL || *filename == '\0') { g_set_error(error, MGD_GENERIC_ERROR, MGD_ERR_INVALID_NAME, "Configuration name can not be empty"); return FALSE; } if(user) { gchar *_umcd = g_strconcat(".", MIDGARD_PACKAGE_NAME, NULL); fname = g_build_path (G_DIR_SEPARATOR_S, g_get_home_dir(), _umcd, "conf.d", filename, NULL); g_free (_umcd); } else { fname = g_build_path (G_DIR_SEPARATOR_S, self->confdir, "/", filename, NULL); } GError *kf_error = NULL; keyfile = g_key_file_new(); if (!g_key_file_load_from_file(keyfile, fname, G_KEY_FILE_NONE, &kf_error)) { if (kf_error && kf_error->message) { g_propagate_error (error, kf_error); } else { g_set_error (error, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Can not open %s. %s" , fname, kf_error && kf_error->message ? kf_error->message : "Unknown reason."); g_clear_error(&kf_error); } g_free (fname); return FALSE; } // checking consistency of config-file // 1) upgrade-advice if (!g_key_file_has_group(keyfile, "MidgardDatabase") && g_key_file_has_group(keyfile, "Database")) { g_warning ("Config-file '%s' doesn't have [MidgardDatabase] section, but has old [Database] section. You should rename it.", fname); } // 2) check for unsupported sections { gsize sections_len, i; gchar **sections = g_key_file_get_groups(keyfile, §ions_len); for (i = 0; i < sections_len; i++) { if (!g_str_equal(sections[i], "MidgardDatabase") && !g_str_equal(sections[i], "MidgardDir")) { g_warning ("Config-file '%s' has unsupported section [%s]. It won't be parsed.", fname, sections[i]); } } g_strfreev (sections); } g_free (fname); __set_config_from_keyfile(self, keyfile, filename); return TRUE; } /** * midgard_config_read_file_at_path: * @self: #MidgardConfig instance * @filepath: a path to read file from * @error: a pointer to hold error * * Returns: %TRUE if file has been read, %FALSE otherwise */ gboolean midgard_config_read_file_at_path(MidgardConfig *self, const gchar *filepath, GError **error) { g_assert (self != NULL); g_return_val_if_fail (error == NULL || *error == NULL, FALSE); GKeyFile *keyfile = NULL; if (filepath == NULL || *filepath == '\0') { g_set_error (error, MGD_GENERIC_ERROR, MGD_ERR_INVALID_NAME, "Configuration file path can not be empty"); return FALSE; } GError *kf_error = NULL; keyfile = g_key_file_new(); if (!g_key_file_load_from_file(keyfile, filepath, G_KEY_FILE_NONE, &kf_error)) { g_set_error (error, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Can not open %s. %s" , filepath, kf_error->message); g_clear_error(&kf_error); return FALSE; } __set_config_from_keyfile(self, keyfile, filepath); return TRUE; } /** * midgard_config_read_data: * @self: #MidgardConfig instance * @data: a NULL-terminated buffer containing the configuration * @error: a pointer to hold error * * Returns: %TRUE if data has been read, %FALSE otherwise */ gboolean midgard_config_read_data(MidgardConfig *self, const gchar *data, GError **error) { g_assert (self != NULL); g_return_val_if_fail (error == NULL || *error == NULL, FALSE); GKeyFile *keyfile = NULL; GError *kf_error = NULL; keyfile = g_key_file_new(); if (!g_key_file_load_from_data ( keyfile, data, strlen(data), G_KEY_FILE_NONE, &kf_error)) { g_set_error (error, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Can not read the configuration data"); g_clear_error(&kf_error); return FALSE; } __set_config_from_keyfile(self, keyfile, NULL); return TRUE; } /** * midgard_config_list_files: * @user: boolean switch for system or user's config files * * List all available configuration files. * If @user value is set to %TRUE, all available files from ~/.midgard/conf.d will be listed. * Only system files ( usually from /etc/midgard/conf.d ) will be listed if @user value is set to %FALSE. * * Returned array should be freed when no longer needed. * * Returns: (transfer full): newly allocated and %NULL terminated array of file names. * */ gchar **midgard_config_list_files(gboolean user) { gchar *config_dir; if(user) { gchar *_umcd = g_strconcat(".", MIDGARD_PACKAGE_NAME, NULL); config_dir = g_build_path (G_DIR_SEPARATOR_S, g_get_home_dir(), _umcd, "conf.d", NULL); g_free (_umcd); if (!g_file_test (config_dir, G_FILE_TEST_IS_DIR)){ g_error("Config directory '%s' doesn't exist", config_dir); g_free (config_dir); return NULL; } } else { config_dir = __get_default_confdir(); } GError *error = NULL; GSList *list = NULL; GSList *l = NULL; gchar **filenames = NULL; guint i = 0; GDir *dir = g_dir_open(config_dir, 0, &error); g_free (config_dir); if (dir == NULL) return filenames; const gchar *file = g_dir_read_name(dir); while (file != NULL) { if(!g_str_has_prefix(file, ".") && (!g_str_has_prefix(file, "#")) && (!g_str_has_suffix(file, "~")) && (!g_str_has_suffix(file, "example"))) { list = g_slist_append(list, (gpointer)g_strdup(file)); i++; } file = g_dir_read_name(dir); } g_dir_close(dir); filenames = g_new(gchar *, i+1); i = 0; for(l = list; l != NULL; l = l->next, i++) filenames[i] = (gchar *)l->data; filenames[i] = NULL; g_slist_free (list); return filenames; } static void __set_keyfile(MidgardConfig *self) { guint n_props, i; GValue pval = {0,}; const gchar *nick = NULL; gchar *tmpstr; GParamSpec **props = g_object_class_list_properties( G_OBJECT_GET_CLASS(G_OBJECT(self)), &n_props); /* It should not happen */ if(!props) g_error("Midgard Config class has no members registered"); if(self->priv->keyfile == NULL) self->priv->keyfile = g_key_file_new(); for(i = 0; i < n_props; i++) { nick = g_param_spec_get_nick (props[i]); g_value_init(&pval,props[i]->value_type); g_object_get_property(G_OBJECT(self), (gchar*)props[i]->name, &pval); const gchar *keygroup = "MidgardDatabase"; if (g_str_equal(props[i]->name, "sharedir") || g_str_equal(props[i]->name, "vardir") || g_str_equal(props[i]->name, "cachedir") || g_str_equal(props[i]->name, "blobdir")) { keygroup = "MidgardDir"; } switch(props[i]->value_type){ case G_TYPE_STRING: tmpstr = (gchar *)g_value_get_string (&pval); if(!tmpstr) tmpstr = ""; g_key_file_set_string (self->priv->keyfile, keygroup, nick, tmpstr); break; case G_TYPE_BOOLEAN: g_key_file_set_boolean(self->priv->keyfile, keygroup, nick, g_value_get_boolean(&pval)); break; case G_TYPE_UINT: g_key_file_set_integer (self->priv->keyfile, keygroup, nick, g_value_get_uint (&pval)); break; } g_key_file_set_comment(self->priv->keyfile, keygroup, nick, g_param_spec_get_blurb(props[i]), NULL); g_value_unset(&pval); } g_free (props); } /** * midgard_config_save_file: * @self: #MidgardConfig instance * @name: configuration filename * @user: system or home directory switch * @error: pointer to store GError * * Saves configuration file for the given #MidgardConfig. * * This method saves configuration file with the given name. * If third user parameter is set to %TRUE, then configuration file will * be saved in ~/.midgard2/conf.d directory. * * User's conf.d directory will be created if doesn't exist. * * Returns: %TRUE on success or %FALSE ( with propper warning message ) if system wide * directory doesn't exist or file can not be saved. */ gboolean midgard_config_save_file(MidgardConfig *self, const gchar *name, gboolean user, GError **error) { g_return_val_if_fail(self != NULL, FALSE); g_return_val_if_fail(name != NULL, FALSE); gchar *cnfpath = NULL; guint namel = strlen(name); gchar *_umcd = NULL; if(namel < 1) { g_warning ("Can not save configuration file without a name"); return FALSE; } /* Check configuration directory. * If user's conf.d dir doesn't exist, create it */ if(user) { gchar *_cnf_path = midgard_core_config_build_path(NULL, NULL, TRUE); g_free (_cnf_path); _umcd = g_strconcat(".", MIDGARD_PACKAGE_NAME, NULL); gchar *path = g_build_path(G_DIR_SEPARATOR_S, g_get_home_dir(), _umcd, NULL); g_free (_umcd); /* Check if .midgard directory exists */ if(!g_file_test((const gchar *)path, G_FILE_TEST_EXISTS)) { g_mkdir(path, 0); g_chmod(path, 0700); } if(!g_file_test((const gchar *)path, G_FILE_TEST_EXISTS | G_FILE_TEST_IS_DIR)) { g_warning ("%s is not a directory!", path); g_free (path); return FALSE; } g_free (path); _umcd = g_strconcat(".", MIDGARD_PACKAGE_NAME, NULL); path = g_build_path(G_DIR_SEPARATOR_S, g_get_home_dir(), _umcd, "conf.d", NULL); g_free (_umcd); /* Check if .midgard/conf.d directory exists */ if(!g_file_test((const gchar *)path, G_FILE_TEST_EXISTS)) { g_mkdir(path, 0); g_chmod(path, 0700); } if(!g_file_test((const gchar *)path, G_FILE_TEST_EXISTS | G_FILE_TEST_IS_DIR)) { g_warning ("%s is not a directory!", path); g_free (path); return FALSE; } g_free (path); _umcd = g_strconcat(".", MIDGARD_PACKAGE_NAME, NULL); cnfpath = g_build_path (G_DIR_SEPARATOR_S, g_get_home_dir(), _umcd, "conf.d", name, NULL); g_free (_umcd); } else { if(!g_file_test((const gchar *)self->confdir, G_FILE_TEST_EXISTS) || (!g_file_test((const gchar *)self->confdir, G_FILE_TEST_EXISTS | G_FILE_TEST_IS_DIR))) { g_warning ("%s doesn't exist or is not a directory!", self->confdir); return FALSE; } cnfpath = g_build_path (G_DIR_SEPARATOR_S, self->confdir, name, NULL); } /* Set GKeyFile */ __set_keyfile (self); gsize length; GError *kf_error = NULL; gchar *content = g_key_file_to_data (self->priv->keyfile, &length, &kf_error); if (length < 1) { if (kf_error) g_propagate_error (error, kf_error); return FALSE; } if (kf_error) g_clear_error (&kf_error); gboolean saved = g_file_set_contents(cnfpath, content, length, &kf_error); g_free (content); if (!saved) { if (kf_error) g_propagate_error (error, kf_error); g_free (cnfpath); return FALSE; } #ifdef G_OS_WIN32 /* TODO , implement WIN32 */ #else g_chmod(cnfpath, 0600); #endif /* G_OS_WIN32 */ g_free (cnfpath); return TRUE; } /** * midgard_config_save_file_at_path: * @self: #MidgardConfig instance * @filepath: file location * @error: a pointer to store error * * Saves configuration at specified path * * Returns: %TRUE on success or %FALSE otherwise */ gboolean midgard_config_save_file_at_path (MidgardConfig *self, const gchar *filepath, GError **error) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (filepath != NULL, FALSE); /* Set GKeyFile */ __set_keyfile (self); gsize length; GError *err = NULL; gchar *content = g_key_file_to_data (self->priv->keyfile, &length, &err); if (length < 1) { if (err) g_propagate_error (error, err); return FALSE; } if (err) g_clear_error(&err); gboolean saved = g_file_set_contents(filepath, content, length, &err); g_free (content); if (!saved) { if (err) g_propagate_error (error, err); return FALSE; } return TRUE; } gboolean __create_base_blobdir(const gchar *path) { if (path == NULL) return FALSE; if (g_str_equal(path, "")) return FALSE; if (g_file_test(path, G_FILE_TEST_EXISTS)) return TRUE; gchar *dir_path = g_path_get_dirname(path); gint rv = g_mkdir_with_parents((const gchar *)dir_path, 0711); if (dir_path) g_free (dir_path); if (rv == -1) return FALSE; return TRUE; } /* recursively prepare blobdir */ gboolean __recurse_prepare_blobdir(const gchar *parentdir, int max_depth, int depth) { int h; if (depth >= max_depth) return TRUE; for (h = 0; h < 0x10; h++) { gchar *dir_path = g_strdup_printf("%s/%X", parentdir, h); if (dir_path == NULL) return FALSE; /* create dir */ gint rv = g_mkdir_with_parents((const gchar *)dir_path, 0711); if (rv == -1) { g_free (dir_path); return FALSE; } /* create subdirs */ gboolean err = __recurse_prepare_blobdir(dir_path, max_depth, depth + 1); if (dir_path) g_free (dir_path); if (err == FALSE) return FALSE; } return TRUE; } /** * midgard_config_create_blobdir: * @self: #MidgardConfig instance * * Creates directories for blobs * * Returns: %TRUE on success, %FALSE otherwise. */ gboolean midgard_config_create_blobdir(MidgardConfig *self) { g_assert (self != NULL); gboolean err = FALSE; if (self->blobdir == NULL || *self->blobdir == '\0') { g_warning ("Invalid blobdir (NULL)"); return FALSE; } /* Base configured blobdir might not exist, create all remaining subdirectories within path */ err = __create_base_blobdir(self->blobdir); if (err == FALSE) { g_error("Failed to create configured directory %s", self->blobdir); } /* now create directories for blobs recursively */ err = __recurse_prepare_blobdir(self->blobdir, 2, /* set this to depth of the directories */ 0 /* let this be zero always */ ); if (err == FALSE) { g_error("Failed to prepare blobdir"); return FALSE; } return TRUE; } static gchar * __get_default_confdir (void) { gchar *confdir = NULL; confdir = g_strdup (getenv("MIDGARD_ENV_GLOBAL_CONFDIR")); if (!confdir || (confdir && g_str_equal (confdir, ""))) { g_free (confdir); if (g_str_equal(MIDGARD_LIB_PREFIX, "/usr")) { /* Using the standard prefix "/usr", so, choosing "/etc" */ confdir = g_build_path(G_DIR_SEPARATOR_S, " ", "etc", MIDGARD_PACKAGE_NAME, "conf.d", NULL); } else { /* Using some other prefix, so choosing "prefix/etc" */ confdir = g_build_path(G_DIR_SEPARATOR_S, MIDGARD_LIB_PREFIX, "etc", MIDGARD_PACKAGE_NAME, "conf.d", NULL); } } return g_strchug(confdir); } static void __config_struct_new(MidgardConfig *self) { self->dbtype = g_strdup("MySQL"); self->mgdusername = g_strdup("admin"); self->mgdpassword = g_strdup("password"); self->host = g_strdup("localhost"); self->database = g_strdup("midgard"); self->dbport = 0; self->dbuser = g_strdup(""); self->dbpass = g_strdup(""); self->dbdir = g_strdup (""); self->logfilename = g_strdup ("");; self->loglevel = g_strdup("warn"); self->pamfile = g_strdup (""); self->tablecreate = FALSE; self->tableupdate = FALSE; self->testunit = FALSE; /* MidgardDir */ /* Set directories using particular order: 1. Get environment variables 2. If above are not set, try to determine FSH defaults */ self->blobdir = g_strdup(getenv("MIDGARD_ENV_GLOBAL_BLOBDIR")); self->sharedir = g_strdup(getenv("MIDGARD_ENV_GLOBAL_SHAREDIR")); self->vardir = g_strdup(getenv("MIDGARD_ENV_GLOBAL_VARDIR")); self->cachedir = g_strdup(getenv("MIDGARD_ENV_GLOBAL_CACHEDIR")); if (!self->sharedir || (self->sharedir && g_str_equal(self->sharedir, ""))) { g_free (self->sharedir); self->sharedir = g_build_path(G_DIR_SEPARATOR_S, MIDGARD_LIB_PREFIX, "share", MIDGARD_PACKAGE_NAME, NULL); } if (g_str_equal(MIDGARD_LIB_PREFIX, "/usr")) { if (!self->blobdir || (self->blobdir && g_str_equal(self->blobdir, ""))) { g_free (self->blobdir); self->blobdir = g_build_path(G_DIR_SEPARATOR_S, G_DIR_SEPARATOR_S, "var", "lib", MIDGARD_PACKAGE_NAME, "blobs", NULL); } if (!self->vardir || (self->vardir && g_str_equal(self->vardir, ""))) { g_free (self->vardir); self->vardir = g_build_path(G_DIR_SEPARATOR_S, G_DIR_SEPARATOR_S, "var", "lib", MIDGARD_PACKAGE_NAME, NULL); } if (!self->cachedir || (self->cachedir && g_str_equal(self->cachedir, ""))) { g_free (self->cachedir); self->cachedir = g_build_path(G_DIR_SEPARATOR_S, G_DIR_SEPARATOR_S, "var", "cache", MIDGARD_PACKAGE_NAME, NULL); } } else if (g_str_equal(MIDGARD_LIB_PREFIX, "/usr/local")) { if (!self->blobdir || (self->blobdir && g_str_equal(self->blobdir, ""))) { g_free (self->blobdir); self->blobdir = g_build_path(G_DIR_SEPARATOR_S, G_DIR_SEPARATOR_S, "var", "local", "lib", MIDGARD_PACKAGE_NAME, "blobs", NULL); } if (!self->vardir || (self->vardir && g_str_equal(self->vardir, ""))) { g_free (self->vardir); self->vardir = g_build_path(G_DIR_SEPARATOR_S, G_DIR_SEPARATOR_S, "var", "local", "lib", MIDGARD_PACKAGE_NAME, NULL); } if (!self->cachedir || (self->cachedir && g_str_equal(self->cachedir, ""))) { g_free (self->cachedir); self->cachedir = g_build_path(G_DIR_SEPARATOR_S, G_DIR_SEPARATOR_S, "var", "local", "cache", MIDGARD_PACKAGE_NAME, NULL); } } else { if (!self->blobdir || (self->blobdir && g_str_equal(self->blobdir, ""))) { g_free (self->blobdir); self->blobdir = g_build_path(G_DIR_SEPARATOR_S, MIDGARD_LIB_PREFIX, "var", "lib", MIDGARD_PACKAGE_NAME, "blobs", NULL); } if (!self->vardir || (self->vardir && g_str_equal(self->vardir, ""))) { g_free (self->vardir); self->vardir = g_build_path(G_DIR_SEPARATOR_S, MIDGARD_LIB_PREFIX, "var", "lib", MIDGARD_PACKAGE_NAME, NULL); } if (!self->cachedir || (self->cachedir && g_str_equal(self->cachedir, ""))) { g_free (self->cachedir); self->cachedir = g_build_path(G_DIR_SEPARATOR_S, MIDGARD_LIB_PREFIX, "var", "cache", MIDGARD_PACKAGE_NAME, NULL); } } self->confdir = __get_default_confdir(); } static void __config_copy (MidgardConfig *self, MidgardConfig *src) { g_free (self->dbtype); self->dbtype = g_strdup(src->dbtype); g_free (self->mgdusername); self->mgdusername = g_strdup(src->mgdusername); g_free (self->mgdpassword); self->mgdpassword = g_strdup(src->mgdpassword); g_free (self->host); self->host = g_strdup(src->host); g_free (self->database); self->database = g_strdup(src->database); self->dbport = src->dbport; g_free (self->dbuser); self->dbuser = g_strdup(src->dbuser); g_free (self->dbpass); self->dbpass = g_strdup(src->dbpass); g_free (self->dbdir); self->dbdir = g_strdup (src->dbdir); g_free (self->logfilename); self->logfilename = g_strdup (src->logfilename);; g_free (self->loglevel); self->loglevel = g_strdup(src->loglevel); g_free (self->pamfile); self->pamfile = g_strdup (src->pamfile); self->tablecreate = src->tablecreate; self->tableupdate = src->tableupdate; self->testunit = src->testunit; g_free (self->blobdir); self->blobdir = g_strdup(src->blobdir); g_free (self->sharedir); self->sharedir = g_strdup(src->sharedir); g_free (self->vardir); self->vardir = g_strdup(src->vardir); g_free (self->cachedir); self->cachedir = g_strdup(src->cachedir); g_free (self->confdir); self->confdir = g_strdup(src->confdir); self->gdathreads = src->gdathreads; return; } void __midgard_config_struct_free (MidgardConfig *self) { g_free (self->mgdusername); self->mgdusername = NULL; g_free (self->mgdpassword); self->mgdpassword = NULL; g_free (self->host); self->host = NULL; g_free (self->database); self->database = NULL; self->dbport = 0; g_free (self->dbuser); self->dbuser = NULL; g_free (self->dbpass); self->dbpass = NULL; g_free (self->dbdir); self->dbdir = NULL; g_free (self->logfilename); self->logfilename = NULL; g_free (self->schemadir); self->schemadir = NULL; g_free (self->loglevel); self->loglevel = NULL; g_free (self->pamfile); self->pamfile = NULL; g_free (self->confdir); self->confdir = NULL; /* MidgardDir */ if (self->blobdir) g_free (self->blobdir); self->blobdir = NULL; if (self->sharedir) g_free (self->sharedir); self->sharedir = NULL; if (self->cachedir) g_free (self->cachedir); self->cachedir = NULL; if (self->vardir) g_free (self->vardir); self->vardir = NULL; if (self->viewsdir) g_free (self->viewsdir); self->viewsdir = NULL; if (self->dbtype) g_free (self->dbtype); self->dbtype = NULL; /* Free priv */ if (self->priv->keyfile) g_key_file_free (self->priv->keyfile); self->priv->keyfile = NULL; g_free (self->priv->configname); self->priv->configname = NULL; if (self->priv->output_stream) g_object_unref (self->priv->output_stream); self->priv->output_stream = NULL; if (self->priv->g_file) g_object_unref (self->priv->g_file); self->priv->g_file = NULL; g_free (self->priv); self->priv = NULL; } /* API helpers, getters */ const gchar *midgard_config_get_database_name(MidgardConfig *self) { g_assert (self != NULL); return self->database; } const gchar *midgard_config_get_database_type(MidgardConfig *self) { g_assert (self != NULL); return self->dbtype; } const gchar *midgard_config_get_database_username(MidgardConfig *self) { g_assert (self != NULL); return self->dbuser; } const gchar *midgard_config_get_database_password(MidgardConfig *self) { g_assert (self != NULL); return self->dbpass; } const gchar *midgard_config_get_database_host(MidgardConfig *self) { g_assert (self != NULL); return self->host; } guint midgard_config_get_database_port(MidgardConfig *self) { g_assert (self != NULL); return self->dbport; } const gchar *midgard_config_get_blobdir(MidgardConfig *self) { g_assert (self != NULL); return self->blobdir; } const gchar *midgard_config_get_logfile(MidgardConfig *self) { g_assert (self != NULL); return self->logfilename; } const gchar *midgard_config_get_loglevel(MidgardConfig *self) { g_assert (self != NULL); return self->loglevel; } gboolean midgard_config_get_table_create(MidgardConfig *self) { g_assert (self != NULL); return self->tablecreate; } gboolean midgard_config_get_table_update(MidgardConfig *self) { g_assert (self != NULL); return self->tableupdate; } gboolean midgard_config_get_testunit(MidgardConfig *self) { g_assert (self != NULL); return self->testunit; } const gchar *midgard_config_get_midgard_username(MidgardConfig *self) { g_assert (self != NULL); return self->mgdusername; } const gchar *midgard_config_get_midgard_password(MidgardConfig *self) { g_assert (self != NULL); return self->mgdpassword; } const gchar *midgard_config_get_authtype(MidgardConfig *self) { g_assert (self != NULL); return (const gchar *) self->authtype; } const gchar *midgard_config_get_pamfile(MidgardConfig *self) { g_assert (self != NULL); return self->pamfile; } /* setters */ void midgard_config_set_database_name(MidgardConfig *self, const gchar *name) { g_assert (self != NULL && name != NULL); if(self->database) g_free (self->database); self->database = g_strdup(name); } void midgard_config_set_database_type(MidgardConfig *self, const gchar *type) { g_assert (self != NULL && type != NULL); if(self->dbtype) g_free (self->dbtype); self->dbtype = NULL; __set_dbtype(self, type); } void midgard_config_set_database_username(MidgardConfig *self, const gchar *username) { g_assert (self != NULL && username != NULL); if(self->dbuser) g_free (self->dbuser); self->dbuser = g_strdup(username); } void midgard_config_set_database_password(MidgardConfig *self, const gchar *password) { g_assert (self != NULL && password != NULL); if(self->dbpass) g_free (self->dbpass); self->dbpass = g_strdup(password); } void midgard_config_set_database_host(MidgardConfig *self, const gchar *host) { g_assert (self != NULL && host != NULL); if(self->host) g_free (self->host); self->host = g_strdup(host); } void midgard_config_set_database_port(MidgardConfig *self, guint port) { g_assert (self != NULL); self->dbport = port; } void midgard_config_set_blobdir(MidgardConfig *self, const gchar *blobdir) { g_assert (self != NULL && blobdir != NULL); if(self->blobdir) g_free (self->blobdir); self->blobdir = g_strdup(blobdir); } void midgard_config_set_logfile(MidgardConfig *self, const gchar *logfile) { g_assert (self != NULL && logfile != NULL); if(self->logfilename) g_free (self->logfilename); self->logfilename = g_strdup(logfile); } void midgard_config_set_loglevel(MidgardConfig *self, const gchar *loglevel) { g_assert (self != NULL && loglevel != NULL); if(self->loglevel) g_free (self->loglevel); self->loglevel = g_strdup(loglevel); } void midgard_config_set_table_create(MidgardConfig *self, gboolean toggle) { g_assert (self != NULL); self->tablecreate = toggle; } void midgard_config_set_table_update(MidgardConfig *self, gboolean toggle) { g_assert (self != NULL); self->tableupdate = toggle; } void midgard_config_set_testunit(MidgardConfig *self, gboolean toggle) { g_assert (self != NULL); self->testunit = toggle; } void midgard_config_set_midgard_username(MidgardConfig *self, const gchar *username) { g_assert (self != NULL && username != NULL); if(self->mgdusername) g_free (self->mgdusername); self->mgdusername = g_strdup(username); } void midgard_config_set_midgard_password(MidgardConfig *self, const gchar *password) { g_assert (self != NULL && password != NULL); if(self->mgdpassword) g_free (self->mgdpassword); self->mgdpassword = g_strdup(password); } void midgard_config_set_authtype(MidgardConfig *self, const gchar *authtype) { g_assert (self != NULL); if(authtype == NULL) self->authtype = (gchar *) authtype; } void midgard_config_set_pamfile(MidgardConfig *self, const gchar *pamfile) { g_assert (self != NULL && pamfile != NULL); if(self->pamfile) g_free (self->pamfile); self->pamfile = g_strdup(pamfile); } /** * midgard_config_copy: * @self: #MidgardConfig instance * * Returns: (transfer full): deep copy of given #MidgardConfig object * Since: 10.05 */ MidgardConfig * midgard_config_copy (MidgardConfig *self) { MidgardConfig *copy = midgard_config_new (); __config_copy (copy, self); if (self->priv->configname) copy->priv->configname = g_strdup (self->priv->configname); if (copy->logfilename && self->priv->output_stream) { copy->priv->g_file = g_file_new_for_path ((const gchar *)self->logfilename); copy->priv->output_stream = g_file_append_to (copy->priv->g_file, G_FILE_CREATE_NONE, NULL, NULL); } copy->priv->dbtype = self->priv->dbtype; return copy; } /* GOBJECT ROUTINES */ static void _midgard_config_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec){ MidgardConfig *self = (MidgardConfig *) object; switch (property_id) { case MIDGARD_CONFIG_DBTYPE: __set_dbtype(self, (gchar *)g_value_get_string (value)); //self->dbtype = g_value_dup_string (value); break; case MIDGARD_CONFIG_DBNAME: g_free (self->database); self->database = g_value_dup_string (value); break; case MIDGARD_CONFIG_DBUSER: g_free (self->dbuser); self->dbuser = g_value_dup_string (value); break; case MIDGARD_CONFIG_DBPASS: g_free (self->dbpass); self->dbpass = g_value_dup_string (value); break; case MIDGARD_CONFIG_HOST: g_free (self->host); self->host = g_value_dup_string (value); break; case MIDGARD_CONFIG_DBPORT: self->dbport = g_value_get_uint (value); break; case MIDGARD_CONFIG_DBDIR: g_free (self->dbdir); self->dbdir = g_value_dup_string (value); break; case MIDGARD_CONFIG_LOGFILENAME: g_free (self->logfilename); self->logfilename = g_value_dup_string (value); break; case MIDGARD_CONFIG_LOGLEVEL: g_free (self->loglevel); self->loglevel = g_value_dup_string (value); break; case MIDGARD_CONFIG_TABLECREATE: self->tablecreate = g_value_get_boolean(value); break; case MIDGARD_CONFIG_TABLEUPDATE: self->tableupdate = g_value_get_boolean(value); break; case MIDGARD_CONFIG_TESTUNIT: self->testunit = g_value_get_boolean(value); break; case MIDGARD_CONFIG_MGDUSERNAME: g_free (self->mgdusername); self->mgdusername = g_value_dup_string (value); break; case MIDGARD_CONFIG_MGDPASSWORD: g_free (self->mgdpassword); self->mgdpassword = g_value_dup_string (value); break; case MIDGARD_CONFIG_AUTHTYPE: g_free (self->authtype); self->authtype = g_value_dup_string (value); break; case MIDGARD_CONFIG_PAMFILE: g_free (self->pamfile); self->pamfile = g_value_dup_string (value); break; /* MidgardDir */ case MIDGARD_CONFIG_BLOBDIR: g_free (self->blobdir); self->blobdir = g_value_dup_string (value); break; case MIDGARD_CONFIG_SHAREDIR: g_free (self->sharedir); self->sharedir = g_value_dup_string (value); break; case MIDGARD_CONFIG_VARDIR: g_free (self->vardir); self->vardir = g_value_dup_string (value); break; case MIDGARD_CONFIG_CACHEDIR: g_free (self->cachedir); self->cachedir = g_value_dup_string (value); break; case MIDGARD_CONFIG_GDATHREADS: self->gdathreads = g_value_get_boolean(value); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID(object,property_id,pspec); break; } } static void _midgard_config_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec){ MidgardConfig *self = (MidgardConfig *) object; switch (property_id) { case MIDGARD_CONFIG_DBTYPE: g_value_set_string (value, self->dbtype); break; case MIDGARD_CONFIG_DBNAME: g_value_set_string (value, self->database); break; case MIDGARD_CONFIG_DBUSER: g_value_set_string (value, self->dbuser); break; case MIDGARD_CONFIG_DBPASS: g_value_set_string (value, self->dbpass); break; case MIDGARD_CONFIG_DBDIR: g_value_set_string (value, self->dbdir); break; case MIDGARD_CONFIG_HOST: g_value_set_string (value, self->host); break; case MIDGARD_CONFIG_DBPORT: g_value_set_uint (value, self->dbport); break; case MIDGARD_CONFIG_LOGFILENAME: g_value_set_string (value, self->logfilename); break; case MIDGARD_CONFIG_LOGLEVEL: g_value_set_string (value, self->loglevel); break; case MIDGARD_CONFIG_TABLECREATE: g_value_set_boolean (value, self->tablecreate); break; case MIDGARD_CONFIG_TABLEUPDATE: g_value_set_boolean (value, self->tableupdate); break; case MIDGARD_CONFIG_TESTUNIT: g_value_set_boolean (value, self->testunit); break; case MIDGARD_CONFIG_MGDUSERNAME: g_value_set_string (value, self->mgdusername); break; case MIDGARD_CONFIG_MGDPASSWORD: g_value_set_string (value, self->mgdpassword); break; case MIDGARD_CONFIG_AUTHTYPE: g_value_set_string (value, self->authtype); break; case MIDGARD_CONFIG_PAMFILE: g_value_set_string (value, self->pamfile); break; /* MidgardDir */ case MIDGARD_CONFIG_BLOBDIR: g_value_set_string (value, self->blobdir); break; case MIDGARD_CONFIG_SHAREDIR: g_value_set_string (value, self->sharedir); break; case MIDGARD_CONFIG_VARDIR: g_value_set_string (value, self->vardir); break; case MIDGARD_CONFIG_CACHEDIR: g_value_set_string (value, self->cachedir); break; case MIDGARD_CONFIG_GDATHREADS: g_value_set_boolean (value, self->gdathreads); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID(object,property_id,pspec); break; } } static void _midgard_config_finalize(GObject *object) { g_assert (object != NULL); MidgardConfig *self = (MidgardConfig *) object; __midgard_config_struct_free (self); } static void _midgard_config_class_init (gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); GParamSpec *pspec; gobject_class->set_property = _midgard_config_set_property; gobject_class->get_property = _midgard_config_get_property; gobject_class->finalize = _midgard_config_finalize; /* Register properties */ pspec = g_param_spec_string ("dbtype", "Type", "Database type ( by default MySQL )", "MySQL", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_DBTYPE, pspec); pspec = g_param_spec_string ("host", "Host", "Database host ( 'localhost' by default )", "localhost", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_HOST, pspec); pspec = g_param_spec_uint ("port", "Port", "Database port ( 0 by default )", 0, G_MAXUINT32, 0, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_DBPORT, pspec); pspec = g_param_spec_string ("database", "Name", "Name of the database", "midgard", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_DBNAME, pspec); pspec = g_param_spec_string ("dbuser", "Username", "Username for user who is able to connect to database", "midgard", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_DBUSER, pspec); pspec = g_param_spec_string ("dbpass", "Password", "Password used by user who is able to connect to database", "midgard", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_DBPASS, pspec); pspec = g_param_spec_string ("dbdir", "DatabaseDir", "Directory for SQLite database file ('~/.midgard2/data' by default)", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_DBDIR, pspec); pspec = g_param_spec_string ("logfilename", "Logfile", "Location of the log file", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_LOGFILENAME, pspec); pspec = g_param_spec_string ("loglevel", "Loglevel", "Log level", "warn", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_LOGLEVEL, pspec); pspec = g_param_spec_boolean("tablecreate", "TableCreate", "Database creation switch", FALSE, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_TABLECREATE, pspec); pspec = g_param_spec_boolean("tableupdate", "TableUpdate", "Database update switch", FALSE, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_TABLEUPDATE, pspec); pspec = g_param_spec_boolean("testunit", "TestUnit", "Database and objects testing switch", FALSE, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_TESTUNIT, pspec); pspec = g_param_spec_string ("midgardusername", "MidgardUsername", "Midgard user's login", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_MGDUSERNAME, pspec); pspec = g_param_spec_string ("midgardpassword", "MidgardPassword", "Midgard user's password", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_MGDPASSWORD, pspec); pspec = g_param_spec_string ("pamfile", "PamFile", "Name of the file used with PAM authentication type", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_PAMFILE, pspec); pspec = g_param_spec_string ("authtype", "AuthType", "Authentication type used with connection.", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_AUTHTYPE, pspec); pspec = g_param_spec_boolean("gdathreads", "GdaThreads", "GDA connection thread safe flag", FALSE, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_GDATHREADS, pspec); /* MidgardDir */ pspec = g_param_spec_string ("blobdir", "BlobDir", "Location of the blobs directory.", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_BLOBDIR, pspec); pspec = g_param_spec_string ("sharedir", "ShareDir", "Directory for shared, architecture independent files.", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_SHAREDIR, pspec); pspec = g_param_spec_string ("vardir", "VarDir", "Application specific directories.", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_VARDIR, pspec); pspec = g_param_spec_string ("cachedir", "CacheDir", "Cached files", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_CONFIG_CACHEDIR, pspec); } static void _midgard_config_instance_init( GTypeInstance *instance, gpointer g_class) { MidgardConfig *self = (MidgardConfig *) instance; __config_struct_new(self); self->priv = midgard_config_private_new(); __set_dbtype (self, "MySQL"); } GType midgard_config_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardConfigClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_config_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardConfig), 0, /* n_preallocs */ (GInstanceInitFunc) _midgard_config_instance_init/* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardConfig", &info, 0); } return type; } midgard2-core-10.05.7.1/src/midgard_replicator.h0000664000175000017500000000662011772046240016167 00000000000000/* * Copyright (C) 2006 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_REPLICATOR_H #define MIDGARD_REPLICATOR_H #include "midgard_object.h" /* convention macros */ #define MIDGARD_TYPE_REPLICATOR (midgard_replicator_get_type()) #define MIDGARD_REPLICATOR(object) \ (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_REPLICATOR, MidgardReplicator)) #define MIDGARD_REPLICATOR_CLASS(klass) \ (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_REPLICATOR, MidgardReplicatorClass)) #define MIDGARD_IS_REPLICATOR(object) \ (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_REPLICATOR)) #define MIDGARD_IS_REPLICATOR_CLASS(klass) \ (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_REPLICATOR)) #define MIDGARD_REPLICATOR_GET_CLASS(obj) \ (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_REPLICATOR, MidgardReplicatorClass)) typedef struct _MidgardReplicatorPrivate MidgardReplicatorPrivate; typedef struct _MidgardReplicator MidgardReplicator; struct _MidgardReplicator { GObject parent; }; typedef struct MidgardReplicatorClass MidgardReplicatorClass; struct MidgardReplicatorClass { GObjectClass parent; /* API methods */ gchar *(*serialize) (GObject *object); gboolean (*export) (MidgardDBObject *object); gchar *(*export_purged) (MidgardConnection *mgd, const gchar *classname, const gchar *startdate, const gchar *enddate); gchar *(*serialize_blob) (MidgardObject *object); gchar *(*export_blob) (MidgardObject *object); gboolean (*export_by_guid) (const gchar *guid); gchar *(*export_media) (MidgardObject *object); GObject *(*unserialize) (MidgardConnection *mgd, const gchar *xml, gboolean force); gboolean (*import_object) (MidgardDBObject *object, gboolean force); void (*import_from_xml) (MidgardConnection *mgd, const gchar *xml, gboolean force); }; GType midgard_replicator_get_type (void); gchar *midgard_replicator_serialize (GObject *object); gboolean midgard_replicator_export (MidgardDBObject *object); gchar *midgard_replicator_export_purged (MidgardConnection *mgd, const gchar *classname, const gchar *startdate, const gchar *enddate); gchar *midgard_replicator_serialize_blob (MidgardObject *object); gchar *midgard_replicator_export_blob (MidgardObject *object); gboolean midgard_replicator_export_by_guid (MidgardConnection *mgd, const gchar *guid); gchar *midgard_replicator_export_media (MidgardObject *object); GObject **midgard_replicator_unserialize (MidgardConnection *mgd, const gchar *xml, gboolean force); gboolean midgard_replicator_import_object (MidgardDBObject *object, gboolean force); void midgard_replicator_import_from_xml (MidgardConnection *mgd, const gchar *xml, gboolean force); #endif /* MIDGARD_REPLICATOR_H */ midgard2-core-10.05.7.1/src/midgard_view.h0000664000175000017500000000350311772046240014772 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef _MIDGARD_VIEW_H #define _MIDGARD_VIEW_H #include #include "midgard_dbobject.h" #define MIDGARD_TYPE_VIEW (midgard_view_get_type()) #define MIDGARD_VIEW(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), MIDGARD_TYPE_VIEW, MidgardView)) #define MIDGARD_VIEW_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((klass), MIDGARD_TYPE_VIEW, MidgardViewClass)) #define MIDGARD_IS_VIEW(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), MIDGARD_TYPE_VIEW)) #define MIDGARD_IS_VIEW_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), MIDGARD_TYPE_VIEW)) #define MIDGARD_VIEW_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), MIDGARD_TYPE_VIEW, MidgardViewClass)) typedef struct _MidgardView MidgardView; typedef struct _MidgardViewClass MidgardViewClass; struct _MidgardView { GObject parent; MidgardDBObjectPrivate *dbpriv; }; struct _MidgardViewClass { GObjectClass parent; MidgardDBObjectPrivate *dbpriv; const MidgardConnection *(*get_connection) (MidgardDBObject *object); }; GType midgard_view_get_type(void); #endif /* MIDGARD_VIEW_H */ midgard2-core-10.05.7.1/src/midgard_core_object_class.c0000664000175000017500000003361311772046240017463 00000000000000/* * Copyright (C) 2006, 2007, 2008 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_core_object_class.h" #include "midgard_error.h" #include #include #include "midgard_reflection_property.h" #include "guid.h" #include "midgard_core_object.h" #include "midgard_core_config.h" #include "midgard_core_metadata.h" #include "midgard_dbobject.h" #include "midgard_metadata.h" #include "midgard_reflector_object.h" #define get_varchar_size(str) \ if (str == NULL) \ size++; \ else \ size = strlen((const gchar *)str) + 1 + size; \ g_free(str); \ str = NULL; #define get_datetime_size(str) \ size = 8 + size; \ g_free(str); gboolean midgard_core_object_prop_type_is_valid(GType src_type, GType dst_type) { if (src_type == dst_type) return TRUE; return FALSE; } gboolean midgard_core_object_prop_link_is_valid(GType ltype) { if (ltype == MGD_TYPE_UINT) { return TRUE; } else if (ltype == MGD_TYPE_GUID) { return TRUE; } else if (ltype == MGD_TYPE_STRING) { return TRUE; } else { g_warning("Invalid property type. Expected uint, guid or string"); return FALSE; } } gboolean midgard_core_object_prop_parent_is_valid(GType ptype) { return midgard_core_object_prop_link_is_valid(ptype); } gboolean midgard_core_object_prop_up_is_valid(GType ptype) { return midgard_core_object_prop_link_is_valid(ptype); } GType midgard_core_object_get_property_parent_type (MidgardObjectClass *klass) { g_assert(klass != NULL); const gchar *prop = MGD_DBCLASS_PROPERTY_PARENT (klass); if (prop == NULL) { g_warning("Failed to get parent property"); return 0; } GParamSpec *pspec = g_object_class_find_property(G_OBJECT_CLASS(klass), prop); if (pspec == NULL) { g_error("Failed to find GParamSpec for parent '%s' property", prop); return 0; } if (!midgard_core_object_prop_parent_is_valid(pspec->value_type)) return 0; return pspec->value_type; } GType midgard_core_object_get_property_up_type (MidgardObjectClass *klass) { g_assert(klass != NULL); const gchar *prop = MGD_DBCLASS_PROPERTY_UP (klass); if (prop == NULL) { g_warning("Failed to get up property"); return 0; } GParamSpec *pspec = g_object_class_find_property(G_OBJECT_CLASS(klass), prop); if (pspec == NULL) { g_error("Failed to find GParamSpec for up '%s' property", prop); return 0; } if (!midgard_core_object_prop_parent_is_valid(pspec->value_type)) return 0; return pspec->value_type; } gboolean midgard_core_object_prop_parent_is_set(MidgardObject *object) { g_assert(object != NULL); MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS(object); GType ptype = midgard_core_object_get_property_parent_type(klass); if (ptype == 0) return FALSE; GValue gval = {0, }; g_value_init(&gval, ptype); const gchar *prop = MGD_DBCLASS_PROPERTY_PARENT (klass); g_object_get_property(G_OBJECT(object), prop, &gval); if (ptype == G_TYPE_UINT) { guint i = g_value_get_uint(&gval); g_value_unset (&gval); if (i == 0) return FALSE; return TRUE; } else if (ptype == G_TYPE_STRING) { const gchar *s = g_value_get_string(&gval); gboolean _rv = TRUE; if (s == NULL || *s == '\0') _rv = FALSE; g_value_unset (&gval); return _rv; } if (G_IS_VALUE (&gval)) g_value_unset (&gval); return FALSE; } gboolean midgard_core_object_prop_up_is_set (MidgardObject *object) { g_assert(object != NULL); MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS(object); GType ptype = midgard_core_object_get_property_up_type(klass); if (ptype == 0) return FALSE; GValue gval = {0, }; g_value_init(&gval, ptype); const gchar *prop = MGD_DBCLASS_PROPERTY_UP (klass); g_object_get_property(G_OBJECT(object), prop, &gval); if (ptype == G_TYPE_UINT) { guint i = g_value_get_uint(&gval); if (i == 0) return FALSE; return TRUE; } else if (ptype == G_TYPE_STRING) { const gchar *s = g_value_get_string(&gval); if (s == NULL || *s == '\0') return FALSE; return TRUE; } return FALSE; } gboolean midgard_core_object_is_valid(MidgardObject *object) { guint propn, i, size = 0; GType prop_type; gchar *prop_str = NULL; gchar *blobpath, *location = NULL; struct stat statbuf; /* GLib 2.6 is not available everywhere, g_stat not used */ const gchar *typename = G_OBJECT_TYPE_NAME(object); MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS(object); GParamSpec **props = g_object_class_list_properties( G_OBJECT_GET_CLASS(G_OBJECT(object)), &propn); if (!props){ midgard_set_error(MGD_OBJECT_CNC (object), MGD_GENERIC_ERROR, MGD_ERR_INVALID_OBJECT, "Object %s has no properties", G_OBJECT_TYPE_NAME(object)); g_warning("%s", MGD_OBJECT_CNC (object)->err->message); g_free(props); return FALSE; } /* Check if object is dependent */ const gchar *parent_prop = MGD_DBCLASS_PROPERTY_PARENT (klass); const gchar *up = MGD_DBCLASS_PROPERTY_UP (klass); /* Make sure parent and up are integers */ GParamSpec *parent_pspec = NULL; GParamSpec *up_pspec = NULL; if (parent_prop) parent_pspec = g_object_class_find_property(G_OBJECT_CLASS(klass), parent_prop); if (up_pspec) up_pspec = g_object_class_find_property(G_OBJECT_CLASS(klass), up); /* Parent declared, up not. Parent can not be 0 */ if (parent_pspec && !up_pspec) { if (!midgard_core_object_prop_parent_is_set(object)) { midgard_set_error(MGD_OBJECT_CNC(object), MGD_GENERIC_ERROR, MGD_ERR_INVALID_PROPERTY_VALUE, "Parent '%s' property's value is 0. ", parent_prop); g_free(props); return FALSE; } } /* Parent declared, up declared. Parent might be 0, only if up is not 0. */ if (parent_pspec && up_pspec) { if (!midgard_core_object_prop_parent_is_set(object) && !midgard_core_object_prop_up_is_set(object)) { midgard_set_error(MGD_OBJECT_CNC(object), MGD_GENERIC_ERROR, MGD_ERR_INVALID_PROPERTY_VALUE, "Parent '%s' and up '%s' property's value is 0. ", parent_prop, up); g_free(props); } } /* Attachment, we need to get file size */ if (g_str_equal(typename, "midgard_attachment")){ gint statv; MidgardConnection *mgd = MGD_OBJECT_CNC(object); const gchar *blobdir = mgd->priv->config->blobdir; if (blobdir == NULL) { g_warning ("NULL blobdir for current configuration"); g_error ("Invalid blobdir"); return FALSE; } if (!g_file_test((const gchar *)blobdir, G_FILE_TEST_EXISTS | G_FILE_TEST_IS_DIR)) { g_warning ("Configured blobdir '%s' is not a directory!", blobdir); g_error ("Invalid blobdir"); return FALSE; } g_object_get(G_OBJECT(object), "location", &location, NULL); if (location != NULL && *location != '\0') { blobpath = g_build_path(G_DIR_SEPARATOR_S, blobdir, location, NULL); statv = g_stat(blobpath, &statbuf); if (statv == 0) { if (g_file_test((const gchar *)blobpath, G_FILE_TEST_EXISTS | G_FILE_TEST_IS_REGULAR)) { size = statbuf.st_size; } } g_free(blobpath); g_free(location); } } MidgardReflectionProperty *mrp = midgard_reflection_property_new(MIDGARD_DBOBJECT_CLASS(klass)); for(i = 0; i < propn; i++) { prop_type = midgard_reflection_property_get_midgard_type (mrp, props[i]->name); if (prop_type == MGD_TYPE_GUID) { g_object_get(G_OBJECT(object), props[i]->name, &prop_str, NULL); if (prop_str != NULL && *prop_str != '\0') { if (!midgard_is_guid(prop_str)) { midgard_set_error(MGD_OBJECT_CNC (object), MGD_GENERIC_ERROR, MGD_ERR_INVALID_PROPERTY_VALUE, "'%s' property's value is not a guid. ", props[i]->name); g_warning("%s", MGD_OBJECT_CNC (object)->err->message); g_clear_error(&MGD_OBJECT_CNC (object)->err); g_free(props); g_free(prop_str); g_object_unref (mrp); return FALSE; } } get_varchar_size(prop_str); } else if (prop_type == MGD_TYPE_LONGTEXT) { g_object_get(G_OBJECT(object), props[i]->name, &prop_str, NULL); if (prop_str == NULL) prop_str = g_strdup(""); size = (strlen(prop_str)) + 4 + size; g_free (prop_str); } else if (prop_type == MGD_TYPE_TIMESTAMP) { /* TODO, Check if timestamp value is valid */ size = 8 + size; } else if (prop_type == MGD_TYPE_STRING) { g_object_get(G_OBJECT(object), props[i]->name, &prop_str, NULL); get_varchar_size(prop_str); } else if (prop_type == MGD_TYPE_UINT && prop_type == MGD_TYPE_INT && prop_type == MGD_TYPE_FLOAT && prop_type == MGD_TYPE_BOOLEAN){ size = size + 4; } else { /* Do nothing now */ } } g_object_unref (mrp); g_free(props); /* Object metadata */ MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (object); if (metadata) metadata->priv->size = size + midgard_core_metadata_get_size (metadata); return TRUE; } gboolean midgard_core_object_has_dependents(MidgardObject *self, const gchar *classname) { g_return_val_if_fail(self != NULL, FALSE); g_return_val_if_fail(classname != NULL, FALSE); MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS_BY_NAME(classname); if (klass == NULL) { g_warning("Can not find class pointer for given '%s' name", classname); return TRUE; } const gchar *up_property = NULL; /* Do we check the same type? */ if (G_OBJECT_TYPE(self) == g_type_from_name(classname)) { up_property = MGD_DBCLASS_PROPERTY_UP (klass); } else { up_property = MGD_DBCLASS_PROPERTY_PARENT (klass); } if (up_property == NULL) return FALSE; GParamSpec *pspec = g_object_class_find_property(G_OBJECT_CLASS(klass), up_property); GValue val = {0, }; if (pspec->value_type == G_TYPE_STRING) { g_value_init(&val, G_TYPE_STRING); g_object_get_property(G_OBJECT(self), "guid", &val); } else if (pspec->value_type == G_TYPE_UINT) { g_value_init(&val, G_TYPE_UINT); g_object_get_property(G_OBJECT(self), "id", &val); } else { g_warning("Confused with unexpected '%s' property type", g_type_name(pspec->value_type)); /* No idea what to do in such case, so make it safe and return TRUE */ return TRUE; } MidgardQueryBuilder *builder = midgard_query_builder_new(MGD_OBJECT_CNC(self), classname); if (builder == NULL) return FALSE; midgard_query_builder_add_constraint(builder, up_property, "=", &val); midgard_query_builder_set_limit(builder, 1); guint i = midgard_query_builder_count(builder); g_object_unref(builder); if (i == 0) return FALSE; return TRUE; } /* DATABASE DATA MACROS AND ROUTINE FUNCTIONS */ void midgard_core_object_class_set_midgard( MidgardConnection *mgd, GObject *object) { g_assert(mgd != NULL); g_assert(object != NULL); GObjectClass *klass = G_OBJECT_GET_CLASS(object); MidgardConnection *_mgd = MGD_OBJECT_CNC(object); if (_mgd != NULL) { g_warning("Connection pointer already associated with object"); return; } if (MIDGARD_IS_DBOBJECT_CLASS(klass)) MGD_OBJECT_CNC (object) = mgd; return; } void midgard_core_object_class_set_guid( GObject *object, const gchar *guid) { g_assert(object != NULL); GObjectClass *klass = G_OBJECT_GET_CLASS(object); if (MIDGARD_IS_OBJECT_CLASS (klass)) { g_free((gchar *) MGD_OBJECT_GUID (object)); MGD_OBJECT_GUID (object) = g_strdup(guid); } return; } MgdSchemaTypeAttr *midgard_core_class_get_type_attr(MidgardDBObjectClass *klass) { if (!G_TYPE_IS_CLASSED(G_TYPE_FROM_CLASS(klass))){ g_warning("Class pointer is not a GObjectClass pointer"); return NULL; } MgdSchemaTypeAttr *type_attr = klass->dbpriv->storage_data; return type_attr; } const gchar *midgard_core_class_get_table(MidgardDBObjectClass *klass) { MgdSchemaTypeAttr *type_attr = NULL; type_attr = midgard_core_class_get_type_attr(klass); if (!type_attr) return NULL; return type_attr->table; } const gchar *midgard_core_class_get_tables(MidgardDBObjectClass *klass) { MgdSchemaTypeAttr *type_attr = NULL; type_attr = midgard_core_class_get_type_attr(klass); if (!type_attr) return NULL; return type_attr->tables; } MgdSchemaPropertyAttr *midgard_core_class_get_property_attr( MidgardDBObjectClass *klass, const gchar *name) { g_assert(klass != NULL); g_assert(name != NULL); MgdSchemaPropertyAttr *prop_attr = NULL; prop_attr = g_hash_table_lookup(klass->dbpriv->storage_data->prophash, name); if (prop_attr == NULL) return NULL; return prop_attr; } const gchar *midgard_core_class_get_property_table( MidgardDBObjectClass *klass, const gchar *name) { g_assert(klass != NULL); g_assert(name != NULL); MgdSchemaPropertyAttr *prop_attr = NULL; prop_attr = midgard_core_class_get_property_attr(klass, name); if (prop_attr == NULL) return NULL; return prop_attr->table; } const gchar *midgard_core_class_get_property_colname( MidgardDBObjectClass *klass, const gchar *name) { g_assert(klass != NULL); g_assert(name != NULL); MgdSchemaPropertyAttr *prop_attr = NULL; prop_attr = midgard_core_class_get_property_attr(klass, name); if (prop_attr == NULL) return NULL; return prop_attr->field; } const gchar *midgard_core_class_get_property_tablefield( MidgardDBObjectClass *klass, const gchar *name) { g_assert(klass != NULL); g_assert(name != NULL); MgdSchemaPropertyAttr *prop_attr = NULL; prop_attr = midgard_core_class_get_property_attr(klass, name); if (prop_attr == NULL) return NULL; return prop_attr->tablefield; } midgard2-core-10.05.7.1/src/midgard_dbus.h0000664000175000017500000000461411772046240014761 00000000000000/* * Copyright (C) 2008 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_DBUS_H #define MIDGARD_DBUS_H #include #include "midgard_connection.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_DBUS (midgard_dbus_get_type()) #define MIDGARD_DBUS(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_DBUS, MidgardDbus)) #define MIDGARD_DBUS_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_DBUS, MidgardDbusClass)) #define MIDGARD_IS_DBUS(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_DBUS)) #define MIDGARD_IS_DBUS_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_DBUS)) #define MIDGARD_DBUS_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_DBUS, MidgardDbusClass)) typedef struct _MidgardDbus MidgardDbus; typedef struct _MidgardDbusClass MidgardDbusClass; typedef struct _MidgardDbusPrivate MidgardDbusPrivate; struct _MidgardDbusClass{ GObjectClass parent; /* signals */ void (*notified) (GObject *self, const gchar *message); /* signals id */ guint signal_notified; }; struct _MidgardDbus{ GObject parent; /* < private > */ MidgardDbusPrivate *priv; }; GType midgard_dbus_get_type(void); MidgardDbus *midgard_dbus_new (MidgardConnection *mgd, const gchar *path, gboolean use_session); gboolean midgard_dbus_is_enabled (void); MidgardDbus *midgard_dbus_create_dbus (MidgardConnection *mgd, const gchar *path, gboolean use_session); void midgard_dbus_send (MidgardConnection *mgd, const gchar *path, const gchar *message, gboolean use_session); const gchar *midgard_dbus_get_message (MidgardDbus *self); const gchar *midgard_dbus_get_name (void); G_END_DECLS #endif /* MIDGARD_DBUS_H */ midgard2-core-10.05.7.1/src/midgard_query_column.c0000664000175000017500000000530311772046240016535 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_column.h" struct _MidgardQueryColumn { GObject parent; }; /** * midgard_query_column_get_query_property: * @self: #MidgardQueryColumn instance * @error: pointer to store error * * Returns: (transfer full): #MidgardQueryProperty associated with the column or %NULL * Since: 10.05.6 */ MidgardQueryProperty* midgard_query_column_get_query_property (MidgardQueryColumn *self, GError **error) { return MIDGARD_QUERY_COLUMN_GET_INTERFACE (self)->get_query_property (self, error); } /** * midgard_query_column_get_name: * @self: #MidgardQueryColumn instance * @error:pointer to store error * * Returns: (transfer none): the name of the column * * Since: 10.05.6 */ const gchar* midgard_query_column_get_name (MidgardQueryColumn *self, GError **error) { return MIDGARD_QUERY_COLUMN_GET_INTERFACE (self)->get_name (self, error); } /** * midgard_query_column_get_qualifier: * @self: #MidgardQueryColumn instance * @error:pointer to store error * * Qualifier is a trait, which is a common among particular columns. * Usually it is a prefix for column's name (e.g. 'a.id', 'a.title'). * * Returns: (transfer none): qualifier name or %NULL * * Since: 10.05.6 */ const gchar* midgard_query_column_get_qualifier (MidgardQueryColumn *self, GError **error) { return MIDGARD_QUERY_COLUMN_GET_INTERFACE (self)->get_qualifier (self, error); } /* GOBJECT ROUTINES */ GType midgard_query_column_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQueryColumnIFace), NULL, /* base_init */ NULL, /* base_finalize */ NULL, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_INTERFACE, "MidgardQueryColumn", &info, 0); g_type_interface_add_prerequisite (type, G_TYPE_OBJECT); } return type; } midgard2-core-10.05.7.1/src/midgard_query_holder.h0000664000175000017500000000367111772046240016530 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_HOLDER_H #define MIDGARD_QUERY_HOLDER_H #include G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_HOLDER (midgard_query_holder_get_type()) #define MIDGARD_QUERY_HOLDER(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_HOLDER, MidgardQueryHolder)) #define MIDGARD_IS_QUERY_HOLDER(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_HOLDER)) #define MIDGARD_QUERY_HOLDER_GET_INTERFACE(inst) (G_TYPE_INSTANCE_GET_INTERFACE ((inst), MIDGARD_TYPE_QUERY_HOLDER, MidgardQueryHolderIFace)) typedef struct _MidgardQueryHolder MidgardQueryHolder; /* dummy object */ typedef struct _MidgardQueryHolderIFace MidgardQueryHolderIFace; struct _MidgardQueryHolderIFace { GTypeInterface parent; void (*get_value) (MidgardQueryHolder *self, GValue *value); gboolean (*set_value) (MidgardQueryHolder *self, const GValue *value); }; GType midgard_query_holder_get_type (void); void midgard_query_holder_get_value (MidgardQueryHolder *self, GValue *value); gboolean midgard_query_holder_set_value (MidgardQueryHolder *self, const GValue *value); G_END_DECLS #endif /* MIDGARD_QUERY_HOLDER_H */ midgard2-core-10.05.7.1/src/midgard_executable.c0000664000175000017500000000446211772046240016141 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_executable.h" /** * midgard_executable_error_quark: (skip) * * Returns: MIDGARD_EXECUTION_ERROR quark */ GQuark midgard_execution_error_quark (void) { static GQuark q = 0; if (q == 0) q = g_quark_from_static_string ("midgard-execution-error-quark"); return q; } /** * midgard_executable_execute: * @self: #MidgardExecutable instance * @error (error-domains MIDGARD_EXECUTION_ERROR): location to store error * * Execute command or perform operation. * Implementation shall check if given instance is valid. * If it's not, shall invoke validation, if given instance is #MidgardValidable derived. * * Since: 10.05.5 */ void midgard_executable_execute (MidgardExecutable *self, GError **error) { if (MIDGARD_EXECUTABLE_GET_INTERFACE (self)->execute == NULL) { g_set_error (error, MIDGARD_EXECUTION_ERROR, MIDGARD_EXECUTION_ERROR_INTERNAL, "%s class doesn't implement execute() method", G_OBJECT_TYPE_NAME (self)); } MIDGARD_EXECUTABLE_GET_INTERFACE (self)->execute (self, error); } GType midgard_executable_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardExecutableIFace), NULL, /* base_init */ NULL, /* base_finalize */ NULL, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_INTERFACE, "MidgardExecutable", &info, 0); g_type_interface_add_prerequisite (type, G_TYPE_OBJECT); } return type; } midgard2-core-10.05.7.1/src/midgard_type.h0000664000175000017500000000363311772046240015005 00000000000000/* * Copyright (C) 2005 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_TYPE_H #define MIDGARD_TYPE_H #include #include #include #include #include #include #include /* Longtext */ #define MGD_TYPE_LONGTEXT (midgard_longtext_get_type()) GType midgard_longtext_get_type(void); #define MGD_TYPE_PARAM_LONGTEXT (midgard_param_longtext_get_type()) #define MGD_IS_PARAM_SPEC_LONGTEXT(pspec) (G_TYPE_CHECK_INSTANCE_TYPE ((pspec), MGD_TYPE_PARAM_LONGTEXT)) #define MGD_PARAM_SPEC_LONGTEXT(pspec) (G_TYPE_CHECK_INSTANCE_CAST ((pspec), MGD_TYPE_PARAM_LONGTEXT, MidgardParamSpecLongtext)) typedef struct _MidgardParamSpecLongtext MidgardParamSpecLongtext; GType midgard_param_longtext_get_type(void); /* Timestamp */ #define MGD_TYPE_TIMESTAMP MIDGARD_TYPE_TIMESTAMP /* Guid */ #define MGD_TYPE_GUID (midgard_guid_get_type()) GType midgard_guid_get_type(void); /* Routines */ #define MGD_TYPE_NONE G_TYPE_NONE #define MGD_TYPE_STRING G_TYPE_STRING #define MGD_TYPE_UINT G_TYPE_UINT #define MGD_TYPE_FLOAT G_TYPE_FLOAT #define MGD_TYPE_BOOLEAN G_TYPE_BOOLEAN #define MGD_TYPE_INT G_TYPE_INT #endif /* MIDGARD_TYPE_H */ midgard2-core-10.05.7.1/src/midgard_schema_object_tree.h0000664000175000017500000000513411772046240017627 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_SCHEMA_OBJECT_TREE_H #define MIDGARD_SCHEMA_OBJECT_TREE_H #include "midgard_type.h" #include "midgard_object.h" /* convention macros */ #define MIDGARD_TYPE_SCHEMA_OBJECT_TREE (midgard_schema_object_tree_get_type()) #define MIDGARD_SCHEMA_OBJECT_TREE(object) (G_TYPE_CHECK_INSTANCE_CAST ((object), MIDGARD_TYPE_SCHEMA_OBJECT_TREE, MidgardSchemaObjectTree)) #define MIDGARD_SCHEMA_OBJECT_TREE_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_SCHEMA_OBJECT_TREE, MidgardSchemaObjectTreeClass)) #define MIDGARD_IS_SCHEMA_OBJECT_TREE(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_SCHEMA_OBJECT_TREE)) #define MIDGARD_IS_SCHEMA_OBJECT_TREE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_REFLECTOR_OBJECT_PROPERTY)) #define MIDGARD_SCHEMA_OBJECT_TREE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_SCHEMA_OBJECT_TREE, MidgardSchemaObjectTreeClass)) typedef struct _MidgardSchemaObjectTree MidgardSchemaObjectTree; typedef struct _MidgardSchemaObjectTreePrivate MidgardSchemaObjectTreePrivate; typedef struct _MidgardSchemaObjectTreeClass MidgardSchemaObjectTreeClass; struct _MidgardSchemaObjectTree { GObject parent; }; struct _MidgardSchemaObjectTreeClass{ GObjectClass parent; }; GType midgard_schema_object_tree_get_type (void); gboolean midgard_schema_object_tree_is_in_tree (MidgardObject *object, MidgardObject *parent_object); const gchar *midgard_schema_object_tree_get_parent_name (MidgardObject *object); MidgardObject *midgard_schema_object_tree_get_parent_object (MidgardObject *object); MidgardObject **midgard_schema_object_tree_list_objects (MidgardObject *object, guint *n_objects); MidgardObject **midgard_schema_object_tree_list_children_objects (MidgardObject *object, const gchar *classname, guint *n_objects); #endif /* MIDGARD_SCHEMA_OBJECT_TREE_H */ midgard2-core-10.05.7.1/src/midgard_timestamp.h0000664000175000017500000000355711772046240016034 00000000000000/* * Copyright (c) 2005 Jukka Zitting * Copyright (C) 2008, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_TIMESTAMP_H #define MIDGARD_TIMESTAMP_H #include #include #define MIDGARD_DEFAULT_DATETIME "0001-01-01 00:00:00+0000" typedef struct { glong year; gint month; gint day; gint hour; gint minute; gint second; gulong nano; glong offset; guint64 date_value; gchar *date_string; } MidgardTimestamp; #define MIDGARD_TYPE_TIMESTAMP (midgard_timestamp_get_type()) GType midgard_timestamp_get_type(void); void midgard_timestamp_set_current_time (const GValue *value); gchar *midgard_timestamp_get_string_from_value (const GValue *value); gchar *midgard_timestamp_get_string (MidgardTimestamp *mt); MidgardTimestamp *midgard_timestamp_new (void); void midgard_timestamp_new_current (GValue *value); GValue *midgard_timestamp_new_value_from_iso8601 (const gchar *iso_date); MidgardTimestamp *midgard_timestamp_new_from_iso8601 (const gchar *iso_date); void midgard_timestamp_free (MidgardTimestamp *mt); void midgard_core_timestamp_set_current_time (MidgardTimestamp *tm); #endif midgard2-core-10.05.7.1/src/query_builder.h0000664000175000017500000001041611772046240015205 00000000000000/* * Copyright (c) 2005 Jukka Zitting * Copyright (c) 2005, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_BUILDER_H #define MIDGARD_QUERY_BUILDER_H #include "midgard_connection.h" /* convention macros */ #define MIDGARD_TYPE_QUERY_BUILDER (midgard_query_builder_get_type()) #define MIDGARD_QUERY_BUILDER(object) \ (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_BUILDER, MidgardQueryBuilder)) #define MIDGARD_QUERY_BUILDER_CLASS(klass) \ (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_QUERY_BUILDER, MidgardQueryBuilderClass)) #define MIDGARD_IS_QUERY_BUILDER(object) \ (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_QUERY_BUILDER)) #define MIDGARD_IS_QUERY_BUILDER_CLASS(klass) \ (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_QUERY_BUILDER)) #define MIDGARD_QUERY_BUILDER_GET_CLASS(obj) \ (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_QUERY_BUILDER, MidgardQueryBuilderClass)) typedef struct _MidgardQueryBuilder MidgardQueryBuilder; typedef struct _MidgardQueryBuilderPrivate MidgardQueryBuilderPrivate; struct _MidgardQueryBuilder { GObject parent; MidgardQueryBuilderPrivate *priv; }; typedef struct MidgardQueryBuilderClass MidgardQueryBuilderClass; struct MidgardQueryBuilderClass{ GObjectClass parent; gboolean (*add_constraint) (MidgardQueryBuilder *builder, const gchar *name, const gchar *op, const GValue *value); gboolean (*add_constraint_with_property) (MidgardQueryBuilder *builder, const gchar *property_a, const gchar *op, const gchar *property_b); gboolean (*begin_group) (MidgardQueryBuilder *builder, const gchar *type); gboolean (*end_group) (MidgardQueryBuilder *builder); gboolean (*add_order) (MidgardQueryBuilder *builder, const gchar *name, const gchar *dir); void (*set_offset) (MidgardQueryBuilder *builder, guint offset); void (*set_limit) (MidgardQueryBuilder *builder, guint limit); void (*include_deleted) (MidgardQueryBuilder *builder); GObject** (*execute) (MidgardQueryBuilder *builder, guint *n_objects); guint (*count) (MidgardQueryBuilder *builder); /* signals */ void (*execution_start) (GObject *object); void (*execution_end) (GObject *object); /* signals IDs */ guint signal_id_execution_start; guint signal_id_execution_end; }; GType midgard_query_builder_get_type (void); MidgardQueryBuilder* midgard_query_builder_new (MidgardConnection *mgd, const gchar *classname); MidgardQueryBuilder* midgard_query_builder_create_builder (MidgardConnection *mgd, const gchar *classname); gboolean midgard_query_builder_add_constraint (MidgardQueryBuilder *builder, const gchar *name, const gchar *op, const GValue *value); gboolean midgard_query_builder_add_constraint_with_property (MidgardQueryBuilder *builder, const gchar *property_a, const gchar *op, const gchar *property_b); gboolean midgard_query_builder_begin_group (MidgardQueryBuilder *builder, const gchar *type); gboolean midgard_query_builder_end_group (MidgardQueryBuilder *builder); gboolean midgard_query_builder_add_order (MidgardQueryBuilder *builder, const gchar *name, const gchar *dir); void midgard_query_builder_set_offset (MidgardQueryBuilder *builder, guint offset); void midgard_query_builder_set_limit (MidgardQueryBuilder *builder, guint limit); GObject** midgard_query_builder_execute (MidgardQueryBuilder *builder, guint *n_objects); guint midgard_query_builder_count (MidgardQueryBuilder *builder); const gchar* midgard_query_builder_get_type_name (MidgardQueryBuilder *builder); void midgard_query_builder_include_deleted (MidgardQueryBuilder *builder); #endif midgard2-core-10.05.7.1/src/sql/0000775000175000017500000000000011772046331013037 500000000000000midgard2-core-10.05.7.1/src/sql/midgard_sql_query_constraint.c0000664000175000017500000004361311772046240021110 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_sql_query_constraint.h" #include "../midgard_query_holder.h" #include "../midgard_query_constraint_simple.h" #include "../midgard_dbobject.h" #include "../midgard_core_query.h" #include "../midgard_query_column.h" #include "../midgard_core_object.h" #include "../midgard_core_object_class.h" #include "../midgard_validable.h" struct _MidgardSqlQueryConstraintPrivate { GObject parent; MidgardSqlQueryColumn *column; gchar *op; GdaSqlOperatorType op_type; MidgardQueryHolder *holder; gboolean is_valid; }; static struct { const gchar *name; GdaSqlOperatorType op_type; } valid_operators[] = { { "=", GDA_SQL_OPERATOR_TYPE_EQ }, { ">", GDA_SQL_OPERATOR_TYPE_GT }, { "<", GDA_SQL_OPERATOR_TYPE_LT }, { "!=", GDA_SQL_OPERATOR_TYPE_DIFF }, { "<>", GDA_SQL_OPERATOR_TYPE_DIFF }, { "<=", GDA_SQL_OPERATOR_TYPE_LEQ }, { ">=", GDA_SQL_OPERATOR_TYPE_GEQ }, { "LIKE", GDA_SQL_OPERATOR_TYPE_LIKE }, { "NOT LIKE", GDA_SQL_OPERATOR_TYPE_GT }, { "IN", GDA_SQL_OPERATOR_TYPE_IN }, { "NOT IN", GDA_SQL_OPERATOR_TYPE_NOTIN }, { NULL, 0 } }; static gboolean __query_constraint_operator_is_valid(const gchar *op, GdaSqlOperatorType *op_type) { guint i; for (i = 0; valid_operators[i].name != NULL; i++) { if (g_str_equal(op, valid_operators[i].name)) { if (op_type) *op_type = valid_operators[i].op_type; return TRUE; } } if (valid_operators[i].name == NULL) { g_warning("Invalid comparison operator %s", op); return FALSE; } return TRUE; } /** * midgard_sql_query_constraint_new: * @column: #MidgardSqlQueryColumn instance * @op: constraint operator * @holder: #MidgardQueryHolder instance * * Returns: new #MidgardSqlQueryConstraint instance, or %NULL on failure * Since: 10.05.6 */ MidgardSqlQueryConstraint * midgard_sql_query_constraint_new (MidgardSqlQueryColumn *column, const gchar *op, MidgardQueryHolder *holder) { g_return_val_if_fail (column != NULL, NULL); g_return_val_if_fail (op != NULL, NULL); g_return_val_if_fail (holder != NULL, NULL); MidgardSqlQueryConstraint *self = g_object_new (MIDGARD_TYPE_SQL_QUERY_CONSTRAINT, "column", column, "operator", op, "holder", holder, NULL); return self; } /** * midgard_sql_query_constraint_get_column: * @self: #MidgardSqlQueryConstraint instance * * Returns: (transfer full): #MidgardSqlQueryColumn associated with constraint or %NULL * Since: 10.05.6 */ MidgardSqlQueryColumn * midgard_sql_query_constraint_get_column (MidgardSqlQueryConstraint *self) { g_return_val_if_fail (self != NULL, NULL); return g_object_ref (self->priv->column); } /** * midgard_sql_query_constraint_set_column: * @self: #MidgardSqlQueryConstraint instance * @column: #MidgardSqlQueryColumn to associate with @self constraint * @error: pointer to store returned error * * Since: 10.05.6 */ void midgard_sql_query_constraint_set_column (MidgardSqlQueryConstraint *self, MidgardSqlQueryColumn *column, GError **error) { g_return_if_fail (self != NULL); g_return_if_fail (column != NULL); if (self->priv->column) g_object_unref (self->priv->column); self->priv->column = g_object_ref (column); } /** * midgard_sql_query_constraint_get_holder: * @self: #MidgardSqlQueryConstraint instance * * Returns: (transfer full): #MidgardQueryHolder associated with @self constraint, or %NULL * Since: 10.05.6 */ MidgardQueryHolder* midgard_sql_query_constraint_get_holder (MidgardSqlQueryConstraint *self) { g_return_val_if_fail (self != NULL, NULL); return g_object_ref (self->priv->holder); } /** * midgard_sql_query_constraint_set_holder: * @self: #MidgardSqlQueryConstraint instance * @holder: #MidgardQueryHolder to associate with @self constraint * @error: pointer to store returned error * * Since: 10.05.6 */ void midgard_sql_query_constraint_set_holder (MidgardSqlQueryConstraint *self, MidgardQueryHolder *holder, GError **error) { g_return_if_fail (self != NULL); g_return_if_fail (holder != NULL); if (self->priv->holder) g_object_unref (self->priv->holder); self->priv->holder = g_object_ref (holder); } /** * midgard_sql_query_constraint_get_operator: * @self: #MidgardSqlQueryConstraint instance * * Returns: (transfer none): operator type associated with @self constraint, or %NULL * Since: 10.05.6 */ const gchar * midgard_sql_query_constraint_get_operator (MidgardSqlQueryConstraint *self) { g_return_val_if_fail (self != NULL, NULL); return self->priv->op; } /** * midgard_sql_query_constraint_set_operator: * @self: #MidgardSqlQueryConstraint instance * @op: operator to associate with constraint * @error: pointer to store returned error * * Check midgard_query_constraint_new() for valid operator types. * * Since: 10.05.6 */ void midgard_sql_query_constraint_set_operator (MidgardSqlQueryConstraint *self, const gchar *op, GError **error) { g_return_if_fail (self != NULL); GdaSqlOperatorType op_type; if (!__query_constraint_operator_is_valid (op, &op_type)) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_VALUE_INVALID, "Invalid '%s' operator", op); return; } self->priv->op = g_strdup (op); self->priv->op_type = op_type; } /* GOBJECT ROUTINES */ enum { MIDGARD_SQL_QUERY_CONSTRAINT_COLUMN = 1, MIDGARD_SQL_QUERY_CONSTRAINT_OP, MIDGARD_SQL_QUERY_CONSTRAINT_HOLDER }; static GObjectClass *parent_class = NULL; MidgardQueryConstraintSimple** _midgard_sql_query_constraint_list_constraints (MidgardQueryConstraintSimple *self, guint *n_objects) { return NULL; } static void __get_expression_value (GdaConnection *cnc, GValue *src, GString *str) { gchar *escaped_string = NULL; switch (G_TYPE_FUNDAMENTAL (G_VALUE_TYPE (src))) { case G_TYPE_STRING: escaped_string = gda_connection_value_to_sql_string(cnc, src); g_string_append_printf (str, "%s", escaped_string); g_free(escaped_string); break; case G_TYPE_UINT: g_string_append_printf (str, "%d", g_value_get_uint (src)); break; case G_TYPE_INT: g_string_append_printf (str, "%d", g_value_get_int (src)); break; case G_TYPE_FLOAT: g_string_append_printf (str, "%.04f", g_value_get_float (src)); break; case G_TYPE_BOOLEAN: g_string_append_printf (str, "%d", g_value_get_boolean (src)); break; case G_TYPE_BOXED: if (G_VALUE_TYPE (src) == G_TYPE_VALUE_ARRAY) { GValueArray *array = (GValueArray *) g_value_get_boxed (src); if (!array) { /* FIXME, add this to validate */ g_warning ("Empty array given"); return; } guint i; for (i = 0; i < array->n_values; i++) { if (i > 0) g_string_append (str, ", "); __get_expression_value (cnc, g_value_array_get_nth (array, i), str); } } else { /*FIXME, add this to validate */ g_warning ("BOXED type '%s' not implemented \n", G_VALUE_TYPE_NAME (src)); } break; default: break; } return; } gchar* get_real_table_field (MidgardQueryExecutor *executor, MidgardSqlQueryColumn *column) { g_return_val_if_fail (executor != NULL, NULL); g_return_val_if_fail (column != NULL, NULL); MidgardConnection *mgd = executor->priv->mgd; g_return_val_if_fail (executor != NULL, NULL); /* Set default dbclass by default */ MidgardDBObjectClass *dbklass = NULL; if (executor->priv->storage) dbklass = executor->priv->storage->priv->klass; gchar *classname = NULL; gchar *pname = NULL; MidgardQueryStorage *storage = NULL; /* Set property's dbclass if defined */ MidgardQueryProperty *qproperty = midgard_query_column_get_query_property (MIDGARD_QUERY_COLUMN(column), NULL); g_object_get (qproperty, "storage", &storage, "property", &pname, NULL); if (storage) g_object_get (storage, "dbclass", &classname, NULL); g_object_unref (qproperty); if (classname) { GType dbtype = g_type_from_name (classname); /* TODO , handle invalid type error */ dbklass = MIDGARD_DBOBJECT_CLASS (g_type_class_peek (dbtype)); } /* Get real fieldname */ const gchar *fieldname = (const gchar *)pname; if (dbklass) fieldname = midgard_core_class_get_property_colname (dbklass, pname); const gchar *qualifier = midgard_query_column_get_qualifier (MIDGARD_QUERY_COLUMN (column), NULL); if (*qualifier == '\0') qualifier = NULL; gchar *table_alias_field = g_strdup_printf("%s%s%s", qualifier ? qualifier : "", qualifier ? "." : "", fieldname); g_free (classname); g_free (pname); return table_alias_field; } void _midgard_sql_query_constraint_add_conditions_to_statement (MidgardQueryExecutor *executor, MidgardQueryConstraintSimple *constraint_simple, GdaSqlStatement *stmt, GdaSqlExpr *where_expr_node, GError **error) { MidgardSqlQueryConstraint *self = MIDGARD_SQL_QUERY_CONSTRAINT (constraint_simple); MidgardConnection *mgd = executor->priv->mgd; GdaConnection *cnc = mgd->priv->connection; GdaSqlStatementSelect *select = stmt->contents; GdaSqlExpr *top_where, *where, *expr; GdaSqlOperation *top_operation, *cond; GValue *value; /* Create table_alias.field name */ MidgardSqlQueryColumn *column = midgard_sql_query_constraint_get_column (self); gchar *table_alias_field = get_real_table_field (executor, column); g_object_unref (column); if (!table_alias_field) { /* TODO */ /* Handle error */ } if (where_expr_node) { top_where = where_expr_node; top_operation = top_where->cond; } else { top_where = select->where_cond; top_operation = top_where->cond; } where = gda_sql_expr_new (GDA_SQL_ANY_PART (top_operation)); top_operation->operands = g_slist_append (top_operation->operands, where); cond = gda_sql_operation_new (GDA_SQL_ANY_PART (where)); where->cond = cond; cond->operator_type = self->priv->op_type; expr = gda_sql_expr_new (GDA_SQL_ANY_PART (cond)); g_value_take_string ((value = gda_value_new (G_TYPE_STRING)), table_alias_field); expr->value = value; cond->operands = g_slist_append (cond->operands, expr); expr = gda_sql_expr_new (GDA_SQL_ANY_PART (cond)); /* Create value */ GValue val = {0, }; midgard_query_holder_get_value (MIDGARD_QUERY_HOLDER (self->priv->holder), &val); //FIXME, create parameter name::type */ expr->value = gda_value_new (G_TYPE_STRING); GString *str = g_string_new (""); __get_expression_value (cnc, &val, str); g_value_take_string (expr->value, g_string_free (str, FALSE)); g_value_unset (&val); cond->operands = g_slist_append (cond->operands, expr); /* increase executor's constraints number */ executor->priv->n_constraints++; } static void _midgard_sql_query_constraint_iface_init (MidgardQueryConstraintSimpleIFace *iface) { iface->list_constraints = _midgard_sql_query_constraint_list_constraints; iface->priv = g_new (MidgardQueryConstraintSimplePrivate, 1); iface->priv->add_conditions_to_statement = _midgard_sql_query_constraint_add_conditions_to_statement; return; } static void _midgard_sql_query_constraint_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardSqlQueryConstraint *self = MIDGARD_SQL_QUERY_CONSTRAINT (instance); self->priv = g_new (MidgardSqlQueryConstraintPrivate, 1); self->priv->column = NULL; self->priv->op = NULL; self->priv->holder = NULL; self->priv->is_valid = FALSE; } /* Validable iface */ static void _midgard_sql_query_constraint_validable_iface_validate (MidgardValidable *iface, GError **error) { g_return_if_fail (iface != NULL); MidgardSqlQueryConstraint *self = MIDGARD_SQL_QUERY_CONSTRAINT (iface); self->priv->is_valid = FALSE; /* Column, TODO */ /* Storage, TODO */ /* Value, TODO */ /* Operator */ if (!__query_constraint_operator_is_valid (self->priv->op, NULL)) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_TYPE_INVALID, "Invalid operator type '%s'", self->priv->op); return; } MIDGARD_SQL_QUERY_CONSTRAINT (self)->priv->is_valid = TRUE; return; } gboolean _midgard_sql_query_constraint_validable_iface_is_valid (MidgardValidable *self) { g_return_val_if_fail (self != NULL, FALSE); return MIDGARD_SQL_QUERY_CONSTRAINT (self)->priv->is_valid; } static void _midgard_sql_query_constraint_validable_iface_init (MidgardValidableIFace *iface) { iface->validate = _midgard_sql_query_constraint_validable_iface_validate; iface->is_valid = _midgard_sql_query_constraint_validable_iface_is_valid; } static GObject * _midgard_sql_query_constraint_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_sql_query_constraint_dispose (GObject *object) { parent_class->dispose (object); MidgardSqlQueryConstraint *self = (MidgardSqlQueryConstraint *) object; if (self->priv->column) { g_object_unref (self->priv->column); self->priv->column = NULL; } if (self->priv->holder && G_IS_OBJECT (self->priv->holder)) { g_object_unref (self->priv->holder); self->priv->holder = NULL; } } static void _midgard_sql_query_constraint_finalize (GObject *object) { MidgardSqlQueryConstraint *self = MIDGARD_SQL_QUERY_CONSTRAINT (object); g_free (self->priv->op); self->priv->op = NULL; g_free (self->priv); self->priv = NULL; parent_class->finalize (object); } static void __midgard_sql_query_constraint_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardSqlQueryConstraint *self = (MidgardSqlQueryConstraint *) object; switch (property_id) { case MIDGARD_SQL_QUERY_CONSTRAINT_COLUMN: g_value_set_object (value, self->priv->column); break; case MIDGARD_SQL_QUERY_CONSTRAINT_OP: g_value_set_string (value, self->priv->op); break; case MIDGARD_SQL_QUERY_CONSTRAINT_HOLDER: g_value_set_object (value, self->priv->holder); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void __midgard_sql_query_constraint_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardSqlQueryConstraint *self = (MidgardSqlQueryConstraint *) (object); GdaSqlOperatorType op_type; gchar *op; switch (property_id) { case MIDGARD_SQL_QUERY_CONSTRAINT_COLUMN: if (self->priv->column) g_object_unref (self->priv->column); self->priv->column = g_value_dup_object (value); break; case MIDGARD_SQL_QUERY_CONSTRAINT_OP: op = (gchar *)g_value_get_string (value); GError *err = NULL; midgard_sql_query_constraint_set_operator (self, op, &err); if (err) g_warning ("Error while setting property. %s", err && err->message ? err->message : "Unknown reason"); break; case MIDGARD_SQL_QUERY_CONSTRAINT_HOLDER: if (self->priv->holder) g_object_unref (self->priv->holder); self->priv->holder = g_value_dup_object (value); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_sql_query_constraint_class_init (MidgardSqlQueryConstraintClass *klass, gpointer class_data) { GObjectClass *object_class = G_OBJECT_CLASS (klass); parent_class = g_type_class_peek_parent (klass); object_class->constructor = _midgard_sql_query_constraint_constructor; object_class->dispose = _midgard_sql_query_constraint_dispose; object_class->finalize = _midgard_sql_query_constraint_finalize; object_class->set_property = __midgard_sql_query_constraint_set_property; object_class->get_property = __midgard_sql_query_constraint_get_property; /* Properties */ GParamSpec *pspec = g_param_spec_object ("column", "", "", MIDGARD_TYPE_SQL_QUERY_COLUMN, G_PARAM_READWRITE); /** * MidgardSqlQueryConstraint:column: * */ g_object_class_install_property (object_class, MIDGARD_SQL_QUERY_CONSTRAINT_COLUMN, pspec); pspec = g_param_spec_string ("operator", "", "", "", G_PARAM_READWRITE); /** * MidgardSqlQueryConstraint:operator: * */ g_object_class_install_property (object_class, MIDGARD_SQL_QUERY_CONSTRAINT_OP, pspec); pspec = g_param_spec_object ("holder", "", "", MIDGARD_TYPE_QUERY_HOLDER, G_PARAM_READWRITE); /** * MidgardSqlQueryConstraint:holder: * */ g_object_class_install_property (object_class, MIDGARD_SQL_QUERY_CONSTRAINT_HOLDER, pspec); } GType midgard_sql_query_constraint_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardSqlQueryConstraintClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc)_midgard_sql_query_constraint_class_init, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardSqlQueryConstraint), 0, /* n_preallocs */ _midgard_sql_query_constraint_instance_init /* instance_init */ }; static const GInterfaceInfo constraint_simple_info = { (GInterfaceInitFunc) _midgard_sql_query_constraint_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; static const GInterfaceInfo validable_info = { (GInterfaceInitFunc) _midgard_sql_query_constraint_validable_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardSqlQueryConstraint", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_QUERY_CONSTRAINT_SIMPLE, &constraint_simple_info); g_type_add_interface_static (type, MIDGARD_TYPE_VALIDABLE, &validable_info); } return type; } midgard2-core-10.05.7.1/src/sql/midgard_sql_query_row.c0000664000175000017500000002121211772046240017522 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "midgard_sql_query_row.h" #include "../midgard_query_row.h" #include "../midgard_validable.h" /** * midgard_sql_query_row_new: * @mgd: #MidgardConnection instance * @model: a GObject which represents data model * @row: Row's index in a given model * * This constructor should be used by #MidgardQueryResult implementation * * Returns: new #MidgardSqlQueryRow * * Since: 10.05.6 */ MidgardSqlQueryRow * midgard_sql_query_row_new (MidgardConnection *mgd, GObject *model, guint row) { g_return_val_if_fail (model != NULL, NULL); MidgardSqlQueryRow *self = g_object_new (MIDGARD_TYPE_SQL_QUERY_ROW, "connection", mgd, "model", model, "row", row, NULL); return self; } const GValue * _midgard_sql_query_row_get_value (MidgardQueryRow *self, const gchar *column_name, GError **error) { g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (column_name != NULL, NULL); GdaDataModel *model = GDA_DATA_MODEL (MIDGARD_SQL_QUERY_ROW(self)->model); g_return_val_if_fail (model != NULL, NULL); if (!(gda_data_model_get_access_flags (model) & GDA_DATA_MODEL_ACCESS_CURSOR)) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_INTERNAL, "Expected data model iterator"); return NULL; } if (GDA_IS_DATA_MODEL_ITER (model)) return gda_data_model_iter_get_value_for_field (GDA_DATA_MODEL_ITER (model), column_name); return gda_data_model_get_value_at (GDA_DATA_MODEL (model), gda_data_model_get_column_index(model, column_name), MIDGARD_SQL_QUERY_ROW(self)->row, NULL ); } GValueArray * _midgard_sql_query_row_get_values (MidgardQueryRow *self, GError **error) { g_return_val_if_fail (self != NULL, NULL); GdaDataModel *model = GDA_DATA_MODEL (MIDGARD_SQL_QUERY_ROW (self)->model); g_return_val_if_fail (model != NULL, NULL); gint n_columns = gda_data_model_get_n_columns (model); GValueArray *varray = g_value_array_new (n_columns); if (GDA_IS_DATA_MODEL_ITER (model)) { GdaDataModelIter *iter = GDA_DATA_MODEL_ITER (model); if (gda_data_model_iter_move_to_row (iter, 0)) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_INTERNAL, "Can not reset model iterator"); } while (gda_data_model_iter_move_next (iter) == TRUE) { gint row_id = gda_data_model_iter_get_row (iter); g_value_array_append (varray, gda_data_model_iter_get_value_at (iter, row_id)); } return varray; } gint i; for (i = 0; i < n_columns; i++) { g_value_array_append (varray, gda_data_model_get_value_at (model, i, MIDGARD_SQL_QUERY_ROW(self)->row, NULL)); } return varray; } GObject * _midgard_sql_query_row_get_object (MidgardQueryRow *self, const gchar *column_name, GError **error) { GError *err = NULL; const GValue *val = midgard_query_row_get_value (self, column_name, &err); if (val == NULL) { g_propagate_error (error, err); return NULL; } /* TODO, get storage and class name const gchar *classname = NULL; MidgardObject *object = midgard_object_new(self->connection, classname, val); if (!object) { g_set_error (MIDGARD_GENERIC_ERROR, MIDGARD_ERR_NOT_EXISTS, "Can not fetch object for given '%s' column name", column_name); return NULL; } return object; */ return NULL; } /* GOBJECT ROUTINES */ static GObjectClass *__parent_class= NULL; enum { PROPERTY_MODEL = 1, PROPERTY_ROW, PROPERTY_CONNECTION }; static void _midgard_sql_query_row_iface_init (MidgardQueryRowIFace *iface) { iface->get_value = _midgard_sql_query_row_get_value; iface->get_values = _midgard_sql_query_row_get_values; iface->get_object = _midgard_sql_query_row_get_object; return; } static void _midgard_sql_query_row_iface_finalize (MidgardQueryRowIFace *iface) { return; } static void _midgard_sql_query_row_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardSqlQueryRow *self = (MidgardSqlQueryRow*) instance; self->model = NULL; return; } static GObject * _midgard_sql_query_row_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (__parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_sql_query_row_dispose (GObject *object) { MidgardSqlQueryRow *self = MIDGARD_SQL_QUERY_ROW (object); if (self->model) g_object_unref (self->model); self->model = NULL; if (self->mgd) g_object_unref (self->mgd); self->mgd = NULL; __parent_class->dispose (object); } static void _midgard_sql_query_row_finalize (GObject *object) { __parent_class->finalize (object); } static void _midgard_sql_query_row_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardSqlQueryRow *self = MIDGARD_SQL_QUERY_ROW (object); switch (property_id) { case PROPERTY_MODEL: self->model = g_value_dup_object (value); break; case PROPERTY_CONNECTION: self->mgd = g_value_dup_object (value); break; case PROPERTY_ROW: self->row = g_value_get_uint (value); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_sql_query_row_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardSqlQueryRow *self = (MidgardSqlQueryRow *) object; switch (property_id) { case PROPERTY_MODEL: case PROPERTY_ROW: case PROPERTY_CONNECTION: /* Write only */ break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_sql_query_row_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardSqlQueryRowClass *klass = MIDGARD_SQL_QUERY_ROW_CLASS (g_class); __parent_class = g_type_class_peek_parent (g_class); gobject_class->constructor = _midgard_sql_query_row_constructor; gobject_class->dispose = _midgard_sql_query_row_dispose; gobject_class->finalize = _midgard_sql_query_row_finalize; gobject_class->set_property = _midgard_sql_query_row_set_property; gobject_class->get_property = _midgard_sql_query_row_get_property; /* PROPERTIES */ GParamSpec *pspec; const gchar *property_name; /* model */ property_name = "model"; pspec = g_param_spec_object (property_name, "Data model's row", "Holds a reference to data model", GDA_TYPE_DATA_MODEL, G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); g_object_class_install_property (gobject_class, PROPERTY_MODEL, pspec); /* connection */ property_name = "connection"; pspec = g_param_spec_object (property_name, "Connection", "Connection to underlying database", MIDGARD_TYPE_CONNECTION, G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); g_object_class_install_property (gobject_class, PROPERTY_MODEL, pspec); /* row */ property_name = "row"; pspec = g_param_spec_uint (property_name, "Rows' index", "Index of a row in a model", 0, G_MAXUINT32, 0, G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); g_object_class_install_property (gobject_class, PROPERTY_ROW, pspec); } GType midgard_sql_query_row_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardSqlQueryRowClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_sql_query_row_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardSqlQueryRow), 0, /* n_preallocs */ _midgard_sql_query_row_instance_init /* instance_init */ }; static const GInterfaceInfo iface_info = { (GInterfaceInitFunc) _midgard_sql_query_row_iface_init, (GInterfaceFinalizeFunc) _midgard_sql_query_row_iface_finalize, NULL /* interface_data */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardSqlQueryRow", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_QUERY_ROW, &iface_info); } return type; } midgard2-core-10.05.7.1/src/sql/midgard_sql_query_column.c0000664000175000017500000002222411772046240020214 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_sql_query_column.h" #include "../midgard_query_column.h" #include "../midgard_query_holder.h" #include "midgard_core_object_class.h" /** * midgard_sql_query_column_new: * @query_property: #MidgardQueryProperty instance * @name: column name * * Returns: #MidgardSqlQueryColumn instance * * Since: 10.05.6 */ MidgardSqlQueryColumn * midgard_sql_query_column_new (MidgardQueryProperty *query_property, const gchar *qualifier, const gchar *name) { MidgardSqlQueryColumn *self = g_object_new (MIDGARD_TYPE_SQL_QUERY_COLUMN, "queryproperty", query_property, "qualifier", qualifier, "name", name, NULL); return self; } MidgardQueryProperty * _midgard_sql_query_column_get_query_property (MidgardQueryColumn *iface, GError **error) { MidgardSqlQueryColumn *self = (MidgardSqlQueryColumn*) iface; g_return_val_if_fail (self != NULL, NULL); /* TODO, set error if query_property is NULL */ return g_object_ref (self->query_property); } const gchar * _midgard_sql_query_column_get_name (MidgardQueryColumn *iface, GError **error) { MidgardSqlQueryColumn *self = (MidgardSqlQueryColumn*) iface; g_return_val_if_fail (self != NULL, NULL); /* TODO, set error if name is NULL */ return (const gchar*) self->name; } const gchar * _midgard_sql_query_column_get_qualifier (MidgardQueryColumn *iface, GError **error) { MidgardSqlQueryColumn *self = (MidgardSqlQueryColumn*) iface; g_return_val_if_fail (self != NULL, NULL); return (const gchar*) self->qualifier; } /* GOBJECT ROUTINES */ static GObjectClass *__parent_class= NULL; enum { PROPERTY_QUERY_PROP = 1, PROPERTY_NAME, PROPERTY_QUALIFIER }; static void _midgard_sql_query_column_iface_init (MidgardQueryColumnIFace *iface) { iface->get_query_property = _midgard_sql_query_column_get_query_property; iface->get_name = _midgard_sql_query_column_get_name; iface->get_qualifier = _midgard_sql_query_column_get_qualifier; return; } static void _midgard_sql_query_column_iface_finalize (MidgardQueryColumnIFace *iface) { return; } static void _midgard_sql_query_column_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardSqlQueryColumn *self = (MidgardSqlQueryColumn*) instance; self->query_property = NULL; self->name = NULL; self->qualifier = NULL; return; } static GObject * _midgard_sql_query_column_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (__parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_sql_query_column_dispose (GObject *object) { MidgardSqlQueryColumn *self = MIDGARD_SQL_QUERY_COLUMN (object); if (self->query_property) g_object_unref (self->query_property); self->query_property = NULL; __parent_class->dispose (object); } static void _midgard_sql_query_column_finalize (GObject *object) { MidgardSqlQueryColumn *self = MIDGARD_SQL_QUERY_COLUMN (object); if (self->name) g_free(self->name); self->name = NULL; if (self->qualifier) g_free(self->qualifier); self->qualifier = NULL; __parent_class->finalize (object); } static void _midgard_sql_query_column_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardSqlQueryColumn *self = MIDGARD_SQL_QUERY_COLUMN (object); switch (property_id) { case PROPERTY_QUERY_PROP: self->query_property = g_value_dup_object (value); break; case PROPERTY_NAME: g_free (self->name); self->name = g_value_dup_string (value); break; case PROPERTY_QUALIFIER: g_free (self->qualifier); self->qualifier = g_value_dup_string (value); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_sql_query_column_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardSqlQueryColumn *self = (MidgardSqlQueryColumn *) object; switch (property_id) { case PROPERTY_QUERY_PROP: case PROPERTY_NAME: case PROPERTY_QUALIFIER: /* Write only */ break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_sql_query_column_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardSqlQueryColumnClass *klass = MIDGARD_SQL_QUERY_COLUMN_CLASS (g_class); __parent_class = g_type_class_peek_parent (g_class); gobject_class->constructor = _midgard_sql_query_column_constructor; gobject_class->dispose = _midgard_sql_query_column_dispose; gobject_class->finalize = _midgard_sql_query_column_finalize; gobject_class->set_property = _midgard_sql_query_column_set_property; gobject_class->get_property = _midgard_sql_query_column_get_property; /* PROPERTIES */ GParamSpec *pspec; const gchar *property_name; /* queryproperty */ property_name = "queryproperty"; pspec = g_param_spec_object (property_name, "QueryProperty", "Holds a reference to property name and it's storage", MIDGARD_TYPE_QUERY_PROPERTY, G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); g_object_class_install_property (gobject_class, PROPERTY_QUERY_PROP, pspec); /* name */ property_name = "name"; pspec = g_param_spec_string (property_name, "SqlQueryColumn name", "", "", G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); g_object_class_install_property (gobject_class, PROPERTY_NAME, pspec); /* qualififer */ property_name = "qualifier"; pspec = g_param_spec_string (property_name, "Qualifier of a column", "", "", G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); g_object_class_install_property (gobject_class, PROPERTY_QUALIFIER, pspec); } static void __get_value (MidgardQueryHolder *self, GValue *value) { g_return_if_fail (self != NULL); g_return_if_fail (self != NULL); if (!G_VALUE_HOLDS_STRING (value)) g_value_init (value, G_TYPE_STRING); MidgardDBObjectClass *dbklass = NULL; gchar *classname = NULL; gchar *pname = NULL; MidgardQueryStorage *storage = NULL; /* Get property's dbclass if defined */ MidgardQueryProperty *qproperty = MIDGARD_SQL_QUERY_COLUMN (self)->query_property; if (qproperty) { g_object_get (qproperty, "storage", &storage, "property", &pname, NULL); if (storage) { g_object_get (storage, "dbclass", &classname, NULL); g_object_unref (storage); } } if (classname) { GType dbtype = g_type_from_name (classname); dbklass = MIDGARD_DBOBJECT_CLASS (g_type_class_peek (dbtype)); } /* Get real fieldname */ const gchar *fieldname = (const gchar *)pname; if (dbklass) fieldname = midgard_core_class_get_property_colname (dbklass, pname); const gchar *qualifier = midgard_query_column_get_qualifier (MIDGARD_QUERY_COLUMN (self), NULL); if (*qualifier == '\0') qualifier = NULL; gchar *table_alias_field = g_strdup_printf("%s%s%s", qualifier ? qualifier : "", qualifier ? "." : "", fieldname); g_free (classname); g_free (pname); g_value_take_string (value, table_alias_field); } static gboolean __set_value (MidgardQueryHolder *self, const GValue *value) { g_warning ("Setting SqlQueryColumn value, not supported"); return FALSE; } static void _midgard_sql_query_holder_iface_init (MidgardQueryHolderIFace *iface) { iface->get_value = __get_value; iface->set_value = __set_value; } GType midgard_sql_query_column_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardSqlQueryColumnClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_sql_query_column_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardSqlQueryColumn), 0, /* n_preallocs */ _midgard_sql_query_column_instance_init /* instance_init */ }; static const GInterfaceInfo column_info = { (GInterfaceInitFunc) _midgard_sql_query_column_iface_init, (GInterfaceFinalizeFunc) _midgard_sql_query_column_iface_finalize, NULL /* interface_data */ }; static const GInterfaceInfo holder_info = { (GInterfaceInitFunc) _midgard_sql_query_holder_iface_init, NULL, /* interface finalize */ NULL /* interface_data */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardSqlQueryColumn", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_QUERY_COLUMN, &column_info); g_type_add_interface_static (type, MIDGARD_TYPE_QUERY_HOLDER, &holder_info); } return type; } midgard2-core-10.05.7.1/src/sql/midgard_sql_query_column.h0000664000175000017500000000427511772046240020227 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_SQL_QUERY_COLUMN_H #define MIDGARD_SQL_QUERY_COLUMN_H #include "../midgard_query_property.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_SQL_QUERY_COLUMN (midgard_sql_query_column_get_type()) #define MIDGARD_SQL_QUERY_COLUMN(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_SQL_QUERY_COLUMN, MidgardSqlQueryColumn)) #define MIDGARD_SQL_QUERY_COLUMN_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_SQL_QUERY_COLUMN, MidgardSqlQueryColumnClass)) #define MIDGARD_IS_SQL_QUERY_COLUMN(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_SQL_QUERY_COLUMN)) #define MIDGARD_IS_SQL_QUERY_COLUMN_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_SQL_QUERY_COLUMN)) #define MIDGARD_SQL_QUERY_COLUMN_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_SQL_QUERY_COLUMN, MidgardSqlQueryColumnClass)) typedef struct _MidgardSqlQueryColumn MidgardSqlQueryColumn; typedef struct _MidgardSqlQueryColumnClass MidgardSqlQueryColumnClass; struct _MidgardSqlQueryColumnClass{ GObjectClass parent; }; struct _MidgardSqlQueryColumn{ GObject parent; gchar *name; gchar *qualifier; MidgardQueryProperty *query_property; }; GType midgard_sql_query_column_get_type (void); MidgardSqlQueryColumn* midgard_sql_query_column_new (MidgardQueryProperty *query_property, const gchar *qualifier, const gchar *name); G_END_DECLS #endif /* MIDGARD_SQL_QUERY_COLUMN_H */ midgard2-core-10.05.7.1/src/sql/midgard_sql_query_result.c0000664000175000017500000003013311772046240020233 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "midgard_sql_query_result.h" #include "../midgard_query_row.h" #include "../midgard_query_column.h" #include "../midgard_query_result.h" #include "../midgard_validable.h" #include "../midgard_query_selector.h" /** * midgard_sql_query_result_new: * @selector: #MidgardQuerySelector instance * @model: a GObject which represents data model * * This constructor should be used by #MidgardQuerySelector implementation * * Returns: new #MidgardSqlQueryResult * * Since: 10.05.6 */ MidgardSqlQueryResult * midgard_sql_query_result_new (MidgardQuerySelector *selector, GObject *model) { g_return_val_if_fail (model != NULL, NULL); MidgardSqlQueryResult *self = g_object_new (MIDGARD_TYPE_SQL_QUERY_RESULT, "selector", selector, "model", model, NULL); return self; } /* This is workaround function to set columns. * With GDA API, we can not introspect table column using GdaDataModel and GdaColumn */ void midgard_sql_query_result_set_columns (MidgardSqlQueryResult *self, MidgardSqlQueryColumn **columns, guint n_columns, GError **error) { g_return_if_fail (self != NULL); g_return_if_fail (columns != NULL); g_return_if_fail (n_columns != 0); if (self->columns != NULL) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_INTERNAL, "QueryResult holds columns already"); return; } self->columns = g_new (MidgardSqlQueryColumn*, n_columns); self->n_columns = n_columns; guint i; for (i = 0; i < n_columns; i++) { if (columns[i] != NULL) self->columns[i] = g_object_ref (columns[i]); else self->columns[i] = NULL; } return; } void _propagate_columns (MidgardSqlQueryResult *self, guint *n_objects, GError **error) { /* No model, no columns. Return NULL and set error */ if (self->model == NULL || self->n_columns == 0) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_INTERNAL, "QueryResult holds empty data model"); return; } guint i = 0; if (self->columns != NULL) { *n_objects = self->n_columns; return; } g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_INTERNAL, "Columns should be propagated with temporary midgard_sql_query_result_set_columns()"); return; GdaDataModel *model = GDA_DATA_MODEL (self->model); self->n_columns = gda_data_model_get_n_columns (model); *n_objects = self->n_columns; if (self->n_columns == 0) return; self->columns = g_new (MidgardSqlQueryColumn*, self->n_columns); for (i = 0; i < self->n_columns; i++) { MidgardQueryProperty *query_property = midgard_query_property_new (gda_data_model_get_column_title (model, i), NULL); self->columns[i] = midgard_sql_query_column_new (query_property, "FIXME", gda_data_model_get_column_name (model, i)); } return; } GObject ** _midgard_sql_query_result_get_objects (MidgardQueryResult *self, guint *n_objects, GError **error) { /* TODO */ return NULL; } MidgardQueryColumn ** _midgard_sql_query_result_get_columns (MidgardQueryResult *result, guint *n_objects, GError **error) { MidgardSqlQueryResult *self = MIDGARD_SQL_QUERY_RESULT (result); GError *err = NULL; _propagate_columns (self, n_objects, &err); *n_objects = self->n_columns; if (self->columns == NULL) { if (err) g_propagate_error (error, err); return NULL; } /* Create new columns array, add new reference to returned columns, caller should free array and unref objects */ guint i; MidgardQueryColumn **columns = g_new (MidgardQueryColumn *, self->n_columns); for (i = 0; i < self->n_columns; i++) { columns[i] = (MidgardQueryColumn *) g_object_ref (self->columns[i]); } return columns; } void _propagate_rows (MidgardSqlQueryResult *self, guint *n_objects, GError **error) { /* No model, no rows. Return NULL and set error */ if (self->model == NULL || self->n_rows == 0) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_INTERNAL, "QueryResult holds empty data model"); return; } /* We have rows, so add new reference to each and return all of them */ guint i = 0; if (self->rows != NULL) { *n_objects = self->n_rows; for (i = 0; i < self->n_rows; i++) g_object_ref(self->rows[i]); return; } GdaDataModel *model = GDA_DATA_MODEL (self->model); self->n_rows = gda_data_model_get_n_rows (model); if (self->n_rows == 0) return ; self->rows = g_new (MidgardSqlQueryRow*, self->n_rows); for (i = 0; i < self->n_rows; i++) { MidgardConnection *mgd = midgard_query_selector_get_connection (self->selector); self->rows[i] = midgard_sql_query_row_new (mgd, G_OBJECT (model), i); /* Row constructor holds new reference on connection, therefore decrease current one */ g_object_unref (mgd); } *n_objects = self->n_rows; } MidgardQueryRow ** _midgard_sql_query_result_get_rows (MidgardQueryResult *result, guint *n_objects, GError **error) { MidgardSqlQueryResult *self = MIDGARD_SQL_QUERY_RESULT (result); GError *err = NULL; _propagate_rows (self, n_objects, &err); *n_objects = self->n_rows; if (self->rows == NULL) { if (err) g_propagate_error (error, err); return NULL; } /* Create new rows array, add new reference to returned rows, caller should free array and unref objects */ guint i; MidgardSqlQueryRow **rows = g_new (MidgardSqlQueryRow *, self->n_rows); for (i = 0; i < self->n_rows; i++) { rows[i] = (MidgardSqlQueryRow *) g_object_ref (self->rows[i]); } return (MidgardQueryRow **) rows; } gchar ** _midgard_sql_query_result_get_column_names (MidgardQueryResult *result, guint *n_names, GError **error) { MidgardSqlQueryResult *self = MIDGARD_SQL_QUERY_RESULT (result); /* No model, no columns. Return NULL and set error */ if (self->model == NULL || self->n_columns == 0) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_INTERNAL, "QueryResult holds empty data model"); return NULL; } *n_names = 0; if (self->n_columns == 0) return NULL; GdaDataModel *model = GDA_DATA_MODEL (self->model); *n_names = gda_data_model_get_n_columns (model); gchar **names = g_new (gchar *, *n_names + 1); guint i; for (i = 0; i < *n_names; i++) { names[i] = (gchar *) gda_data_model_get_column_name (model, i); } return names; } /* GOBJECT ROUTINES */ static GObjectClass *__parent_class= NULL; enum { PROPERTY_MODEL = 1, PROPERTY_SELECTOR }; static void _midgard_sql_query_result_iface_init (MidgardQueryResultIFace *iface) { iface->get_objects = _midgard_sql_query_result_get_objects; iface->get_columns = _midgard_sql_query_result_get_columns; iface->get_rows = _midgard_sql_query_result_get_rows; iface->get_column_names = _midgard_sql_query_result_get_column_names; return; } static void _midgard_sql_query_result_iface_finalize (MidgardQueryResultIFace *iface) { return; } static void _midgard_sql_query_result_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardSqlQueryResult *self = (MidgardSqlQueryResult*) instance; self->selector = NULL; self->model = NULL; self->columns = NULL; self->rows = NULL; self->n_columns = 0; self->n_rows = 0; return; } static GObject * _midgard_sql_query_result_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (__parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_sql_query_result_dispose (GObject *object) { MidgardSqlQueryResult *self = MIDGARD_SQL_QUERY_RESULT (object); if (self->model) g_object_unref (self->model); self->model = NULL; if (self->selector) g_object_unref (self->selector); self->selector = NULL; guint i; if (self->columns != NULL) { for (i = 0; i < self->n_columns; i++) g_object_unref (self->columns[i]); } self->columns = NULL; if (self->rows != NULL) { for (i = 0; i < self->n_rows; i++) g_object_unref (self->rows[i]); } self->rows = NULL; self->n_columns = 0; self->n_rows = 0; __parent_class->dispose (object); } static void _midgard_sql_query_result_finalize (GObject *object) { __parent_class->finalize (object); } static void _midgard_sql_query_result_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardSqlQueryResult *self = MIDGARD_SQL_QUERY_RESULT (object); switch (property_id) { case PROPERTY_MODEL: self->model = g_value_dup_object (value); self->n_columns = gda_data_model_get_n_columns (GDA_DATA_MODEL (self->model)); self->n_rows = gda_data_model_get_n_rows (GDA_DATA_MODEL (self->model)); break; case PROPERTY_SELECTOR: self->selector = g_value_dup_object (value); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_sql_query_result_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardSqlQueryResult *self = (MidgardSqlQueryResult *) object; switch (property_id) { case PROPERTY_MODEL: case PROPERTY_SELECTOR: /* Write only */ break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_sql_query_result_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardSqlQueryResultClass *klass = MIDGARD_SQL_QUERY_RESULT_CLASS (g_class); __parent_class = g_type_class_peek_parent (g_class); gobject_class->constructor = _midgard_sql_query_result_constructor; gobject_class->dispose = _midgard_sql_query_result_dispose; gobject_class->finalize = _midgard_sql_query_result_finalize; gobject_class->set_property = _midgard_sql_query_result_set_property; gobject_class->get_property = _midgard_sql_query_result_get_property; /* PROPERTIES */ GParamSpec *pspec; const gchar *property_name; /* model */ property_name = "model"; pspec = g_param_spec_object (property_name, "Data model's row", "Holds a reference to data model", GDA_TYPE_DATA_MODEL, G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); g_object_class_install_property (gobject_class, PROPERTY_MODEL, pspec); /* selector */ property_name = "selector"; pspec = g_param_spec_object (property_name, "QuerySelector", "SQL query select executor", MIDGARD_TYPE_QUERY_SELECTOR, G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); g_object_class_install_property (gobject_class, PROPERTY_SELECTOR, pspec); } GType midgard_sql_query_result_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardSqlQueryResultClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_sql_query_result_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardSqlQueryResult), 0, /* n_preallocs */ _midgard_sql_query_result_instance_init /* instance_init */ }; static const GInterfaceInfo iface_info = { (GInterfaceInitFunc) _midgard_sql_query_result_iface_init, (GInterfaceFinalizeFunc) _midgard_sql_query_result_iface_finalize, NULL /* interface_data */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardSqlQueryResult", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_QUERY_RESULT, &iface_info); } return type; } midgard2-core-10.05.7.1/src/sql/midgard_sql_query_result.h0000664000175000017500000000472511772046240020250 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_SQL_QUERY_RESULT_H #define MIDGARD_SQL_QUERY_RESULT_H #include #include "midgard_sql_query_row.h" #include "midgard_sql_query_column.h" #include "../midgard_query_selector.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_SQL_QUERY_RESULT (midgard_sql_query_result_get_type()) #define MIDGARD_SQL_QUERY_RESULT(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_SQL_QUERY_RESULT, MidgardSqlQueryResult)) #define MIDGARD_SQL_QUERY_RESULT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_SQL_QUERY_RESULT, MidgardSqlQueryResultClass)) #define MIDGARD_IS_SQL_QUERY_RESULT(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_SQL_QUERY_RESULT)) #define MIDGARD_IS_SQL_QUERY_RESULT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_SQL_QUERY_RESULT)) #define MIDGARD_SQL_QUERY_RESULT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_SQL_QUERY_RESULT, MidgardSqlQueryResultClass)) typedef struct _MidgardSqlQueryResult MidgardSqlQueryResult; typedef struct _MidgardSqlQueryResultClass MidgardSqlQueryResultClass; struct _MidgardSqlQueryResultClass{ GObjectClass parent; }; struct _MidgardSqlQueryResult{ GObject parent; MidgardQuerySelector *selector; GObject *model; MidgardSqlQueryRow** rows; guint n_rows; MidgardSqlQueryColumn **columns; guint n_columns; }; GType midgard_sql_query_result_get_type (void); MidgardSqlQueryResult* midgard_sql_query_result_new (MidgardQuerySelector *selector, GObject *model); void midgard_sql_query_result_set_columns (MidgardSqlQueryResult *self, MidgardSqlQueryColumn **columns, guint n_columns, GError **error); G_END_DECLS #endif /* MIDGARD_SQL_QUERY_RESULT_H */ midgard2-core-10.05.7.1/src/sql/midgard_sql_query_row.h0000664000175000017500000000412011772046240017526 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_SQL_QUERY_ROW_H #define MIDGARD_SQL_QUERY_ROW_H #include #include "../midgard_connection.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_SQL_QUERY_ROW (midgard_sql_query_row_get_type()) #define MIDGARD_SQL_QUERY_ROW(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_SQL_QUERY_ROW, MidgardSqlQueryRow)) #define MIDGARD_SQL_QUERY_ROW_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_SQL_QUERY_ROW, MidgardSqlQueryRowClass)) #define MIDGARD_IS_SQL_QUERY_ROW(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_SQL_QUERY_ROW)) #define MIDGARD_IS_SQL_QUERY_ROW_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_SQL_QUERY_ROW)) #define MIDGARD_SQL_QUERY_ROW_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_SQL_QUERY_ROW, MidgardSqlQueryRowClass)) typedef struct _MidgardSqlQueryRow MidgardSqlQueryRow; typedef struct _MidgardSqlQueryRowClass MidgardSqlQueryRowClass; struct _MidgardSqlQueryRowClass{ GObjectClass parent; }; struct _MidgardSqlQueryRow{ GObject parent; MidgardConnection *mgd; GObject *model; guint row; }; GType midgard_sql_query_row_get_type (void); MidgardSqlQueryRow* midgard_sql_query_row_new (MidgardConnection *mgd, GObject *model, guint row); G_END_DECLS #endif /* MIDGARD_SQL_QUERY_ROW_H */ midgard2-core-10.05.7.1/src/sql/midgard_sql_query_select_data.c0000664000175000017500000011132511772046240021170 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "../midgard_query_selector.h" #include "midgard_sql_query_select_data.h" #include "midgard_core_query.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" #include "midgard_query_holder.h" #include "midgard_dbobject.h" #include "midgard_validable.h" #include "midgard_executable.h" #include #include "midgard_core_workspace.h" #include "midgard_workspace_storage.h" #include "midgard_core_config.h" #include "../midgard_query_result.h" #include "midgard_sql_query_result.h" #include "midgard_sql_query_constraint.h" #include "../midgard_query_constraint_group.h" /** * midgard_sql_query_select_data_new: * @mgd: #MidgardConnection instance * * Returns: new #MidgardSqlQuerySelectData instance or %NULL on failure * Since: 10.05.6 */ MidgardSqlQuerySelectData * midgard_sql_query_select_data_new (MidgardConnection *mgd) { g_return_val_if_fail (mgd != NULL, NULL); MidgardSqlQuerySelectData *self = g_object_new (MIDGARD_TYPE_SQL_QUERY_SELECT_DATA, "connection", mgd, NULL); return self; } /** * midgard_sql_query_select_data_add_column: * @self: #MidgardSqlQuerySelectData instance * @column: #MidgardSqlQueryColumn to add * * Adds a new column, which will be available in #MidgardSqlQueryResult * * Since: 10.05.6 */ void midgard_sql_query_select_data_add_column (MidgardSqlQuerySelectData *self, MidgardSqlQueryColumn *column) { g_return_if_fail (self != NULL); g_return_if_fail (column != NULL); self->columns = g_slist_append (self->columns, g_object_ref (column)); } /** * midgard_sql_query_select_data_get_columns: * @self: #MidgardSqlQuerySelectData instance * @n_objects: pointer to store number of returned columns * @error: pointer to store returned error * * Returns all collumns added to given instance. * * Returns: (element-type MidgardSqlQueryColumn) (array length=n_objects) (transfer full): array of #MidgardSqlQueryColumn objects or %NULL * * Since: 10.05.6 */ MidgardSqlQueryColumn** midgard_sql_query_select_data_get_columns (MidgardSqlQuerySelectData *self, guint *n_objects, GError **error) { g_return_val_if_fail (self != NULL, NULL); *n_objects = 0; if (self->columns == NULL) return NULL; guint n = g_slist_length (self->columns); if (n == 0) return NULL; MidgardSqlQueryColumn **columns = g_new (MidgardSqlQueryColumn*, n); GSList *l; guint i = 0; for (l = self->columns; l != NULL; l = l->next, i++) { columns[i] = g_object_ref (G_OBJECT (l->data)); } *n_objects = n; return columns; } gboolean _midgard_sql_query_select_data_set_constraint (MidgardQueryExecutor *self, MidgardQueryConstraintSimple *constraint) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (constraint != NULL, FALSE); if (self->priv->constraint) g_object_unref (self->priv->constraint); self->priv->constraint = g_object_ref (constraint); return TRUE; } gboolean _midgard_sql_query_select_data_set_limit (MidgardQueryExecutor *self, guint limit) { g_return_val_if_fail (self != NULL, FALSE); self->priv->limit = limit; return TRUE; } gboolean _midgard_sql_query_select_data_set_offset (MidgardQueryExecutor *self, guint offset) { g_return_val_if_fail (self != NULL, FALSE); self->priv->offset = offset; return TRUE; } typedef struct { MidgardQueryProperty *property; gboolean asc; gchar *order_type; } qso; gboolean _midgard_sql_query_select_data_add_order (MidgardQueryExecutor *self, MidgardQueryHolder *holder, const gchar *type) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (holder != NULL, FALSE); qso *_qs = g_new (qso, 1); _qs->order_type = g_strdup (type); _qs->asc = FALSE; _qs->property = g_object_ref (holder); self->priv->orders = g_slist_append (self->priv->orders, _qs); return FALSE; } static struct { const gchar *name; GdaSqlSelectJoinType type; } valid_joins[] = { { "cross", GDA_SQL_SELECT_JOIN_CROSS }, { "natural", GDA_SQL_SELECT_JOIN_NATURAL }, { "inner", GDA_SQL_SELECT_JOIN_INNER }, { "left", GDA_SQL_SELECT_JOIN_LEFT }, { "right", GDA_SQL_SELECT_JOIN_RIGHT }, { "full", GDA_SQL_SELECT_JOIN_FULL }, { NULL,0 } }; static gboolean __query_join_type_is_valid(const gchar *type, GdaSqlSelectJoinType *join_type) { guint i; gchar *ltype = g_ascii_strdown (type, -1); for (i = 0; valid_joins[i].name != NULL; i++) { if (g_str_equal(ltype, valid_joins[i].name)) { *join_type = valid_joins[i].type; g_free (ltype); return TRUE; } } g_free (ltype); if (valid_joins[i].name == NULL) { g_warning("Invalid join type %s", type); return FALSE; } return TRUE; } typedef struct { MidgardQueryProperty *left_property; MidgardQueryProperty *right_property; GdaSqlSelectJoinType join_type; } qsj; gboolean _midgard_sql_query_select_data_add_join (MidgardQueryExecutor *self, const gchar *join_type, MidgardQueryHolder *left_holder, MidgardQueryHolder *right_holder) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (join_type != NULL, FALSE); g_return_val_if_fail (left_holder != NULL, FALSE); g_return_val_if_fail (right_holder != NULL, FALSE); /* validate join type */ GdaSqlSelectJoinType join_type_id; if (!__query_join_type_is_valid (join_type, &join_type_id)) return FALSE; qsj *_sj = g_new (qsj, 1); _sj->left_property = g_object_ref (left_holder); _sj->right_property = g_object_ref (right_holder); _sj->join_type = join_type_id; self->priv->joins = g_slist_append (self->priv->joins, _sj); return TRUE; } gboolean __query_select_data_add_orders (MidgardQueryExecutor *self, GError **error) { if (!self->priv->orders) return TRUE; GSList *l = NULL; MidgardQueryExecutor *executor = MIDGARD_QUERY_EXECUTOR (self); GdaSqlStatement *sql_stm = executor->priv->stmt; GdaSqlStatementSelect *select = (GdaSqlStatementSelect *) sql_stm->contents; GdaSqlSelectOrder *order; for (l = MIDGARD_QUERY_EXECUTOR (self)->priv->orders; l != NULL; l = l->next) { /* Proper asc type is set during validation phase */ qso *_so = (qso*) l->data; /* Create new order */ order = gda_sql_select_order_new (GDA_SQL_ANY_PART (select)); order->asc = _so->asc; MidgardQueryHolder *holder = MIDGARD_QUERY_HOLDER (_so->property); GValue *rval = g_new0 (GValue, 1); midgard_query_holder_get_value (holder, rval); /* Set order's expression and add new one to statement orders list */ GdaSqlExpr *expr = gda_sql_expr_new (GDA_SQL_ANY_PART (order)); expr->value = rval; order->expr = expr; select->order_by = g_slist_append (select->order_by, order); } return TRUE; } #define __BOOL_VALUE(__bool)(__bool ? "0" : "FALSE") static void __add_implicit_workspace_join (MidgardSqlQuerySelectData *self, GdaSqlOperation *operation) { g_return_if_fail (self != NULL); MidgardDBObjectClass *klass = MIDGARD_QUERY_EXECUTOR (self)->priv->storage->priv->klass; if (!g_type_is_a (G_OBJECT_CLASS_TYPE (klass), MIDGARD_TYPE_OBJECT)) return; MidgardConnection *mgd = MIDGARD_QUERY_EXECUTOR (self)->priv->mgd; /* Do not take worskpace into account if if it's disabled * or enabled and none set */ if (!MGD_CNC_USES_WORKSPACE (mgd)) return; if (!MGD_CNC_HAS_WORKSPACE (mgd)) return; gboolean bool_is_int = MIDGARD_QUERY_EXECUTOR (self)->priv->bool_is_int; guint ws_id = MGD_CNC_WORKSPACE_ID (mgd); MidgardQueryExecutor *executor = MIDGARD_QUERY_EXECUTOR (self); GdaSqlStatement *sql_stm = executor->priv->stmt; GdaSqlStatementSelect *select = (GdaSqlStatementSelect *) sql_stm->contents; GdaSqlSelectFrom *from = select->from; GdaSqlSelectJoin *join; const gchar *klass_table = MGD_DBCLASS_TABLENAME (klass); gchar *left_table = executor->priv->table_alias; //gchar *right_table = g_strdup_printf ("t%d", ++executor->priv->tableid); gchar *right_table = g_strdup ("midgard_ws_tmp_table"); join = gda_sql_select_join_new (GDA_SQL_ANY_PART (from)); join->type = GDA_SQL_SELECT_JOIN_INNER; GdaSqlExpr *expr = gda_sql_expr_new (GDA_SQL_ANY_PART (join)); expr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (expr->value, g_strdup_printf ("%s.%s = %s.%s", left_table, MGD_WORKSPACE_ID_FIELD, right_table, MGD_WORKSPACE_ID_FIELD)); join->expr = expr; join->position = ++executor->priv->joinid; MidgardConfig *config = mgd->priv->config; const gchar *sql_part_bool_func_start = ""; const gchar *sql_part_bool_func_end = ""; const gchar *deleted_field = midgard_core_object_get_deleted_field (klass); GString *table = g_string_new ("(SELECT DISTINCT MAX"); if (config->priv->dbtype == MIDGARD_DB_TYPE_POSTGRES && deleted_field) { sql_part_bool_func_start = " bool_or("; sql_part_bool_func_end = ") AS metadata_deleted"; } g_string_append_printf (table, "(%s) AS %s, %s %s%s%s%s FROM %s WHERE %s IN (0,", MGD_WORKSPACE_ID_FIELD, MGD_WORKSPACE_ID_FIELD, MGD_WORKSPACE_OID_FIELD, deleted_field ? "," : "", sql_part_bool_func_start, deleted_field ? deleted_field : "", sql_part_bool_func_end, klass_table, MGD_WORKSPACE_ID_FIELD); const MidgardWorkspaceStorage *ws = midgard_connection_get_workspace (mgd); GSList *list = MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE (ws)->priv->list_ids (mgd, MIDGARD_WORKSPACE_STORAGE (ws)); GSList *l = NULL; guint i = 0; guint id; for (l = list; l != NULL; l = l->next, i++) { GValue *id_val = (GValue *) l->data; if (G_VALUE_HOLDS_UINT (id_val)) id = g_value_get_uint (id_val); else id = (guint) g_value_get_int (id_val); g_string_append_printf (table, "%s%d", i > 0 ? "," : "", id); } if (!list) g_string_append (table, "0"); g_string_append (table, ") "); if (deleted_field) g_string_append_printf (table, "AND %s = %s ", deleted_field, __BOOL_VALUE (bool_is_int)); g_string_append_printf (table, "GROUP BY %s)", MGD_WORKSPACE_OID_FIELD); g_slist_free (list); gda_sql_select_from_take_new_join (from , join); GdaSqlSelectTarget *s_target = gda_sql_select_target_new (GDA_SQL_ANY_PART (from)); s_target->table_name = g_string_free (table, FALSE); s_target->as = right_table; gda_sql_select_from_take_new_target (from, s_target); GdaSqlExpr *texpr = gda_sql_expr_new (GDA_SQL_ANY_PART (s_target)); GValue *tval = g_new0 (GValue, 1); g_value_init (tval, G_TYPE_STRING); g_value_set_string (tval, g_strdup (s_target->table_name)); texpr->value = tval; s_target->expr = texpr; /* Add workspace object id constraint */ GdaSqlExpr *ws_expr = gda_sql_expr_new (GDA_SQL_ANY_PART (operation)); ws_expr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (ws_expr->value, g_strdup_printf ("%s.%s = %s.%s", left_table, MGD_WORKSPACE_OID_FIELD, right_table, MGD_WORKSPACE_OID_FIELD)); operation->operands = g_slist_append (operation->operands, ws_expr); } gboolean __query_select_data_add_joins (MidgardSqlQuerySelectData *self, GdaSqlOperation *operation, GError **error) { //__add_implicit_workspace_join (self, operation); if (!MIDGARD_QUERY_EXECUTOR (self)->priv->joins) return TRUE; GSList *l = NULL; MidgardQueryExecutor *executor = MIDGARD_QUERY_EXECUTOR (self); GdaSqlStatement *sql_stm = executor->priv->stmt; GdaSqlStatementSelect *select = (GdaSqlStatementSelect *) sql_stm->contents; GdaSqlSelectFrom *from = select->from; GdaSqlSelectJoin *join; for (l = MIDGARD_QUERY_EXECUTOR (self)->priv->joins; l != NULL; l = l->next) { qsj *_sj = (qsj*) l->data; join = gda_sql_select_join_new (GDA_SQL_ANY_PART (from)); join->type = _sj->join_type; MidgardQueryStorage *left_storage = _sj->left_property->priv->storage; MidgardQueryStorage *right_storage = _sj->right_property->priv->storage; /* GError *err = NULL; GValue lval = {0, }; midgard_query_holder_get_value (MIDGARD_QUERY_HOLDER (_sj->left_property), &lval); gchar *left_table_field = midgard_core_query_compute_constraint_property (executor, left_storage, g_value_get_string (&lval), &err); if (err) { g_propagate_error (error, err); g_free (left_table_field); } GValue rval = {0, }; midgard_query_holder_get_value (MIDGARD_QUERY_HOLDER (_sj->right_property), &rval); gchar *right_table_field = midgard_core_query_compute_constraint_property (executor, right_storage, g_value_get_string (&rval), &err); if (err) { g_propagate_error (error, err); g_free (right_table_field); }*/ GValue lval = {0, }; midgard_query_holder_get_value (MIDGARD_QUERY_HOLDER (_sj->left_property), &lval); GValue rval = {0, }; midgard_query_holder_get_value (MIDGARD_QUERY_HOLDER (_sj->right_property), &rval); /* Set qualifier as default table and alias */ const gchar *qualifier= NULL; qualifier = midgard_query_column_get_qualifier (MIDGARD_QUERY_COLUMN (_sj->right_property), NULL); MidgardQueryProperty *qproperty = midgard_query_column_get_query_property (MIDGARD_QUERY_COLUMN (_sj->right_property), NULL); gchar *table_name = (gchar *) qualifier; /* Set real storage table name if defined */ if (qproperty) { MidgardQueryStorage *right_storage = NULL; g_object_get (qproperty, "storage", &right_storage, NULL); if (right_storage) { MidgardDBObjectClass *dbklass = g_type_class_peek (g_type_from_name (right_storage->priv->classname)); table_name = (gchar *) midgard_core_class_get_table (dbklass); g_object_unref (right_storage); } } GdaSqlExpr *expr = gda_sql_expr_new (GDA_SQL_ANY_PART (join)); expr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (expr->value, g_strdup_printf ("%s = %s", g_value_get_string (&lval), g_value_get_string (&rval))); g_value_unset (&lval); g_value_unset (&rval); join->expr = expr; /* Add right qualifier to targets */ gda_sql_select_from_take_new_join (from , join); GdaSqlSelectTarget *s_target = gda_sql_select_target_new (GDA_SQL_ANY_PART (from)); s_target->table_name = g_strdup (table_name); s_target->as = g_strdup (qualifier); GSList *l = NULL; guint i = 0; gboolean duplicate = FALSE; for (l = from->targets; l != NULL; l = l->next, i++) { if (g_str_equal(((GdaSqlSelectTarget*)(l->data))->as, qualifier)) { duplicate = TRUE; break; } } if (duplicate) { join->position = i; } else { gda_sql_select_from_take_new_target (from, s_target); join->position = g_slist_length(from->targets)-1; /* Set target expression, cause we set new target */ GdaSqlExpr *texpr = gda_sql_expr_new (GDA_SQL_ANY_PART (s_target)); GValue *tval = g_new0 (GValue, 1); g_value_init (tval, G_TYPE_STRING); g_value_set_string (tval, table_name); texpr->value = tval; s_target->expr = texpr; } } return TRUE; } static void __add_dummy_constraint (GdaSqlStatementSelect *select, GdaSqlOperation *top_operation) { GdaSqlExpr *dexpr = gda_sql_expr_new (GDA_SQL_ANY_PART (top_operation)); dexpr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (dexpr->value, g_strdup ("1=1")); top_operation->operands = g_slist_append (top_operation->operands, dexpr); return; } static void __add_second_dummy_constraint (GdaSqlStatementSelect *select, GdaSqlOperation *top_operation) { GdaSqlExpr *dexpr = gda_sql_expr_new (GDA_SQL_ANY_PART (top_operation)); dexpr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (dexpr->value, g_strdup ("0<1")); top_operation->operands = g_slist_append (top_operation->operands, dexpr); return; } static void _get_all_constraints (MidgardSqlQuerySelectData *self, MidgardQueryConstraintSimple *constr, GSList **list) { if (!constr) if (self && MIDGARD_QUERY_EXECUTOR (self)->priv->constraint) constr = MIDGARD_QUERY_EXECUTOR (self)->priv->constraint; if (!constr) return; *list = g_slist_prepend (*list, constr); guint n_objects; MidgardQueryConstraintSimple **constraints = midgard_query_constraint_simple_list_constraints (constr, &n_objects); if (!constraints) return; guint i; for (i = 0; i < n_objects; i++) { _get_all_constraints (NULL, constraints[i], list); } g_free (constraints); } #define __FREE() \ g_object_unref (storage); \ g_object_unref (columns[i]); \ free (columns); static void _midgard_sql_query_select_data_validable_iface_validate (MidgardValidable *iface, GError **error) { g_return_if_fail (iface != NULL); MidgardSqlQuerySelectData *self = MIDGARD_SQL_QUERY_SELECT_DATA (iface); MIDGARD_QUERY_EXECUTOR (self)->priv->is_valid = FALSE; GError *err = NULL; guint n_objects; guint i; MidgardSqlQueryColumn **columns = midgard_sql_query_select_data_get_columns (self, &n_objects, NULL); /* No single column added to selector */ if (!columns) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_LOCATION_INVALID, "No single column added to selector"); return; } for (i = 0; i < n_objects; i++) { MidgardQueryProperty *qprop = midgard_query_column_get_query_property (MIDGARD_QUERY_COLUMN(columns[i]), NULL); MidgardQueryStorage *storage = NULL; g_object_get (G_OBJECT (qprop), "storage", &storage, NULL); g_object_unref (qprop); /* No storage */ if (!storage) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_LOCATION_INVALID, "No QueryStorage associated with QuerySelectData"); __FREE(); return; } /* No GObject derived class */ GObjectClass *klass = (GObjectClass *) storage->priv->klass; if (klass == NULL || (!G_IS_OBJECT_CLASS(klass))) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_TYPE_INVALID, "Invalid '%s' classname associated with QueryStorage", storage->priv->classname); __FREE(); return; } const gchar *table = midgard_core_class_get_table (MIDGARD_DBOBJECT_CLASS (klass)); /* No class table */ if (!table) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_LOCATION_INVALID, "No SQL table defined for '%s' class", G_OBJECT_CLASS_NAME (klass)); __FREE(); return; } g_object_unref (columns[i]); } g_free (columns); /* COMMON WITH QUERYEXECUTOR */ /* TODO: Consider executor->validate() */ /* Limit */ if (MIDGARD_QUERY_EXECUTOR (self)->priv->limit == 0) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_VALUE_INVALID, "Invalid limit value (0). Expected > 0"); return; } /* Orders */ GSList *l = NULL; for (l = MIDGARD_QUERY_EXECUTOR (self)->priv->orders; l != NULL; l = l->next) { qso *_so = (qso*) l->data; gboolean asc = FALSE; gchar *lorder = g_ascii_strdown (_so->order_type, -1); if (g_str_equal (lorder, "asc")) { _so->asc = TRUE; } else if (g_str_equal (lorder, "desc")) { _so->asc = FALSE; } else { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_VALUE_INVALID, "Invalid order type '%s'. Expected ASC or DESC", _so->order_type); g_free (lorder); return; } g_free (lorder); } /* Gather all objects required for execution */ GSList *o_list = NULL; //o_list = g_slist_prepend (o_list, storage); _get_all_constraints (self, NULL, &o_list); for (l = o_list; l != NULL; l = l->next) { if (MIDGARD_IS_SQL_QUERY_CONSTRAINT (l->data) || MIDGARD_IS_QUERY_CONSTRAINT_GROUP (l->data)) { midgard_validable_validate (MIDGARD_VALIDABLE (l->data), &err); if (err) { g_propagate_error (error, err); g_slist_free (o_list); return; } } else { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_TYPE_INVALID, "Invalid constraint type '%s'. Expected SqlQueryConstraint or SqlQueryConstraintGroup", G_OBJECT_TYPE_NAME (G_OBJECT (l->data))); g_slist_free (o_list); return; } } if (o_list) g_slist_free (o_list); MIDGARD_QUERY_EXECUTOR (self)->priv->is_valid = TRUE; return; } gboolean _midgard_sql_query_select_data_validable_iface_is_valid (MidgardValidable *self) { g_return_val_if_fail (self != NULL, FALSE); return MIDGARD_QUERY_EXECUTOR (self)->priv->is_valid; } static void _midgard_sql_query_select_data_executable_iface_execute (MidgardExecutable *iface, GError **error) { g_return_if_fail (iface != NULL); MidgardSqlQuerySelectData *self = MIDGARD_SQL_QUERY_SELECT_DATA (iface); MidgardQueryExecutor *executor = MIDGARD_QUERY_EXECUTOR (self); g_signal_emit (self, MIDGARD_QUERY_EXECUTOR_GET_CLASS (self)->signal_id_execution_start, 0); GError *err = NULL; midgard_validable_validate (MIDGARD_VALIDABLE (self), &err); if (err) { g_propagate_error (error, err); return; } g_object_ref (self); MidgardConnection *mgd = executor->priv->mgd; GdaConnection *cnc = mgd->priv->connection; GdaSqlStatement *sql_stm; GdaSqlStatementSelect *sss; sql_stm = gda_sql_statement_new (GDA_SQL_STATEMENT_SELECT); sss = (GdaSqlStatementSelect*) sql_stm->contents; g_assert (GDA_SQL_ANY_PART (sss)->type == GDA_SQL_ANY_STMT_SELECT); MIDGARD_QUERY_EXECUTOR (self)->priv->stmt = sql_stm; sss->from = gda_sql_select_from_new (GDA_SQL_ANY_PART (sss)); /* Initialize top base expresion and operation with default AND operator type */ GdaSqlExpr *base_where = gda_sql_expr_new (GDA_SQL_ANY_PART (sss)); GdaSqlOperation *base_operation = gda_sql_operation_new (GDA_SQL_ANY_PART (base_where)); base_operation->operator_type = GDA_SQL_OPERATOR_TYPE_AND; base_where->cond = base_operation; gda_sql_statement_select_take_where_cond (sql_stm, base_where); /* Create SELECT a.t, b.t... FROM ... */ GSList *table_list = NULL; guint n_objects; guint i; MidgardSqlQueryColumn **columns = midgard_sql_query_select_data_get_columns (self, &n_objects, NULL); for (i = 0; i < n_objects; i++) { MidgardQueryProperty *qprop = midgard_query_column_get_query_property (MIDGARD_QUERY_COLUMN(columns[i]), NULL); MidgardQueryStorage *storage = NULL; g_object_get (G_OBJECT (qprop), "storage", &storage, NULL); gchar *property; g_object_get (qprop, "property", &property, NULL); g_object_unref (qprop); MidgardDBObjectClass *dbklass = storage->priv->klass; const gchar *table_alias = midgard_query_column_get_qualifier (MIDGARD_QUERY_COLUMN(columns[i]), NULL); if (!table_alias || (table_alias && *table_alias == '\0')) { g_set_error (error, MIDGARD_EXECUTION_ERROR, MIDGARD_EXECUTION_ERROR_COMMAND_INVALID_DATA, "Expected non null qualifier for '%s'", midgard_query_column_get_name (MIDGARD_QUERY_COLUMN(columns[i]), NULL)); return; } const gchar *property_table = midgard_core_class_get_table (dbklass); const gchar *property_field = midgard_core_class_get_property_colname (dbklass, property); /* Create SELECT a.t, b.t... */ GdaSqlSelectField *select_field = gda_sql_select_field_new (GDA_SQL_ANY_PART (sss)); select_field->as = gda_connection_quote_sql_identifier (cnc, midgard_query_column_get_name (MIDGARD_QUERY_COLUMN(columns[i]), NULL)); sss->expr_list = g_slist_append (sss->expr_list, select_field); GdaSqlExpr *expr = gda_sql_expr_new (GDA_SQL_ANY_PART (select_field)); GValue *val = g_new0 (GValue, 1); g_value_init (val, G_TYPE_STRING); gchar *q_table = gda_connection_quote_sql_identifier (cnc, table_alias); gchar *q_field = gda_connection_quote_sql_identifier (cnc, property_field); g_value_take_string (val, g_strconcat (q_table, ".", q_field, NULL)); g_free (q_table); g_free (q_field); expr->value = val; select_field->expr = expr; g_free (property); g_object_unref (storage); if (table_list != NULL && g_slist_find_custom (table_list, property_table, (GCompareFunc) g_strcmp0) != NULL) continue; /* Create targets, FROM */ GdaSqlSelectTarget *s_target = gda_sql_select_target_new (GDA_SQL_ANY_PART (sss->from)); s_target->table_name = g_strdup (property_table); s_target->as = g_strdup (midgard_query_column_get_qualifier (MIDGARD_QUERY_COLUMN(columns[i]), NULL)); MIDGARD_QUERY_EXECUTOR (self)->priv->table_alias = g_strdup (s_target->as); gda_sql_select_from_take_new_target (sss->from, s_target); g_object_unref (columns[i]); /* Set target expression */ GdaSqlExpr *texpr = gda_sql_expr_new (GDA_SQL_ANY_PART (s_target)); GValue *tval = g_new0 (GValue, 1); g_value_init (tval, G_TYPE_STRING); g_value_set_string (tval, s_target->table_name); texpr->value = tval; s_target->expr = texpr; table_list = g_slist_append (table_list, (gpointer) property_table); } if (table_list) g_slist_free (table_list); GdaSqlExpr *where = sss->where_cond; GdaSqlOperation *operation = where->cond; /* Add joins, LEFT JOIN tbl2 ON... */ __query_select_data_add_joins (MIDGARD_SQL_QUERY_SELECT_DATA (self), operation, &err); if (err) { g_propagate_error (error, err); goto return_false; } /* Add constraints' conditions (WHERE a=1, b=2...) */ if (MIDGARD_QUERY_EXECUTOR (self)->priv->constraint) { MIDGARD_QUERY_CONSTRAINT_SIMPLE_GET_INTERFACE (MIDGARD_QUERY_EXECUTOR (self)->priv->constraint)->priv->add_conditions_to_statement (MIDGARD_QUERY_EXECUTOR (self), MIDGARD_QUERY_EXECUTOR (self)->priv->constraint, sql_stm, base_where, &err); if (err) { g_set_error(error, err->domain, err->code, "%s", err->message ? err->message : "Unknown error"); g_clear_error(&err); } if (MIDGARD_QUERY_EXECUTOR (self)->priv->n_constraints == 1) __add_second_dummy_constraint (sss, operation); /* Add dummy constraint if operation has only one operand */ if (operation->operands && (g_slist_length (operation->operands) == 1)) __add_dummy_constraint (sss, operation); } else { /* no constraints, add dummy '1=1 AND 0<1' to satisfy top constraint group */ __add_dummy_constraint (sss, operation); __add_second_dummy_constraint (sss, operation); } /* Add orders , ORDER BY t1.field... */ if (!__query_select_data_add_orders (executor, &err)) { if (err) g_propagate_error (error, err); goto return_false; } /* Add limit, LIMIT x */ if (executor->priv->limit > 0) { GdaSqlExpr *limit_expr = gda_sql_expr_new (GDA_SQL_ANY_PART (sss)); GValue *limit_val = g_new0 (GValue, 1); g_value_init (limit_val, G_TYPE_STRING); g_value_take_string (limit_val, g_strdup_printf ("%d", executor->priv->limit)); limit_expr->value = limit_val; sss->limit_count = limit_expr; } /* Add offset, OFFSET x */ if (executor->priv->offset >= 0) { GdaSqlExpr *offset_expr = gda_sql_expr_new (GDA_SQL_ANY_PART (sss)); GValue *offset_val = g_new0 (GValue, 1); g_value_init (offset_val, G_TYPE_STRING); g_value_take_string (offset_val, g_strdup_printf ("%d", executor->priv->offset)); offset_expr->value = offset_val; sss->limit_offset = offset_expr; } /* Check structure */ if (!gda_sql_statement_check_structure (sql_stm, &err)) { g_set_error (error, MIDGARD_EXECUTION_ERROR, MIDGARD_EXECUTION_ERROR_INTERNAL, "Can't build SELECT statement: %s)", err && err->message ? err->message : _("Unknown reason")); if (err) g_clear_error (&err); goto return_false; } /* Create statement */ GdaStatement *stmt = gda_statement_new (); g_object_set (G_OBJECT (stmt), "structure", sql_stm, NULL); gda_sql_statement_free (sql_stm); sql_stm = NULL; g_free (self->query_string); self->query_string = gda_connection_statement_to_sql (cnc, stmt, NULL, GDA_STATEMENT_SQL_PRETTY, NULL, NULL); if (MGD_CNC_DEBUG (mgd)) g_debug ("QuerySelectData: %s", self->query_string); //g_print ("CORE QUERY : %s \n", self->query_string); /* execute statement */ GdaDataModel *model = gda_connection_statement_execute_select (cnc, stmt, NULL, &err); g_object_unref (stmt); if (!model && !err) { g_set_error (error, MIDGARD_EXECUTION_ERROR, MIDGARD_EXECUTION_ERROR_INTERNAL, "Execute error - Unknown reason, underlying error is NULL"); goto return_false; } if (err) { g_set_error (error, MIDGARD_EXECUTION_ERROR, MIDGARD_EXECUTION_ERROR_INTERNAL, "Execute error - %s", err->message); g_error_free (err); goto return_false; } executor->priv->results_count = gda_data_model_get_n_rows (model); if (executor->priv->resultset && G_IS_OBJECT (executor->priv->resultset)) g_object_unref (G_OBJECT (executor->priv->resultset)); executor->priv->resultset = (gpointer) model; g_object_unref (self); g_signal_emit (self, MIDGARD_QUERY_EXECUTOR_GET_CLASS (self)->signal_id_execution_end, 0); return; return_false: if (sql_stm) gda_sql_statement_free (sql_stm); g_signal_emit (self, MIDGARD_QUERY_EXECUTOR_GET_CLASS (self)->signal_id_execution_end, 0); g_object_unref (self); return; } guint _midgard_sql_query_select_data_get_results_count (MidgardQueryExecutor *self) { g_return_val_if_fail (self != NULL, 0); return self->priv->results_count; } MidgardQueryResult * _midgard_sql_query_select_data_selector_get_query_result (MidgardQuerySelector *selector, GError **error) { g_return_val_if_fail (selector != NULL, NULL); MidgardQueryExecutor *executor = MIDGARD_QUERY_EXECUTOR (selector); MidgardSqlQueryResult *query_result = midgard_sql_query_result_new (selector, G_OBJECT (executor->priv->resultset)); /* Workaround to set columns */ guint n_objects; MidgardSqlQueryColumn **columns = midgard_sql_query_select_data_get_columns ((MidgardSqlQuerySelectData *)selector, &n_objects, NULL); if (columns != NULL) midgard_sql_query_result_set_columns (query_result, columns, n_objects, NULL); return (MidgardQueryResult *) query_result; } MidgardConnection * _midgard_sql_query_select_data_selector_get_connection (MidgardQuerySelector *self) { g_return_val_if_fail (self != NULL, NULL); /* Get connection marked as transfer full. Return new reference to a connection object */ return g_object_ref (MIDGARD_QUERY_EXECUTOR(self)->priv->mgd); } const gchar * _midgard_sql_query_select_data_selector_get_query_string (MidgardQuerySelector *selector) { MidgardSqlQuerySelectData *self = MIDGARD_SQL_QUERY_SELECT_DATA (selector); g_return_val_if_fail (selector != NULL, NULL); return self->query_string; } /* GOBJECT ROUTINES */ enum { PROPERTY_CONNECTION = 1, PROPERTY_STORAGE }; static GObjectClass *parent_class= NULL; static GObject * _midgard_sql_query_select_data_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_sql_query_select_data_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardSqlQuerySelectData *self = MIDGARD_SQL_QUERY_SELECT_DATA (instance); self->columns = NULL; self->query_string = NULL; } static void _midgard_sql_query_select_data_dispose (GObject *object) { parent_class->dispose (object); MidgardSqlQuerySelectData *self = MIDGARD_SQL_QUERY_SELECT_DATA (object); if (self->columns != NULL) { GSList *l = NULL; for (l = self->columns; l != NULL; l = l->next) { g_object_ref (G_OBJECT (l->data)); } } self->columns = NULL; } static void _midgard_sql_query_select_data_finalize (GObject *object) { MidgardSqlQuerySelectData *self = MIDGARD_SQL_QUERY_SELECT_DATA (object); g_free (self->query_string); /* DO NOT nullify resultset object, other objects might still hold * reference to it. */ if (MIDGARD_QUERY_EXECUTOR (self)->priv->resultset && G_IS_OBJECT (MIDGARD_QUERY_EXECUTOR (self)->priv->resultset)) g_object_unref (MIDGARD_QUERY_EXECUTOR (self)->priv->resultset); /* Drop the reference to QueryProperty object. Orders are freed in parent class */ GSList *l; for (l = MIDGARD_QUERY_EXECUTOR (self)->priv->orders; l != NULL; l = l->next) { qso *_so = (qso*) l->data; g_free (_so->order_type); g_object_unref (_so->property); } parent_class->finalize (object); } static void __midgard_sql_query_select_data_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardSqlQuerySelectData *self = (MidgardSqlQuerySelectData *) object; switch (property_id) { case PROPERTY_CONNECTION: /* write and constructor only */ break; case PROPERTY_STORAGE: g_value_set_object (value, g_object_ref (MIDGARD_QUERY_EXECUTOR (self)->priv->storage)); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void __midgard_sql_query_select_data_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardSqlQuerySelectData *self = (MidgardSqlQuerySelectData *) (object); GObject *mgd; GObject *storage; switch (property_id) { case PROPERTY_CONNECTION: if (!G_VALUE_HOLDS_OBJECT (value)) return; MIDGARD_QUERY_EXECUTOR (self)->priv->mgd = g_value_dup_object (value); /* In case of SQLite provider, use integer instead of boolean type, * which is not supported in SQLite */ MidgardConfig *config = MIDGARD_QUERY_EXECUTOR (self)->priv->mgd->priv->config; if (config->priv->dbtype == MIDGARD_DB_TYPE_SQLITE) MIDGARD_QUERY_EXECUTOR (self)->priv->bool_is_int = TRUE; break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_sql_query_select_data_class_init (MidgardSqlQuerySelectDataClass *klass, gpointer class_data) { GObjectClass *object_class = G_OBJECT_CLASS (klass); parent_class = g_type_class_peek_parent (klass); MidgardQueryExecutorClass *executor_class = MIDGARD_QUERY_EXECUTOR_CLASS (klass); object_class->constructor = _midgard_sql_query_select_data_constructor; object_class->dispose = _midgard_sql_query_select_data_dispose; object_class->finalize = _midgard_sql_query_select_data_finalize; executor_class->set_constraint = _midgard_sql_query_select_data_set_constraint; executor_class->set_limit = _midgard_sql_query_select_data_set_limit; executor_class->set_offset = _midgard_sql_query_select_data_set_offset; executor_class->add_order = _midgard_sql_query_select_data_add_order; executor_class->add_join = _midgard_sql_query_select_data_add_join; executor_class->get_results_count = _midgard_sql_query_select_data_get_results_count; object_class->set_property = __midgard_sql_query_select_data_set_property; object_class->get_property = __midgard_sql_query_select_data_get_property; /* Properties */ GParamSpec *pspec = g_param_spec_object ("connection", "", "", MIDGARD_TYPE_CONNECTION, G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); /** * MidgardSqlQuerySelectData:connection: * * Pointer to a connection, #MidgardSqlQuerySelectData has been initialized for * */ g_object_class_install_property (object_class, PROPERTY_CONNECTION, pspec); } /* Executable iface */ static void _midgard_sql_query_select_data_executable_iface_init (MidgardExecutableIFace *iface) { iface->execute = _midgard_sql_query_select_data_executable_iface_execute; } /* Validable iface */ static void _midgard_sql_query_select_data_validable_iface_init (MidgardValidableIFace *iface) { iface->is_valid = _midgard_sql_query_select_data_validable_iface_is_valid; iface->validate = _midgard_sql_query_select_data_validable_iface_validate; } /* Selector iface */ static void _midgard_sql_query_select_data_selector_iface_init (MidgardQuerySelectorIFace *iface) { iface->get_query_result = _midgard_sql_query_select_data_selector_get_query_result; iface->get_connection = _midgard_sql_query_select_data_selector_get_connection; iface->get_query_string = _midgard_sql_query_select_data_selector_get_query_string; } GType midgard_sql_query_select_data_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardSqlQuerySelectDataClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_sql_query_select_data_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardSqlQuerySelectData), 0, /* n_preallocs */ _midgard_sql_query_select_data_instance_init /* instance_init */ }; static const GInterfaceInfo executable_info = { (GInterfaceInitFunc) _midgard_sql_query_select_data_executable_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; static const GInterfaceInfo validable_info = { (GInterfaceInitFunc) _midgard_sql_query_select_data_validable_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; static const GInterfaceInfo selector_info = { (GInterfaceInitFunc) _midgard_sql_query_select_data_selector_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; type = g_type_register_static (MIDGARD_TYPE_QUERY_EXECUTOR, "MidgardSqlQuerySelectData", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_EXECUTABLE, &executable_info); g_type_add_interface_static (type, MIDGARD_TYPE_VALIDABLE, &validable_info); g_type_add_interface_static (type, MIDGARD_TYPE_QUERY_SELECTOR, &selector_info); } return type; } midgard2-core-10.05.7.1/src/sql/midgard_sql_query_constraint.h0000664000175000017500000000634011772046240021111 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_SQL_QUERY_CONSTRAINT_H #define MIDGARD_SQL_QUERY_CONSTRAINT_H #include #include "../midgard_query_holder.h" #include "../midgard_query_constraint_simple.h" #include "midgard_sql_query_column.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_SQL_QUERY_CONSTRAINT (midgard_sql_query_constraint_get_type()) #define MIDGARD_SQL_QUERY_CONSTRAINT(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_SQL_QUERY_CONSTRAINT, MidgardSqlQueryConstraint)) #define MIDGARD_SQL_QUERY_CONSTRAINT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_SQL_QUERY_CONSTRAINT_TYPE, MidgardSqlQueryConstraintClass)) #define MIDGARD_IS_SQL_QUERY_CONSTRAINT(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_SQL_QUERY_CONSTRAINT)) #define MIDGARD_IS_SQL_QUERY_CONSTRAINT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_SQL_QUERY_CONSTRAINT_TYPE)) #define MIDGARD_SQL_QUERY_CONSTRAINT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_SQL_QUERY_CONSTRAINT_TYPE, MidgardSqlQueryConstraintClass)) typedef struct _MidgardSqlQueryConstraint MidgardSqlQueryConstraint; typedef struct _MidgardSqlQueryConstraintPrivate MidgardSqlQueryConstraintPrivate; typedef struct _MidgardSqlQueryConstraintClass MidgardSqlQueryConstraintClass; struct _MidgardSqlQueryConstraint { GObject parent; /* < private > */ MidgardSqlQueryConstraintPrivate *priv; }; struct _MidgardSqlQueryConstraintClass { GObjectClass parent; MidgardQueryConstraintSimple **(*list_constraints) (MidgardSqlQueryConstraint *self, guint *n_objects); }; GType midgard_sql_query_constraint_get_type (void); MidgardSqlQueryConstraint* midgard_sql_query_constraint_new (MidgardSqlQueryColumn *column, const gchar *op, MidgardQueryHolder *holder); MidgardSqlQueryColumn* midgard_sql_query_constraint_get_column (MidgardSqlQueryConstraint *self); void midgard_sql_query_constraint_set_column (MidgardSqlQueryConstraint *self, MidgardSqlQueryColumn *column, GError **error); const gchar* midgard_sql_query_constraint_get_operator (MidgardSqlQueryConstraint *self); void midgard_sql_query_constraint_set_operator (MidgardSqlQueryConstraint *self, const gchar *op, GError **error); MidgardQueryHolder* midgard_sql_query_constraint_get_holder (MidgardSqlQueryConstraint *self); void midgard_sql_query_constraint_set_holder (MidgardSqlQueryConstraint *self, MidgardQueryHolder *holder, GError **error); G_END_DECLS #endif /* MIDGARD_SQL_QUERY_CONSTRAINT_H */ midgard2-core-10.05.7.1/src/sql/midgard_sql_query_select_data.h0000664000175000017500000000507511772046240021201 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_SQL_QUERY_SELECT_DATA_H #define MIDGARD_SQL_QUERY_SELECT_DATA_H #include "../midgard_connection.h" #include "../midgard_query_executor.h" #include "midgard_sql_query_column.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_SQL_QUERY_SELECT_DATA (midgard_sql_query_select_data_get_type()) #define MIDGARD_SQL_QUERY_SELECT_DATA(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_SQL_QUERY_SELECT_DATA, MidgardSqlQuerySelectData)) #define MIDGARD_SQL_QUERY_SELECT_DATA_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_SQL_QUERY_SELECT_DATA, MidgardSqlQuerySelectDataClass)) #define MIDGARD_IS_SQL_QUERY_SELECT_DATA(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_SQL_QUERY_SELECT_DATA)) #define MIDGARD_IS_SQL_QUERY_SELECT_DATA_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_SQL_QUERY_SELECT_DATA)) #define MIDGARD_SQL_QUERY_SELECT_DATA_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_SQL_QUERY_SELECT_DATA, MidgardSqlQuerySelectDataClass)) typedef struct _MidgardSqlQuerySelectData MidgardSqlQuerySelectData; typedef struct _MidgardSqlQuerySelectDataClass MidgardSqlQuerySelectDataClass; struct _MidgardSqlQuerySelectDataClass{ MidgardQueryExecutorClass parent; }; struct _MidgardSqlQuerySelectData{ MidgardQueryExecutor parent; GSList *columns; gchar *query_string; }; GType midgard_sql_query_select_data_get_type (void); MidgardSqlQuerySelectData* midgard_sql_query_select_data_new (MidgardConnection *mgd); void midgard_sql_query_select_data_add_column (MidgardSqlQuerySelectData *self, MidgardSqlQueryColumn *column); MidgardSqlQueryColumn** midgard_sql_query_select_data_get_columns (MidgardSqlQuerySelectData *self, guint *n_objects, GError **error); G_END_DECLS #endif /* MIDGARD_SQL_QUERY_SELECT_DATA_H */ midgard2-core-10.05.7.1/src/midgard_core_query.h0000664000175000017500000002116311772046240016177 00000000000000/* * Copyright (C) 2006 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MIDGARD_CORE_QUERY_H #define MIDGARD_CORE_QUERY_H #include "midgard_connection.h" #include "midgard_dbobject.h" #include #include "schema.h" #include "midgard_query_property.h" #include "midgard_query_storage.h" #include "midgard_query_constraint_simple.h" #include "midgard_query_executor.h" typedef struct _MidgardDBColumn MidgardDBColumn; typedef struct _MidgardDBJoin MidgardDBJoin; struct _MidgardDBColumn { const gchar *table_name; const gchar *column_name; const gchar *column_desc; const gchar *dbtype; GType gtype; gboolean index; gboolean unique; gboolean autoinc; gboolean primary; GValue *gvalue; const gchar *dvalue; }; struct _MidgardDBJoin { gchar *type; guint typeid; gchar *table; MidgardDBObjectClass *klass; gchar *left_table; gchar *left_field; MidgardDBObjectClass *left_klass; gchar *right_table; gchar *right_field; MidgardDBObjectClass *right_klass; gchar *left_tablefield; gchar *right_tablefield; /* pointers references */ MgdSchemaPropertyAttr *left; MgdSchemaPropertyAttr *right; }; struct MidgardCoreQueryOrder { MidgardQueryProperty *property; const gchar *type; }; struct _MidgardQueryStoragePrivate { MidgardDBObjectClass *klass; gchar *table_alias; const gchar *table; const gchar *classname; gboolean is_valid; }; struct _MidgardQueryPropertyPrivate { GValue value; MidgardDBObjectClass *klass; MidgardQueryStorage *storage; gboolean is_valid; }; struct _MidgardQueryExecutorPrivate { MidgardConnection *mgd; MidgardQueryStorage *storage; guint n_constraints; MidgardQueryConstraintSimple *constraint; GSList *orders; GSList *joins; gint limit; gint offset; gpointer resultset; guint tableid; gchar *table_alias; guint joinid; GdaSqlStatement *stmt; guint results_count; gboolean read_only; gboolean include_deleted; gboolean is_valid; gboolean bool_is_int; }; struct _MidgardQueryConstraintSimplePrivate { void (*add_conditions_to_statement) (MidgardQueryExecutor *executor, MidgardQueryConstraintSimple *self, GdaSqlStatement *stm, GdaSqlExpr *where_expr_node, GError **error); }; #define MQE_SET_TABLE_ALIAS(__executor, __storage) \ if (__executor->priv->storage == __storage) {\ g_free (__storage->priv->table_alias) ;\ __storage->priv->table_alias = g_strdup_printf ("t%d", executor->priv->tableid); \ } else { \ if (!__storage->priv->table_alias) \ __storage->priv->table_alias = g_strdup_printf ("t%d", ++executor->priv->tableid); \ } MidgardDBJoin *midgard_core_dbjoin_new (void); void midgard_core_dbjoin_free (MidgardDBJoin *mdbj); #warning remove data_model macros #define midgard_data_model_get_value_at(__model,__col,__row) \ gda_data_model_get_value_at((__model), (__col), (__row), NULL) #define midgard_data_model_get_value_at_col_name(__model,__col,__row) \ midgard_data_model_get_value_at (__model, gda_data_model_get_column_index (__model, __col), __row); #define MIDGARD_GET_UINT_FROM_VALUE(__prop, __value) \ if(G_VALUE_HOLDS_UINT(__value)) { \ __prop = \ g_value_get_uint(__value); \ } \ if(G_VALUE_HOLDS_INT(__value)) { \ __prop = \ (guint)g_value_get_int(__value); \ } \ if(G_VALUE_HOLDS_CHAR(__value)) { \ __prop = \ (guint)g_value_get_char(__value); \ } #define MIDGARD_GET_INT_FROM_VALUE(__prop, __value) \ if(G_VALUE_HOLDS_UINT(__value)) { \ __prop = \ (gint)g_value_get_uint(__value); \ } \ if(G_VALUE_HOLDS_INT(__value)) { \ __prop = \ g_value_get_int(__value); \ } \ if(G_VALUE_HOLDS_CHAR(__value)) { \ __prop = \ (gint)g_value_get_char(__value); \ } #define MIDGARD_GET_BOOLEAN_FROM_VALUE(__prop, __value) \ if (__value == NULL) { \ g_warning ("Invalid value (NULL). Converting to default FALSE boolean value"); \ __prop = FALSE; \ } else if(G_VALUE_HOLDS_BOOLEAN(__value)) { \ __prop = g_value_get_boolean(__value); \ } else if(G_VALUE_HOLDS_UINT(__value)) { \ guint __i = g_value_get_uint(__value); \ if(__i == 1) \ __prop = TRUE; \ else if(__i == 0) \ __prop = FALSE; \ else \ g_warning("Midgard failed to convert guint to gboolean"); \ } \ else if(G_VALUE_HOLDS_INT(__value)) { \ gint __i = g_value_get_int(__value); \ if(__i == 1) \ __prop = TRUE; \ else if(__i == 0) \ __prop = FALSE; \ else \ g_warning("Midgard failed to convert gint to gboolean"); \ } \ else if(G_VALUE_HOLDS_STRING(__value)) { \ gint __i = atoi(g_value_get_string(__value)); \ if(__i == 0) \ __prop = FALSE; \ else if (__i != 0) \ __prop = TRUE; \ else \ g_warning("Midgard failed to convert string to gboolean"); \ } \ else if(G_VALUE_HOLDS_CHAR(__value)) { \ gchar __i = g_value_get_char(__value); \ if(__i == 1) \ __prop = TRUE; \ else if(__i == 0) \ __prop = FALSE; \ else \ g_warning("Midgard failed to convert gchar to gboolean"); \ } \ else { \ g_warning("Can not convert %s to boolean", G_VALUE_TYPE_NAME(__value)); \ } MidgardDBColumn *midgard_core_dbcolumn_new(void); gchar *midgard_core_query_where_guid( const gchar *table, const gchar *guid); gint midgard_core_query_execute( MidgardConnection *mgd, const gchar *query, gboolean ignore_error); gint midgard_core_query_execute_statement( MidgardConnection *mgd, const gchar *query, gboolean ignore_error, gchar *holder_id, ...); GdaDataModel *midgard_core_query_get_model( MidgardConnection *mgd, const gchar *query); GValue *midgard_core_query_get_field_value( MidgardConnection *mgd, const gchar *field, const gchar *table, const gchar *where); gboolean midgard_core_query_get_object_value( MidgardDBObject *dbobject, const gchar *column, GValue *value); guint midgard_core_query_get_id( MidgardConnection *mgd, const gchar *table, const gchar *guid); guint* midgard_core_query_get_tree_ids( MidgardConnection *mgd, MidgardObjectClass *klass, guint tid); gint midgard_core_query_insert_records( MidgardConnection *mgd, const gchar *table, GList *cols, GList *values, guint query_type, const gchar *where); gboolean midgard_core_query_update_object_fields( MidgardDBObject *object, const gchar *propname, ...); gboolean midgard_core_query_create_table( MidgardConnection *mgd, const gchar *descr, const gchar *tablename, const gchar *primary); gboolean midgard_core_query_add_column( MidgardConnection *mgd, MidgardDBColumn *mdc); gboolean midgard_core_query_add_index( MidgardConnection *mgd, MidgardDBColumn *mdc); gboolean midgard_core_query_create_metadata_columns( MidgardConnection *mgd, const gchar *tablename); gboolean midgard_core_query_create_basic_db( MidgardConnection *mgd); gboolean midgard_core_query_create_class_storage( MidgardConnection *mgd, MidgardDBObjectClass *klass); gboolean midgard_core_query_update_class_storage( MidgardConnection *mgd, MidgardDBObjectClass *klass); gboolean midgard_core_table_exists( MidgardConnection *mgd, const gchar *tablename); GdaDataModel *midgard_core_query_get_dbobject_model (MidgardConnection *mgd, MidgardDBObjectClass *klass, guint n_params, const GParameter *parameters); gboolean midgard_core_query_create_dbobject_record (MidgardDBObject *object); gint midgard_core_query_update_dbobject_record (MidgardDBObject *object, GError **error); gchar *midgard_core_query_binary_stringify (GValue *src_value); gchar *midgard_core_query_compute_constraint_property (MidgardQueryExecutor *executor, MidgardQueryStorage *storage, const gchar *name, GError **error); gchar *midgard_core_query_unescape_string (MidgardConnection *mgd, const gchar *str); void midgard_core_query_get_object (MidgardConnection *mgd, const gchar *classname, MidgardDBObject **object, GError **error, const gchar *property, ...); MidgardDBObject **midgard_core_query_get_objects (MidgardConnection *mgd, const gchar *classname, GError **error, const gchar *property, ...); #endif /* MIDGARD_CORE_QUERY_H */ midgard2-core-10.05.7.1/src/midgard_blob.c0000664000175000017500000004151011772046240014731 00000000000000/* * Copyright (C) 2006, 2007, 2008, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_blob.h" #include "midgard_error.h" #include "midgard_config.h" #include "midgard_core_object.h" #include "uuid.h" #include /* Properties */ enum { MIDGARD_BLOB_PGUID = 1, MIDGARD_BLOB_CONTENT, MIDGARD_BLOB_ATTACHMENT, MIDGARD_BLOB_ENCODING }; /* Build attachment's full path. * Create new relative location for attachment if it's empty. * WARNING! Keep in mind that attachment's location might be changed * between midgard_blob method calls! */ static void __get_filepath(MidgardBlob *self) { if(self->priv->filepath) return; gchar *fname = NULL; gchar *location = NULL; gchar *up_a, *up_b; MidgardObject *attachment = self->priv->attachment; GParamSpec *pspec = g_object_class_find_property( G_OBJECT_GET_CLASS(G_OBJECT(attachment)), "location"); /* FIXME, we can not depend on just location property here. * This must be defined in mgdschema file. */ if(!pspec){ midgard_set_error(self->priv->mgd, MGD_GENERIC_ERROR, MGD_ERR_USER_DATA, "Invalid Object. " "Blobs can not be attached to %s", G_OBJECT_TYPE_NAME(G_OBJECT(attachment))); return; } g_object_get(G_OBJECT(self->priv->attachment), "location", &location, NULL); if(location == NULL || *location == '\0') { fname = midgard_uuid_new(); up_a = g_strdup(" "); up_a[0] = g_ascii_toupper(fname[0]); up_b = g_strdup(" "); up_b[0] = g_ascii_toupper(fname[1]); /* g_strdup is used to avoid filling every byte, which should be done with g_new(gchar, 2) */ location = g_build_path(G_DIR_SEPARATOR_S, up_a, up_b, fname, NULL); g_free(fname); g_free(up_a); g_free(up_b); g_object_set(G_OBJECT(self->priv->attachment), "location", location , NULL); } self->priv->location = location; self->priv->filepath = g_build_path(G_DIR_SEPARATOR_S, self->priv->blobdir, self->priv->location, NULL); } /* Create private channel */ static void __get_channel(MidgardBlob *self, const gchar *mode, GError **error) { if(self->priv->channel) return; GError *err = NULL; GIOChannel *channel = self->priv->channel; gchar *filepath = self->priv->filepath; /* Avoid warning being thrown from gio */ switch (mode[0]) { case 'r': case 'w': case 'a': /* Do nothing, it's OK */ break; default: g_set_error (error, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Invalid mode '%s'", mode); midgard_set_error(self->priv->mgd, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Invalid mode '%s'", mode); return; } if(channel == NULL) channel = g_io_channel_new_file(filepath, mode ? mode : "w", &err); /* Keep "binary" mode. It's useless on *nix but needed for WIN32 */ if(!channel){ midgard_set_error(self->priv->mgd, MGD_GENERIC_ERROR, MGD_ERR_USER_DATA, " %s ", err && err->message ? err->message : "Unknown reason"); if (err) g_propagate_error(error, err); return; } g_clear_error(&err); GIOStatus status = g_io_channel_set_encoding(channel, (const gchar *)self->priv->encoding, &err); if(status != G_IO_STATUS_NORMAL) { midgard_set_error(self->priv->mgd, MGD_GENERIC_ERROR, MGD_ERR_USER_DATA, " %s ", err->message); g_propagate_error(error, err); g_io_channel_shutdown(channel, TRUE, NULL); return; } self->priv->channel = channel; } /** * midgard_blob_new: * @attachment: #MidgardObject of MIDGARD_TYPE_ATTACHMENT type. * @encoding: (allow-none): file encoding * * Default encoding is UTF-8. Set NULL @encoding if such is required. * * Instatiate new Midgard Blob object for the given midgard_attachment object. * * This constructor defines new relative path for attachment, if midgard_attachment * is associated with midgard_blob and its location is empty. * In any other case, location is not changed. * * Returns: newly instatiated #MidgardBlob object or %NULL on failure */ MidgardBlob *midgard_blob_new (MidgardObject *attachment, const gchar *encoding) { g_return_val_if_fail (attachment != NULL, NULL); MidgardBlob *self = g_object_new (MIDGARD_TYPE_BLOB, "attachment", attachment, "encoding", encoding ? encoding : "UTF-8", NULL); return self; } /** * midgard_blob_create_blob: * @attachment: #MidgardObject of MIDGARD_TYPE_ATTACHMENT type. * @encoding: (allow-none): file encoding * * Invokes midgard_blob_new() and it's designed for language bindings, in whic, * that function can not be invoked explicitly. * * Returns: (transfer full): new #MidgardBlob instance * Since: 10.05.1 */ MidgardBlob* midgard_blob_create_blob (MidgardObject *attachment, const gchar *encoding) { return midgard_blob_new (attachment, encoding); } /** * midgard_blob_read_content: * @self: MidgardBlob self instance * @bytes_read: (out): number of bytes read * * Returned content should be freed when no longer needed. * @bytes_read holds size of returned content. * * This function should be used to get content of small files. * For large and huge ones midgard_blob_get_handler should be used * to get file handle. * * Returns: content of the file, or %NULL on failure */ gchar *midgard_blob_read_content(MidgardBlob *self, gsize *bytes_read) { g_assert(self != NULL); MidgardConnection *mgd = self->priv->mgd; MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); *bytes_read = 0; __get_filepath(self); if(!self->priv->filepath) { midgard_set_error(mgd, MGD_GENERIC_ERROR, MGD_ERR_USER_DATA, "Invalid attachment. " "Can not read file from empty location"); return NULL; } gchar *content = NULL; GError *err = NULL; if (!g_file_get_contents(self->priv->filepath, &content, bytes_read, &err)) { midgard_set_error(self->priv->mgd, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, " %s ", err&& err->message ? err->message : "Unknown reason"); if (err) g_clear_error(&err); return NULL; } return content; } /** * midgard_blob_write_content: * @self: #MidgardBlob self instance. * @content: content which should be written to file. * * Write given @content to a file. * * Returns: %TRUE if content has been written to file, %FALSE otherwise. */ gboolean midgard_blob_write_content(MidgardBlob *self, const gchar *content) { g_assert(self != NULL); g_assert(content != NULL); MidgardConnection *mgd = self->priv->mgd; MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); __get_filepath(self); if(!self->priv->filepath) { midgard_set_error(self->priv->mgd, MGD_GENERIC_ERROR, MGD_ERR_USER_DATA, "Invalid attachment. " "Can not read file from empty location"); return FALSE; } GError *err = NULL; if (!g_file_set_contents(self->priv->filepath, content, -1, &err)) { midgard_set_error(self->priv->mgd, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, " %s ", err && err->message ? err->message : "Unknown reason"); if (err) g_clear_error(&err); return FALSE; } return TRUE; } /** * midgard_blob_get_handler: * @self: #MidgardBlob instance * @mode: fopen mode (r, w, a, b). Default is 'w'. * @error: (allow-none): a pointer to store error * * The main idea is to get file handler. On C level it returns * GIOChannel, but language bindings could return typical file handler * or anything else which is needed for particular language. * * Returned channel is owned by midgard_blob and should not be freed * or unreferenced. * * Returns: (transfer none): GIOChannel or %NULL */ GIOChannel *midgard_blob_get_handler(MidgardBlob *self, const gchar *mode, GError **error) { g_assert(self != NULL); MidgardConnection *mgd = self->priv->mgd; MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); GError *err = NULL; __get_channel(self, mode, &err); if (err) { g_propagate_error (error, err); return NULL; } if(!self->priv->channel) return NULL; return self->priv->channel; } /** * midgard_blob_get_path: * @self: #MidgardBlob instance * * Returned path is owned by midgard_blob and should not be freed. * It basically contains blobdir and relative file's location. * * Returns: absolute path or %NULL if path is not set yet. */ const gchar *midgard_blob_get_path(MidgardBlob *self) { g_assert(self != NULL); MidgardConnection *mgd = self->priv->mgd; MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); __get_filepath(self); if(!self->priv->filepath) return NULL; return self->priv->filepath; } /** * midgard_blob_exists: * @self: #MidgardBlob instance * * Check if file associated with midgard_blob exists. * This function will also return FALSE, if file is not yet associated. * * Returns: %TRUE if file exists, %FALSE otherwise */ gboolean midgard_blob_exists(MidgardBlob *self) { g_assert(self != NULL); MidgardConnection *mgd = self->priv->mgd; MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); __get_filepath(self); if(!self->priv->filepath) return FALSE; if(g_file_test(self->priv->filepath, G_FILE_TEST_IS_DIR)){ midgard_set_error(self->priv->mgd, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, " '%s' is a directory ", self->priv->filepath); return FALSE; } return g_file_test(self->priv->filepath, G_FILE_TEST_IS_REGULAR); } /** * midgard_blob_remove_file: * @self: #MidgardBlob self instance. * * Deletes a file which is associated with blob and located at * attachment's location which is initialized for blob. * #midgard_blob_exists should be invoked if file may be already * deleted, for example when one file is shared among many attachments. * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_blob_remove_file(MidgardBlob *self, GError **error) { g_assert(self != NULL); MidgardConnection *mgd = self->priv->mgd; MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); __get_filepath(self); if(!self->priv->filepath) { MIDGARD_ERRNO_SET(self->priv->mgd, MGD_ERR_INTERNAL); g_set_error (error, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Can not delete '%s'. No file location", self->priv->filepath); return FALSE; } if(!midgard_blob_exists(self)) { MIDGARD_ERRNO_SET(self->priv->mgd, MGD_ERR_INTERNAL); g_set_error (error, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Can not delete '%s'. File doesn't exists", self->priv->filepath); return FALSE; } guint deleted = g_remove(self->priv->filepath); if(deleted == 0) return TRUE; g_set_error (error, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Can not delete '%s'. Unknown reason", self->priv->filepath); MIDGARD_ERRNO_SET(self->priv->mgd, MGD_ERR_INTERNAL); return FALSE; } /* GOBJECT ROUTINES */ static GObjectClass *parent_class= NULL; static GObject * _midgard_blob_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); MidgardBlob *self = MIDGARD_BLOB(object); if (self->priv->attachment) self->priv->mgd = MGD_OBJECT_CNC (self->priv->attachment); if (self->priv->mgd == NULL) { g_critical("MidgardConnection not found for given attachment"); return NULL; } const gchar *blobdir = self->priv->mgd->priv->config->blobdir; if (!g_file_test(blobdir,G_FILE_TEST_EXISTS)) { midgard_set_error(self->priv->mgd, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, " Blobs directory doesn't exist. %s", blobdir); return NULL; } if(!g_file_test(blobdir,G_FILE_TEST_IS_DIR)) { g_warning("Defined blobs directory is not directory"); return NULL; } self->priv->blobdir = g_strdup(blobdir); self->priv->channel = NULL; __get_filepath(self); if(self->priv->filepath == NULL) { g_critical("File path not found"); return NULL; } return G_OBJECT(self); } static void _midgard_blob_instance_init( GTypeInstance *instance, gpointer g_class) { MidgardBlob *self = (MidgardBlob *) instance; self->priv = g_new(MidgardBlobPrivate, 1); self->priv->attachment = NULL; self->priv->location = NULL; self->priv->blobdir = NULL; self->priv->filepath = NULL; self->priv->channel = NULL; self->priv->encoding = NULL; self->priv->content = NULL; self->priv->parentguid = NULL; } static void _midgard_blob_finalize(GObject *object) { g_assert(object); MidgardBlob *self = (MidgardBlob *) object; g_free(self->priv->blobdir); self->priv->blobdir = NULL; g_free(self->priv->location); self->priv->location = NULL; g_free(self->priv->filepath); self->priv->filepath = NULL; if(self->priv->channel) g_io_channel_unref(self->priv->channel); g_free((gchar *) self->priv->parentguid); self->priv->parentguid = NULL; g_free(self->priv->content); self->priv->content = NULL; g_free(self->priv->encoding); self->priv->encoding = NULL; if (self->priv->attachment) { g_object_unref(self->priv->attachment); self->priv->attachment = NULL; } g_free(self->priv); } static void _midgard_blob_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardBlob *self = (MidgardBlob *) object; switch (property_id) { case MIDGARD_BLOB_PGUID: g_value_set_string(value, self->priv->parentguid); break; case MIDGARD_BLOB_CONTENT: g_value_set_string(value, self->priv->content); break; case MIDGARD_BLOB_ENCODING: g_value_set_string(value, self->priv->encoding); break; case MIDGARD_BLOB_ATTACHMENT: g_value_set_object(value, g_object_ref(self->priv->attachment)); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID(object,property_id,pspec); break; } } static void _midgard_blob_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardBlob *self = (MidgardBlob *) object; switch (property_id) { case MIDGARD_BLOB_PGUID: g_free((gchar *)self->priv->parentguid); self->priv->parentguid = g_value_dup_string(value); break; case MIDGARD_BLOB_CONTENT: g_free(self->priv->content); self->priv->content = g_value_dup_string(value); break; case MIDGARD_BLOB_ENCODING: g_free(self->priv->encoding); self->priv->encoding = g_value_dup_string(value); break; case MIDGARD_BLOB_ATTACHMENT: g_free(self->priv->attachment); self->priv->attachment = g_value_dup_object(value); self->priv->mgd = MGD_OBJECT_CNC(self->priv->attachment); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID(object,property_id,pspec); break; } } static void _midgard_blob_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardBlobClass *klass = MIDGARD_BLOB_CLASS (g_class); parent_class = g_type_class_peek_parent (klass); gobject_class->constructor = _midgard_blob_constructor; gobject_class->finalize = _midgard_blob_finalize; gobject_class->set_property = _midgard_blob_set_property; gobject_class->get_property = _midgard_blob_get_property; klass->read_content = midgard_blob_read_content; klass->write_content = midgard_blob_write_content; klass->get_path = midgard_blob_get_path; klass->exists = midgard_blob_exists; klass->get_handler = midgard_blob_get_handler; GParamSpec *pspec; pspec = g_param_spec_string ("parentguid", "", "", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_BLOB_PGUID, pspec); pspec = g_param_spec_string ("content", "", "", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_BLOB_CONTENT, pspec); pspec = g_param_spec_string ("encoding", "", "", "", G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY); g_object_class_install_property (gobject_class, MIDGARD_BLOB_ENCODING, pspec); pspec = g_param_spec_object ("attachment", "MidgardObject midgard_attachment", "", MIDGARD_TYPE_OBJECT, G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY); g_object_class_install_property (gobject_class, MIDGARD_BLOB_ATTACHMENT, pspec); } /* Returns Midgard Blob Gtype value. */ GType midgard_blob_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardBlobClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_blob_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardBlob), 0, /* n_preallocs */ (GInstanceInitFunc) _midgard_blob_instance_init /* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardBlob", &info, 0); } return type; } midgard2-core-10.05.7.1/src/midgard_workspace_manager.c0000664000175000017500000003417011772046240017507 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_workspace_manager.h" #include "midgard_core_workspace.h" #include "midgard_workspace_storage.h" #include "midgard_workspace.h" #include "midgard_core_object.h" #include "midgard_error.h" #include "midgard_core_object_class.h" #include "midgard_core_query.h" /* This is not nice. Can be done as iface's private virtual method. */ #define __SET_MANAGER(__obj, __mngr) \ if (MIDGARD_IS_WORKSPACE (__obj)) MIDGARD_WORKSPACE (__obj)->priv->manager = g_object_ref((GObject*)__mngr); \ if (MIDGARD_IS_WORKSPACE_CONTEXT (__obj)) MIDGARD_WORKSPACE_CONTEXT (__obj)->priv->manager = g_object_ref((GObject*)__mngr); /** * midgard_workspace_manager_new: * @mgd: #MidgardConnection instance * * Returns: new #MidgardWorkspaceManager object * * Since: 10.05.5 */ MidgardWorkspaceManager * midgard_workspace_manager_new (MidgardConnection *mgd) { g_return_val_if_fail (mgd != NULL, NULL); MidgardWorkspaceManager *self = g_object_new (MIDGARD_TYPE_WORKSPACE_MANAGER, "connection", mgd, NULL); return self; } /** * midgard_workspace_manager_create_workspace: * @self: #MidgardWorkspaceManager instance * @ws: #MidgardWorkspaceStorage instance to create * @path: path at which workspace object should be created * @error: (error-domains MIDGARD_WORKSPACE_STORAGE_ERROR): pointer to store error * * Create given #MidgardWorkspaceStorage instance in underlying storage. * If given #MidgardWorkspaceStorage is #MidgardWorkspaceContext, then it's created * at given path and context's path is set. * If it's #MidgardWorkspace, it's created at given path with its name, which also creates * new context. (e.g. if the path is '/Organization/Branch' and workspace name is 'Private', * then its accessible with '/Organization/Branch/Private' path.) * * Cases to return %FALSE: * * * * Invalid path given ( MIDGARD_WORKSPACE_STORAGE_ERROR_INVALID_PATH ) * * * Workspace at path already exists ( MIDGARD_WORKSPACE_STORAGE_ERROR_NAME_EXISTS ) * * * Workspace at path already exists ( MIDGARD_WORKSPACE_STORAGE_ERROR_PATH_EXISTS ) * * * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05.5 */ gboolean midgard_workspace_manager_create_workspace (const MidgardWorkspaceManager *self, MidgardWorkspaceStorage *ws, const gchar *path, GError **error) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (ws != NULL, FALSE); gboolean rv = MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE (ws)->priv->create (self, ws, path, error); if (rv) { __SET_MANAGER (ws, self); midgard_core_workspace_list_all (self->priv->mgd, FALSE); /* TODO, emit signal */ } return rv; } /** * midgard_workspace_manager_update_workspace: * @self: #MidgardWorkspaceManager instance * @ws: #MidgardWorkspaceStorage instance * @error: (error-domains MIDGARD_WORKSPACE_STORAGE_ERROR): pointer to store error * * Update #MidgardWorkspaceStorage instance in underlying storage. * A valid path should be set for given @ws workspace object, and @ws should be fetched from database. * * Cases to return %FALSE: * * * * Invalid path given ( MIDGARD_WORKSPACE_STORAGE_ERROR_INVALID_PATH ) * * * Workspace at path already exists ( MIDGARD_WORKSPACE_STORAGE_ERROR_PATH_EXISTS ) * * * Given workspace object doesn't exist in storage ( MIDGARD_WORKSPACE_STORAGE_ERROR_OBJECT_NOT_EXISTS ) * * * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05.5 */ gboolean midgard_workspace_manager_update_workspace (const MidgardWorkspaceManager *self, MidgardWorkspaceStorage *ws, GError **error) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (ws != NULL, FALSE); gboolean rv = MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE (ws)->priv->update (self, ws, error); /* TODO, * midgard_core_workspace_list_all (mgd); * if (rv) emit signal */ return rv; } /** * midgard_workspace_manager_purge_workspace: * @self: #MidgardWorkspaceManager instance * @ws: #MidgardWorkspaceStorage instance * @error: (error-domains MIDGARD_WORKSPACE_STORAGE_ERROR): pointer to store error * * Purge #MidgardWorkspaceStorage instance from underlying storage. * Given @ws workspace object should be fetched from database. * * Cases to return %FALSE: * * * * Given workspace object doesn't exist in storage ( MIDGARD_WORKSPACE_STORAGE_ERROR_OBJECT_NOT_EXISTS ) * * * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05.5 */ gboolean midgard_workspace_manager_purge_workspace (const MidgardWorkspaceManager *self, MidgardWorkspaceStorage *ws, GError **error) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (ws != NULL, FALSE); gboolean rv = MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE (ws)->priv->purge (self, ws, error); /* TODO, * midgard_core_workspace_list_all (mgd); * if (rv) emit signal */ return rv; } /** * midgard_workspace_manager_path_exists: * @self: #MidgardWorkspaceManager instance * @path: A path to check * * Check if given @path exists. * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05.5 */ gboolean midgard_workspace_manager_path_exists (const MidgardWorkspaceManager *self, const gchar *path) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (path != NULL, FALSE); gint path_id = midgard_core_workspace_get_id_by_path (self->priv->mgd, path, NULL, NULL); if (path_id > 0) return TRUE; return FALSE; } /** * midgard_workspace_manager_get_workspace_by_path: * @self: #MidgardWorkspaceManager instance * @ws: #MidgardWorkspaceStorage instance * @path: workspace path * @error: (error-domains MIDGARD_WORKSPACE_STORAGE_ERROR): pointer to store error * * Get given workspace by given path. * * Cases to return %FALSE: * * * * Invalid path given ( MIDGARD_WORKSPACE_STORAGE_ERROR_INVALID_PATH ) * * * Given workspace object doesn't exist in storage ( MIDGARD_WORKSPACE_STORAGE_ERROR_OBJECT_NOT_EXISTS ) * * * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05.5 */ gboolean midgard_workspace_manager_get_workspace_by_path (const MidgardWorkspaceManager *self, MidgardWorkspaceStorage *ws, const gchar *path, GError **error) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (ws != NULL, FALSE); gboolean rv = MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE (ws)->priv->get_by_path (self, ws, path, error); if (rv) { __SET_MANAGER (ws, self); } return rv; } /** * midgard_workspace_manager_purge_content: * @self: #MidgardWorkspaceManager instance * @type: the type name * @ws: #MidgardWorkspace instance * * From given @ws workspace, removes entire content of given @type name. * There's no undelete available for this operation. * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05.5 */ gboolean midgard_workspace_manager_purge_content (const MidgardWorkspaceManager *self, const gchar *type, MidgardWorkspace *ws, GError **error) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (type != NULL, FALSE); g_return_val_if_fail (ws != NULL, FALSE); MidgardDBObjectClass *dbklass = g_type_class_peek (g_type_from_name (type)); if (!dbklass) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INVALID_NAME, "'%s' is not registered in GType system", type); return FALSE; } const gchar *table = midgard_core_class_get_table (dbklass); if (!table) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_OBJECT_NO_STORAGE, "No table defined for '%s'", type); return FALSE; } GString *query = g_string_new ("DELETE FROM "); g_string_append_printf (query, "%s WHERE midgard_ws_id = %d", table, ws->priv->id); gint rv = midgard_core_query_execute (self->priv->mgd, query->str, FALSE); g_string_free (query, TRUE); if (rv == 0) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INTERNAL, " "); return FALSE; } return TRUE; } /** * midgard_workspace_manager_move_content: * @self: #MidgardWorkspaceManager instance * @type: the type name * @src: source #MidgardWorkspace * @dest: destination #MidgardWorkspace * * Moves the content of given #type name from @src, source #MidgardWorkspace to * @dest, destination one. * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05.5 */ gboolean midgard_workspace_manager_move_content (const MidgardWorkspaceManager *self, const gchar *type, MidgardWorkspace *src, MidgardWorkspace *dest, GError **error) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (type != NULL, FALSE); g_return_val_if_fail (src != NULL, FALSE); g_return_val_if_fail (dest != NULL, FALSE); MidgardDBObjectClass *dbklass = g_type_class_peek (g_type_from_name (type)); if (!dbklass) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INVALID_NAME, "'%s' is not registered in GType system", type); return FALSE; } const gchar *table = midgard_core_class_get_table (dbklass); if (!table) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_OBJECT_NO_STORAGE, "No table defined for '%s'", type); return FALSE; } GString *query = g_string_new ("UPDATE "); g_string_append_printf (query, "%s SET midgard_ws_id = %d WHERE midgard_ws_id = %d", table, dest->priv->id, src->priv->id); gint rv = midgard_core_query_execute (self->priv->mgd, query->str, FALSE); g_string_free (query, TRUE); if (rv == 0) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INTERNAL, " "); return FALSE; } return TRUE; } /* GOBJECT ROUTINES */ static GObjectClass *parent_class = NULL; enum { PROPERTY_CONNECTION = 1 }; static void _midgard_workspace_manager_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardWorkspaceManager *self = MIDGARD_WORKSPACE_MANAGER (instance); self->priv = g_new (MidgardWorkspaceManagerPrivate, 1); self->priv->mgd = NULL; } static GObject * _midgard_workspace_manager_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_workspace_manager_dispose (GObject *object) { MidgardWorkspaceManager *self = (MidgardWorkspaceManager *)object; if (self->priv->mgd) g_object_ref (self->priv->mgd); self->priv->mgd = NULL; parent_class->dispose(object); } static void _midgard_workspace_manager_finalize (GObject *object) { MidgardWorkspaceManager *self = MIDGARD_WORKSPACE_MANAGER (object); g_free (self->priv); self->priv = NULL; parent_class->finalize (object); } static void _midgard_workspace_manager_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardWorkspaceManager *self = (MidgardWorkspaceManager *) object; switch (property_id) { case PROPERTY_CONNECTION: /* write and constructor only */ break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_workspace_manager_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardWorkspaceManager *self = (MidgardWorkspaceManager *) (object); GObject *mgd; switch (property_id) { case PROPERTY_CONNECTION: if (!G_VALUE_HOLDS_OBJECT (value)) return; self->priv->mgd = g_value_dup_object (value); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_workspace_manager_class_init (MidgardWorkspaceManagerClass *klass, gpointer class_data) { GObjectClass *object_class = G_OBJECT_CLASS (klass); parent_class = g_type_class_peek_parent (klass); object_class->constructor = _midgard_workspace_manager_constructor; object_class->dispose = _midgard_workspace_manager_dispose; object_class->finalize = _midgard_workspace_manager_finalize; object_class->set_property = _midgard_workspace_manager_set_property; object_class->get_property = _midgard_workspace_manager_get_property; /* Properties */ GParamSpec *pspec = g_param_spec_object ("connection", "MidgardConnection", "Pointer to a connection, WorkspaceManager has been initialized for", MIDGARD_TYPE_CONNECTION, G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); /** * MidgardWorkspaceManager:connection: * Pointer to a connection, #MidgardWorkspaceManager has been initialized for */ g_object_class_install_property (object_class, PROPERTY_CONNECTION, pspec); } GType midgard_workspace_manager_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardWorkspaceManagerClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc)_midgard_workspace_manager_class_init, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardWorkspaceManager), 0, /* n_preallocs */ _midgard_workspace_manager_instance_init /* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardWorkspaceManager", &info, 0); } return type; } midgard2-core-10.05.7.1/src/midgard_base_mixin.c0000664000175000017500000000301611772046240016130 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_base_mixin.h" #include "midgard_base_interface.h" static void __midgard_base_mixin_init (gpointer g_class) { } GType midgard_base_mixin_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardBaseMixinIFace), (GBaseInitFunc) __midgard_base_mixin_init, NULL, /* base_finalize */ NULL, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_INTERFACE, "MidgardBaseMixin", &info, 0); g_type_interface_add_prerequisite (type, G_TYPE_OBJECT); g_type_interface_add_prerequisite (type, MIDGARD_TYPE_BASE_INTERFACE); } return type; } midgard2-core-10.05.7.1/src/midgard_core_query_builder.h0000664000175000017500000000555011772046240017707 00000000000000/* * Copyright (C) 2006 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_CORE_QB_H #define MIDGARD_CORE_QB_H #include "midgard_object.h" #include "midgard_collector.h" #include "schema.h" #include "query_constraint.h" #include "query_order.h" #include "query_group_constraint.h" #include "group_constraint.h" struct _MidgardQueryBuilderPrivate { GSList *constraints; GSList *groups; gboolean is_grouping; guint grouping_ref; MidgardGroupConstraint *group_constraint; GSList *joins; GHashTable *tables; GSList *orders; GValue *value; /* constants */ MidgardConnection *mgd; MgdSchemaTypeAttr *schema; GType type; guint offset; guint limit; gboolean include_deleted; gboolean select_distinct; gint error; /* references for reserved joins */ gboolean param_join_exists; gboolean blob_join_exists; }; MidgardQueryBuilderPrivate *midgard_query_builder_private_new(void); void midgard_query_builder_private_free(MidgardQueryBuilderPrivate *mqbp); #define MQB_SELECT_OBJECT 0 #define MQB_SELECT_GUID 1 #define MQB_SELECT_FIELD 2 #define MQB_SELECT_COUNT 3 void midgard_core_qb_add_table (MidgardQueryBuilder *builder, const gchar *table); gchar *midgard_core_qb_get_sql (MidgardQueryBuilder *builder, guint mode, gchar *select); gchar *midgard_core_qb_get_sql_as (MidgardQueryBuilder *builder, const gchar *name); void midgard_core_qb_add_table (MidgardQueryBuilder *builder, const gchar *table); void midgard_core_qb_add_constraint (MidgardQueryBuilder *builder, MidgardCoreQueryConstraint *constraint); void midgard_core_qb_add_order (MidgardQueryBuilder *builder, MidgardQueryOrder *order); void midgard_core_qb_add_group (MidgardQueryBuilder *builder, MidgardCoreQueryGroupConstraint *group); void midgard_core_qb_add_group_constraint (MidgardQueryBuilder *builder, MidgardCoreQueryConstraint *constraint); gboolean midgard_core_qb_is_grouping (MidgardQueryBuilder *builder); GObject **midgard_core_qb_execute (MidgardQueryBuilder *builder, guint *n_objects); GSList *midgard_core_qb_set_object_from_query (MidgardQueryBuilder *builder, guint select_type, MidgardObject **object); #endif /* MIDGARD_CORE_QB_H */ midgard2-core-10.05.7.1/src/midgard_query_constraint_group.c0000664000175000017500000003506411772046240020647 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_constraint_group.h" #include "midgard_query_property.h" #include "midgard_query_storage.h" #include "midgard_query_holder.h" #include "midgard_query_constraint_simple.h" #include "midgard_dbobject.h" #include "midgard_core_query.h" #include "midgard_validable.h" struct _MidgardQueryConstraintGroupPrivate { gchar *type; GdaSqlOperatorType op_type; GSList *constraints; gboolean is_valid; }; static gint __get_operator_type (const gchar *type) { GdaSqlOperatorType op_type; /* Validate given type. We expect type to be NULL terminated. */ gchar *valid_type = g_ascii_strdown (type, -1); if (g_str_equal (valid_type, "and")) op_type = GDA_SQL_OPERATOR_TYPE_AND; else if (g_str_equal (valid_type, "or")) op_type = GDA_SQL_OPERATOR_TYPE_OR; else { g_free (valid_type); return -1; } g_free (valid_type); return op_type; } /** * midgard_query_constraint_group_new: * * Create new #MidgardQueryConstraintGroup instance with default "AND" group type. * * Returns: #MidgardQueryConstraintGroup instance or %NULL * * Since: 10.05.1 */ MidgardQueryConstraintGroup * midgard_query_constraint_group_new (void) { return g_object_new (MIDGARD_TYPE_QUERY_CONSTRAINT_GROUP, "grouptype", "AND", NULL); } /** * midgard_query_constraint_group_new_with_constraints: * @type: constraints group type * @constraints: an array of #MidgardQueryConstraintSimple constraints * @n_constraints: the length of given constraints array * * Returns: #MidgardQueryConstraintGroup instance or %NULL * * Since: 10.05.1 */ MidgardQueryConstraintGroup * midgard_query_constraint_group_new_with_constraints (const gchar *type, MidgardQueryConstraintSimple **constraints, guint n_constraints) { g_return_val_if_fail (type != NULL, NULL); g_return_val_if_fail (constraints != NULL, NULL); MidgardQueryConstraintGroup *self = midgard_query_constraint_group_new_valist (type, NULL); if (!self) return NULL; if (n_constraints == 0) return self; guint i; for (i = 0; i < n_constraints; i++) { midgard_query_constraint_group_add_constraint (self, constraints[i]); } return self; } /** * midgard_query_constraint_group_new_valist: * @type: constraints group type ('OR' or 'AND') * @constraint: list of constraints to add to group or NULL * * This is C convinient function. It's not designed for language bindings. * * Returns: #MidgardQueryConstraintGroup instance or %NULL * * Since: 10.05.1 */ MidgardQueryConstraintGroup * midgard_query_constraint_group_new_valist (const gchar *type, MidgardQueryConstraintSimple *constraint, ...) { g_return_val_if_fail (type != NULL, NULL); GdaSqlOperatorType op_type = __get_operator_type (type); if (op_type == -1) return NULL; MidgardQueryConstraintGroup *self = g_object_new (MIDGARD_TYPE_QUERY_CONSTRAINT_GROUP, NULL); self->priv->type = g_strdup (type); self->priv->op_type = op_type; MidgardQueryConstraintSimple *cnstr = constraint; va_list args; va_start (args, constraint); while (cnstr != NULL) { midgard_query_constraint_group_add_constraint (self, cnstr); cnstr = va_arg (args, MidgardQueryConstraintSimple*); } va_end (args); return self; } /** * midgard_query_constraint_group_get_group_type: * @self: #MidgardQueryConstraintGroup instance * * Returns: group type ('OR' or 'AND') * * Since: 10.05 */ const gchar * midgard_query_constraint_group_get_group_type (MidgardQueryConstraintGroup *self) { g_return_val_if_fail (self != NULL, NULL); return (const gchar *)self->priv->type; } /** * midgard_query_constraint_group_set_group_type: * @self: #MidgardQueryConstraintGroup instance * @type: group type to set ('OR' or 'AND') * * Returns: %TRUE if type is set, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_query_constraint_group_set_group_type (MidgardQueryConstraintGroup *self, const gchar *type) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (type != NULL, FALSE); GdaSqlOperatorType op_type = __get_operator_type (type); if (op_type == -1) return FALSE; g_free (self->priv->type); self->priv->type = g_strdup (type); self->priv->op_type = op_type; return TRUE; } /** * midgard_query_constraint_group_add_constraint: * @self: #MidgardQueryConstraintGroup instance * @constraint: #MidgardQueryConstraintSimple constraint to add to constraint group * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05 */ gboolean midgard_query_constraint_group_add_constraint (MidgardQueryConstraintGroup *self, MidgardQueryConstraintSimple *constraint) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (constraint != NULL, FALSE); g_return_val_if_fail (MIDGARD_IS_QUERY_CONSTRAINT_SIMPLE (constraint), FALSE); self->priv->constraints = g_slist_append (self->priv->constraints, g_object_ref (constraint)); return TRUE; } /** * midgard_query_constraint_group_add_constraints: * @self: #MidgardQueryConstraintGroup instance * @constraints: (array) (element-type MidgardQueryConstraintSimple) (array length=n_objects): array of #MidgardQueryConstraintSimple objects * @n_objects: number of elements in given array * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05.5 */ gboolean midgard_query_constraint_group_add_constraints (MidgardQueryConstraintGroup *self, MidgardQueryConstraintSimple **constraints, guint n_objects) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (constraints != NULL, FALSE); guint i; for (i = 0; i < n_objects; i++) { if (!midgard_query_constraint_group_add_constraint (self, constraints[i])) return FALSE; } return TRUE; } /* GOBJECT ROUTINES */ GObjectClass *parent_class = NULL; enum { PROPERTY_GROUPTYPE = 1 }; MidgardQueryConstraintSimple** _midgard_query_constraint_group_list_constraints (MidgardQueryConstraintSimple *self, guint *n_objects) { g_return_val_if_fail (self != NULL, NULL); GSList *l; GSList *self_constraints = MIDGARD_QUERY_CONSTRAINT_GROUP (self)->priv->constraints; guint i = 0; /* count constraints */ for (l = self_constraints; l != NULL; l = l->next) i++; MidgardQueryConstraintSimple **constraints = g_new (MidgardQueryConstraintSimple*, i); i = 0; for (l = self_constraints; l != NULL; l = l->next) { constraints[i] = MIDGARD_QUERY_CONSTRAINT_SIMPLE (l->data); i++; } *n_objects = i; return constraints; } void _midgard_query_group_add_conditions_to_statement (MidgardQueryExecutor *executor, MidgardQueryConstraintSimple *self, GdaSqlStatement *stmt, GdaSqlExpr *where_expr_node, GError **error) { guint n_objects; guint i; MidgardQueryConstraintSimple **constraints = midgard_query_constraint_simple_list_constraints (MIDGARD_QUERY_CONSTRAINT_SIMPLE (self), &n_objects); if (!constraints) return; GdaSqlStatementSelect *select = stmt->contents; GdaSqlExpr *top_where = NULL, *where; GdaSqlOperation *top_operation, *operation; /* Create base top expression and operation */ if (!select->where_cond) { top_where = gda_sql_expr_new (GDA_SQL_ANY_PART (select)); top_operation = gda_sql_operation_new (GDA_SQL_ANY_PART (top_where)); top_operation->operator_type = MIDGARD_QUERY_CONSTRAINT_GROUP (self)->priv->op_type; top_where->cond = top_operation; gda_sql_statement_select_take_where_cond (stmt, top_where); } else if (where_expr_node) { /* This is nested groups case: '... AND (f2=1 OR f2=2)...' */ where = where_expr_node; operation = where->cond; top_where = gda_sql_expr_new (GDA_SQL_ANY_PART (operation)); top_operation = gda_sql_operation_new (GDA_SQL_ANY_PART (where_expr_node)); top_operation->operator_type = MIDGARD_QUERY_CONSTRAINT_GROUP (self)->priv->op_type; top_where->cond = top_operation; operation->operands = g_slist_append (operation->operands, top_where); } for (i = 0; i < n_objects; i++) { GError *err = NULL; MIDGARD_QUERY_CONSTRAINT_SIMPLE_GET_INTERFACE (constraints[i])->priv->add_conditions_to_statement (executor, MIDGARD_QUERY_CONSTRAINT_SIMPLE (constraints[i]), stmt, top_where, &err); if (err) g_propagate_error (error, err); } g_free (constraints); } static void _midgard_query_constraint_group_iface_init (MidgardQueryConstraintSimpleIFace *iface) { iface->list_constraints = _midgard_query_constraint_group_list_constraints; iface->priv = g_new (MidgardQueryConstraintSimplePrivate, 1); iface->priv->add_conditions_to_statement = _midgard_query_group_add_conditions_to_statement; return; } /* Validable iface */ static void _midgard_query_constraint_group_validable_iface_validate (MidgardValidable *iface, GError **error) { g_return_if_fail (iface != NULL); MidgardQueryConstraintGroup *self = MIDGARD_QUERY_CONSTRAINT_GROUP (iface); self->priv->is_valid = FALSE; /* group type */ if (self->priv->op_type == -1) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_TYPE_INVALID, "Invalid group operator type"); return; } /* constraints */ if (!self->priv->constraints) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_ELEMENT_INVALID, "Constraint group doesn't hold any constraints"); return; } self->priv->is_valid = TRUE; return; } gboolean _midgard_query_constraint_group_validable_iface_is_valid (MidgardValidable *self) { g_return_val_if_fail (self != NULL, FALSE); return MIDGARD_QUERY_CONSTRAINT_GROUP (self)->priv->is_valid; } static void _midgard_query_constraint_group_validable_iface_init (MidgardValidableIFace *iface) { iface->validate = _midgard_query_constraint_group_validable_iface_validate; iface->is_valid = _midgard_query_constraint_group_validable_iface_is_valid; } static void __midgard_query_constraint_group_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardQueryConstraintGroup *self = (MidgardQueryConstraintGroup *) instance; self->priv = g_new (MidgardQueryConstraintGroupPrivate, 1); self->priv->type = NULL; self->priv->op_type = -1; self->priv->constraints = NULL; self->priv->is_valid = FALSE; } static GObject * _midgard_query_constraint_group_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_query_constraint_group_dispose (GObject *object) { MidgardQueryConstraintGroup *self = MIDGARD_QUERY_CONSTRAINT_GROUP (object); GSList *self_constraints = MIDGARD_QUERY_CONSTRAINT_GROUP (self)->priv->constraints; GSList *l = NULL; for (l = self_constraints; l != NULL; l = l->next) { if (l->data && G_IS_OBJECT (l->data)) { g_object_unref(l->data); l->data = NULL; } } parent_class->dispose (object); } static void _midgard_query_constraint_group_finalize (GObject *object) { MidgardQueryConstraintGroup *self = MIDGARD_QUERY_CONSTRAINT_GROUP (object); g_free (self->priv->type); self->priv->type = NULL; if (self->priv->constraints) g_slist_free (self->priv->constraints); self->priv->constraints = NULL; g_free (self->priv); self->priv = NULL; parent_class->finalize (object); } static void __midgard_query_constraint_group_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardQueryConstraintGroup *self = (MidgardQueryConstraintGroup *) object; switch (property_id) { case PROPERTY_GROUPTYPE: g_value_set_string (value, self->priv->type); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void __midgard_query_constraint_group_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardQueryConstraintGroup *self = (MidgardQueryConstraintGroup *) (object); switch (property_id) { case PROPERTY_GROUPTYPE: midgard_query_constraint_group_set_group_type (self, g_value_get_string (value)); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_query_constraint_group_class_init (MidgardQueryConstraintGroupClass *klass, gpointer class_data) { GObjectClass *object_class = G_OBJECT_CLASS (klass); parent_class = g_type_class_peek_parent (klass); object_class->constructor = _midgard_query_constraint_group_constructor; object_class->dispose = _midgard_query_constraint_group_dispose; object_class->finalize = _midgard_query_constraint_group_finalize; object_class->set_property = __midgard_query_constraint_group_set_property; object_class->get_property = __midgard_query_constraint_group_get_property; /* Properties */ GParamSpec *pspec = g_param_spec_string ("grouptype", "", "", "", G_PARAM_READWRITE); /** * MidgardQueryConstraintGroup:grouptype: * */ g_object_class_install_property (object_class, PROPERTY_GROUPTYPE, pspec); } GType midgard_query_constraint_group_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQueryConstraintGroupClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_query_constraint_group_class_init, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardQueryConstraintGroup), 0, /* n_preallocs */ __midgard_query_constraint_group_instance_init /* instance_init */ }; static const GInterfaceInfo property_info = { (GInterfaceInitFunc)_midgard_query_constraint_group_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; static const GInterfaceInfo validable_info = { (GInterfaceInitFunc)_midgard_query_constraint_group_validable_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardQueryConstraintGroup", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_QUERY_CONSTRAINT_SIMPLE, &property_info); g_type_add_interface_static (type, MIDGARD_TYPE_VALIDABLE, &validable_info); } return type; } midgard2-core-10.05.7.1/src/midgard_collector.h0000664000175000017500000001220711772046240016007 00000000000000/* * Copyright (C) 2006, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_COLLECTOR_H #define MIDGARD_COLLECTOR_H #include "midgard_connection.h" #include "query_builder.h" /* convention macros */ #define MIDGARD_TYPE_COLLECTOR (midgard_collector_get_type()) #define MIDGARD_COLLECTOR(object) \ (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_COLLECTOR, MidgardCollector)) #define MIDGARD_COLLECTOR_CLASS(klass) \ (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_COLLECTOR, MidgardCollectorClass)) #define MIDGARD_IS_COLLECTOR(object) \ (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_COLLECTOR)) #define MIDGARD_IS_COLLECTOR_CLASS(klass) \ (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_COLLECTOR)) #define MIDGARD_COLLECTOR_GET_CLASS(obj) \ (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_COLLECTOR, MidgardCollectorClass)) typedef struct _MidgardCollectorPrivate MidgardCollectorPrivate; typedef struct _MidgardCollector MidgardCollector; typedef struct MidgardCollectorClass MidgardCollectorClass; struct _MidgardCollector{ MidgardQueryBuilder parent; /* < private > */ MidgardCollectorPrivate *priv; }; struct MidgardCollectorClass{ MidgardQueryBuilderClass parent; /* class members */ gboolean (*set_key_property) (MidgardCollector *self, const gchar *key, GValue *value); gboolean (*add_value_property) (MidgardCollector *self, const gchar *value); gboolean (*set) (MidgardCollector *self, const gchar *key, const gchar *subkey, GValue *value); GData *(*get) (MidgardCollector *self, const gchar *key); GValue *(*get_subkey) (MidgardCollector *self, const gchar *key, const gchar *subkey); gboolean (*merge) (MidgardCollector *self, MidgardCollector *mc, gboolean overwrite); gchar **(*list_keys) (MidgardCollector *self); gboolean (*remove_key) (MidgardCollector *self, const gchar *key); void (*destroy) (MidgardCollector *self); gboolean (*add_constraint) (MidgardCollector *self, const gchar *name, const gchar *op, const GValue *value); gboolean (*add_constraint_with_property) (MidgardCollector *self, const gchar *property_a, const gchar *op, const gchar *property_b); gboolean (*begin_group) (MidgardCollector *self, const gchar *type); gboolean (*end_group) (MidgardCollector *self); gboolean (*add_order) (MidgardCollector *self, const gchar *name, const gchar *dir); void (*set_offset) (MidgardCollector *self, guint offset); void (*set_limit) (MidgardCollector *self, guint limit); void (*count) (MidgardCollector *self); void (*include_deleted) (MidgardCollector *self); gboolean (*execute) (MidgardCollector *self); }; GType midgard_collector_get_type(void); MidgardCollector *midgard_collector_new (MidgardConnection *mgd, const gchar *typename, const gchar *domain, GValue *value); gboolean midgard_collector_set_key_property (MidgardCollector *self, const gchar *key, GValue *value); gboolean midgard_collector_add_value_property (MidgardCollector *self, const gchar *value); gboolean midgard_collector_set (MidgardCollector *self, const gchar *key, const gchar *subkey, GValue *value); GData *midgard_collector_get (MidgardCollector *self, const gchar *key); GValue *midgard_collector_get_subkey (MidgardCollector *self, const gchar *key, const gchar *subkey); gchar **midgard_collector_list_keys (MidgardCollector *self); gboolean midgard_collector_merge (MidgardCollector *self, MidgardCollector *mc, gboolean overwrite); gboolean midgard_collector_remove_key (MidgardCollector *self, const gchar *key); gboolean midgard_collector_add_constraint (MidgardCollector *self, const gchar *name, const gchar *op, const GValue *value); gboolean midgard_collector_add_constraint_with_property (MidgardCollector *self, const gchar *property_a, const gchar *op, const gchar *property_b); gboolean midgard_collector_begin_group (MidgardCollector *self, const gchar *type); gboolean midgard_collector_end_group (MidgardCollector *self); gboolean midgard_collector_add_order (MidgardCollector *self, const gchar *name, const gchar *dir); void midgard_collector_set_offset (MidgardCollector *self, guint offset); void midgard_collector_set_limit (MidgardCollector *self, guint limit); void midgard_collector_count (MidgardCollector *self); gboolean midgard_collector_execute (MidgardCollector *self); gboolean midgard_collector_include_deleted (MidgardCollector *self); #endif /* MIDGARD_COLLECTOR_H */ midgard2-core-10.05.7.1/src/midgard_core_connection.h0000664000175000017500000000335311772046240017172 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "midgard_connection.h" #ifndef _MGD_CORE_CONNECTION_H #define _MGD_CORE_CONNECTION_H #define MGD_CORE_AUTH_FILE "midgard_auth_types.xml" #define MGD_CORE_AUTH_NS "http:/""/www.midgard-project.org/authentication/types" #define MGD_CORE_AUTH_ROOT_NAME "Authentication" typedef struct{ gchar *name; guint id; }MgdCoreAuthType; void midgard_core_connection_initialize_auth_types (MidgardConnection *mgd); gboolean midgard_core_connection_auth_type_by_name (MidgardConnection *mgd, const gchar *name); gboolean midgard_core_connection_auth_type_by_id (MidgardConnection *mgd, guint id); guint midgard_core_auth_type_id_from_name (MidgardConnection *mgd, const gchar *name); void midgard_core_connection_connect_error_callback (MidgardConnection *mgd); void midgard_core_connection_disconnect_error_callback (MidgardConnection *mgd); void midgard_core_auth_type_free (MgdCoreAuthType *mcat); #endif /* _MGD_CORE_CONNECTION_H */ midgard2-core-10.05.7.1/src/midgard_dbus.c0000664000175000017500000002620511772046240014754 00000000000000/* * Copyright (C) 2008, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_dbus.h" #include "midgard_core_object.h" #include "midgard_replicator.h" #include "midgard_config_auto.h" #include "uuid.h" #define MIDGARD_DBUS_SERVICE "org.midgardproject.notifier" #define MIDGARD_DBUS_IFACE "org.midgardproject.notifier" #define MIDGARD_DBUS_PATH "/org/midgardproject" /* for auto generated interfaces */ gboolean midgard_dbus_emit_notified(MidgardDbus *self, const gchar *message, GError **error); #ifdef MGD_HAVE_DBUS #include #include #include "midgard_dbus_interface.h" DBusGProxy *__get_bus_proxy (MidgardConnection *mgd, DBusGConnection *bus, const gchar *path); static DBusGConnection *__get_bus (gboolean use_session); struct _MidgardDbusPrivate{ DBusGConnection *dbus_connection; gchar *path; gchar *fullpath; gchar *message; MidgardConnection *mgd; GMainLoop *mainloop; }; static DBusGProxy * __get_freedesktop_proxy(DBusGConnection *bus) { DBusGProxy *bus_proxy = NULL; bus_proxy = dbus_g_proxy_new_for_name (bus, DBUS_SERVICE_DBUS, DBUS_PATH_DBUS, DBUS_INTERFACE_DBUS); if (!bus_proxy) g_debug("Failed to get freedesktop bus proxy"); return bus_proxy; } static DBusGConnection* __get_bus(gboolean use_session) { GError *error = NULL; DBusGConnection *bus = dbus_g_bus_get(use_session ? DBUS_BUS_SESSION : DBUS_BUS_SYSTEM, &error); if (!bus) { g_debug("Failed to get bus (%s)", error && error->message ? error->message : "Unknown reason"); return NULL; } g_debug("Initialize D-Bus"); return bus; } #endif /* This is signal invoked by GLib D-Bus bindings. */ gboolean midgard_dbus_emit_notified(MidgardDbus *self, const gchar *message, GError **error) { #ifdef MGD_HAVE_DBUS g_signal_emit(self, MIDGARD_DBUS_GET_CLASS(self)->signal_notified, 0, message); /* Quit the main loop. We do this *just on time* here. If application is slow, we use as much time as required. We could use g_timeout, but quiting loop here ensures our signal is emitted properly */ GMainLoop *mainloop = self->priv->mainloop; if (mainloop && g_main_loop_is_running(mainloop)) g_main_loop_quit(mainloop); return TRUE; #else return FALSE; #endif } gchar * __modify_path(MidgardConnection *mgd, const gchar *path) { g_assert(mgd != NULL); if(*path != '/') { g_warning("Invalid path. Should start with '/'."); return NULL; } gchar *new_path = g_strconcat(MIDGARD_DBUS_PATH, path, NULL); /* g_debug("New midgard path for D-Bus: (%s)", new_path); */ return new_path; } #ifdef MGD_HAVE_DBUS /* This is invoked for an object which is connected to D-Bus signal. Then we emit MidgardDBusClass notified signal to trigger user's callback invokation */ static void notified_signal_handler (DBusGProxy *proxy, const char *msg, gpointer user_data) { if (!user_data || !MIDGARD_IS_DBUS(user_data)) return; MidgardDbus *mbus = MIDGARD_DBUS(user_data); if (mbus->priv->message) g_free(mbus->priv->message); mbus->priv->message = g_strdup(msg); g_signal_emit(mbus, MIDGARD_DBUS_GET_CLASS(mbus)->signal_notified, 0, mbus->priv->message); } #endif /* API */ /** * midgard_dbus_is_enabled: * * Returns: %TRUE if Midgard library is compiled with DBUS support, %FALSE otherwise * * Since: 10.05.1 */ gboolean midgard_dbus_is_enabled (void) { #ifdef MGD_HAVE_DBUS return TRUE; #endif return FALSE; } static void __unref_object(gpointer data, GClosure *closure) { if (data == NULL) return; if (!G_IS_OBJECT(data)) return; g_object_unref(G_OBJECT(data)); } /** * midgard_dbus_new: * @mgd: #MidgardConnection instance * @path: a path at which D-Bus object exists * @use_session: whether to use session bus * * @use_session, set to FALSE for session bus, TRUE for system one * * Returns: new #MidgardDbus instance, %NULL otherwise */ MidgardDbus * midgard_dbus_new(MidgardConnection *mgd, const gchar *path, gboolean use_session) { #ifdef MGD_HAVE_DBUS g_assert(path != NULL); g_assert(mgd != NULL); DBusGConnection *bus = __get_bus(use_session); if (!bus) { g_debug("D-Bus bus not initialized"); return NULL; } gchar *new_path = __modify_path(mgd, path); if(!new_path) return NULL; MidgardDbus *self = g_object_new(MIDGARD_TYPE_DBUS, NULL); if(self == NULL) return NULL; self->priv->path = g_strdup((gchar *)new_path); self->priv->mgd = mgd; DBusGProxy *remote_object = __get_bus_proxy(mgd, bus, path); g_free(new_path); /* Increase reference count */ g_object_ref(self); /* Add signal and connect to it */ dbus_g_proxy_add_signal(remote_object, "Notified", G_TYPE_STRING, G_TYPE_INVALID); dbus_g_proxy_connect_signal(remote_object, "Notified", G_CALLBACK (notified_signal_handler), self, __unref_object); return self; #else return NULL; #endif } /** * midgard_dbus_create_dbus: * * Constructor. Invokes midgard_dbus_new(). * This function is added for language bindings, in which, midgard_dbus_new can not be * invoked explicitly. * * Returns: (transfer full): #MidgardDbus instance * * Since: 10.05.1 */ MidgardDbus * midgard_dbus_create_dbus (MidgardConnection *mgd, const gchar *path, gboolean use_session) { return midgard_dbus_new (mgd, path, use_session); } #ifdef MGD_HAVE_DBUS DBusGProxy* __get_bus_proxy(MidgardConnection *mgd, DBusGConnection *bus, const gchar *path) { DBusGProxy *remote_object; GError *error = NULL; g_assert(mgd != NULL); g_assert(path != NULL); gchar *new_path = __modify_path(mgd, path); if(!new_path) return NULL; remote_object = dbus_g_proxy_new_for_name(bus, MIDGARD_DBUS_SERVICE, new_path, MIDGARD_DBUS_IFACE); g_free(new_path); if(error) { g_error_free(error); return NULL; } g_debug("New DBus proxy: %s, %s, %s", dbus_g_proxy_get_bus_name(remote_object), dbus_g_proxy_get_path(remote_object), dbus_g_proxy_get_interface(remote_object)); return remote_object; } #endif /** * midgard_dbus_send: * @mgd: #MidgardConnection instance * @path: dbus path at which we expect recipients * @message: a message to be sent * @use_session: whether to use system or session bus * * Emits 'Notified' signal on objects at given @path and sends given message. * */ void midgard_dbus_send(MidgardConnection *mgd, const gchar *path, const gchar *message, gboolean use_session) { #ifdef MGD_HAVE_DBUS DBusGConnection *bus = __get_bus(use_session); if (!bus) return; DBusGProxy *_bus_proxy = __get_freedesktop_proxy(bus); GError *error = NULL; guint _request_name_result; if (!dbus_g_proxy_call (_bus_proxy, "RequestName", &error, G_TYPE_STRING, MIDGARD_DBUS_IFACE, G_TYPE_UINT, 0, G_TYPE_INVALID, G_TYPE_UINT, &_request_name_result, G_TYPE_INVALID)) { g_debug("RequestName call failed"); return; } MidgardDbus *mbus = NULL; gchar *new_path = __modify_path(mgd, path); /* Check if object is already registered. If it is reuse. In any other case, error will be thrown. */ mbus = MIDGARD_DBUS(dbus_g_connection_lookup_g_object(bus, new_path)); if (!mbus) { mbus = g_object_new(MIDGARD_TYPE_DBUS, NULL); dbus_g_connection_register_g_object (bus, new_path, G_OBJECT (mbus)); } mbus->priv->mainloop = g_main_loop_new(NULL, FALSE); DBusGProxy *mp = __get_bus_proxy(mgd, bus, path); g_free(new_path); /* Asynchronous call, then start running main loop to make sure signal is emited */ dbus_g_proxy_call_no_reply (mp, "emitNotified", G_TYPE_STRING, message, G_TYPE_INVALID); g_main_loop_run (mbus->priv->mainloop); #endif return; } void midgard_core_dbus_send_serialized_object(MidgardObject *object, const gchar *path) { #ifdef MGD_HAVE_DBUS g_assert(object != NULL); g_assert(path != NULL); gchar *xml = midgard_replicator_serialize(G_OBJECT(object)); midgard_dbus_send(MGD_OBJECT_CNC(object), path, xml, FALSE); g_free(xml); #endif return; } /** * midgard_dbus_get_message: * @self: #MidgardDBus instance * * Get message associated with givven instance. * * Returns: pointer to object's message or %NULL */ const gchar* midgard_dbus_get_message(MidgardDbus *self) { #ifdef MGD_HAVE_DBUS g_assert(self != NULL); return self->priv->message; #else return NULL; #endif } extern const gchar* midgard_dbus_get_name(void) { return NULL; } /* GOBJECT ROUTINES */ static void _midgard_dbus_finalize(GObject *object) { g_assert(object != NULL); #ifdef MGD_HAVE_DBUS MidgardDbus *self = (MidgardDbus *) object; if(self->priv->path != NULL) g_free(self->priv->path); self->priv->path = NULL; if(self->priv->fullpath != NULL) g_free(self->priv->fullpath); self->priv->fullpath = NULL; if(self->priv->message != NULL) g_free(self->priv->message); self->priv->message = NULL; self->priv->mgd = NULL; if (self->priv->mainloop && g_main_loop_is_running(self->priv->mainloop)) g_main_loop_quit(self->priv->mainloop); if (self->priv->mainloop) g_main_loop_unref(self->priv->mainloop); self->priv->mainloop = NULL; g_free(self->priv); self->priv = NULL; #endif } static void _midgard_dbus_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS(g_class); MidgardDbusClass *klass = MIDGARD_DBUS_CLASS(g_class); gobject_class->finalize = _midgard_dbus_finalize; klass->signal_notified = g_signal_new("notified", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_RUN_LAST | G_SIGNAL_NO_RECURSE | G_SIGNAL_NO_HOOKS, G_STRUCT_OFFSET (MidgardDbusClass, notified), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__STRING, G_TYPE_NONE, 1, G_TYPE_STRING); #ifdef MGD_HAVE_DBUS dbus_g_object_type_install_info(MIDGARD_TYPE_DBUS, &dbus_glib_midgard_dbus_object_info); #endif } static void _midgard_dbus_instance_init( GTypeInstance *instance, gpointer g_class) { MidgardDbus *self = MIDGARD_DBUS(instance); #ifdef MGD_HAVE_DBUS self->priv = g_new(MidgardDbusPrivate, 1); self->priv->path = NULL; self->priv->fullpath = NULL; self->priv->message = NULL; self->priv->mainloop = NULL; #endif } GType midgard_dbus_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardDbusClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_dbus_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardDbus), 0, /* n_preallocs */ (GInstanceInitFunc) _midgard_dbus_instance_init/* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardDbus", &info, 0); } return type; } midgard2-core-10.05.7.1/src/midgard.h0000664000175000017500000000635011772046240013743 00000000000000/* * Midgard core, API headers. * * Copyright (C) 2006, 2007, 2008 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef _MIDGARD_API_H_ #define _MIDGARD_API_H_ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #endif /* _MIDGARD_API_H_ */ midgard2-core-10.05.7.1/src/midgard_query_result.h0000664000175000017500000000474211772046240016571 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_RESULT_H #define MIDGARD_QUERY_RESULT_H #include #include "midgard_query_column.h" #include "midgard_query_row.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_RESULT (midgard_query_result_get_type()) #define MIDGARD_QUERY_RESULT(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_RESULT, MidgardQueryResult)) #define MIDGARD_IS_QUERY_RESULT(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_RESULT)) #define MIDGARD_QUERY_RESULT_GET_INTERFACE(inst) (G_TYPE_INSTANCE_GET_INTERFACE ((inst), MIDGARD_TYPE_QUERY_RESULT, MidgardQueryResultIFace)) typedef struct _MidgardQueryResult MidgardQueryResult; typedef struct _MidgardQueryResultIFace MidgardQueryResultIFace; struct _MidgardQueryResultIFace { GTypeInterface parent; GObject** (*get_objects) (MidgardQueryResult *self, guint *n_objects, GError **error); MidgardQueryColumn** (*get_columns) (MidgardQueryResult *self, guint *n_objects, GError **error); MidgardQueryRow** (*get_rows) (MidgardQueryResult *self, guint *n_objects, GError **error); gchar** (*get_column_names) (MidgardQueryResult *self, guint *n_names, GError **error); }; GType midgard_query_result_get_type (void); GObject** midgard_query_result_get_objects (MidgardQueryResult *self, guint *n_objects, GError **error); MidgardQueryColumn** midgard_query_result_get_columns (MidgardQueryResult *self, guint *n_objects, GError **error); MidgardQueryRow** midgard_query_result_get_rows (MidgardQueryResult *self, guint *n_objects, GError **error); gchar** midgard_query_result_get_column_names (MidgardQueryResult *self, guint *n_names, GError **error); G_END_DECLS #endif /* MIDGARD_QUERY_RESULT_H */ midgard2-core-10.05.7.1/src/guid.h0000664000175000017500000000221611772046240013261 00000000000000/* * Copyright (C) 2005 Jukka Zitting * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_GUID_H #define MIDGARD_GUID_H #include "midgard_defs.h" #include #include "midgard_connection.h" gboolean midgard_is_guid(const gchar *guid); gchar *midgard_guid_new(MidgardConnection *mgd); gchar *midgard_guid_external(MidgardConnection *mgd, const gchar *external); gchar *mgd_create_guid(MidgardConnection *mgd, const gchar *table, guint id); #endif midgard2-core-10.05.7.1/src/midgard_metadata.h0000664000175000017500000000363511772046240015606 00000000000000/* * Copyright (C) 2005 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MIDGARD_METADATA_H #define MIDGARD_METADATA_H #include #include "midgard_object.h" #include "midgard_dbobject.h" /* convention macros */ #define MIDGARD_TYPE_METADATA (midgard_metadata_get_type ()) #define MIDGARD_METADATA(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_METADATA, MidgardMetadata)) #define MIDGARD_METADATA_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_METADATA, MidgardMetadataClass)) #define MIDGARD_IS_METADATA(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_METADATA)) #define MIDGARD_IS_METADATA_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_METADATA)) #define MIDGARD_METADATA_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_METADATA, MidgardMetadataClass)) typedef struct _MidgardMetadataPrivate MidgardMetadataPrivate; struct _MidgardMetadataClass { MidgardDBObjectClass parent; }; struct _MidgardMetadata { MidgardDBObject parent; MidgardMetadataPrivate *priv; }; GType midgard_metadata_get_type (void); MidgardMetadata *midgard_metadata_new (MidgardDBObject *object); #endif /* MIDGARD_METADATA_H */ midgard2-core-10.05.7.1/src/midgard_query_value.h0000664000175000017500000000437411772046240016370 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_VALUE_H #define MIDGARD_QUERY_VALUE_H #include G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_VALUE (midgard_query_value_get_type()) #define MIDGARD_QUERY_VALUE(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_VALUE, MidgardQueryValue)) #define MIDGARD_QUERY_VALUE_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_QUERY_VALUE, MidgardQueryValueClass)) #define MIDGARD_IS_QUERY_VALUE(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_VALUE)) #define MIDGARD_IS_QUERY_VALUE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_QUERY_VALUE)) #define MIDGARD_QUERY_VALUE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_QUERY_VALUE, MidgardQueryValueClass)) typedef struct _MidgardQueryValue MidgardQueryValue; typedef struct _MidgardQueryValuePrivate MidgardQueryValuePrivate; typedef struct _MidgardQueryValueClass MidgardQueryValueClass; struct _MidgardQueryValue { GObject parent; /* < private > */ MidgardQueryValuePrivate *priv; }; struct _MidgardQueryValueClass { GObjectClass parent; void (*get_value) (MidgardQueryValue *self, GValue *value); MidgardQueryValue *(*set_value) (MidgardQueryValue *self, const GValue *value); }; GType midgard_query_value_get_type (void); MidgardQueryValue *midgard_query_value_new (void); MidgardQueryValue *midgard_query_value_create_with_value (const GValue *value); G_END_DECLS #endif /* MIDGARD_QUERY_VALUE_H */ midgard2-core-10.05.7.1/src/guid.c0000664000175000017500000000411411772046240013253 00000000000000/* * Copyright (C) 2005 Jukka Zitting * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "guid.h" #include "uuid.h" gboolean midgard_is_guid(const gchar *guid) { /* Handle the case when object's guid property might be * initialized with NULL or empty string by default */ if (!guid || (guid && *guid == '\0')) return FALSE; int i; for (i = 0; guid[i] != 0 && i < 80; i++) { if (guid[i] != '-' && !g_ascii_isxdigit(guid[i])) { return FALSE; } } return (i >= 21); } static void uuid2guid(gchar *uuid) { gchar *guid = uuid; do { if (*uuid == '-') { uuid++; } *guid++ = *uuid++; } while (*uuid); } gchar *midgard_guid_new(MidgardConnection *mgd) { g_assert(mgd != NULL); gchar *uuid = midgard_uuid_new(); uuid2guid(uuid); return uuid; } gchar *midgard_guid_external(MidgardConnection *mgd, const gchar *external) { g_assert(mgd != NULL); g_assert(external != NULL); gchar *uuid = midgard_uuid_external(external); uuid2guid(uuid); return uuid; } gchar *mgd_create_guid(MidgardConnection *mgd, const gchar *table, guint id) { g_assert(mgd != NULL); g_assert(table != NULL); return midgard_guid_new(mgd); } midgard2-core-10.05.7.1/src/midgard_query_constraint_group.h0000664000175000017500000000650711772046240020654 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_CONSTRAINT_GROUP_H #define MIDGARD_QUERY_CONSTRAINT_GROUP_H #include #include "midgard_query_holder.h" #include "midgard_query_property.h" #include "midgard_query_storage.h" #include "midgard_query_constraint.h" #include "midgard_query_constraint_simple.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_CONSTRAINT_GROUP (midgard_query_constraint_group_get_type()) #define MIDGARD_QUERY_CONSTRAINT_GROUP(object) (G_TYPE_CHECK_INSTANCE_CAST ((object), MIDGARD_TYPE_QUERY_CONSTRAINT_GROUP, MidgardQueryConstraintGroup)) #define MIDGARD_QUERY_CONSTRAINT_GROUP_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_QUERY_CONSTRAINT_GROUP, MidgardQueryConstraintGroupClass)) #define MIDGARD_IS_QUERY_CONSTRAINT_GROUP(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_CONSTRAINT_GROUP)) #define MIDGARD_IS_QUERY_CONSTRAINT_GROUP_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_QUERY_CONSTRAINT_GROUP)) #define MIDGARD_QUERY_CONSTRAINT_GROUP_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_QUERY_CONSTRAINT_GROUP, MidgardQueryConstraintGroupClass)) typedef struct _MidgardQueryConstraintGroup MidgardQueryConstraintGroup; typedef struct _MidgardQueryConstraintGroupPrivate MidgardQueryConstraintGroupPrivate; typedef struct _MidgardQueryConstraintGroupClass MidgardQueryConstraintGroupClass; struct _MidgardQueryConstraintGroup { GObject parent; /* < private > */ MidgardQueryConstraintGroupPrivate *priv; }; struct _MidgardQueryConstraintGroupClass { GObjectClass parent; }; GType midgard_query_constraint_group_get_type (void); MidgardQueryConstraintGroup *midgard_query_constraint_group_new (void); MidgardQueryConstraintGroup *midgard_query_constraint_group_new_valist (const gchar *type, MidgardQueryConstraintSimple *constraint, ...); MidgardQueryConstraintGroup *midgard_query_constraint_group_new_with_constraints (const gchar *type, MidgardQueryConstraintSimple **constraints, guint n_constraints); const gchar *midgard_query_constraint_group_get_group_type (MidgardQueryConstraintGroup *self); gboolean midgard_query_constraint_group_set_group_type (MidgardQueryConstraintGroup *self, const gchar *type); gboolean midgard_query_constraint_group_add_constraint (MidgardQueryConstraintGroup *self, MidgardQueryConstraintSimple *constraint); gboolean midgard_query_constraint_group_add_constraints (MidgardQueryConstraintGroup *self, MidgardQueryConstraintSimple **constraints, guint n_objects); G_END_DECLS #endif /* MIDGARD_QUERY_CONSTRAINT_GROUP_H */ midgard2-core-10.05.7.1/src/midgard_core_xml.h0000664000175000017500000000266611772046240015641 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef _CORE_XML_H #define _CORE_XML_H #include #include #include #include #include xmlNode *midgard_core_xml_get_node_by_name (xmlNode *node, const gchar *name); gchar *midgard_core_xml_get_attribute_content (xmlNode *node); gchar *midgard_core_xml_get_attribute_content_by_name (xmlNode *node, const gchar *name); gboolean midgard_core_xml_attribute_is_allowed (const char **allowed, const xmlChar *str); gchar* midgard_core_xml_get_child_attribute_content_by_name (xmlNode *node, const gchar *nodename, const gchar *attr); #endif /* _PRIVATE_SCHEMA_H */ midgard2-core-10.05.7.1/src/midgard_workspace_storage.h0000664000175000017500000000615011772046240017543 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_WORKSPACE_STORAGE_H #define MIDGARD_WORKSPACE_STORAGE_H #include "midgard_dbobject.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_WORKSPACE_STORAGE (midgard_workspace_storage_get_type()) #define MIDGARD_WORKSPACE_STORAGE(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_WORKSPACE_STORAGE, MidgardWorkspaceStorage)) #define MIDGARD_IS_WORKSPACE_STORAGE(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_WORKSPACE_STORAGE)) #define MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE(inst) (G_TYPE_INSTANCE_GET_INTERFACE ((inst), MIDGARD_TYPE_WORKSPACE_STORAGE, MidgardWorkspaceStorageIFace)) typedef struct _MidgardWorkspaceStorage MidgardWorkspaceStorage; /* dummy */ typedef struct _MidgardWorkspaceStorageIFace MidgardWorkspaceStorageIFace; typedef struct _MidgardWorkspaceStorageIFacePrivate MidgardWorkspaceStorageIFacePrivate; struct _MidgardWorkspaceStorageIFace{ GTypeInterface parent; MidgardWorkspaceStorageIFacePrivate *priv; const gchar *(*get_path) (MidgardWorkspaceStorage *self); MidgardWorkspaceStorage **(*list_children) (MidgardWorkspaceStorage *self, guint *n_objects); MidgardWorkspaceStorage *(*get_workspace_by_name) (MidgardWorkspaceStorage *self, const gchar *name); gchar **(*list_workspace_names) (MidgardWorkspaceStorage *self, guint *n_names); }; /* WorkspaceStorage error */ typedef enum { MIDGARD_WORKSPACE_STORAGE_ERROR_NAME_EXISTS, MIDGARD_WORKSPACE_STORAGE_ERROR_INVALID_PATH, MIDGARD_WORKSPACE_STORAGE_ERROR_PATH_EXISTS, MIDGARD_WORKSPACE_STORAGE_ERROR_OBJECT_NOT_EXISTS, MIDGARD_WORKSPACE_STORAGE_ERROR_INVALID_VALUE, MIDGARD_WORKSPACE_STORAGE_ERROR_CONTEXT_VIOLATION } MidgardWorkspaceStorageError; #define MIDGARD_WORKSPACE_STORAGE_ERROR midgard_workspace_storage_error_quark () GQuark midgard_workspace_storage_error_quark (void); GType midgard_workspace_storage_get_type (void); const gchar *midgard_workspace_storage_get_path (MidgardWorkspaceStorage *self); MidgardWorkspaceStorage **midgard_workspace_storage_list_children (MidgardWorkspaceStorage *self, guint *n_objects); MidgardWorkspaceStorage *midgard_workspace_storage_get_workspace_by_name (MidgardWorkspaceStorage *self, const gchar *name); gchar **midgard_workspace_storage_list_workspace_names (MidgardWorkspaceStorage *self, guint *n_names); G_END_DECLS #endif /* MIDGARD_WORKSPACE_STORAGE_H */ midgard2-core-10.05.7.1/src/midgard_workspace.h0000664000175000017500000000403511772046240016017 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_WORKSPACE_H #define MIDGARD_WORKSPACE_H #include "midgard_dbobject.h" #include "midgard_defs.h" #include "midgard_workspace_context.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_WORKSPACE (midgard_workspace_get_type()) #define MIDGARD_WORKSPACE(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_WORKSPACE, MidgardWorkspace)) #define MIDGARD_WORKSPACE_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_WORKSPACE, MidgardWorkspaceClass)) #define MIDGARD_IS_WORKSPACE(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_WORKSPACE)) #define MIDGARD_IS_WORKSPACE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_WORKSPACE)) #define MIDGARD_WORKSPACE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_WORKSPACE, MidgardWorkspaceClass)) typedef struct _MidgardWorkspaceClass MidgardWorkspaceClass; struct _MidgardWorkspaceClass{ MidgardDBObjectClass parent; }; struct _MidgardWorkspace{ MidgardDBObject parent; /* < private > */ MidgardWorkspacePrivate *priv; }; GType midgard_workspace_get_type (void); MidgardWorkspace *midgard_workspace_new (); const MidgardWorkspaceContext *midgard_workspace_get_context (MidgardWorkspace *self); G_END_DECLS #endif /* MIDGARD_WORKSPACE_H */ midgard2-core-10.05.7.1/src/midgard_schema_object_factory.h0000664000175000017500000000520111772046240020332 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_SCHEMA_OBJECT_FACTORY_H #define MIDGARD_SCHEMA_OBJECT_FACTORY_H #include "midgard_type.h" #include "midgard_object.h" /* convention macros */ #define MIDGARD_TYPE_SCHEMA_OBJECT_FACTORY (midgard_schema_object_factory_get_type()) #define MIDGARD_SCHEMA_OBJECT_FACTORY(object) (G_TYPE_CHECK_INSTANCE_CAST ((object), MIDGARD_TYPE_SCHEMA_OBJECT_FACTORY, MidgardSchemaObjectFactory)) #define MIDGARD_SCHEMA_OBJECT_FACTORY_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_SCHEMA_OBJECT_FACTORY, MidgardSchemaObjectFactoryClass)) #define MIDGARD_IS_SCHEMA_OBJECT_FACTORY(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_SCHEMA_OBJECT_FACTORY)) #define MIDGARD_IS_SCHEMA_OBJECT_FACTORY_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_REFLECTOR_OBJECT_PROPERTY)) #define MIDGARD_SCHEMA_OBJECT_FACTORY_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_SCHEMA_OBJECT_FACTORY, MidgardSchemaObjectFactoryClass)) typedef struct _MidgardSchemaObjectFactory MidgardSchemaObjectFactory; typedef struct _MidgardSchemaObjectFactoryPrivate MidgardSchemaObjectFactoryPrivate; typedef struct _MidgardSchemaObjectFactoryClass MidgardSchemaObjectFactoryClass; struct _MidgardSchemaObjectFactory { GObject parent; }; struct _MidgardSchemaObjectFactoryClass{ GObjectClass parent; }; GType midgard_schema_object_factory_get_type(void); MidgardObject *midgard_schema_object_factory_get_object_by_guid (MidgardConnection *mgd, const gchar *guid); MidgardObject *midgard_schema_object_factory_get_object_by_path (MidgardConnection *mgd, const gchar *classname, const gchar *path); gboolean midgard_schema_object_factory_object_undelete (MidgardConnection *mgd, const gchar *guid); MidgardObject *midgard_schema_object_factory_create_object (MidgardConnection *mgd, const gchar *classname, GValue *value); #endif /* MIDGARD_SCHEMA_OBJECT_FACTORY_H */ midgard2-core-10.05.7.1/src/midgard_workspace_storage.c0000664000175000017500000000743411772046240017544 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_workspace_storage.h" #include "midgard_core_object.h" GQuark midgard_workspace_storage_error_quark (void) { return g_quark_from_static_string ("midgard_workspace_storage_error-quark"); } /** * midgard_workspace_storage_get_path: * @self: #MidgardWorkspaceStorage instance * * Returned path may be %NULL, if given object doesn't exists in storage * * Returns: (transfer none): a path, given #MidgardWorkspaceStorage is at. * Since: 10.05.5 */ const gchar * midgard_workspace_storage_get_path (MidgardWorkspaceStorage *self) { g_return_val_if_fail (self != NULL, NULL); return MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE (self)->get_path (self); } /** * midgard_workspace_storage_get_workspace_by_name: * @self: #MidgardWorkspaceStorage instance * @name: a name of #MidgardWorkspaceStorage object to find * * Returns: (transfer full): (transfer full): (transfer full): (transfer full): (transfer full): (transfer full): (transfer full): (transfer full): (transfer full): newly allocated #MidgardWorkspaceStorage object if found, %NULL otherwise * Since: 10.05.5 */ MidgardWorkspaceStorage * midgard_workspace_storage_get_workspace_by_name (MidgardWorkspaceStorage *self, const gchar *name) { g_return_val_if_fail (self != NULL, NULL); return MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE (self)->get_workspace_by_name (self, name); } /** * midgard_workspace_storage_list_children: * @self: #MidgardWorkspaceStorage instance * @n_objects: a pointer to store number of returned objects * * In case of #MidgardWorkspaceContext, all #MidgardWorkspace objects from context are * returned. * * Returns: (array length=n_objects) (transfer full): newly allocated array of #MidgardWorkspaceStorage objects * Since: 10.05.5 */ MidgardWorkspaceStorage ** midgard_workspace_storage_list_children (MidgardWorkspaceStorage *self, guint *n_objects) { g_return_val_if_fail (self != NULL, NULL); return MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE (self)->list_children (self, n_objects); } /** * midgard_workspace_storage_list_workspace_names: * @self: #MidgardWorkspaceStorage instance * @n_names: a pointer to store number of returned names * * Returns: (transfer container) (array length=n_names): array of names * Since: 10.05.5 */ gchar ** midgard_workspace_storage_list_workspace_names (MidgardWorkspaceStorage *self, guint *n_names) { g_return_val_if_fail (self != NULL, NULL); return MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE (self)->list_workspace_names (self, n_names); } GType midgard_workspace_storage_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardWorkspaceStorageIFace), NULL, /* base_init */ NULL, /* base_finalize */ NULL, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_INTERFACE, "MidgardWorkspaceStorage", &info, 0); g_type_interface_add_prerequisite (type, G_TYPE_OBJECT); } return type; } midgard2-core-10.05.7.1/src/midgard_key_config_common.h0000664000175000017500000001726611772046240017520 00000000000000/* midgard_key_config_common.h generated by valac, the Vala compiler, do not modify */ #ifndef __SRC_MIDGARD_KEY_CONFIG_COMMON_H__ #define __SRC_MIDGARD_KEY_CONFIG_COMMON_H__ #include #include #include #include G_BEGIN_DECLS #define MIDGARD_TYPE_KEY_CONFIG_CONTEXT (midgard_key_config_context_get_type ()) #define MIDGARD_KEY_CONFIG_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContext)) #define MIDGARD_KEY_CONFIG_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContextClass)) #define MIDGARD_IS_KEY_CONFIG_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT)) #define MIDGARD_IS_KEY_CONFIG_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG_CONTEXT)) #define MIDGARD_KEY_CONFIG_CONTEXT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContextClass)) typedef struct _MidgardKeyConfigContext MidgardKeyConfigContext; typedef struct _MidgardKeyConfigContextClass MidgardKeyConfigContextClass; typedef struct _MidgardKeyConfigContextPrivate MidgardKeyConfigContextPrivate; #define MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT (midgard_key_config_file_context_get_type ()) #define MIDGARD_KEY_CONFIG_FILE_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT, MidgardKeyConfigFileContext)) #define MIDGARD_KEY_CONFIG_FILE_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT, MidgardKeyConfigFileContextClass)) #define MIDGARD_IS_KEY_CONFIG_FILE_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT)) #define MIDGARD_IS_KEY_CONFIG_FILE_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT)) #define MIDGARD_KEY_CONFIG_FILE_CONTEXT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT, MidgardKeyConfigFileContextClass)) typedef struct _MidgardKeyConfigFileContext MidgardKeyConfigFileContext; typedef struct _MidgardKeyConfigFileContextClass MidgardKeyConfigFileContextClass; typedef struct _MidgardKeyConfigFileContextPrivate MidgardKeyConfigFileContextPrivate; #define MIDGARD_TYPE_KEY_CONFIG (midgard_key_config_get_type ()) #define MIDGARD_KEY_CONFIG(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG, MidgardKeyConfig)) #define MIDGARD_KEY_CONFIG_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG, MidgardKeyConfigClass)) #define MIDGARD_IS_KEY_CONFIG(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG)) #define MIDGARD_IS_KEY_CONFIG_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG)) #define MIDGARD_KEY_CONFIG_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG, MidgardKeyConfigClass)) typedef struct _MidgardKeyConfig MidgardKeyConfig; typedef struct _MidgardKeyConfigClass MidgardKeyConfigClass; typedef struct _MidgardKeyConfigPrivate MidgardKeyConfigPrivate; #define MIDGARD_TYPE_KEY_CONFIG_FILE (midgard_key_config_file_get_type ()) #define MIDGARD_KEY_CONFIG_FILE(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE, MidgardKeyConfigFile)) #define MIDGARD_KEY_CONFIG_FILE_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG_FILE, MidgardKeyConfigFileClass)) #define MIDGARD_IS_KEY_CONFIG_FILE(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE)) #define MIDGARD_IS_KEY_CONFIG_FILE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG_FILE)) #define MIDGARD_KEY_CONFIG_FILE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE, MidgardKeyConfigFileClass)) typedef struct _MidgardKeyConfigFile MidgardKeyConfigFile; typedef struct _MidgardKeyConfigFileClass MidgardKeyConfigFileClass; typedef struct _MidgardKeyConfigFilePrivate MidgardKeyConfigFilePrivate; struct _MidgardKeyConfigContext { GObject parent_instance; MidgardKeyConfigContextPrivate * priv; }; struct _MidgardKeyConfigContextClass { GObjectClass parent_class; char** (*list_key_config) (MidgardKeyConfigContext* self, int* result_length1); }; struct _MidgardKeyConfigFileContext { MidgardKeyConfigContext parent_instance; MidgardKeyConfigFileContextPrivate * priv; }; struct _MidgardKeyConfigFileContextClass { MidgardKeyConfigContextClass parent_class; }; typedef enum { KEY_CONFIG_CONTEXT_ERROR_PATH_IS_NOT_ABSOLUTE } KeyConfigContextError; #define KEY_CONFIG_CONTEXT_ERROR key_config_context_error_quark () struct _MidgardKeyConfig { GObject parent_instance; MidgardKeyConfigPrivate * priv; char* path; MidgardKeyConfigContext* context; }; struct _MidgardKeyConfigClass { GObjectClass parent_class; void (*set_value) (MidgardKeyConfig* self, const char* group, const char* key, const char* value); char* (*get_value) (MidgardKeyConfig* self, const char* group, const char* key); void (*set_comment) (MidgardKeyConfig* self, const char* group, const char* key, const char* comment); char* (*get_comment) (MidgardKeyConfig* self, const char* group, const char* key); char** (*list_groups) (MidgardKeyConfig* self, int* result_length1); gboolean (*group_exists) (MidgardKeyConfig* self, const char* name); gboolean (*delete_group) (MidgardKeyConfig* self, const char* name); gboolean (*store) (MidgardKeyConfig* self); gboolean (*load_from_data) (MidgardKeyConfig* self, const char* data); char* (*to_data) (MidgardKeyConfig* self); }; struct _MidgardKeyConfigFile { MidgardKeyConfig parent_instance; MidgardKeyConfigFilePrivate * priv; }; struct _MidgardKeyConfigFileClass { MidgardKeyConfigClass parent_class; }; GType midgard_key_config_context_get_type (void); MidgardKeyConfigContext* midgard_key_config_context_construct (GType object_type, const char* context_path); char** midgard_key_config_context_list_key_config (MidgardKeyConfigContext* self, int* result_length1); const char* midgard_key_config_context_get_context_path (MidgardKeyConfigContext* self); GType midgard_key_config_file_context_get_type (void); GQuark key_config_context_error_quark (void); MidgardKeyConfigFileContext* midgard_key_config_file_context_new (const char* context_path, GError** error); MidgardKeyConfigFileContext* midgard_key_config_file_context_construct (GType object_type, const char* context_path, GError** error); GType midgard_key_config_get_type (void); GType midgard_key_config_file_get_type (void); MidgardKeyConfigFile* midgard_key_config_file_new (MidgardKeyConfigFileContext* keyctx, const char* path, GError** error); MidgardKeyConfigFile* midgard_key_config_file_construct (GType object_type, MidgardKeyConfigFileContext* keyctx, const char* path, GError** error); MidgardKeyConfig* midgard_key_config_construct (GType object_type, MidgardKeyConfigContext* keyctx, const char* path); void midgard_key_config_set_value (MidgardKeyConfig* self, const char* group, const char* key, const char* value); char* midgard_key_config_get_value (MidgardKeyConfig* self, const char* group, const char* key); void midgard_key_config_set_comment (MidgardKeyConfig* self, const char* group, const char* key, const char* comment); char* midgard_key_config_get_comment (MidgardKeyConfig* self, const char* group, const char* key); char** midgard_key_config_list_groups (MidgardKeyConfig* self, int* result_length1); gboolean midgard_key_config_group_exists (MidgardKeyConfig* self, const char* name); gboolean midgard_key_config_delete_group (MidgardKeyConfig* self, const char* name); gboolean midgard_key_config_store (MidgardKeyConfig* self); gboolean midgard_key_config_load_from_data (MidgardKeyConfig* self, const char* data); char* midgard_key_config_to_data (MidgardKeyConfig* self); G_END_DECLS #endif midgard2-core-10.05.7.1/src/midgard_reflection_property.h0000664000175000017500000000617011772046240020121 00000000000000/* * Copyright (C) 2006 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_REFLECTION_PROPERTY_H #define MIDGARD_REFLECTION_PROPERTY_H #include "midgard_type.h" #include "midgard_object.h" /* convention macros */ #define MIDGARD_TYPE_REFLECTION_PROPERTY (midgard_reflection_property_get_type()) #define MIDGARD_REFLECTION_PROPERTY(object) \ (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_REFLECTION_PROPERTY, MidgardReflectionProperty)) #define MIDGARD_REFLECTION_PROPERTY_CLASS(klass) \ (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_REFLECTION_PROPERTY, MidgardReflectionPropertyClass)) #define MIDGARD_IS_REFLECTION_PROPERTY(object) \ (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_REFLECTION_PROPERTY)) #define MIDGARD_IS_REFLECTION_PROPERTY_CLASS(klass) \ (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_REFLECTION_OBJECT_PROPERTY)) #define MIDGARD_REFLECTION_PROPERTY_GET_CLASS(obj) \ (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_REFLECTION_PROPERTY, MidgardReflectionPropertyClass)) typedef struct _MidgardReflectionProperty MidgardReflectionProperty; typedef struct _MidgardReflectionPropertyClass MidgardReflectionPropertyClass; struct _MidgardReflectionPropertyClass{ GObjectClass parent; }; GType midgard_reflection_property_get_type(void); MidgardReflectionProperty *midgard_reflection_property_new (MidgardDBObjectClass *klass); GType midgard_reflection_property_get_midgard_type (MidgardReflectionProperty *self, const gchar *propname); gboolean midgard_reflection_property_is_link (MidgardReflectionProperty *self, const gchar *propname); gboolean midgard_reflection_property_is_linked (MidgardReflectionProperty *self, const gchar *propname); const MidgardDBObjectClass *midgard_reflection_property_get_link_class (MidgardReflectionProperty *self, const gchar *propname); const gchar *midgard_reflection_property_get_link_name (MidgardReflectionProperty *self, const gchar *propname); const gchar *midgard_reflection_property_get_link_target (MidgardReflectionProperty *self, const gchar *propname); const gchar *midgard_reflection_property_description (MidgardReflectionProperty *self, const gchar *propname); const gchar *midgard_reflection_property_get_user_value (MidgardReflectionProperty *self, const gchar *property, const gchar *name); gboolean midgard_reflection_property_is_private (MidgardReflectionProperty *self, const gchar *property); #endif /* MIDGARD_REFLECTION_PROPERTY_H */ midgard2-core-10.05.7.1/src/midgard_validable.c0000664000175000017500000000542511772046240015743 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_validable.h" /** * midgard_validable_error_quark: (skip) * * Returns: MIDGARD_VALIDATION_ERROR quark */ GQuark midgard_validation_error_quark (void) { static GQuark q = 0; if (q == 0) q = g_quark_from_static_string ("midgard-validation-error-quark"); return q; } /** * midgard_validable_validate: * @self: #MidgardValidable instance * @error (error-domains MIDGARD_VALIDATION_ERROR): location to store error * * Validate given instance. * Implementation shall validate given instance, and in case when it's invalid, * particular error shoudl be set. If instance is valid, error should be NULL. * * Since: 10.05.5 */ void midgard_validable_validate (MidgardValidable *self, GError **error) { if (MIDGARD_VALIDABLE_GET_INTERFACE (self)->validate == NULL) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_INTERNAL, "%s class doesn't implement validate() method", G_OBJECT_TYPE_NAME (self)); } MIDGARD_VALIDABLE_GET_INTERFACE (self)->validate (self, error); } /** * midgard_validable_is_valid: * @self: #MidgardValidable instance * * Check if given #MidgardValidable instance is marked as valid. * Implementation shall not validate given instance. * * Returns: %TRUE if it's valid, %FALSE otherwise * Since: 10.05.5 */ gboolean midgard_validable_is_valid (MidgardValidable *self) { if (MIDGARD_VALIDABLE_GET_INTERFACE (self)->is_valid == NULL) { return FALSE; } return MIDGARD_VALIDABLE_GET_INTERFACE (self)->is_valid (self); } GType midgard_validable_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardValidableIFace), NULL, /* base_init */ NULL, /* base_finalize */ NULL, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_INTERFACE, "MidgardValidable", &info, 0); g_type_interface_add_prerequisite (type, G_TYPE_OBJECT); } return type; } midgard2-core-10.05.7.1/src/midgard_object.c0000664000175000017500000034621011772046240015266 00000000000000/* Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010 Piotr Pokora Copyright (C) 2004 Alexander Bokovoy This program is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include #include "midgard_defs.h" #include "midgard_type.h" #include "midgard_reflector_object.h" #include "midgard_metadata.h" #include "query_builder.h" #include "midgard_timestamp.h" #include "midgard_datatypes.h" #include "midgard_quota.h" #include "schema.h" #include "midgard_reflection_property.h" #include "midgard_error.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" #include "midgard_core_query.h" #include "midgard_connection.h" #include "midgard_collector.h" #include "guid.h" #include "midgard_dbobject.h" #include "midgard_user.h" #include "midgard_dbus.h" #include "midgard_core_query.h" #include "midgard_core_query_builder.h" #include "midgard_core_metadata.h" #include "midgard_object_parameter.h" #include "midgard_object_attachment.h" #include "midgard_schema_object_factory.h" #include "midgard_schema_object_tree.h" #include #include "midgard_core_workspace.h" #include "midgard_workspace.h" #include "midgard_workspace_storage.h" #include "midgard_core_config.h" #include "midgard_repligard.h" #include "midgard_base_abstract.h" #include "midgard_base_interface.h" GType _midgard_attachment_type = 0; static gboolean signals_registered = FALSE; static GObjectClass *__mgdschema_parent_class = NULL; static GObjectClass *__db_object_class = NULL; static GObject *__mgdschema_object_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties); static void __mgdschema_object_dispose (GObject *object); static void __add_core_properties(MgdSchemaTypeAttr *type_attr); static gint __insert_or_update_records(MidgardObject *object, const gchar *table, gint query_type, const gchar *where); enum { MIDGARD_PROPERTY_NULL = 0, MIDGARD_PROPERTY_GUID, MIDGARD_PROPERTY_METADATA }; enum { OBJECT_IN_TREE_NONE = 0, OBJECT_IN_TREE_DUPLICATE, }; enum { _SQL_QUERY_CREATE = 0, _SQL_QUERY_UPDATE }; #define __dbus_send(_obj, _action) { \ MidgardConnection *__mgd = MGD_OBJECT_CNC (_obj); \ if (MGD_CNC_DBUS(__mgd)) { \ gchar *_dbus_path = g_strconcat("/mgdschema/", \ G_OBJECT_TYPE_NAME(G_OBJECT(_obj)), \ "/", _action, NULL); \ midgard_core_dbus_send_serialized_object(_obj, _dbus_path); \ g_free(_dbus_path); \ } \ } static GParamSpec **_midgard_object_class_paramspec() { /* Hardcode MidgardRepligardClass parameters. Those will be inherited with MidgardObject * and thus do not bother about Midgard basic and core parameters later. * We also should hardcode these parameters to keep one real Midgard object * which has "one logic" properties and methods. */ /* Last value is 'params[n]+1' */ GParamSpec **params = g_malloc(sizeof(GParamSpec*)*4); params[0] = g_param_spec_string ("guid", "", "GUID identifier of the object", "", G_PARAM_READABLE); params[1] = g_param_spec_object ("metadata", "", "midgard_metadata for the object", MIDGARD_TYPE_METADATA, G_PARAM_READWRITE); params[2] = g_param_spec_string ("action", "", "Last action done to the object", "", G_PARAM_READWRITE); params[3] = NULL; return params; } /* Initialize instance for all types that are not MidgardRepligardClass type. */ static void __midgard_object_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardObject *self = (MidgardObject *) instance; /* Midgard Object Private */ self->priv = g_new0 (MidgardObjectPrivate, 1); self->priv->action = NULL; self->priv->exported = NULL; self->priv->imported = NULL; self->priv->parameters = NULL; self->priv->_params = NULL; } /* AB: This is shortcut macro for traversing through class hierarchy (from child to ancestor) * until we reach GObject. On each iteration we fetch private data storage for the object * according to the current class type and run supplied code. * This allows us to implement dynamic subclassing cast which is done usually via compiled * time structure casts in appropriate class-specific hooks for each class in a hierarchy. * As our object classes have the same structure at each level of inheritance, we are able * to use the same triple of functions for get_property(), set_property(), and finalize() * for each class. */ #define G_MIDGARD_LOOP_HIERARCHY_START \ do { \ if (current_type == MIDGARD_TYPE_OBJECT) break; \ priv = G_TYPE_INSTANCE_GET_PRIVATE (object, current_type, MgdSchemaTypeAttr); \ #define G_MIDGARD_LOOP_HIERARCHY_STOP \ current_type = g_type_parent(current_type); \ } while (current_type != MIDGARD_TYPE_DBOBJECT); /* AB: Handle property assignments. Despite its simplicity, this is *very* important function */ static void __midgard_object_set_property (GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec) { gint prop_id_local = 0; GType current_type = G_TYPE_FROM_INSTANCE(object); MgdSchemaTypeAttr *priv = G_TYPE_INSTANCE_GET_PRIVATE (object, current_type, MgdSchemaTypeAttr); MidgardObject *self = (MidgardObject *) object; MgdSchemaPropertyAttr *prop; MidgardConnection *mgd = MGD_OBJECT_CNC (MIDGARD_DBOBJECT (object)); if (midgard_core_object_property_refuse_private (mgd, priv, MIDGARD_DBOBJECT (object), pspec->name)) return; if (MIDGARD_DBOBJECT (self)->dbpriv->datamodel) { g_object_unref (MIDGARD_DBOBJECT (self)->dbpriv->datamodel); MIDGARD_DBOBJECT (self)->dbpriv->datamodel = NULL; } switch (prop_id) { case MIDGARD_PROPERTY_GUID: g_debug("Setting guid property is not allowed"); break; case MIDGARD_PROPERTY_METADATA: MGD_DBOBJECT_METADATA (self) = g_value_get_object (value); break; default: G_MIDGARD_LOOP_HIERARCHY_START prop_id_local = prop_id - priv->base_index - 1; if ((prop_id_local >= 0) && (prop_id_local < priv->num_properties)) { if (priv->num_properties) { prop = priv->properties[prop_id_local]; if (!G_IS_VALUE(&prop->value)) { g_value_init(&prop->value, G_VALUE_TYPE(value)); /* g_debug(" Set property %s", pspec->name ); */ } g_value_copy(value, &prop->value); } return; } G_MIDGARD_LOOP_HIERARCHY_STOP } } /* Get object's property */ static void __midgard_object_get_property (GObject *object, guint prop_id, GValue *value, GParamSpec *pspec) { gint prop_id_local = 0; GType current_type = G_TYPE_FROM_INSTANCE(object); MgdSchemaTypeAttr *priv = G_TYPE_INSTANCE_GET_PRIVATE (object, current_type, MgdSchemaTypeAttr); MidgardObject *self = (MidgardObject *) object; MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_GET_CLASS (object); MidgardConnection *mgd = MGD_OBJECT_CNC (MIDGARD_DBOBJECT (object)); GValue *pval; if (midgard_core_object_property_refuse_private (mgd, priv, MIDGARD_DBOBJECT (object), pspec->name)) return; if (dbklass->dbpriv->get_property (MIDGARD_DBOBJECT (self), pspec->name, value)) return; switch (prop_id) { case MIDGARD_PROPERTY_GUID: g_value_set_string (value, MGD_OBJECT_GUID (self)); break; case MIDGARD_PROPERTY_METADATA: if (MGD_DBOBJECT_METADATA (self) && G_IS_OBJECT (MGD_DBOBJECT_METADATA (self))) g_value_set_object (value, (MidgardMetadata *) MGD_DBOBJECT_METADATA (self)); break; default: G_MIDGARD_LOOP_HIERARCHY_START prop_id_local = prop_id - priv->base_index - 1; if ((prop_id_local >= 0) && ( prop_id_local < priv->num_properties)) { if (priv->num_properties) { if (priv->properties) { pval = &priv->properties[prop_id_local]->value; if (G_IS_VALUE (pval)) { g_value_copy(pval, value); } else { /* Initialize Midgardtimestamp. * There's no need to do it in constructor. Just do it when it's really needed */ if (G_VALUE_TYPE (value) == MGD_TYPE_TIMESTAMP) { MidgardTimestamp *mt = midgard_timestamp_new (); g_value_init (pval, MGD_TYPE_TIMESTAMP); g_value_take_boxed (pval, mt); g_value_copy (pval, value); } } } } return; } G_MIDGARD_LOOP_HIERARCHY_STOP } } static void __mgdschema_object_dispose (GObject *object) { MidgardObject *self = MIDGARD_OBJECT (object); /* Free object's parameters */ if (self->priv->parameters != NULL) { GSList *_param = self->priv->parameters; for (; _param; _param = _param->next) { g_object_unref(_param->data); } g_slist_free(self->priv->parameters); self->priv->parameters = NULL; } GObjectClass *parent_class = g_type_class_peek (MIDGARD_TYPE_DBOBJECT); parent_class->dispose (object); } /* * Finalizer for MidgardObject instance. * Cleans up all allocated data. As optimization, it handles all data * which belongs to its ancestors up to but not inluding GObject. * It is really makes no sense to call this function recursively * for each ancestor because we already know object's structure. * For GObject we call its finalizer directly. */ static void __mgdschema_object_finalize (GObject *object) { guint idx; MgdSchemaTypeAttr *priv; if (object == NULL) return; MidgardObject *self = (MidgardObject *)object; /* Free private struct members and MidgardTypePrivate */ g_free((gchar *)self->priv->action); g_free(self->priv->exported); g_free(self->priv->imported); if (self->priv->_params != NULL) g_hash_table_destroy(self->priv->_params); g_free(self->priv); self->priv = NULL; GType current_type = G_TYPE_FROM_INSTANCE(object); G_MIDGARD_LOOP_HIERARCHY_START for (idx = 0; idx < priv->num_properties; idx++) { if (priv->properties[idx]) { if (G_IS_VALUE(&priv->properties[idx]->value)) { g_value_unset(&priv->properties[idx]->value); } g_free (priv->properties[idx]); priv->properties[idx] = NULL; } } if (priv->properties) { g_free (priv->properties); priv->properties = NULL; } G_MIDGARD_LOOP_HIERARCHY_STOP /* Call parent's finalizer if it is there */ { GObjectClass *parent_class = g_type_class_ref (MIDGARD_TYPE_OBJECT); if (parent_class->finalize) { parent_class->finalize (object); } g_type_class_unref (parent_class); } } static gboolean _is_circular(MidgardObject *object) { MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS(object); GParamSpec *pspec = g_object_class_find_property(G_OBJECT_GET_CLASS(object), "id"); /* There's no id property so we do not have up or parent reference */ if (!pspec) return FALSE; guint oid = 0; g_object_get(G_OBJECT(object), "id", &oid, NULL); /* Probably it's creation */ if (oid == 0) return FALSE; const gchar *up_prop = midgard_reflector_object_get_property_parent (G_OBJECT_TYPE_NAME (object)); /* there's goto statement, because we might want to check other * circular references in a near future */ if (up_prop == NULL) goto _CHECK_IS_UP_CIRCULAR; _CHECK_IS_UP_CIRCULAR: up_prop = midgard_reflector_object_get_property_up (G_OBJECT_TYPE_NAME (object)); if (up_prop == NULL) return FALSE; /* Ignore, if up property is a link to different class */ MidgardReflectionProperty *mrp = midgard_reflection_property_new (MIDGARD_DBOBJECT_CLASS (klass)); const MidgardDBObjectClass *linked_klass = midgard_reflection_property_get_link_class (mrp, up_prop); g_object_unref (mrp); if (MIDGARD_DBOBJECT_CLASS (linked_klass) != MIDGARD_DBOBJECT_CLASS (klass)) return FALSE; /* we checked up property so "parent" class is of the same type */ GValue *idval = g_new0(GValue, 1); g_value_init(idval , G_TYPE_UINT); g_value_set_uint(idval, oid); MidgardCollector *mc = midgard_collector_new(MGD_OBJECT_CNC (object), G_OBJECT_TYPE_NAME(object), up_prop, idval); midgard_collector_set_key_property(mc, "id", NULL); if (!midgard_collector_execute(mc)){ g_object_unref(mc); return FALSE; } gchar **keys = midgard_collector_list_keys(mc); g_object_unref(mc); if (keys == NULL) return FALSE; guint id_up = 0; g_object_get(G_OBJECT(object), up_prop, &id_up, NULL); guint i = 0; while(keys[i] != NULL) { if ((guint)atol(keys[i]) == id_up) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_TREE_IS_CIRCULAR); return TRUE; } i++; } return FALSE; } /* TODO, replace execute with distinct if needed */ guint _object_in_tree(MidgardObject *object) { GParamSpec *name_prop, *up_prop; GValue pval = {0,}; const gchar *classname = G_OBJECT_TYPE_NAME (object); if (_is_circular(object)) return OBJECT_IN_TREE_DUPLICATE; const gchar *upname = midgard_reflector_object_get_property_parent (classname); const gchar *unique_name = midgard_reflector_object_get_property_unique (classname); if (upname == NULL) upname = midgard_reflector_object_get_property_up (classname); if (upname == NULL) return OBJECT_IN_TREE_NONE; if (unique_name == NULL) return OBJECT_IN_TREE_NONE; up_prop = g_object_class_find_property( G_OBJECT_GET_CLASS(G_OBJECT(object)), upname); name_prop = g_object_class_find_property( G_OBJECT_GET_CLASS(G_OBJECT(object)), unique_name); if ((name_prop == NULL) || (up_prop == NULL)) return OBJECT_IN_TREE_NONE; MidgardQueryBuilder *builder = midgard_query_builder_new(MGD_OBJECT_CNC (object), G_OBJECT_TYPE_NAME(object)); /* Add up or parent constraint */ g_value_init(&pval,up_prop->value_type); g_object_get_property(G_OBJECT(object), upname, &pval); midgard_query_builder_add_constraint(builder, upname, "=", &pval); g_value_unset(&pval); /* Add name property constraint */ g_value_init(&pval,name_prop->value_type); g_object_get_property(G_OBJECT(object), unique_name, &pval); /* Check empty name, not null */ const gchar *tmpstr = g_value_get_string(&pval); if (!tmpstr) tmpstr = ""; if (g_str_equal(tmpstr, "")){ g_object_unref(builder); g_value_unset(&pval); return OBJECT_IN_TREE_NONE; } midgard_query_builder_add_constraint(builder, unique_name, "=", &pval); g_value_unset(&pval); /* set limit so we do not have to check how many objects should be freed */ midgard_query_builder_set_limit (builder, 1); guint n_objects; GObject **ret_object = midgard_query_builder_execute(builder, &n_objects); g_object_unref (builder); /* Name is not duplicated, return */ if (!ret_object) return FALSE; gboolean duplicate = TRUE; const gchar *retguid = MGD_OBJECT_GUID (ret_object[0]); const gchar *guid = MGD_OBJECT_GUID (object); if (g_str_equal(retguid, guid)) duplicate = FALSE; g_object_unref(ret_object[0]); g_free(ret_object); if (duplicate) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_DUPLICATE); return OBJECT_IN_TREE_DUPLICATE; } /* PP:I am not sure if we really need this for every object. * Static path for dynamic applications is needless. * However path should be build or used for applications * which do not change paths for libraries snippets code * */ /* (void *) midgard_object_build_path(mobj); */ return OBJECT_IN_TREE_NONE; } /** * midgard_object_set_guid: * @self: #MidgardObject instance * @guid: guid to set * * Sets object's guid * * Cases to return %FALSE: * * * given guid already exists in database ( MGD_ERR_DUPLICATE ) * * * given guid is invalid ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * object has already set guid property ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * object is deleted or purged ( MGD_ERR_OBJECT_DELETED or MGD_ERR_OBJECT_PURGED ) * * * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_object_set_guid(MidgardObject *self, const gchar *guid) { g_assert(self != NULL); g_assert(guid != NULL); MidgardConnection *mgd = MGD_OBJECT_CNC (self); MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (self), MGD_ERR_OK); if (MGD_OBJECT_GUID (self) != NULL) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (self), MGD_ERR_INVALID_PROPERTY_VALUE); return FALSE; } if (!midgard_is_guid(guid)) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (self), MGD_ERR_INVALID_PROPERTY_VALUE); return FALSE; } MidgardObject *dbobject = midgard_schema_object_factory_get_object_by_guid(MGD_OBJECT_CNC (self), guid); if (dbobject) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (self), MGD_ERR_DUPLICATE); g_object_unref(dbobject); return FALSE; } gint errcode = midgard_connection_get_error (mgd); if (!dbobject && (errcode == MGD_ERR_OBJECT_DELETED || errcode == MGD_ERR_OBJECT_PURGED)) return FALSE; if (MGD_OBJECT_GUID (self)) g_free ((gchar *) MGD_OBJECT_GUID (self)); MGD_OBJECT_GUID (self) = g_strdup(guid); return TRUE; } gboolean _midgard_object_update (MidgardObject *self, _ObjectActionUpdate replicate, GError **error) { g_return_val_if_fail (self != NULL, FALSE); gchar *fquery = ""; const gchar *table; GString *sql = NULL; guint object_init_size = 0; GError *err = NULL; g_debug ("UPDATE OBJECT WITH WS_OID (%i) ", MGD_OBJECT_WS_OID (self)); MidgardConnection *mgd = MGD_OBJECT_CNC (self); MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_GET_CLASS (self); MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); if (MGD_OBJECT_GUID (self) == NULL) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INVALID_PROPERTY_VALUE, "Can not update '%s'. Object's guid is NULL.", G_OBJECT_TYPE_NAME (G_OBJECT (self))); MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INVALID_PROPERTY_VALUE, "%s", (*error)->message); return FALSE; } /* Get object's size as it's needed for size' diff. * midgard_core_object_is_valid computes new size */ MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (self); if (metadata) object_init_size = metadata->priv->size; if (!midgard_core_object_is_valid(self)) return FALSE; if (MIDGARD_DBOBJECT (self)->dbpriv->storage_data == NULL) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "This is absolutely critical and internal error. No type metadata attributes for '%s' class.", G_OBJECT_TYPE_NAME (G_OBJECT (self))); MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "%s", (*error)->message); return FALSE; } table = midgard_core_class_get_table(dbklass); if (table == NULL) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Can not update. No table configured for '%s' class.", G_OBJECT_TYPE_NAME (G_OBJECT (self))); MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "%s", (*error)->message); return FALSE; } /* Check duplicates and parent field */ if (_object_in_tree(self) == OBJECT_IN_TREE_DUPLICATE) return FALSE; if (metadata) { guint object_size = metadata->priv->size; if (midgard_quota_size_is_reached(self, object_size)){ MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (self), MGD_ERR_QUOTA); return FALSE; } } if (MGD_CNC_USES_WORKSPACE (mgd)) { /* Set workspace context */ GdaSet *params = dbklass->dbpriv->get_statement_update_params (dbklass, mgd); if (!params) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to get parameters for prepared UPDATE statement (%s).", G_OBJECT_CLASS_NAME (dbklass)); return FALSE; } /* Workspace id */ gda_set_set_holder_value (params, NULL, MGD_WORKSPACE_ID_FIELD, MGD_CNC_WORKSPACE_ID(mgd)); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to set workspace id UPDATE parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } /* Workspace object id */ g_debug ("UPDATE OBJECT, SET PARAM WS_OID (%i) ", MGD_OBJECT_WS_OID (self)); gda_set_set_holder_value (params, NULL, MGD_WORKSPACE_OID_FIELD, MGD_OBJECT_WS_OID (self)); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to set object's workspace id UPDATE parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } } gint updated = midgard_core_query_update_dbobject_record (MIDGARD_DBOBJECT (self), &err); if (updated == 0) { g_propagate_error (error, err); return FALSE; } if (updated < 0) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "SQL query UPDATE failed: %s", err && err->message ? err->message : "Unknown reason"); if (err) g_clear_error (&err); return FALSE; } midgard_quota_update(self, object_init_size); /* Do not touch repligard table if replication is disabled */ if (MGD_CNC_REPLICATION (mgd)) { MidgardRepligard *repligard = midgard_repligard_new (mgd); if (!repligard) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Can not initialize repligard object"); return FALSE; } midgard_repligard_update_object_info (repligard, self, MGD_OBJECT_ACTION_UPDATE, &err); g_object_unref (repligard); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Couldn't update repligard record info for '%s': %s", G_OBJECT_TYPE_NAME (self), err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } } /* Success, emit done signals */ switch(replicate){ case OBJECT_UPDATE_NONE: g_signal_emit(self, MIDGARD_OBJECT_GET_CLASS(self)->signal_action_updated, 0); break; case OBJECT_UPDATE_EXPORTED: g_signal_emit(self, MIDGARD_OBJECT_GET_CLASS(self)->signal_action_exported, 0); break; case OBJECT_UPDATE_IMPORTED: g_signal_emit(self, MIDGARD_OBJECT_GET_CLASS(self)->signal_action_imported, 0); break; case OBJECT_UPDATE_CREATE: /* DO nothing, satisfy compiler */ break; } return TRUE; } /** * midgard_object_update: * @self: #MidgardObject instance * * Update object's record(s). * * Internally such metadata properties are set (overwritten): * * * revisor * * * revision ( increased by one ) * * * revised * * * * Cases to return %FALSE: * * * Property registered with #MGD_TYPE_GUID doesn't hold valid guid ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * Object's class is registered with tree facilities and there is already such object in midgard tree ( MGD_ERR_DUPLICATE ) * * * Quota is activated and its limit is reached ( MGD_ERR_QUOTA ) * * * Unspecified internal error ( MGD_ERR_INTERNAL ) * * * * Returns: %TRUE if object's record(s) is successfully updated, %FALSE otherwise. */ gboolean midgard_object_update (MidgardObject *self) { g_signal_emit(self, MIDGARD_OBJECT_GET_CLASS(self)->signal_action_update, 0); GError *error = NULL; gboolean rv = _midgard_object_update(self, OBJECT_UPDATE_NONE, &error); MidgardConnection *mgd = MGD_OBJECT_CNC (self); /* If there's workspace enabled, try to create object's record, * if particular 'NOT_EXISTS' error is set. */ if (MGD_CNC_USES_WORKSPACE (MGD_OBJECT_CNC (self)) && error && error->domain == MIDGARD_GENERIC_ERROR && error->code == MGD_ERR_NOT_EXISTS) { return _midgard_object_create (self, MGD_OBJECT_GUID (self), OBJECT_UPDATE_CREATE); } if (!rv) { if (midgard_connection_get_error (mgd) == MGD_ERR_OK) MIDGARD_ERRNO_SET (mgd, MGD_ERR_INTERNAL); if (error) g_clear_error (&error); return FALSE; } MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); __dbus_send(self, "update"); return TRUE; } /** * midgard_object_save: * @self: #MidgardObject instance * * This method combines update and create routines. * It tries to update object, and if this one fails because object's record doesn't exist, * it creates it. It's helper routine for application which needs to store object, though * it might be a bit slower than create or update method. * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05.5 */ gboolean midgard_object_save (MidgardObject *self) { g_return_val_if_fail (self != NULL, FALSE); g_signal_emit(self, MIDGARD_OBJECT_GET_CLASS(self)->signal_action_update, 0); GError *error = NULL; gboolean rv = _midgard_object_update(self, OBJECT_UPDATE_NONE, &error); MidgardConnection *mgd = MGD_OBJECT_CNC (self); if (error && error->domain == MIDGARD_GENERIC_ERROR && error->code == MGD_ERR_NOT_EXISTS) { return _midgard_object_create (self, MGD_OBJECT_GUID (self), OBJECT_UPDATE_CREATE); } if (!rv) { MIDGARD_ERRNO_SET_STRING (MGD_OBJECT_CNC (self), MGD_ERR_INTERNAL, "%s", error && error->message ? error->message : "Unknown error"); g_clear_error (&error); return FALSE; } MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); __dbus_send(self, "update"); return TRUE; } static GPtrArray *__get_glists(MidgardObject *object) { GPtrArray *gparray = g_ptr_array_new(); guint n_prop, i; GList *cols = NULL; GList *values = NULL; GValue pval = {0, }; const gchar *colname; const gchar *classname = G_OBJECT_TYPE_NAME (object); GParamSpec **pspecs = g_object_class_list_properties(G_OBJECT_GET_CLASS(object), &n_prop); MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS(object); for (i = 0; i < n_prop; i++) { if (G_TYPE_FUNDAMENTAL (pspecs[i]->value_type) == G_TYPE_OBJECT) continue; colname = midgard_core_class_get_property_colname( MIDGARD_DBOBJECT_GET_CLASS(object), pspecs[i]->name); if (colname == NULL) continue; /* FIXME, we should have boolean(s) here , not g_str_equal */ const gchar *pprop = midgard_reflector_object_get_property_primary(classname); if (g_str_equal(pprop, pspecs[i]->name)) { if (pspecs[i]->value_type == G_TYPE_UINT || pspecs[i]->value_type == G_TYPE_INT) continue; } g_value_init(&pval, pspecs[i]->value_type); g_object_get_property(G_OBJECT(object), pspecs[i]->name, &pval); GValue *dval = g_new0(GValue, 1); if (G_VALUE_TYPE (&pval) == MGD_TYPE_TIMESTAMP) { g_value_init (dval, GDA_TYPE_TIMESTAMP); g_value_transform (&pval, dval); } else { g_value_init(dval, pspecs[i]->value_type); g_value_copy((const GValue*) &pval, dval); } values = g_list_prepend(values, (gpointer) dval); cols = g_list_prepend(cols, (gpointer)colname); g_value_unset(&pval); } g_free(pspecs); if (MGD_DBCLASS_METADATA_CLASS (MIDGARD_DBOBJECT_CLASS (klass))) { n_prop = 0; MidgardMetadata *mdata = MGD_DBOBJECT_METADATA (object); pspecs = g_object_class_list_properties(G_OBJECT_GET_CLASS(mdata), &n_prop); for(i = 0; i < n_prop; i++) { colname = midgard_core_class_get_property_colname( MIDGARD_DBOBJECT_GET_CLASS(mdata), pspecs[i]->name); if (!colname) continue; g_value_init(&pval, pspecs[i]->value_type); g_object_get_property(G_OBJECT(mdata), pspecs[i]->name, &pval); GValue *dval = g_new0(GValue, 1); if (G_VALUE_TYPE (&pval) == MGD_TYPE_TIMESTAMP) { g_value_init (dval, GDA_TYPE_TIMESTAMP); g_value_transform (&pval, dval); } else { g_value_init(dval, pspecs[i]->value_type); g_value_copy((const GValue*) &pval, dval); } values = g_list_prepend(values, (gpointer) dval); cols = g_list_prepend(cols, (gpointer)colname); g_value_unset(&pval); } g_free (pspecs); } g_ptr_array_add (gparray, (gpointer) cols); g_ptr_array_add (gparray, (gpointer) values); return gparray; } gint __insert_or_update_records(MidgardObject *object, const gchar *tablename, gint query_type, const gchar *where) { GPtrArray *gparray; GList *l, *values; gint inserted = -1; /* INSERT object's record */ gparray = __get_glists(object); inserted = midgard_core_query_insert_records( MGD_OBJECT_CNC (object), tablename, (GList*) g_ptr_array_index (gparray, 0), (GList*) g_ptr_array_index (gparray, 1), query_type, where); g_list_free((GList*) g_ptr_array_index (gparray, 0)); values = (GList*) g_ptr_array_index (gparray, 1); for(l = values; l != NULL; l = l->next){ g_value_unset((GValue *) l->data); g_free((GValue *) l->data); } g_list_free(values); g_ptr_array_free (gparray, TRUE); return inserted; } #define _CLEAR_OBJECT_GUID(object) \ g_free ((gchar *)MGD_OBJECT_GUID(object)); \ MGD_OBJECT_GUID(object) = NULL; /* Create object's data in storage */ gboolean _midgard_object_create ( MidgardObject *object, const gchar *create_guid, _ObjectActionUpdate replicate) { GString *query; const gchar *tablename; MidgardConnection *mgd = MGD_OBJECT_CNC (object); GError *err = NULL; if (MIDGARD_DBOBJECT (object)->dbpriv->storage_data == NULL) return FALSE; /* Handle pure create call. If replicate is OBJECT_UPDATE_IMPORTED, then, * object has guid already set, which is valid for unserialized object */ if (replicate == OBJECT_UPDATE_NONE && midgard_is_guid (MGD_OBJECT_GUID (object)) && MGD_OBJECT_IN_STORAGE (object)) { midgard_set_error(mgd, MGD_GENERIC_ERROR, MGD_ERR_DUPLICATE, "Object already created."); return FALSE; } /* Create object's guid, only if it's not already set */ gchar *guid = NULL; if (MGD_OBJECT_GUID (object) == NULL) { if (create_guid == NULL) guid = midgard_guid_new(MGD_OBJECT_CNC (object)); else guid = g_strdup(create_guid); MGD_OBJECT_GUID (object) = guid; } /* check if object is valid */ if (!midgard_core_object_is_valid(object)) { _CLEAR_OBJECT_GUID (object); return FALSE; } MIDGARD_ERRNO_SET (MGD_OBJECT_CNC (object), MGD_ERR_OK); /* Disable person check */ /* if (object->person == NULL) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_ACCESS_DENIED); return FALSE; } */ MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_GET_CLASS (object); tablename = midgard_core_class_get_table (dbklass); /* FIXME , move this to object_is_valid */ if (tablename == NULL) { /* Object has no storage defined. Return FALSE as there is nothing to create */ g_warning ("Object '%s' has no table or storage defined!", G_OBJECT_TYPE_NAME(object)); MIDGARD_ERRNO_SET (MGD_OBJECT_CNC (object), MGD_ERR_NOT_EXISTS); return FALSE; } /* If Object has upfield set , check if property which points to up is set and has some value. * In other case, create Object and do INSERT, * as object is not "treeable" and may be created without * any parent object(typical for parameters or attachments). */ gint is_dup = _object_in_tree(object); if (is_dup == OBJECT_IN_TREE_DUPLICATE) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_DUPLICATE); _CLEAR_OBJECT_GUID (object); return FALSE; } if (!midgard_quota_create(object)) { _CLEAR_OBJECT_GUID (object); return FALSE; } if (MGD_CNC_USES_WORKSPACE (mgd)) { /* Set workspace context */ GdaSet *params = dbklass->dbpriv->get_statement_insert_params (dbklass, MGD_OBJECT_CNC (object)); if (!params) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to get parameters for prepared INSERT statement (%s).", G_OBJECT_CLASS_NAME (dbklass)); return FALSE; } /* Workspace id */ gda_set_set_holder_value (params, &err, MGD_WORKSPACE_ID_FIELD, MGD_CNC_WORKSPACE_ID(mgd)); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to set workspace id parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } /* Workspace object id */ gda_set_set_holder_value (params, &err, MGD_WORKSPACE_OID_FIELD, MGD_OBJECT_WS_OID (object)); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to set object's workspace id parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } } gint inserted = midgard_core_query_create_dbobject_record (MIDGARD_DBOBJECT (object)); if (inserted == -1) { _CLEAR_OBJECT_GUID (object); MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_INTERNAL); return FALSE; } /* Always! get ID of newly created object */ /* See: http://mail.gnome.org/archives/gnome-db-list/2007-April/msg00020.html */ guint new_id = 0; GValue ov = {0, }; g_value_init (&ov, G_TYPE_UINT); gboolean id_get = midgard_core_query_get_object_value (MIDGARD_DBOBJECT (object), "id", &ov); if (id_get) { new_id = g_value_get_uint (&ov); } g_value_unset (&ov); GParamSpec *pspec = g_object_class_find_property(G_OBJECT_GET_CLASS(object), "id"); if (pspec) { if (new_id == 0) { g_critical("Newly created %s object's id is 0! ( object's guid - %s )", G_OBJECT_TYPE_NAME(G_OBJECT(object)), MGD_OBJECT_GUID (object)); MIDGARD_ERRNO_SET (MGD_OBJECT_CNC (object), MGD_ERR_INTERNAL); return FALSE; } else { g_object_set(G_OBJECT(object), "id", new_id, NULL); } } /* UPDATE object's workspace data */ /* If workspace object id is 0 we do fallback to self id, to keep unique * oid reference. This is typical create without workspace context */ if (MGD_CNC_USES_WORKSPACE (mgd)) { MGD_OBJECT_WS_ID (object) = MGD_CNC_WORKSPACE_ID (mgd); guint oid = MGD_OBJECT_WS_OID (object); if (oid == 0) { MGD_OBJECT_WS_OID (object) = new_id; /* UPDATE WS object id field using newly created id value */ query = g_string_new ("UPDATE "); g_string_append_printf (query, " %s SET %s=%d WHERE id=%d", tablename, MGD_WORKSPACE_OID_FIELD, new_id, new_id); midgard_core_query_execute(MGD_OBJECT_CNC (object), query->str, FALSE); g_string_free(query, TRUE); } } /* INSERT repligard's record */ if (MGD_CNC_REPLICATION (mgd)) { MidgardRepligard *repligard = midgard_repligard_new (mgd); if (!repligard) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Can not initialize repligard object"); return FALSE; } midgard_repligard_create_object_info (repligard, object, &err); g_object_unref (repligard); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Couldn't create repligard record info for '%s': %s", G_OBJECT_TYPE_NAME (object), err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } } switch(replicate){ case OBJECT_UPDATE_NONE: case OBJECT_UPDATE_CREATE: g_signal_emit(object, MIDGARD_OBJECT_GET_CLASS(object)->signal_action_created, 0); break; case OBJECT_UPDATE_IMPORTED: g_signal_emit(object, MIDGARD_OBJECT_GET_CLASS(object)->signal_action_imported, 0); break; default: /* do nothing */ break; } MGD_OBJECT_IN_STORAGE (object) = TRUE; return TRUE; } /** * midgard_object_create: * @object: #MidgardObject instance * * Creates new database record(s) for object. * * Internally such properties are set (overwritten): * * * guid (if not set by root) * * * id (if set as primary property) * * * * Metadata overwritten properties: * * * creator * * * created * * * revisor * * * revised * * * revision * * * published ( set only, if not defined by user ) * * * * Cases to return %FALSE: * * * Property registered with #MGD_TYPE_GUID doesn't hold valid guid ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * Object's class is registered with tree facilities and there is already object with the same name in midgard tree. ( MGD_ERR_DUPLICATE ) * * * Object has guid property set already. ( MGD_ERR_DUPLICATE ) * * * Quota is activated and its limit is reached ( MGD_ERR_QUOTA ) * * * Unspecified internal error ( MGD_ERR_INTERNAL ) * * * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_object_create(MidgardObject *object) { g_assert(object != NULL); g_signal_emit(object, MIDGARD_OBJECT_GET_CLASS(object)->signal_action_create, 0); gboolean rv = _midgard_object_create(object, NULL, OBJECT_UPDATE_NONE); if (rv) { __dbus_send(object, "create"); } return rv; } void _object_copy_properties(GObject *src, GObject *dest) { g_assert(src != NULL && dest != NULL); guint nprop, i; GValue pval = {0, }; GParamSpec **props = g_object_class_list_properties( G_OBJECT_GET_CLASS(src), &nprop); /* guid property are set directly */ if (MIDGARD_IS_OBJECT(src) && MIDGARD_IS_OBJECT(dest)) { MIDGARD_DBOBJECT(dest)->dbpriv->guid = g_strdup(MIDGARD_DBOBJECT(src)->dbpriv->guid); } for(i = 2; i <+ nprop; i++){ g_value_init(&pval, props[i]->value_type); if (G_TYPE_FUNDAMENTAL (props[i]->value_type) == G_TYPE_OBJECT) { g_object_get_property(src, props[i]->name, &pval); GObject *nm = g_value_get_object(&pval); if (MIDGARD_IS_METADATA(nm)) midgard_core_metadata_copy_properties (MIDGARD_METADATA(nm), MGD_DBOBJECT_METADATA (dest)); } else { g_object_get_property(G_OBJECT(src), props[i]->name, &pval); g_object_set_property(G_OBJECT(dest), props[i]->name, &pval); } g_value_unset(&pval); } g_free(props); } /** * midgard_object_get_by_id: * @object: #MidgardObject instance * @id: object's integer identifier * * Fetch object's record(s) from database using 'id' property. * * This is common practice to use 'id' property with integer type when table's * id column stores unique, primary key value which identifies object and its record(s). * However primary property with integer type is freely defined by user. * * MidgardObject object instance must be created with midgard_object_new function. * When midgard connection handler is not associated with object instance, * application is terminated with 'assertion fails' error message being logged. * * Object instance created with this function should be freed using #g_object_unref. * * Cases to return %FALSE: * * * There's no 'id' primary property registered for object's class ( MGD_ERR_INTERNAL ) * * * Object's record can not be fetched from database ( MGD_ERR_NOT_EXISTS ) * * * unspecified internal error ( MGD_ERR_INTERNAL ) * * * * Returns: %TRUE if object is successfully fetched from database, %FALSE otherwise. */ gboolean midgard_object_get_by_id(MidgardObject *object, guint id) { g_assert(object != NULL); g_assert(MGD_OBJECT_CNC (object) != NULL); /* Reset errno */ MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_OK); GParamSpec *prop; MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS(object); /* Find "primary" property , just in case of fatal error */ prop = g_object_class_find_property((GObjectClass*)klass, "id"); if (prop == NULL){ MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_INTERNAL); g_warning("Primary property id not found for object's klass '%s'", G_OBJECT_TYPE_NAME(object)); return FALSE; } /* Stop when property is not uint type */ g_assert((prop->value_type == G_TYPE_UINT)); /* Get primary's property value */ GValue pval = {0,}; g_value_init(&pval,prop->value_type); g_value_set_uint(&pval, id); /* Get object using 'id' constraint */ GError *err = NULL; midgard_core_query_get_object (MGD_OBJECT_CNC (object), NULL, (MidgardDBObject **) &object, &err, "id", &pval, NULL); g_value_unset (&pval); if (err) { MIDGARD_ERRNO_SET_STRING (MGD_OBJECT_CNC(object), MGD_ERR_NOT_EXISTS, "%s", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } MIDGARD_ERRNO_SET(MGD_OBJECT_CNC(object), MGD_ERR_OK); __dbus_send(object, "get"); return TRUE; } static gboolean __add_workspace_columns (MidgardConnection *mgd, MidgardDBObjectClass *klass) { /* Workspace id */ const gchar *table = MGD_DBCLASS_TABLENAME (klass); MidgardDBColumn *mdc = midgard_core_dbcolumn_new (); mdc->table_name = table; mdc->column_name = MGD_WORKSPACE_ID_FIELD; mdc->index = TRUE; mdc->dbtype = "int"; mdc->gtype = MGD_TYPE_INT; mdc->unique = FALSE; mdc->dvalue = "0"; gboolean rv = midgard_core_query_add_column (mgd, mdc); g_free (mdc); if (!rv) return FALSE; /* Workspace object id */ mdc = midgard_core_dbcolumn_new (); mdc->table_name = table; mdc->column_name = MGD_WORKSPACE_OID_FIELD; mdc->index = TRUE; mdc->dbtype = "int"; mdc->gtype = MGD_TYPE_INT; mdc->unique = FALSE; mdc->dvalue = "0"; rv = midgard_core_query_add_column (mgd, mdc); g_free (mdc); if (!rv) return FALSE; return TRUE; } static gboolean _object_create_storage(MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(klass != NULL, FALSE); if (!midgard_core_query_create_class_storage(mgd, klass)) return FALSE; if (midgard_connection_is_enabled_workspace(mgd)) { if (midgard_core_class_get_table(klass) != NULL) return __add_workspace_columns (mgd, klass); } return TRUE; } static gboolean _object_update_storage(MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(klass != NULL, FALSE); if (!midgard_core_query_update_class_storage(mgd, klass)) return FALSE; if (midgard_connection_is_enabled_workspace(mgd)) return __add_workspace_columns (mgd, klass); return TRUE; } static gboolean _object_storage_exists(MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(klass != NULL, FALSE); const gchar *tablename = midgard_core_class_get_table(klass); /* NULL storage, return TRUE, it's OK */ if (!tablename) return TRUE; return midgard_core_table_exists(mgd, tablename); } static gboolean _object_delete_storage(MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(klass != NULL, FALSE); g_warning("%s delete storage not implemented", G_OBJECT_CLASS_NAME(klass)); return FALSE; } static void _mgdschema_class_set_static_sql_select (MidgardConnection *mgd, MidgardDBObjectClass *klass) { MgdSchemaTypeAttr *type = midgard_core_class_get_type_attr (klass); if (type->sql_select_full != NULL) return; guint n_props; GParamSpec **pspecs = g_object_class_list_properties (G_OBJECT_CLASS (klass), &n_props); GdaConnection *cnc = mgd->priv->connection; guint i; GString *ssf = g_string_new (""); gboolean add_coma = FALSE; for (i = 0; i < n_props; i++) { if (G_TYPE_FUNDAMENTAL (pspecs[i]->value_type) == G_TYPE_OBJECT || g_str_equal (pspecs[i]->name, "guid")) { if (i == 1) add_coma = FALSE; continue; } /* Replace tablefield for every property */ MgdSchemaPropertyAttr *prop_attr = g_hash_table_lookup (type->prophash, pspecs[i]->name); if (!prop_attr) { if (i == 1) add_coma = FALSE; continue; } gchar *q_table = gda_connection_quote_sql_identifier (cnc, prop_attr->table ? prop_attr->table : type->table); gchar *q_field = gda_connection_quote_sql_identifier (cnc, prop_attr->field); gchar *q_name = gda_connection_quote_sql_identifier (cnc, pspecs[i]->name); g_string_append_printf (ssf, "%s%s.%s AS %s", add_coma ? ", " : " ", q_table, q_field, q_name); g_free (q_table); g_free (q_field); g_free (q_name); add_coma = TRUE; } type->sql_select_full = g_string_free (ssf, FALSE); g_free (pspecs); } static void __add_fields_to_select_statement (MidgardDBObjectClass *klass, MidgardConnection *mgd, GdaSqlStatementSelect *select, const gchar *table_name) { GdaSqlSelectField *select_field; GdaSqlExpr *expr; GValue *val; gchar *table_field; GdaConnection *cnc = mgd->priv->connection; MIDGARD_DBOBJECT_CLASS (__db_object_class)->dbpriv->add_fields_to_select_statement (klass, mgd, select, table_name); if (mgd && !MGD_CNC_USES_WORKSPACE (mgd)) return; /* Add workspace identifiers */ /* Root workspace ideintifier */ select_field = gda_sql_select_field_new (GDA_SQL_ANY_PART (select)); select_field->as = g_strdup_printf (MGD_WORKSPACE_OID_FIELD); select->expr_list = g_slist_append (select->expr_list, select_field); expr = gda_sql_expr_new (GDA_SQL_ANY_PART (select_field)); val = g_new0 (GValue, 1); g_value_init (val, G_TYPE_STRING); table_field = g_strconcat (table_name, ".", MGD_WORKSPACE_OID_FIELD, NULL); g_value_set_string (val, table_field); g_free (table_field); expr->value = val; select_field->expr = expr; /* Current workspace id */ select_field = gda_sql_select_field_new (GDA_SQL_ANY_PART (select)); select_field->as = g_strdup_printf (MGD_WORKSPACE_ID_FIELD); select->expr_list = g_slist_append (select->expr_list, select_field); expr = gda_sql_expr_new (GDA_SQL_ANY_PART (select_field)); val = g_new0 (GValue, 1); g_value_init (val, G_TYPE_STRING); table_field = g_strconcat (table_name, ".", MGD_WORKSPACE_ID_FIELD, NULL); g_value_set_string (val, table_field); g_free (table_field); expr->value = val; select_field->expr = expr; } static void __set_from_data_model (MidgardDBObject *self, GdaDataModel *model, gint row, guint column_id) { g_return_if_fail (self != NULL); g_return_if_fail (model != NULL); g_return_if_fail (row > -1); GError *error = NULL; const GValue *value; /* guid */ value = gda_data_model_get_value_at (model, column_id, row, &error); if (!value) { g_warning ("Failed to get guid value: %s", error && error->message ? error->message : "Unknown reason"); if (error) g_clear_error (&error); } else { g_free ((gchar *)MGD_OBJECT_GUID (self)); MGD_OBJECT_GUID (self) = g_value_dup_string (value); } if (error) g_clear_error (&error); column_id++; MIDGARD_DBOBJECT_CLASS (__db_object_class)->dbpriv->set_from_data_model (self, model, row, column_id); MidgardConnection *mgd = MGD_OBJECT_CNC (self); if (mgd && !MGD_CNC_USES_WORKSPACE (mgd)) return; guint id; /* object ws id */ gint ws_idx = gda_data_model_get_column_index (model, MGD_WORKSPACE_OID_FIELD); value = gda_data_model_get_value_at (model, ws_idx, row, &error); if (!value) { g_warning ("Failed to get ws_root_id: %s", error && error->message ? error->message : "Unknown reason"); if (error) g_clear_error (&error); } else { if (G_VALUE_HOLDS_UINT (value)) id = g_value_get_uint (value); else id = (guint) g_value_get_int (value); MGD_OBJECT_WS_OID (self) = id; } if (error) g_clear_error (&error); /* ws id */ ws_idx = gda_data_model_get_column_index (model, MGD_WORKSPACE_ID_FIELD); value = gda_data_model_get_value_at (model, ws_idx, row, &error); if (!value) { g_warning ("Failed to get ws_id: %s", error && error->message ? error->message : "Unknown reason"); if (error) g_clear_error (&error); } else { if (G_VALUE_HOLDS_UINT (value)) id = g_value_get_uint (value); else id = (guint) g_value_get_int (value); MGD_OBJECT_WS_ID (self) = id; } if (error) g_clear_error (&error); } static void __statement_insert_add_metadata_fields (MidgardDBObjectClass *klass, GString *colnames, GString *values) { MidgardMetadataClass *mklass = MGD_DBCLASS_METADATA_CLASS (klass); if (!mklass) return; guint i; guint n_prop; GParamSpec **pspecs = g_object_class_list_properties (G_OBJECT_CLASS (mklass), &n_prop); if (!pspecs) return; for (i = 0; i < n_prop; i++) { const gchar *col_name = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (mklass), pspecs[i]->name); if (!col_name) continue; g_string_append (colnames, ", "); g_string_append (values, ", "); g_string_append (colnames, col_name); const gchar *type_name = g_type_name (pspecs[i]->value_type); if (pspecs[i]->value_type == MIDGARD_TYPE_TIMESTAMP) type_name = "string"; g_string_append_printf (values, "##%s::%s", col_name, type_name); } g_free (pspecs); } static void __statement_update_add_metadata_fields (MidgardDBObjectClass *klass, GString *sql) { MidgardMetadataClass *mklass = MGD_DBCLASS_METADATA_CLASS (klass); if (!mklass) return; guint i; guint n_prop; GParamSpec **pspecs = g_object_class_list_properties (G_OBJECT_CLASS (mklass), &n_prop); if (!pspecs) return; for (i = 0; i < n_prop; i++) { const gchar *col_name = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (mklass), pspecs[i]->name); if (!col_name) continue; const gchar *type_name = g_type_name (pspecs[i]->value_type); if (pspecs[i]->value_type == MIDGARD_TYPE_TIMESTAMP) type_name = "string"; g_string_append_printf (sql, ",%s=##%s::%s", col_name, col_name, type_name); } g_free (pspecs); } /* Initialize class. * Properties setting follow data in class_data. */ static void __mgdschema_class_init(gpointer g_class, gpointer class_data) { MgdSchemaTypeAttr *data = (MgdSchemaTypeAttr *) class_data; GObjectClass *gobject_class = G_OBJECT_CLASS(g_class); MidgardObjectClass *mklass = (MidgardObjectClass *) g_class; MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_CLASS (g_class); guint idx; __mgdschema_parent_class = g_type_class_peek_parent (g_class); gobject_class->set_property = __midgard_object_set_property; gobject_class->get_property = __midgard_object_get_property; gobject_class->finalize = __mgdschema_object_finalize; gobject_class->constructor = __mgdschema_object_constructor; gobject_class->dispose = __mgdschema_object_dispose; mklass->get_connection = MIDGARD_OBJECT_CLASS(mklass)->get_connection; if (mklass) { mklass->priv = g_new (MidgardObjectClassPrivate, 1); dbklass->dbpriv = midgard_core_dbobject_private_new (); dbklass->dbpriv->uses_workspace = TRUE; /* Check metadata. No support for user declared one yet. */ if (data->metadata_class_name == NULL) dbklass->dbpriv->has_metadata = FALSE; else dbklass->dbpriv->has_metadata = TRUE; dbklass->dbpriv->storage_data = data; dbklass->dbpriv->set_from_sql = NULL; dbklass->dbpriv->__set_from_sql = NULL; dbklass->dbpriv->set_from_xml_node = NULL; GObjectClass *parent_class = g_type_class_peek (MIDGARD_TYPE_DBOBJECT); dbklass->dbpriv->create_storage = _object_create_storage; dbklass->dbpriv->update_storage = _object_update_storage; dbklass->dbpriv->storage_exists = _object_storage_exists; dbklass->dbpriv->delete_storage = _object_delete_storage; dbklass->dbpriv->add_fields_to_select_statement = __add_fields_to_select_statement ; dbklass->dbpriv->get_property = MIDGARD_DBOBJECT_CLASS (__mgdschema_parent_class)->dbpriv->get_property; dbklass->dbpriv->set_from_data_model = __set_from_data_model; dbklass->dbpriv->get_statement_insert = MIDGARD_DBOBJECT_CLASS (parent_class)->dbpriv->get_statement_insert; dbklass->dbpriv->get_statement_insert_params = MIDGARD_DBOBJECT_CLASS (parent_class)->dbpriv->get_statement_insert_params; dbklass->dbpriv->get_statement_update = MIDGARD_DBOBJECT_CLASS (__mgdschema_parent_class)->dbpriv->get_statement_update; dbklass->dbpriv->get_statement_update_params = MIDGARD_DBOBJECT_CLASS (__mgdschema_parent_class)->dbpriv->get_statement_update_params; dbklass->dbpriv->get_statement_delete = MIDGARD_DBOBJECT_CLASS (__mgdschema_parent_class)->dbpriv->get_statement_delete; dbklass->dbpriv->get_statement_delete_params = MIDGARD_DBOBJECT_CLASS (__mgdschema_parent_class)->dbpriv->get_statement_delete_params; dbklass->dbpriv->set_static_sql_select = _mgdschema_class_set_static_sql_select; } if (G_OBJECT_CLASS_TYPE(g_class) != MIDGARD_TYPE_OBJECT) { __add_core_properties(dbklass->dbpriv->storage_data); } g_type_class_add_private (g_class, sizeof(MgdSchemaTypeAttr)); /* List parent class properties so we can set current class base_index */ guint n_prop; GParamSpec **pspecs = g_object_class_list_properties (g_type_class_peek (MIDGARD_TYPE_OBJECT), &n_prop); g_free(pspecs); if (data) data->properties = g_malloc(sizeof(MgdSchemaPropertyAttr*) *(data->num_properties+1)); data->base_index = n_prop; /* Note, that we start numbering from 1 , not from 0. property_id must be > 0 */ for (idx = 1; idx <= data->num_properties; idx++) { /*gchar *pname = data->params[idx-1]->name; g_print ("Installing property id %d :: %s.%s \n", idx, G_OBJECT_CLASS_NAME (G_OBJECT_CLASS (g_class)), pname); */ g_object_class_install_property( gobject_class, data->base_index + idx, data->params[idx-1]); } /* Reset params spec */ g_free (data->params); data->params = NULL; } static void __add_core_properties (MgdSchemaTypeAttr *type_attr) { /* GUID */ MgdSchemaPropertyAttr *prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->name = g_strdup ("guid"); prop_attr->gtype = MGD_TYPE_GUID; prop_attr->field = g_strdup ("guid"); prop_attr->table = g_strdup (type_attr->table); prop_attr->tablefield = g_strjoin (".", type_attr->table, "guid", NULL); g_hash_table_insert (type_attr->prophash, g_strdup((gchar *)"guid"), prop_attr); type_attr->_properties_list = g_slist_prepend (type_attr->_properties_list, (gpointer)prop_attr->name); return; } static GObject * __mgdschema_object_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { /* If MgdSchema type extends MgdSchema one, invoke constructor using proper class and type */ GObjectClass *parent_class = g_type_class_peek (MIDGARD_TYPE_OBJECT); GObject *object = (GObject *) G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); /* Workaround to set default values for every property. * I have no idea why we get 0 n_construct_properties and null GObjectConstructParam */ GObjectClass *g_class = G_OBJECT_GET_CLASS (object); guint n_prop, i; GParamSpec **pspecs = g_object_class_list_properties(g_class, &n_prop); MgdSchemaTypeAttr *type_attr = MIDGARD_DBOBJECT_CLASS (g_class)->dbpriv->storage_data; for (i = 0; i < n_prop ; i++) { MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr (MIDGARD_DBOBJECT_CLASS(g_class), pspecs[i]->name); if (prop_attr == NULL || prop_attr->default_value == NULL || !G_IS_VALUE(prop_attr->default_value)) continue; g_object_set_property(object, pspecs[i]->name, prop_attr->default_value); } g_free(pspecs); if (MGD_TYPE_ATTR_METADATA_CLASS (type_attr)) { MGD_DBOBJECT_METADATA (object) = midgard_metadata_new (MIDGARD_DBOBJECT (object)); /* Add weak reference */ //g_object_add_weak_pointer (object, (gpointer) MGD_DBOBJECT_METADATA (object)); } return object; } static void __midgard_object_iface_init (MidgardBaseInterfaceIFace *iface) { } GType midgard_type_register (MgdSchemaTypeAttr *type_data) { gchar *classname = type_data->name; GType class_type = g_type_from_name (classname); if (class_type) return class_type; /* First of all, if parent type (either interface or classed one) is not registered, * chain up and implicitly register */ gchar **extends = NULL; guint n_types; guint i; GType tmp_type; if (type_data->extends != NULL) { extends = midgard_core_schema_type_list_extends (type_data, &n_types); for (i = 0; i < n_types; i++) { GType tmp_type = g_type_from_name (extends[i]); if (tmp_type == G_TYPE_INVALID) { MgdSchemaTypeAttr *parent_attr = midgard_schema_lookup_type (type_data->schema, extends[i]); midgard_core_schema_register_type (parent_attr); } } } { GTypeInfo *midgard_type_info = g_new0 (GTypeInfo, 1); /* FIXME, does it make sense? */ if (type_data == NULL) type_data = g_new (MgdSchemaTypeAttr, 1); /* our own class size is 0 but it should include space for a parent, therefore add it */ midgard_type_info->class_size = sizeof (MidgardObjectClass); midgard_type_info->base_init = NULL; midgard_type_info->base_finalize = NULL; midgard_type_info->class_init = __mgdschema_class_init; midgard_type_info->class_finalize = NULL; midgard_type_info->class_data = type_data; /* our own instance size is 0 but it should include space for a parent, * therefore add it */ midgard_type_info->instance_size = sizeof (MidgardObject); midgard_type_info->n_preallocs = 0; midgard_type_info->instance_init = __midgard_object_instance_init; midgard_type_info->value_table = NULL; GSList *ifaces = NULL; GType real_parent_type = MIDGARD_TYPE_OBJECT; if (type_data->extends != NULL) { extends = midgard_core_schema_type_list_extends (type_data, &n_types); for (i = 0; i < n_types; i++) { GType tmp_type = g_type_from_name (extends[i]); if (tmp_type == G_TYPE_INVALID) { g_warning ("Failed to get type of '%s', which is parent of '%s'", extends[i], type_data->name); g_error ("Invalid parent type"); } if (G_TYPE_IS_INTERFACE (tmp_type)) { ifaces = g_slist_append (ifaces, extends[i]); } else if G_TYPE_IS_OBJECT (tmp_type) { /* TODO, check if it's valid MidgardObject derived type */ real_parent_type = tmp_type; } } } GType type = g_type_register_static (real_parent_type, classname, midgard_type_info, type_data->is_abstract ? G_TYPE_FLAG_ABSTRACT : 0); if (ifaces != NULL) { static const GInterfaceInfo iface_info = { (GInterfaceInitFunc)__midgard_object_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; GSList *l; for (l = ifaces; l != NULL; l = l->next) { GType iface_type = g_type_from_name ((gchar *)l->data); midgard_core_interface_add_prerequisites (type, iface_type); if (!g_type_is_a (type, iface_type)) g_type_add_interface_static (type, iface_type, &iface_info); } g_slist_free (ifaces); } if (extends) g_strfreev (extends); /* FIXME, MidgardAttachment should be registered directly in core, instead of schema */ if (g_str_equal (classname, "midgard_attachment")) _midgard_attachment_type = type; g_free (midgard_type_info); return type; } } /* Workaround for midgard_attachment created as MgdSchema class and type */ GType midgard_attachment_get_type(void) { g_assert(_midgard_attachment_type != 0); return _midgard_attachment_type; } /* MIDGARD_OBJECT */ static GObjectClass *__midgard_object_parent_class = NULL; static GObject * __midgard_object_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = G_OBJECT_CLASS (__midgard_object_parent_class)->constructor (type, n_construct_properties, construct_properties); MIDGARD_DBOBJECT(object)->dbpriv->storage_data = MIDGARD_DBOBJECT_GET_CLASS(object)->dbpriv->storage_data; //MIDGARD_DBOBJECT (object)->dbpriv->metadata = MIDGARD_OBJECT (object)->metadata; MgdSchemaTypeAttr *priv = G_TYPE_INSTANCE_GET_PRIVATE ((GTypeInstance*)object, type, MgdSchemaTypeAttr); priv->base_index = 1; priv->num_properties = MIDGARD_DBOBJECT(object)->dbpriv->storage_data->class_nprop; /* Allocate properties storage for this instance */ priv->properties = priv->num_properties ? g_new0 (MgdSchemaPropertyAttr*, priv->num_properties) : NULL; if (priv->properties) { guint idx; for (idx = 0; idx < priv->num_properties; idx++) { priv->properties[idx] = g_new0 (MgdSchemaPropertyAttr, 1); } } return object; } static void __midgard_object_dispose (GObject *object) { GObjectClass *parent_class = g_type_class_peek (MIDGARD_TYPE_DBOBJECT); parent_class->dispose (object); } static void __midgard_object_finalize (GObject *object) { GObjectClass *parent_class = g_type_class_peek (MIDGARD_TYPE_DBOBJECT); parent_class->finalize (object); } static void __midgard_object_class_init (MidgardObjectClass *klass, gpointer g_class_data) { GObjectClass *g_class = G_OBJECT_CLASS (klass); __midgard_object_parent_class = __db_object_class = g_type_class_peek (MIDGARD_TYPE_DBOBJECT); MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_CLASS (klass); dbklass->dbpriv->create_storage = NULL; dbklass->dbpriv->update_storage = NULL; dbklass->dbpriv->delete_storage = NULL; dbklass->dbpriv->storage_exists = NULL; g_class->constructor = __midgard_object_constructor; g_class->dispose = __midgard_object_dispose; g_class->finalize = __midgard_object_finalize; g_class->set_property = __midgard_object_set_property; g_class->get_property = __midgard_object_get_property; MgdSchemaTypeAttr *data = (MgdSchemaTypeAttr *) g_class_data; guint idx; if (data) { data->properties = g_malloc(sizeof(MgdSchemaPropertyAttr*) * (data->num_properties+1)); /* Note, that we start numbering from 1 , not from 0. property_id must be > 0 */ for (idx = 1; idx <= data->num_properties; idx++) { /*g_warning("Installing property id %d :: %s", idx, data->params[idx-1]->name); */ g_object_class_install_property ( G_OBJECT_CLASS (klass), data->base_index + idx , data->params[idx-1]); } } MidgardObjectClass *mklass = klass; MidgardDBObjectClass *parent_class = g_type_class_peek (MIDGARD_TYPE_DBOBJECT); mklass->get_connection = MIDGARD_DBOBJECT_CLASS(mklass)->get_connection; dbklass->dbpriv->add_fields_to_select_statement = MIDGARD_DBOBJECT_CLASS (__db_object_class)->dbpriv->add_fields_to_select_statement; dbklass->dbpriv->get_property = MIDGARD_DBOBJECT_CLASS (__midgard_object_parent_class)->dbpriv->get_property; dbklass->dbpriv->set_from_data_model = MIDGARD_DBOBJECT_CLASS (__midgard_object_parent_class)->dbpriv->set_from_data_model; dbklass->dbpriv->get_statement_insert = MIDGARD_DBOBJECT_CLASS (parent_class)->dbpriv->get_statement_insert; dbklass->dbpriv->get_statement_insert_params = MIDGARD_DBOBJECT_CLASS (parent_class)->dbpriv->get_statement_insert_params; dbklass->dbpriv->get_statement_update = MIDGARD_DBOBJECT_CLASS (__midgard_object_parent_class)->dbpriv->get_statement_update; dbklass->dbpriv->get_statement_update_params = MIDGARD_DBOBJECT_CLASS (__midgard_object_parent_class)->dbpriv->get_statement_update_params; dbklass->dbpriv->get_statement_delete = MIDGARD_DBOBJECT_CLASS (__midgard_object_parent_class)->dbpriv->get_statement_delete; dbklass->dbpriv->get_statement_delete_params = MIDGARD_DBOBJECT_CLASS (__midgard_object_parent_class)->dbpriv->get_statement_delete_params; dbklass->dbpriv->set_static_sql_select = NULL; if (!signals_registered && mklass) { mklass->signal_action_create = g_signal_new("action-create", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_create), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_create_hook = g_signal_new("action-create-hook", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_create_hook), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_created = g_signal_new("action-created", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_created), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_update = g_signal_new("action-update", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_update), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_update_hook = g_signal_new("action-update-hook", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_update_hook), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_updated = g_signal_new("action-updated", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_updated), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_delete = g_signal_new("action-delete", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_delete), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_delete_hook = g_signal_new("action-delete-hook", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_delete_hook), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_deleted = g_signal_new("action-deleted", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_deleted), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_purge = g_signal_new("action-purge", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_purge), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_purge_hook = g_signal_new("action-purge-hook", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_purge_hook), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_purged = g_signal_new("action-purged", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_purged), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_import = g_signal_new("action-import", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_import), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_import_hook = g_signal_new("action-import-hook", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_import_hook), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_imported = g_signal_new("action-imported", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_imported), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_export = g_signal_new("action-export", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_export), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_export_hook = g_signal_new("action-export-hook", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_export_hook), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_exported = g_signal_new("action-exported", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_exported), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_loaded = g_signal_new("action-loaded", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_loaded), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_loaded_hook = g_signal_new("action-loaded-hook", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_loaded_hook), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_approve = g_signal_new("action-approve", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_approve), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_approve_hook = g_signal_new("action-approve_hook", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_approve_hook), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_approved = g_signal_new("action-approved", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_approved), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_unapprove = g_signal_new("action-unapprove", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_unapprove), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_unapprove_hook = g_signal_new("action-unapprove_hook", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_unapprove_hook), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_unapproved = g_signal_new("action-unapproved", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_unapproved), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_lock = g_signal_new("action-lock", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_lock), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_lock_hook = g_signal_new("action-lock-hook", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_lock_hook), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_locked = g_signal_new("action-locked", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_locked), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_unlock = g_signal_new("action-unlock", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_unlock), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_unlock_hook = g_signal_new("action-unlock-hook", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_unlock_hook), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); mklass->signal_action_unlocked = g_signal_new("action-unlocked", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_ACTION, G_STRUCT_OFFSET (MidgardObjectClass, action_unlocked), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); signals_registered = TRUE; } } GType midgard_object_get_type(void) { static GType type = 0; if (type == 0) { MgdSchemaTypeAttr *class_data = g_new(MgdSchemaTypeAttr, 1); class_data->params = _midgard_object_class_paramspec(); class_data->base_index = 0; class_data->num_properties = 0; while (class_data->params[class_data->num_properties]) { class_data->num_properties++; } GTypeInfo info = { sizeof(MidgardObjectClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) __midgard_object_class_init, /* class_init */ NULL, /* class_finalize */ class_data, /* class_data */ sizeof(MidgardObject), 0, /* n_preallocs */ NULL, /* instance_init */ }; type = g_type_register_static (MIDGARD_TYPE_DBOBJECT, "MidgardObject", &info, G_TYPE_FLAG_ABSTRACT); } return type; } /** * midgard_object_new: * @mgd: #MidgardConnection handler * @name: name of the class * @value: (allow-none): optional value which holds id or guid of an object * * Creates new MidgardObject object instance. * * This function is mandatory one for new midgard object initialization. * Unlike g_object_new ( which is typical function to create new GObject * instance ), midgard_object_new initializes data which are accessible * internally by object instance itself or by object's class: * * - midgard connection handler is associated with object * * Sitegroup value is returned from midgard connection handler and may * be overwritten only by SG0 Midgard Administrator only when object * is created. Setting this property is forbidden when object is already * fetched from database. * * Object's contructor tries to determine third optional parameter value. * If it's of #G_TYPE_STRING type , then midgard_is_guid() is called to check * weather passed string is a guid , in any other case id property is used * with #G_TYPE_UINT type. New "empty" instance is created (without fetching * data from database) if @value parameter is explicitly set to NULL. * Or if given string is empty one, or given integer is 0. * * Any object instance created with this function should be freed using typical * #g_object_unref function. * * Cases to return %NULL: * * * @value holds string but it's not a valid guid * * * @value holds valid id or guid but object doesn't exists in database ( MGD_ERR_NOT_EXISTS ) * * * unspecified internal error ( MGD_ERR_INTERNAL ) * * * * Returns: New #MidgardObject object or %NULL on failure */ MidgardObject * midgard_object_new (MidgardConnection *mgd, const gchar *name, GValue *value) { g_return_val_if_fail (mgd != NULL, NULL); g_return_val_if_fail (name != NULL, NULL); MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); GType type = g_type_from_name (name); MidgardDBObject *self = NULL; const gchar *field = "id"; if (!type) return NULL; /* Empty object instance */ if (value == NULL || (value && G_VALUE_TYPE (value) == G_TYPE_NONE)) { goto return_empty_object; } else { /* We have to accept both integer and unsigned integer type. * There might be no control over value passed on bindings level. */ if (G_VALUE_TYPE(value) != G_TYPE_STRING) { if (G_VALUE_TYPE(value) != G_TYPE_UINT) { if (G_VALUE_TYPE(value) != G_TYPE_INT) { g_warning ("Expected value of string or integer type"); return NULL; } } } if (G_VALUE_TYPE(value) == G_TYPE_UINT) { if (g_value_get_uint(value) == 0) { goto return_empty_object; } } if (G_VALUE_TYPE(value) == G_TYPE_INT) { if (g_value_get_int(value) == 0) goto return_empty_object; if (g_value_get_int(value) < 1) { goto return_null_with_error; } } if (G_VALUE_TYPE(value) == G_TYPE_STRING) { const gchar *guidval = g_value_get_string(value); field = "guid"; if (!guidval || *guidval == '\0') goto return_empty_object; if (guidval && !midgard_is_guid (guidval)) goto return_null_with_error; } GError *err = NULL; midgard_core_query_get_object (mgd, name, &self, &err, field, value, NULL); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "%s", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return NULL; } if (!self) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_NOT_EXISTS); return NULL; } __dbus_send(MIDGARD_OBJECT (self), "get"); MIDGARD_DBOBJECT (self)->dbpriv->storage_data = MIDGARD_DBOBJECT_GET_CLASS(self)->dbpriv->storage_data; return MIDGARD_OBJECT (self); } return_empty_object: self = g_object_new(type, "connection", mgd, NULL); MGD_OBJECT_CNC (self) = mgd; return MIDGARD_OBJECT (self); return_null_with_error: MIDGARD_ERRNO_SET_STRING(mgd, MGD_ERR_INVALID_PROPERTY_VALUE, "Invalid value. Expected NULL, valid guid or valid, positive integer"); return NULL; } /** * midgard_object_factory: * @mgd: #MidgardConnection instance * @name: #MidgardObject derived class name * @value: (allow-none): optional object identifier * * Static constructor, provided for language bindings, in which, * midgard_object_new() can not be invoked explicitly. * * Returns: (transfer full): new #MidgardObject instance * Since: 10.05.1 */ MidgardObject * midgard_object_factory (MidgardConnection *mgd, const gchar *name, GValue *value) { return midgard_object_new (mgd, name, value); } /** * midgard_object_get_parent: * @self: #MidgardObject instance * * Fetch parent ( in midgard tree ) object. * * This function fetches "upper" object of the same type, and then parent * object if object's up property holds empty value. * Object is root object in tree when NULL is returned. * * Returns: new #MidgardObject object instance or %NULL */ MidgardObject *midgard_object_get_parent(MidgardObject *self) { MidgardObject *mobj = self; g_assert(mobj != NULL); MidgardObject *pobj = NULL; const gchar *pcstring; guint puint = 0; gint pint = 0; GParamSpec *fprop = NULL; GValue pval = {0,}; gboolean ret_object = FALSE; const gchar *parent_class_name = NULL; MidgardConnection *mgd = MGD_OBJECT_CNC (self); MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS(mobj); const gchar *classname = G_OBJECT_TYPE_NAME (self); const gchar *property_up = midgard_reflector_object_get_property_up (classname); if (property_up) { fprop = g_object_class_find_property( G_OBJECT_GET_CLASS(mobj), property_up); MidgardReflectionProperty *mrp = midgard_reflection_property_new (MIDGARD_DBOBJECT_CLASS (klass)); if (midgard_reflection_property_is_link (mrp, property_up)) { parent_class_name = midgard_reflection_property_get_link_name (mrp, property_up); if (parent_class_name) pobj = midgard_object_new (mgd, parent_class_name, NULL); g_object_unref (mrp); } if (!pobj) return NULL; } if (fprop) { g_value_init(&pval,fprop->value_type); g_object_get_property(G_OBJECT(mobj), midgard_reflector_object_get_property_up(classname), &pval); switch(fprop->value_type) { case G_TYPE_STRING: if ((pcstring = g_value_get_string(&pval)) != NULL) { ret_object = TRUE; if (!midgard_object_get_by_guid(pobj, pcstring)) { g_object_unref(pobj); pobj = NULL; } } break; case G_TYPE_UINT: if ((puint = g_value_get_uint(&pval))) { ret_object = TRUE; if (!midgard_object_get_by_id(pobj, puint)) { g_object_unref(pobj); pobj = NULL; } } break; case G_TYPE_INT: if ((pint = g_value_get_int(&pval))) { ret_object = TRUE; if (!midgard_object_get_by_id(pobj, pint)) { g_object_unref(pobj); pobj = NULL; } } break; } g_value_unset(&pval); if (ret_object) { return pobj; } else { g_object_unref(pobj); pobj = NULL; } } /* I do make almost the same for property_parent, because I want to * avoid plenty of warnings after G_VALUE_HOLDS which could be used * with value returned for mobj->priv->storage_data->tree->property_up */ if (midgard_reflector_object_get_property_parent(classname) == NULL) return NULL; parent_class_name = midgard_schema_object_tree_get_parent_name (self); if (!parent_class_name) return NULL; pobj = midgard_object_new(MGD_OBJECT_CNC (self) , MIDGARD_DBOBJECT (mobj)->dbpriv->storage_data->parent, NULL); if (pobj == NULL) return NULL; fprop = g_object_class_find_property( G_OBJECT_GET_CLASS(mobj), midgard_reflector_object_get_property_parent(classname)); if (!fprop) return NULL; g_value_init(&pval,fprop->value_type); g_object_get_property(G_OBJECT(mobj), midgard_reflector_object_get_property_parent(classname) , &pval); switch(fprop->value_type) { case G_TYPE_STRING: if ((pcstring = g_value_get_string(&pval)) != NULL) { if (!midgard_object_get_by_guid(pobj, pcstring)) { g_object_unref(pobj); pobj = NULL; } } break; case G_TYPE_UINT: if ((puint = g_value_get_uint(&pval))) { if (!midgard_object_get_by_id(pobj, puint)) { g_object_unref(pobj); pobj = NULL; } } break; case G_TYPE_INT: if ((pint = g_value_get_int(&pval))) { if (!midgard_object_get_by_id(pobj, pint)) { g_object_unref(pobj); pobj = NULL; } } break; } g_value_unset(&pval); return pobj; } /** * midgard_object_get_by_guid: * @object: #MidgardObject instance * @guid: string value which should identify object * * Fetch object's record(s) from database using 'guid' property constraint. * * MidgardObject object instance must be created with midgard_object_new function. * When midgard connection handler is not associated with object instance, * application is terminated with 'assertion fails' error message being logged. * * Object instance created with this function should be freed using g_object_unref. * * Cases to return %FALSE: * * * Object's record can not be fetched from database ( MGD_ERR_NOT_EXISTS ) * * * unspecified internal error ( MGD_ERR_INTERNAL ) * * * * Returns: %TRUE if object is successfully fetched from database, %FALSE otherwise. */ gboolean midgard_object_get_by_guid(MidgardObject *object, const gchar *guid) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_OK); if (MIDGARD_DBOBJECT (object)->dbpriv->storage_data == NULL) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_NOT_EXISTS); return FALSE; } if (!midgard_core_class_get_table(MIDGARD_DBOBJECT_GET_CLASS(object))){ /* Object has no storage defined. Return NULL as there is nothing to get */ g_warning("Object '%s' has no table or storage defined!", G_OBJECT_TYPE_NAME(object)); MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_NOT_EXISTS); return FALSE; } GValue pval = {0,}; g_value_init(&pval,G_TYPE_STRING); g_value_set_string(&pval, guid); GError *err = NULL; midgard_core_query_get_object (MGD_OBJECT_CNC (object), NULL, (MidgardDBObject **) &object, &err, "guid", &pval, NULL); g_value_unset (&pval); if (err) { MIDGARD_ERRNO_SET_STRING (MGD_OBJECT_CNC (object), MGD_ERR_NOT_EXISTS, "%s", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } MIDGARD_ERRNO_SET(MGD_OBJECT_CNC(object), MGD_ERR_OK); __dbus_send(object, "get"); return TRUE; } gboolean _midgard_object_delete (MidgardObject *object, gboolean check_dependents) { g_assert(object); MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_OK); g_signal_emit(object, MIDGARD_OBJECT_GET_CLASS(object)->signal_action_delete, 0); MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (object); MidgardDBObjectClass *klass = MIDGARD_DBOBJECT_GET_CLASS (MIDGARD_DBOBJECT (object)); const gchar *deleted_field = midgard_core_object_get_deleted_field (klass); if (!metadata && !deleted_field) { midgard_set_error (MGD_OBJECT_CNC(object), MGD_GENERIC_ERROR, MGD_ERR_INVALID_PROPERTY_VALUE, "Object has neither metadata nor deleted property installed"); return FALSE; } MidgardConnection *mgd = MGD_OBJECT_CNC (object); GdaStatement *update = klass->dbpriv->get_statement_delete (klass, mgd); GdaSet *params = klass->dbpriv->get_statement_delete_params (klass, mgd); if (!params) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Can not delete %s. Missed delete prepared statement or parameters", G_OBJECT_TYPE_NAME (object)); return FALSE; } const gchar *guid = MGD_OBJECT_GUID(object); if (!guid){ MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INVALID_PROPERTY_VALUE, "Can not delete %s. Guid property is NULL.", G_OBJECT_TYPE_NAME (object)); return FALSE; } if (check_dependents && midgard_object_has_dependents(object)) { MIDGARD_ERRNO_SET (MGD_OBJECT_CNC(object), MGD_ERR_HAS_DEPENDANTS); return FALSE; } GValue tval = {0, }; g_value_init (&tval, MGD_TYPE_TIMESTAMP); midgard_timestamp_set_current_time(&tval); GError *err = NULL; gchar *person_guid = ""; MidgardObject *person = MGD_CNC_PERSON (mgd); if (person) person_guid = (gchar *)MGD_OBJECT_GUID(person); if (metadata) { /* Revisor */ gda_set_set_holder_value (params, &err, "metadata_revisor", person_guid); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to set revisor DELETE(UPDATE) parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } /* Revised */ gchar *timeupdated = NULL; timeupdated = midgard_timestamp_get_string_from_value (&tval); gda_set_set_holder_value (params, &err, "metadata_revised", timeupdated); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to set revised DELETE(UPDATE) parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } g_free (timeupdated); /* Revision */ midgard_core_metadata_increase_revision (MGD_DBOBJECT_METADATA (object)); gda_set_set_holder_value (params, &err, "metadata_revision", MGD_DBOBJECT_METADATA (object)->priv->revision); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to set revision DELETE(UPDATE) parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } /* Deleted */ gda_set_set_holder_value (params, &err, "metadata_deleted", 1); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to set deleted DELETE(UPDATE) parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } } else { /* Deleted */ gda_set_set_holder_value (params, &err, deleted_field, 1); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to set deleted DELETE(UPDATE) parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } } /* Guid */ gda_set_set_holder_value (params, &err, "guid", guid); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to set guid DELETE(UPDATE) parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } /* Workspace ID */ if (MGD_CNC_USES_WORKSPACE (mgd)) { gda_set_set_holder_value (params, &err, MGD_WORKSPACE_ID_FIELD, MGD_CNC_WORKSPACE_ID(mgd)); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to set workspace ID DELETE(UPDATE) parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } } GdaConnection *cnc = mgd->priv->connection; gint qr = gda_connection_statement_execute_non_select (cnc, update, params, NULL, &err); if (qr < 0) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to delete(update) %s. %s", G_OBJECT_TYPE_NAME (object), err && err->message ? err->message : "Unknown reason"); if (G_IS_VALUE (&tval)) g_value_unset(&tval); if (metadata) metadata->priv->revision--; return FALSE; } if (MGD_CNC_REPLICATION (mgd)) { MidgardRepligard *repligard = midgard_repligard_new (mgd); if (!repligard) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Can not initialize repligard object"); return FALSE; } midgard_repligard_update_object_info (repligard, object, MGD_OBJECT_ACTION_DELETE, &err); g_object_unref (repligard); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Couldn't update repligard record info for '%s': %s", G_OBJECT_TYPE_NAME (object), err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } } /* Set metadata properties */ if (metadata) { midgard_core_metadata_set_revised (metadata, &tval); GValue gval = {0, }; g_value_init (&gval, G_TYPE_STRING); g_value_set_string (&gval, person_guid); midgard_core_metadata_set_revisor (metadata, &gval); g_value_unset (&gval); metadata->priv->deleted = TRUE; } if (G_IS_VALUE (&tval)) g_value_unset(&tval); g_signal_emit(object, MIDGARD_OBJECT_GET_CLASS(object)->signal_action_deleted, 0); __dbus_send(object, "delete"); return TRUE; } /** * midgard_object_delete: * @object: #MidgardObject instance * @check_dependents: dependents' check toggle * * Delete object's record(s) from database, but object's record is not fully deleted * from database. Instead, it is marked as deleted , thus it is possible to undelete * object later with midgard_schema_object_factory_object_undelete(). * * To perform valid delete operation, object's class has to have either 'metadata' * (of #MidgardMetadata type) or 'delete' property installed. The latter is not taken into * account if metadata object provides own 'deleted' property. * * If @check_dependents toggle is %TRUE, parameters and attachments storage will be queried, * if any of such exist and depend on deleted object. * * If given object's class has no metadata defined, object will be purged. * * Use midgard_object_purge() if you need to purge object's data from database. * * Cases to return %FALSE: * * * Object's has no storage defined ( MGD_ERR_OBJECT_NO_STORAGE ) * * * Object's property guid is empty ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * Object's class has neither metadata nor deleted property installed ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * There are still dependent objects in database ( MGD_ERR_HAS_DEPENDENTS ) * * * Unspecified internal error ( MGD_ERR_INTERNAL ) * * * * Returns: %TRUE if object is successfully marked as deleted, %FALSE otherwise. */ gboolean midgard_object_delete (MidgardObject *object, gboolean check_dependents) { g_return_val_if_fail (object != NULL, FALSE); return _midgard_object_delete (object, check_dependents); } /** * midgard_object_purge: * @object: #MidgardObject instance * @check_dependents: dependents' check toggle * * Purge object's record(s) from database. * * If @check_dependents toggle is %TRUE, parameters and attachments storage will be queried, * if any of such exist and depend on deleted object. * * Object's record(s) are purged from database without any possibility to recover. * After successfull call, only repligard table holds information about object's state. * Use midgard_object_delete(), if undelete facility is needed. * * Cases to return %FALSE: * * * Object has no storage defined ( MGD_ERR_OBJECT_NO_STORAGE ) * * * Object's property guid value is empty ( MGD_ERR_INVALID_PROPERTY_VALUE ) * * * There are still dependent objects in database ( MGD_ERR_HAS_DEPENDANTS ) * * * No record has been deleted from database ( MGD_ERR_NOT_EXISTS ) * * * Unspecified internal error ( MGD_ERR_INTERNAL ) * * * * Returns: %TRUE if object has been succesfully purged from database, %FALSE otherwise. */ gboolean midgard_object_purge(MidgardObject *object, gboolean check_dependents) { gint rv = 0; GString *dsql; const gchar *guid, *table; gchar *tmpstr; GError *err = NULL; MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_OK); g_signal_emit(object, MIDGARD_OBJECT_GET_CLASS(object)->signal_action_purge, 0); if (MIDGARD_DBOBJECT (object)->dbpriv->storage_data == NULL){ g_warning("No schema attributes for class %s", G_OBJECT_TYPE_NAME(object)); MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_INTERNAL); return FALSE; } MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS(object); table = midgard_core_class_get_table(MIDGARD_DBOBJECT_CLASS(klass)); if (table == NULL) { /* Object has no storage defined. Return FALSE as there is nothing to delete */ g_warning("Object '%s' has no table or storage defined!", G_OBJECT_TYPE_NAME(object)); MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_OBJECT_NO_STORAGE); return FALSE; } guid = MGD_OBJECT_GUID(object); MidgardConnection *mgd = MGD_OBJECT_CNC (object); if (!guid){ midgard_set_error(MGD_OBJECT_CNC(object), MGD_GENERIC_ERROR, MGD_ERR_INVALID_PROPERTY_VALUE, "Guid property is NULL. "); return FALSE; } if (check_dependents && midgard_object_has_dependents(object)) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC(object), MGD_ERR_HAS_DEPENDANTS); return FALSE; } dsql = g_string_new("DELETE "); g_string_append_printf(dsql, "FROM %s WHERE guid='%s' ", table, guid); guint size = midgard_quota_get_object_size(object); /* TODO , libgda, libgda */ tmpstr = g_string_free(dsql, FALSE); rv = midgard_core_query_execute(MGD_OBJECT_CNC (object), tmpstr, FALSE); g_free(tmpstr); if (rv == 0) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_NOT_EXISTS); return FALSE; } midgard_quota_remove(object, size); if (MGD_CNC_REPLICATION (mgd)) { MidgardRepligard *repligard = midgard_repligard_new (mgd); if (!repligard) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Can not initialize repligard object"); return FALSE; } midgard_repligard_update_object_info (repligard, object, MGD_OBJECT_ACTION_PURGE, &err); g_object_unref (repligard); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Couldn't update repligard record info for '%s': %s", G_OBJECT_TYPE_NAME (object), err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } } if (rv == 0) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC(object), MGD_ERR_INTERNAL); return FALSE; } g_signal_emit(object, MIDGARD_OBJECT_GET_CLASS(object)->signal_action_purged, 0); __dbus_send(object, "purge"); return TRUE; } /** * midgard_object_has_dependents: * @self: #MidgardObject instance * * Checks whether object has dependent objects. * * Check is done with such particular order: * * * * Objects of the same type * * * Children objects * * * Parameters * * * Attachments * * */ gboolean midgard_object_has_dependents(MidgardObject *self) { g_return_val_if_fail(self != NULL, FALSE); if (midgard_core_object_has_dependents(self, G_OBJECT_TYPE_NAME(self))) return TRUE; GSList *list = NULL; GSList *children = MIDGARD_DBOBJECT (self)->dbpriv->storage_data->children; for (list = children ; list != NULL; list = list->next) { if (!list->data) continue; if (midgard_core_object_has_dependents(self, (const gchar *)list->data)) return TRUE; } if (midgard_object_has_parameters(self)) return TRUE; if (midgard_object_has_attachments(self)) return TRUE; return FALSE; } /** * midgard_object_get_by_path: * @self: #MidgardObject instance * @path: path at which object should be found * * Fetch object's record by path * * This function is slower than midgard_object_class_get_object_by_path, * as it has to create new object instance and copy all properties. * * #MidgardErrorGeneric is set by midgard_schema_object_factory_get_object_by_path in this case. * Read about midgard_schema_object_factory_get_object_by_path() for more details. * * Returns: %TRUE if object is found, %FALSE otherwise. */ gboolean midgard_object_get_by_path(MidgardObject *self, const gchar *path) { g_return_val_if_fail(self != NULL, FALSE); g_return_val_if_fail(path != NULL, FALSE); MidgardObject *object = midgard_schema_object_factory_get_object_by_path( MGD_OBJECT_CNC (self), G_OBJECT_TYPE_NAME(self), path); if (!object) return FALSE; _object_copy_properties(G_OBJECT(object), G_OBJECT(self)); g_object_unref(object); return TRUE; } /** * midgard_object_set_connection: * @self: #MidgardObject instance * @mgd: #MidgardConnection instance * * Set object's connection. * * This method associate object with connection being already initialized. * It's not required to use it in every aplication, however it's mandatory * when object has been initialized by some underlying library. For example, * object pointer is available from g_object_new instead of midgard_object_new. * * Already associated connection is silently ignored. */ void midgard_object_set_connection(MidgardObject *self, MidgardConnection *mgd) { g_assert(self != NULL); g_assert(mgd != NULL); if (MGD_OBJECT_CNC (self) != NULL) return; /* Increase reference count of given MidgardConnection. * We decrease it in DBObject dispose */ MGD_OBJECT_CNC (self) = g_object_ref (mgd); } /** * midgard_object_get_connection: * @self: #MidgardObject instance * * Returned #MidgardConnection is owned by core, and should not be freed. * * Returns: pointer to #MidgardConnection associated with given object. */ const MidgardConnection *midgard_object_get_connection(MidgardObject *self) { g_assert(self != NULL); return (const MidgardConnection *) MIDGARD_OBJECT_GET_CLASS(MIDGARD_OBJECT(self))->get_connection(MIDGARD_DBOBJECT(self)); } /** * midgard_object_approve: * @self: #MidgardObject instance * * Approve object. * * Approval functionality is not used by midgard core itself. * Instead, it supports higher level's applications. It means, * that there are no core methods ( like update or delete ) which * do real check if object is approved. You should create own approval * workflow and logic with methods: midgard_object_is_approved(), * midgard_object_unapprove() and this one. * * This method updates metadata properties: * revisor, revised, revision, approver and approved. * * Cases to return %FALSE: * * * No user logged in ( MGD_ERR_ACCESS_DENIED ) * * * No active person ( MGD_ERR_INTERNAL ) * * * Object is already approved * * * Returns: %TRUE if object has been approved, FALSE otherwise */ gboolean midgard_object_approve(MidgardObject *self) { g_assert(self != NULL); g_object_ref(self); g_signal_emit(self, MIDGARD_OBJECT_GET_CLASS(self)->signal_action_approve, 0); MidgardConnection *mgd = MGD_OBJECT_CNC(self); MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (self); MidgardUser *user = midgard_connection_get_user(mgd); if (!user) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_ACCESS_DENIED); g_object_unref(self); return FALSE; } const MidgardObject *person = midgard_user_get_person(user); if (!person) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_INTERNAL); g_object_unref(self); return FALSE; } if (midgard_object_is_approved(self)) { g_warning("Object is already approved"); return FALSE; } /* approved time value */ GValue tval = {0, }; midgard_timestamp_new_current (&tval); /* approver guid value */ GValue gval = {0, }; g_value_init(&gval, G_TYPE_STRING); g_value_set_string(&gval, MGD_OBJECT_GUID(person)); /* approved toggle */ GValue aval = {0, }; g_value_init(&aval, G_TYPE_BOOLEAN); g_value_set_boolean(&aval, TRUE); /* increment revision */ GValue rval = {0, }; g_value_init(&rval, G_TYPE_UINT); g_value_set_uint(&rval, metadata->priv->revision+1); /* Transform timestamp to GdaTimestamp */ GValue stval = {0, }; g_value_init (&stval, GDA_TYPE_TIMESTAMP); g_value_transform (&tval, &stval); gboolean rv = midgard_core_query_update_object_fields( MIDGARD_DBOBJECT(self), "metadata_approved", &stval, "metadata_approver", &gval, "metadata_isapproved", &aval, "metadata_revisor", &gval, "metadata_revised", &stval, "metadata_revision", &rval, NULL); /* Set object properties if query succeeded */ if (rv) { metadata->priv->approve_is_set = TRUE; metadata->priv->is_approved = TRUE; midgard_core_metadata_set_approved (metadata, &tval); midgard_core_metadata_set_approver (metadata, &gval); midgard_core_metadata_set_revisor (metadata, &gval); midgard_core_metadata_set_revised (metadata, &tval); midgard_core_metadata_set_revision (metadata, &rval); } g_value_unset (&tval); g_value_unset (&stval); g_value_unset (&gval); g_value_unset (&aval); g_value_unset (&rval); g_object_unref(self); g_signal_emit(self, MIDGARD_OBJECT_GET_CLASS(self)->signal_action_approved, 0); return rv; } /** * midgard_object_is_approved: * @self: #MidgardObject instance * * Check whether object is approved. * * Returns: %TRUE if object is approved, %FALSE otherwise */ gboolean midgard_object_is_approved(MidgardObject *self) { g_assert(self != NULL); g_object_ref(self); MidgardConnection *mgd = MGD_OBJECT_CNC(self); MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (self); if (metadata->priv->approve_is_set) return metadata->priv->is_approved; GString *where = g_string_new(""); g_string_append_printf(where, "guid = '%s' ", MGD_OBJECT_GUID(self)); GValue *aval = midgard_core_query_get_field_value(mgd, "metadata_isapproved", midgard_core_class_get_table(MIDGARD_DBOBJECT_GET_CLASS(self)), where->str); g_string_free(where, TRUE); if (!aval) { g_object_unref(self); return FALSE; } gboolean av = FALSE; MIDGARD_GET_BOOLEAN_FROM_VALUE(av, aval) metadata->priv->approve_is_set = TRUE; metadata->priv->is_approved = av; g_value_unset(aval); g_free(aval); g_object_unref(self); return av; } /** * midgard_object_unapprove: * @self: #MidgardObject instance * * Simply unapprove object. It doesn't affect any core functionality, * like midgard_object_approve(). * * This method updates metadata properties: * revisor, revised, revision, approver and approved * * Cases to return %FALSE: * * * No user logged in ( MGD_ERR_ACCESS_DENIED ) * * * Object is not approved * * * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_object_unapprove(MidgardObject *self) { g_assert(self != NULL); g_object_ref(self); g_signal_emit(self, MIDGARD_OBJECT_GET_CLASS(self)->signal_action_unapprove, 0); MidgardConnection *mgd = MGD_OBJECT_CNC(self); MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (self); MidgardUser *user = midgard_connection_get_user(mgd); if (!user) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_ACCESS_DENIED); g_object_unref(self); return FALSE; } const MidgardObject *person = midgard_user_get_person(user); if (!person) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_INTERNAL); g_object_unref(self); return FALSE; } /* approved time value */ GValue tval = {0, }; midgard_timestamp_new_current (&tval); /* approver guid value */ GValue gval = {0, }; g_value_init(&gval, G_TYPE_STRING); g_value_set_string(&gval, MGD_OBJECT_GUID(person)); /* approved toggle */ GValue aval = {0, }; g_value_init(&aval, G_TYPE_BOOLEAN); g_value_set_boolean(&aval, FALSE); /* increment revision */ GValue rval = {0, }; g_value_init(&rval, G_TYPE_UINT); g_value_set_uint(&rval, metadata->priv->revision+1); /* Transform timestamp to GdaTimestamp */ GValue stval = {0, }; g_value_init (&stval, GDA_TYPE_TIMESTAMP); g_value_transform (&tval, &stval); if (!midgard_object_is_approved(self)) { g_warning("Object is not approved"); g_object_unref(self); return FALSE; } /* FIXME & TODO , I think we need revisor, revised and revision updates too */ gboolean rv = midgard_core_query_update_object_fields( MIDGARD_DBOBJECT(self), "metadata_approved", &stval, "metadata_approver", &gval, "metadata_isapproved", &aval, "metadata_revisor", &gval, "metadata_revised", &stval, "metadata_revision", &rval, NULL); /* Set object properties if query succeeded */ if (rv) { metadata->priv->approve_is_set = TRUE; metadata->priv->is_approved = FALSE; midgard_core_metadata_set_approved (metadata, &tval); midgard_core_metadata_set_approver (metadata, &gval); midgard_core_metadata_set_revisor (metadata, &gval); midgard_core_metadata_set_revised (metadata, &tval); midgard_core_metadata_set_revision (metadata, &rval); } g_value_unset (&tval); g_value_unset (&stval); g_value_unset (&gval); g_value_unset (&aval); g_value_unset (&rval); g_signal_emit(self, MIDGARD_OBJECT_GET_CLASS(self)->signal_action_unapproved, 0); g_object_unref(self); return rv; } /** * midgard_object_lock: * @self: #MidgardObject instance * * Lock object. * * This method doesn't affect any core's functionality like midgard_object_approve. * You should create own locking workflow and logic with methods: * midgard_object_is_locked(), midgard_object_unlock() and this one. * * Updates metadata properties: * locker, locked, revisor, revised and revision * * Cases to return %FALSE: * * * No user logged in ( MGD_ERR_ACCESS_DENIED ) * * * Metadata class not defined for given object's class ( MGD_ERR_NO_METADATA ) * * * Object is already locked ( MGD_ERR_OBJECT_IS_LOCKED ) * * * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_object_lock(MidgardObject *self) { g_assert(self != NULL); g_object_ref(self); MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS (self); g_signal_emit(self, klass->signal_action_lock, 0); MidgardConnection *mgd = MGD_OBJECT_CNC(self); MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (self); if (!MGD_DBCLASS_METADATA_CLASS (MIDGARD_DBOBJECT_CLASS (klass))) { MIDGARD_ERRNO_SET (mgd, MGD_ERR_NO_METADATA); g_object_unref (self); return FALSE; } if (!MIDGARD_USER(mgd->priv->user)) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_ACCESS_DENIED); g_object_unref(self); return FALSE; } if (midgard_object_is_locked(self)) { g_warning("Object is already locked"); MIDGARD_ERRNO_SET(mgd, MGD_ERR_OBJECT_IS_LOCKED); g_object_unref(self); return FALSE; } /* approved time value */ GValue tval = {0, }; midgard_timestamp_new_current (&tval); /* approver guid value */ GValue gval = {0, }; g_value_init (&gval, G_TYPE_STRING); MidgardObject *person = MGD_CNC_PERSON (mgd); if (person) g_value_set_string (&gval, MGD_OBJECT_GUID(person)); else g_value_set_string (&gval, ""); /* approved toggle */ GValue aval = {0, }; g_value_init (&aval, G_TYPE_BOOLEAN); g_value_set_boolean (&aval, TRUE); /* increment revision */ GValue rval = {0, }; g_value_init (&rval, G_TYPE_UINT); g_value_set_uint (&rval, metadata->priv->revision+1); /* Transform timestamp to string */ GValue stval = {0, }; g_value_init (&stval, G_TYPE_STRING); g_value_transform (&tval, &stval); gboolean rv = midgard_core_query_update_object_fields( MIDGARD_DBOBJECT(self), "metadata_locked", &stval, "metadata_locker", &gval, "metadata_islocked", &aval, "metadata_revisor", &gval, "metadata_revised", &stval, "metadata_revision", &rval, NULL); /* Set object properties if query succeeded */ if (rv) { metadata->priv->lock_is_set = TRUE; metadata->priv->is_locked = TRUE; midgard_core_metadata_set_locked (metadata, &tval); midgard_core_metadata_set_locker (metadata, &gval); midgard_core_metadata_set_revisor (metadata, &gval); midgard_core_metadata_set_revised (metadata, &tval); midgard_core_metadata_increase_revision (metadata); } g_value_unset (&tval); g_value_unset (&stval); g_value_unset (&gval); g_value_unset (&aval); g_value_unset (&rval); g_signal_emit (self, MIDGARD_OBJECT_GET_CLASS(self)->signal_action_locked, 0); g_object_unref (self); return rv; } /** * midgard_object_is_locked: * @self: #MidgardObject instance * * Check whether object is locked * * Cases to return %FALSE: * * * Metadata class not defined for given object's class ( MGD_ERR_NO_METADATA ) * * * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_object_is_locked(MidgardObject *self) { g_assert(self != NULL); g_object_ref(self); MidgardConnection *mgd = MGD_OBJECT_CNC(self); MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (self); MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS (self); if (!MGD_DBCLASS_METADATA_CLASS (MIDGARD_DBOBJECT_CLASS (klass))) { MIDGARD_ERRNO_SET (mgd, MGD_ERR_NO_METADATA); g_object_unref (self); return FALSE; } if (metadata->priv->lock_is_set) return metadata->priv->is_locked; GString *where = g_string_new(""); g_string_append_printf(where, "guid = '%s' ", MGD_OBJECT_GUID (self)); GValue *aval = midgard_core_query_get_field_value(MGD_OBJECT_CNC (self), "metadata_islocked", midgard_core_class_get_table(MIDGARD_DBOBJECT_GET_CLASS(self)), where->str); g_string_free(where, TRUE); if (!aval) { g_object_unref(self); return FALSE; } gboolean av = FALSE; MIDGARD_GET_BOOLEAN_FROM_VALUE(av, aval) metadata->priv->lock_is_set = TRUE; metadata->priv->is_locked = av; g_value_unset(aval); g_free(aval); g_object_unref(self); return av; } /** * midgard_object_unlock: * @self: #MidgardObject instance * * Unlock object. * * Cases to return %FALSE: * * * No user logged in ( MGD_ERR_ACCESS_DENIED ) * * * Object is not locked ( FIXME ) * * * Metadata class not defined for given object's class ( MGD_ERR_NO_METADATA ) * * * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_object_unlock(MidgardObject *self) { g_assert(self != NULL); g_object_ref(self); MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS (self); g_signal_emit(self, klass->signal_action_unlock, 0); MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (self); MidgardConnection *mgd = MGD_OBJECT_CNC(self); MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); if (!MGD_DBCLASS_METADATA_CLASS (MIDGARD_DBOBJECT_CLASS (klass))) { MIDGARD_ERRNO_SET (mgd, MGD_ERR_NO_METADATA); g_object_unref (self); return FALSE; } if (!MIDGARD_USER(mgd->priv->user)) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_ACCESS_DENIED); g_object_unref(self); return FALSE; } /* approved time value */ GValue tval = {0, }; midgard_timestamp_new_current (&tval); /* approver guid value */ GValue gval = {0, }; g_value_init(&gval, G_TYPE_STRING); MidgardObject *person = MGD_CNC_PERSON (mgd); if (person) g_value_set_string (&gval, MGD_OBJECT_GUID(person)); else g_value_set_string (&gval, ""); /* approved toggle */ GValue aval = {0, }; g_value_init(&aval, G_TYPE_BOOLEAN); g_value_set_boolean(&aval, FALSE); /* increment revision */ GValue rval = {0, }; g_value_init(&rval, G_TYPE_UINT); g_value_set_uint(&rval, metadata->priv->revision+1); /* Transform timestamp to GdaTimestamp */ GValue stval = {0, }; g_value_init (&stval, GDA_TYPE_TIMESTAMP); g_value_transform (&tval, &stval); if (!midgard_object_is_locked(self)) { g_warning("Object is not locked"); g_object_unref(self); return FALSE; } gboolean rv = midgard_core_query_update_object_fields( MIDGARD_DBOBJECT(self), "metadata_locker", &gval, "metadata_locked", &stval, "metadata_islocked", &aval, "metadata_revisor", &gval, "metadata_revised", &stval, "metadata_revision", &rval, NULL); /* Set object properties if query succeeded */ if (rv) { metadata->priv->lock_is_set = TRUE; metadata->priv->is_locked = FALSE; midgard_core_metadata_set_locked (metadata, &tval); midgard_core_metadata_set_locker (metadata, &gval); midgard_core_metadata_set_revisor (metadata, &gval); midgard_core_metadata_set_revised (metadata, &tval); midgard_core_metadata_increase_revision (metadata); } g_value_unset (&tval); g_value_unset (&stval); g_value_unset (&gval); g_value_unset (&aval); g_value_unset (&rval); g_signal_emit (self, MIDGARD_OBJECT_GET_CLASS(self)->signal_action_unlocked, 0); g_object_unref (self); return rv; } /** * midgard_object_get_workspace: * @self: #MidgardObject instance * * Returns: new #MidgardWorkspace object or %NULL * * Since: 10.05.5 */ MidgardWorkspace* midgard_object_get_workspace (MidgardObject *self) { g_return_val_if_fail (self != NULL, NULL); guint ws_id = MGD_OBJECT_WS_ID (self); if (ws_id == 0) return NULL; guint row_id; MidgardConnection *mgd = MGD_OBJECT_CNC (self); const GValue *val = midgard_core_workspace_get_value_by_id (MGD_OBJECT_CNC (self), MGD_WORKSPACE_FIELD_IDX_ID, ws_id, &row_id); if (!val) { /* FIXME critical error */ return NULL; } #warning "Get workspace via WorkspaceManager" MidgardWorkspace *ws = midgard_workspace_new (mgd, NULL); MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_GET_CLASS (ws); dbklass->dbpriv->set_from_data_model (MIDGARD_DBOBJECT (ws), mgd->priv->workspace_model, row_id, 0); return ws; } /* C# helpers */ GValue * midgard_object_get_schema_property (MidgardObject *self, const gchar *property) { g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (property != NULL, NULL); GParamSpec *pspec = g_object_class_find_property (G_OBJECT_GET_CLASS (G_OBJECT (self)), property); if (!pspec) return NULL; GValue *value = g_new0 (GValue, 1); g_value_init (value, pspec->value_type); g_object_get_property (G_OBJECT (self), property, value); return value; } void midgard_object_set_schema_property (MidgardObject *self, const gchar *property, GValue *value) { g_return_if_fail (self != NULL); g_return_if_fail (property != NULL); g_object_set_property (G_OBJECT (self), property, value); return; } midgard2-core-10.05.7.1/src/midgard_query_column.h0000664000175000017500000000434311772046240016545 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_COLUMN_H #define MIDGARD_QUERY_COLUMN_H #include #include "midgard_query_column.h" #include "midgard_query_row.h" #include "midgard_query_property.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_COLUMN (midgard_query_column_get_type()) #define MIDGARD_QUERY_COLUMN(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_COLUMN, MidgardQueryColumn)) #define MIDGARD_IS_QUERY_COLUMN(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_COLUMN)) #define MIDGARD_QUERY_COLUMN_GET_INTERFACE(inst) (G_TYPE_INSTANCE_GET_INTERFACE ((inst), MIDGARD_TYPE_QUERY_COLUMN, MidgardQueryColumnIFace)) typedef struct _MidgardQueryColumn MidgardQueryColumn; typedef struct _MidgardQueryColumnIFace MidgardQueryColumnIFace; struct _MidgardQueryColumnIFace { GTypeInterface parent; MidgardQueryProperty* (*get_query_property) (MidgardQueryColumn *self, GError **error); const gchar* (*get_name) (MidgardQueryColumn *self, GError **error); const gchar* (*get_qualifier) (MidgardQueryColumn *self, GError **error); }; GType midgard_query_column_get_type (void); MidgardQueryProperty* midgard_query_column_get_query_property (MidgardQueryColumn *self, GError **error); const gchar* midgard_query_column_get_name (MidgardQueryColumn *self, GError **error); const gchar* midgard_query_column_get_qualifier (MidgardQueryColumn *self, GError **error); G_END_DECLS #endif /* MIDGARD_QUERY_COLUMN_H */ midgard2-core-10.05.7.1/src/midgard_core_views.h0000664000175000017500000000223311772046240016164 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_CORE_VIEWS_H #define MIDGARD_CORE_VIEWS_H #include #include "schema.h" void midgard_core_views_read_dir (const gchar *path); GType midgard_core_view_type_register (MgdSchemaTypeAttr *type, GType parent_type); gchar *midgard_core_view_build_create_view_command (MidgardConnection *mgd, MidgardDBObjectClass *klass); #endif /* MIDGARD_CORE_VIEWS_H */ midgard2-core-10.05.7.1/src/midgard_query_constraint_simple.c0000664000175000017500000000364211772046240021001 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_constraint_simple.h" #include "midgard_core_query.h" /** * midgard_query_constraint_simple_list_constraints: * @self: #MidgardQueryConstraintSimple instance * @n_objects: pointer to store numer of returned objects * * Returns: (transfer container): array of #MidgardQueryConstraintSimple instances * * Since: 10.05 */ MidgardQueryConstraintSimple** midgard_query_constraint_simple_list_constraints (MidgardQueryConstraintSimple *self, guint *n_objects) { return MIDGARD_QUERY_CONSTRAINT_SIMPLE_GET_INTERFACE (self)->list_constraints (self, n_objects); } GType midgard_query_constraint_simple_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQueryConstraintSimpleIFace), NULL, /* base_init */ NULL, /* base_finalize */ NULL, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_INTERFACE, "MidgardQueryConstraintSimple", &info, 0); g_type_interface_add_prerequisite (type, G_TYPE_OBJECT); } return type; } midgard2-core-10.05.7.1/src/midgard_core_workspace.h0000664000175000017500000000670711772046240017037 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_CORE_WORKSPACE_H #define MIDGARD_CORE_WORKSPACE_H #include "midgard_dbobject.h" #include "midgard_workspace.h" #include "midgard_workspace_context.h" #include "midgard_workspace_storage.h" #include "midgard_workspace_manager.h" G_BEGIN_DECLS #define MGD_WORKSPACE_TABLE "midgard_workspace" #define MGD_WORKSPACE_OID_FIELD "midgard_ws_oid_id" #define MGD_WORKSPACE_ID_FIELD "midgard_ws_id" #define MGD_WORKSPACE_FIELD_ID "id" #define MGD_WORKSPACE_FIELD_IDX_ID 0 #define MGD_WORKSPACE_FIELD_UP "up" #define MGD_WORKSPACE_FIELD_IDX_UP 1 #define MGD_WORKSPACE_FIELD_GUID "guid" #define MGD_WORKSPACE_FIELD_IDX_GUID 2 #define MGD_WORKSPACE_FIELD_NAME "name" #define MGD_WORKSPACE_FIELD_IDX_NAME 3 struct _MidgardWorkspacePrivate { MidgardWorkspace *parent_ws; gchar *path; gchar *name; guint id; guint up_id; const MidgardWorkspaceManager *manager; const MidgardWorkspaceContext *context; }; MidgardWorkspacePrivate *midgard_core_workspace_private_new (); void midgard_core_workspace_private_free (MidgardWorkspacePrivate *ws_priv); struct _MidgardWorkspaceManagerPrivate { MidgardConnection *mgd; }; struct _MidgardWorkspaceStorageIFacePrivate { GSList *(*list_ids) (MidgardConnection *mgd, MidgardWorkspaceStorage *self); guint (*get_id) (MidgardWorkspaceStorage *self); gboolean (*create) (const MidgardWorkspaceManager *manager, MidgardWorkspaceStorage *self, const gchar *path, GError **error); gboolean (*update) (const MidgardWorkspaceManager *manager, MidgardWorkspaceStorage *self, GError **error); gboolean (*purge) (const MidgardWorkspaceManager *manager, MidgardWorkspaceStorage *self, GError **error); gboolean (*path_exists) (const MidgardWorkspaceManager *manager, const gchar *path); gboolean (*get_by_path) (const MidgardWorkspaceManager *manager, MidgardWorkspaceStorage *self, const gchar *path, GError **error); }; void midgard_core_workspace_list_all (MidgardConnection *mgd, gboolean check_table); gboolean midgard_core_workspace_name_exists (MidgardWorkspace *workspace, MidgardWorkspace *parent); GSList *midgard_core_workspace_get_parent_names (MidgardConnection *mgd, guint up); const GValue *midgard_core_workspace_get_value_by_id (MidgardConnection *mgd, guint field_id, guint id, guint *row_id); gint midgard_core_workspace_get_col_id_by_name (MidgardConnection *mgd, const gchar *name, gint col_idx, gint up_id_check, guint *row_id); GSList *midgard_core_workspace_get_context_ids (MidgardConnection *mgd, guint id); gint midgard_core_workspace_get_id_by_path (MidgardConnection *mgd, const gchar *path, guint *row_id, GError **error); G_END_DECLS #endif /* MIDGARD_CORE_WORKSPACE_H */ midgard2-core-10.05.7.1/src/midgard_executable.h0000664000175000017500000000404611772046240016144 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_EXECUTABLE_H #define MIDGARD_EXECUTABLE_H #include G_BEGIN_DECLS typedef enum { MIDGARD_EXECUTION_ERROR_DEPENDENCE_INVALID, MIDGARD_EXECUTION_ERROR_COMMAND_INVALID, MIDGARD_EXECUTION_ERROR_COMMAND_INVALID_DATA, MIDGARD_EXECUTION_ERROR_INTERNAL } MidgardExecutionError; #define MIDGARD_EXECUTION_ERROR midgard_execution_error_quark () /* convention macros */ #define MIDGARD_TYPE_EXECUTABLE (midgard_executable_get_type()) #define MIDGARD_EXECUTABLE(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_EXECUTABLE, MidgardExecutable)) #define MIDGARD_IS_EXECUTABLE(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_EXECUTABLE)) #define MIDGARD_EXECUTABLE_GET_INTERFACE(inst) (G_TYPE_INSTANCE_GET_INTERFACE ((inst), MIDGARD_TYPE_EXECUTABLE, MidgardExecutableIFace)) typedef struct _MidgardExecutable MidgardExecutable; /* dummy */ typedef struct _MidgardExecutableIFace MidgardExecutableIFace; struct _MidgardExecutableIFace { GTypeInterface parent; void (*execute) (MidgardExecutable *self, GError **error); }; GType midgard_executable_get_type (void); void midgard_executable_execute (MidgardExecutable *self, GError **error); GQuark midgard_execution_error_quark (void); G_END_DECLS #endif /* MIDGARD_EXECUTABLE_H */ midgard2-core-10.05.7.1/src/midgard_query_constraint_simple.h0000664000175000017500000000430311772046240021001 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_CONSTRAINT_SIMPLE_H #define MIDGARD_QUERY_CONSTRAINT_SIMPLE_H #include G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_CONSTRAINT_SIMPLE (midgard_query_constraint_simple_get_type()) #define MIDGARD_QUERY_CONSTRAINT_SIMPLE(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_CONSTRAINT_SIMPLE, MidgardQueryConstraintSimple)) #define MIDGARD_IS_QUERY_CONSTRAINT_SIMPLE(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_CONSTRAINT_SIMPLE)) #define MIDGARD_QUERY_CONSTRAINT_SIMPLE_GET_INTERFACE(inst) (G_TYPE_INSTANCE_GET_INTERFACE ((inst), MIDGARD_TYPE_QUERY_CONSTRAINT_SIMPLE, MidgardQueryConstraintSimpleIFace)) typedef struct _MidgardQueryConstraintSimple MidgardQueryConstraintSimple; /* dummy */ typedef struct _MidgardQueryConstraintSimpleIFace MidgardQueryConstraintSimpleIFace; typedef struct _MidgardQueryConstraintSimplePrivate MidgardQueryConstraintSimplePrivate; struct _MidgardQueryConstraintSimpleIFace { GTypeInterface parent; MidgardQueryConstraintSimple **(*list_constraints) (MidgardQueryConstraintSimple *self, guint *n_objects); MidgardQueryConstraintSimplePrivate *priv; }; GType midgard_query_constraint_simple_get_type (void); MidgardQueryConstraintSimple **midgard_query_constraint_simple_list_constraints (MidgardQueryConstraintSimple *self, guint *n_objects); G_END_DECLS #endif /* MIDGARD_QUERY_CONSTRAINT_SIMPLE_H */ midgard2-core-10.05.7.1/src/midgard_workspace_context.c0000664000175000017500000003353711772046240017567 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_workspace_context.h" #include "midgard_core_workspace.h" #include "midgard_workspace_storage.h" #include "midgard_workspace.h" #include "midgard_workspace_manager.h" #include "midgard_core_object.h" /** * midgard_workspace_context_new: * * Returns: #MidgardWorkspaceContext instance * Since: 10.05.5 */ MidgardWorkspaceContext * midgard_workspace_context_new () { MidgardWorkspaceContext *self = g_object_new (MIDGARD_TYPE_WORKSPACE_CONTEXT, NULL); return self; } static gboolean _midgard_workspace_context_create (const MidgardWorkspaceManager *manager, MidgardWorkspaceStorage *wss, const gchar *path, GError **error) { g_return_val_if_fail (manager != NULL, FALSE); g_return_val_if_fail (wss != NULL, FALSE); MidgardWorkspaceContext *self = MIDGARD_WORKSPACE_CONTEXT (wss); MidgardConnection *mgd = manager->priv->mgd; g_return_val_if_fail (mgd != NULL, FALSE); GError *err = NULL; guint row_id; gint id = midgard_core_workspace_get_id_by_path (mgd, path, &row_id, &err); /* Valid path and workspace exists */ if (id > 0) { g_propagate_error (error, err); return FALSE; } /* Invalid path */ if (id == -1 && (err->domain == MIDGARD_WORKSPACE_STORAGE_ERROR && err->code == MIDGARD_WORKSPACE_STORAGE_ERROR_INVALID_PATH)) { g_propagate_error (error, err); return FALSE; } /* Workspace doesn't exist. Create it */ if (id == -1 && (err->domain == MIDGARD_WORKSPACE_STORAGE_ERROR && err->code == MIDGARD_WORKSPACE_STORAGE_ERROR_OBJECT_NOT_EXISTS)) g_clear_error (&err); gchar **tokens = g_strsplit (path, "/", 0); guint i = 0; /* If path begins with slash, first element is an empty string. Ignore it. */ if (*tokens[0] == '\0') i++; guint j = i; guint up = 0; const gchar *name = NULL; MidgardWorkspace *ws = NULL; guint name_row_id; GString *dpath = g_string_new (""); gboolean rv = TRUE; while (tokens[j] != NULL) { name = tokens[j]; if (j > 1) /* Ignore empty string */ g_string_append_printf (dpath, "/%s", tokens[j-1]); /* Try to create workspace */ ws = midgard_workspace_new (); g_object_set (ws, "name", name, NULL); if (!midgard_workspace_manager_create_workspace (manager, MIDGARD_WORKSPACE_STORAGE (ws), dpath->str, &err)) { if (err && (err->code == MIDGARD_WORKSPACE_STORAGE_ERROR_PATH_EXISTS || err->code == MIDGARD_WORKSPACE_STORAGE_ERROR_NAME_EXISTS)) { rv = FALSE; } else { g_propagate_error (error, err); g_object_unref (ws); g_string_free (dpath, TRUE); return FALSE; } if (err) g_clear_error (&err); } id = ws->priv->id; g_object_unref (ws); j++; } g_string_free (dpath, TRUE); if (ws && G_IS_OBJECT (ws)) g_object_unref (ws); self->priv->path = g_strdup (path); self->priv->id = id; /* FIXME, connect to manager create signal */ return rv; } static gboolean _midgard_workspace_context_update (const MidgardWorkspaceManager *manager, MidgardWorkspaceStorage *self, GError **error) { g_return_val_if_fail (manager != NULL, FALSE); g_return_val_if_fail (self != NULL, FALSE); g_set_error (error, MIDGARD_WORKSPACE_STORAGE_ERROR, MIDGARD_WORKSPACE_STORAGE_ERROR_CONTEXT_VIOLATION, "Can not update context"); return FALSE; } static gboolean _midgard_workspace_context_purge (const MidgardWorkspaceManager *manager, MidgardWorkspaceStorage *self, GError **error) { g_return_val_if_fail (manager != NULL, FALSE); g_return_val_if_fail (self != NULL, FALSE); g_set_error (error, MIDGARD_WORKSPACE_STORAGE_ERROR, MIDGARD_WORKSPACE_STORAGE_ERROR_CONTEXT_VIOLATION, "Can not purge context"); return FALSE; } static gboolean _midgard_workspace_context_get_by_path (const MidgardWorkspaceManager *manager, MidgardWorkspaceStorage *wss, const gchar *path, GError **error) { g_return_val_if_fail (manager != NULL, FALSE); g_return_val_if_fail (wss != NULL, FALSE); MidgardWorkspaceContext *self = MIDGARD_WORKSPACE_CONTEXT (wss); MidgardConnection *mgd = manager->priv->mgd; g_return_val_if_fail (mgd != NULL, FALSE); GError *err = NULL; guint row_id; gint id = midgard_core_workspace_get_id_by_path (mgd, path, &row_id, &err); /* Valid path and workspace exists */ if (id > 0) { self->priv->path = g_strdup (path); self->priv->id = id; return TRUE; } if (id == -1 || err) { g_propagate_error (error, err); return FALSE; } return FALSE; } static gchar ** _midgard_workspace_context_list_workspace_names (MidgardWorkspaceStorage *wss, guint *elements) { g_return_val_if_fail (wss != NULL, NULL); MidgardWorkspaceContext *self = MIDGARD_WORKSPACE_CONTEXT (wss); gchar *path = self->priv->path; if (elements) *elements = 0; if (!path) return NULL; gchar **tokens = g_strsplit (path, "/", 0); guint i = 0; guint j = 0; /* compute number of elements and ignore empty element */ while (tokens[i] != NULL) { if (*tokens[i] != '\0') j++; i++; } /* Initialize NULL terminated array */ gchar **names = g_new (gchar *, j); if (elements) *elements = j; i = 0; j = 0; while (tokens[i] != NULL) { if (*tokens[i] != '\0') { /* Do not duplicate names. Let's reuse local strings anyway */ names[j] = tokens[i]; j++; } i++; } g_free (tokens); return names; } static MidgardWorkspaceStorage* _midgard_workspace_context_get_workspace_by_name (MidgardWorkspaceStorage *wss, const gchar *name) { g_return_val_if_fail (wss != NULL, NULL); g_return_val_if_fail (name != NULL, NULL); MidgardWorkspaceContext *self = MIDGARD_WORKSPACE_CONTEXT (wss); const MidgardWorkspaceManager *manager = self->priv->manager; gchar *path = self->priv->path; if (!path) return NULL; gchar **tokens = g_strsplit (path, "/", 0); guint i = 0; guint j = 0; gboolean exists = FALSE; while (tokens[i] != NULL) { if (g_str_equal (tokens[i], name)) { exists = TRUE; i++; break; } i++; } if (!exists) { g_strfreev (tokens); return NULL; } GString *new_path = g_string_new (""); for (j = 0; j < i; j++) { if (*tokens[j] != '\0') g_string_append_printf (new_path, "/%s", tokens[j]); } MidgardWorkspace *ws = midgard_workspace_new (); if (!ws) return NULL; /* FIXME, fatal error */ gboolean rv = midgard_workspace_manager_get_workspace_by_path (manager, MIDGARD_WORKSPACE_STORAGE (ws), (const gchar *)new_path->str, NULL); g_string_free (new_path, TRUE); g_strfreev (tokens); if (rv) return MIDGARD_WORKSPACE_STORAGE (ws); g_object_unref (ws); return NULL; } static MidgardWorkspaceStorage ** _midgard_workspace_context_list_children (MidgardWorkspaceStorage *wss, guint *n_objects) { g_return_val_if_fail (wss != NULL, NULL); if (n_objects) *n_objects = 0; guint n_names; gchar **names = midgard_workspace_storage_list_workspace_names (wss, &n_names); if (names == NULL) return NULL; guint i = 0; if (n_objects) *n_objects = n_names; MidgardWorkspace **children = g_new (MidgardWorkspace*, n_names); for (i = 0; i < n_names; i++) { children[i] = MIDGARD_WORKSPACE (midgard_workspace_storage_get_workspace_by_name (wss, names[i])); } g_free (names); return (MidgardWorkspaceStorage **) children; } /** * midgard_workspace_context_has_workspace: * @self: #MidgardWorkspaceContext instance * @workspace: #MidgardWorkspace to check * * Check, whether given @workspace is in given context * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05.5 */ gboolean midgard_workspace_context_has_workspace (MidgardWorkspaceContext *self, MidgardWorkspace *workspace) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (workspace != NULL, FALSE); gboolean rv = FALSE; GSList *ids = MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE (self)->priv->list_ids (NULL, MIDGARD_WORKSPACE_STORAGE (self)); if (!ids) return rv; GSList *l; guint ws_id = 0; for (l = ids; l != NULL; l = l->next) { GValue *val = (GValue *) l->data; if (G_VALUE_HOLDS_UINT (val)) ws_id = g_value_get_uint (val); else ws_id = g_value_get_int (val); if (ws_id == workspace->priv->id) { rv = TRUE; break; } } g_slist_free (ids); return rv; } static GSList* _midgard_workspace_context_iface_list_ids (MidgardConnection *mgd, MidgardWorkspaceStorage *self) { MidgardWorkspaceContext *ctx = MIDGARD_WORKSPACE_CONTEXT (self); const MidgardWorkspaceManager *manager = ctx->priv->manager; if (mgd == NULL) mgd = manager->priv->mgd; return midgard_core_workspace_get_context_ids (mgd, ctx->priv->id); } static guint _midgard_workspace_context_iface_get_id (MidgardWorkspaceStorage *self) { MidgardWorkspaceContext *ctx = MIDGARD_WORKSPACE_CONTEXT (self); return ctx->priv->id; } /* GOBJECT ROUTINES */ static GObjectClass *__parent_class = NULL; const gchar * _midgard_workspace_context_get_path (MidgardWorkspaceStorage *wss) { g_return_val_if_fail (wss != NULL, NULL); MidgardWorkspaceContext *self = MIDGARD_WORKSPACE_CONTEXT (wss); if (!self->priv->manager) return NULL; MidgardConnection *mgd = self->priv->manager->priv->mgd; if (!mgd) return NULL; guint ws_id = self->priv->id; if (ws_id == 0) return NULL; const GValue *up_val = midgard_core_workspace_get_value_by_id (mgd, MGD_WORKSPACE_FIELD_IDX_UP, ws_id, NULL); if (!up_val) return NULL; guint up_id = 0; if (G_VALUE_HOLDS_UINT (up_val)) up_id = g_value_get_uint (up_val); else up_id = (guint) g_value_get_int (up_val); GSList *list = midgard_core_workspace_get_parent_names (mgd, up_id); GSList *l; GString *str = g_string_new (""); for (l = list; l != NULL; l = l->next) { gchar *name = (gchar *) l->data; g_string_append_printf (str, "/%s", name); } if (list) g_slist_free (list); const GValue *name_value = midgard_core_workspace_get_value_by_id (mgd, MGD_WORKSPACE_FIELD_IDX_NAME, ws_id, NULL); g_string_append_printf (str, "/%s", g_value_get_string (name_value)); g_free (self->priv->path); self->priv->path = g_string_free (str, FALSE); return (const gchar *) self->priv->path; } static void _midgard_workspace_context_iface_init (MidgardWorkspaceStorageIFace *iface) { /* Interface implementation */ iface->get_path = _midgard_workspace_context_get_path; iface->list_children = _midgard_workspace_context_list_children; iface->list_workspace_names = _midgard_workspace_context_list_workspace_names; iface->get_workspace_by_name = _midgard_workspace_context_get_workspace_by_name; /* Private implementation, WorkspaceManager helpers */ iface->priv = g_new (MidgardWorkspaceStorageIFacePrivate, 1); iface->priv->list_ids = _midgard_workspace_context_iface_list_ids; iface->priv->get_id = _midgard_workspace_context_iface_get_id; iface->priv->create = _midgard_workspace_context_create; iface->priv->update = _midgard_workspace_context_update; iface->priv->purge = _midgard_workspace_context_purge; iface->priv->get_by_path = _midgard_workspace_context_get_by_path; return; } static void _midgard_workspace_context_iface_finalize (MidgardWorkspaceStorageIFace *iface) { if (!iface->priv) return; g_free (iface->priv); iface->priv = NULL; return; } static void _midgard_workspace_context_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardWorkspaceContext *self = MIDGARD_WORKSPACE_CONTEXT (instance); self->priv = midgard_core_workspace_private_new (); } static GObject * _midgard_workspace_context_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (__parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_workspace_context_dispose (GObject *object) { MidgardWorkspaceContext *self = (MidgardWorkspaceContext *) object; __parent_class->dispose (object); } static void _midgard_workspace_context_finalize (GObject *object) { MidgardWorkspaceContext *self = MIDGARD_WORKSPACE_CONTEXT (object); midgard_core_workspace_private_free (self->priv); __parent_class->finalize (object); } static void _midgard_workspace_context_class_init (MidgardWorkspaceContextClass *klass, gpointer class_data) { GObjectClass *object_class = G_OBJECT_CLASS (klass); __parent_class = g_type_class_peek_parent (klass); object_class->constructor = _midgard_workspace_context_constructor; object_class->dispose = _midgard_workspace_context_dispose; object_class->finalize = _midgard_workspace_context_finalize; } GType midgard_workspace_context_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardWorkspaceContextClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc)_midgard_workspace_context_class_init, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardWorkspaceContext), 0, /* n_preallocs */ _midgard_workspace_context_instance_init /* instance_init */ }; static const GInterfaceInfo property_info = { (GInterfaceInitFunc) _midgard_workspace_context_iface_init, (GInterfaceFinalizeFunc) _midgard_workspace_context_iface_finalize, NULL /* interface_data */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardWorkspaceContext", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_WORKSPACE_STORAGE, &property_info); } return type; } midgard2-core-10.05.7.1/src/midgard_reflector_object.c0000664000175000017500000002271011772046240017327 00000000000000/* * Copyright (C) 2010, 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_reflector_object.h" #include "schema.h" #include "midgard_object.h" #include "midgard_core_object_class.h" #include "midgard_core_object.h" #include "midgard_base_abstract.h" #include "midgard_base_interface.h" #include "midgard_base_mixin.h" #define _GET_CLASS_BY_NAME(__name, __retval) \ gpointer *klass = NULL; \ gboolean is_iface = FALSE; \ GType __class_type = g_type_from_name (__name); \ if (g_type_is_a (__class_type, MIDGARD_TYPE_DBOBJECT) \ || g_type_is_a (__class_type, MIDGARD_TYPE_BASE_ABSTRACT)) { \ klass = g_type_class_peek (__class_type); \ } else if (g_type_is_a (__class_type, MIDGARD_TYPE_BASE_INTERFACE)) { \ klass = g_type_default_interface_ref (__class_type); \ is_iface = TRUE; \ } else { \ g_warning ("Invalid '%s' class name ", __name); \ return __retval; \ } #define _GET_TYPE_ATTR(__klass) \ MgdSchemaTypeAttr *type_attr = NULL; \ if (is_iface) { \ gpointer *ifaceptr = g_type_default_interface_ref (__class_type); \ type_attr = ((MidgardBaseInterfaceIFace *)ifaceptr)->priv->type_data; \ } else { \ type_attr = midgard_core_class_get_type_attr(MIDGARD_DBOBJECT_CLASS(__klass)); \ } \ if (type_attr == NULL) { \ g_warning ("Failed to find attributes for '%s' type", g_type_name (__class_type)); \ } /** * midgard_reflector_object_get_property_primary: * @classname: Name of the class * * Returns: (transfer none): Name of property which is defined as primary for given class or %NULL. * Since: 10.05 */ const gchar* midgard_reflector_object_get_property_primary (const gchar *classname) { g_return_val_if_fail (classname != NULL, NULL); _GET_CLASS_BY_NAME (classname, NULL); _GET_TYPE_ATTR (klass); return type_attr->primary; } /** * midgard_reflector_object_get_property_up: * @classname: Name of the class * * Returns: (transfer none): Name of property which is defined as 'up' for given class or %NULL. * Since: 10.05 */ const gchar* midgard_reflector_object_get_property_up (const gchar *classname) { g_return_val_if_fail (classname != NULL, NULL); _GET_CLASS_BY_NAME (classname, NULL); _GET_TYPE_ATTR (klass); return type_attr->property_up; } /** * midgard_reflector_object_get_property_unique: * @classname: Name of the class * * Returns: (transfer none): Name of property which is defined unique for given class, or %NULL. * Since: 10.05 */ const gchar* midgard_reflector_object_get_property_unique (const gchar *classname) { g_return_val_if_fail (classname != NULL, NULL); _GET_CLASS_BY_NAME (classname, NULL); _GET_TYPE_ATTR (klass); return type_attr->unique_name; } /** * midgard_reflector_object_get_property_parent: * @classname: Name of the class * * Returns: (transfer none): Name of property which is defined as 'parent' for given class or %NULL. * Since: 10.05 */ const gchar* midgard_reflector_object_get_property_parent (const gchar *classname) { g_return_val_if_fail (classname != NULL, NULL); _GET_CLASS_BY_NAME (classname, NULL); _GET_TYPE_ATTR (klass); return type_attr->property_parent; } /** * midgard_reflector_object_list_children: * @classname: Name of the class * @n_children: pointer to store number of children classes * * Returns newly allocated, children ( in midgard tree ) classes' names. * Returned array should be freed if no longer needed without freeing array's elements. * * Returns: (array length=n_children) (transfer container): array of strings or %NULL. * Since: 10.05 */ gchar** midgard_reflector_object_list_children (const gchar *classname, guint *n_children) { g_return_val_if_fail (classname != NULL, NULL); g_return_val_if_fail (n_children != NULL, NULL); _GET_CLASS_BY_NAME (classname, NULL); _GET_TYPE_ATTR (klass); if (!type_attr->children) return NULL; GSList *list; guint i = 0; guint length = g_slist_length (type_attr->children); *n_children = length; /* possible? */ if (length == 0) return NULL; gchar **children_class = g_new (gchar*, length + 1); for (list = type_attr->children; list != NULL; list = list->next, i++) children_class[i] = (gchar *) list->data; *n_children = length; children_class[length] = NULL; return children_class; } /** * midgard_reflector_object_has_metadata: * @classname: Name of the class * * Checks whether metadata is defined for given @classname. * * Returns: %TRUE or %FALSE * Since: 10.05 */ gboolean midgard_reflector_object_has_metadata_class (const gchar *classname) { g_return_val_if_fail (classname != NULL, FALSE); _GET_CLASS_BY_NAME (classname, FALSE); _GET_TYPE_ATTR (klass); if (type_attr->metadata_class_name) return TRUE; return FALSE; } /** * midgard_reflector_object_get_metadata_class: * @classname: Name of the class * * Returns: (transfer none): Name of the metadata class of the given one or %NULL. * Since: 10.05 */ const gchar* midgard_reflector_object_get_metadata_class (const gchar *classname) { g_return_val_if_fail (classname != NULL, NULL); _GET_CLASS_BY_NAME (classname, NULL); _GET_TYPE_ATTR (klass); return (const gchar *)type_attr->metadata_class_name; } /** * midgard_reflector_object_get_schema_value: * @classname: Name of the class * @name: node's name declared for given @klass * * * Returns: (transfer none): value of given node's name or %NULL. * Since: 10.05 */ const gchar* midgard_reflector_object_get_schema_value (const gchar *classname, const gchar *name) { g_return_val_if_fail (classname != NULL, NULL); _GET_CLASS_BY_NAME (classname, NULL); _GET_TYPE_ATTR (klass); return (const gchar *) g_hash_table_lookup (type_attr->user_values, (gpointer) name); } /** * midgard_reflector_object_is_mixin: * @classname: Name of the class * * Returns: %TRUE if given type name is a mixin, %FALSE otherwise * Since: 10.05.5 */ gboolean midgard_reflector_object_is_mixin (const gchar *classname) { g_return_val_if_fail (classname != NULL, FALSE); GType class_type = g_type_from_name (classname); if (class_type == G_TYPE_INVALID) return FALSE; return g_type_is_a (class_type, MIDGARD_TYPE_BASE_MIXIN); } /** * midgard_reflector_object_is_interface: * @classname: Name of the class * * Returns: %TRUE if given type name is an interface, %FALSE otherwise * Since: 10.05.5 */ gboolean midgard_reflector_object_is_interface (const gchar *classname) { g_return_val_if_fail (classname != NULL, FALSE); GType class_type = g_type_from_name (classname); if (class_type == G_TYPE_INVALID) return FALSE; return G_TYPE_IS_INTERFACE (class_type); } /** * midgard_reflector_object_is_abstract: * @classname: Name of the class * * Returns: %TRUE if given type name is an abstract one, %FALSE otherwise * Since: 10.05.5 */ gboolean midgard_reflector_object_is_abstract (const gchar *classname) { g_return_val_if_fail (classname != NULL, FALSE); GType class_type = g_type_from_name (classname); if (class_type == G_TYPE_INVALID) return FALSE; return G_TYPE_IS_ABSTRACT (class_type); } /** * midgard_reflector_object_list_defined_properties: * @classname: Name of the class * @n_prop: a pointer to store number of returned properties * * Returns newly allocated, array of properties. * Returned array should be freed if no longer needed without freeing array's elements. * * Returns: (transfer container): array of strings or %NULL. * * Since: 10.05.5 */ gchar ** midgard_reflector_object_list_defined_properties (const gchar *classname, guint *n_prop) { g_return_val_if_fail (classname != NULL, FALSE); GType class_type = g_type_from_name (classname); if (class_type == G_TYPE_INVALID) { return NULL; } GParamSpec **pspecs = NULL; if (G_TYPE_IS_INTERFACE (class_type)) { pspecs = g_object_interface_list_properties (g_type_default_interface_peek (class_type), n_prop); } else if (G_TYPE_IS_CLASSED (class_type)) { pspecs = g_object_class_list_properties (g_type_class_peek (class_type), n_prop); } if (*n_prop == 0) return NULL; gchar **names = g_new (gchar *, *n_prop + 1); guint i; for (i = 0; i < *n_prop; i++) { names[i] = (gchar*) pspecs[i]->name; } g_free(pspecs); names[i] = NULL; return names; } /* GOBJECT ROUTINES */ GType midgard_reflector_object_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardReflectorObjectClass), NULL, /* base_init */ NULL, /* base_finalize */ NULL, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardReflectorObject), 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardReflectorObject", &info, G_TYPE_FLAG_ABSTRACT); } return type; } midgard2-core-10.05.7.1/src/midgard_query_selector.c0000664000175000017500000000515411772046240017064 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_selector.h" struct _MidgardQuerySelector { GObject parent; }; /** * midgard_query_selector_get_query_result: * @self: #MidgardQuerySelector instance * @error: pointer to store error * * Returns: (transfer full): #MidgardQueryResult or %NULL on failure * * Since: 10.05.6 */ MidgardQueryResult* midgard_query_selector_get_query_result (MidgardQuerySelector *self, GError **error) { return MIDGARD_QUERY_SELECTOR_GET_INTERFACE (self)->get_query_result (self, error); } /** * midgard_query_selector_get_connection: * @self: #MidgardQuerySelector instance * * Returns: (transfer full): #MidgardConnection or %NULL * * Since: 10.05.6 */ MidgardConnection* midgard_query_selector_get_connection (MidgardQuerySelector *self) { return MIDGARD_QUERY_SELECTOR_GET_INTERFACE (self)->get_connection (self); } /** * midgard_query_selector_get_query_string: * @self: #MidgardQuerySelector instance * * To get query string, execute() must be invoked first. * This method doesn't do any validation of a query. * * Returns: (transfer none): query string or %NULL * * Since: 10.05.6 */ const gchar* midgard_query_selector_get_query_string (MidgardQuerySelector *self) { return MIDGARD_QUERY_SELECTOR_GET_INTERFACE (self)->get_query_string (self); } /* GOBJECT ROUTINES */ GType midgard_query_selector_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQuerySelectorIFace), NULL, /* base_init */ NULL, /* base_finalize */ NULL, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_INTERFACE, "MidgardQuerySelector", &info, 0); g_type_interface_add_prerequisite (type, G_TYPE_OBJECT); } return type; } midgard2-core-10.05.7.1/src/midgard_query_select.h0000664000175000017500000000514711772046240016532 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_SELECT_H #define MIDGARD_QUERY_SELECT_H #include #include "midgard_connection.h" #include "midgard_query_storage.h" #include "midgard_query_executor.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_SELECT (midgard_query_select_get_type()) #define MIDGARD_QUERY_SELECT(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_SELECT, MidgardQuerySelect)) #define MIDGARD_QUERY_SELECT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_QUERY_SELECT, MidgardQuerySelectClass)) #define MIDGARD_IS_QUERY_SELECT(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_SELECT)) #define MIDGARD_IS_QUERY_SELECT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_QUERY_SELECT)) #define MIDGARD_QUERY_SELECT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_QUERY_SELECT, MidgardQuerySelectClass)) typedef struct _MidgardQuerySelect MidgardQuerySelect; typedef struct _MidgardQuerySelectClass MidgardQuerySelectClass; struct _MidgardQuerySelectClass { MidgardQueryExecutorClass parent; MidgardDBObject **(*list_objects) (MidgardQuerySelect *self, guint *n_objects); void (*toggle_read_only) (MidgardQuerySelect *self, gboolean toggle); void (*include_deleted) (MidgardQuerySelect *self, gboolean toggle); }; struct _MidgardQuerySelect { MidgardQueryExecutor parent; }; GType midgard_query_select_get_type (void); MidgardQuerySelect *midgard_query_select_new (MidgardConnection *mgd, MidgardQueryStorage *storage); MidgardDBObject **midgard_query_select_list_objects (MidgardQuerySelect *self, guint *n_objects); void midgard_query_select_toggle_read_only (MidgardQuerySelect *self, gboolean toggle); void midgard_query_select_include_deleted (MidgardQuerySelect *self, gboolean toggle); G_END_DECLS #endif /* MIDGARD_QUERY_SELECT_H */ midgard2-core-10.05.7.1/src/midgard_timestamp.c0000664000175000017500000003475511772046240016033 00000000000000/* * Copyright (c) 2005 Jukka Zitting * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_timestamp.h" #include #include "midgard_type.h" #include #define leapsecs_add(a,b) (a) static gchar *caltime_fmt(MidgardTimestamp *mt) { GString *string = g_string_sized_new(100); g_string_printf( string, "%04ld-%02d-%02d %02d:%02d:%02d", mt->year, mt->month, mt->day, mt->hour, mt->minute, mt->second); if (mt->nano > 0) { unsigned long n = mt->nano; while ((n % 10) == 0) { n = n / 10; } g_string_append_printf(string, ".%lo", n); } g_string_append_printf(string, "%+05ld", mt->offset); return g_string_free(string, FALSE); } static unsigned int caltime_scan(const char *s, MidgardTimestamp *ct) { int sign = 1; const char *t = s; unsigned long z; unsigned long c; /* 2011-03-04T11:25:44+00:00 */ /* ^ */ if (*t == '-') { ++t; sign = -1; } z = 0; while ((c = (unsigned char) (*t - '0')) <= 9) { z = z * 10 + c; ++t; } ct->year = z * sign; /* Avoid 0000 year*/ if (ct->year == 0) ct->year = 1; /* 2011-03-04T11:25:44+00:00 */ /* ^ */ if (*t++ != '-') return 0; z = 0; while ((c = (unsigned char) (*t - '0')) <= 9) { z = z * 10 + c; ++t; } ct->month = z; /* Avoid 00 month */ if (ct->month == 0) ct->month = 1; /* 2011-03-04T11:25:44+00:00 */ /* ^ */ if (*t++ != '-') return 0; z = 0; while ((c = (unsigned char) (*t - '0')) <= 9) { z = z * 10 + c; ++t; } ct->day = z; /* Avoid 00 day */ if (ct->day == 0) ct->day = 1; /* 2011-03-04T11:25:44+00:00 */ /* ^ */ while ((*t == ' ') || (*t == '\t') || (*t == 'T')) ++t; z = 0; while ((c = (unsigned char) (*t - '0')) <= 9) { z = z * 10 + c; ++t; } ct->hour = z; if (*t++ != ':') return 0; z = 0; while ((c = (unsigned char) (*t - '0')) <= 9) { z = z * 10 + c; ++t; } ct->minute = z; if (*t != ':') ct->second = 0; else { ++t; z = 0; while ((c = (unsigned char) (*t - '0')) <= 9) { z = z * 10 + c; ++t; } ct->second = z; } if (*t != '.') ct->nano = 0; else { ++t; ct->nano = 1000000000; z = 0; while ((c = (unsigned char) (*t - '0')) <= 9) { if (ct->nano > 1) { z = z * 10 + c; ++t; ct->nano /= 10; } } ct->nano *= z; } /* Set default UTC offset */ ct->offset = 0; /* 2011-03-04T11:25:44+00:00 */ /* ^ */ /* Zulu time, keep UTC */ if (*t == 'Z') return 0; if (*t == '\0') return 0; if (*t == ' ' || *t == '+' || *t == '-') { if (*t == '+') sign = 1; if (*t == '-') sign = -1; ++t; /* 2011-03-04T11:25:44+00:00 */ /* ^ */ c = (unsigned char) (*t++ - '0'); if (c > 9) return 0; z = c; c = (unsigned char) (*t++ - '0'); if (c > 9) return 0; z = z * 10 + c; c = (unsigned char) (*t++ - '0'); if (c > 9) return 0; z = z * 6 + c; c = (unsigned char) (*t++ - '0'); if (c > 9) return 0; z = z * 10 + c; ct->offset = z * sign; return 0; } return -1; } static void __timestamp_reset(const GValue *value) { MidgardTimestamp *ct = (MidgardTimestamp *) g_value_get_boxed(value); guint64 u = ct->date_value + 58486; long s = u % 86400ULL; long day = u / 86400ULL - 53375995543064ULL; long year = day / 146097L; long month; //int yday; ct->second = s % 60; s /= 60; ct->minute = s % 60; s /= 60; ct->hour = s; day = (day % 146097L) + 678881L; while (day >= 146097L) { day -= 146097L; ++year; } // year * 146097 + day - 678881 is MJD; 0 <= day < 146097 // 2000-03-01, MJD 51604, is year 5, day 0 year *= 4; if (day == 146096L) { year += 3; day = 36524L; } else { year += day / 36524L; day %= 36524L; } year = year * 25 + day / 1461; day %= 1461; year *= 4; if (day == 1460) { year += 3; day = 365; } else { year += day / 365; day %= 365; } day *= 10; month = (day + 5) / 306; day = (day + 5) % 306; day /= 10; if (month >= 10) { ++year; month -= 10; } else { month += 2; } ct->year = year; ct->month = month + 1; ct->day = day + 1; ct->offset = 0; } static void __timestamp_struct_reset (MidgardTimestamp *ct) { g_return_if_fail (ct != NULL); guint64 u = ct->date_value + 58486; long s = u % 86400ULL; long day = u / 86400ULL - 53375995543064ULL; long year = day / 146097L; long month; //int yday; ct->second = s % 60; s /= 60; ct->minute = s % 60; s /= 60; ct->hour = s; day = (day % 146097L) + 678881L; while (day >= 146097L) { day -= 146097L; ++year; } // year * 146097 + day - 678881 is MJD; 0 <= day < 146097 // 2000-03-01, MJD 51604, is year 5, day 0 year *= 4; if (day == 146096L) { year += 3; day = 36524L; } else { year += day / 36524L; day %= 36524L; } year = year * 25 + day / 1461; day %= 1461; year *= 4; if (day == 1460) { year += 3; day = 365; } else { year += day / 365; day %= 365; } day *= 10; month = (day + 5) / 306; day = (day + 5) % 306; day /= 10; if (month >= 10) { ++year; month -= 10; } else { month += 2; } ct->year = year; ct->month = month + 1; ct->day = day + 1; ct->offset = 0; } static void midgard_timestamp_set(MidgardTimestamp *ct) { static const unsigned long times365[4] = { 0, 365, 730, 1095 }; static const unsigned long times36524[4] = { 0, 36524UL, 73048UL, 109572UL }; static const unsigned long montab[12] = { 0, 31, 61, 92, 122, 153, 184, 214, 245, 275, 306, 337 }; /* month length after february is (306 * m + 5) / 10 */ long y = ct->year; long m = ct->month - 1; long d = ct->day - 678882L; long s = ((ct->hour * 60 + ct->minute) - ct->offset) * 60 + ct->second; d += 146097L * (y / 400); y %= 400; if (m >= 2) m -= 2; else { m += 10; --y; } y += (m / 12); m %= 12; if (m < 0) { m += 12; --y; } d += montab[m]; d += 146097L * (y / 400); y %= 400; if (y < 0) { y += 400; d -= 146097L; } d += times365[y & 3]; y >>= 2; d += 1461L * (y % 25); y /= 25; d += times36524[y & 3]; ct->date_value = d * 86400ULL + 4611686014920671114ULL + (long long) s; /* TODO: leapsecs */ } /* static void midgard_timestamp_set_value(GValue *value) { MidgardTimestamp *mt = (MidgardTimestamp *)g_value_get_boxed(value); midgard_timestamp_set(mt); } */ MidgardTimestamp *midgard_timestamp_new() { MidgardTimestamp *mt = g_new0(MidgardTimestamp, 1); mt->year = 1; mt->month = 1; mt->day = 1; mt->hour = 0; mt->minute = 0; mt->second = 0; mt->nano = 0; mt->offset = 0; mt->date_value = 4611686014920671114ULL; mt->date_string = NULL; midgard_timestamp_set(mt); return mt; } void midgard_timestamp_free(MidgardTimestamp *mt) { if (mt == NULL) return; if (mt->date_string != NULL) g_free(mt->date_string); g_free(mt); mt = NULL; } /* Internal copy function for the midgard_timestamp value type. */ gpointer __midgard_timestamp_copy (gpointer boxed) { MidgardTimestamp *src = (MidgardTimestamp *) boxed; //g_assert (G_VALUE_HOLDS (src, MIDGARD_TYPE_TIMESTAMP)); MidgardTimestamp *mt = midgard_timestamp_new(); mt->year = src->year; mt->month = src->month; mt->day = src->day; mt->hour = src->hour; mt->minute = src->minute; mt->second = src->second; mt->offset = src->offset; mt->nano = src->nano; mt->date_value = src->date_value; if (src->date_string != NULL) mt->date_string = g_strdup (src->date_string); return mt; } void __midgard_timestamp_free (gpointer boxed) { MidgardTimestamp *mt = (MidgardTimestamp *) boxed; if (mt->date_string) g_free (mt->date_string); mt->date_string = NULL; g_free (mt); return; } static void midgard_timestamp_transform_to_string(const GValue *src, GValue *dst) { g_return_if_fail(G_VALUE_HOLDS_STRING(dst) && G_VALUE_HOLDS(src, MGD_TYPE_TIMESTAMP)); MidgardTimestamp *mt = (MidgardTimestamp *) g_value_get_boxed(src); gchar *str_val = (gchar *)caltime_fmt(mt); g_value_take_string(dst, str_val); } static void midgard_timestamp_transform_from_string(const GValue *src, GValue *dst) { g_return_if_fail(G_VALUE_HOLDS_STRING(src) && G_VALUE_HOLDS(dst, MGD_TYPE_TIMESTAMP)); const gchar *time = g_value_get_string(src); g_return_if_fail(time != NULL); MidgardTimestamp *mt = (MidgardTimestamp *) g_value_get_boxed(dst); if(mt == NULL) { mt = midgard_timestamp_new(); g_value_take_boxed(dst, mt); } gint rv = caltime_scan(time, mt); if (rv != 0) g_warning ("Failed to transform given datetime string (%s) to MidgardTimestamp", time); } static void midgard_timestamp_transform_from_gda_timestamp(const GValue *src, GValue *dst) { g_return_if_fail(G_VALUE_HOLDS(src, GDA_TYPE_TIMESTAMP) && G_VALUE_HOLDS(dst, MGD_TYPE_TIMESTAMP)); MidgardTimestamp *mt = midgard_timestamp_new(); GdaTimestamp *gt = (GdaTimestamp *) g_value_get_boxed(src); mt->year = gt->year; /* Avoid 0000 year */ if (mt->year == 0) mt->year = 1; mt->month = gt->month; /* Avoid 00 month */ if (mt->month == 0) mt->month = 1; mt->day = gt->day; /* Avoid 00 day */ if (mt->day == 0) mt->day = 1; mt->hour = gt->hour; mt->minute = gt->minute; mt->second = gt->second; mt->offset = gt->timezone; if (gt->timezone == GDA_TIMEZONE_INVALID) mt->offset = 0; g_value_take_boxed(dst, mt); } static void midgard_timestamp_transform_to_gda_timestamp(const GValue *src, GValue *dst) { g_return_if_fail(G_VALUE_HOLDS(src, MGD_TYPE_TIMESTAMP) && G_VALUE_HOLDS(dst, GDA_TYPE_TIMESTAMP)); GdaTimestamp *gt = g_new0(GdaTimestamp, 1); MidgardTimestamp *mt = (MidgardTimestamp *) g_value_get_boxed(src); /* __timestamp_reset(src); */ gt->year = mt->year; gt->month = mt->month; gt->day = mt->day; gt->hour = mt->hour; gt->minute = mt->minute; gt->second = mt->second; gt->timezone = mt->offset; gda_value_set_timestamp(dst, (const GdaTimestamp *)gt); g_free (gt); } GType midgard_timestamp_get_type(void) { static GType type = 0; if (G_UNLIKELY (type == 0)) { type = g_boxed_type_register_static ("MidgardTimestamp", (GBoxedCopyFunc) __midgard_timestamp_copy, (GBoxedFreeFunc) __midgard_timestamp_free); /* Register transform functions */ g_value_register_transform_func(type, G_TYPE_STRING, midgard_timestamp_transform_to_string); g_value_register_transform_func(G_TYPE_STRING, type, midgard_timestamp_transform_from_string); g_value_register_transform_func(GDA_TYPE_TIMESTAMP, type, midgard_timestamp_transform_from_gda_timestamp); g_value_register_transform_func(type, GDA_TYPE_TIMESTAMP, midgard_timestamp_transform_to_gda_timestamp); } return type; } void midgard_timestamp_set_current_time (const GValue *value) { g_assert (value != NULL); g_return_if_fail (G_VALUE_HOLDS(value, MGD_TYPE_TIMESTAMP)); MidgardTimestamp *mt = (MidgardTimestamp *) g_value_get_boxed (value); if (!mt) { mt = midgard_timestamp_new (); g_value_take_boxed ((GValue *)value, mt); } time_t utctime = time (NULL); mt->date_value = utctime + 4611686018427387914ULL; mt->nano = 0; } void midgard_timestamp_new_current (GValue *value) { if (!G_IS_VALUE (value) || (G_IS_VALUE (value) && G_VALUE_TYPE (value) != MGD_TYPE_TIMESTAMP)) g_value_init (value, MGD_TYPE_TIMESTAMP); midgard_timestamp_set_current_time(value); __timestamp_reset(value); } void midgard_core_timestamp_set_current_time (MidgardTimestamp *mt) { g_return_if_fail (mt != NULL); time_t utctime = time (NULL); mt->date_value = utctime + 4611686018427387914ULL; mt->nano = 0; __timestamp_struct_reset (mt); } gchar *midgard_timestamp_get_string(MidgardTimestamp *mt) { g_return_val_if_fail (mt != NULL, NULL); return caltime_fmt(mt); } gchar *midgard_timestamp_get_string_from_value (const GValue *value) { g_assert(value != NULL); g_return_val_if_fail(G_VALUE_HOLDS(value, MGD_TYPE_TIMESTAMP), NULL); MidgardTimestamp *mt = (MidgardTimestamp *) g_value_get_boxed (value); return caltime_fmt(mt); } GValue *midgard_timestamp_new_value_from_iso8601(const gchar *iso_date) { GValue *tval = g_new0(GValue, 1); g_value_init(tval, MGD_TYPE_TIMESTAMP); MidgardTimestamp *mt = (MidgardTimestamp *) g_value_get_boxed(tval); if (caltime_scan(iso_date, mt) > 0) { midgard_timestamp_set(mt); } else { __timestamp_reset(tval); } return tval; } MidgardTimestamp *midgard_timestamp_new_from_iso8601(const gchar *iso_date) { MidgardTimestamp *mt = midgard_timestamp_new(); caltime_scan(iso_date, mt); return mt; } gchar *midgard_timestamp_dup_string(const GValue *value) { g_assert(G_VALUE_HOLDS(value, MIDGARD_TYPE_TIMESTAMP)); MidgardTimestamp *mt = (MidgardTimestamp *) g_value_get_boxed(value); return (gchar *)caltime_fmt(mt); } time_t midgard_timestamp_get_time(const GValue *value) { g_assert(G_VALUE_HOLDS(value, MIDGARD_TYPE_TIMESTAMP)); if (value->data) { if (value->data[1].v_ulong >= 1000000000 / 2) return value->data[0].v_uint64 - 4611686018427387914ULL + 1; else return value->data[0].v_uint64 - 4611686018427387914ULL; } return (time_t)-1; } void midgard_timestamp_set_time(GValue *value, time_t time) { g_assert(G_VALUE_HOLDS(value, MIDGARD_TYPE_TIMESTAMP)); if (value->data) { if (time) value->data[0].v_uint64 = time + 4611686018427387914ULL; value->data[1].v_ulong = 0; } } GValue __get_current_timestamp_value() { GValue tval = {0, }; time_t utctime = time(NULL); g_value_init(&tval, MIDGARD_TYPE_TIMESTAMP); midgard_timestamp_set_time(&tval, utctime); return tval; } gchar *midgard_timestamp_current_as_char() { GValue tval = __get_current_timestamp_value(); gchar *dtstr = midgard_timestamp_dup_string(&tval); g_value_unset(&tval); return dtstr; } GValue midgard_timestamp_current_as_value(GType type) { GValue tval = __get_current_timestamp_value(); if(type == G_TYPE_STRING) { GValue sval = {0, }; g_value_init(&sval, G_TYPE_STRING); g_value_take_string(&sval, midgard_timestamp_dup_string(&tval)); g_value_unset(&tval); return sval; } return tval; } midgard2-core-10.05.7.1/src/midgard_error.c0000664000175000017500000002407111772046240015147 00000000000000/* * Copyright (C) 2006 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "midgard_core_object.h" #include "midgard_datatypes.h" #include #include /** * midgard_error_generic: * * GQuark for Midgard Error. It's used by Midgard Error implementation, and * probably not needed to use by any application. * * Returns: MGD_GENERIC_ERROR GQuark */ GQuark midgard_error_generic(void) { static GQuark q = 0; if (q == 0) q = g_quark_from_static_string ("midgard-generic-error-quark"); return q; } /** * midgard_error_string: * @domain: GQuark which represents MidgardError domain. * @errcode: MidgardErrorGeneric enum value. * * Get error message for the given error code. * * Returns: error messages which is owned by midgard-core and should not be freed. */ const gchar *midgard_error_string(GQuark domain, gint errcode) { switch(errcode){ case MGD_ERR_OK: return _("MGD_ERR_OK"); break; case MGD_ERR_ACCESS_DENIED: return _("Access Denied."); break; case MGD_ERR_NO_METADATA: return _("Metadata class not defined."); break; case MGD_ERR_NOT_OBJECT: return _("Not Midgard Object."); break; case MGD_ERR_NOT_EXISTS: return _("Object does not exist."); break; case MGD_ERR_INVALID_NAME: return _("Invalid characters in object's name."); break; case MGD_ERR_DUPLICATE: return _("Object already exist."); break; case MGD_ERR_HAS_DEPENDANTS: return _("Object has dependants."); break; case MGD_ERR_RANGE: return _("Date range error."); /* FIXME , replace with invalid date range or format */ break; case MGD_ERR_NOT_CONNECTED: return _("Not connected to the Midgard database."); break; case MGD_ERR_SG_NOTFOUND: return _("Sitegroup not found."); break; case MGD_ERR_INVALID_OBJECT: return _("Object not registered as Midgard Object."); break; case MGD_ERR_QUOTA: return _("Quota limit reached."); break; case MGD_ERR_INTERNAL: return _("Critical internal error."); break; case MGD_ERR_OBJECT_NAME_EXISTS: return _("Object with such name exists in tree."); break; case MGD_ERR_OBJECT_NO_STORAGE: return _("Storage table not defined for object."); break; case MGD_ERR_OBJECT_NO_PARENT: return _("Parent object in tree not defined."); break; case MGD_ERR_INVALID_PROPERTY_VALUE: return _("Invalid property value."); break; case MGD_ERR_INVALID_PROPERTY: return _("Invalid property."); break; case MGD_ERR_USER_DATA: return ""; break; case MGD_ERR_OBJECT_DELETED: return _("Object deleted."); break; case MGD_ERR_OBJECT_PURGED: return _("Object purged."); break; case MGD_ERR_OBJECT_EXPORTED: return _("Object already exported."); break; case MGD_ERR_OBJECT_IMPORTED: return _("Object already imported."); break; case MGD_ERR_MISSED_DEPENDENCE: return _("Missed dependence for object."); break; case MGD_ERR_TREE_IS_CIRCULAR: return _("Circular reference found in object's tree."); break; case MGD_ERR_OBJECT_IS_LOCKED: return _("Object is locked"); break; default: return _("Undefined error"); } } static gchar* _midgard_error_format(const gchar *msg, va_list args) { if(!msg) return g_strdup(""); gchar *new_string = g_strdup_vprintf(msg, args); return new_string; } /** * midgard_set_error: * @mgd: #MidgardConnection instance * @domain: GQuark which represents MidgardError domain * @errcode: #MidgardErrorGeneric enum value * @msg: a message which should be appended to string represented by errcode * @...: message argument list ( if required ) * * This function sets internal error constant, and creates new error message. * User defined message is appended to internal one. * Any message created by application ( and its corresponding constant ) are destroyed * and reset to MGD_ERR_OK when any API function is invoked. * Second @domain parameter is optional , and can be safely defined as NULL for * MGD_GENERIC_ERROR domain. * * * * * void set_wrong_property(MidgardConnection *mgd, gchar *prop) * { * midgard_set_error(mgd, NULL, * MGD_ERR_INVALID_PROPERTY_VALUE, * "My application doesn't accept %s property", * prop); * } * * */ void midgard_set_error( MidgardConnection *mgd, GQuark domain, gint errcode, const gchar *msg, ...) { g_assert(mgd != NULL); if(!domain) domain = MGD_GENERIC_ERROR; if(mgd->errstr) g_free(mgd->errstr); if(mgd->err) g_clear_error(&mgd->err); gchar *new_msg; va_list args; va_start(args, msg); new_msg = _midgard_error_format(msg, args); va_end(args); g_clear_error(&mgd->err); /* watch out! midgard 1.7 and midcom needs MGD_ERR_OK string. * Keep string formatters together */ g_set_error(&mgd->err, domain, errcode, "%s%s", midgard_error_string(domain, errcode), new_msg); g_free(new_msg); mgd->errnum = errcode; if(!mgd->err->message) mgd->errstr = g_strdup(""); else mgd->errstr = g_strdup(mgd->err->message); return; } /** * midgard_error_default_log: * @domain: domain for the given log message * @level: GLogLevelFlags * @msg: log message * @ptr: pointer to structure which holds loglevel * * @ptr pointer may be a pointer to #MidgardConnection or #MidgardTypeHolder * structure. This function checks pointer type using MIDGARD_IS_CONNECTION * convention macro. Next midgard_connection_get_loglevel is called to get loglevel. * If MidgardConnection check fails , a typecast to MidgardTypeHolder is made. * In this case, level member is used to get loglevel. * * You are responsible to correctly set MidgardConnection or MidgardTypeHolder * before passing ptr argument. The main approach is to follow configuration's * loglevel even if MidgardConnection pointer is not yet available. * * @see midgard_connection_set_loglevel() to set log level. */ void midgard_error_default_log(const gchar *domain, GLogLevelFlags level, const gchar *msg, gpointer ptr) { gchar *level_ad = NULL; guint mlevel; GFileOutputStream *output_stream = NULL; MidgardConnection *mgd; MidgardTypeHolder *holder; if(ptr == NULL) { mlevel = G_LOG_LEVEL_WARNING; } else { if(MIDGARD_IS_CONNECTION((MidgardConnection *) ptr)) { mgd = MIDGARD_CONNECTION(ptr); mlevel = midgard_connection_get_loglevel(mgd); if(mgd->priv->config != NULL && mgd->priv->config->priv != NULL) output_stream = mgd->priv->config->priv->output_stream; } else { holder = (MidgardTypeHolder *) ptr; mlevel = holder->level; } } switch (level) { case G_LOG_FLAG_RECURSION: level_ad = "RECURSION"; break; case G_LOG_FLAG_FATAL: level_ad = "FATAL! "; break; case G_LOG_LEVEL_ERROR: /* g_on_error_stack_trace(NULL); */ level_ad = "ERROR"; break; case G_LOG_LEVEL_CRITICAL: level_ad = "CRITICAL "; break; case G_LOG_LEVEL_WARNING: level_ad = "WARNING"; break; case G_LOG_LEVEL_MESSAGE: level_ad = "m"; break; case G_LOG_LEVEL_INFO: level_ad = "info"; break; case G_LOG_LEVEL_DEBUG: level_ad = "debug"; break; default: level_ad = "midgard-unknown-log-level"; break; } if (mlevel >= level) { GString *logstr = g_string_new(""); g_string_append_printf(logstr, "%s (pid:%ld):(%s):%s\n", domain, (unsigned long)getpid(), level_ad, msg); gchar *tmpstr = g_string_free(logstr, FALSE); if(output_stream) { GError *err = NULL; g_output_stream_write (G_OUTPUT_STREAM (output_stream), (const gchar *) tmpstr, strlen (tmpstr), NULL, &err); g_output_stream_flush (G_OUTPUT_STREAM (output_stream), NULL, NULL); //g_output_stream_close_async (G_OUTPUT_STREAM (output_stream), 1, NULL, NULL, NULL); if (err) g_warning ("Logfile write error: %s", err && err->message ? err->message : err->message); } else { fprintf(stderr, "%s", tmpstr); fflush(stderr); } g_free(tmpstr); } } /** * midgard_error_parse_loglevel: * @levelstring: string which should be parsed * * This function returns level registered in GLib. * * Returns: #GLogLevelFlags or -1 on failure */ gint midgard_error_parse_loglevel(const gchar *levelstring) { g_assert(levelstring != NULL); guint level = 0, mask = 0; guint len = strlen(levelstring); gchar *newlevel = g_ascii_strdown(levelstring, len); if(g_str_equal(newlevel, "error")) level = G_LOG_LEVEL_ERROR; if(g_str_equal(newlevel, "critical")) level = G_LOG_LEVEL_CRITICAL; if(g_str_equal(newlevel, "warn")) level = G_LOG_LEVEL_WARNING; if(g_str_equal(newlevel, "warning")) level = G_LOG_LEVEL_WARNING; if(g_str_equal(newlevel, "message")) level = G_LOG_LEVEL_MESSAGE; if(g_str_equal(newlevel, "info")) level = G_LOG_LEVEL_INFO; if(g_str_equal(newlevel, "debug")) level = G_LOG_LEVEL_DEBUG; g_free(newlevel); switch(level){ case G_LOG_LEVEL_ERROR: case G_LOG_LEVEL_CRITICAL: case G_LOG_LEVEL_WARNING: case G_LOG_LEVEL_MESSAGE: case G_LOG_LEVEL_INFO: case G_LOG_LEVEL_DEBUG: for (; level && level > G_LOG_FLAG_FATAL; level >>= 1) { mask |= level; } return mask; break; default: return -1; } return -1; } /* temporary, we should use g_info, but it doesn't exist */ void mgd_info(const gchar *format, ...) { va_list args; va_start (args, format); g_logv (G_LOG_DOMAIN, G_LOG_LEVEL_INFO, format, args); va_end (args); } midgard2-core-10.05.7.1/src/uuid.c0000664000175000017500000001007411772046240013273 00000000000000/* * Copyright (C) 2005 Jukka Zitting * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "uuid.h" #include "midgard_md5.h" #include #include gboolean midgard_is_uuid(const gchar *uuid) { g_assert(uuid != NULL); static const char format[] = "xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx"; int i; for (i = 0; i < sizeof(format); i++) { if (format[i] == 'x') { if (!g_ascii_isxdigit(uuid[i])) { return FALSE; } } else if (uuid[i] != format[i]) { return FALSE; } } return TRUE; } G_LOCK_DEFINE_STATIC(uuid); gchar *midgard_uuid_new(void) { static gboolean initialized = FALSE; static guint64 timestamp; static guint32 advance; static guint16 clockseq; static guint16 node_high; static guint32 node_low; guint64 time; guint16 nowseq; GTimeVal tv; G_LOCK(uuid); g_get_current_time(&tv); time = ((guint64) tv.tv_sec) * G_USEC_PER_SEC + ((guint64) tv.tv_usec); time = time * 10 + G_GINT64_CONSTANT(0x01B21DD213814000U); if (!initialized) { timestamp = time; advance = 0; GRand *rand = g_rand_new(); guint32 r = g_rand_int(rand); clockseq = r >> 16; node_high = r | 0x0100; node_low = g_rand_int(rand); g_rand_free(rand); initialized = TRUE; } else if (time < timestamp) { timestamp = time; advance = 0; clockseq++; } else if (time == timestamp) { advance++; time += advance; } else { timestamp = time; advance = 0; } nowseq = clockseq; G_UNLOCK(uuid); return g_strdup_printf( "%08" PRIx32 "-%04x-%04x-%04x-%04x%08" PRIx32, (guint32) time, (unsigned int) (time >> 32) & 0xffff, (unsigned int) ((time >> 48) & 0x0ffff) | 0x1000, (unsigned int) (nowseq & 0x3fff) | 0x8000, (unsigned int) node_high, (guint32) node_low); } static const unsigned char namespace_uuid[] = { 0x00, 0xdc, 0x46, 0xa0, 0x0e, 0x0c, 0x10, 0x85, 0x82, 0xbb, 0x00, 0x02, 0xa5, 0xd5, 0xfd, 0x2e }; gchar *midgard_uuid_external(const gchar *external) { g_assert(external != NULL); unsigned char uuid[16]; MIDGARD_MD5_CTX md5; MIDGARD_MD5_Init(&md5); MIDGARD_MD5_Update(&md5, namespace_uuid, sizeof(namespace_uuid)); MIDGARD_MD5_Update(&md5, (unsigned char *) external, strlen(external)); MIDGARD_MD5_Final(uuid, &md5); return g_strdup_printf( "%08lx-%04x-%04x-%04x-%04x%08lx", (unsigned long) uuid[0] << 24 | uuid[1] << 16 | uuid[2] << 8 | uuid[3], (unsigned int) uuid[4] << 8 | uuid[5], (unsigned int) ((uuid[6] & 0x0f) | 0x30) << 8 | uuid[7], (unsigned int) ((uuid[8] & 0x3f) | 0x80) << 8 | uuid[9], (unsigned int) uuid[10] << 8 | uuid[11], (unsigned long) uuid[12] << 24 | uuid[13] << 16 | uuid[14] << 8 | uuid[15]); } midgard2-core-10.05.7.1/src/midgard_connection.c0000664000175000017500000011430011772046240016150 00000000000000/* * Copyright (C) 2006, 2007, 2008, 2009 Piotr Pokora * Copyright (C) 2006 Jukka Zitting * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_connection.h" #include "midgard_error.h" #include "schema.h" #include #include "midgard_core_connection.h" #include "midgard_core_object.h" #include "midgard_core_query.h" #include "midgard_core_config.h" #include "midgard_core_query_builder.h" #include "midgard_core_workspace.h" #include "midgard_user.h" /** * SECTION: MidgardConnection * @short_descritpion: MidgardConnection description */ #ifdef HAVE_LIBGDA_4 #include #endif #define MGD_MYSQL_HOST "127.0.0.1" #define MGD_MYSQL_DATABASE "midgard" #define MGD_MYSQL_USERNAME "midgard" #define MGD_MYSQL_PASSWORD "midgard" gboolean __midgard_connection_open (MidgardConnection *mgd, gboolean init_schema, GError **error); static MidgardConnectionPrivate * midgard_connection_private_new (void) { MidgardConnectionPrivate *cnc_private = g_new(MidgardConnectionPrivate, 1); cnc_private->pattern = NULL; cnc_private->config = NULL; cnc_private->copy_config = NULL; cnc_private->connected = FALSE; cnc_private->loghandler = 0; cnc_private->loglevel = 0; cnc_private->user = NULL; cnc_private->inherited = FALSE; cnc_private->parser = NULL; cnc_private->connection = NULL; cnc_private->configname = NULL; cnc_private->cnc_str = NULL; cnc_private->error_clbk_connected = FALSE; cnc_private->authtypes = NULL; cnc_private->authstack = NULL; /* Initialize thread *if* you need correct connection uptime when you use only one procces. It works fine in child proccesses */ /* g_thread_init(NULL); */ cnc_private->timer = g_timer_new(); g_timer_start(cnc_private->timer); cnc_private->enable_replication = FALSE; cnc_private->enable_quota = FALSE; cnc_private->enable_debug = FALSE; cnc_private->enable_dbus = FALSE; cnc_private->enable_workspace = FALSE; /* workspace */ cnc_private->has_workspace = FALSE; cnc_private->workspace_model = NULL; cnc_private->workspace = NULL; cnc_private->workspace_manager = NULL; return cnc_private; } static void _midgard_connection_finalize(GObject *object) { g_assert(object != NULL); MidgardConnection *self = (MidgardConnection *) object; if (self->err != NULL) g_clear_error(&self->err); if (self->errstr != NULL) { g_free(self->errstr); self->errstr = NULL; } if (self->priv->authstack) { g_slist_free(self->priv->authstack); self->priv->authstack = NULL; } g_free ((gchar *)self->priv->cnc_str); self->priv->cnc_str = NULL; g_timer_stop(self->priv->timer); //gdouble bench = g_timer_elapsed(self->priv->timer, NULL); if (self->priv->loghandler) { /* uptime message disable for a while */ /* g_message("MidgardConnection uptime %.04f seconds", bench); */ g_log_remove_handler(G_LOG_DOMAIN, self->priv->loghandler); } g_timer_destroy(self->priv->timer); if (!self->priv->inherited) { if (self->priv->config && G_IS_OBJECT (self->priv->config)) { g_object_unref(self->priv->config); self->priv->config = NULL; } } if (self->priv->workspace_manager) g_object_unref (self->priv->workspace_manager); self->priv->workspace_manager = NULL; if (self->priv->copy_config) g_object_unref (self->priv->copy_config); self->priv->copy_config = NULL; g_free(self->priv); self->priv = NULL; } static void _midgard_connection_dispose(GObject *object) { MidgardConnection *self = (MidgardConnection *) object; GdaConnection *gda_cnc = NULL; while (self->priv->user != NULL) { // emptying authstack gboolean res = midgard_user_log_out((MidgardUser *)self->priv->user); g_assert(res == TRUE); } /* Free only these data which are not inherited */ if (!self->priv->inherited) { if(self->priv->parser != NULL) g_object_unref(self->priv->parser); gda_cnc = self->priv->connection; } if (self->priv->workspace) g_object_unref (self->priv->workspace); self->priv->workspace = NULL; /* Disconnect and do not invoke error callbacks */ if (self->priv->error_clbk_connected) midgard_core_connection_disconnect_error_callback(self); if (gda_cnc != NULL) { g_object_unref(gda_cnc); g_signal_emit(self, MIDGARD_CONNECTION_GET_CLASS(self)->signal_id_disconnected, 0); } } /* Properties */ enum { PROPERTY_CONFIG = 1 }; static void _midgard_connection_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardConnection *self = (MidgardConnection *) object; switch (property_id) { case PROPERTY_CONFIG: /* Read only */ break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (object,property_id,pspec); break; } } static void _midgard_connection_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardConnection *self = (MidgardConnection *) object; switch (property_id) { case PROPERTY_CONFIG: if (!self->priv->config) return; if (self->priv->copy_config) { g_value_set_object (value, self->priv->copy_config); return; } MidgardConfig *config = midgard_config_copy (self->priv->config); g_object_set (config, "dbuser", "", "dbpass", "", NULL); self->priv->copy_config = config; g_value_set_object (value, config); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (object,property_id,pspec); break; } } static void _midgard_connection_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardConnectionClass *klass = MIDGARD_CONNECTION_CLASS (g_class); gobject_class->finalize = _midgard_connection_finalize; gobject_class->dispose = _midgard_connection_dispose; gobject_class->set_property = _midgard_connection_set_property; gobject_class->get_property = _midgard_connection_get_property; /* properties */ GParamSpec *pspec = g_param_spec_object ("config", "Config associated with MidgardConnection", "A deep copy of config with empty database username and password values.", MIDGARD_TYPE_CONFIG, G_PARAM_READABLE); /** * MidgardConnection:config: * A deep copy of #MidgardConfig associated with #MidgardConnection. * Returned config property has empty database username and password values set. */ g_object_class_install_property (gobject_class, PROPERTY_CONFIG, pspec); /* signals */ /** * MidgardConnection::error: * * error signal is emitted every time when error set is different than MGD_ERR_OK */ klass->signal_id_error = g_signal_new("error", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_RUN_LAST | G_SIGNAL_NO_RECURSE | G_SIGNAL_NO_HOOKS, G_STRUCT_OFFSET (MidgardConnectionClass, error), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); klass->signal_id_auth_changed = g_signal_new("auth-changed", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_RUN_LAST | G_SIGNAL_NO_RECURSE | G_SIGNAL_NO_HOOKS, G_STRUCT_OFFSET (MidgardConnectionClass, auth_changed), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); klass->signal_id_lost_provider = g_signal_new("lost-provider", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_RUN_LAST | G_SIGNAL_NO_RECURSE | G_SIGNAL_NO_HOOKS, G_STRUCT_OFFSET (MidgardConnectionClass, lost_provider), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); klass->signal_id_connected = g_signal_new("connected", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_RUN_LAST | G_SIGNAL_NO_RECURSE | G_SIGNAL_NO_HOOKS, G_STRUCT_OFFSET (MidgardConnectionClass, connected), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); klass->signal_id_disconnected = g_signal_new("disconnected", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_RUN_LAST | G_SIGNAL_NO_RECURSE | G_SIGNAL_NO_HOOKS, G_STRUCT_OFFSET (MidgardConnectionClass, disconnected), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); } static void __connect_callback (MidgardConnection *self) { self->priv->connected = TRUE; } static void __disconnect_callback (MidgardConnection *self) { self->priv->connected = FALSE; } static void _midgard_connection_instance_init(GTypeInstance *instance, gpointer g_class) { MidgardConnection *self = (MidgardConnection *) instance; /* Public members */ self->err = NULL; self->errstr = g_strdup("MGD_ERR_OK"); /* Private members */ self->priv = midgard_connection_private_new(); g_signal_connect (G_OBJECT(self), "connected", G_CALLBACK(__connect_callback), (gpointer) self); g_signal_connect (G_OBJECT(self), "disconnected", G_CALLBACK(__disconnect_callback), (gpointer) self); } /* Registers the type as a fundamental GType unless already registered. */ GType midgard_connection_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardConnectionClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_connection_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardConnection), 0, /* n_preallocs */ (GInstanceInitFunc) _midgard_connection_instance_init /* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardConnection", &info, 0); } return type; } /** * midgard_connection_new: * * Initializes new instance of MidgardConnection object type. * * MidgardConnectionClass has no properties registered as class members. * Every internal data of MidgardConnection object is accessible with API * functions, and is not settable or gettable as property's value. * Particular methods should be implemented for language bindings. * * #MidgardConnection objects holds runtime ( or request ) non persistent * data like authentication type, debug level, etc. * * Persistent data like database name, blobs directory are associated with #MidgardConfig object. * * Returns: pointer to #MidgardConnection object or %NULL on failure. */ MidgardConnection *midgard_connection_new(void){ MidgardConnection *self = g_object_new(MIDGARD_TYPE_CONNECTION, NULL); return self; } static gboolean __mysql_reconnect (MidgardConnection *mgd) { g_assert (mgd != NULL); guint i = 0; gboolean opened; gda_connection_close_no_warning (mgd->priv->connection); g_signal_emit (mgd, MIDGARD_CONNECTION_GET_CLASS (mgd)->signal_id_disconnected, 0); /* Try to reconnect 10 times */ guint n_times = 10; do { g_usleep (5000000); /* 5 seconds interval */ g_debug ("Trying to reopen connection"); opened = gda_connection_open (mgd->priv->connection, NULL); if (opened) { g_signal_emit (mgd, MIDGARD_CONNECTION_GET_CLASS (mgd)->signal_id_connected, 0); g_debug ("Successfully reopened connection"); return TRUE; } i++; } while (i < n_times); return FALSE; } /* Reopen connection if there's already gda connection asigned * and midgard connection is not connected. */ #define __SELF_REOPEN(__self, __retval) { \ if (!__self->priv->connected) {\ if (__self->priv->connection \ && GDA_IS_CONNECTION (__self->priv->connection)) { \ GError *__error = NULL; \ __retval = gda_connection_open (__self->priv->connection, &__error); \ if (__retval) \ g_signal_emit (__self, MIDGARD_CONNECTION_GET_CLASS (__self)->signal_id_connected, 0); \ else \ MIDGARD_ERRNO_SET_STRING (__self, MGD_ERR_NOT_CONNECTED, \ __error && __error->message ? __error->message : "Unknown reason"); \ if (__error) \ g_clear_error (&__error); \ }\ }\ } /** * Adds a named parameter to the given libgda connection string. @param cnc libgda connection string @param name parameter name @param value parameter value @param def default value (used if given value is NULL) */ static void cnc_add_part( GString *cnc, const gchar *name, const gchar *value, const gchar *def) { g_assert(cnc != NULL); g_assert(name != NULL); if (value == NULL) { value = def; } if (*value) { gchar *tmp; /* Add a separating semicolon if there already are parameters before this one. */ if (cnc->len > 0) { g_string_append_c(cnc, ';'); } tmp = gda_rfc1738_encode (name); g_string_append(cnc, tmp); g_free (tmp); g_string_append_c(cnc, '='); tmp = gda_rfc1738_encode (value); g_string_append(cnc, tmp); g_free (tmp); } } gboolean __midgard_connection_open(MidgardConnection *mgd, gboolean init_schema, GError **error) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail (error == NULL || *error == NULL, FALSE); MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); gchar *host, *dbname, *dbuser, *dbpass, *loglevel, *tmpstr; guint port = 0; gchar *auth = NULL; MidgardConfig *config = mgd->priv->config; host = config->host; dbname = config->database; dbuser = config->dbuser; dbpass = config->dbpass; loglevel = config->loglevel; port = config->dbport; gboolean enable_threads = config->gdathreads; /* Get 30% performance boost for non threaded applications */ if(!enable_threads) g_setenv("LIBGDA_NO_THREADS", "yes", TRUE); /* Initialize libgda */ gda_init (); midgard_connection_set_loglevel(mgd, loglevel, NULL); if(config->priv->dbtype == MIDGARD_DB_TYPE_SQLITE) { gchar *path = NULL; gchar *dbdir = config->dbdir; if (!dbdir || *dbdir == '\0') { const gchar *sqlite_dir[] = {"data", NULL}; path = midgard_core_config_build_path(sqlite_dir, NULL, TRUE); } else { path = g_strdup(dbdir); } tmpstr = g_strconcat("DB_DIR=", path, ";", "DB_NAME=", dbname, NULL); g_free(path); } else if (config->priv->dbtype == MIDGARD_DB_TYPE_ORACLE) { GString *cnc = g_string_sized_new(100); cnc_add_part(cnc, "TNSNAME", dbname, MGD_MYSQL_HOST); cnc_add_part(cnc, "HOST", host, MGD_MYSQL_HOST); cnc_add_part(cnc, "DB_NAME", dbname, MGD_MYSQL_DATABASE); tmpstr = g_string_free(cnc, FALSE); cnc = g_string_sized_new(100); cnc_add_part(cnc, "USERNAME", dbuser, MGD_MYSQL_USERNAME); cnc_add_part(cnc, "PASSWORD", dbpass, MGD_MYSQL_PASSWORD); auth = g_string_free(cnc, FALSE); } else { GString *cnc = g_string_sized_new(100); cnc_add_part(cnc, "HOST", host, MGD_MYSQL_HOST); if (port > 0) { GString *_strp = g_string_new(""); g_string_append_printf (_strp, "%d", port); cnc_add_part (cnc, "PORT", _strp->str, ""); g_string_free (_strp, TRUE); } cnc_add_part(cnc, "DB_NAME", dbname, MGD_MYSQL_DATABASE); tmpstr = g_string_free(cnc, FALSE); GString *auth_str = g_string_sized_new(100); cnc_add_part(auth_str, "USERNAME", dbuser, MGD_MYSQL_USERNAME); cnc_add_part(auth_str, "PASSWORD", dbpass, MGD_MYSQL_PASSWORD); auth = g_string_free(auth_str, FALSE); } GError *err = NULL; GdaConnection *connection = gda_connection_open_from_string( config->dbtype, tmpstr, auth, enable_threads ? GDA_CONNECTION_OPTIONS_THREAD_SAFE : GDA_CONNECTION_OPTIONS_NONE, &err); g_free(auth); if(connection == NULL) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_NOT_CONNECTED, " Database [%s]. %s", tmpstr, err->message); if (err) { g_set_error (error, MGD_GENERIC_ERROR, MGD_ERR_NOT_CONNECTED, "Database [%s]. %s", tmpstr, err->message); g_clear_error (&err); } g_free(tmpstr); return FALSE; } g_free(tmpstr); mgd->priv->parser = gda_connection_create_parser (connection); if (!mgd->priv->parser) mgd->priv->parser = gda_sql_parser_new(); g_assert (mgd->priv->parser != NULL); mgd->priv->connection = connection; midgard_core_connection_connect_error_callback (mgd); if(init_schema) { if(!g_type_from_name("midgard_quota")) { MidgardSchema *schema = g_object_new(MIDGARD_TYPE_SCHEMA, NULL); gchar *path = g_build_path(G_DIR_SEPARATOR_S, config->sharedir, "MidgardObjects.xml", NULL); midgard_schema_init(schema, (const gchar *)path); g_free(path); midgard_schema_read_dir(schema, config->sharedir); mgd->priv->schema = schema; } } //midgard_connection_set_loglevel(mgd, loglevel, NULL); /* Loads available authentication types */ midgard_core_connection_initialize_auth_types(mgd); /* Loads all available workspaces */ midgard_core_workspace_list_all (mgd, TRUE); g_signal_emit (mgd, MIDGARD_CONNECTION_GET_CLASS (mgd)->signal_id_connected, 0); return TRUE; } /** * midgard_connection_open: * @self: #MidgardConnection instance * @name: configuration file name * @error: pointer to store error * * Opens a connection to the database, which is defined in named configuration. * The configuration file is read from the system configuration directory * and is used as the configuration for the created connection. For example: `/etc` * directory is taken into account if library is compiled with `/usr' prefix, * `/usr/local/etc` if compiled with `/usr/local` prefix, etc. * * Consider using midgard_connection_open_config(), if you need to open connection to * database which is configured in user's home directory. * * If the named database configuration can not be read or the connection fails, * then %FALSE is returned and an error message is written to the global midgard * error state. * * It also initializes #MidgardSchema object (which is encapsulated by implementation ) * and register all MgdSchema, #MidgardObject derived classes defined by user. * This happens only when basic Midgard classes are not registered in GType system. * This is recommended way to initialize MgdSchema types. * * Returns: %TRUE if the operation succeeded, %FALSE otherwise. */ gboolean midgard_connection_open (MidgardConnection *self, const char *name, GError **error) { g_assert(self != NULL); g_assert (name != NULL); g_return_val_if_fail (error == NULL || *error == NULL, FALSE); MIDGARD_ERRNO_SET (self, MGD_ERR_OK); gboolean rv = TRUE; __SELF_REOPEN (self, rv); if (!rv) return rv; if(self->priv->config != NULL){ midgard_set_error(self, MGD_GENERIC_ERROR, MGD_ERR_USER_DATA, "MidgardConfig already associated with " "MidgardConnection"); g_set_error (error, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, "%s", midgard_connection_get_error_string (self)); return FALSE; } MidgardConfig *config = midgard_config_new(); GError *rf_error = NULL; if(!midgard_config_read_file(config, name, FALSE, &rf_error)) { if(rf_error) g_propagate_error(error, rf_error); MIDGARD_ERRNO_SET (self, MGD_ERR_NOT_CONNECTED); return FALSE; } self->priv->config = config; GError *err = NULL; if(!__midgard_connection_open(self, TRUE, &err)) { MIDGARD_ERRNO_SET (self, MGD_ERR_NOT_CONNECTED); rv = FALSE; if (err) g_propagate_error (error, err); } return rv; } /** * midgard_connection_open_from_file: * @self: #MidgardConnection instance * @filepath: configuration file path * @error: pointer to store error * * Opens a connection to the database. * The configuration file is read from given filepath. * * Take a look at midgard_connection_open() wrt #MidgardSchema. * * Returns: %TRUE if the operation succeeded, %FALSE otherwise. */ gboolean midgard_connection_open_from_file (MidgardConnection *self, const char *filepath, GError **error) { g_assert(self != NULL); g_assert (filepath != NULL); g_return_val_if_fail (error == NULL || *error == NULL, FALSE); gboolean rv = TRUE; __SELF_REOPEN (self, rv); if (!rv) return rv; /* FIXME, it should be handled by GError */ if(self->priv->config != NULL){ midgard_set_error(self, MGD_GENERIC_ERROR, MGD_ERR_USER_DATA, "MidgardConfig already associated with " "MidgardConnection"); return FALSE; } MidgardConfig *config = midgard_config_new(); GError *rf_error = NULL; if(!midgard_config_read_file_at_path(config, filepath, &rf_error)) { if(rf_error) g_propagate_error(error, rf_error); return FALSE; } self->priv->config = config; GError *err = NULL; if(!__midgard_connection_open(self, TRUE, &err)) rv = FALSE; if (err) g_propagate_error (error, err); return rv; } /** * midgard_connection_open_all: * @userdir: switch to read configuration from system or user's directory * * Every key is configuration name, and value is #MidgardConnection object. * Use g_hash_table_destroy to free hashtable and all opened connections. * * Returns: (transfer full): Newly allocated full #GHashTable. */ extern GHashTable *midgard_connection_open_all(gboolean userdir) { GHashTable *cncs = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, g_object_unref); gchar **cfgs = midgard_config_list_files(userdir); if(!cfgs) return FALSE; guint i = 0; while(cfgs[i] != NULL) { MidgardConnection *cnc = midgard_connection_new(); g_debug("Initialize new connection using '%s' configuration", cfgs[i]); GError *error = NULL; MidgardConfig *config = midgard_config_new(); if(!midgard_config_read_file(config, cfgs[i], userdir, &error)) { if(error) { g_warning("%s", error->message); g_error_free(error); } i++; continue; } cnc->priv->config = config; GError *err = NULL; if(__midgard_connection_open(cnc, TRUE, &err)) { g_hash_table_insert(cncs, g_strdup(cfgs[i]), cnc); if (err) g_clear_error (&err); } else { g_object_unref(cnc); g_warning("Configuration %s failed", cfgs[i]); } i++; } g_strfreev(cfgs); return cncs; } /** * midgard_connection_open_config: * @self: [in]newly initialized #MidgardConnection object * @config: #MidgardConfig object * * Opens a #MidgardConnection with the given configuration. * * Take a look at midgard_connection_open() wrt #MidgardSchema. * * If #MidgardConnection is already associated with given config, method returns %TRUE. * If associated with another one, %FALSE is returned and MGD_ERR_INTERNAL error is set. * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_connection_open_config( MidgardConnection *self, MidgardConfig *config) { g_assert(self != NULL); g_assert(config != NULL); MidgardConfig *self_config = self->priv->config; gboolean rv = TRUE; __SELF_REOPEN (self, rv); if (!rv) return rv; /* Emulate the same config pointer, as we have copy associated */ if (self_config && (g_str_equal (self_config->database, config->database) && g_str_equal (self_config->dbtype, config->dbtype) && g_str_equal (self_config->host, config->host))) { return TRUE; } else if (self_config) { MIDGARD_ERRNO_SET_STRING (self, MGD_ERR_INTERNAL, "Midgard connection already associated with configuration"); return FALSE; } self->priv->config = midgard_config_copy (config); GError *err = NULL; if(!__midgard_connection_open(self, TRUE, &err)) rv = FALSE; if (err) g_clear_error (&err); return rv; } gboolean midgard_connection_struct_open_config( MidgardConnection *self, MidgardConfig *config) { g_assert(self != NULL); g_assert(config != NULL); self->priv->config = config; GError *err = NULL; if(!__midgard_connection_open(self, FALSE, &err)) { if (err) g_clear_error (&err); return FALSE; } return TRUE; } /** * midgard_connection_close: * @self: #MidgardConnection instance * * Closes connection to underlying storage. * All private and public data remains unchanged, so connection might be reopened at any time. * After closing connection, 'disconnected' signal is emitted. * * Since: 10.05.1 */ void midgard_connection_close (MidgardConnection *self) { g_return_if_fail (self != NULL); if (!self->priv->connection || (!GDA_IS_CONNECTION (self->priv->connection))) return; gda_connection_close_no_warning (self->priv->connection); g_signal_emit (self, MIDGARD_CONNECTION_GET_CLASS (self)->signal_id_disconnected, 0); return; } /** * midgard_connection_set_loglevel: * @self: #MidgardConnection instance * @level: Loglevel string * @log_func: (scope call): log handler function * * Sets log level of the given MidgardConnection. * Overwrites internal #MidgardConnection's log level defined in configuration file. * By default MidgardConnection holds loglevel which is associated with ( and duplicated * from ) #MidgardConfig. * #MidgardConfig object's log level isn't changed by this function * * This method is a shortcut which sets correctly loghandler,loglevel and GLib's log function. Default log function will be used if %NULL * is defined. Core's default function is #midgard_error_default_log. * * Available levels: error, warn, warning, info, message, debug. * warn is default loglevel, SQL queries are logged with debug level. * With info level, function names ( and classes' names ) are ( at least should be) logged in language bindings * * Returns: %TRUE if debug level is set, %FALSE otherwise */ gboolean midgard_connection_set_loglevel( MidgardConnection *self, const gchar *level, GLogFunc log_func) { g_assert(self != NULL); GLogFunc _func = log_func; if(_func == NULL) _func = midgard_error_default_log; gint loglevel = midgard_error_parse_loglevel(level); if(loglevel > -1) self->priv->loglevel = loglevel; else return FALSE; MGD_CNC_DEBUG (self) = FALSE; if (loglevel > G_LOG_LEVEL_DEBUG) MGD_CNC_DEBUG (self) = TRUE; guint loghandler = midgard_connection_get_loghandler(self); if(loghandler) g_log_remove_handler(G_LOG_DOMAIN, loghandler); loghandler = g_log_set_handler(G_LOG_DOMAIN, G_LOG_LEVEL_MASK, _func, (gpointer)self); if(loghandler == 0) return FALSE; midgard_connection_set_loghandler(self, loghandler); return TRUE; } /** * midgard_connection_get_loglevel: * @self: MidgardConnection instance * * Returns: unsigned integer flag specified by GLogLevelFlags. */ guint midgard_connection_get_loglevel(MidgardConnection *self) { g_assert(self != NULL); return self->priv->loglevel; } /** * midgard_connection_set_loghandler: * @self: #MidgardConnection instance * @loghandler: loghandler id * * Sets internal loghandler id associated with G_LOG_DOMAIN and loglevel. * Caller is responsible to remove loghandler using g_log_remove_handler * when new loglevel for G_LOG_DOMAIN is set. * * See also: #midgard_connection_set_loglevel */ void midgard_connection_set_loghandler( MidgardConnection *self, guint loghandler){ g_assert(self != NULL); /* if(self->priv->loghandler > 0) { g_warning("Remove old loghandler first"); return; } */ self->priv->loghandler = loghandler; return; } /** * midgard_connection_get_loghandler: * @self: #MidgardConnection instance * * Returns: unsigned integer value which is associated with G_LOG_DOMAIN and * MidgardConnection's loglevel currently set. */ guint midgard_connection_get_loghandler(MidgardConnection *self) { g_assert(self != NULL); return self->priv->loghandler; } /** * midgard_connection_get_error: * @self: #MidgardConnection instance * * Error id may be one of set by #midgard_error. * Returns: Last error id set */ gint midgard_connection_get_error(MidgardConnection *self) { g_assert(self != NULL); return self->errnum; } /** * midgard_connection_set_error: * @self: #MidgardConnection instance * @errcode: error code * * Valid @errcode is one defined in #MidgardErrorGeneric. */ void midgard_connection_set_error(MidgardConnection *self, gint errcode) { g_assert(self != NULL); MIDGARD_ERRNO_SET(self, errcode); } /** * midgard_connection_get_error_string: * @self: #MidgardConnection instance * * Error string may be one set by #midgard_error. * Returns: last error string */ const gchar *midgard_connection_get_error_string(MidgardConnection *self) { g_return_val_if_fail(self != NULL, NULL); return (const gchar *)self->errstr; } /** * midgard_connection_get_user: * @self: MidgardConnection instance * * NULL is explicitly returned if there's no midgard_user logged in * for the given MidgardConnection. * See also #MidgardUser methods if you need midgard_person associated with user. * Returns: (transfer none): A pointer to MidgardUser instance or %NULL */ MidgardUser *midgard_connection_get_user(MidgardConnection *self) { g_return_val_if_fail(self != NULL, NULL); if (self->priv->user == NULL) return NULL; if (!G_IS_OBJECT(self->priv->user)) return NULL; return MIDGARD_USER(self->priv->user); } /** * midgard_connection_reopen: * @self: #MidgardConnection instance * * This is MySQL optimized workaround for lost connection event. * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_connection_reopen(MidgardConnection *self) { g_assert(self != NULL); const gchar *query = "SELECT 1"; GdaDataModel *model = midgard_core_query_get_model(self, query); if (model) { g_object_unref(model); return TRUE; } guint dbtype = self->priv->config->priv->dbtype; const GList *events; glong errcode = 0; events = gda_connection_get_events (self->priv->connection); if (!events) { g_warning("Can not get connection events. Error code is unknown."); return FALSE; } GList *l; for (l = (GList *) events; l != NULL; l = l->next) { GdaConnectionEvent *event; event = GDA_CONNECTION_EVENT (l->data); if (gda_connection_event_get_event_type (event) == GDA_CONNECTION_EVENT_ERROR) { errcode = gda_connection_event_get_code(event); switch (dbtype) { case MIDGARD_DB_TYPE_MYSQL: /* For some, unknown reason GDA sets unknown error code for MySQL provider */ /* Take into account MySQL's server gone error and gda's unknown one */ if (errcode == 2006 /* CR_SERVER_GONE_ERROR , we can not use it */ || errcode == GDA_CONNECTION_EVENT_CODE_UNKNOWN) { g_debug("MySQL server has gone away. Reconnect."); return __mysql_reconnect(self); } break; default: /* do nothing */ break; } } } return FALSE; } /** * midgard_connection_list_auth_types: * @self: #MidgardConnection instance * @n_types: a pointer to store number of returned types * * List available and registered authentication types. * Use g_free() to free returned array. * * Returns: (transfer container): NULL terminated array with authentication types. */ gchar ** midgard_connection_list_auth_types (MidgardConnection *self, guint *n_types) { g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (n_types != NULL, NULL); *n_types = 0; if (!self->priv->authtypes) return NULL; GSList *slist; guint j = 0; for (slist = self->priv->authtypes; slist != NULL; slist = slist->next) j++; *n_types = j; if (*n_types == 0) return NULL; gchar **types = g_new (gchar*, *n_types+1); guint i = 0; for (slist = self->priv->authtypes; slist != NULL; slist = slist->next) { MgdCoreAuthType *mcat = (MgdCoreAuthType *) slist->data; types[i] = mcat->name; i++; } types[i] = NULL; return types; } /** * midgard_connection_is_connected: * @self: #MidgardConnection instance * * Returns: %TRUE if database connection is established, %FALSE otherwise */ gboolean midgard_connection_is_connected (MidgardConnection *self) { g_return_val_if_fail (self != NULL, FALSE); return self->priv->connected; } /** * midgard_connection_copy: * @self: #MidgardConnection instance * * This function duplicates given #MidgardConnection. It doesn't make deep copy. * All persistant data are kept unchanged, but runtime related members are reset * to default state. This function is helpful if application is forking and new * processes might have different environment variables. * * Call g_object_unref if returned object is no longer needed. * * Returns: (transfer full): Newly allocated and duplicated #MidgardConnection */ MidgardConnection *midgard_connection_copy(MidgardConnection *self) { g_assert(self != NULL); MidgardConnection *new_mgd = midgard_connection_new(); // override private connection properties new_mgd->priv->config = self->priv->config; new_mgd->priv->loglevel = self->priv->loglevel; new_mgd->priv->parser = self->priv->parser; new_mgd->priv->connection = self->priv->connection; new_mgd->priv->inherited = TRUE; new_mgd->priv->authtypes = self->priv->authtypes; MGD_CNC_QUOTA (new_mgd) = MGD_CNC_QUOTA (self); MGD_CNC_DBUS (new_mgd) = MGD_CNC_DBUS (self); MGD_CNC_REPLICATION (new_mgd) = MGD_CNC_REPLICATION (self); MGD_CNC_DEBUG (new_mgd) = MGD_CNC_DEBUG (self); /* Set pattern pointer. This is important (at least) for signals. * If we need to disconnect from signal at some point (e.g. indexes creation) * we should disconnect copy and original one. */ new_mgd->priv->pattern = self; /* Connect connection copy to error callback */ midgard_core_connection_connect_error_callback(new_mgd); /* Disconnect original connection from error callback. * Copy will be used for this. Do not duplicate callbacks invokation */ midgard_core_connection_disconnect_error_callback(self); midgard_core_workspace_list_all (new_mgd, TRUE); /* Increase workspace reference count. * For example, connection might be copied to new thread, so we * need to ensure, workspace object is valid */ if (self->priv->workspace) new_mgd->priv->workspace = g_object_ref (self->priv->workspace); return new_mgd; } /** * midgard_connection_enable_quota: * @self: #MidgardConnection instance * @toggle: quota enable, disable toggle * * Enable or disable quota table usage. * If enabled, every base operation (create, update, delete) will be recorded in quota table, * limiting particular types usage. * * Since: 10.05 */ void midgard_connection_enable_quota (MidgardConnection *self, gboolean toggle) { g_return_if_fail (self != NULL); self->priv->enable_quota = toggle; } /** * midgard_connection_enable_replication: * @self: #MidgardConnection instance * @toggle: replication enable, disable toggle * * Enable or disable repligard table usage. * If enabled, every base operation (create, update, delete) will be recorded in repligard table. * * Since: 10.05 */ void midgard_connection_enable_replication (MidgardConnection *self, gboolean toggle) { g_return_if_fail (self != NULL); self->priv->enable_replication = toggle; } /** * midgard_connection_enable_dbus: * @self: #MidgardConnection instance * @toggle: dbus enable, disable toggle * * Enable or disable dbus messages send for basic operation * * Since: 10.05 */ void midgard_connection_enable_dbus (MidgardConnection *self, gboolean toggle) { g_return_if_fail (self != NULL); self->priv->enable_dbus = toggle; } /** * midgard_connection_enable_workspace: * @self: #MidgardConnection instance * @toggle: workspace enable, disable toggle * * Enable or disable workspace (and contexts) support * * Since: 10.05.5 */ void midgard_connection_enable_workspace (MidgardConnection *self, gboolean toggle) { g_return_if_fail (self != NULL); self->priv->enable_workspace = toggle; } /** * midgard_connection_is_enabled_quota: * @self: #MidgardConnection instance * * Returns: %TRUE, if quota is enabled, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_connection_is_enabled_quota (MidgardConnection *self) { g_return_val_if_fail (self != NULL, FALSE); return self->priv->enable_quota; } /** * midgard_connection_is_enabled_replication: * @self: #MidgardConnection instance * * Returns: %TRUE, if replication is enabled, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_connection_is_enabled_replication (MidgardConnection *self) { g_return_val_if_fail (self != NULL, FALSE); return self->priv->enable_replication; } /** * midgard_connection_is_enabled_dbus: * @self: #MidgardConnection instance * * Returns: %TRUE, if dbus is enabled, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_connection_is_enabled_dbus (MidgardConnection *self) { g_return_val_if_fail (self != NULL, FALSE); return self->priv->enable_dbus; } /** * midgard_connection_is_enabled_workspace: * @self: #MidgardConnection instance * * Returns: %TRUE, if workspace support is enabled, %FALSE otherwise * * Since: 10.05.5 */ gboolean midgard_connection_is_enabled_workspace (MidgardConnection *self) { g_return_val_if_fail (self != NULL, FALSE); return self->priv->enable_workspace; } /** * midgard_connection_set_workspace: * @self: #MidgardConnection instance * @workspace: #MidgardWorkspaceStorage to set for given #MidgardConnection * * Actual workspace scope depends on #MidgardWorkspaceStorage implementation. * For example, if #MidgardWorkspaceContext is passed as @workspace argument, * Midgard environmental workspace is a tree context, which is the opposite * of #MidgardWorkspace which limits workspace scope to given one only. * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05.5 */ gboolean midgard_connection_set_workspace (MidgardConnection *self, MidgardWorkspaceStorage *workspace) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (workspace != NULL, FALSE); g_return_val_if_fail (MIDGARD_IS_WORKSPACE_STORAGE (workspace), FALSE); if (self->priv->workspace) g_object_unref (self->priv->workspace); self->priv->workspace = (gpointer) g_object_ref (workspace); self->priv->has_workspace = TRUE; /* TODO WS: emit signal */ return TRUE; } /** * midgard_connection_get_workspace: * @self: #MidgardConnection instance * * Returns: (transfer none): #MidgardWorkspaceStorage associated with #MidgardConnection or %NULL * Since: 10.05.5 */ const MidgardWorkspaceStorage* midgard_connection_get_workspace (MidgardConnection *self) { g_return_val_if_fail (self != NULL, NULL); if (!self->priv->workspace) return NULL; return MIDGARD_WORKSPACE_STORAGE (self->priv->workspace); } /** * midgard_connection_get_workspace_manager: * @self: #MidgardConnection instance * * Returns: (transfer none): #MidgardWorkspaceManager associated with given connection instance. * Since: 10.05.5 */ const MidgardWorkspaceManager * midgard_connection_get_workspace_manager (MidgardConnection *self) { g_return_val_if_fail (self != NULL, NULL); if (!self->priv->workspace_manager) self->priv->workspace_manager = midgard_workspace_manager_new (self); return self->priv->workspace_manager; } midgard2-core-10.05.7.1/src/midgard_workspace_context.h0000664000175000017500000000430711772046240017565 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_WORKSPACE_CONTEXT_H #define MIDGARD_WORKSPACE_CONTEXT_H #include "midgard_defs.h" #include "midgard_workspace.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_WORKSPACE_CONTEXT (midgard_workspace_context_get_type()) #define MIDGARD_WORKSPACE_CONTEXT(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_WORKSPACE_CONTEXT, MidgardWorkspaceContext)) #define MIDGARD_WORKSPACE_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_WORKSPACE_CONTEXT_TYPE, MidgardWorkspaceContextClass)) #define MIDGARD_IS_WORKSPACE_CONTEXT(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_WORKSPACE_CONTEXT)) #define MIDGARD_IS_WORKSPACE_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_WORKSPACE_CONTEXT_TYPE)) #define MIDGARD_WORKSPACE_CONTEXT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_WORKSPACE_CONTEXT_TYPE, MidgardWorkspaceContextClass)) typedef struct _MidgardWorkspaceContextClass MidgardWorkspaceContextClass; struct _MidgardWorkspaceContext { GObject parent; /* < private > */ MidgardWorkspacePrivate *priv; }; struct _MidgardWorkspaceContextClass { GObjectClass parent; }; GType midgard_workspace_context_get_type (void); MidgardWorkspaceContext *midgard_workspace_context_new (void); gboolean midgard_workspace_context_has_workspace (MidgardWorkspaceContext *self, MidgardWorkspace *workspace); G_END_DECLS #endif /* MIDGARD_WORKSPACE_CONTEXT_H */ midgard2-core-10.05.7.1/src/midgard_reflector_property.h0000664000175000017500000000730011772046240017750 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_REFLECTOR_PROPERTY_H #define MIDGARD_REFLECTOR_PROPERTY_H #include "midgard_type.h" #include "midgard_object.h" /* convention macros */ #define MIDGARD_TYPE_REFLECTOR_PROPERTY (midgard_reflector_property_get_type()) #define MIDGARD_REFLECTOR_PROPERTY(object) (G_TYPE_CHECK_INSTANCE_CAST ((object), MIDGARD_TYPE_REFLECTOR_PROPERTY, MidgardReflectorProperty)) #define MIDGARD_REFLECTOR_PROPERTY_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_REFLECTOR_PROPERTY, MidgardReflectorPropertyClass)) #define MIDGARD_IS_REFLECTOR_PROPERTY(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_REFLECTOR_PROPERTY)) #define MIDGARD_IS_REFLECTOR_PROPERTY_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_REFLECTOR_OBJECT_PROPERTY)) #define MIDGARD_REFLECTOR_PROPERTY_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_REFLECTOR_PROPERTY, MidgardReflectorPropertyClass)) typedef struct _MidgardReflectorProperty MidgardReflectorProperty; typedef struct _MidgardReflectorPropertyPrivate MidgardReflectorPropertyPrivate; typedef struct _MidgardReflectorPropertyClass MidgardReflectorPropertyClass; struct _MidgardReflectorProperty { GObject parent; /* < private > */ MidgardReflectorPropertyPrivate *priv; }; struct _MidgardReflectorPropertyClass{ GObjectClass parent; }; GType midgard_reflector_property_get_type(void); MidgardReflectorProperty *midgard_reflector_property_new (const gchar *classname); GType midgard_reflector_property_get_midgard_type (MidgardReflectorProperty *self, const gchar *propname); gboolean midgard_reflector_property_is_link (MidgardReflectorProperty *self, const gchar *propname); gboolean midgard_reflector_property_is_linked (MidgardReflectorProperty *self, const gchar *propname); const MidgardDBObjectClass *midgard_reflector_property_get_link_class (MidgardReflectorProperty *self, const gchar *propname); const gchar *midgard_reflector_property_get_link_name (MidgardReflectorProperty *self, const gchar *propname); const gchar *midgard_reflector_property_get_link_target (MidgardReflectorProperty *self, const gchar *propname); const gchar *midgard_reflector_property_description (MidgardReflectorProperty *self, const gchar *propname); const gchar *midgard_reflector_property_get_user_value (MidgardReflectorProperty *self, const gchar *property, const gchar *name); gboolean midgard_reflector_property_is_private (MidgardReflectorProperty *self, const gchar *property); gboolean midgard_reflector_property_is_unique (MidgardReflectorProperty *self, const gchar *property); gboolean midgard_reflector_property_is_primary (MidgardReflectorProperty *self, const gchar *property); gboolean midgard_reflector_property_has_default_value (MidgardReflectorProperty *self, const gchar *property); GValue *midgard_reflector_property_get_default_value (MidgardReflectorProperty *self, const gchar *property); #endif /* MIDGARD_REFLECTOR_PROPERTY_H */ midgard2-core-10.05.7.1/src/midgard_metadata.c0000664000175000017500000011113711772046240015576 00000000000000/* * Copyright (C) 2005, 2008 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include #include #include #include #include "midgard_metadata.h" #include "midgard_timestamp.h" #include "midgard_core_object.h" #include "schema.h" #include "midgard_core_metadata.h" #include "midgard_user.h" void __set_from_xml_node(MidgardDBObject *object, xmlNode *node); static void _action_create_callback (MidgardObject *object, gpointer ud) { MidgardMetadata *mdata = (MidgardMetadata *) ud; gchar *person_guid = ""; MidgardConnection *mgd = MGD_OBJECT_CNC (object); MidgardObject *person = MGD_CNC_PERSON (mgd); if (person) person_guid = (gchar *)MGD_OBJECT_GUID (person); /* set creator */ GValue rval = {0, }; g_value_init (&rval, G_TYPE_STRING); g_value_set_string (&rval, person_guid); /* set creator */ midgard_core_metadata_set_creator (mdata, (const GValue *)&rval); /* set revisor */ midgard_core_metadata_set_revisor (mdata, (const GValue *)&rval); g_value_unset (&rval); /* set created */ midgard_core_timestamp_set_current_time (mdata->priv->created); /* set revised */ midgard_core_timestamp_set_current_time (mdata->priv->revised); /* set revision */ GValue rev_val = {0, }; g_value_init (&rev_val, G_TYPE_UINT); g_value_set_uint (&rev_val, 0); midgard_core_metadata_set_revision (mdata, (const GValue *)&rev_val); g_value_unset (&rev_val); /* set default values */ if (mdata->priv->locker) g_free (mdata->priv->locker); mdata->priv->locker = g_strdup (""); if (mdata->priv->approver) g_free (mdata->priv->approver); mdata->priv->approver = g_strdup (""); if (!mdata->priv->authors) mdata->priv->authors = g_strdup (""); if (!mdata->priv->owner) mdata->priv->owner = g_strdup (""); } static void _action_update_callback (MidgardObject *object, gpointer ud) { MidgardMetadata *mdata = (MidgardMetadata *) ud; gchar *person_guid = ""; MidgardConnection *mgd = MGD_OBJECT_CNC(object); MidgardObject *person = MGD_CNC_PERSON (mgd); if (person) person_guid = (gchar *)MGD_OBJECT_GUID(person); /* set revisor */ GValue rval = {0, }; g_value_init (&rval, G_TYPE_STRING); g_value_set_string (&rval, person_guid); midgard_core_metadata_set_revisor (mdata, (const GValue *)&rval); g_value_unset (&rval); /* set revised */ GValue tval = {0, }; midgard_timestamp_new_current (&tval); midgard_core_metadata_set_revised (mdata, (const GValue *)&tval); g_value_unset (&tval); /* set revision */ midgard_core_metadata_increase_revision (mdata); } static void _action_delete_callback(MidgardObject *object, gpointer ud) { return; } static void _action_import_callback(MidgardObject *object, gpointer ud) { MidgardMetadata *mdata = (MidgardMetadata *) ud; midgard_core_timestamp_set_current_time (mdata->priv->imported); } static void _action_export_callback(MidgardObject *object, gpointer ud) { MidgardMetadata *mdata = (MidgardMetadata *) ud; /* This is backward "compatible" defaults set. * It's done in case when some old object has been never * touched by new API */ if (!mdata->priv->revised && !mdata->priv->created) { midgard_core_timestamp_set_current_time (mdata->priv->created); midgard_core_timestamp_set_current_time (mdata->priv->revised); } if (!mdata->priv->revised && mdata->priv->created) { midgard_core_timestamp_set_current_time (mdata->priv->created); midgard_core_metadata_increase_revision(mdata); } if (!mdata->priv->created && mdata->priv->revised) { midgard_core_timestamp_set_current_time (mdata->priv->created); } /* set exported */ midgard_core_timestamp_set_current_time (mdata->priv->exported); } /** * midgard_metadata_new: * @object: #MidgardObject for which metadata is created * * Creates new midgard_metadata instance for the given #MidgardObject instance. * * Do not use g_object_new() as metadata constructor. #MidgardObject pointer is internally * assigned as a pointer to midgard object for which particular metadata object * instance was created. * * #MidgardMetadata object has two "kinds" of properties. * The first one is settable ( and overwritten ) only by metadata implementation. * The second one is freely settable by application. In this case midgard core * keep value of such property "as is". * * Do not free #MidgardMetadata object's memory as it is automatically * freed when particular #MidgardObject object's instance memory is freed. * * Returns: newly allocated midgard_metadata instance */ MidgardMetadata * midgard_metadata_new (MidgardDBObject *object) { g_return_val_if_fail (object != NULL, NULL); MidgardMetadata *self = NULL; MidgardConnection *mgd = MGD_OBJECT_CNC (object); if (!mgd) self = g_object_new (MIDGARD_TYPE_METADATA, NULL); else self = g_object_new (MIDGARD_TYPE_METADATA, "connection", mgd, NULL); g_signal_connect (G_OBJECT (object), "action-create", G_CALLBACK (_action_create_callback), self); g_signal_connect (G_OBJECT (object), "action-update", G_CALLBACK (_action_update_callback), self); g_signal_connect (G_OBJECT (object), "action-delete", G_CALLBACK (_action_delete_callback), self); g_signal_connect (G_OBJECT (object), "action-import", G_CALLBACK (_action_import_callback), self); g_signal_connect (G_OBJECT (object), "action-export", G_CALLBACK (_action_export_callback), self); self->priv->object = object; return self; } void _midgard_metadata_set_from_data_model (MidgardDBObject *self, GdaDataModel *model, gint row, guint column_id) { g_return_if_fail (self != NULL); g_return_if_fail (model != NULL); g_return_if_fail (row > -1); MidgardDBObject *dbobject = MIDGARD_DBOBJECT (MIDGARD_METADATA (self)->priv->object); MgdSchemaTypeAttr *type_attr = MIDGARD_DBOBJECT_GET_CLASS (dbobject)->dbpriv->storage_data; MidgardMetadata *metadata = MIDGARD_METADATA (self); /* creator */ const GValue *val = gda_data_model_get_value_at (model, column_id, row, NULL); midgard_core_metadata_set_creator (metadata, (GValue *) val); /* created */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_created (metadata, val); /* revisor */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_revisor (metadata, val); /* revised */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_revised (metadata, val); /* revision */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_revision (metadata, val); /* locker */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_locker (metadata, val); /* locked */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_locked (metadata, val); /* approver */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_approver (metadata, val); /* approved */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_approved (metadata, val); /* authors */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_authors (metadata, val); /* owner */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_owner (metadata, val); /* schedule_start */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_schedule_start (metadata, val); /* schedule_end */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_schedule_end (metadata, val); /* hidden */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_hidden (metadata, val); /* navnoentry */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_navnoentry (metadata, val); /* size */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_size (metadata, val); /* published */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_published (metadata, val); /* score */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_score (metadata, val); /* imported */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_imported (metadata, val); /* exported */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_exported (metadata, val); /* deleted */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_deleted (metadata, val); /* isapproved */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_isapproved (metadata, val); /* islocked */ val = gda_data_model_get_value_at (model, ++column_id, row, NULL); midgard_core_metadata_set_islocked (metadata, val); } /* GOBJECT ROUTINES */ static GObjectClass *__parent_class = NULL; enum { MIDGARD_METADATA_CREATOR = 1, MIDGARD_METADATA_CREATED, MIDGARD_METADATA_REVISOR, MIDGARD_METADATA_REVISED, MIDGARD_METADATA_REVISION, MIDGARD_METADATA_LOCKER, MIDGARD_METADATA_LOCKED, MIDGARD_METADATA_APPROVER, MIDGARD_METADATA_APPROVED, MIDGARD_METADATA_AUTHORS, MIDGARD_METADATA_OWNER, MIDGARD_METADATA_SCHEDULE_START, MIDGARD_METADATA_SCHEDULE_END, MIDGARD_METADATA_HIDDEN, MIDGARD_METADATA_NAV_NOENTRY, MIDGARD_METADATA_SIZE, MIDGARD_METADATA_PUBLISHED, MIDGARD_METADATA_SCORE, MIDGARD_METADATA_IMPORTED, MIDGARD_METADATA_EXPORTED, MIDGARD_METADATA_DELETED, MIDGARD_METADATA_ISAPPROVED, MIDGARD_METADATA_ISLOCKED }; static void _metadata_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardMetadata *self = (MidgardMetadata *) object; switch (property_id) { case MIDGARD_METADATA_AUTHORS: g_free (self->priv->authors); self->priv->authors = g_value_dup_string (value); break; case MIDGARD_METADATA_OWNER: g_free (self->priv->owner); self->priv->owner = g_value_dup_string (value); break; case MIDGARD_METADATA_SCHEDULE_START: g_free (self->priv->schedule_start); self->priv->schedule_start = g_value_dup_boxed (value); break; case MIDGARD_METADATA_SCHEDULE_END: g_free (self->priv->schedule_end); self->priv->schedule_end = g_value_dup_boxed (value); break; case MIDGARD_METADATA_HIDDEN: if (G_VALUE_HOLDS_BOOLEAN (value)) self->priv->hidden = g_value_get_boolean (value); break; case MIDGARD_METADATA_NAV_NOENTRY: if (G_VALUE_HOLDS_BOOLEAN (value)) self->priv->nav_noentry = g_value_get_boolean (value); break; case MIDGARD_METADATA_PUBLISHED: g_free (self->priv->published); self->priv->published = g_value_dup_boxed (value); break; case MIDGARD_METADATA_SCORE: self->priv->score = g_value_get_int (value); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID(object,property_id,pspec); break; } } gboolean _midgard_metadata_dbpriv_get_property (MidgardDBObject *self, const gchar *name, GValue *value) { gchar *datamodel_property = g_strconcat ("metadata_", name, NULL); MidgardDBObject *dbobject = MIDGARD_METADATA(self)->priv->object; if (!dbobject || !dbobject->dbpriv) return FALSE; gboolean rv = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->get_property (dbobject, datamodel_property, value); g_free (datamodel_property); return rv; } static void _metadata_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardMetadata *self = (MidgardMetadata *) object; if (MIDGARD_DBOBJECT_GET_CLASS (object)->dbpriv->get_property (MIDGARD_DBOBJECT (object), pspec->name, value)) return; switch (property_id) { case MIDGARD_METADATA_CREATOR: g_value_set_string (value, self->priv->creator); break; case MIDGARD_METADATA_CREATED: g_value_set_boxed (value, self->priv->created); break; case MIDGARD_METADATA_REVISOR: g_value_set_string (value, self->priv->revisor); break; case MIDGARD_METADATA_REVISED: g_value_set_boxed (value, self->priv->revised); break; case MIDGARD_METADATA_LOCKER: g_value_set_string (value, self->priv->locker); break; case MIDGARD_METADATA_LOCKED: g_value_set_boxed (value, self->priv->locked); break; case MIDGARD_METADATA_APPROVER: g_value_set_string (value, self->priv->approver); break; case MIDGARD_METADATA_APPROVED: g_value_set_boxed (value, self->priv->approved); break; case MIDGARD_METADATA_REVISION: g_value_set_uint (value, self->priv->revision); break; case MIDGARD_METADATA_AUTHORS: g_value_set_string (value, self->priv->authors); break; case MIDGARD_METADATA_OWNER: g_value_set_string (value, self->priv->owner); break; case MIDGARD_METADATA_SCHEDULE_START: g_value_set_boxed (value, self->priv->schedule_start); break; case MIDGARD_METADATA_SCHEDULE_END: g_value_set_boxed (value, self->priv->schedule_end); break; case MIDGARD_METADATA_HIDDEN: g_value_set_boolean (value, self->priv->hidden); break; case MIDGARD_METADATA_NAV_NOENTRY: g_value_set_boolean (value, self->priv->nav_noentry); break; case MIDGARD_METADATA_SIZE: g_value_set_uint(value, self->priv->size); break; case MIDGARD_METADATA_PUBLISHED: g_value_set_boxed (value, self->priv->published); break; case MIDGARD_METADATA_SCORE: g_value_set_int (value, self->priv->score); break; case MIDGARD_METADATA_EXPORTED: g_value_set_boxed (value, self->priv->exported); break; case MIDGARD_METADATA_IMPORTED: g_value_set_boxed (value, self->priv->imported); break; case MIDGARD_METADATA_DELETED: g_value_set_boolean (value, self->priv->deleted); break; case MIDGARD_METADATA_ISLOCKED: g_value_set_boolean (value, self->priv->is_locked); break; case MIDGARD_METADATA_ISAPPROVED: g_value_set_boolean (value, self->priv->is_approved); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID(object,property_id,pspec); break; } } static GObject * _metadata_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (__parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _metadata_dispose (GObject *object) { __parent_class->dispose (object); } static void _metadata_instance_init(GTypeInstance *instance, gpointer g_class) { MidgardMetadata *self = (MidgardMetadata *)instance; /* allocate private data */ self->priv = g_new(MidgardMetadataPrivate, 1); self->priv->creator = NULL; self->priv->created = midgard_timestamp_new(); self->priv->revised = midgard_timestamp_new(); self->priv->revisor = NULL; self->priv->locker = NULL; self->priv->locked = midgard_timestamp_new(); self->priv->approved = midgard_timestamp_new(); self->priv->approver = NULL; self->priv->authors = NULL; self->priv->owner = NULL; self->priv->revision = 0; self->priv->schedule_start = midgard_timestamp_new(); self->priv->schedule_end = midgard_timestamp_new(); self->priv->hidden = FALSE; self->priv->nav_noentry = FALSE; self->priv->size = 0; self->priv->published = midgard_timestamp_new(); self->priv->score = 0; self->priv->exported = midgard_timestamp_new(); self->priv->imported = midgard_timestamp_new(); self->priv->deleted = FALSE; self->priv->lock_is_set = FALSE; self->priv->is_locked = FALSE; self->priv->approve_is_set = FALSE; self->priv->is_approved = FALSE; self->priv->object = NULL; } static void _metadata_object_finalize(GObject *object) { g_assert(object); MidgardMetadata *self = (MidgardMetadata *)object; /* Free private data */ g_free(self->priv->creator); g_free(self->priv->created); g_free(self->priv->revised); g_free(self->priv->revisor); g_free(self->priv->locker); g_free(self->priv->locked); g_free(self->priv->approved); g_free(self->priv->approver); g_free(self->priv->authors); g_free(self->priv->owner); g_free(self->priv->schedule_start); g_free(self->priv->schedule_end); g_free(self->priv->published); g_free(self->priv->exported); g_free(self->priv->imported); g_free(self->priv); __parent_class->finalize (object); } /* Initialize class */ static void _metadata_class_init (gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardMetadataClass *klass = MIDGARD_METADATA_CLASS (g_class); GParamSpec *pspec; __parent_class = g_type_class_peek_parent (g_class); gobject_class->constructor = _metadata_constructor; gobject_class->set_property = _metadata_set_property; gobject_class->get_property = _metadata_get_property; gobject_class->dispose = _metadata_dispose; gobject_class->finalize = _metadata_object_finalize; MgdSchemaPropertyAttr *prop_attr; MgdSchemaTypeAttr *type_attr = midgard_core_schema_type_attr_new(); /* Register properties */ /* creator */ pspec = g_param_spec_string ("creator", "metadata_creator", "Guid of the person who created object's record", NULL /* We can set midgard admin */, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_CREATOR, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_GUID; prop_attr->field = g_strdup("metadata_creator"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("creator"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"creator"), prop_attr); /* created */ pspec = g_param_spec_boxed ("created", "metadata_created", "ISO datetime when object's record has been created", MGD_TYPE_TIMESTAMP, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_CREATED, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_TIMESTAMP; prop_attr->field = g_strdup("metadata_created"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("created"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"created"), prop_attr); /* revisor */ pspec = g_param_spec_string ("revisor", "metadata_revisor", "Guid of the person who revised object's record", NULL, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_REVISOR, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_GUID; prop_attr->field = g_strdup("metadata_revisor"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("revisor"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"revisor"), prop_attr); /* revised */ pspec = g_param_spec_boxed ("revised", "metadata_revised", "ISO datetime when object's record has been revised", MIDGARD_TYPE_TIMESTAMP, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_REVISED, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_TIMESTAMP; prop_attr->field = g_strdup("metadata_revised"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("revised"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"revised"), prop_attr); /* revision */ pspec = g_param_spec_uint ("revision", "metadata_revision", "Object's record revision number", 0, G_MAXUINT32, 0, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_REVISION, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_UINT; prop_attr->field = g_strdup("metadata_revision"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("revision"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"revision"), prop_attr); /* locker */ pspec = g_param_spec_string ("locker", "metadata_locker", "Guid of the person who (un)locked object's record", NULL, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_LOCKER, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_GUID; prop_attr->field = g_strdup("metadata_locker"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("locker"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"locker"), prop_attr); /* locked */ pspec = g_param_spec_boxed ("locked", "metadata_locked", "ISO datetime when object's record has been (un)locked", MGD_TYPE_TIMESTAMP, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_LOCKED, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_TIMESTAMP; prop_attr->field = g_strdup("metadata_locked"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("locked"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"locked"), prop_attr); /* approver */ pspec = g_param_spec_string ("approver", "metadata_approver", "Guid of the person who (un)approved object's record", NULL, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_APPROVER, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_GUID; prop_attr->field = g_strdup("metadata_approver"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("approver"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"approver"), prop_attr); /* approved */ pspec = g_param_spec_boxed ("approved", "metadata_approved", "ISO datetime when object's record has been (un)approved", MGD_TYPE_TIMESTAMP, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_APPROVED, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_TIMESTAMP; prop_attr->field = g_strdup("metadata_approved"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("approved"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"approved"), prop_attr); /* authors */ pspec = g_param_spec_string ("authors", "metadata_authors", "The person who is an author.", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_AUTHORS, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_STRING; prop_attr->field = g_strdup("metadata_authors"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("authors"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"authors"), prop_attr); /* owner */ pspec = g_param_spec_string ("owner", "metadata_owner", "Group's guid which is an owner of the object", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_OWNER, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_GUID; prop_attr->field = g_strdup("metadata_owner"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("owner"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"owner"), prop_attr); /* schedulestart */ pspec = g_param_spec_boxed ("schedulestart", "metadata_schedule_start", "ISO datetime when publication time starts.", MGD_TYPE_TIMESTAMP, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_SCHEDULE_START, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_TIMESTAMP; prop_attr->field = g_strdup("metadata_schedule_start"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("schedulestart"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"schedulestart"), prop_attr); /* scheduleend */ pspec = g_param_spec_boxed ("scheduleend", "metadata_schedule_end", "ISO datetime when publication time ends.", MGD_TYPE_TIMESTAMP, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_SCHEDULE_END, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_TIMESTAMP; prop_attr->field = g_strdup("metadata_schedule_end"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("scheduleend"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"scheduleend"), prop_attr); /* hidden */ pspec = g_param_spec_boolean ("hidden", "metadata_hidden", "Whether object should be hidden or not.", FALSE, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_HIDDEN, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_BOOLEAN; prop_attr->field = g_strdup("metadata_hidden"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("hidden"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"hidden"), prop_attr); /* nav no entry */ pspec = g_param_spec_boolean ("navnoentry", "metadata_nav_noentry", "Whether object is part of navigation (e.g. menu).", FALSE, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_NAV_NOENTRY, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_BOOLEAN; prop_attr->field = g_strdup("metadata_nav_noentry"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("navnoentry"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"navnoentry"), prop_attr); /* size */ pspec = g_param_spec_uint ("size", "metadata_size", "Object's size in bytes", 0, G_MAXUINT32, 0, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_SIZE, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_UINT; prop_attr->field = g_strdup("metadata_size"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("size"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"size"), prop_attr); /* published */ pspec = g_param_spec_boxed ("published", "metadata_published", "ISO datetime when object should be published (by default it's created time)", MGD_TYPE_TIMESTAMP, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_PUBLISHED, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_TIMESTAMP; prop_attr->field = g_strdup("metadata_published"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("published"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"published"), prop_attr); /* score */ pspec = g_param_spec_int ("score", "metadata_score", "Object's record score", G_MININT32, G_MAXINT32, 0, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_SCORE, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_INT; prop_attr->field = g_strdup("metadata_score"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("score"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"score"), prop_attr); /* exported */ pspec = g_param_spec_boxed ("exported", "metadata_exported", "Whether object has been exported or not.", MGD_TYPE_TIMESTAMP, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_EXPORTED, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_TIMESTAMP; prop_attr->field = g_strdup("metadata_exported"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("exported"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"exported"), prop_attr); /* imported */ pspec = g_param_spec_boxed ("imported", "metadata_imported", "Whether object has been imported or not.", MGD_TYPE_TIMESTAMP, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_IMPORTED, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_TIMESTAMP; prop_attr->field = g_strdup("metadata_imported"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("imported"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"imported"), prop_attr); /* deleted */ pspec = g_param_spec_boolean ("deleted", "metadata_deleted", "Whether object is deleted or not.", FALSE, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_DELETED, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_BOOLEAN; prop_attr->field = g_strdup("metadata_deleted"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("deleted"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"deleted"), prop_attr); /* isapproved */ pspec = g_param_spec_boolean ("isapproved", "metadata_isapproved", "Whether object is approved or not.", FALSE, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_ISAPPROVED, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_BOOLEAN; prop_attr->field = g_strdup("metadata_isapproved"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("isapproved"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"isapproved"), prop_attr); /* islocked */ pspec = g_param_spec_boolean ("islocked", "metadata_islocked", "Whether object is locked or unlocked.", FALSE, G_PARAM_READABLE); g_object_class_install_property (gobject_class, MIDGARD_METADATA_ISLOCKED, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_BOOLEAN; prop_attr->field = g_strdup("metadata_islocked"); prop_attr->table = NULL; prop_attr->tablefield = NULL; prop_attr->name = g_strdup ("islocked"); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)"islocked"), prop_attr); /* Initialize private member */ MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_CLASS (klass); dbklass->dbpriv = g_new(MidgardDBObjectPrivate, 1); dbklass->dbpriv->storage_data = type_attr; dbklass->dbpriv->set_from_xml_node = __set_from_xml_node; dbklass->dbpriv->add_fields_to_select_statement = NULL; dbklass->dbpriv->has_metadata = FALSE; dbklass->dbpriv->get_property = _midgard_metadata_dbpriv_get_property; dbklass->dbpriv->set_property = midgard_core_metadata_dbpriv_set_property; dbklass->dbpriv->set_from_data_model = _midgard_metadata_set_from_data_model; } GType midgard_metadata_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardMetadataClass), NULL, /* base_init */ NULL, /* base_finalize */ _metadata_class_init, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardMetadata), 0, /* n_preallocs */ _metadata_instance_init /* instance_init */ }; type = g_type_register_static (MIDGARD_TYPE_DBOBJECT, "MidgardMetadata", &info, 0); } return type; } xmlNode *__metadata_lookup_node(xmlNode *node, const gchar *name) { xmlNode *cur = NULL; for (cur = node; cur; cur = cur->next) { if (cur->type == XML_ELEMENT_NODE) { if (g_str_equal (cur->name, name)) return cur; } } return NULL; } gchar *__get_node_content_string(xmlNode *node) { if(!node) return NULL; gchar *content = NULL; content = (gchar *)xmlNodeGetContent(node); if(content == NULL) return NULL; xmlParserCtxtPtr parser = xmlNewParserCtxt(); xmlChar *decoded = xmlStringDecodeEntities(parser, (const xmlChar *) content, XML_SUBSTITUTE_REF, 0, 0, 0); xmlFreeParserCtxt(parser); g_free(content); return (gchar*)decoded; } void __set_date_from_node (xmlNode *node, MidgardTimestamp **date) { if (!node) return; gchar *content = NULL; content = (gchar *)xmlNodeGetContent (node); if (content == NULL) { g_warning ("Can not handle NULL date for datetime property"); return; } if (*date != NULL) g_free (*date); *date = midgard_timestamp_new_from_iso8601 (content); xmlFree (content); return; } gint __get_node_content_int(xmlNode *node) { if(!node) return 0; gchar *content = NULL; content = (gchar *)xmlNodeGetContent(node); if(content == NULL) return 0; gint rv = (gint)atoi((gchar *)content); g_free(content); return rv; } guint __get_node_content_uint(xmlNode *node) { if(!node) return 0; gchar *content = NULL; content = (gchar *)xmlNodeGetContent(node); if(content == NULL) return 0; guint rv = (guint)atoi((gchar *)content); g_free(content); return rv; } gboolean __get_node_content_bool(xmlNode *node) { if(!node) return FALSE; gchar *content = NULL; content = (gchar *)xmlNodeGetContent(node); if(content == NULL) return 0; gboolean rv = (gboolean)atoi((gchar *)content); g_free(content); return rv; } void __set_from_xml_node(MidgardDBObject *object, xmlNode *node) { g_assert(object != NULL); MidgardMetadata *self = MIDGARD_METADATA(object); xmlNode *lnode = NULL; lnode = __metadata_lookup_node(node, "creator"); self->priv->creator = __get_node_content_string(lnode); lnode = __metadata_lookup_node(node, "created"); __set_date_from_node(lnode, &self->priv->created); lnode = __metadata_lookup_node(node, "revisor"); self->priv->revisor = __get_node_content_string(lnode); lnode = __metadata_lookup_node(node, "revised"); __set_date_from_node(lnode, &self->priv->revised); lnode = __metadata_lookup_node(node, "revision"); self->priv->revision = __get_node_content_uint(lnode); lnode = __metadata_lookup_node(node, "locker"); self->priv->locker = __get_node_content_string(lnode); lnode = __metadata_lookup_node(node, "locked"); __set_date_from_node(lnode, &self->priv->locked); lnode = __metadata_lookup_node(node, "approver"); self->priv->approver = __get_node_content_string(lnode); lnode = __metadata_lookup_node(node, "approved"); __set_date_from_node(lnode, &self->priv->approved); lnode = __metadata_lookup_node(node, "authors"); self->priv->authors = __get_node_content_string(lnode); lnode = __metadata_lookup_node(node, "owner"); self->priv->owner = __get_node_content_string(lnode); lnode = __metadata_lookup_node(node, "schedulestart"); __set_date_from_node(lnode, &self->priv->schedule_start); lnode = __metadata_lookup_node(node, "scheduleend"); __set_date_from_node(lnode, &self->priv->schedule_end); lnode = __metadata_lookup_node(node, "hidden"); self->priv->hidden = __get_node_content_bool(lnode); lnode = __metadata_lookup_node(node, "navnoentry"); self->priv->nav_noentry = __get_node_content_bool(lnode); lnode = __metadata_lookup_node(node, "size"); self->priv->size = __get_node_content_uint(lnode); lnode = __metadata_lookup_node(node, "published"); __set_date_from_node(lnode, &self->priv->published); lnode = __metadata_lookup_node(node, "score"); self->priv->score = __get_node_content_int(lnode); lnode = __metadata_lookup_node(node, "imported"); __set_date_from_node(lnode, &self->priv->imported); lnode = __metadata_lookup_node(node, "exported"); __set_date_from_node(lnode, &self->priv->exported); lnode = __metadata_lookup_node(node, "deleted"); self->priv->deleted = __get_node_content_bool(lnode); lnode = __metadata_lookup_node(node, "islocked"); self->priv->is_locked = __get_node_content_bool(lnode); lnode = __metadata_lookup_node(node, "isapproved"); self->priv->is_approved = __get_node_content_bool(lnode); } midgard2-core-10.05.7.1/src/midgard_defs.h0000664000175000017500000000154111772046240014741 00000000000000 /* Define structures, keep it to make legacy and new code * existance in better shape */ #ifndef MIDGARD_DEFS_H #define MIDGARD_DEFS_H #include #include "midgard_config_auto.h" typedef struct MidgardTypeHolder MidgardTypeHolder; typedef struct _MidgardConnection MidgardConnection; typedef struct _MidgardObjectClass MidgardObjectClass; typedef struct _MidgardUser MidgardUser; typedef struct _MidgardMetadata MidgardMetadata; typedef struct _MidgardMetadataClass MidgardMetadataClass; typedef struct _MidgardWorkspace MidgardWorkspace; typedef struct _MidgardWorkspacePrivate MidgardWorkspacePrivate; typedef struct _MidgardWorkspaceContext MidgardWorkspaceContext; typedef enum { MIDGARD_AUTHTYPE_NORMAL = 0, MIDGARD_AUTHTYPE_PAM, MIDGARD_AUTHTYPE_TRUST } MidgardTypeAuth; #define MIDGARD_PACKAGE_NAME "midgard2" #endif /* MIDGARD_DEFS_H */ midgard2-core-10.05.7.1/src/midgard_query_storage.c0000664000175000017500000001613011772046240016704 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_storage.h" #include "midgard_core_query.h" #include "midgard_core_object_class.h" #include "midgard_validable.h" /** * midgard_query_storage_new: * @classname: name of the #MidgardDBObject derived class * * Initializes new object which represents #MidgardDBObject derived one's storage * * Returns: new #MidgardQueryStorage or %NULL on failure * Since: 10.05 */ MidgardQueryStorage* midgard_query_storage_new (const gchar *classname) { g_return_val_if_fail (classname != NULL, NULL); GType type = g_type_from_name (classname); if (!type) { g_warning ("Class %s is not registered in GType system", classname); return NULL; } GObjectClass *klass = G_OBJECT_CLASS (g_type_class_peek (type)); if (!klass) { g_warning ("Can not find %s class", classname); return NULL; } g_return_val_if_fail (MIDGARD_IS_DBOBJECT_CLASS (klass), NULL); MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_CLASS (klass); MidgardQueryStorage *self = g_object_new (MIDGARD_TYPE_QUERY_STORAGE, "dbclass", classname, NULL); self->priv->klass = dbklass; self->priv->table = midgard_core_class_get_table (dbklass); return self; } /* GOBJECT ROUTINES */ /* Validable iface */ static void _midgard_query_storage_validable_iface_validate (MidgardValidable *iface, GError **error) { g_return_if_fail (iface != NULL); MidgardQueryStorage *self = MIDGARD_QUERY_STORAGE (iface); self->priv->is_valid = FALSE; if (!self->priv->classname) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_VALUE_INVALID, "No class associated with storage"); return; } MidgardDBObjectClass *dbklass = g_type_class_peek (g_type_from_name (self->priv->classname)); if (!dbklass || (dbklass && !MIDGARD_IS_DBOBJECT_CLASS (dbklass))) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_TYPE_INVALID, "Storage associated with class which is not DBObject derived."); return; } MIDGARD_QUERY_STORAGE (self)->priv->is_valid = TRUE; return; } gboolean _midgard_query_storage_validable_iface_is_valid (MidgardValidable *self) { g_return_val_if_fail (self != NULL, FALSE); return MIDGARD_QUERY_STORAGE (self)->priv->is_valid; } static void _midgard_query_storage_validable_iface_init (MidgardValidableIFace *iface) { iface->validate = _midgard_query_storage_validable_iface_validate; iface->is_valid = _midgard_query_storage_validable_iface_is_valid; } enum { MIDGARD_QUERY_STORAGE_DBCLASS = 1 }; GObjectClass *__parent_class = NULL; static void __midgard_query_storage_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardQueryStorage *self = (MidgardQueryStorage *) instance; self->priv = g_new (MidgardQueryStoragePrivate, 1); self->priv->klass = NULL; self->priv->table_alias = NULL; self->priv->table = NULL; self->priv->classname = NULL; self->priv->is_valid = FALSE; } static GObject * __midgard_query_storage_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (__parent_class)->constructor (type, n_construct_properties, construct_properties); return object; } static void __midgard_query_storage_dispose (GObject *object) { __parent_class->dispose (object); } static void __midgard_query_storage_finalize (GObject *object) { MidgardQueryStorage *self = MIDGARD_QUERY_STORAGE (object); g_free (self->priv->table_alias); self->priv->table_alias = NULL; g_free (self->priv); self->priv = NULL; __parent_class->finalize (object); } static void __midgard_query_storage_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardQueryStorage *self = (MidgardQueryStorage *) object; switch (property_id) { case MIDGARD_QUERY_STORAGE_DBCLASS: g_value_set_string (value, self->priv->classname); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void __midgard_query_storage_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardQueryStorage *self = (MidgardQueryStorage *) (object); MidgardDBObjectClass *dbklass = NULL; switch (property_id) { case MIDGARD_QUERY_STORAGE_DBCLASS: dbklass = g_type_class_peek (g_type_from_name (g_value_get_string (value))); if (dbklass) { self->priv->klass = dbklass; self->priv->classname = G_OBJECT_CLASS_NAME (G_OBJECT_CLASS (dbklass)); self->priv->table = midgard_core_class_get_table (dbklass); } break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void __midgard_query_storage_class_init ( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); __parent_class = g_type_class_peek_parent (g_class); gobject_class->constructor = __midgard_query_storage_constructor; gobject_class->dispose = __midgard_query_storage_dispose; gobject_class->finalize = __midgard_query_storage_finalize; gobject_class->set_property = __midgard_query_storage_set_property; gobject_class->get_property = __midgard_query_storage_get_property; /* Properties */ GParamSpec *pspec = g_param_spec_string ("dbclass", "MidgardDBObject derived class name.", "", "", G_PARAM_READWRITE | G_PARAM_CONSTRUCT); /** * MidgardQueryStorage:dbclass: * * Holds the name of the class which, #MidgardQueryStorage has been initialized for. * */ g_object_class_install_property (gobject_class, MIDGARD_QUERY_STORAGE_DBCLASS, pspec); } GType midgard_query_storage_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQueryStorageClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) __midgard_query_storage_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardQueryStorage), 0, /* n_preallocs */ __midgard_query_storage_instance_init /* instance init */ }; static const GInterfaceInfo validable_info = { (GInterfaceInitFunc) _midgard_query_storage_validable_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardQueryStorage", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_VALIDABLE, &validable_info); } return type; } midgard2-core-10.05.7.1/src/midgard_core_connection.c0000664000175000017500000001542711772046240017172 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_connection.h" #include "midgard_core_connection.h" #include "midgard_core_xml.h" #include "midgard_core_object.h" #include "midgard_core_config.h" MgdCoreAuthType * midgard_core_auth_type_new (const gchar *name, guint id) { MgdCoreAuthType *mcat = g_new (MgdCoreAuthType, 1); mcat->name = g_strdup(name); mcat->id = id; return mcat; } void midgard_core_auth_type_free (MgdCoreAuthType *mcat) { g_assert (mcat != NULL); g_free (mcat->name); mcat->name = NULL; mcat->id = 0; g_free (mcat); mcat = NULL; } static void _add_auth_type (GSList **slist, MgdCoreAuthType *mcat) { GSList *l = NULL; for (l = *slist; l != NULL; l = l->next) { MgdCoreAuthType *at = (MgdCoreAuthType *) l->data; if (g_str_equal (at->name, mcat->name)) g_error ("Invalid, duplicated %s authentication type", mcat->name); if (at->id == mcat->id) g_error ("Invalid, duplicated %d authentication id", mcat->id); } *slist = g_slist_append (*slist, mcat); return; } static guint _get_auth_type_id (xmlNode *node) { xmlNode *child; guint id = 0; for (child = node->children; child != NULL; child = child->next) { if (child->type == XML_ELEMENT_NODE && g_str_equal (child->name, "id")) { xmlChar *val = xmlNodeGetContent(child); if (!val) return 0; id = atoi ((const gchar *)val); xmlFree(val); } } return id; } void midgard_core_connection_initialize_auth_types (MidgardConnection *mgd) { g_return_if_fail (mgd != NULL); MidgardConfig *config = mgd->priv->config; g_return_if_fail (config != NULL); gchar *authfile = g_build_path (G_DIR_SEPARATOR_S, config->sharedir, MGD_CORE_AUTH_FILE, NULL); if (!g_file_test ((const gchar *)authfile, G_FILE_TEST_IS_REGULAR)) g_error("%s authentication types file not found", authfile); xmlDocPtr doc = xmlParseFile (authfile); if (doc == NULL) g_error ("Malformed authentication type file %s", authfile); xmlNodePtr root = xmlDocGetRootElement (doc); if (root == NULL || root->ns == NULL || !g_str_equal(root->ns->href, MGD_CORE_AUTH_NS) || !g_str_equal(root->name, MGD_CORE_AUTH_ROOT_NAME)) g_error ("Invalid authentication types file %s", authfile); xmlNode *node; GSList *slist = NULL; for (node = root->children; node != NULL; node = node->next) { if (node->type != XML_ELEMENT_NODE) continue; if (!g_str_equal (node->name, "type")) continue; xmlChar *name = xmlGetProp (node, (const xmlChar*) "name"); if (!name) { g_warning ("Invalid authentication type name on line %ld", xmlGetLineNo (node)); xmlFree (name); continue; } guint id = _get_auth_type_id (node); if (id == 0) { g_warning ("Invalid authentication type id on line %ld", xmlGetLineNo (node)); xmlFree (name); continue; } MgdCoreAuthType *mcat = midgard_core_auth_type_new ((const gchar*)name, id); xmlFree (name); _add_auth_type (&slist, mcat); } mgd->priv->authtypes = slist; xmlFreeDoc (doc); g_free(authfile); } gboolean midgard_core_connection_auth_type_by_name (MidgardConnection *mgd, const gchar *name) { GSList *list = NULL; for (list = mgd->priv->authtypes; list != NULL; list = list->next) { MgdCoreAuthType *mcat = (MgdCoreAuthType *) list->data; if (g_str_equal (mcat->name, name)) return TRUE; } return FALSE; } gboolean midgard_core_connection_auth_type_by_id (MidgardConnection *mgd, guint id) { GSList *list = NULL; for (list = mgd->priv->authtypes; list != NULL; list = list->next) { MgdCoreAuthType *mcat = (MgdCoreAuthType *) list->data; if (mcat->id == id) return TRUE; } return FALSE; } guint midgard_core_auth_type_id_from_name (MidgardConnection *mgd, const gchar *name) { GSList *list = NULL; for (list = mgd->priv->authtypes; list != NULL; list = list->next) { MgdCoreAuthType *mcat = (MgdCoreAuthType *) list->data; if (g_str_equal (mcat->name, name)) return mcat->id; } return 0; } static void _connect_cnc_callback (GdaConnection *cnc, GdaConnectionEvent *event, gpointer ud) { glong errcode = (glong) gda_connection_event_get_code(event); const gchar *description = gda_connection_event_get_description(event); g_warning("Midgard connection error: %s, No:(%li), src:%s, SQL: %s", description, errcode, gda_connection_event_get_source(event), gda_connection_event_get_sqlstate (event)); if (ud == NULL || !MIDGARD_IS_CONNECTION(ud)) return; MidgardConnection *mgd = MIDGARD_CONNECTION(ud); MidgardConfig *config = mgd->priv->config; guint dbtype = config->priv->dbtype; switch (dbtype) { case MIDGARD_DB_TYPE_MYSQL: /* CR_SERVER_GONE_ERROR - we do not have access to this constant, * that's why 2006 used directly. As of GDA 4.2.2 (and earlier 4.0.x), this error code * is not propagated via GDA, so we check error description verbatim string also. */ if ((errcode == 2006) || (g_str_equal (description, "MySQL server has gone away"))) { g_signal_emit(mgd, MIDGARD_CONNECTION_GET_CLASS(mgd)->signal_id_lost_provider, 0); } break; } } void midgard_core_connection_connect_error_callback (MidgardConnection *mgd) { g_return_if_fail (mgd != NULL); if (mgd->priv->error_clbk_connected) return; GdaConnection *connection = mgd->priv->connection; g_signal_connect(G_OBJECT(connection), "error", G_CALLBACK(_connect_cnc_callback), (gpointer) mgd); /* if (mgd->priv->pattern) g_signal_connect(G_OBJECT(connection), "error", G_CALLBACK(_connect_cnc_callback), (gpointer) mgd->priv->pattern); */ mgd->priv->error_clbk_connected = TRUE; return; } void midgard_core_connection_disconnect_error_callback (MidgardConnection *mgd) { g_return_if_fail (mgd != NULL); if (!mgd->priv->error_clbk_connected) return; GdaConnection *connection = mgd->priv->connection; g_object_disconnect(G_OBJECT(connection), "any_signal", G_CALLBACK(_connect_cnc_callback), mgd, NULL); /* if (mgd->priv->pattern) g_object_disconnect(G_OBJECT(connection), "any_signal", G_CALLBACK(_connect_cnc_callback), mgd->priv->pattern, NULL); */ mgd->priv->error_clbk_connected = FALSE; return; } midgard2-core-10.05.7.1/src/midgard_transaction.h0000664000175000017500000000540511772046240016350 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_TRANSACTION_H #define MIDGARD_TRANSACTION_H #include "midgard_defs.h" #include "midgard_connection.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_TRANSACTION (midgard_transaction_get_type()) #define MIDGARD_TRANSACTION(object) \ (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_TRANSACTION, MidgardTransaction)) #define MIDGARD_TRANSACTION_CLASS(klass) \ (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_TRANSACTION, MidgardTransactionClass)) #define MIDGARD_IS_TRANSACTION(object) \ (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_TRANSACTION)) #define MIDGARD_IS_TRANSACTION_CLASS(klass) \ (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_TRANSACTION)) #define MIDGARD_TRANSACTION_GET_CLASS(obj) \ (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_TRANSACTION, MidgardTransactionClass)) typedef struct _MidgardTransaction MidgardTransaction; typedef struct _MidgardTransactionPrivate MidgardTransactionPrivate; typedef struct _MidgardTransactionClass MidgardTransactionClass; struct _MidgardTransaction { GObject parent; /* < private > */ MidgardTransactionPrivate *priv; }; struct _MidgardTransactionClass{ GObjectClass parent; /* class members */ gboolean (*begin) (MidgardTransaction *self); gboolean (*commit) (MidgardTransaction *self); gboolean (*rollback) (MidgardTransaction *self); gboolean (*get_status) (MidgardTransaction *self); const gchar *(*get_name) (MidgardTransaction *self); }; GType midgard_transaction_get_type (void); MidgardTransaction *midgard_transaction_new (MidgardConnection *mgd); gboolean midgard_transaction_begin (MidgardTransaction *self); gboolean midgard_transaction_commit (MidgardTransaction *self); gboolean midgard_transaction_rollback (MidgardTransaction *self); gboolean midgard_transaction_get_status (MidgardTransaction *self); const gchar *midgard_transaction_get_name (MidgardTransaction *self); G_END_DECLS #endif /* MIDGARD_TRANSACTION_H */ midgard2-core-10.05.7.1/src/midgard_workspace.c0000664000175000017500000006540111772046240016016 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_workspace_storage.h" #include "midgard_workspace.h" #include "midgard_workspace_context.h" #include "midgard_core_workspace.h" #include "midgard_core_object.h" #include "midgard_core_query.h" #include "guid.h" #include "midgard_query_constraint_simple.h" #include "midgard_query_holder.h" #include "midgard_query_value.h" #include "midgard_query_property.h" #include "midgard_query_executor.h" #include "midgard_query_select.h" #include "midgard_query_storage.h" #include "midgard_query_constraint.h" #include "midgard_query_constraint_group.h" #include "midgard_error.h" /** * midgard_workspace_new: * * Simplified constructor. * * Returns: #MidgardWorkspace instance * Since: 10.05.5 */ MidgardWorkspace * midgard_workspace_new () { MidgardWorkspace *self = g_object_new (MIDGARD_TYPE_WORKSPACE, NULL); return self; } gboolean _midgard_workspace_get_by_path (const MidgardWorkspaceManager *manager, MidgardWorkspaceStorage *wss, const gchar *path, GError **error) { g_return_val_if_fail (wss != NULL, FALSE); g_return_val_if_fail (path != NULL, FALSE); MidgardWorkspace *self = MIDGARD_WORKSPACE (wss); MidgardConnection *mgd = manager->priv->mgd; g_return_val_if_fail (mgd != NULL, FALSE); GError *err = NULL; gint id = 0; guint row_id; id = midgard_core_workspace_get_id_by_path (mgd, path, &row_id, &err); if (id == -1) { g_propagate_error (error, err); return FALSE; } MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_GET_CLASS (self); dbklass->dbpriv->set_from_data_model (MIDGARD_DBOBJECT (self), mgd->priv->workspace_model, row_id, 0); return TRUE; } static gboolean _midgard_workspace_create (const MidgardWorkspaceManager *manager, MidgardWorkspaceStorage *ws, const gchar *_path, GError **error) { g_return_val_if_fail (manager != NULL, FALSE); g_return_val_if_fail (ws != NULL, FALSE); const gchar *path = _path; if (path == NULL) path = ""; MidgardWorkspace *self = MIDGARD_WORKSPACE (ws); MidgardConnection *mgd = manager->priv->mgd; MGD_OBJECT_CNC (self) = mgd; g_return_val_if_fail (mgd != NULL, FALSE); gchar *workspace_name = self->priv->name; if (workspace_name == NULL || (workspace_name != NULL && *workspace_name == '\0')) { g_set_error (error, MIDGARD_WORKSPACE_STORAGE_ERROR, MIDGARD_WORKSPACE_STORAGE_ERROR_INVALID_VALUE, "Invalid (empty or null) workspace's name"); return FALSE; } GString *ws_path = g_string_new (""); g_string_append_printf (ws_path, "%s/%s", path, workspace_name); if (midgard_workspace_manager_path_exists (manager, ws_path->str)) { g_set_error (error, MIDGARD_WORKSPACE_STORAGE_ERROR, MIDGARD_WORKSPACE_STORAGE_ERROR_NAME_EXISTS, "WorkspaceStorage at path '%s/%s' already exists", path, workspace_name); g_string_free (ws_path, TRUE); return FALSE; } GError *err = NULL; gint up_id = 0; /* Ignore empty path, we're going to create root workspace */ if (*path != '\0') { up_id = midgard_core_workspace_get_id_by_path (mgd, path, NULL, &err); if (err && err->code) { if (err->code == MIDGARD_WORKSPACE_STORAGE_ERROR_OBJECT_NOT_EXISTS) { if (up_id == -1) up_id = 0; g_clear_error (&err); } else if (err->code == MIDGARD_WORKSPACE_STORAGE_ERROR_NAME_EXISTS || err->code == MIDGARD_WORKSPACE_STORAGE_ERROR_PATH_EXISTS) { g_clear_error (&err); } else { g_propagate_error (error, err); g_string_free (ws_path, TRUE); return FALSE; } } } /* TODO, set parent workspace, if needed * MidgardWorkspaceContext *context = midgard_workspace_context_new (); */ /* Create, set guid and up id */ MIDGARD_DBOBJECT(self)->dbpriv->guid = (const gchar *) midgard_guid_new (mgd); self->priv->up_id = up_id; if (midgard_core_query_create_dbobject_record (MIDGARD_DBOBJECT (self))) { /* TODO ?, emit created signal */ /* Refresh available workspaces model */ midgard_core_workspace_list_all (mgd, FALSE); /* Get id of newly created object */ guint row_id; gint id = midgard_core_workspace_get_col_id_by_name (mgd, self->priv->name, MGD_WORKSPACE_FIELD_IDX_ID, self->priv->up_id, &row_id); if (id < 1) { g_warning ("Newly created workspace (%s) id is not unique (%d)", ws_path->str, id); /* TODO, set error and delete workspace from database */ g_string_free (ws_path, TRUE); return FALSE; } self->priv->id = id; g_string_free (ws_path, TRUE); return TRUE; } g_string_free (ws_path, TRUE); /* Create failed, reset values */ g_free ((gchar *)MGD_OBJECT_GUID (self)); MGD_OBJECT_GUID (self) = NULL; self->priv->up_id = 0; self->priv->id = 0; /* FIXME, Set internal error */ return FALSE; } static gboolean _midgard_workspace_update (const MidgardWorkspaceManager *manager, MidgardWorkspaceStorage *ws, GError **error) { g_return_val_if_fail (manager != NULL, FALSE); g_return_val_if_fail (ws != NULL, FALSE); MidgardWorkspace *self = MIDGARD_WORKSPACE (ws); MidgardConnection *mgd = manager->priv->mgd; MGD_OBJECT_CNC (self) = mgd; g_return_val_if_fail (mgd != NULL, FALSE); if (self->priv->id == 0) { g_set_error (error, MIDGARD_WORKSPACE_STORAGE_ERROR, MIDGARD_WORKSPACE_STORAGE_ERROR_INVALID_VALUE, "Invalid value ID for workspace"); return FALSE; } gchar *workspace_name = self->priv->name; if (workspace_name == NULL || (workspace_name != NULL && *workspace_name == '\0')) { g_set_error (error, MIDGARD_WORKSPACE_STORAGE_ERROR, MIDGARD_WORKSPACE_STORAGE_ERROR_INVALID_VALUE, "Invalid (empty or null) workspace's name"); return FALSE; } /* Check duplicate */ const MidgardWorkspaceContext *context = midgard_workspace_get_context (self); if (context) { MidgardWorkspace *ws_dup = (MidgardWorkspace *) midgard_workspace_storage_get_workspace_by_name (MIDGARD_WORKSPACE_STORAGE (context), workspace_name); if (ws_dup && g_str_equal (ws_dup->priv->name, workspace_name) && ws_dup->priv->id != self->priv->id) { g_object_unref (ws_dup); g_set_error (error, MIDGARD_WORKSPACE_STORAGE_ERROR, MIDGARD_WORKSPACE_STORAGE_ERROR_NAME_EXISTS, "Workspace with given '%s' name already exists in this context", workspace_name); return FALSE; } if (g_str_equal (ws_dup->priv->name, workspace_name)) { g_object_unref (ws_dup); return TRUE; } if (ws_dup) g_object_unref (ws_dup); } if (midgard_core_query_update_dbobject_record (MIDGARD_DBOBJECT (self), NULL)) { midgard_core_workspace_list_all (mgd, FALSE); return TRUE; } g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "%s", midgard_connection_get_error_string (mgd)); return FALSE; } static gboolean _midgard_workspace_purge (const MidgardWorkspaceManager *manager, MidgardWorkspaceStorage *ws, GError **error) { return FALSE; } /** * midgard_workspace_get_context: * @self: #MidgardWorkspace instance * * Returns: #MidgardWorkspaceContext @self is in or %NULL * Since: 10.05.5 */ const MidgardWorkspaceContext* midgard_workspace_get_context (MidgardWorkspace *self) { g_return_val_if_fail (self != NULL, NULL); const MidgardWorkspaceManager *manager = self->priv->manager; const MidgardWorkspaceContext *context = self->priv->context; if (context) return context; context = midgard_workspace_context_new (); const gchar *path = midgard_workspace_storage_get_path (MIDGARD_WORKSPACE_STORAGE (self)); gboolean rv = midgard_workspace_manager_get_workspace_by_path (manager, MIDGARD_WORKSPACE_STORAGE (context), path, NULL); if (rv) { self->priv->context = context; return context; } g_object_unref ((gpointer) context); return NULL; } /** * midgard_workspace_is_in_context: * @self: #MidgardWorkspace instance * @context: #MidgardWorkspaceContext to check * * Check whether @self is in gven #MidgardWorkspaceContext @context * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05.5 */ gboolean midgard_workspace_is_in_context (MidgardWorkspace *self, MidgardWorkspaceContext *context) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (context != NULL, FALSE); if (!self->priv->name) return FALSE; guint elements; gchar **names = midgard_workspace_storage_list_workspace_names (MIDGARD_WORKSPACE_STORAGE (context), &elements); /* context has no single workspace */ if (elements < 1) { if (names) g_strfreev (names); return FALSE; } /* Find workspace by name */ guint i = 0; gchar *name = NULL; while (names[i] != NULL) { if (g_str_equal (names[i], self->priv->name)) { name = names[i]; break; } i++; } g_free (names); /* There's no named workspace */ if (!name) return FALSE; /* Get named workspace from context and check if id equals*/ MidgardWorkspace *tmp = (MidgardWorkspace *)midgard_workspace_storage_get_workspace_by_name (MIDGARD_WORKSPACE_STORAGE (context), name); if (!tmp) return FALSE; guint id = tmp->priv->id; g_object_unref (tmp); if (id == self->priv->id) return TRUE; return FALSE; } const gchar* _midgard_workspace_get_path (MidgardWorkspaceStorage *ws) { g_return_val_if_fail (ws != NULL, NULL); MidgardWorkspace *self = MIDGARD_WORKSPACE (ws); const MidgardWorkspaceManager *manager = self->priv->manager; if (!manager) return NULL; MidgardConnection *mgd = manager->priv->mgd; g_return_val_if_fail (mgd != NULL, NULL); if (self->priv->name == NULL) return NULL; GSList *list = midgard_core_workspace_get_parent_names (mgd, self->priv->up_id); GSList *l; GString *str = g_string_new (""); for (l = list; l != NULL; l = l->next) { gchar *name = (gchar *) l->data; g_string_append_printf (str, "/%s", name); } g_string_append_printf (str, "/%s", self->priv->name); g_free (self->priv->path); self->priv->path = g_string_free (str, FALSE); return (const gchar *) self->priv->path; } static gchar ** _midgard_workspace_list_workspace_names (MidgardWorkspaceStorage *wss, guint *elements) { g_return_val_if_fail (wss != NULL, NULL); if (elements) *elements = 0; MidgardWorkspace *self = MIDGARD_WORKSPACE (wss); const gchar *path = midgard_workspace_storage_get_path (wss); if (path == NULL) return NULL; gchar **tokens = g_strsplit (path, "/", 0); guint i = 0; GSList *slist = NULL; /* compute number of elements, ignore empty element and self's name */ while (tokens[i] != NULL) { if (*tokens[i] != '\0' && !g_str_equal (self->priv->name, tokens[i])) slist = g_slist_prepend (slist, tokens[i]); i++; } if (slist == NULL) return NULL; gchar **names = g_new (gchar*, g_slist_length (slist)); slist = g_slist_reverse (slist); GSList *l; for (l = slist, i = 0; l != NULL; l = l->next, i++) { names[i] = (gchar*) l->data; } if (elements) *elements = g_slist_length (slist); g_slist_free (slist); return names; } static MidgardWorkspaceStorage* _midgard_workspace_get_workspace_by_name (MidgardWorkspaceStorage *wss, const gchar *name) { g_return_val_if_fail (wss != NULL, NULL); g_return_val_if_fail (name != NULL, NULL); MidgardWorkspace *self = MIDGARD_WORKSPACE (wss); const MidgardWorkspaceManager *manager = self->priv->manager; const gchar *path = midgard_workspace_storage_get_path (wss); if (!path) return NULL; const MidgardWorkspaceContext *context = midgard_workspace_get_context (self); if (!context) return NULL; MidgardWorkspaceStorage *ws = midgard_workspace_storage_get_workspace_by_name (MIDGARD_WORKSPACE_STORAGE (context), name); if (!ws) return NULL; if (ws && MIDGARD_WORKSPACE (ws)->priv->id == self->priv->id) { g_object_unref (ws); return NULL; } return ws; } static MidgardWorkspaceStorage ** _midgard_workspace_list_children (MidgardWorkspaceStorage *wss, guint *n_objects) { g_return_val_if_fail (wss != NULL, NULL); if (n_objects) *n_objects = 0; guint n_names; gchar **names = midgard_workspace_storage_list_workspace_names (wss, &n_names); if (names == NULL) return NULL; guint i; MidgardWorkspaceStorage **children = g_new (MidgardWorkspaceStorage*, n_names); for (i = 0; i < n_names; i++) { children[i] = midgard_workspace_storage_get_workspace_by_name (wss, names[i]); } if (n_objects) *n_objects = n_names; return children; } static GSList* _midgard_workspace_iface_list_ids (MidgardConnection *mgd, MidgardWorkspaceStorage *self) { MidgardWorkspace *ws = MIDGARD_WORKSPACE (self); const MidgardWorkspaceManager *manager = ws->priv->manager; if (!manager || (manager && !manager->priv)) return NULL; if (mgd == NULL) mgd = manager->priv->mgd; guint id = ws->priv->id; if (id == 0) return NULL; guint row_id; const GValue *id_val = midgard_core_workspace_get_value_by_id (mgd, MGD_WORKSPACE_FIELD_IDX_ID, id, &row_id); if (!id_val) return NULL; GSList *list = NULL; list = g_slist_append (list, (gpointer) id_val); return list; } static guint _midgard_workspace_iface_get_id (MidgardWorkspaceStorage *self) { MidgardWorkspace *ws = MIDGARD_WORKSPACE (self); return ws->priv->id; } /* GOBJECT ROUTINES */ static GObjectClass *__parent_class= NULL; enum { PROPERTY_PARENT_WS = 1, PROPERTY_GUID, PROPERTY_ID, PROPERTY_UP, PROPERTY_PATH, PROPERTY_NAME }; static void _midgard_workspace_iface_init (MidgardWorkspaceStorageIFace *iface) { iface->get_path = _midgard_workspace_get_path; iface->list_children = _midgard_workspace_list_children; iface->list_workspace_names = _midgard_workspace_list_workspace_names; iface->get_workspace_by_name = _midgard_workspace_get_workspace_by_name; iface->priv = g_new (MidgardWorkspaceStorageIFacePrivate, 1); iface->priv->list_ids = _midgard_workspace_iface_list_ids; iface->priv->get_id = _midgard_workspace_iface_get_id; iface->priv->create = _midgard_workspace_create; iface->priv->update = _midgard_workspace_update; iface->priv->purge = _midgard_workspace_purge; iface->priv->get_by_path = _midgard_workspace_get_by_path; return; } static void _midgard_workspace_iface_finalize (MidgardWorkspaceStorageIFace *iface) { if (!iface->priv) return; g_free (iface->priv); iface->priv = NULL; return; } static void _midgard_workspace_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardWorkspace *self = (MidgardWorkspace *) instance; self->priv = midgard_core_workspace_private_new (); return; } static GObject * _midgard_workspace_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (__parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_workspace_dispose (GObject *object) { MidgardWorkspace *self = MIDGARD_WORKSPACE (object); if (self->priv->parent_ws) { g_object_unref (self->priv->parent_ws); self->priv->parent_ws = NULL; } if (self->priv->context) g_object_unref ((gpointer)self->priv->context); self->priv->context = NULL; /* Nullify MidgardConnection pointer, it's not set explicitly for this class. */ MGD_OBJECT_CNC (self) = NULL; __parent_class->dispose (object); } static void _midgard_workspace_finalize (GObject *object) { MidgardWorkspace *self = MIDGARD_WORKSPACE (object); midgard_core_workspace_private_free (self->priv); __parent_class->finalize (object); } static void _midgard_workspace_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardWorkspace *self = MIDGARD_WORKSPACE (object); switch (property_id) { case PROPERTY_PARENT_WS: if (!G_VALUE_HOLDS_OBJECT (value)) return; GObject *obj = g_value_get_object (value); if (!MIDGARD_IS_WORKSPACE (obj)) return; MidgardWorkspace *parent_ws = g_value_dup_object (value); self->priv->parent_ws = parent_ws; self->priv->up_id = parent_ws->priv->id; break; case PROPERTY_NAME: g_free (self->priv->name); self->priv->name = g_value_dup_string (value); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_workspace_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardWorkspace *self = (MidgardWorkspace *) object; switch (property_id) { case PROPERTY_PARENT_WS: /* do not return object via property, instead call API so we can annotate returned object's ownership */ break; case PROPERTY_GUID: g_value_set_string (value, MGD_OBJECT_GUID (self)); break; case PROPERTY_ID: g_value_set_uint (value, self->priv->id); break; case PROPERTY_UP: g_value_set_uint (value, self->priv->up_id); break; case PROPERTY_PATH: g_value_set_string (value, midgard_workspace_storage_get_path (MIDGARD_WORKSPACE_STORAGE (self))); break; case PROPERTY_NAME: g_value_set_string (value, self->priv->name); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static gboolean _workspace_storage_exists (MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(klass != NULL, FALSE); return midgard_core_table_exists(mgd, MGD_WORKSPACE_TABLE); } static gboolean _workspace_storage_delete (MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail (mgd != NULL, FALSE); g_return_val_if_fail (klass != NULL, FALSE); g_warning ("MidgardWorkspace storage can not be deleted"); return FALSE; } static void _set_from_data_model (MidgardDBObject *self, GdaDataModel *model, gint row, guint column_id) { g_return_if_fail (self != NULL); g_return_if_fail (model != NULL); g_return_if_fail (row > -1); GError *error = NULL; const GValue *value; MidgardWorkspace *ws = MIDGARD_WORKSPACE (self); /* guid */ value = gda_data_model_get_value_at (model, MGD_WORKSPACE_FIELD_IDX_GUID, row, &error); if (!value) { g_warning ("Failed to get workspace guid field: %s", error && error->message ? error->message : "Unknown reason"); if (error) g_clear_error (&error); } else { g_free ((gchar *)MGD_OBJECT_GUID (ws)); if (G_VALUE_HOLDS_STRING (value)) MGD_OBJECT_GUID (ws) = g_value_dup_string (value); else { GValue strval = {0, }; g_value_init (&strval, G_TYPE_STRING); g_value_transform (value, &strval); MGD_OBJECT_GUID (ws) = g_value_dup_string (&strval); g_value_unset (&strval); } } if (error) g_clear_error (&error); /* id */ value = gda_data_model_get_value_at (model, MGD_WORKSPACE_FIELD_IDX_ID, row, &error); if (!value) { g_warning ("Failed to get workspace id field: %s", error && error->message ? error->message : "Unknown reason"); if (error) g_clear_error (&error); } else { if (G_VALUE_HOLDS_UINT (value)) ws->priv->id = g_value_get_uint (value); else { GValue intval = {0, }; g_value_init (&intval, G_TYPE_UINT); g_value_transform (value, &intval); ws->priv->id = (guint) g_value_get_uint (&intval); g_value_unset (&intval); } } if (error) g_clear_error (&error); /* up */ value = gda_data_model_get_value_at (model, MGD_WORKSPACE_FIELD_IDX_UP, row, &error); if (!value) { g_warning ("Failed to get workspace up field: %s", error && error->message ? error->message : "Unknown reason"); if (error) g_clear_error (&error); } else { if (G_VALUE_HOLDS_UINT (value)) ws->priv->up_id = g_value_get_uint (value); else ws->priv->up_id = (guint) g_value_get_int (value); } if (error) g_clear_error (&error); /* name */ value = gda_data_model_get_value_at (model, MGD_WORKSPACE_FIELD_IDX_NAME, row, &error); if (!value) { g_warning ("Failed to get workspace name field: %s", error && error->message ? error->message : "Unknown reason"); if (error) g_clear_error (&error); } else { g_free (ws->priv->name); ws->priv->name = g_value_dup_string (value); } if (error) g_clear_error (&error); return; } static void _midgard_workspace_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardWorkspaceClass *klass = MIDGARD_WORKSPACE_CLASS (g_class); __parent_class = g_type_class_peek_parent (g_class); gobject_class->constructor = _midgard_workspace_constructor; gobject_class->dispose = _midgard_workspace_dispose; gobject_class->finalize = _midgard_workspace_finalize; gobject_class->set_property = _midgard_workspace_set_property; gobject_class->get_property = _midgard_workspace_get_property; /* PROPERTIES */ MgdSchemaPropertyAttr *prop_attr; MgdSchemaTypeAttr *type_attr = midgard_core_schema_type_attr_new(); GParamSpec *pspec; const gchar *property_name; /* parent workspace */ property_name = "parent_workspace"; pspec = g_param_spec_object (property_name, "Parent workspace", "", MIDGARD_TYPE_WORKSPACE, G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY); g_object_class_install_property (gobject_class, PROPERTY_PARENT_WS, pspec); /* id */ property_name = "id"; pspec = g_param_spec_uint (property_name, "Local storage id which identifies workspace", "", 0, G_MAXUINT32, 0, G_PARAM_READABLE); g_object_class_install_property (gobject_class, PROPERTY_ID, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_UINT; prop_attr->field = g_strdup(property_name); prop_attr->table = g_strdup(MGD_WORKSPACE_TABLE); prop_attr->tablefield = g_strjoin(".", MGD_WORKSPACE_TABLE, property_name, NULL); /* Set id property and field as Primary Key */ prop_attr->primaryfield = g_strdup (property_name); prop_attr->is_primary = TRUE; type_attr->primary = g_strdup (property_name); type_attr->primaryfield = g_strdup (property_name); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, (gpointer) property_name); /* up */ property_name = "up"; pspec = g_param_spec_uint (property_name, "Local storage id which identifies up workspace", "", 0, G_MAXUINT32, 0, G_PARAM_READABLE); g_object_class_install_property (gobject_class, PROPERTY_UP, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_UINT; prop_attr->field = g_strdup(property_name); prop_attr->table = g_strdup(MGD_WORKSPACE_TABLE); prop_attr->tablefield = g_strjoin(".", MGD_WORKSPACE_TABLE, property_name, NULL); g_hash_table_insert(type_attr->prophash, g_strdup((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, (gpointer) property_name); /* guid */ property_name = "guid"; pspec = g_param_spec_string (property_name, "Guid which identifies workspace object.", "", "", G_PARAM_READABLE); g_object_class_install_property (gobject_class, PROPERTY_GUID, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_GUID; prop_attr->field = g_strdup (property_name); prop_attr->table = g_strdup (MGD_WORKSPACE_TABLE); prop_attr->tablefield = g_strjoin (".", MGD_WORKSPACE_TABLE, property_name, NULL); g_hash_table_insert (type_attr->prophash, g_strdup((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, (gpointer) property_name); /* path */ property_name = "path"; pspec = g_param_spec_string (property_name, "A path workspace is at", "", "", G_PARAM_READABLE); g_object_class_install_property (gobject_class, PROPERTY_PATH, pspec); /* name */ property_name = "name"; pspec = g_param_spec_string (property_name, "WorkspaceStorage name", "", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, PROPERTY_NAME, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_STRING; prop_attr->field = g_strdup (property_name); prop_attr->table = g_strdup (MGD_WORKSPACE_TABLE); prop_attr->tablefield = g_strjoin (".", MGD_WORKSPACE_TABLE, property_name, NULL); g_hash_table_insert (type_attr->prophash, g_strdup((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, (gpointer )property_name); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv = midgard_core_dbobject_private_new (); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_data = type_attr; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_data->table = g_strdup(MGD_WORKSPACE_TABLE); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_data->tables = g_strdup(MGD_WORKSPACE_TABLE); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->has_metadata = FALSE; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->create_storage = midgard_core_query_create_class_storage; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->update_storage = midgard_core_query_update_class_storage; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_exists = _workspace_storage_exists; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->delete_storage = _workspace_storage_delete; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->get_statement_insert = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->get_statement_insert; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->get_statement_insert_params = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->get_statement_insert_params; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->get_statement_update = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->get_statement_update; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->get_statement_update_params = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->get_statement_update_params; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->add_fields_to_select_statement = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->add_fields_to_select_statement; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->set_from_data_model = _set_from_data_model; } GType midgard_workspace_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardWorkspaceClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_workspace_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardWorkspace), 0, /* n_preallocs */ _midgard_workspace_instance_init /* instance_init */ }; static const GInterfaceInfo property_info = { (GInterfaceInitFunc) _midgard_workspace_iface_init, (GInterfaceFinalizeFunc) _midgard_workspace_iface_finalize, NULL /* interface_data */ }; type = g_type_register_static (MIDGARD_TYPE_DBOBJECT, "MidgardWorkspace", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_WORKSPACE_STORAGE, &property_info); } return type; } midgard2-core-10.05.7.1/src/midgard_core_metadata.h0000664000175000017500000001063311772046240016612 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MIDGARD_CORE_METADATA_H #define MIDGARD_CORE_METADATA_H #include "midgard_core_object.h" #include "midgard_metadata.h" #define METADATA_PROPERTY_FIELD_PREFIX "metadata_" #define METADATA_PROPERTY_CREATOR "creator" #define METADATA_PROPERTY_CREATED "created" #define METADATA_PROPERTY_REVISOR "revisor" #define METADATA_PROPERTY_REVISED "revised" #define METADATA_PROPERTY_REVISION "revision" #define METADATA_PROPERTY_LOCKER "locker" #define METADATA_PROPERTY_LOCKED "locked" #define METADATA_PROPERTY_APPROVER "approver" #define METADATA_PROPERTY_APPROVED "approved" #define METADATA_PROPERTY_AUTHORS "authors" #define METADATA_PROPERTY_OWNER "owner" #define METADATA_PROPERTY_SIZE "size" #define METADATA_PROPERTY_EXPORTED "exported" #define METADATA_PROPERTY_IMPORTED "imported" #define METADATA_PROPERTY_DELETED "deleted" #define METADATA_PROPERTY_ISAPPROVED "isapproved" #define METADATA_PROPERTY_ISLOCKED "islocked" #define METADATA_PROPERTY_SCHEDULESTART "schedule_start" #define METADATA_PROPERTY_SCHEDULEEND "schedule_end" #define METADATA_PROPERTY_PUBLISHED "published" #define METADATA_FIELD_DELETED "metadata_deleted" /* Properties setters */ void midgard_core_metadata_set_creator (MidgardMetadata *self, const GValue *creator); void midgard_core_metadata_set_created (MidgardMetadata *self, const GValue *value); void midgard_core_metadata_set_revisor (MidgardMetadata *self, const GValue *revisor); void midgard_core_metadata_set_revised (MidgardMetadata *self, const GValue *revised); void midgard_core_metadata_set_revision (MidgardMetadata *self, const GValue *revision); void midgard_core_metadata_set_locker (MidgardMetadata *self, const GValue *locker); void midgard_core_metadata_set_locked (MidgardMetadata *self, const GValue *locked); void midgard_core_metadata_set_approver (MidgardMetadata *self, const GValue *approver); void midgard_core_metadata_set_approved (MidgardMetadata *self, const GValue *approved); void midgard_core_metadata_set_size (MidgardMetadata *self, const GValue *size); void midgard_core_metadata_set_exported (MidgardMetadata *self, const GValue *exported); void midgard_core_metadata_set_imported (MidgardMetadata *self, const GValue *imported); void midgard_core_metadata_set_deleted (MidgardMetadata *self, const GValue *deleted); void midgard_core_metadata_set_isapproved (MidgardMetadata *self, const GValue *isapproved); void midgard_core_metadata_set_islocked (MidgardMetadata *self, const GValue *islocked); void midgard_core_metadata_set_schedule_start (MidgardMetadata *self, const GValue *schedule); void midgard_core_metadata_set_schedule_end (MidgardMetadata *self, const GValue *schedule); void midgard_core_metadata_set_published (MidgardMetadata *self, const GValue *published); void midgard_core_metadata_set_authors (MidgardMetadata *self, const GValue *authors); void midgard_core_metadata_set_owner (MidgardMetadata *self, const GValue *owner); void midgard_core_metadata_set_score (MidgardMetadata *self, const GValue *score); void midgard_core_metadata_set_hidden (MidgardMetadata *self, const GValue *hidden); void midgard_core_metadata_set_navnoentry (MidgardMetadata *self, const GValue *navnoentry); /* MidgardDBObject */ gboolean midgard_core_metadata_dbpriv_set_property (MidgardDBObject *self, const gchar *name, GValue *value); /* routines */ void midgard_core_metadata_increase_revision (MidgardMetadata *self); MidgardMetadata *midgard_core_metadata_copy (MidgardMetadata *src); void midgard_core_metadata_copy_properties (MidgardMetadata *src, MidgardMetadata *copy); guint midgard_core_metadata_get_size (MidgardMetadata *self); #endif /* MIDGARD_CORE_METADATA_H */ midgard2-core-10.05.7.1/src/midgard_key_config_file_context.c0000664000175000017500000003377411772046240020710 00000000000000/* midgard_key_config_file_context.c generated by valac, the Vala compiler * generated from midgard_key_config_file_context.vala, do not modify */ /* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include #include #include #include #define MIDGARD_TYPE_KEY_CONFIG_CONTEXT (midgard_key_config_context_get_type ()) #define MIDGARD_KEY_CONFIG_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContext)) #define MIDGARD_KEY_CONFIG_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContextClass)) #define MIDGARD_IS_KEY_CONFIG_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT)) #define MIDGARD_IS_KEY_CONFIG_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG_CONTEXT)) #define MIDGARD_KEY_CONFIG_CONTEXT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContextClass)) typedef struct _MidgardKeyConfigContext MidgardKeyConfigContext; typedef struct _MidgardKeyConfigContextClass MidgardKeyConfigContextClass; typedef struct _MidgardKeyConfigContextPrivate MidgardKeyConfigContextPrivate; #define MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT (midgard_key_config_file_context_get_type ()) #define MIDGARD_KEY_CONFIG_FILE_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT, MidgardKeyConfigFileContext)) #define MIDGARD_KEY_CONFIG_FILE_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT, MidgardKeyConfigFileContextClass)) #define MIDGARD_IS_KEY_CONFIG_FILE_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT)) #define MIDGARD_IS_KEY_CONFIG_FILE_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT)) #define MIDGARD_KEY_CONFIG_FILE_CONTEXT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT, MidgardKeyConfigFileContextClass)) typedef struct _MidgardKeyConfigFileContext MidgardKeyConfigFileContext; typedef struct _MidgardKeyConfigFileContextClass MidgardKeyConfigFileContextClass; typedef struct _MidgardKeyConfigFileContextPrivate MidgardKeyConfigFileContextPrivate; #define _g_dir_close0(var) ((var == NULL) ? NULL : (var = (g_dir_close (var), NULL))) #define _g_error_free0(var) ((var == NULL) ? NULL : (var = (g_error_free (var), NULL))) #define _g_free0(var) (var = (g_free (var), NULL)) #define _g_regex_unref0(var) ((var == NULL) ? NULL : (var = (g_regex_unref (var), NULL))) struct _MidgardKeyConfigContext { GObject parent_instance; MidgardKeyConfigContextPrivate * priv; }; struct _MidgardKeyConfigContextClass { GObjectClass parent_class; char** (*list_key_config) (MidgardKeyConfigContext* self, int* result_length1); }; struct _MidgardKeyConfigFileContext { MidgardKeyConfigContext parent_instance; MidgardKeyConfigFileContextPrivate * priv; }; struct _MidgardKeyConfigFileContextClass { MidgardKeyConfigContextClass parent_class; }; typedef enum { KEY_CONFIG_CONTEXT_ERROR_PATH_IS_NOT_ABSOLUTE } KeyConfigContextError; #define KEY_CONFIG_CONTEXT_ERROR key_config_context_error_quark () static gpointer midgard_key_config_file_context_parent_class = NULL; GType midgard_key_config_context_get_type (void); GType midgard_key_config_file_context_get_type (void); enum { MIDGARD_KEY_CONFIG_FILE_CONTEXT_DUMMY_PROPERTY }; GQuark key_config_context_error_quark (void); MidgardKeyConfigContext* midgard_key_config_context_construct (GType object_type, const char* context_path); MidgardKeyConfigFileContext* midgard_key_config_file_context_new (const char* context_path, GError** error); MidgardKeyConfigFileContext* midgard_key_config_file_context_construct (GType object_type, const char* context_path, GError** error); static char** midgard_key_config_file_context_set_cfgs (MidgardKeyConfigFileContext* self, const char* path, gint i, int* result_length1); static void _vala_array_add1 (char*** array, int* length, int* size, char* value); #define MIDGARD_CONFIG_EXTENSION ".mcfg" const char* midgard_key_config_context_get_context_path (MidgardKeyConfigContext* self); static void _vala_array_add2 (char*** array, int* length, int* size, char* value); static char** midgard_key_config_file_context_real_list_key_config (MidgardKeyConfigContext* base, int* result_length1); static void _vala_array_destroy (gpointer array, gint array_length, GDestroyNotify destroy_func); static void _vala_array_free (gpointer array, gint array_length, GDestroyNotify destroy_func); MidgardKeyConfigFileContext* midgard_key_config_file_context_construct (GType object_type, const char* context_path, GError** error) { GError * _inner_error_; MidgardKeyConfigFileContext * self; g_return_val_if_fail (context_path != NULL, NULL); _inner_error_ = NULL; if (!g_path_is_absolute (context_path)) { _inner_error_ = g_error_new (KEY_CONFIG_CONTEXT_ERROR, KEY_CONFIG_CONTEXT_ERROR_PATH_IS_NOT_ABSOLUTE, "Expected absolute path. %s given", context_path); if (_inner_error_ != NULL) { if (_inner_error_->domain == KEY_CONFIG_CONTEXT_ERROR) { g_propagate_error (error, _inner_error_); return NULL; } else { g_critical ("file %s: line %d: uncaught error: %s", __FILE__, __LINE__, _inner_error_->message); g_clear_error (&_inner_error_); return NULL; } } } self = (MidgardKeyConfigFileContext*) midgard_key_config_context_construct (object_type, context_path); return self; } MidgardKeyConfigFileContext* midgard_key_config_file_context_new (const char* context_path, GError** error) { return midgard_key_config_file_context_construct (MIDGARD_TYPE_KEY_CONFIG_FILE_CONTEXT, context_path, error); } static void _vala_array_add1 (char*** array, int* length, int* size, char* value) { if ((*length) == (*size)) { *size = (*size) ? (2 * (*size)) : 4; *array = g_renew (char*, *array, (*size) + 1); } (*array)[(*length)++] = value; (*array)[*length] = NULL; } static char* string_substring (const char* self, glong offset, glong len) { char* result; glong string_length; const char* start; g_return_val_if_fail (self != NULL, NULL); string_length = g_utf8_strlen (self, -1); if (offset < 0) { offset = string_length + offset; g_return_val_if_fail (offset >= 0, NULL); } else { g_return_val_if_fail (offset <= string_length, NULL); } if (len < 0) { len = string_length - offset; } g_return_val_if_fail ((offset + len) <= string_length, NULL); start = g_utf8_offset_to_pointer (self, offset); result = g_strndup (start, ((gchar*) g_utf8_offset_to_pointer (start, len)) - ((gchar*) start)); return result; } static void _vala_array_add2 (char*** array, int* length, int* size, char* value) { if ((*length) == (*size)) { *size = (*size) ? (2 * (*size)) : 4; *array = g_renew (char*, *array, (*size) + 1); } (*array)[(*length)++] = value; (*array)[*length] = NULL; } static char** midgard_key_config_file_context_set_cfgs (MidgardKeyConfigFileContext* self, const char* path, gint i, int* result_length1) { char** result; GError * _inner_error_; GDir* dir; char* name; char** _tmp2_; gint cfgs_size; gint cfgs_length1; char** cfgs; char** _tmp9_; g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (path != NULL, NULL); _inner_error_ = NULL; dir = NULL; { GDir* _tmp0_; GDir* _tmp1_; _tmp0_ = g_dir_open (path, 0, &_inner_error_); if (_inner_error_ != NULL) { if (_inner_error_->domain == G_FILE_ERROR) { goto __catch0_g_file_error; } goto __finally0; } dir = (_tmp1_ = _tmp0_, _g_dir_close0 (dir), _tmp1_); } goto __finally0; __catch0_g_file_error: { GError * e; e = _inner_error_; _inner_error_ = NULL; { g_warning ("midgard_key_config_file_context.vala:45: Can not open context path %s. %s", path, e->message); _g_error_free0 (e); } } __finally0: if (_inner_error_ != NULL) { _g_dir_close0 (dir); g_critical ("file %s: line %d: uncaught error: %s", __FILE__, __LINE__, _inner_error_->message); g_clear_error (&_inner_error_); return NULL; } name = NULL; cfgs = (_tmp2_ = g_new0 (char*, 0 + 1), cfgs_length1 = 0, cfgs_size = cfgs_length1, _tmp2_); while (TRUE) { char* _tmp3_; char* abspath; if (!((name = (_tmp3_ = g_strdup (g_dir_read_name (dir)), _g_free0 (name), _tmp3_)) != NULL)) { break; } abspath = g_build_filename (path, name, NULL); if (g_file_test (abspath, G_FILE_TEST_IS_DIR)) { char** _tmp5_; gint children_size; gint children_length1; gint _tmp4_; char** children; children = (_tmp5_ = midgard_key_config_file_context_set_cfgs (self, abspath, i, &_tmp4_), children_length1 = _tmp4_, children_size = children_length1, _tmp5_); { char** child_collection; int child_collection_length1; int child_it; child_collection = children; child_collection_length1 = children_length1; for (child_it = 0; child_it < children_length1; child_it = child_it + 1) { const char* child; child = child_collection[child_it]; { _vala_array_add1 (&cfgs, &cfgs_length1, &cfgs_size, g_strdup (child)); } } } children = (_vala_array_free (children, children_length1, (GDestroyNotify) g_free), NULL); } else { if (g_str_has_suffix (abspath, MIDGARD_CONFIG_EXTENSION)) { char* path_wo_suffix; path_wo_suffix = string_substring (abspath, (glong) 0, g_utf8_strlen (abspath, -1) - g_utf8_strlen (MIDGARD_CONFIG_EXTENSION, -1)); { char* _tmp6_; GRegex* _tmp7_; GRegex* regex; char* _tmp8_; regex = (_tmp7_ = g_regex_new (_tmp6_ = g_regex_escape_string (midgard_key_config_context_get_context_path ((MidgardKeyConfigContext*) self), -1), 0, 0, &_inner_error_), _g_free0 (_tmp6_), _tmp7_); if (_inner_error_ != NULL) { goto __catch1_g_error; goto __finally1; } _tmp8_ = g_regex_replace_literal (regex, path_wo_suffix, (glong) (-1), 0, "", 0, &_inner_error_); if (_inner_error_ != NULL) { _g_regex_unref0 (regex); goto __catch1_g_error; goto __finally1; } _vala_array_add2 (&cfgs, &cfgs_length1, &cfgs_size, _tmp8_); _g_regex_unref0 (regex); } goto __finally1; __catch1_g_error: { /*Error object is not used within catch statement, clear it*/ g_clear_error (&_inner_error_); _inner_error_ = NULL; { g_warning ("midgard_key_config_file_context.vala:70: Weird path '%s', not added.", abspath); } } __finally1: if (_inner_error_ != NULL) { _g_free0 (path_wo_suffix); _g_free0 (abspath); _g_dir_close0 (dir); _g_free0 (name); cfgs = (_vala_array_free (cfgs, cfgs_length1, (GDestroyNotify) g_free), NULL); g_critical ("file %s: line %d: uncaught error: %s", __FILE__, __LINE__, _inner_error_->message); g_clear_error (&_inner_error_); return NULL; } i++; _g_free0 (path_wo_suffix); } } _g_free0 (abspath); } result = (_tmp9_ = cfgs, *result_length1 = cfgs_length1, _tmp9_); _g_dir_close0 (dir); _g_free0 (name); return result; _g_dir_close0 (dir); _g_free0 (name); cfgs = (_vala_array_free (cfgs, cfgs_length1, (GDestroyNotify) g_free), NULL); } static char** midgard_key_config_file_context_real_list_key_config (MidgardKeyConfigContext* base, int* result_length1) { MidgardKeyConfigFileContext * self; char** result; gint _tmp0_; char** _tmp1_; self = (MidgardKeyConfigFileContext*) base; result = (_tmp1_ = midgard_key_config_file_context_set_cfgs (self, midgard_key_config_context_get_context_path ((MidgardKeyConfigContext*) self), 0, &_tmp0_), *result_length1 = _tmp0_, _tmp1_); return result; } static void midgard_key_config_file_context_class_init (MidgardKeyConfigFileContextClass * klass) { midgard_key_config_file_context_parent_class = g_type_class_peek_parent (klass); MIDGARD_KEY_CONFIG_CONTEXT_CLASS (klass)->list_key_config = midgard_key_config_file_context_real_list_key_config; } static void midgard_key_config_file_context_instance_init (MidgardKeyConfigFileContext * self) { } GType midgard_key_config_file_context_get_type (void) { static volatile gsize midgard_key_config_file_context_type_id__volatile = 0; if (g_once_init_enter (&midgard_key_config_file_context_type_id__volatile)) { static const GTypeInfo g_define_type_info = { sizeof (MidgardKeyConfigFileContextClass), (GBaseInitFunc) NULL, (GBaseFinalizeFunc) NULL, (GClassInitFunc) midgard_key_config_file_context_class_init, (GClassFinalizeFunc) NULL, NULL, sizeof (MidgardKeyConfigFileContext), 0, (GInstanceInitFunc) midgard_key_config_file_context_instance_init, NULL }; GType midgard_key_config_file_context_type_id; midgard_key_config_file_context_type_id = g_type_register_static (MIDGARD_TYPE_KEY_CONFIG_CONTEXT, "MidgardKeyConfigFileContext", &g_define_type_info, 0); g_once_init_leave (&midgard_key_config_file_context_type_id__volatile, midgard_key_config_file_context_type_id); } return midgard_key_config_file_context_type_id__volatile; } static void _vala_array_destroy (gpointer array, gint array_length, GDestroyNotify destroy_func) { if ((array != NULL) && (destroy_func != NULL)) { int i; for (i = 0; i < array_length; i = i + 1) { if (((gpointer*) array)[i] != NULL) { destroy_func (((gpointer*) array)[i]); } } } } static void _vala_array_free (gpointer array, gint array_length, GDestroyNotify destroy_func) { _vala_array_destroy (array, array_length, destroy_func); g_free (array); } midgard2-core-10.05.7.1/src/midgard_schema_object_tree.c0000664000175000017500000004156511772046240017632 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_schema_object_tree.h" #include "midgard_error.h" #include "midgard_core_query.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" #include "midgard_reflector_object.h" #include "midgard_reflector_property.h" #include "midgard_datatypes.h" gboolean _midgard_tree_exists(MidgardConnection *mgd, const gchar *table, const gchar *upfield, gint root, gint id) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(table != NULL, FALSE); g_return_val_if_fail(upfield != NULL, FALSE); if(id == 0) { g_warning("tree_exists: expected id > 0"); return FALSE; } gint _id = id; gint _root = root; gboolean _exists = FALSE; do { GString *where = g_string_new(""); g_string_append_printf(where, "id = %d ", _id); GValue *value = midgard_core_query_get_field_value(mgd, upfield, table, where->str); g_string_free(where, TRUE); if(G_IS_VALUE(value)) { if(G_VALUE_HOLDS_INT(value)) _id = g_value_get_int(value); if(G_VALUE_HOLDS_UINT(value)) _id = g_value_get_uint(value); } if(_root == _id) return TRUE; if(_id == 0) return FALSE; } while (_id > 0); return _exists; } gboolean midgard_object_is_in_parent_tree(MidgardObject *self, guint rootid, guint id) { g_return_val_if_fail(self != NULL, FALSE); if (!MGD_OBJECT_CNC (self)) { g_warning("Object has no connection pointer!"); return FALSE; } MidgardConnection *mgd = MGD_OBJECT_CNC (self); MidgardObjectClass *parent_class = MIDGARD_OBJECT_GET_CLASS_BY_NAME (midgard_schema_object_tree_get_parent_name (self)); const gchar *parent_table, *up_field; const gchar *parent_field; MgdSchemaTypeAttr *type_attr = midgard_core_class_get_type_attr(MIDGARD_DBOBJECT_GET_CLASS(self)); parent_field = type_attr->parentfield; if(parent_field == NULL) { parent_field = type_attr->upfield; } parent_table = midgard_core_class_get_table(MIDGARD_DBOBJECT_CLASS(parent_class)); up_field = MIDGARD_DBOBJECT_CLASS (parent_class)->dbpriv->storage_data->upfield; GString *where = g_string_new(""); g_string_append_printf(where, "id = %d ", id); GValue *value = midgard_core_query_get_field_value(mgd, parent_field , type_attr->table, where->str); g_string_free(where, TRUE); guint _id = 0; if(G_IS_VALUE(value)) { if(G_VALUE_HOLDS_INT(value)) _id = g_value_get_int(value); if(G_VALUE_HOLDS_UINT(value)) _id = g_value_get_uint(value); } if(!parent_table) return FALSE; if(!up_field) return FALSE; if(_id == 0) return FALSE; if (_id == rootid) return TRUE; gboolean rv = _midgard_tree_exists(MGD_OBJECT_CNC (self), parent_table, up_field, rootid, _id); return rv; } gboolean midgard_object_is_in_tree(MidgardObject *self, guint rootid, guint id) { g_return_val_if_fail(self != NULL, FALSE); if(!MGD_OBJECT_CNC (self)) { g_warning("Object has no connection pointer!"); return FALSE; } const gchar *table = midgard_core_class_get_table(MIDGARD_DBOBJECT_GET_CLASS(self)); const gchar *upfield = MIDGARD_DBOBJECT (self)->dbpriv->storage_data->upfield; if(table == NULL || upfield == NULL) return FALSE; gboolean rv = _midgard_tree_exists(MGD_OBJECT_CNC (self), table, upfield, rootid, id); return rv; } void __midgard_tree_get_id_list(MidgardConnection *mgd, const gchar *table, const gchar *field, guint id, GList **idlist) { GString *query = g_string_new("SELECT "); g_string_append_printf(query, "id FROM %s WHERE %s = %d ", table, field, id); GdaDataModel *model = midgard_core_query_get_model(mgd, query->str); g_string_free(query, TRUE); if(!model) return; gint ret_rows = gda_data_model_get_n_rows(model); guint rows; const GValue *value; guint retid = 0; MidgardTypeHolder *holder; if(ret_rows == 0) { g_object_unref(model); return; } for(rows = 0; rows < ret_rows; rows++) { value = midgard_data_model_get_value_at(model, 0, rows); if(G_IS_VALUE(value)) { if(G_VALUE_TYPE(value) == G_TYPE_INT) retid = g_value_get_int(value); if(G_VALUE_TYPE(value) == G_TYPE_UINT) retid = g_value_get_uint(value); if(retid > 0) { holder = g_new(MidgardTypeHolder, 1); holder->level = (guint)retid; *idlist = g_list_append(*idlist, holder); __midgard_tree_get_id_list(mgd, table, field, retid, idlist); } } } g_object_unref(model); return; } guint *_midgard_tree_ids(MidgardConnection *mgd, MidgardObjectClass *klass, guint startid) { g_assert(mgd != NULL); g_assert(klass != NULL); const gchar *table = midgard_core_class_get_table (MIDGARD_DBOBJECT_CLASS(klass)); const gchar *pcol, *pprop; const gchar *classname = G_OBJECT_CLASS_NAME (klass); pprop = midgard_reflector_object_get_property_parent(classname); if(pprop == NULL) { pprop = MGD_DBCLASS_PROPERTY_UP (klass); } else { MidgardReflectorProperty *mrp = midgard_reflector_property_new (classname); const MidgardDBObjectClass *dbklass = midgard_reflector_property_get_link_class (mrp, pprop); g_object_unref (mrp); return _midgard_tree_ids (mgd, MIDGARD_OBJECT_CLASS (dbklass), startid); } pcol = midgard_core_class_get_property_colname(MIDGARD_DBOBJECT_CLASS(klass), pprop); GList *idlist = NULL; MidgardTypeHolder *holder = g_new(MidgardTypeHolder, 1); holder->level = startid; idlist = g_list_append(idlist, holder); __midgard_tree_get_id_list(mgd, table, pcol, startid, &idlist); guint i = g_list_length(idlist); guint *treeid = g_new(guint, i+1); GList *l = NULL; i = 0; for(l = idlist; l != NULL; l = l->next) { MidgardTypeHolder *holder = (MidgardTypeHolder *)l->data; treeid[i] = holder->level; i++; } treeid[i] = -1; g_list_free(idlist); return treeid; } guint* midgard_core_query_get_tree_ids (MidgardConnection *mgd, MidgardObjectClass *klass, guint tid) { return _midgard_tree_ids (mgd, klass, tid); } /** * midgard_schema_object_tree_is_in_tree: * @object: #MidgardObject instance to check existance in tree * @parent_object: parent #MidgardObject instance * * Returns: %TRUE, if given @object exists under @parent_object in tree. %FALSE otherwise. * * Since: 10.05 */ gboolean midgard_schema_object_tree_is_in_tree (MidgardObject *object, MidgardObject *parent_object) { g_return_val_if_fail (object != NULL, FALSE); g_return_val_if_fail (parent_object != NULL, FALSE); const gchar *parent_classname = midgard_schema_object_tree_get_parent_name (object); guint oid; g_object_get (object, "id", &oid, NULL); guint parent_oid; g_object_get (parent_object, "id", &parent_oid, NULL); if (oid == 0) return FALSE; if (!parent_classname) return midgard_object_is_in_tree (object, parent_oid, oid); if (g_str_equal (parent_classname, G_OBJECT_TYPE_NAME (parent_object))) return midgard_object_is_in_parent_tree (object, parent_oid, oid); return FALSE; } /** * midgard_schema_object_tree_get_parent_name: * @object: #MidgardObject instance * * Returns: (transfer none): classname which, in tree is a parent one for given @object * Since: 10.05 */ const gchar* midgard_schema_object_tree_get_parent_name (MidgardObject *object) { g_return_val_if_fail (object != NULL, NULL); if (MIDGARD_DBOBJECT (object)->dbpriv->storage_data->parent) return MIDGARD_DBOBJECT (object)->dbpriv->storage_data->parent; return NULL; } /** * midgard_schema_object_tree_get_parent_object: * @object: #MidgardObject instance * * Get tree parent object, of the given @object. * * Returns: (transfer full): parent object or %NULL * Since: 10.05 */ MidgardObject* midgard_schema_object_tree_get_parent_object (MidgardObject *object) { g_return_val_if_fail (object != NULL, NULL); MidgardObject *mobj = object; MidgardObject *pobj = NULL; MidgardObject *self = object; const gchar *pcstring; guint puint = 0; gint pint = 0; GParamSpec *fprop = NULL; GValue pval = {0,}; gboolean ret_object = FALSE; const gchar *parent_class_name = NULL; MidgardConnection *mgd = MGD_OBJECT_CNC (self); const gchar *classname = G_OBJECT_TYPE_NAME (self); const gchar *property_up = midgard_reflector_object_get_property_up (classname); if (property_up) { fprop = g_object_class_find_property( G_OBJECT_GET_CLASS(mobj), property_up); MidgardReflectorProperty *mrp = midgard_reflector_property_new (classname); if (midgard_reflector_property_is_link (mrp, property_up)) { parent_class_name = midgard_reflector_property_get_link_name (mrp, property_up); if (parent_class_name) pobj = midgard_object_new (mgd, parent_class_name, NULL); g_object_unref (mrp); } if (!pobj) return NULL; } if (fprop) { g_value_init(&pval,fprop->value_type); g_object_get_property(G_OBJECT(mobj), midgard_reflector_object_get_property_up(classname), &pval); switch(fprop->value_type) { case G_TYPE_STRING: if ((pcstring = g_value_get_string(&pval)) != NULL) { ret_object = TRUE; if (!midgard_object_get_by_guid(pobj, pcstring)) { g_object_unref(pobj); pobj = NULL; } } break; case G_TYPE_UINT: if ((puint = g_value_get_uint(&pval))) { ret_object = TRUE; if (!midgard_object_get_by_id(pobj, puint)) { g_object_unref(pobj); pobj = NULL; } } break; case G_TYPE_INT: if ((pint = g_value_get_int(&pval))) { ret_object = TRUE; if (!midgard_object_get_by_id(pobj, pint)) { g_object_unref(pobj); pobj = NULL; } } break; } g_value_unset(&pval); if (ret_object) { return pobj; } else { g_object_unref(pobj); pobj = NULL; } } /* I do make almost the same for property_parent, because I want to * avoid plenty of warnings after G_VALUE_HOLDS which could be used * with value returned for mobj->priv->storage_data->tree->property_up */ if (midgard_reflector_object_get_property_parent(classname) == NULL) return NULL; parent_class_name = midgard_schema_object_tree_get_parent_name (self); if (!parent_class_name) return NULL; pobj = midgard_object_new(MGD_OBJECT_CNC (self) , MIDGARD_DBOBJECT (mobj)->dbpriv->storage_data->parent, NULL); if (pobj == NULL) return NULL; fprop = g_object_class_find_property( G_OBJECT_GET_CLASS(mobj), midgard_reflector_object_get_property_parent(classname)); if (!fprop) return NULL; g_value_init(&pval,fprop->value_type); g_object_get_property(G_OBJECT(mobj), midgard_reflector_object_get_property_parent(classname) , &pval); switch(fprop->value_type) { case G_TYPE_STRING: if ((pcstring = g_value_get_string(&pval)) != NULL) { if (!midgard_object_get_by_guid(pobj, pcstring)) { g_object_unref(pobj); pobj = NULL; } } break; case G_TYPE_UINT: if ((puint = g_value_get_uint(&pval))) { if (!midgard_object_get_by_id(pobj, puint)) { g_object_unref(pobj); pobj = NULL; } } break; case G_TYPE_INT: if ((pint = g_value_get_int(&pval))) { if (!midgard_object_get_by_id(pobj, pint)) { g_object_unref(pobj); pobj = NULL; } } break; } g_value_unset(&pval); return pobj; } /** * midgard_schema_object_tree_list_objects: * @object: #MidgardObject instance * @n_objects: (out):pointer to store number of returned objects * * List tree children objects, of given @object type. * * Returns: (array length=n_objects) (transfer full): newly allocated array of #MidgardObject objects * Since: 10.05 */ MidgardObject** midgard_schema_object_tree_list_objects (MidgardObject *object, guint *n_objects) { g_return_val_if_fail (object != NULL, NULL); *n_objects = 0; GParamSpec *fprop; const gchar *classname = G_OBJECT_TYPE_NAME (object); MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_OK); const gchar *primary_prop = midgard_reflector_object_get_property_primary(classname); const gchar *up_property = midgard_reflector_object_get_property_up(classname); if (up_property == NULL) return NULL; fprop = g_object_class_find_property( G_OBJECT_GET_CLASS(G_OBJECT(object)), primary_prop); if (!fprop) return NULL; GValue pval = {0,}; g_value_init(&pval,fprop->value_type); g_object_get_property(G_OBJECT(object), primary_prop, &pval); /* If primary property holds uint and its value is 0, do not try to return objects */ if (G_VALUE_HOLDS_UINT(&pval)) { if (g_value_get_uint(&pval) == 0) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_NOT_EXISTS); return NULL; } } if (g_object_class_find_property( G_OBJECT_GET_CLASS(G_OBJECT(object)), up_property) == NULL ) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_NOT_EXISTS); return NULL; } GError *err = NULL; MidgardDBObject **objects = midgard_core_query_get_objects (MGD_OBJECT_CNC (object), classname, &err, up_property, &pval, NULL); if (objects) { guint i = 0; while (objects[i] != NULL) i++; *n_objects = i; return (MidgardObject **) objects; } if (err) { MIDGARD_ERRNO_SET_STRING (MGD_OBJECT_CNC (object), MGD_ERR_INTERNAL, "%s", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); } return NULL; } /** * midgard_schema_object_tree_list_children_objects: * @object: #MidgardObject instance * @classname: name of the tree child class * @n_objects: (out): pointer to store number of returned objects * * List all @classname objects, if exist and are tree children of given @object. * * Returns: (array length=n_objects) (transfer full): array of #MidgardObject objects, or %NULL. * Since: 10.05 */ MidgardObject** midgard_schema_object_tree_list_children_objects (MidgardObject *object, const gchar *classname, guint *n_objects) { g_return_val_if_fail (object != NULL, NULL); g_return_val_if_fail (classname != NULL, NULL); *n_objects = 0; GParamSpec *fprop ; const gchar *primary_prop = MIDGARD_DBOBJECT (object)->dbpriv->storage_data->primary; MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_OK); if ((classname == NULL) || (MIDGARD_DBOBJECT (object)->dbpriv->storage_data->children == NULL)) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_NOT_EXISTS); return NULL; } GSList *list; GSList *children = MIDGARD_DBOBJECT (object)->dbpriv->storage_data->children; gboolean found = FALSE; for (list = children; list != NULL; list = list->next) { if (list->data && g_str_equal(list->data, classname)) found = TRUE; } if (!found) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_NOT_EXISTS); g_log(G_LOG_DOMAIN, G_LOG_LEVEL_DEBUG, "Child type (%s) is not a child type of (%s)", classname, G_OBJECT_TYPE_NAME(object)); return NULL; } const gchar *property_parent = midgard_reflector_object_get_property_parent(classname); if (property_parent == NULL) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_NOT_EXISTS); return NULL; } fprop = g_object_class_find_property(G_OBJECT_GET_CLASS(object),primary_prop); if (fprop == NULL) return NULL; GValue pval = {0,}; g_value_init(&pval,fprop->value_type); g_object_get_property(G_OBJECT(object), primary_prop, &pval); GError *err = NULL; MidgardDBObject **objects = midgard_core_query_get_objects (MGD_OBJECT_CNC (object), classname, &err, property_parent, &pval, NULL); if (objects) { guint i = 0; while (objects[i] != NULL) i++; *n_objects = i; return (MidgardObject **) objects; } if (err) { MIDGARD_ERRNO_SET_STRING (MGD_OBJECT_CNC (object), MGD_ERR_INTERNAL, "%s", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); } return NULL; } /* GOBJECT ROUTINES */ GType midgard_schema_object_tree_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardSchemaObjectTreeClass), NULL, /* base_init */ NULL, /* base_finalize */ NULL, /* class init */ NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardSchemaObjectTree), 0, /* n_preallocs */ NULL }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardSchemaObjectTree", &info, G_TYPE_FLAG_ABSTRACT); } return type; } midgard2-core-10.05.7.1/src/group_constraint.h0000664000175000017500000000456011772046240015735 00000000000000/* * Copyright (C) 2005 Jukka Zitting * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef _GROUP_CONSTRAINT_H #define _GROUP_CONSTRAINT_H #include #include #include "query_constraint.h" #define MIDGARD_TYPE_GROUP_CONSTRAINT (midgard_group_constraint_get_type()) #define MIDGARD_GROUP_CONSTRAINT(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), MIDGARD_TYPE_GROUP_CONSTRAINT, MidgardGroupConstraint)) #define MIDGARD_GROUP_CONSTRAINT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((klass), MIDGARD_TYPE_GROUP_CONSTRAINT, MidgardGroupConstraintClass)) #define MIDGARD_IS_GROUP_CONSTRAINT(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), MIDGARD_TYPE_GROUP_CONSTRAINT)) #define MIDGARD_IS_GROUP_CONSTRAINT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), MIDGARD_TYPE_GROUP_CONSTRAINT)) #define MIDGARD_GROUP_CONSTRAINT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), MIDGARD_TYPE_GROUP_CONSTRAINT, MidgardGroupConstraintClass)) typedef struct _MidgardGroupConstraint MidgardGroupConstraint; typedef struct _MidgardGroupConstraintClass MidgardGroupConstraintClass; struct _MidgardGroupConstraint{ MidgardCoreQueryConstraint parent; /* private fields */ gchar *type; GSList *constraints; GSList *nested; MidgardGroupConstraint *parent_group; }; struct _MidgardGroupConstraintClass{ MidgardCoreQueryConstraintClass parent; void (*add_sql) (MidgardGroupConstraint *group, GString *sql); }; GType midgard_group_constraint_get_type(void); MidgardGroupConstraint *midgard_group_constraint_new(const gchar *type); void midgard_group_constraint_add_constraint( MidgardGroupConstraint *group, MidgardCoreQueryConstraint *constraint); #endif midgard2-core-10.05.7.1/src/midgard_type.c0000664000175000017500000002021611772046240014774 00000000000000/* * Copyright (C) 2005 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_type.h" #include #include #include /* MIDGARD_TYPE_LONGTEXT */ /* Copied from glib's gvaluetypes */ static void _init_string (GValue *value) { value->data[0].v_pointer = NULL; } static void _free_string (GValue *value) { if (!(value->data[1].v_uint & G_VALUE_NOCOPY_CONTENTS)) g_free (value->data[0].v_pointer); } static void _copy_string (const GValue *src_value, GValue *dest_value) { dest_value->data[0].v_pointer = g_strdup (src_value->data[0].v_pointer); } static gpointer _peek_pointer0 (const GValue *value) { return value->data[0].v_pointer; } static gchar* _collect_string (GValue *value, guint n_collect_values, GTypeCValue *collect_values, guint collect_flags) { if (!collect_values[0].v_pointer) value->data[0].v_pointer = NULL; else if (collect_flags & G_VALUE_NOCOPY_CONTENTS){ value->data[0].v_pointer = collect_values[0].v_pointer; value->data[1].v_uint = G_VALUE_NOCOPY_CONTENTS; } else value->data[0].v_pointer = g_strdup (collect_values[0].v_pointer); return NULL; } static gchar* _lcopy_string (const GValue *value, guint n_collect_values, GTypeCValue *collect_values, guint collect_flags) { gchar **string_p = collect_values[0].v_pointer; if (!string_p) return g_strdup_printf ("value location for `%s' passed as NULL", G_VALUE_TYPE_NAME (value)); if (!value->data[0].v_pointer) *string_p = NULL; else if (collect_flags & G_VALUE_NOCOPY_CONTENTS) *string_p = value->data[0].v_pointer; else *string_p = g_strdup (value->data[0].v_pointer); return NULL; } /* Register midgard_longtext fundamental type */ GType midgard_longtext_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeValueTable value_table = { _init_string, /* value_init */ _free_string, /* value_free */ _copy_string, /* value_copy */ _peek_pointer0, /* value_peek_pointer */ "p", /* collect_format */ _collect_string, /* collect_value */ "p", /* lcopy_format */ _lcopy_string, /* lcopy_value */ }; static const GTypeInfo info = { 0, /* class_size */ NULL, /* base_init */ NULL, /* base_destroy */ NULL, /* class_init */ NULL, /* class_destroy */ NULL, /* class_data */ 0, /* instance_size */ 0, /* n_preallocs */ NULL, /* instance_init */ &value_table /* value_table */ }; static const GTypeFundamentalInfo finfo = { G_TYPE_FLAG_DERIVABLE }; type = g_type_register_fundamental( g_type_fundamental_next(), "MidgardLongtext", &info, &finfo, 0); } return type; } /* MIDGARD_TYPE_PARAM_LONGTEXT */ struct _MidgardParamSpecLongtext { GParamSpec parent_instance; gchar *default_value; gchar *cset_first; gchar *cset_nth; gchar substitutor; guint null_fold_if_empty : 1; guint ensure_non_null : 1; }; static void _param_string_init (GParamSpec *pspec) { MidgardParamSpecLongtext *ltspec = MGD_PARAM_SPEC_LONGTEXT (pspec); ltspec->default_value = NULL; ltspec->cset_first = NULL; ltspec->cset_nth = NULL; ltspec->substitutor = '_'; ltspec->null_fold_if_empty = FALSE; ltspec->ensure_non_null = FALSE; } static void _param_string_finalize (GParamSpec *pspec) { MidgardParamSpecLongtext *ltspec = MGD_PARAM_SPEC_LONGTEXT (pspec); GParamSpecClass *parent_class = g_type_class_peek (g_type_parent (MGD_TYPE_PARAM_LONGTEXT)); g_free (ltspec->default_value); g_free (ltspec->cset_first); g_free (ltspec->cset_nth); ltspec->default_value = NULL; ltspec->cset_first = NULL; ltspec->cset_nth = NULL; parent_class->finalize (pspec); } static void _param_string_set_default (GParamSpec *pspec, GValue *value) { value->data[0].v_pointer = g_strdup (MGD_PARAM_SPEC_LONGTEXT (pspec)->default_value); } static gboolean _param_string_validate (GParamSpec *pspec, GValue *value) { MidgardParamSpecLongtext *ltspec = MGD_PARAM_SPEC_LONGTEXT (pspec); gchar *string = value->data[0].v_pointer; guint changed = 0; if (string && string[0]){ gchar *s; if (ltspec->cset_first && !strchr (ltspec->cset_first, string[0])){ string[0] = ltspec->substitutor; changed++; } if (ltspec->cset_nth) for (s = string + 1; *s; s++) if (!strchr (ltspec->cset_nth, *s)) { *s = ltspec->substitutor; changed++; } } if (ltspec->null_fold_if_empty && string && string[0] == 0){ g_free (value->data[0].v_pointer); value->data[0].v_pointer = NULL; changed++; string = value->data[0].v_pointer; } if (ltspec->ensure_non_null && !string){ value->data[0].v_pointer = g_strdup (""); changed++; // string = value->data[0].v_pointer; } return changed; } static gint _param_string_values_cmp (GParamSpec *pspec, const GValue *value1, const GValue *value2) { if (!value1->data[0].v_pointer) return value2->data[0].v_pointer != NULL ? -1 : 0; else if (!value2->data[0].v_pointer) return value1->data[0].v_pointer != NULL; else return strcmp (value1->data[0].v_pointer, value2->data[0].v_pointer); } /* Register midgard_longtext paramspec */ GType midgard_param_longtext_get_type(void) { static GType type = 0; if (type == 0) { { const GParamSpecTypeInfo pspec_info = { sizeof (MidgardParamSpecLongtext), /* instance_size */ 16, /* n_preallocs */ _param_string_init, /* instance_init */ MGD_TYPE_LONGTEXT, /* value_type */ _param_string_finalize, /* finalize */ _param_string_set_default, /* value_set_default */ _param_string_validate, /* value_validate */ _param_string_values_cmp, /* values_cmp */ }; type = g_param_type_register_static ("MidgardParamLongtext", &pspec_info); } } return type; } /* Register MGD_TYPE_GUID type */ GType midgard_guid_get_type(void) { static GType type = 0; if(type == 0) { GTypeInfo info = { 0, /* class size */ NULL, /* base_init */ NULL, /* base_finalize */ NULL, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static(G_TYPE_STRING, "MidgardGuid", &info, 0); } return type; } midgard2-core-10.05.7.1/src/midgard_user.h0000664000175000017500000000740411772046240015002 00000000000000/* * Copyright (C) 2007, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_USER_H #define MIDGARD_USER_H #include #include "midgard_dbobject.h" #include "midgard_object.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_USER (midgard_user_get_type()) #define MIDGARD_USER(object) \ (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_USER, MidgardUser)) #define MIDGARD_USER_CLASS(klass) \ (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_USER, MidgardUserClass)) #define MIDGARD_IS_USER(object) \ (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_USER)) #define MIDGARD_IS_USER_CLASS(klass) \ (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_USER)) #define MIDGARD_USER_GET_CLASS(obj) \ (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_USER, MidgardUserClass)) typedef struct _MidgardUserClass MidgardUserClass; typedef struct _MidgardUserPrivate MidgardUserPrivate; struct _MidgardUserClass{ MidgardDBObjectClass parent; /* methods */ const MidgardConnection *(*get_connection) (MidgardDBObject *); /* API methods */ MidgardObject *(*get_person) (MidgardUser *self); gboolean (*log_in) (MidgardUser *self); gboolean (*log_out) (MidgardUser *self); MidgardUser *(*get) (MidgardConnection *mgd, guint n_params, const GParameter *parameters); MidgardUser **(*query) (MidgardConnection *mgd, guint n_params, const GParameter *parameters); gboolean (*create) (MidgardUser *self); gboolean (*update) (MidgardUser *self); gboolean (*delete_record) (MidgardUser *self); gboolean (*is_user) (MidgardUser *self); gboolean (*is_admin) (MidgardUser *self); }; struct _MidgardUser{ MidgardDBObject parent; /* < private > */ MidgardUserPrivate *priv; /* MidgardMetadata *metadata; */ }; #define MIDGARD_USER_TYPE_NONE 0 #define MIDGARD_USER_TYPE_USER 1 #define MIDGARD_USER_TYPE_ADMIN 2 GType midgard_user_get_type(void); MidgardUser *midgard_user_new (MidgardConnection *mgd, guint n_params, const GParameter *parameters); MidgardUser *midgard_user_get (MidgardConnection *mgd, guint n_params, const GParameter *parameters); MidgardUser *midgard_user_quick_login (MidgardConnection *mgd, const gchar *login, const gchar *password); MidgardUser **midgard_user_query (MidgardConnection *mgd, guint n_params, const GParameter *parameters); gboolean midgard_user_create (MidgardUser *self); gboolean midgard_user_update (MidgardUser *self); gboolean midgard_user_delete (MidgardUser *self); gboolean midgard_user_is_user (MidgardUser *self); gboolean midgard_user_is_admin (MidgardUser *self); MidgardObject *midgard_user_get_person (MidgardUser *self); gboolean midgard_user_set_person (MidgardUser *self, MidgardObject *person); gboolean midgard_user_log_in (MidgardUser *self); gboolean midgard_user_log_out (MidgardUser *self); /* Deprecated */ gboolean midgard_user_set_active (MidgardUser *user, gboolean flag); G_END_DECLS #endif /* MIDGARD_USER_H */ midgard2-core-10.05.7.1/src/midgard_core_schema.c0000664000175000017500000004711511772046240016272 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_core_object.h" #include "schema.h" #include "midgard_base_abstract.h" typedef struct { GString *string; guint elts; MgdSchemaTypeAttr *type; }_str_cont; static GHashTable *__copy_hash_table_with_strings(GHashTable *src); MgdSchemaPropertyAttr * midgard_core_schema_type_property_attr_new_empty (void) { MgdSchemaPropertyAttr *prop = g_new(MgdSchemaPropertyAttr, 1); /* Ensure, default type is string */ prop->gtype = G_TYPE_NONE; prop->type = NULL; prop->name = NULL; prop->default_value = NULL; prop->dbtype = NULL; prop->field = NULL; prop->dbindex = FALSE; prop->table = NULL; prop->tablefield = NULL; prop->upfield = NULL; prop->parentfield = NULL; prop->primaryfield = NULL; prop->link = NULL; prop->link_target = NULL; prop->is_primary = FALSE; prop->is_reversed = FALSE; prop->is_link = FALSE; prop->is_linked = FALSE; prop->is_private = FALSE; prop->is_unique = FALSE; prop->description = NULL; prop->user_values = NULL; prop->derived = NULL; return prop; } MgdSchemaPropertyAttr * midgard_core_schema_type_property_attr_new (void) { MgdSchemaPropertyAttr *prop = midgard_core_schema_type_property_attr_new_empty(); /* Ensure, default type is string */ prop->gtype = G_TYPE_STRING; prop->type = g_strdup ("string"); prop->description = g_strdup (""); prop->user_values = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, g_free); return prop; } void midgard_core_schema_type_property_copy (MgdSchemaPropertyAttr *src_prop, MgdSchemaTypeAttr *dest_type) { g_assert (src_prop != NULL); g_assert (dest_type != NULL); MgdSchemaPropertyAttr *prop = midgard_core_schema_type_property_attr_new (); prop->gtype = src_prop->gtype; g_free ((gchar *)prop->type); /* Explicitly free, it's initialized as new empty string by default */ prop->type = g_strdup(src_prop->type); prop->name = src_prop->name ? g_strdup(src_prop->name) : NULL; if (src_prop->default_value) { prop->default_value = g_new0(GValue, 1); g_value_init(prop->default_value, G_VALUE_TYPE(src_prop->default_value)); g_value_copy(src_prop->default_value, prop->default_value); } prop->dbtype = src_prop->dbtype ? g_strdup(src_prop->dbtype) : NULL; prop->field = src_prop->field ? g_strdup(src_prop->field) : NULL; prop->dbindex = src_prop->dbindex; prop->table = src_prop->table ? g_strdup(src_prop->table) : NULL; prop->tablefield = src_prop->tablefield ? g_strdup(src_prop->tablefield) : NULL; prop->upfield = src_prop->upfield ? g_strdup(src_prop->upfield) : NULL; prop->parentfield = src_prop->parentfield ? g_strdup(src_prop->parentfield) : NULL; prop->primaryfield = src_prop->primaryfield ? g_strdup(src_prop->primaryfield) : NULL; prop->link = src_prop->link ? g_strdup(src_prop->link) : NULL; prop->link_target = src_prop->link_target ? g_strdup(src_prop->link_target) : NULL; prop->is_primary = src_prop->is_primary; prop->is_reversed = src_prop->is_reversed; prop->is_link = src_prop->is_link; prop->is_linked = src_prop->is_linked; g_free (prop->description); /* Explicitly free, it's initialized with new empty string by default */ prop->description = g_strdup(src_prop->description); g_hash_table_destroy (prop->user_values); prop->user_values = __copy_hash_table_with_strings(src_prop->user_values); g_hash_table_insert(dest_type->prophash, g_strdup(prop->name), prop); } void midgard_core_schema_type_property_attr_free (MgdSchemaPropertyAttr *prop) { g_assert (prop != NULL); g_free ((gchar *)prop->type); prop->type = NULL; g_free ((gchar *)prop->dbtype); prop->dbtype = NULL; g_free ((gchar *)prop->name); prop->name = NULL; g_free ((gchar *)prop->field); prop->field = NULL; g_free ((gchar *)prop->table); prop->table = NULL; g_free ((gchar *)prop->tablefield); prop->tablefield = NULL; g_free ((gchar *)prop->upfield); prop->upfield = NULL; g_free ((gchar *)prop->parentfield); prop->parentfield = NULL; g_free ((gchar *)prop->primaryfield); prop->primaryfield = NULL; g_free ((gchar *)prop->link); prop->link = NULL; g_free ((gchar *)prop->link_target); prop->link_target = NULL; g_free ((gchar *)prop->description); prop->description = NULL; g_hash_table_destroy(prop->user_values); prop->user_values = NULL; prop->derived = NULL; g_free (prop); prop = NULL; } MgdSchemaTypeAttr * midgard_core_schema_type_attr_new (void) { MgdSchemaTypeAttr *type = g_new (MgdSchemaTypeAttr, 1); type->name = NULL; type->base_index = 0; type->num_properties = 0; type->class_nprop = 0; type->params = NULL; type->properties = NULL; type->table = NULL; type->view_table = NULL; type->parentfield = NULL; type->upfield = NULL; type->primaryfield = NULL; type->parent = NULL; type->primary = NULL; type->property_up = NULL; type->property_parent = NULL; type->tables = NULL; type->tableshash = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, NULL); type->prophash = g_hash_table_new (g_str_hash, g_str_equal); type->_properties_list = NULL; type->children = NULL; type->unique_name = NULL; type->sql_select_full = NULL; type->copy_from = NULL; type->extends = NULL; type->joins = NULL; type->constraints = NULL; type->is_view = FALSE; type->sql_create_view = NULL; type->metadata_class_name = NULL; type->metadata_class_ptr = NULL; type->user_values = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, g_free); type->is_abstract = FALSE; type->is_iface = FALSE; type->is_mixin = FALSE; type->schema = NULL; return type; } gchar ** midgard_core_schema_type_list_extends (MgdSchemaTypeAttr *type_attr, guint *n_types) { g_assert (type_attr != NULL); *n_types = 0; if (type_attr->extends == NULL) return NULL; guint i = 0; gchar **tmp = g_strsplit (type_attr->extends, ",", 0); while (tmp[i] != NULL) { g_strstrip (tmp[i]); i++; *n_types = i; } gchar **extends = g_new (gchar*, i+1); i = 0; while (tmp[i] != NULL) { extends[i] = tmp[i]; i++; } extends[i] = NULL; g_free (tmp); return extends; } void midgard_core_schema_type_attr_extend (MgdSchemaTypeAttr *src, MgdSchemaTypeAttr *dst) { g_return_if_fail (src != NULL); g_return_if_fail (dst != NULL); /* PARENT FIELD */ if (src->parentfield) { g_free (dst->parentfield); dst->parentfield = g_strdup (src->parentfield); } /* UP FIELD */ if (src->upfield) { g_free (dst->upfield); dst->upfield = g_strdup (src->upfield); } /* PARENT */ if (src->parent) { g_free ((gchar *)dst->parent); dst->parent = g_strdup (src->parent); } /* PRIMARY */ if (src->primary) { g_free ((gchar *)dst->primary); dst->primary = g_strdup (src->primary); } /* PRIMARY FIELD */ if (src->primaryfield) { g_free ((gchar *)dst->primaryfield); dst->primaryfield = g_strdup (src->primaryfield); } /* PROPERTY UP */ if (src->property_up) { g_free ((gchar *)dst->property_up); dst->property_up = g_strdup (src->property_up); } /* PROPERTY PARENT */ if (src->property_parent) { g_free ((gchar *)dst->property_parent); dst->property_parent = g_strdup (src->property_parent); } if (src->children) { GSList *children; for (children = src->children; children != NULL; children = children->next) { dst->children = g_slist_append (dst->children, g_strdup ((gchar *) children->data)); } } /* UNIQUE NAME */ if (src->unique_name) { g_free ((gchar *)dst->unique_name); dst->unique_name = g_strdup (src->unique_name); } /* METADATA */ if (src->metadata_class_name) { g_free ((gchar *)dst->metadata_class_name); dst->metadata_class_name = g_strdup (src->metadata_class_name); dst->metadata_class_ptr = src->metadata_class_ptr; } } void _destroy_property_hash (gpointer key, gpointer value, gpointer userdata) { MgdSchemaPropertyAttr *prop = (MgdSchemaPropertyAttr *) value; gchar *name = (gchar *) key; if(prop) midgard_core_schema_type_property_attr_free (prop); if(name) { g_free (name); name = NULL; } } void midgard_core_schema_type_attr_free (MgdSchemaTypeAttr *type) { g_assert (type != NULL); g_free (type->name); type->name = NULL; g_free ((gchar *)type->table); type->table = NULL; g_free ((gchar *)type->view_table); type->view_table = NULL; g_free ((gchar *)type->tables); type->tables = NULL; g_free ((gchar *)type->parent); type->parent = NULL; g_free ((gchar *)type->primary); type->primary = NULL; g_free ((gchar *)type->property_up); type->property_up = NULL; g_free ((gchar *)type->property_parent); type->property_parent = NULL; g_hash_table_destroy(type->tableshash); type->tableshash = NULL; g_hash_table_foreach(type->prophash, _destroy_property_hash, NULL); g_hash_table_destroy(type->prophash); type->prophash = NULL; if (type->_properties_list) g_slist_free (type->_properties_list); type->_properties_list = NULL; g_free (type->sql_select_full); g_free (type->parentfield); g_free (type->upfield); g_free (type->primaryfield); g_free (type->params); g_free (type->properties); g_free ((gchar *)type->unique_name); if (type->joins != NULL) { g_slist_free(type->joins); type->joins = NULL; } if (type->constraints != NULL) { g_slist_free(type->constraints); type->constraints = NULL; } g_free (type->sql_create_view); type->sql_create_view = NULL; g_free (type->metadata_class_name); type->metadata_class_name = NULL; g_hash_table_destroy (type->user_values); type->user_values = NULL; type->is_iface = FALSE; type->is_mixin = FALSE; type->is_abstract = FALSE; type->schema = NULL; g_free (type); type = NULL; } static void __copy_hash_table_keys (gpointer key, gpointer value, gpointer userdata) { gchar *k = (gchar *)key; gchar *v = (gchar *)value; GHashTable *table = (GHashTable *)userdata; g_hash_table_insert (table, g_strdup(k), g_strdup(v)); } static GHashTable* __copy_hash_table_with_strings (GHashTable *src) { GHashTable *dest = g_hash_table_new_full (g_str_hash, g_str_equal, g_free, g_free); g_hash_table_foreach (src, __copy_hash_table_keys, dest); return dest; } void midgard_core_schema_type_set_table (MgdSchemaTypeAttr *type, const gchar *table) { g_assert (type != NULL); g_assert (table != NULL); if (type->table != NULL) return; type->table = g_strdup ((gchar *)table); midgard_core_schema_type_add_table (type, table); } static void __build_tables_static_string (gpointer key, gpointer val, gpointer userdata) { _str_cont *_cont = (_str_cont *) userdata; gchar *table = (gchar *) key; if(_cont->elts == 0) g_string_append_printf (_cont->string, "%s", table); else g_string_append_printf (_cont->string, ", %s", table); _cont->elts++; } void midgard_core_schema_type_add_table (MgdSchemaTypeAttr *type, const gchar *table) { g_assert (type != NULL); g_assert (table != NULL); if (type->tableshash == NULL) return; g_hash_table_insert (type->tableshash, g_strdup(table), NULL); GString *_sql = g_string_new (""); _str_cont *cont = g_new (_str_cont, 1); cont->string = _sql; cont->elts = 0; g_hash_table_foreach (type->tableshash, __build_tables_static_string, cont); g_free ((gchar *)type->tables); type->tables = g_strdup (_sql->str); g_string_free (_sql, TRUE); g_free (cont); } void midgard_core_schema_type_initialize_paramspec (MgdSchemaTypeAttr *type) { g_assert (type != NULL); GHashTable *hash = type->prophash; if (hash == NULL) return; guint n = g_hash_table_size(hash); guint m = n+1; if (n < 1) { g_debug ("Initializing '%s' type without properties", type->name); return; } type->params = g_new(GParamSpec*, m); GSList *list = NULL; gchar *property = NULL; MgdSchemaPropertyAttr *prop_attr = NULL; /* FIXME, This is pure workaround. Valid properties with inheritance chain is needed */ /* We use _properties_list because GHashTable iterator or g_hash_table_foreach * create paramspec not in the same order we declared them in MgdSchema file. */ for (list = type->_properties_list; list != NULL; list = list->next) { property = (gchar *) list->data; prop_attr = g_hash_table_lookup (hash, (gpointer) property); if (prop_attr == NULL) { g_warning("Missed property information (property: %s.%s)", type->name, property); return; } guint n = ++type->num_properties; GParamSpec **params = type->params; GType ptype = prop_attr->gtype; gchar *nick = ""; if (ptype == MGD_TYPE_STRING) { params[n-1] = g_param_spec_string( property, nick, prop_attr->description, "", G_PARAM_READWRITE); } else if (ptype == MGD_TYPE_TIMESTAMP) { params[n-1] = g_param_spec_boxed( property, nick, prop_attr->description, MGD_TYPE_TIMESTAMP, G_PARAM_READWRITE); } else if (ptype == MGD_TYPE_UINT) { params[n-1] = g_param_spec_uint( property, nick, prop_attr->description, 0, G_MAXUINT32, 0, G_PARAM_READWRITE); } else if (ptype == MGD_TYPE_INT) { params[n-1] = g_param_spec_int( property, nick, prop_attr->description, G_MININT32, G_MAXINT32, 0, G_PARAM_READWRITE); } else if (ptype == MGD_TYPE_FLOAT) { params[n-1] = g_param_spec_float( property, nick, prop_attr->description, -G_MAXFLOAT, G_MAXFLOAT, 0, G_PARAM_READWRITE); } else if (ptype == MGD_TYPE_BOOLEAN) { params[n-1] = g_param_spec_boolean( property, nick, prop_attr->description, FALSE, G_PARAM_READWRITE); } else { params[n-1] = g_param_spec_string( property, nick, prop_attr->description, "", G_PARAM_READWRITE); } } } void midgard_core_schema_type_property_set_table (MgdSchemaPropertyAttr *prop, const gchar *table) { g_assert (prop != NULL); g_assert (table != NULL); if (prop->table != NULL) return; prop->table = g_strdup((gchar *)table); } void midgard_core_schema_type_property_set_tablefield (MgdSchemaPropertyAttr *prop, const gchar *table, const gchar *field) { g_assert (prop != NULL); g_assert (table != NULL); g_assert (field != NULL); /* in case there are two attributes of which one takes precedence */ /* FIXME, we shouldn't allow this, but it's kept for safety reason */ if (prop->tablefield != NULL) g_free ((gchar *)prop->tablefield); gchar *_table = g_strdup (table); gchar *_field = g_ascii_strdown (field, -1); if (prop->table) g_free ( (gchar *)prop->table); prop->table = g_strdup(_table); /* Set table implicitly */ midgard_core_schema_type_property_set_table(prop, _table); /* Set field implicitly */ if (prop->field) g_free ( (gchar *)prop->field); prop->field = g_strdup(_field); prop->tablefield = g_strjoin(".", _table, _field, NULL); g_free (_table); g_free (_field); } GType midgard_core_schema_gtype_from_string(const gchar *type) { if (!type) return G_TYPE_NONE; if(g_str_equal(type, "string")) return MGD_TYPE_STRING; if(g_str_equal(type, "integer")) return MGD_TYPE_INT; if(g_str_equal(type, "unsigned integer")) return MGD_TYPE_UINT; if(g_str_equal(type, "float")) return MGD_TYPE_FLOAT; /* FIXME, change to MGD_TYPE_DOUBLE once mgdschema supports it */ if(g_str_equal(type, "double")) return MGD_TYPE_FLOAT; if(g_str_equal(type, "boolean")) return MGD_TYPE_BOOLEAN; if(g_str_equal(type, "bool")) return MGD_TYPE_BOOLEAN; if(g_str_equal(type, "datetime")) return MGD_TYPE_TIMESTAMP; if(g_str_equal(type, "longtext")) return MGD_TYPE_LONGTEXT; if(g_str_equal(type, "text")) return MGD_TYPE_LONGTEXT; if(g_str_equal(type, "guid")) return MGD_TYPE_GUID; return G_TYPE_NONE; } void midgard_core_schema_type_property_set_gtype (MgdSchemaPropertyAttr *prop, const gchar *type) { g_assert (prop != NULL); g_assert (type != NULL); if (prop->type != NULL) g_free ((gchar *)prop->type); prop->type = g_strdup((gchar *)type); prop->gtype = midgard_core_schema_gtype_from_string(type); } static void __build_static_sql(gpointer key, gpointer val, gpointer userdata) { _str_cont *_cont = (_str_cont *) userdata; gchar *property = (gchar *) key; MgdSchemaPropertyAttr *prop_attr = (MgdSchemaPropertyAttr *)val; MgdSchemaTypeAttr *type = _cont->type; /* Check if property attributes are correct */ /* Set missed table and tablefield */ if (prop_attr->table == NULL) { midgard_core_schema_type_property_set_tablefield(prop_attr, type->table, prop_attr->field); } /* upfield defined, set tablefield */ if (prop_attr->upfield != NULL) midgard_core_schema_type_property_set_tablefield(prop_attr, prop_attr->table, prop_attr->upfield); /* parentfield defined, set tablefield */ if (prop_attr->parentfield != NULL) midgard_core_schema_type_property_set_tablefield(prop_attr, prop_attr->table, prop_attr->parentfield); if(_cont->elts == 0) g_string_append_printf(_cont->string, "%s AS %s", (gchar *)prop_attr->tablefield, property); else g_string_append_printf(_cont->string, ", %s AS %s", (gchar *)prop_attr->tablefield, property); _cont->elts++; } void midgard_core_schema_type_build_static_sql (MgdSchemaTypeAttr *type_attr) { g_assert (type_attr != NULL); if (type_attr->prophash == NULL || type_attr->table == NULL) return; GString *_sql = g_string_new(" "); _str_cont cont = {NULL, 0, NULL}; cont.string = _sql; cont.elts = 0; cont.type = type_attr; g_hash_table_foreach (type_attr->prophash, __build_static_sql, &cont); if (_sql->str == NULL) return; g_string_free (_sql, TRUE); /* type_attr->sql_select_full = g_string_free (_sql, FALSE); */ } static void __field_is_equal(gpointer key, gpointer val, gpointer userdata) { MgdSchemaPropertyAttr *prop_attr = (MgdSchemaPropertyAttr *)val; MgdSchemaPropertyAttr *src_prop = (MgdSchemaPropertyAttr *)userdata; if (!g_str_equal (prop_attr->name, src_prop->name)) { if (prop_attr->tablefield == NULL || src_prop->tablefield == NULL) return; if (g_str_equal (prop_attr->tablefield, src_prop->tablefield)) { g_warning ("Field %s redefined for %s and %s", prop_attr->tablefield, prop_attr->name, src_prop->name); g_error ("Table columns collision"); } } } static void __check_field_duplicates(gpointer key, gpointer val, gpointer userdata) { MgdSchemaPropertyAttr *prop_attr = (MgdSchemaPropertyAttr *)val; MgdSchemaTypeAttr *type = (MgdSchemaTypeAttr *)userdata; g_hash_table_foreach (type->prophash, __field_is_equal, prop_attr); } void midgard_core_schema_type_validate_fields (MgdSchemaTypeAttr *type) { g_assert (type != NULL); if (type->table == NULL) return; g_hash_table_foreach (type->prophash, __check_field_duplicates, type); } MgdSchemaPropertyAttr* midgard_core_schema_type_property_lookup (MgdSchemaTypeAttr *type, const gchar *name) { g_return_val_if_fail (type != NULL, NULL); g_return_val_if_fail (name != NULL, NULL); if (!type->prophash) return NULL; return g_hash_table_lookup (type->prophash, name); } GType midgard_core_schema_register_type (MgdSchemaTypeAttr *type_attr) { GType new_type; if (type_attr->is_abstract) { new_type = midgard_type_register_abstract (type_attr, MIDGARD_TYPE_BASE_ABSTRACT); } else if (type_attr->is_mixin || type_attr->is_iface) { new_type = midgard_core_type_register_interface (type_attr); } else { new_type = midgard_type_register(type_attr); } return new_type; } midgard2-core-10.05.7.1/src/midgard_config.h0000664000175000017500000001307411772046240015271 00000000000000/* * Copyright (C) 2006, 2008 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_CONFIG_H #define MIDGARD_CONFIG_H #include "midgard_type.h" #include "midgard_defs.h" /* convention macros */ #define MIDGARD_TYPE_CONFIG (midgard_config_get_type()) #define MIDGARD_CONFIG(object) \ (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_CONFIG, MidgardConfig)) #define MIDGARD_CONFIG_CLASS(klass) \ (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_CONFIG, MidgardConfigClass)) #define MIDGARD_IS_CONFIG(object) \ (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_CONFIG)) #define MIDGARD_IS_CONFIG_CLASS(klass) \ (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_CONFIG)) #define MIDGARD_CONFIG_GET_CLASS(obj) \ (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_CONFIG, MidgardConfigClass)) typedef struct MidgardConfig MidgardConfig; typedef struct MidgardConfigClass MidgardConfigClass; typedef struct _MidgardConfigPrivate MidgardConfigPrivate; struct MidgardConfig{ GObject parent; /* MidgardDatabase */ gchar *dbtype; gchar *host; guint dbport; gchar *database; gchar *dbdir; gchar *dbuser; gchar *dbpass; gchar *logfilename; gchar *loglevel; gboolean tablecreate; gboolean tableupdate; FILE *logfile; GIOChannel *log_channel; gchar *mgdusername; gchar *mgdpassword; gboolean testunit; guint loghandler; gchar *authtype; gchar *pamfile; gboolean gdathreads; /* MidgardDir */ gchar *blobdir; gchar *sharedir; gchar *vardir; gchar *cachedir; /* < private > */ gchar *confdir; gchar *schemadir; gchar *viewsdir; MidgardConfigPrivate *priv; }; struct MidgardConfigClass{ GObjectClass parent; }; GType midgard_config_get_type(void); MidgardConfig *midgard_config_new (void); gboolean midgard_config_read_file (MidgardConfig *self, const gchar *filename, gboolean user, GError **error); gboolean midgard_config_read_file_at_path (MidgardConfig *self, const gchar *filepath, GError **error); gboolean midgard_config_save_file_at_path (MidgardConfig *self, const gchar *filepath, GError **error); gboolean midgard_config_read_data (MidgardConfig *self, const gchar *data, GError **error); gchar **midgard_config_list_files (gboolean user); gboolean midgard_config_save_file (MidgardConfig *self, const gchar *name, gboolean user, GError **error); gboolean midgard_config_create_blobdir (MidgardConfig *self); MidgardConfig *midgard_config_copy (MidgardConfig *self); /* API helpers, getters */ const gchar *midgard_config_get_database_name(MidgardConfig *self); const gchar *midgard_config_get_database_type(MidgardConfig *self); const gchar *midgard_config_get_database_username(MidgardConfig *self); const gchar *midgard_config_get_database_password(MidgardConfig *self); const gchar *midgard_config_get_database_host(MidgardConfig *self); guint midgard_config_get_database_port(MidgardConfig *self); const gchar *midgard_config_get_blobdir(MidgardConfig *self); const gchar *midgard_config_get_logfile(MidgardConfig *self); const gchar *midgard_config_get_loglevel(MidgardConfig *self); gboolean midgard_config_get_table_create(MidgardConfig *self); gboolean midgard_config_get_table_update(MidgardConfig *self); gboolean midgard_config_get_testunit(MidgardConfig *self); const gchar *midgard_config_get_midgard_username(MidgardConfig *self); const gchar *midgard_config_get_midgard_password(MidgardConfig *self); const gchar *midgard_config_get_authtype(MidgardConfig *self); const gchar *midgard_config_get_pamfile(MidgardConfig *self); const gchar *midgard_config_get_schema_dir(MidgardConfig *self); /* setters */ void midgard_config_set_database_name(MidgardConfig *self, const gchar *name); void midgard_config_set_database_type(MidgardConfig *self, const gchar *type); void midgard_config_set_database_username(MidgardConfig *self, const gchar *username); void midgard_config_set_database_password(MidgardConfig *self, const gchar *password); void midgard_config_set_database_host(MidgardConfig *self, const gchar *host); void midgard_config_set_database_port(MidgardConfig *self, guint port); void midgard_config_set_blobdir(MidgardConfig *self, const gchar *blobdir); void midgard_config_set_logfile(MidgardConfig *self, const gchar *logfile); void midgard_config_set_loglevel(MidgardConfig *self, const gchar *loglevel); void midgard_config_set_table_create(MidgardConfig *self, gboolean toggle); void midgard_config_set_table_update(MidgardConfig *self, gboolean toggle); void midgard_config_set_testunit(MidgardConfig *self, gboolean toggle); void midgard_config_set_midgard_username(MidgardConfig *self, const gchar *username); void midgard_config_set_midgard_password(MidgardConfig *self, const gchar *password); void midgard_config_set_authtype(MidgardConfig *self, const gchar *authtype); void midgard_config_set_pamfile(MidgardConfig *self, const gchar *pamfile); void midgard_config_set_schema_dir(MidgardConfig *self, const gchar *dir); #endif /* MIDGARD_CONFIG_H */ midgard2-core-10.05.7.1/src/midgard_query_select.c0000664000175000017500000011025011772046240016515 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_select.h" #include "midgard_core_query.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" #include "midgard_query_holder.h" #include "midgard_dbobject.h" #include "midgard_validable.h" #include "midgard_executable.h" #include #include "midgard_core_workspace.h" #include "midgard_workspace_storage.h" #include "midgard_core_config.h" /** * midgard_query_select_new: * @mgd: #MidgardConnection instance * @storage: #MidgardStorage instance * * #MidgardStorage @storage represents storage which is queried during execution * * By default, for performance reason, MidgardQuerySelect is instantiated in read only mode. * See: midgard_query_select_toggle_read_only(). * * Returns: new #MidgardQuerySelect instance or %NULL on failure * Since: 10.05 */ MidgardQuerySelect * midgard_query_select_new (MidgardConnection *mgd, MidgardQueryStorage *storage) { g_return_val_if_fail (mgd != NULL, NULL); g_return_val_if_fail (storage != NULL, NULL); MidgardQuerySelect *self = g_object_new (MIDGARD_TYPE_QUERY_SELECT, "connection", mgd, "storage", storage, NULL); return self; } gboolean _midgard_query_select_set_constraint (MidgardQueryExecutor *self, MidgardQueryConstraintSimple *constraint) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (constraint != NULL, FALSE); if (self->priv->constraint) g_object_unref (self->priv->constraint); self->priv->constraint = g_object_ref (constraint); return TRUE; } gboolean _midgard_query_select_set_limit (MidgardQueryExecutor *self, guint limit) { g_return_val_if_fail (self != NULL, FALSE); self->priv->limit = limit; return TRUE; } gboolean _midgard_query_select_set_offset (MidgardQueryExecutor *self, guint offset) { g_return_val_if_fail (self != NULL, FALSE); self->priv->offset = offset; return TRUE; } typedef struct { MidgardQueryProperty *property; gboolean asc; gchar *order_type; } qso; gboolean _midgard_query_select_add_order (MidgardQueryExecutor *self, MidgardQueryHolder *holder, const gchar *type) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (holder != NULL, FALSE); qso *_qs = g_new (qso, 1); _qs->order_type = g_strdup (type); _qs->asc = FALSE; _qs->property = g_object_ref (holder); self->priv->orders = g_slist_append (self->priv->orders, _qs); return FALSE; } static struct { const gchar *name; GdaSqlSelectJoinType type; } valid_joins[] = { { "cross", GDA_SQL_SELECT_JOIN_CROSS }, { "natural", GDA_SQL_SELECT_JOIN_NATURAL }, { "inner", GDA_SQL_SELECT_JOIN_INNER }, { "left", GDA_SQL_SELECT_JOIN_LEFT }, { "right", GDA_SQL_SELECT_JOIN_RIGHT }, { "full", GDA_SQL_SELECT_JOIN_FULL }, { NULL,0 } }; gboolean __query_join_type_is_valid(const gchar *type, GdaSqlSelectJoinType *join_type) { guint i; gchar *ltype = g_ascii_strdown (type, -1); for (i = 0; valid_joins[i].name != NULL; i++) { if (g_str_equal(ltype, valid_joins[i].name)) { *join_type = valid_joins[i].type; g_free (ltype); return TRUE; } } g_free (ltype); if (valid_joins[i].name == NULL) { g_warning("Invalid join type %s", type); return FALSE; } return TRUE; } typedef struct { MidgardQueryProperty *left_property; MidgardQueryProperty *right_property; GdaSqlSelectJoinType join_type; } qsj; gboolean _midgard_query_select_add_join (MidgardQueryExecutor *self, const gchar *join_type, MidgardQueryProperty *left_property, MidgardQueryProperty *right_property) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (join_type != NULL, FALSE); g_return_val_if_fail (left_property != NULL, FALSE); g_return_val_if_fail (right_property != NULL, FALSE); /* validate join type */ GdaSqlSelectJoinType join_type_id; if (!__query_join_type_is_valid (join_type, &join_type_id)) return FALSE; /* MidgardQueryStorage *left_storage = left_property->priv->storage; */ MidgardQueryStorage *right_storage = right_property->priv->storage; /* We can not join the same table adding new implicit table alias */ if (!right_storage) { g_warning ("Can not add join. Right property storage is NULL. "); return FALSE; } qsj *_sj = g_new (qsj, 1); _sj->left_property = g_object_ref (left_property); _sj->right_property = g_object_ref (right_property); _sj->join_type = join_type_id; self->priv->joins = g_slist_append (self->priv->joins, _sj); return TRUE; } gboolean __query_select_add_orders (MidgardQueryExecutor *self, GError **error) { if (!self->priv->orders) return TRUE; GSList *l = NULL; MidgardQueryExecutor *executor = MIDGARD_QUERY_EXECUTOR (self); GdaSqlStatement *sql_stm = executor->priv->stmt; GdaSqlStatementSelect *select = (GdaSqlStatementSelect *) sql_stm->contents; GdaSqlSelectOrder *order; for (l = MIDGARD_QUERY_EXECUTOR (self)->priv->orders; l != NULL; l = l->next) { /* Proper asc type is set during validation phase */ qso *_so = (qso*) l->data; /* Create new order */ order = gda_sql_select_order_new (GDA_SQL_ANY_PART (select)); order->asc = _so->asc; MidgardQueryProperty *property = _so->property; MidgardQueryStorage *storage = NULL; if (property->priv && property->priv->storage) storage = property->priv->storage; /* Compute table.colname for given property name */ GValue rval = {0, }; midgard_query_holder_get_value (MIDGARD_QUERY_HOLDER (property), &rval); GError *err = NULL; gchar *table_field = midgard_core_query_compute_constraint_property (executor, storage, g_value_get_string (&rval), &err); if (err) { g_propagate_error (error, err); g_free (table_field); gda_sql_select_order_free (order); return FALSE; } if (!table_field) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_LOCATION_INVALID, "Can not find table and column name for given '%s' property name", g_value_get_string (&rval)); g_value_unset (&rval); return FALSE; } g_value_unset (&rval); GValue *value = g_new0 (GValue, 1); g_value_init (value, G_TYPE_STRING); g_value_take_string (value, table_field); /* Set order's expression and add new one to statement orders list */ GdaSqlExpr *expr = gda_sql_expr_new (GDA_SQL_ANY_PART (order)); expr->value = value; order->expr = expr; select->order_by = g_slist_append (select->order_by, order); } return TRUE; } #define __BOOL_VALUE(__bool)(__bool ? "0" : "FALSE") static void __add_implicit_workspace_join (MidgardQuerySelect *self, GdaSqlOperation *operation) { g_return_if_fail (self != NULL); MidgardDBObjectClass *klass = MIDGARD_QUERY_EXECUTOR (self)->priv->storage->priv->klass; if (!g_type_is_a (G_OBJECT_CLASS_TYPE (klass), MIDGARD_TYPE_OBJECT)) return; MidgardConnection *mgd = MIDGARD_QUERY_EXECUTOR (self)->priv->mgd; /* Do not take worskpace into account if if it's disabled * or enabled and none set */ if (!MGD_CNC_USES_WORKSPACE (mgd)) return; if (!MGD_CNC_HAS_WORKSPACE (mgd)) return; gboolean bool_is_int = MIDGARD_QUERY_EXECUTOR (self)->priv->bool_is_int; guint ws_id = MGD_CNC_WORKSPACE_ID (mgd); MidgardQueryExecutor *executor = MIDGARD_QUERY_EXECUTOR (self); GdaSqlStatement *sql_stm = executor->priv->stmt; GdaSqlStatementSelect *select = (GdaSqlStatementSelect *) sql_stm->contents; GdaSqlSelectFrom *from = select->from; GdaSqlSelectJoin *join; const gchar *klass_table = MGD_DBCLASS_TABLENAME (klass); gchar *left_table = executor->priv->table_alias; //gchar *right_table = g_strdup_printf ("t%d", ++executor->priv->tableid); gchar *right_table = g_strdup ("midgard_ws_tmp_table"); join = gda_sql_select_join_new (GDA_SQL_ANY_PART (from)); join->type = GDA_SQL_SELECT_JOIN_INNER; GdaSqlExpr *expr = gda_sql_expr_new (GDA_SQL_ANY_PART (join)); expr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (expr->value, g_strdup_printf ("%s.%s = %s.%s", left_table, MGD_WORKSPACE_ID_FIELD, right_table, MGD_WORKSPACE_ID_FIELD)); join->expr = expr; join->position = ++executor->priv->joinid; MidgardConfig *config = mgd->priv->config; const gchar *sql_part_bool_func_start = ""; const gchar *sql_part_bool_func_end = ""; const gchar *deleted_field = midgard_core_object_get_deleted_field (klass); GString *table = g_string_new ("(SELECT DISTINCT MAX"); if (config->priv->dbtype == MIDGARD_DB_TYPE_POSTGRES && deleted_field) { sql_part_bool_func_start = " bool_or("; sql_part_bool_func_end = ") AS metadata_deleted"; } g_string_append_printf (table, "(%s) AS %s, %s %s%s%s%s FROM %s WHERE %s IN (0,", MGD_WORKSPACE_ID_FIELD, MGD_WORKSPACE_ID_FIELD, MGD_WORKSPACE_OID_FIELD, deleted_field ? "," : "", sql_part_bool_func_start, deleted_field ? deleted_field : "", sql_part_bool_func_end, klass_table, MGD_WORKSPACE_ID_FIELD); const MidgardWorkspaceStorage *ws = midgard_connection_get_workspace (mgd); GSList *list = MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE (ws)->priv->list_ids (mgd, MIDGARD_WORKSPACE_STORAGE (ws)); GSList *l = NULL; guint i = 0; guint id; for (l = list; l != NULL; l = l->next, i++) { GValue *id_val = (GValue *) l->data; if (G_VALUE_HOLDS_UINT (id_val)) id = g_value_get_uint (id_val); else id = (guint) g_value_get_int (id_val); g_string_append_printf (table, "%s%d", i > 0 ? "," : "", id); } if (!list) g_string_append (table, "0"); g_string_append (table, ") "); if (deleted_field) g_string_append_printf (table, "AND %s = %s ", deleted_field, __BOOL_VALUE (bool_is_int)); g_string_append_printf (table, "GROUP BY %s)", MGD_WORKSPACE_OID_FIELD); g_slist_free (list); gda_sql_select_from_take_new_join (from , join); GdaSqlSelectTarget *s_target = gda_sql_select_target_new (GDA_SQL_ANY_PART (from)); s_target->table_name = g_string_free (table, FALSE); s_target->as = right_table; gda_sql_select_from_take_new_target (from, s_target); /* MIDGARD_QUERY_EXECUTOR (self)->priv->include_deleted_targets = g_slist_append (MIDGARD_QUERY_EXECUTOR (self)->priv->include_deleted_targets, s_target); */ GdaSqlExpr *texpr = gda_sql_expr_new (GDA_SQL_ANY_PART (s_target)); GValue *tval = g_new0 (GValue, 1); g_value_init (tval, G_TYPE_STRING); g_value_set_string (tval, g_strdup (s_target->table_name)); texpr->value = tval; s_target->expr = texpr; /* Add workspace object id constraint */ GdaSqlExpr *ws_expr = gda_sql_expr_new (GDA_SQL_ANY_PART (operation)); ws_expr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (ws_expr->value, g_strdup_printf ("%s.%s = %s.%s", left_table, MGD_WORKSPACE_OID_FIELD, right_table, MGD_WORKSPACE_OID_FIELD)); operation->operands = g_slist_append (operation->operands, ws_expr); } gboolean __query_select_add_joins (MidgardQuerySelect *self, GdaSqlOperation *operation, GError **error) { __add_implicit_workspace_join (self, operation); if (!MIDGARD_QUERY_EXECUTOR (self)->priv->joins) return TRUE; GSList *l = NULL; MidgardQueryExecutor *executor = MIDGARD_QUERY_EXECUTOR (self); GdaSqlStatement *sql_stm = executor->priv->stmt; GdaSqlStatementSelect *select = (GdaSqlStatementSelect *) sql_stm->contents; GdaSqlSelectFrom *from = select->from; GdaSqlSelectJoin *join; for (l = MIDGARD_QUERY_EXECUTOR (self)->priv->joins; l != NULL; l = l->next) { qsj *_sj = (qsj*) l->data; join = gda_sql_select_join_new (GDA_SQL_ANY_PART (from)); join->type = _sj->join_type; MidgardQueryStorage *left_storage = _sj->left_property->priv->storage; MidgardQueryStorage *right_storage = _sj->right_property->priv->storage; GError *err = NULL; GValue lval = {0, }; midgard_query_holder_get_value (MIDGARD_QUERY_HOLDER (_sj->left_property), &lval); gchar *left_table_field = midgard_core_query_compute_constraint_property (executor, left_storage, g_value_get_string (&lval), &err); if (err) { g_propagate_error (error, err); g_free (left_table_field); } GValue rval = {0, }; midgard_query_holder_get_value (MIDGARD_QUERY_HOLDER (_sj->right_property), &rval); gchar *right_table_field = midgard_core_query_compute_constraint_property (executor, right_storage, g_value_get_string (&rval), &err); if (err) { g_propagate_error (error, err); g_free (right_table_field); } GdaSqlExpr *expr = gda_sql_expr_new (GDA_SQL_ANY_PART (join)); expr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (expr->value, g_strdup_printf ("%s = %s", left_table_field, right_table_field)); join->expr = expr; join->position = ++executor->priv->joinid; /* Add right storage to targets */ MQE_SET_TABLE_ALIAS (executor, right_storage); gda_sql_select_from_take_new_join (from , join); GdaSqlSelectTarget *s_target = gda_sql_select_target_new (GDA_SQL_ANY_PART (from)); s_target->table_name = g_strdup (right_storage->priv->table); s_target->as = g_strdup (right_storage->priv->table_alias); gda_sql_select_from_take_new_target (from, s_target); // Set target expression GdaSqlExpr *texpr = gda_sql_expr_new (GDA_SQL_ANY_PART (s_target)); GValue *tval = g_new0 (GValue, 1); g_value_init (tval, G_TYPE_STRING); g_value_set_string (tval, right_storage->priv->table); texpr->value = tval; s_target->expr = texpr; } return TRUE; } static void __add_exclude_deleted_constraints (MidgardQueryExecutor *self, GdaSqlStatementSelect *select, GdaSqlOperation *operation, MidgardDBObjectClass *dbklass) { GSList *l = select->from->targets; const gchar *deleted_field = midgard_core_object_get_deleted_field (dbklass); gboolean bool_is_int = MIDGARD_QUERY_EXECUTOR (self)->priv->bool_is_int; /* We have only one target table, so create one expression and add to top operation */ if (g_slist_length (l) == 1) { if (!deleted_field) return; GdaSqlSelectTarget *target = (GdaSqlSelectTarget *) l->data; GdaSqlExpr *expr = gda_sql_expr_new (GDA_SQL_ANY_PART (operation)); expr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (expr->value, g_strdup_printf ("%s.%s = %s", target->as, deleted_field, __BOOL_VALUE (bool_is_int))); operation->operands = g_slist_append (operation->operands, expr); return; } /* Create new constraint group, (t1.deleted AND t2.deleted AND ...) */ GdaSqlExpr *deleted_expr = gda_sql_expr_new (GDA_SQL_ANY_PART (operation)); GdaSqlOperation *deleted_operation = gda_sql_operation_new (GDA_SQL_ANY_PART (deleted_expr)); deleted_operation->operator_type = GDA_SQL_OPERATOR_TYPE_AND; deleted_expr->cond = deleted_operation; operation->operands = g_slist_append (operation->operands, deleted_expr); /* FIXME, we do not have own klass list involved in query */ /* Add metadata_deleted constraint for each statement's table */ for (l = select->from->targets; l != NULL; l = l->next) { GdaSqlSelectTarget *target = (GdaSqlSelectTarget *) l->data; GdaSqlExpr *expr = gda_sql_expr_new (GDA_SQL_ANY_PART (operation)); expr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (expr->value, g_strdup_printf ("%s.metadata_deleted = %s", target->as, __BOOL_VALUE (bool_is_int))); deleted_operation->operands = g_slist_append (deleted_operation->operands, expr); } } static void __add_dummy_constraint (GdaSqlStatementSelect *select, GdaSqlOperation *top_operation) { GdaSqlExpr *dexpr = gda_sql_expr_new (GDA_SQL_ANY_PART (top_operation)); dexpr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (dexpr->value, g_strdup ("1=1")); top_operation->operands = g_slist_append (top_operation->operands, dexpr); return; } static void __add_second_dummy_constraint (GdaSqlStatementSelect *select, GdaSqlOperation *top_operation) { GdaSqlExpr *dexpr = gda_sql_expr_new (GDA_SQL_ANY_PART (top_operation)); dexpr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (dexpr->value, g_strdup ("0<1")); top_operation->operands = g_slist_append (top_operation->operands, dexpr); return; } static void _get_all_constraints (MidgardQuerySelect *self, MidgardQueryConstraintSimple *constr, GSList **list) { if (!constr) if (self && MIDGARD_QUERY_EXECUTOR (self)->priv->constraint) constr = MIDGARD_QUERY_EXECUTOR (self)->priv->constraint; if (!constr) return; *list = g_slist_prepend (*list, constr); guint n_objects; MidgardQueryConstraintSimple **constraints = midgard_query_constraint_simple_list_constraints (constr, &n_objects); if (!constraints) return; guint i; for (i = 0; i < n_objects; i++) { _get_all_constraints (NULL, constraints[i], list); } g_free (constraints); } static void _midgard_query_select_validable_iface_validate (MidgardValidable *iface, GError **error) { g_return_if_fail (iface != NULL); MidgardQuerySelect *self = MIDGARD_QUERY_SELECT (iface); MIDGARD_QUERY_EXECUTOR (self)->priv->is_valid = FALSE; GError *err = NULL; MidgardQueryStorage *storage = MIDGARD_QUERY_EXECUTOR (self)->priv->storage; GObjectClass *klass = (GObjectClass *) storage->priv->klass; if (klass == NULL || (!G_IS_OBJECT_CLASS(klass))) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_TYPE_INVALID, "Invalid '%s' classname associated with QueryStorage", storage->priv->classname); return; } const gchar *table = midgard_core_class_get_table (MIDGARD_DBOBJECT_CLASS (klass)); /* Class table */ if (!table) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_LOCATION_INVALID, "No SQL table defined for '%s' class", G_OBJECT_CLASS_NAME (klass)); return; } /* Storage */ if (!storage) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_LOCATION_INVALID, "No QueryStorage associated with QuerySelect"); return; } if (storage->priv->klass && !storage->priv->klass->dbpriv->add_fields_to_select_statement) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_INTERNAL, "'%s' DBObjectClass doesn't provide select statement.", G_OBJECT_CLASS_NAME (storage->priv->klass)); return; } /* Limit */ if (MIDGARD_QUERY_EXECUTOR (self)->priv->limit == 0) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_VALUE_INVALID, "Invalid limit value (0). Expected > 0"); return; } /* Orders */ GSList *l = NULL; for (l = MIDGARD_QUERY_EXECUTOR (self)->priv->orders; l != NULL; l = l->next) { qso *_so = (qso*) l->data; gboolean asc = FALSE; gchar *lorder = g_ascii_strdown (_so->order_type, -1); if (g_str_equal (lorder, "asc")) { _so->asc = TRUE; } else if (g_str_equal (lorder, "desc")) { _so->asc = FALSE; } else { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_VALUE_INVALID, "Invalid order type '%s'. Expected ASC or DESC", _so->order_type); g_free (lorder); return; } g_free (lorder); } /* Gather all objects required for execution */ GSList *o_list = NULL; o_list = g_slist_prepend (o_list, storage); _get_all_constraints (self, NULL, &o_list); for (l = o_list; l != NULL; l = l->next) { if (!midgard_validable_is_valid (MIDGARD_VALIDABLE (l->data))) { midgard_validable_validate (MIDGARD_VALIDABLE (l->data), &err); if (err) { g_propagate_error (error, err); g_slist_free (o_list); return; } } } if (o_list) g_slist_free (o_list); MIDGARD_QUERY_EXECUTOR (self)->priv->is_valid = TRUE; return; } gboolean _midgard_query_select_validable_iface_is_valid (MidgardValidable *self) { g_return_val_if_fail (self != NULL, FALSE); return MIDGARD_QUERY_EXECUTOR (self)->priv->is_valid; } static void _midgard_query_select_executable_iface_execute (MidgardExecutable *iface, GError **error) { g_return_if_fail (iface != NULL); MidgardQuerySelect *self = MIDGARD_QUERY_SELECT (iface); MidgardQueryExecutor *executor = MIDGARD_QUERY_EXECUTOR (self); g_signal_emit (self, MIDGARD_QUERY_EXECUTOR_GET_CLASS (self)->signal_id_execution_start, 0); GError *err = NULL; midgard_validable_validate (MIDGARD_VALIDABLE (self), &err); if (err) { g_propagate_error (error, err); return; } g_object_ref (self); MidgardDBObjectClass *klass = executor->priv->storage->priv->klass; MidgardConnection *mgd = executor->priv->mgd; GdaConnection *cnc = mgd->priv->connection; GdaSqlStatement *sql_stm; GdaSqlStatementSelect *sss; sql_stm = gda_sql_statement_new (GDA_SQL_STATEMENT_SELECT); sss = (GdaSqlStatementSelect*) sql_stm->contents; g_assert (GDA_SQL_ANY_PART (sss)->type == GDA_SQL_ANY_STMT_SELECT); MIDGARD_QUERY_EXECUTOR (self)->priv->stmt = sql_stm; sss->from = gda_sql_select_from_new (GDA_SQL_ANY_PART (sss)); /* Initialize top base expresion and operation with default AND operator type */ GdaSqlExpr *base_where = gda_sql_expr_new (GDA_SQL_ANY_PART (sss)); GdaSqlOperation *base_operation = gda_sql_operation_new (GDA_SQL_ANY_PART (base_where)); base_operation->operator_type = GDA_SQL_OPERATOR_TYPE_AND; base_where->cond = base_operation; gda_sql_statement_select_take_where_cond (sql_stm, base_where); /* Create targets (FROM) */ GdaSqlSelectTarget *s_target = gda_sql_select_target_new (GDA_SQL_ANY_PART (sss->from)); s_target->table_name = g_strdup (midgard_core_class_get_table (klass)); s_target->as = g_strdup_printf ("t%d", ++MIDGARD_QUERY_EXECUTOR (self)->priv->tableid); MIDGARD_QUERY_EXECUTOR (self)->priv->table_alias = g_strdup (s_target->as); gda_sql_select_from_take_new_target (sss->from, s_target); /* Set target expression */ GdaSqlExpr *texpr = gda_sql_expr_new (GDA_SQL_ANY_PART (s_target)); GValue *tval = g_new0 (GValue, 1); g_value_init (tval, G_TYPE_STRING); g_value_set_string (tval, s_target->table_name); texpr->value = tval; s_target->expr = texpr; /* Add fields for all properties registered per class (SELECT a,b,c...) */ klass->dbpriv->add_fields_to_select_statement (klass, mgd, sss, s_target->as); GdaSqlExpr *where = sss->where_cond; GdaSqlOperation *operation = where->cond; /* Add joins, LEFT JOIN tbl2 ON... */ __query_select_add_joins (MIDGARD_QUERY_SELECT (self), operation, &err); if (err) { g_propagate_error (error, err); goto return_false; } /* Add constraints' conditions (WHERE a=1, b=2...) */ if (MIDGARD_QUERY_EXECUTOR (self)->priv->constraint) { MIDGARD_QUERY_CONSTRAINT_SIMPLE_GET_INTERFACE (MIDGARD_QUERY_EXECUTOR (self)->priv->constraint)->priv->add_conditions_to_statement (MIDGARD_QUERY_EXECUTOR (self), MIDGARD_QUERY_EXECUTOR (self)->priv->constraint, sql_stm, base_where, &err); if (err) { g_propagate_error (error, err); goto return_false; } if (MIDGARD_QUERY_EXECUTOR (self)->priv->n_constraints == 1) __add_second_dummy_constraint (sss, operation); /* Add dummy constraint if operation has only one operand */ if (operation->operands && (g_slist_length (operation->operands) == 1)) __add_dummy_constraint (sss, operation); } else { /* no constraints, add dummy '1=1 AND 0<1' to satisfy top constraint group */ __add_dummy_constraint (sss, operation); __add_second_dummy_constraint (sss, operation); } /* Add orders , ORDER BY t1.field... */ if (!__query_select_add_orders (executor, &err)) { if (err) g_propagate_error (error, err); goto return_false; } /* Exclude deleted */ if (MGD_DBCLASS_METADATA_CLASS (klass) && !executor->priv->include_deleted) __add_exclude_deleted_constraints (executor, sss, operation, klass); /* Add limit, LIMIT x */ if (executor->priv->limit > 0) { GdaSqlExpr *limit_expr = gda_sql_expr_new (GDA_SQL_ANY_PART (sss)); GValue *limit_val = g_new0 (GValue, 1); g_value_init (limit_val, G_TYPE_STRING); g_value_take_string (limit_val, g_strdup_printf ("%d", executor->priv->limit)); limit_expr->value = limit_val; sss->limit_count = limit_expr; } /* Add offset, OFFSET x */ if (executor->priv->offset >= 0) { GdaSqlExpr *offset_expr = gda_sql_expr_new (GDA_SQL_ANY_PART (sss)); GValue *offset_val = g_new0 (GValue, 1); g_value_init (offset_val, G_TYPE_STRING); g_value_take_string (offset_val, g_strdup_printf ("%d", executor->priv->offset)); offset_expr->value = offset_val; sss->limit_offset = offset_expr; } /* Check structure */ if (!gda_sql_statement_check_structure (sql_stm, &err)) { g_set_error (error, MIDGARD_EXECUTION_ERROR, MIDGARD_EXECUTION_ERROR_INTERNAL, "Can't build SELECT statement: %s)", err && err->message ? err->message : _("Unknown reason")); if (err) g_clear_error (&err); goto return_false; } /* Create statement */ GdaStatement *stmt = gda_statement_new (); g_object_set (G_OBJECT (stmt), "structure", sql_stm, NULL); gda_sql_statement_free (sql_stm); sql_stm = NULL; if (MGD_CNC_DEBUG (mgd)) { gchar *debug_sql = gda_connection_statement_to_sql (cnc, stmt, NULL, GDA_STATEMENT_SQL_PRETTY, NULL, NULL); g_debug ("QuerySelect: %s", debug_sql); g_free (debug_sql); } /* execute statement */ GdaDataModel *model = gda_connection_statement_execute_select (cnc, stmt, NULL, &err); g_object_unref (stmt); if (!model && !err) { g_set_error (error, MIDGARD_EXECUTION_ERROR, MIDGARD_EXECUTION_ERROR_INTERNAL, "Execute error - Unknown reason, underlying error is NULL"); goto return_false; } if (err) { g_set_error (error, MIDGARD_EXECUTION_ERROR, MIDGARD_EXECUTION_ERROR_INTERNAL, "Execute error - %s", err->message); g_error_free (err); goto return_false; } executor->priv->results_count = gda_data_model_get_n_rows (model); if (executor->priv->resultset && G_IS_OBJECT (executor->priv->resultset)) g_object_unref (G_OBJECT (executor->priv->resultset)); executor->priv->resultset = (gpointer) model; g_object_unref (self); g_signal_emit (self, MIDGARD_QUERY_EXECUTOR_GET_CLASS (self)->signal_id_execution_end, 0); return; return_false: if (sql_stm) gda_sql_statement_free (sql_stm); g_signal_emit (self, MIDGARD_QUERY_EXECUTOR_GET_CLASS (self)->signal_id_execution_end, 0); g_object_unref (self); return; } guint _midgard_query_select_get_results_count (MidgardQueryExecutor *self) { g_return_val_if_fail (self != NULL, 0); return self->priv->results_count; } MidgardDBObject ** _midgard_query_select_list_objects (MidgardQuerySelect *self, guint *n_objects) { g_return_val_if_fail (self != NULL, NULL); *n_objects = 0; GdaDataModel *model = GDA_DATA_MODEL (MIDGARD_QUERY_EXECUTOR (self)->priv->resultset); if (!model || (model && !GDA_IS_DATA_MODEL (model))) return NULL; guint i; guint rows = gda_data_model_get_n_rows (model); if (rows < 1) return NULL; MidgardConnection *mgd = MIDGARD_QUERY_EXECUTOR (self)->priv->mgd; MidgardDBObjectClass *klass = MIDGARD_QUERY_EXECUTOR (self)->priv->storage->priv->klass; MidgardDBObject **objects = g_new (MidgardDBObject *, rows+1); for (i = 0; i < rows; i++) { GParamSpec *guid_spec = NULL; objects[i] = g_object_new (G_OBJECT_CLASS_TYPE (klass), "connection", mgd, NULL); MGD_OBJECT_IN_STORAGE (objects[i]) = TRUE; MIDGARD_DBOBJECT(objects[i])->dbpriv->datamodel = g_object_ref (model); MIDGARD_DBOBJECT(objects[i])->dbpriv->row = i; if (MIDGARD_QUERY_EXECUTOR (self)->priv->read_only) { guid_spec = g_object_class_find_property (G_OBJECT_CLASS (klass), "guid"); if (guid_spec) { gint col_idx = gda_data_model_get_column_index (model, "guid"); if (col_idx == -1) { g_warning ("Missed column for registered 'guid' column. (%s)", G_OBJECT_CLASS_NAME (klass)); continue; } const GValue *gval = gda_data_model_get_value_at (model, col_idx, i, NULL); /* Set MidgardDBObject data */ MGD_OBJECT_GUID (objects[i]) = g_value_dup_string (gval); } } else { MIDGARD_DBOBJECT_GET_CLASS (objects[i])->dbpriv->set_from_data_model ( MIDGARD_DBOBJECT (objects[i]), model, i, 0); } } objects[i] = NULL; *n_objects = rows; return objects; } static void _midgard_query_select_include_deleted (MidgardQuerySelect *self, gboolean toggle) { g_return_if_fail (self != NULL); MIDGARD_QUERY_EXECUTOR (self)->priv->include_deleted = toggle; } /** * midgard_query_select_include_deleted: * @self: #MidgardQuerySelect instance * @toggle: toggle to include or exclude deleted objects * * By default, #MidgardQuerySelect ignores deleted objects. * With this method, you can set deleted objects toggle, so such can be * included in execute results. This method may be called as many times * as needed, to include (@TRUE) or exclude (@FALSE) deleted objects. * * This is valid only for those classes which has 'metadata' (of #MidgardMetadata type) * or 'deleted' property installed. * * Since: 10.05.1 */ void midgard_query_select_include_deleted (MidgardQuerySelect *self, gboolean toggle) { g_return_if_fail (self != NULL); MIDGARD_QUERY_SELECT_GET_CLASS (self)->include_deleted (self, toggle); } /** * midgard_query_select_list_objects: * @self: #MidgardQuerySelect instance * @n_objects: pointer to store number of returned objects * * List all objects for which data has been returned during execution. * * Returns: (element-type MidgardDBObject) (array length=n_objects) (transfer full): newly allocated array of #MidgardDBObject * Since: 10.05 */ MidgardDBObject ** midgard_query_select_list_objects (MidgardQuerySelect *self, guint *n_objects) { return MIDGARD_QUERY_SELECT_GET_CLASS (self)->list_objects (self, n_objects); } void _midgard_query_select_toggle_read_only (MidgardQuerySelect *self, gboolean toggle) { g_return_if_fail (self != NULL); MIDGARD_QUERY_EXECUTOR (self)->priv->read_only = toggle; return; } /** * midgard_query_select_toggle_read_only: * @self: #MidgardQuerySelect instance * @toggle: enables or disables read only mode * * This method switch #MidgardQuerySelect to read only mode. * It should be enabled when returned objects will be used only to read properties. * It improves performance, but it's impossible to write returned object's properties. * * By default, for performance reason, MidgardQuerySelect is instantiated in read only mode. * * Since: 10.05 */ void midgard_query_select_toggle_read_only (MidgardQuerySelect *self, gboolean toggle) { MIDGARD_QUERY_SELECT_GET_CLASS (self)->toggle_read_only (self, toggle); } /* GOBJECT ROUTINES */ enum { PROPERTY_CONNECTION = 1, PROPERTY_STORAGE }; static GObjectClass *parent_class= NULL; static GObject * _midgard_query_select_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_query_select_dispose (GObject *object) { parent_class->dispose (object); } static void _midgard_query_select_finalize (GObject *object) { MidgardQuerySelect *self = MIDGARD_QUERY_SELECT (object); /* DO NOT nullify resultset object, other objects might still hold * reference to it. */ if (MIDGARD_QUERY_EXECUTOR (self)->priv->resultset && G_IS_OBJECT (MIDGARD_QUERY_EXECUTOR (self)->priv->resultset)) g_object_unref (MIDGARD_QUERY_EXECUTOR (self)->priv->resultset); /* Drop the reference to QueryProperty object. Orders are freed in parent class */ GSList *l; for (l = MIDGARD_QUERY_EXECUTOR (self)->priv->orders; l != NULL; l = l->next) { qso *_so = (qso*) l->data; g_free (_so->order_type); g_object_unref (_so->property); } parent_class->finalize (object); } static void __midgard_query_select_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardQuerySelect *self = (MidgardQuerySelect *) object; switch (property_id) { case PROPERTY_CONNECTION: /* write and constructor only */ break; case PROPERTY_STORAGE: g_value_set_object (value, g_object_ref (MIDGARD_QUERY_EXECUTOR (self)->priv->storage)); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void __midgard_query_select_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardQuerySelect *self = (MidgardQuerySelect *) (object); GObject *mgd; GObject *storage; switch (property_id) { case PROPERTY_CONNECTION: if (!G_VALUE_HOLDS_OBJECT (value)) return; MIDGARD_QUERY_EXECUTOR (self)->priv->mgd = g_value_dup_object (value); /* In case of SQLite provider, use integer instead of boolean type, * which is not supported in SQLite */ MidgardConfig *config = MIDGARD_QUERY_EXECUTOR (self)->priv->mgd->priv->config; if (config->priv->dbtype == MIDGARD_DB_TYPE_SQLITE) MIDGARD_QUERY_EXECUTOR (self)->priv->bool_is_int = TRUE; break; case PROPERTY_STORAGE: if (!G_VALUE_HOLDS_OBJECT (value)) return; MIDGARD_QUERY_EXECUTOR (self)->priv->storage = g_value_dup_object (value); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_query_select_class_init (MidgardQuerySelectClass *klass, gpointer class_data) { GObjectClass *object_class = G_OBJECT_CLASS (klass); parent_class = g_type_class_peek_parent (klass); MidgardQueryExecutorClass *executor_class = MIDGARD_QUERY_EXECUTOR_CLASS (klass); object_class->constructor = _midgard_query_select_constructor; object_class->dispose = _midgard_query_select_dispose; object_class->finalize = _midgard_query_select_finalize; executor_class->set_constraint = _midgard_query_select_set_constraint; executor_class->set_limit = _midgard_query_select_set_limit; executor_class->set_offset = _midgard_query_select_set_offset; executor_class->add_order = _midgard_query_select_add_order; executor_class->add_join = _midgard_query_select_add_join; executor_class->get_results_count = _midgard_query_select_get_results_count; klass->list_objects = _midgard_query_select_list_objects; klass->toggle_read_only = _midgard_query_select_toggle_read_only; klass->include_deleted = _midgard_query_select_include_deleted; object_class->set_property = __midgard_query_select_set_property; object_class->get_property = __midgard_query_select_get_property; /* Properties */ GParamSpec *pspec = g_param_spec_object ("connection", "", "", MIDGARD_TYPE_CONNECTION, G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); /** * MidgardQuerySelect:connection: * * Pointer for a connection, #MidgardQuerySelect has been initialized for * */ g_object_class_install_property (object_class, PROPERTY_CONNECTION, pspec); pspec = g_param_spec_object ("storage", "", "", MIDGARD_TYPE_QUERY_STORAGE, G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY); /** * MidgardQuerySelect:storage: * * Pointer for a connection, #MidgardQuerySelect has been initialized for * */ g_object_class_install_property (object_class, PROPERTY_STORAGE, pspec); } /* Executable iface */ static void _midgard_query_select_executable_iface_init (MidgardExecutableIFace *iface) { iface->execute = _midgard_query_select_executable_iface_execute; } /* Validable iface */ static void _midgard_query_select_validable_iface_init (MidgardValidableIFace *iface) { iface->is_valid = _midgard_query_select_validable_iface_is_valid; iface->validate = _midgard_query_select_validable_iface_validate; } GType midgard_query_select_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQuerySelectClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_query_select_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardQuerySelect), 0, /* n_preallocs */ NULL /* instance_init */ }; static const GInterfaceInfo executable_info = { (GInterfaceInitFunc) _midgard_query_select_executable_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; static const GInterfaceInfo validable_info = { (GInterfaceInitFunc) _midgard_query_select_validable_iface_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; type = g_type_register_static (MIDGARD_TYPE_QUERY_EXECUTOR, "MidgardQuerySelect", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_EXECUTABLE, &executable_info); g_type_add_interface_static (type, MIDGARD_TYPE_VALIDABLE, &validable_info); } return type; } midgard2-core-10.05.7.1/src/midgard_core_object_parameter.h0000664000175000017500000000402211772046240020333 00000000000000/* * Copyright (C) 2008 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_CORE_OBJECT_PARAMETER_H #define MIDGARD_CORE_OBJECT_PARAMETER_H G_BEGIN_DECLS MidgardObject **midgard_core_object_parameters_list( MidgardConnection *mgd, const gchar *class_name, const gchar *guid); MidgardObject *midgard_core_object_parameters_create( MidgardConnection *mgd, const gchar *class_name, const gchar *guid, guint n_params, const GParameter *parameters); gboolean midgard_core_object_parameters_delete( MidgardConnection *mgd, const gchar *class_name, const gchar *guid, guint n_params, const GParameter *parameters); gboolean midgard_core_object_parameters_purge( MidgardConnection *mgd, const gchar *class_name, const gchar *guid, guint n_params, const GParameter *parameters); gboolean midgard_core_object_parameters_purge_with_blob( MidgardConnection *mgd, const gchar *class_name, const gchar *guid, guint n_params, const GParameter *parameters); MidgardObject **midgard_core_object_parameters_find( MidgardConnection *mgd, const gchar *class_name, const gchar *guid, guint n_params, const GParameter *parameters); gboolean midgard_core_object_has_parameters( MidgardConnection *mgd, const gchar *class_name, const gchar *guid); G_END_DECLS #endif /* MIDGARD_CORE_OBJECT_PARAMETER_H */ midgard2-core-10.05.7.1/src/midgard_query_property.h0000664000175000017500000000433611772046240017136 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_PROPERTY_H #define MIDGARD_QUERY_PROPERTY_H #include #include "midgard_defs.h" #include "midgard_query_storage.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_PROPERTY (midgard_query_property_get_type()) #define MIDGARD_QUERY_PROPERTY(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_PROPERTY, MidgardQueryProperty)) #define MIDGARD_QUERY_PROPERTY_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_QUERY_PROPERTY, MidgardQueryPropertyClass)) #define MIDGARD_IS_QUERY_PROPERTY(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_PROPERTY)) #define MIDGARD_IS_QUERY_PROPERTY_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_QUERY_PROPERTY)) #define MIDGARD_QUERY_PROPERTY_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_QUERY_PROPERTY, MidgardQueryPropertyClass)) typedef struct _MidgardQueryProperty MidgardQueryProperty; typedef struct _MidgardQueryPropertyPrivate MidgardQueryPropertyPrivate; typedef struct _MidgardQueryPropertyClass MidgardQueryPropertyClass; struct _MidgardQueryProperty { GObject parent; /* < private > */ MidgardQueryPropertyPrivate *priv; }; struct _MidgardQueryPropertyClass { GObjectClass parent; }; GType midgard_query_property_get_type (void); MidgardQueryProperty *midgard_query_property_new (const gchar *property, MidgardQueryStorage *storage); G_END_DECLS #endif /* MIDGARD_QUERY_PROPERTY_H */ midgard2-core-10.05.7.1/src/midgard_core_config.h0000664000175000017500000000310611772046240016274 00000000000000/* * Copyright (C) 2007 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MIDGARD_CORE_CONFIG_H #define MIDGARD_CORE_CONFIG_H #include #include #define MIDGARD_CONFIG_RW_SCHEMA "schema" #define MIDGARD_CONFIG_RW_SCHEMAS "schemas" #define MIDGARD_CONFIG_RW_VIEW "view" #define MIDGARD_CONFIG_RW_VIEWS "views" typedef enum { MIDGARD_DB_TYPE_MYSQL = 1, MIDGARD_DB_TYPE_POSTGRES, MIDGARD_DB_TYPE_FREETDS, MIDGARD_DB_TYPE_SQLITE, MIDGARD_DB_TYPE_ODBC, MIDGARD_DB_TYPE_ORACLE } MidgardDBType; gchar *midgard_core_config_build_path (const gchar **dirs, const gchar *filename, gboolean user); gchar *midgard_core_config_build_schemadir_path (const gchar *dirname); gchar *midgard_core_config_build_viewdir_path (const gchar *dirname); #endif /* MIDGARD_CORE_CONFIG_H */ midgard2-core-10.05.7.1/src/query_group_constraint.h0000664000175000017500000000562311772046240017163 00000000000000/* * Copyright (C) 2007 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef CORE_QUERY_GROUP_CONSTRAINT_H #define CORE_QUERY_GROUP_CONSTRAINT_H #include "midgard_object.h" #include "schema.h" #define MIDGARD_CORE_TYPE_QUERY_GROUP_CONSTRAINT (midgard_core_query_group_constraint_get_type()) #define MIDGARD_CORE_QUERY_GROUP_CONSTRAINT(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), MIDGARD_CORE_TYPE_QUERY_GROUP_CONSTRAINT, MidgardCoreQueryGroupConstraint)) #define MIDGARD_CORE_QUERY_GROUP_CONSTRAINT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((klass), MIDGARD_CORE_TYPE_QUERY_GROUP_CONSTRAINT, MidgardCoreQueryGroupConstraintClass)) #define MIDGARD_CORE_IS_QUERY_GROUP_CONSTRAINT(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), MIDGARD_CORE_TYPE_QUERY_GROUP_CONSTRAINT)) #define MIDGARD_CORE_IS_QUERY_GROUP_CONSTRAINT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), MIDGARD_CORE_TYPE_QUERY_GROUP_CONSTRAINT)) #define MIDGARD_CORE_QUERY_GROUP_CONSTRAINT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), MIDGARD_CORE_TYPE_QUERY_GROUP_CONSTRAINT, MidgardCoreQueryGroupConstraintClass)) typedef struct _MidgardCoreQueryGroupConstraint MidgardCoreQueryGroupConstraint; typedef struct _MidgardCoreQueryGroupConstraintPrivate MidgardCoreQueryGroupConstraintPrivate; struct _MidgardCoreQueryGroupConstraintPrivate{ GSList *constraints; gchar *group_type; }; struct _MidgardCoreQueryGroupConstraint{ GObject parent; MidgardCoreQueryGroupConstraintPrivate *priv; }; typedef struct { GObjectClass parent; void (*add_sql)(MidgardCoreQueryGroupConstraint *self, GString *sql); } MidgardCoreQueryGroupConstraintClass; GType midgard_core_query_group_constraint_get_type(void); MidgardCoreQueryGroupConstraint *midgard_core_query_group_constraint_new(void); void midgard_core_query_group_constraint_add_sql( MidgardCoreQueryGroupConstraint *self, GString *sql); gboolean midgard_core_query_group_constraint_type_is_valid(const gchar *type); /* PRIVATE */ MidgardCoreQueryGroupConstraintPrivate *midgard_core_query_group_constraint_private_new(void); void midgard_core_query_group_constraint_private_free(MidgardCoreQueryGroupConstraintPrivate *mqcp); #endif /* QUERY_CONSTRAINT_H */ midgard2-core-10.05.7.1/src/midgard_key_config_context.c0000664000175000017500000002022111772046240017670 00000000000000/* midgard_key_config_context.c generated by valac, the Vala compiler * generated from midgard_key_config_context.vala, do not modify */ /* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include #include #include #define MIDGARD_TYPE_KEY_CONFIG_CONTEXT (midgard_key_config_context_get_type ()) #define MIDGARD_KEY_CONFIG_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContext)) #define MIDGARD_KEY_CONFIG_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContextClass)) #define MIDGARD_IS_KEY_CONFIG_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT)) #define MIDGARD_IS_KEY_CONFIG_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG_CONTEXT)) #define MIDGARD_KEY_CONFIG_CONTEXT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContextClass)) typedef struct _MidgardKeyConfigContext MidgardKeyConfigContext; typedef struct _MidgardKeyConfigContextClass MidgardKeyConfigContextClass; typedef struct _MidgardKeyConfigContextPrivate MidgardKeyConfigContextPrivate; #define _g_free0(var) (var = (g_free (var), NULL)) typedef enum { KEY_CONFIG_CONTEXT_ERROR_PATH_IS_NOT_ABSOLUTE } KeyConfigContextError; #define KEY_CONFIG_CONTEXT_ERROR key_config_context_error_quark () struct _MidgardKeyConfigContext { GObject parent_instance; MidgardKeyConfigContextPrivate * priv; }; struct _MidgardKeyConfigContextClass { GObjectClass parent_class; char** (*list_key_config) (MidgardKeyConfigContext* self, int* result_length1); }; struct _MidgardKeyConfigContextPrivate { char* _context_path; }; static gpointer midgard_key_config_context_parent_class = NULL; GQuark key_config_context_error_quark (void); GType midgard_key_config_context_get_type (void); #define MIDGARD_KEY_CONFIG_CONTEXT_GET_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContextPrivate)) enum { MIDGARD_KEY_CONFIG_CONTEXT_DUMMY_PROPERTY, MIDGARD_KEY_CONFIG_CONTEXT_CONTEXT_PATH }; static void midgard_key_config_context_set_context_path (MidgardKeyConfigContext* self, const char* value); MidgardKeyConfigContext* midgard_key_config_context_construct (GType object_type, const char* context_path); char** midgard_key_config_context_list_key_config (MidgardKeyConfigContext* self, int* result_length1); static char** midgard_key_config_context_real_list_key_config (MidgardKeyConfigContext* self, int* result_length1); const char* midgard_key_config_context_get_context_path (MidgardKeyConfigContext* self); static void midgard_key_config_context_finalize (GObject* obj); static void midgard_key_config_context_get_property (GObject * object, guint property_id, GValue * value, GParamSpec * pspec); static void midgard_key_config_context_set_property (GObject * object, guint property_id, const GValue * value, GParamSpec * pspec); GQuark key_config_context_error_quark (void) { return g_quark_from_static_string ("key_config_context_error-quark"); } MidgardKeyConfigContext* midgard_key_config_context_construct (GType object_type, const char* context_path) { MidgardKeyConfigContext * self; self = (MidgardKeyConfigContext*) g_object_new (object_type, NULL); midgard_key_config_context_set_context_path (self, context_path); return self; } static char** midgard_key_config_context_real_list_key_config (MidgardKeyConfigContext* self, int* result_length1) { char** result; gpointer _tmp0_; g_return_val_if_fail (self != NULL, NULL); result = (_tmp0_ = NULL, *result_length1 = 0, _tmp0_); return result; } char** midgard_key_config_context_list_key_config (MidgardKeyConfigContext* self, int* result_length1) { return MIDGARD_KEY_CONFIG_CONTEXT_GET_CLASS (self)->list_key_config (self, result_length1); } const char* midgard_key_config_context_get_context_path (MidgardKeyConfigContext* self) { const char* result; g_return_val_if_fail (self != NULL, NULL); result = self->priv->_context_path; return result; } static void midgard_key_config_context_set_context_path (MidgardKeyConfigContext* self, const char* value) { char* _tmp0_; g_return_if_fail (self != NULL); self->priv->_context_path = (_tmp0_ = g_strdup (value), _g_free0 (self->priv->_context_path), _tmp0_); g_object_notify ((GObject *) self, "context-path"); } static void midgard_key_config_context_class_init (MidgardKeyConfigContextClass * klass) { midgard_key_config_context_parent_class = g_type_class_peek_parent (klass); g_type_class_add_private (klass, sizeof (MidgardKeyConfigContextPrivate)); MIDGARD_KEY_CONFIG_CONTEXT_CLASS (klass)->list_key_config = midgard_key_config_context_real_list_key_config; G_OBJECT_CLASS (klass)->get_property = midgard_key_config_context_get_property; G_OBJECT_CLASS (klass)->set_property = midgard_key_config_context_set_property; G_OBJECT_CLASS (klass)->finalize = midgard_key_config_context_finalize; g_object_class_install_property (G_OBJECT_CLASS (klass), MIDGARD_KEY_CONFIG_CONTEXT_CONTEXT_PATH, g_param_spec_string ("context-path", "Context path", "Information about context path.", NULL, G_PARAM_STATIC_NAME | G_PARAM_STATIC_NICK | G_PARAM_STATIC_BLURB | G_PARAM_READABLE)); } static void midgard_key_config_context_instance_init (MidgardKeyConfigContext * self) { self->priv = MIDGARD_KEY_CONFIG_CONTEXT_GET_PRIVATE (self); self->priv->_context_path = NULL; } static void midgard_key_config_context_finalize (GObject* obj) { MidgardKeyConfigContext * self; self = MIDGARD_KEY_CONFIG_CONTEXT (obj); _g_free0 (self->priv->_context_path); G_OBJECT_CLASS (midgard_key_config_context_parent_class)->finalize (obj); } GType midgard_key_config_context_get_type (void) { static volatile gsize midgard_key_config_context_type_id__volatile = 0; if (g_once_init_enter (&midgard_key_config_context_type_id__volatile)) { static const GTypeInfo g_define_type_info = { sizeof (MidgardKeyConfigContextClass), (GBaseInitFunc) NULL, (GBaseFinalizeFunc) NULL, (GClassInitFunc) midgard_key_config_context_class_init, (GClassFinalizeFunc) NULL, NULL, sizeof (MidgardKeyConfigContext), 0, (GInstanceInitFunc) midgard_key_config_context_instance_init, NULL }; GType midgard_key_config_context_type_id; midgard_key_config_context_type_id = g_type_register_static (G_TYPE_OBJECT, "MidgardKeyConfigContext", &g_define_type_info, G_TYPE_FLAG_ABSTRACT); g_once_init_leave (&midgard_key_config_context_type_id__volatile, midgard_key_config_context_type_id); } return midgard_key_config_context_type_id__volatile; } static void midgard_key_config_context_get_property (GObject * object, guint property_id, GValue * value, GParamSpec * pspec) { MidgardKeyConfigContext * self; self = MIDGARD_KEY_CONFIG_CONTEXT (object); switch (property_id) { case MIDGARD_KEY_CONFIG_CONTEXT_CONTEXT_PATH: g_value_set_string (value, midgard_key_config_context_get_context_path (self)); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec); break; } } static void midgard_key_config_context_set_property (GObject * object, guint property_id, const GValue * value, GParamSpec * pspec) { MidgardKeyConfigContext * self; self = MIDGARD_KEY_CONFIG_CONTEXT (object); switch (property_id) { case MIDGARD_KEY_CONFIG_CONTEXT_CONTEXT_PATH: midgard_key_config_context_set_context_path (self, g_value_get_string (value)); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec); break; } } midgard2-core-10.05.7.1/src/midgard_blob.h0000664000175000017500000000543611772046240014745 00000000000000/* * Copyright (C) 2006, 2008 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef _MIDGARD_BLOB_H #define _MIDGARD_BLOB_H #include "midgard_connection.h" #include "midgard_object.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_BLOB (midgard_blob_get_type()) #define MIDGARD_BLOB(object) \ (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_BLOB, MidgardBlob)) #define MIDGARD_BLOB_CLASS(klass) \ (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_BLOB, MidgardBlobClass)) #define MIDGARD_IS_BLOB(object) \ (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_BLOB)) #define MIDGARD_IS_BLOB_CLASS(klass) \ (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_BLOB)) #define MIDGARD_BLOB_GET_CLASS(obj) \ (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_BLOB, MidgardBlobClass)) typedef struct MidgardBlob MidgardBlob; typedef struct MidgardBlobClass MidgardBlobClass; typedef struct _MidgardBlobPrivate MidgardBlobPrivate; struct MidgardBlobClass { GObjectClass parent; gchar *(*read_content) (MidgardBlob *self, gsize *bytes_read); gboolean (*write_content) (MidgardBlob *self, const gchar *content); gboolean (*remove_file) (MidgardBlob *self, GError **error); gboolean (*exists) (MidgardBlob *self); const gchar *(*get_path) (MidgardBlob *self); GIOChannel *(*get_handler) (MidgardBlob *self, const gchar *mode, GError **error); }; struct MidgardBlob { GObject parent; MidgardBlobPrivate *priv; }; GType midgard_blob_get_type (void); MidgardBlob *midgard_blob_new (MidgardObject *attachment, const gchar *encoding); MidgardBlob *midgard_blob_create_blob (MidgardObject *attachment, const gchar *encoding); gchar *midgard_blob_read_content (MidgardBlob *self, gsize *bytes_read); gboolean midgard_blob_write_content (MidgardBlob *self, const gchar *content); GIOChannel *midgard_blob_get_handler (MidgardBlob *self, const gchar *mode, GError **error); const gchar *midgard_blob_get_path (MidgardBlob *self); gboolean midgard_blob_exists (MidgardBlob *self); gboolean midgard_blob_remove_file (MidgardBlob *self, GError **error); G_END_DECLS #endif /* _MIDGARD_BLOB_H */ midgard2-core-10.05.7.1/src/query_group_constraint.c0000664000175000017500000000652311772046240017156 00000000000000/* * Copyright (C) 2007 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "query_group_constraint.h" #include "query_constraint.h" #include "midgard_object.h" G_DEFINE_TYPE(MidgardCoreQueryGroupConstraint, midgard_core_query_group_constraint, G_TYPE_OBJECT) MidgardCoreQueryGroupConstraint *midgard_core_query_group_constraint_new(void) { MidgardCoreQueryGroupConstraint *self = g_object_new(MIDGARD_CORE_TYPE_QUERY_GROUP_CONSTRAINT, NULL); return self; } static const gchar *valid_types[] = {"OR", "AND", NULL }; gboolean midgard_core_query_group_constraint_type_is_valid(const gchar *type) { guint i; for (i = 0; valid_types[i] != NULL; i++) { if (g_str_equal(type, valid_types[i])) return TRUE; } if (valid_types[i] == NULL) { /* FIXME, emmit signal here */ g_warning("Invalid group operator type %s", type); return FALSE; } return TRUE; } void midgard_core_query_group_constraint_add_sql( MidgardCoreQueryGroupConstraint *self, GString *sql) { g_assert(self != NULL); g_assert(sql != NULL); if(self->priv->constraints == NULL) return; g_string_append_printf(sql, " %s ( ", self->priv->group_type); g_string_append(sql, " )"); } /* GOBJECT ROUTINES */ MidgardCoreQueryGroupConstraintPrivate *midgard_core_query_group_constraint_private_new() { MidgardCoreQueryGroupConstraintPrivate *priv = g_new(MidgardCoreQueryGroupConstraintPrivate, 1); priv->group_type = NULL; priv->constraints = NULL; return priv; } void midgard_core_query_group_constraint_private_free( MidgardCoreQueryGroupConstraintPrivate *priv) { g_assert(priv != NULL); if(priv->group_type != NULL) g_free(priv->group_type); GSList *list = NULL; /* free constraints */ for(list = priv->constraints; list != NULL; list = list->next) g_object_unref(list->data); if(priv->constraints) { g_slist_free(priv->constraints); priv->constraints = NULL; } return; } static void midgard_core_query_group_constraint_init(MidgardCoreQueryGroupConstraint *self) { g_assert(self != NULL); self->priv = midgard_core_query_group_constraint_private_new(); } static void midgard_core_query_group_constraint_finalize(GObject *object) { g_assert(object != NULL); MidgardCoreQueryGroupConstraint *self = MIDGARD_CORE_QUERY_GROUP_CONSTRAINT(object); midgard_core_query_group_constraint_private_free(self->priv); } static void midgard_core_query_group_constraint_class_init( MidgardCoreQueryGroupConstraintClass *klass) { g_assert(klass != NULL); klass->parent.finalize = midgard_core_query_group_constraint_finalize; klass->add_sql = midgard_core_query_group_constraint_add_sql; } midgard2-core-10.05.7.1/src/midgard_config_auto.h.in0000664000175000017500000000105411772046240016721 00000000000000 #define MIDGARD_LIB_PREFIX "@prefix@" #define MIDGARD_GLOBAL_SCHEMA "@prefix@/share/midgard2/MidgardObjects.xml" /* Define directory path where all 'local' schemas are stored. * Global schema is basic midgard schema , while local ones are defined * per virtual host or per application. */ #define MIDGARD_LSCHEMA_DIR "@prefix@/share/midgard2/schema" #define MIDGARD_SHARE_DIR "@prefix@/share/midgard2" #define MIDGARD_LIB_VERSION "@VERSION@" #define MIDGARD_LIB_VERSION_STRING "@VERSION_STRING@" #define MIDGARD_DBUS_SUPPORT @MIDGARD_DBUS_SUPPORT@ midgard2-core-10.05.7.1/src/midgard_quota.h0000664000175000017500000000264211772046240015154 00000000000000/* * Copyright (C) 2005, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUOTA_H #define MIDGARD_QUOTA_H #include "midgard_object.h" guint midgard_quota_get_object_size (MidgardObject *object); gboolean midgard_quota_create (MidgardObject *object); gboolean midgard_quota_update (MidgardObject *object, guint init_size); void midgard_quota_remove (MidgardObject *object, guint size); void midgard_quota_set_type_size (MidgardConnection *mgd, const gchar *typename, guint size, guint records); guint midgard_quota_get_type_size (MidgardConnection *mgd, const gchar *typename); gboolean midgard_quota_size_is_reached (MidgardObject *object, gint size); #endif /* MIDGARD_QUOTA_H */ midgard2-core-10.05.7.1/src/midgard_schema_object_factory.c0000664000175000017500000003350311772046240020333 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_schema_object_factory.h" #include "midgard_object.h" #include "guid.h" #include "midgard_error.h" #include #include "midgard_core_query.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" #include "midgard_repligard.h" /** * midgard_schema_object_factory_get_object_by_guid: * @mgd: #MidgardConnection instance * @guid: guid which identifies object to look for * * Creates new instance of the class defined in Midgard Schema. * * Cases to return %NULL: * * * Given guid is not a valid guid (MGD_ERR_NOT_EXISTS) * * * There's no object identified by given guid (MGD_ERR_NOT_EXISTS) * * * Object identified by given guid is deleted (MGD_ERR_OBJECT_DELETED) * * * Object identified by given guid is purged (MGD_ERR_OBJECT_PURGED) * * * Object identified by given guid doesn't provide 'metadata' or 'deleted' property (MGD_ERR_INVALID_PROPERTY) * * * * Returns: (transfer full): #MidgardObject derived new instance or %NULL on failure * Since: 10.05 */ MidgardObject* midgard_schema_object_factory_get_object_by_guid (MidgardConnection *mgd, const gchar *guid) { g_return_val_if_fail (mgd != NULL, NULL); g_return_val_if_fail (guid != NULL, NULL); MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); if (!midgard_is_guid (guid)) { MIDGARD_ERRNO_SET (mgd, MGD_ERR_NOT_EXISTS); return NULL; } MidgardObject *object = NULL; MidgardDBObject *repligard = NULL; GError *error = NULL; GValue gval = {0, }; g_value_init (&gval, G_TYPE_STRING); g_value_set_string (&gval, guid); midgard_core_query_get_object (mgd, g_type_name (MIDGARD_TYPE_REPLIGARD), &repligard, &error, "reference", &gval, NULL); g_value_unset (&gval); if (error) { MIDGARD_ERRNO_SET_STRING (mgd, error->code, "%s", error->message); g_clear_error (&error); if (repligard) g_object_unref (G_OBJECT (repligard)); return FALSE; } guint action = 0; gchar *classname; g_object_get (repligard, "action", &action, "type", &classname, NULL); g_object_unref (repligard); if (!classname || (classname && *classname == '\0')) { g_warning("Database inconsistency!. Expected classname string in repligard typename (%s)", guid); return NULL; } switch (action) { case MGD_OBJECT_ACTION_DELETE: MIDGARD_ERRNO_SET (mgd, MGD_ERR_OBJECT_DELETED); break; case MGD_OBJECT_ACTION_PURGE: MIDGARD_ERRNO_SET (mgd, MGD_ERR_OBJECT_PURGED); break; default: g_value_init(&gval, G_TYPE_STRING); g_value_set_string (&gval, guid); object = midgard_object_new (mgd, classname, &gval); g_value_unset (&gval); if (!object) { MIDGARD_ERRNO_SET (mgd, MGD_ERR_NOT_EXISTS); } break; } g_free (classname); return object; } static void __get_parentclass_name (const gchar *classname, GList **list) { MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS_BY_NAME (classname); MgdSchemaTypeAttr *type_attr = midgard_core_class_get_type_attr (MIDGARD_DBOBJECT_CLASS (klass)); const gchar *pname = (const gchar *)type_attr->parent; if (pname != NULL) { *list = g_list_prepend (*list, (gpointer) pname); __get_parentclass_name (pname, list); } return; } static gboolean __get_id_from_path_element (MidgardConnection *mgd, const gchar *table, const gchar *name, const gchar *field, guint val, MidgardObjectClass *klass, guint *rval) { const gchar *unique_name = MGD_DBCLASS_PROPERTY_UNIQUE (klass); const gchar *deleted_field = midgard_core_object_get_deleted_field (MIDGARD_DBOBJECT_CLASS (klass)); GString *where = g_string_new (""); if (deleted_field) g_string_append_printf (where, "%s = '%s' AND %s = %d AND %s = 0 ", unique_name, name, field, val, deleted_field); else g_string_append_printf (where, "%s = '%s' AND %s = %d ", unique_name, name, field, val); GValue *value = midgard_core_query_get_field_value (mgd, "id", table, where->str); g_string_free (where, TRUE); if (!value) return FALSE; guint _id = 0; if (G_VALUE_HOLDS_UINT (value)) _id = g_value_get_uint (value); if (G_VALUE_HOLDS_INT (value)) _id = g_value_get_int (value); g_value_unset (value); g_free (value); *rval = _id; return TRUE; } /** * midgard_schema_object_factory_get_object_by_path: * @mgd: #MidgardConnection instance * @classname: name of the class, new instance should be created for * @path: path which identifies object * * Get object by path. Path elements are objects' names. * To get top object with empty name use "/" path. * Also empty name is allowed in given path: "/A/B//D". * * Cases to return %NULL: * * * Object identified by given path doesn't exist (MGD_ERR_NOT_EXISTS) * * * Given @classname doesn't support tree functionality (MGD_ERR_NOT_INTERNAL) * * * Given @classname doesn't provide 'id' or unique named property (MGD_ERR_NOT_INTERNAL) * * * * Returns: (transfer full): #MidgardObject derived, new @classname instance or %NULL * Since: 10.05 */ MidgardObject* midgard_schema_object_factory_get_object_by_path (MidgardConnection *mgd, const gchar *classname, const gchar *path) { g_return_val_if_fail (mgd != NULL, NULL); g_return_val_if_fail (classname != NULL, NULL); g_return_val_if_fail (path != NULL, NULL); GType class_type = g_type_from_name (classname); if (class_type == G_TYPE_INVALID || !g_type_is_a (class_type, MIDGARD_TYPE_DBOBJECT)) { g_warning ("Invalid '%s' classname. Expected MidgardDBObject derived one", classname); /* TODO, add error */ return NULL; } MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); gchar *object_path = NULL; if (g_str_has_prefix (path, "//")) g_warning ("Empty element in object's path '%s'", path); if (g_str_has_prefix (path, "/")) { object_path = g_strdup (path); } else { object_path = g_strconcat ("/", path, NULL); } /* Add classname to list */ GList *plist = NULL; plist = g_list_prepend (plist, NULL); plist = g_list_prepend (plist, (gpointer) classname); /* "Walk" tree till NULL parent found */ __get_parentclass_name (classname, &plist); gchar **pelts = g_strsplit (object_path, "/", 0); g_free (object_path); guint i = 1; const gchar *tablename; gchar *_cname; MidgardObjectClass *klass; const gchar *property_up, *property_parent; guint oid, _oid; gboolean id_exists = FALSE; do { if (i == 1) oid = 0; else oid = _oid; if(plist->data == NULL) { g_strfreev (pelts); g_list_free (plist); MIDGARD_ERRNO_SET(mgd, MGD_ERR_NOT_EXISTS); return NULL; } _cname = (gchar *)plist->data; klass = MIDGARD_OBJECT_GET_CLASS_BY_NAME (_cname); tablename = midgard_core_class_get_table (MIDGARD_DBOBJECT_CLASS(klass)); property_parent = MGD_DBCLASS_PROPERTY_PARENT (klass); property_up = MGD_DBCLASS_PROPERTY_UP (klass); if (!property_parent && !property_up) { g_strfreev (pelts); g_list_free (plist); MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "%s doesn't support tree functionality", _cname); return NULL; } /* FIXME, replace 'name' with unique property */ GParamSpec *namespec, *idspec; namespec = g_object_class_find_property (G_OBJECT_CLASS(klass), "name"); idspec = g_object_class_find_property (G_OBJECT_CLASS(klass), "id"); if (!namespec || !idspec) { g_strfreev (pelts); g_list_free (plist); MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "%s class has no 'name' or 'id' member registered", _cname); return NULL; } if (property_parent) { id_exists = __get_id_from_path_element (mgd, tablename, (const gchar *)pelts[i], property_parent, oid, klass, &_oid); if (id_exists) goto _GET_NEXT_PATH_ELEMENT; } /* Try to get object using up property */ if (property_up) { id_exists = __get_id_from_path_element (mgd, tablename, (const gchar *)pelts[i], property_up, oid, klass, &_oid); if (id_exists > 0) goto _GET_NEXT_PATH_ELEMENT; } if (!id_exists) { plist = plist->next; continue; } _GET_NEXT_PATH_ELEMENT: i++; if (pelts[i] == NULL) { GValue idval = {0, }; g_value_init (&idval, G_TYPE_UINT); g_value_set_uint (&idval, _oid); MidgardObject *object = midgard_object_new (mgd, _cname, &idval); g_value_unset (&idval); g_list_free (plist); g_strfreev (pelts); return object; } } while (pelts[i] != NULL); if (plist) g_list_free (plist); MIDGARD_ERRNO_SET (mgd, MGD_ERR_NOT_EXISTS); return NULL; } /** * midgard_schema_object_factory_object_undelete: * @mgd: #MidgardConnection instance * @guid: guid which identifies object to undelete * * Cases to return %FALSE: * * * Object identified by given guid doesn't exist (MGD_ERR_NOT_EXISTS) * * * Object identified by given guid is purged (MGD_ERR_OBJECT_PURGED) * * * Object identified by given guid is not deleted (MGD_ERR_USER_DATA) * * * Either object's or repligard's record couldn't be updated (MGD_ERR_INTERNAL) * * * * Returns: %TRUE on success, %FALSE otherwise * Since: 10.05 */ gboolean midgard_schema_object_factory_object_undelete (MidgardConnection *mgd, const gchar *guid) { g_return_val_if_fail (mgd != NULL, FALSE); g_return_val_if_fail (guid != NULL, FALSE); MidgardObjectClass *klass; gint rv; gboolean ret; MIDGARD_ERRNO_SET (mgd, MGD_ERR_OK); MidgardDBObject *repligard = NULL; GError *error = NULL; GValue gval = {0, }; g_value_init (&gval, G_TYPE_STRING); g_value_set_string (&gval, guid); midgard_core_query_get_object (mgd, g_type_name (MIDGARD_TYPE_REPLIGARD), &repligard, &error, "guid", &gval, NULL); g_value_unset (&gval); if (error) { MIDGARD_ERRNO_SET_STRING (mgd, error->code, "%s", error->message); g_clear_error (&error); if (repligard) g_object_unref (G_OBJECT (repligard)); return FALSE; } guint action = 0; gchar *classname; g_object_get (repligard, "action", &action, "type", &classname, NULL); g_object_unref (repligard); switch (action) { case MGD_OBJECT_ACTION_DELETE: klass = MIDGARD_OBJECT_GET_CLASS_BY_NAME (classname); const gchar *tablename = midgard_core_class_get_table (MIDGARD_DBOBJECT_CLASS(klass)); const gchar *deleted_field = midgard_core_object_get_deleted_field (MIDGARD_DBOBJECT_CLASS (klass)); if (!deleted_field) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INVALID_PROPERTY, "Object identified by %s guid doesn't provide 'metadata' or 'deleted' property", guid); return FALSE; } /* Update object's metadata */ GString *sql = g_string_new ("UPDATE "); g_string_append_printf (sql, "%s SET metadata_deleted=0 WHERE guid = '%s'", tablename, guid); rv = midgard_core_query_execute (mgd, sql->str, FALSE); g_string_free (sql, TRUE); /* Update repligard record */ sql = g_string_new ("UPDATE "); g_string_append_printf (sql, "repligard SET object_action=%d WHERE guid = '%s'", MGD_OBJECT_ACTION_UPDATE, guid); guint rep_rv = midgard_core_query_execute (mgd, sql->str, FALSE); g_string_free (sql, TRUE); if (rv == 0 || rep_rv == 0) { MIDGARD_ERRNO_SET (mgd, MGD_ERR_INTERNAL); } else { ret = TRUE; } break; case MGD_OBJECT_ACTION_PURGE: MIDGARD_ERRNO_SET (mgd, MGD_ERR_OBJECT_PURGED); break; case MGD_OBJECT_ACTION_NONE: MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_USER_DATA, "Object identified by %s guid is not deleted", guid); break; } g_free (classname); return ret; } /** * midgard_schema_object_factory_create_object: * @mgd: #MidgardConnection instance * @classname: name of the class created object is instance of * @value: value which holds object's identifier * * Check midgard_object_new() for returned value and possible errors. * * Returns: (transfer full): new #MidgardObject derived instance or NULL * Since: 10.05.1 */ MidgardObject* midgard_schema_object_factory_create_object(MidgardConnection *mgd, const gchar *classname, GValue *value) { g_return_val_if_fail (mgd != NULL, NULL); g_return_val_if_fail (classname != NULL, NULL); return midgard_object_new (mgd, classname, value); } /* GOBJECT ROUTINES */ static void _midgard_schema_object_factory_class_init (MidgardSchemaObjectFactoryClass *klass, gpointer class_data) { /* Do nothing atm */ return; } GType midgard_schema_object_factory_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardSchemaObjectFactoryClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_schema_object_factory_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardSchemaObjectFactory), 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardSchemaObjectFactory", &info, G_TYPE_FLAG_ABSTRACT); } return type; } midgard2-core-10.05.7.1/src/midgard_core_object.c0000664000175000017500000005474111772046240016303 00000000000000/* * Copyright (C) 2006 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include #include #include #include #include #include #include "midgard_defs.h" #include "midgard_datatypes.h" #include "midgard_error.h" #include "midgard_core_object.h" #include "midgard_core_query.h" #include "midgard_reflection_property.h" #include "midgard_collector.h" #include "midgard_blob.h" #include "midgard_user.h" #include "midgard_object.h" #include "midgard_metadata.h" #include "guid.h" #include "midgard_core_metadata.h" #include "midgard_core_object_class.h" #include "midgard_schema_object_factory.h" static const gchar *MIDGARD_OBJECT_HREF = "http://www.midgard-project.org/midgard_object/1.8"; static void _write_nodes(GObject *object, xmlNodePtr node) { g_assert(object); g_assert(node); guint prop_n; MidgardObject *mgdobject = (MidgardObject *)object; MidgardReflectionProperty *mrp = NULL; MidgardObjectClass *klass = NULL; GParamSpec **pspec = g_object_class_list_properties( G_OBJECT_GET_CLASS(G_OBJECT(object)), &prop_n); if(MIDGARD_IS_OBJECT(object)) { klass = MIDGARD_OBJECT_GET_CLASS(object); if(klass) mrp = midgard_reflection_property_new( MIDGARD_DBOBJECT_CLASS(klass)); } GValue pval = {0, }, *lval; GString *gstring; gchar *strprop = NULL; xmlChar *escaped; guint i; xmlNodePtr op_node = NULL; const gchar *linktype; MidgardCollector *mc; guint _uint; gint _int; GObject *_object; if(MIDGARD_IS_OBJECT(mgdobject)) { gint object_action = -1; if(MGD_OBJECT_GUID (mgdobject)) { GString *_sql = g_string_new(" "); g_string_append_printf(_sql, "guid = '%s' ", MGD_OBJECT_GUID (mgdobject)); gchar *tmpstr = g_string_free(_sql, FALSE); GValue *avalue = midgard_core_query_get_field_value( MGD_OBJECT_CNC (mgdobject), "object_action", "repligard", (const gchar*)tmpstr); if(avalue) { MIDGARD_GET_UINT_FROM_VALUE(object_action, avalue); g_value_unset(avalue); g_free(avalue); } g_free(tmpstr); } gchar *_action; if(object_action > -1) { switch(object_action) { case MGD_OBJECT_ACTION_CREATE: _action = "created"; break; case MGD_OBJECT_ACTION_UPDATE: _action = "updated"; break; case MGD_OBJECT_ACTION_DELETE: _action = "deleted"; break; case MGD_OBJECT_ACTION_PURGE: _action = "purged"; break; default: _action = "none"; break; } xmlNewProp(node, BAD_CAST "action", BAD_CAST _action); } } for(i = 0; i < prop_n; i++) { g_value_init(&pval,pspec[i]->value_type); g_object_get_property(G_OBJECT(object), pspec[i]->name, &pval); if(g_str_equal("guid", pspec[i]->name)) { /* Add guid attribute */ xmlNewProp(node, BAD_CAST "guid", BAD_CAST MGD_OBJECT_GUID (object)); g_value_unset(&pval); continue; } /* Object is not fetched from database. Skip references */ if(MGD_OBJECT_GUID (mgdobject) == NULL) goto export_unchecked_property; /* If property is a link we need to query guid * which identifies link object. Only if property * is not of guid or string type */ if(mrp){ if(midgard_reflection_property_is_link(mrp, pspec[i]->name)){ lval = g_new0(GValue, 1); switch(pspec[i]->value_type) { case G_TYPE_UINT: g_value_init(lval, G_TYPE_UINT); _uint = g_value_get_uint(&pval); if(!_uint){ g_value_unset(lval); g_free(lval); goto export_unchecked_property; } g_value_set_uint(lval, _uint); break; case G_TYPE_INT: g_value_init(lval, G_TYPE_INT); _int = g_value_get_int(&pval); if(!_int){ g_value_unset(lval); g_free(lval); goto export_unchecked_property; } g_value_set_int(lval, _int); break; default: g_free(lval); goto export_unchecked_property; } linktype = midgard_reflection_property_get_link_name( mrp, pspec[i]->name); if(linktype){ mc = midgard_collector_new( MGD_OBJECT_CNC (mgdobject), linktype, "id", lval); midgard_collector_set_key_property( mc, "guid", NULL); if(!midgard_collector_execute(mc)){ g_object_unref(mc); g_value_unset(&pval); continue; } gchar **linkguid = midgard_collector_list_keys(mc); if(linkguid){ if(linkguid[0]) strprop = g_strdup(linkguid[0]); } if(!strprop) strprop = g_strdup(""); /* Create node */ escaped = xmlEncodeEntitiesReentrant( NULL, (const xmlChar*)strprop); xmlNewTextChild(node, NULL, BAD_CAST pspec[i]->name, BAD_CAST escaped); g_free(linkguid); g_free(strprop); g_free(escaped); g_object_unref(mc); } g_value_unset(&pval); continue; } } export_unchecked_property: switch (G_TYPE_FUNDAMENTAL(pspec[i]->value_type)) { case G_TYPE_STRING: strprop = g_value_dup_string(&pval); if(!strprop) strprop = g_strdup(""); escaped = xmlEncodeEntitiesReentrant( NULL, (const xmlChar*)strprop); xmlNewTextChild(node, NULL, BAD_CAST pspec[i]->name, BAD_CAST escaped); g_free(strprop); g_free(escaped); break; case G_TYPE_INT: gstring = g_string_new(""); g_string_append_printf(gstring, "%d", g_value_get_int(&pval)); xmlNewChild(node, NULL, BAD_CAST pspec[i]->name, BAD_CAST (xmlChar *)gstring->str); g_string_free (gstring, TRUE); break; case G_TYPE_UINT: gstring = g_string_new(""); g_string_append_printf(gstring, "%d", g_value_get_uint(&pval)); xmlNewChild(node, NULL, BAD_CAST pspec[i]->name, BAD_CAST (xmlChar *)gstring->str); g_string_free (gstring, TRUE); break; case G_TYPE_FLOAT: gstring = g_string_new(""); g_string_append_printf(gstring, "%g", g_value_get_float(&pval)); xmlNewChild(node, NULL, BAD_CAST pspec[i]->name, BAD_CAST (xmlChar *)gstring->str); g_string_free (gstring, TRUE); break; case G_TYPE_BOOLEAN: if(g_value_get_boolean(&pval)) strprop = "1"; else strprop = "0"; xmlNewChild(node, NULL, BAD_CAST pspec[i]->name, BAD_CAST (xmlChar *)strprop); break; case G_TYPE_OBJECT: _object = g_value_get_object (&pval); if (_object) { op_node = xmlNewNode(NULL, BAD_CAST pspec[i]->name); _write_nodes(_object, op_node); xmlAddChild(node, op_node); } break; default: if (pspec[i]->value_type == MIDGARD_TYPE_TIMESTAMP) { GValue strval = {0, }; g_value_init (&strval, G_TYPE_STRING); g_value_transform (&pval, &strval); xmlNewChild(node, NULL, BAD_CAST pspec[i]->name, BAD_CAST (xmlChar *)g_value_get_string (&strval)); g_value_unset (&strval); } else { g_warning ("midgard_replicator_serialize: unhandled %s property type (%s)", pspec[i]->name, g_type_name (pspec[i]->value_type)); } } g_value_unset(&pval); } g_free(pspec); if(mrp) g_object_unref(mrp); } gchar *midgard_core_object_to_xml(GObject *object) { g_assert(object); xmlDocPtr doc = NULL; xmlNodePtr root_node = NULL; LIBXML_TEST_VERSION; doc = xmlNewDoc(BAD_CAST "1.0"); root_node = xmlNewNode(NULL, BAD_CAST "midgard_object"); xmlNewNs(root_node, BAD_CAST MIDGARD_OBJECT_HREF, NULL); xmlNodePtr object_node = xmlNewNode(NULL, BAD_CAST G_OBJECT_TYPE_NAME(G_OBJECT(object))); /* Add purged info */ /* We could add this attribute in _write_nodes function * but this could corrupt xsd compatibility for midgard_metadata nodes. * So it's added here and for every multilingual content */ xmlNewProp(object_node, BAD_CAST "purge", BAD_CAST "no"); xmlAddChild(root_node, object_node); xmlDocSetRootElement(doc, root_node); _write_nodes(G_OBJECT(object), object_node); xmlChar *buf; gint size; xmlDocDumpFormatMemoryEnc(doc, &buf, &size, "UTF-8", 1); xmlFreeDoc(doc); xmlCleanupParser(); return (gchar*) buf; } xmlDoc *midgard_core_object_create_xml_doc(void) { xmlDocPtr doc = NULL; xmlNodePtr root_node = NULL; doc = xmlNewDoc(BAD_CAST "1.0"); root_node = xmlNewNode(NULL, BAD_CAST "midgard_object"); xmlNewNs(root_node, BAD_CAST MIDGARD_OBJECT_HREF, NULL); xmlDocSetRootElement(doc, root_node); return doc; } xmlNode *_get_type_node(xmlNode *node) { xmlNode *cur = NULL; for (cur = node; cur; cur = cur->next) { if (cur->type == XML_ELEMENT_NODE) return cur; } return NULL; } gboolean _nodes2object(GObject *object, xmlNode *node, gboolean force) { g_assert(object); g_assert(node); xmlNode *cur = NULL; GObject *prop_object; gchar *nodeprop = NULL; xmlChar *decoded; xmlParserCtxtPtr parser; MidgardObject *mobject = NULL; MidgardObject *lobject = NULL; MidgardReflectionProperty *mrp = NULL; const gchar *linktype = NULL; if(MIDGARD_IS_OBJECT(object)) { mobject = MIDGARD_OBJECT(object); MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS(mobject); if(klass) mrp = midgard_reflection_property_new( MIDGARD_DBOBJECT_CLASS(klass)); } gpointer set_from_xml_func = MIDGARD_DBOBJECT_GET_CLASS(object)->dbpriv->set_from_xml_node; if(set_from_xml_func != NULL) { MIDGARD_DBOBJECT_GET_CLASS(object)->dbpriv->set_from_xml_node(MIDGARD_DBOBJECT(object), node); return TRUE; } for (cur = node; cur; cur = cur->next) { if (cur->type == XML_ELEMENT_NODE) { linktype = NULL; GParamSpec *pspec = g_object_class_find_property( G_OBJECT_GET_CLASS(G_OBJECT(object)), (const gchar *)cur->name); if(pspec) { GValue pval = {0, }; g_value_init(&pval, pspec->value_type); if(nodeprop) g_free(nodeprop); nodeprop = (gchar *)xmlNodeGetContent(cur); if(mrp) { if(midgard_reflection_property_is_link( mrp, pspec->name)){ linktype = midgard_reflection_property_get_link_name( mrp, pspec->name); } } /* moved out from mrp condition check to avoid nested indents */ if(linktype && midgard_is_guid( (const gchar *) nodeprop)){ /* Just set property quickly, if property holds a guid */ GType mtype = midgard_reflection_property_get_midgard_type(mrp, pspec->name); if (mtype == MGD_TYPE_GUID) { g_value_unset(&pval); g_object_set(mobject, (const gchar *)cur->name, nodeprop, NULL); continue; } /* we can use nodeprop directly */ lobject = midgard_schema_object_factory_get_object_by_guid ( MIDGARD_DBOBJECT (mobject)->dbpriv->mgd, (const gchar *) nodeprop); if(!lobject && !force){ g_object_unref(mrp); g_value_unset(&pval); midgard_set_error(MGD_OBJECT_CNC (mobject), MGD_GENERIC_ERROR, MGD_ERR_MISSED_DEPENDENCE, " Can not import %s. " "No '%s' object identified by '%s'", G_OBJECT_TYPE_NAME(object), linktype, nodeprop); g_clear_error(&MIDGARD_DBOBJECT (mobject)->dbpriv->mgd->err); return FALSE; } /* When force parameter is set we do not translate guids to ids */ if(force && !lobject && midgard_is_guid( (const gchar *) nodeprop)) { switch(pspec->value_type) { case G_TYPE_UINT: g_value_set_uint(&pval, 0); break; case G_TYPE_INT: g_value_set_int(&pval, 0); break; default: goto set_property_unchecked; break; } g_object_set_property( G_OBJECT(object), (const gchar *) cur->name, &pval); g_value_unset(&pval); continue; } GValue tval = {0, }; g_value_init(&tval, pspec->value_type); g_object_get_property(G_OBJECT(lobject), "id", &tval); if(G_VALUE_TYPE(&pval) == G_TYPE_INT) g_value_transform((const GValue *) &tval, &pval); else g_value_copy((const GValue*) &tval, &pval); g_object_set_property( G_OBJECT(object), (const gchar *) cur->name, &pval); g_value_unset(&pval); g_object_unref(lobject); g_value_unset(&tval); continue; } set_property_unchecked: switch (G_TYPE_FUNDAMENTAL (pspec->value_type)) { case G_TYPE_STRING: parser = xmlNewParserCtxt(); decoded = xmlStringDecodeEntities(parser, (const xmlChar *) nodeprop, XML_SUBSTITUTE_REF, 0, 0, 0); g_value_set_string(&pval, (gchar *)decoded); g_free(decoded); xmlFreeParserCtxt(parser); break; case G_TYPE_INT: if(nodeprop) g_value_set_int(&pval, (gint)atoi((gchar *)nodeprop)); break; case G_TYPE_UINT: if(nodeprop) g_value_set_uint(&pval, (guint)atoi((gchar *)nodeprop)); break; case G_TYPE_FLOAT: g_value_set_float(&pval, (gfloat)atof((gchar *)nodeprop)); break; case G_TYPE_BOOLEAN: g_value_set_boolean(&pval, (gboolean)atoi((gchar*)nodeprop)); break; case G_TYPE_OBJECT: g_object_get(G_OBJECT(object), (const gchar *) cur->name, &prop_object, NULL); if (prop_object) { _nodes2object(prop_object, cur->children, force); g_value_set_object(&pval, prop_object); } else { g_warning ("Failed to unserialize '%s' object property. Expected to be initialized by given '%s' instance", (const gchar *) cur->name, G_OBJECT_TYPE_NAME (object)); } break; default: /* do nothing */ break; } g_object_set_property( G_OBJECT(object), (const gchar *) cur->name, &pval); g_value_unset(&pval); } else { g_warning("Undefined property '%s' for '%s'", cur->name, G_OBJECT_TYPE_NAME(object)); } } } if(nodeprop) g_free(nodeprop); if(mrp) g_object_unref(mrp); return TRUE; } void midgard_core_object_get_xml_doc( MidgardConnection *mgd, const gchar *xml, xmlDoc **doc, xmlNode **root_node) { g_assert(*doc == NULL); g_assert(*root_node == NULL); if(xml == NULL) g_warning("Creating Midgard Object from xml requires xml." "NULL passed"); LIBXML_TEST_VERSION /* midgard_object.xml is a dummy base URL in this case */ *doc = xmlReadMemory(xml, strlen(xml), "midgard_object.xml", NULL, 0); if(!*doc) { g_warning("Can not parse given xml"); return; } *root_node = xmlDocGetRootElement(*doc); if(!*root_node) { g_warning("Can not find root element for given xml"); xmlFreeDoc(*doc); doc = NULL; return; } /* TODO : Get version from href and fail if invalid version exists */ if(!g_str_equal((*root_node)->ns->href, MIDGARD_OBJECT_HREF) || !g_str_equal((*root_node)->name, "midgard_object")) { g_warning("Skipping invalid midgard_object xml"); xmlFreeDoc(*doc); *doc = NULL; *root_node = NULL; return; } } GObject **midgard_core_object_from_xml(MidgardConnection *mgd, const gchar *xml, gboolean force) { xmlDoc *doc = NULL; xmlNode *root = NULL; midgard_core_object_get_xml_doc(mgd, xml, &doc, &root); if(doc == NULL && root == NULL) return NULL; /* we can try to get type name , so we can create schema object instance */ /* Piotras: Either I am blind or there is no explicit libxml2 API call * to get child node explicitly. That's why _get_type_node is used */ xmlNodePtr child = _get_type_node(root->children); if(!child) { g_warning("Can not get midgard type name from the given xml"); xmlFreeDoc(doc); return NULL; } guint _n_nodes = 0; MidgardObject **_objects = NULL; GSList *olist = NULL; for(; child; child = _get_type_node(child->next)) { if(!g_type_from_name((const gchar *)child->name)) { g_error("Type %s is not initialized in type system", child->name); xmlFreeDoc(doc); return NULL; } /* Make any gobject instance. Avoid needless type name comparison. */ GType object_type = g_type_from_name((const gchar *)child->name); GObject *object = g_object_new(object_type, "connection", mgd, NULL); if(!object) { g_error("Can not create %s instance", child->name); xmlFreeDoc(doc); return NULL; } /* DBObject instance so we need to set its connection */ //if(MIDGARD_IS_DBOBJECT(object)) // midgard_object_set_connection(MIDGARD_OBJECT(object), mgd); if(child->children && !_nodes2object(G_OBJECT(object), child->children, force)) { g_object_unref(object); object = NULL; } else { xmlChar *attr = xmlGetProp(child, BAD_CAST "purge"); if(g_str_equal(attr, "yes") && MIDGARD_IS_DBOBJECT(object)) { if (MIDGARD_IS_OBJECT (object)) { g_object_set(object, "action", "purged", NULL); xmlFree(attr); attr = NULL; } attr = xmlGetProp(child, BAD_CAST "guid"); MIDGARD_DBOBJECT(object)->dbpriv->guid = (const gchar *) g_strdup((gchar *)attr); xmlFree(attr); if(MIDGARD_IS_OBJECT(object)) { gchar *purged = (gchar *) xmlGetProp(child, BAD_CAST "purged"); GValue strval = {0, }; g_value_init(&strval, G_TYPE_STRING); g_value_set_string(&strval, purged); midgard_core_metadata_set_revised(MGD_DBOBJECT_METADATA(object), (const GValue*)&strval); g_value_unset(&strval); } olist = g_slist_prepend(olist, object); _n_nodes++; continue; } if(attr) xmlFree(attr); if (MIDGARD_IS_OBJECT (object)) { xmlChar *action_attr = xmlGetProp(child, BAD_CAST "action"); g_object_set(G_OBJECT(object), "action", (gchar *) action_attr, NULL); xmlFree(action_attr); } olist = g_slist_prepend(olist, object); _n_nodes++; /* Set guid, do not free attr, it will be freed when object * is destroyed */ attr = xmlGetProp(child, BAD_CAST "guid"); if (attr) { if(MIDGARD_IS_DBOBJECT(object)) MIDGARD_DBOBJECT(object)->dbpriv->guid = g_strdup((const gchar *)attr); if(MIDGARD_IS_BLOB(object)) MIDGARD_BLOB(object)->priv->parentguid = g_strdup((gchar *)attr); xmlFree(attr); } } } if(_n_nodes > 0) { _objects = g_new(MidgardObject *, _n_nodes+1); _n_nodes = 0; GSList *l = NULL; for(l = olist; l != NULL ; l = l->next){ _objects[_n_nodes] = l->data; _n_nodes++; } if (olist) g_slist_free(olist); _objects[_n_nodes] = NULL; } xmlFreeDoc(doc); xmlCleanupParser(); return (GObject **) _objects; } /* Returns TRUE if property is private and caller is not allowed to read/write it. */ gboolean midgard_core_object_property_refuse_private (MidgardConnection *mgd, MgdSchemaTypeAttr *type, MidgardDBObject *object, const gchar *property) { /* Unknown case, no connection */ if (mgd == NULL) return FALSE; g_return_val_if_fail (property != NULL, FALSE); MgdSchemaTypeAttr *type_attr = type; MidgardDBObjectClass *klass = NULL; if (object) klass = MIDGARD_DBOBJECT_GET_CLASS (object); /* TODO, check if it's valid for cases like collector usage */ /* g_return_val_if_fail (object != NULL && type_attr != NULL, FALSE); */ if (!type_attr && object) type_attr = klass->dbpriv->storage_data; /* Unknown case, no storage_data which means something like no property */ g_return_val_if_fail (type_attr != NULL, FALSE); MgdSchemaPropertyAttr *attr = midgard_core_schema_type_property_lookup (type_attr, property); if (!attr) return FALSE; if (!attr->is_private) return FALSE; /* No object, so no chance to check metadata.creator. * There might be corner case or feature work around, so refuse unconditionally. */ if (!object) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_ACCESS_DENIED, "No object. Can not check private property owner"); return TRUE; } /* Also, no user, and anonymous is not allowed. * If user exists, and has no person associated, refuse as well. */ MidgardObject *person = MGD_CNC_PERSON (mgd); if (!mgd->priv->user) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_ACCESS_DENIED, "No user logged in"); return TRUE; } if (!person) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_ACCESS_DENIED, "Can not check property owner. No person associated with logged in user"); return TRUE; } /* OK, so we have admin, allow */ if (midgard_user_is_admin (mgd->priv->user)) return FALSE; const gchar *person_guid = MGD_OBJECT_GUID (person); /* Something really strange, person has no guid associated */ if (!person_guid) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_ACCESS_DENIED, "Midgard person identified by empty guid"); return TRUE; } gchar *creator_guid = NULL; if (MIDGARD_IS_OBJECT (object)) { MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (object); creator_guid = metadata->priv->creator; } /* TODO, sooner or later we will need metadata->owner check */ /* No creator for this object. Might be very old in db or not set at all. * Refuse, we do not know this. */ if (!creator_guid) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_ACCESS_DENIED, "Object's metadata holds null value instead of creator guid"); return TRUE; } /* Finally, user which is logged in is the same person which created * object in question. Allow. */ if (g_str_equal (person_guid, creator_guid)) return FALSE; MIDGARD_ERRNO_SET (mgd, MGD_ERR_ACCESS_DENIED); return TRUE; } /* Returns field name of 'deleted' property or NULL if none is defined */ const gchar* midgard_core_object_get_deleted_field(MidgardDBObjectClass *dbklass) { g_return_val_if_fail (dbklass != NULL, NULL); GParamSpec *pspec = NULL; MidgardMetadataClass *mklass = MGD_DBCLASS_METADATA_CLASS (dbklass); if (mklass == NULL) { pspec = g_object_class_find_property (G_OBJECT_CLASS (dbklass), METADATA_PROPERTY_DELETED); if (pspec) midgard_core_class_get_property_colname (dbklass, METADATA_PROPERTY_DELETED); return NULL; } pspec = g_object_class_find_property (G_OBJECT_CLASS (mklass), METADATA_PROPERTY_DELETED); if (pspec) return METADATA_FIELD_DELETED; return NULL; } midgard2-core-10.05.7.1/src/midgard_core_object_class.h0000664000175000017500000000352411772046240017466 00000000000000/* * Copyright (C) 2006 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_CORE_OBJECT_CLASS_H #define MIDGARD_CORE_OBJECT_CLASS_H #include "midgard_object.h" #include "schema.h" gboolean midgard_core_object_is_valid (MidgardObject *object); void midgard_core_object_class_set_guid (GObject *object, const gchar *guid); void midgard_core_object_class_set_midgard (MidgardConnection *mgd, GObject *object); MgdSchemaTypeAttr *midgard_core_class_get_type_attr (MidgardDBObjectClass *klass); const gchar *midgard_core_class_get_table (MidgardDBObjectClass *klass); const gchar *midgard_core_class_get_tables (MidgardDBObjectClass *klass); MgdSchemaPropertyAttr *midgard_core_class_get_property_attr (MidgardDBObjectClass *klass, const gchar *name); const gchar *midgard_core_class_get_property_table (MidgardDBObjectClass *klass, const gchar *name); const gchar *midgard_core_class_get_property_colname (MidgardDBObjectClass *klass, const gchar *name); const gchar *midgard_core_class_get_property_tablefield (MidgardDBObjectClass *klass, const gchar *name); #endif /* MIDGARD_CORE_OBJECT_CLASS_H */ midgard2-core-10.05.7.1/src/midgard_base_interface.h0000664000175000017500000000341211772046240016751 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef _MIDGARD_BASE_INTERFACE_H #define _MIDGARD_BASE_INTERFACE_H #include G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_BASE_INTERFACE (midgard_base_interface_get_type()) #define MIDGARD_BASE_INTERFACE(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_BASE_INTERFACE, MidgardBaseInterface)) #define MIDGARD_IS_BASE_INTERFACE(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_BASE_INTERFACE)) #define MIDGARD_BASE_INTERFACE_GET_INTERFACE(inst) (G_TYPE_INSTANCE_GET_INTERFACE ((inst), MIDGARD_TYPE_BASE_INTERFACE, MidgardBaseInterfaceIFace)) typedef struct _MidgardBaseInterface MidgardBaseInterface; /* dummy */ typedef struct _MidgardBaseInterfaceIFace MidgardBaseInterfaceIFace; typedef struct _MidgardBaseInterfacePrivate MidgardBaseInterfacePrivate; struct _MidgardBaseInterfaceIFace { GTypeInterface parent; MidgardBaseInterfacePrivate *priv; }; GType midgard_base_interface_get_type (void); G_END_DECLS #endif /* MIDGARD_BASE_INTERFACE_H */ midgard2-core-10.05.7.1/src/midgard_base_abstract.h0000664000175000017500000000362111772046240016616 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef _MIDGARD_BASE_ABSTRACT_H #define _MIDGARD_BASE_ABSTRACT_H #include #include "midgard_dbobject.h" #define MIDGARD_TYPE_BASE_ABSTRACT (midgard_base_abstract_get_type()) #define MIDGARD_BASE_ABSTRACT(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), MIDGARD_TYPE_BASE_ABSTRACT, MidgardBaseAbstract)) #define MIDGARD_BASE_ABSTRACT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((klass), MIDGARD_TYPE_BASE_ABSTRACT, MidgardBaseAbstractClass)) #define MIDGARD_IS_BASE_ABSTRACT(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), MIDGARD_TYPE_BASE_ABSTRACT)) #define MIDGARD_IS_BASE_ABSTRACT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), MIDGARD_TYPE_BASE_ABSTRACT)) #define MIDGARD_BASE_ABSTRACT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), MIDGARD_TYPE_BASE_ABSTRACT, MidgardBaseAbstractClass)) typedef struct _MidgardBaseAbstract MidgardBaseAbstract; typedef struct _MidgardBaseAbstractClass MidgardBaseAbstractClass; struct _MidgardBaseAbstract { GObject parent; }; struct _MidgardBaseAbstractClass { GObjectClass parent; }; GType midgard_base_abstract_get_type(void); #endif /* MIDGARD_BASE_ABSTRACT_H */ midgard2-core-10.05.7.1/src/midgard_core_metadata.c0000664000175000017500000002556011772046240016612 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "midgard_core_metadata.h" #include "midgard_core_query.h" #define __SET_METADATA_PROPERTY_STRING(__property, __mstrval) { \ if (!__mstrval) \ return; \ g_free (__property); \ if (G_VALUE_TYPE (__mstrval) == GDA_TYPE_NULL) { \ __property = g_strdup (""); \ /* FIXME, buils select with explicitly defined Gda parameters */ \ } else if (!G_VALUE_HOLDS_STRING (__mstrval)) { \ GValue sval = {0, }; \ g_value_init (&sval, G_TYPE_STRING); \ g_value_transform (__mstrval, &sval); \ __property = g_value_dup_string (&sval); \ g_value_unset (&sval); \ } else { \ __property = g_value_dup_string (__mstrval); \ } \ if (!__property) __property = g_strdup (""); \ } #define __SET_METADATA_PROPERTY_DATE_FROM_STRING(__property, __mstrval) { \ g_assert (__mstrval != NULL); \ GTimeVal timeval; \ g_time_val_from_iso8601(__mstrval, &timeval); \ g_date_set_time_val(__property, &timeval); } #define __SET_METADATA_PROPERTY_DATE_FROM_GVALUE(__property, __value) { \ g_assert (__value != NULL); \ /* if (__property != NULL) \ g_value_unset (__property); */ \ GValue __mt = {0, }; \ g_value_init (&__mt, MGD_TYPE_TIMESTAMP); \ if (G_VALUE_TYPE(__value) == MGD_TYPE_TIMESTAMP) \ g_value_copy(__value, &__mt); \ else \ g_value_transform(__value, &__mt); \ g_free (__property); \ __property = (MidgardTimestamp *) g_value_dup_boxed (&__mt); \ g_value_unset (&__mt); } /* setters */ void midgard_core_metadata_set_creator (MidgardMetadata *self, const GValue *creator) { __SET_METADATA_PROPERTY_STRING (self->priv->creator, creator); } void midgard_core_metadata_set_created (MidgardMetadata *self, const GValue *created) { __SET_METADATA_PROPERTY_DATE_FROM_GVALUE (self->priv->created, created); } void midgard_core_metadata_set_revisor (MidgardMetadata *self, const GValue *revisor) { __SET_METADATA_PROPERTY_STRING (self->priv->revisor, revisor); } void midgard_core_metadata_set_revised (MidgardMetadata *self, const GValue *revised) { __SET_METADATA_PROPERTY_DATE_FROM_GVALUE (self->priv->revised, revised); } void midgard_core_metadata_set_revision (MidgardMetadata *self, const GValue *revision) { if (G_VALUE_HOLDS_UINT (revision)) self->priv->revision = g_value_get_uint (revision); if (G_VALUE_HOLDS_INT (revision)) self->priv->revision = g_value_get_int (revision); } void midgard_core_metadata_set_locker (MidgardMetadata *self, const GValue *locker) { __SET_METADATA_PROPERTY_STRING (self->priv->locker, locker); } void midgard_core_metadata_set_locked (MidgardMetadata *self, const GValue *locked) { __SET_METADATA_PROPERTY_DATE_FROM_GVALUE (self->priv->locked, locked); } void midgard_core_metadata_set_approver (MidgardMetadata *self, const GValue *approver) { __SET_METADATA_PROPERTY_STRING (self->priv->approver, approver); } void midgard_core_metadata_set_approved (MidgardMetadata *self, const GValue *approved) { __SET_METADATA_PROPERTY_DATE_FROM_GVALUE (self->priv->approved, approved); } void midgard_core_metadata_set_authors (MidgardMetadata *self, const GValue *authors) { __SET_METADATA_PROPERTY_STRING (self->priv->authors, authors); } void midgard_core_metadata_set_owner (MidgardMetadata *self, const GValue *owner) { __SET_METADATA_PROPERTY_STRING (self->priv->owner, owner); } void midgard_core_metadata_set_size (MidgardMetadata *self, const GValue *size) { if (G_VALUE_HOLDS_UINT (size)) self->priv->size = g_value_get_uint (size); if (G_VALUE_HOLDS_INT (size) && g_value_get_int (size) > 0) self->priv->size = g_value_get_int (size); } void midgard_core_metadata_set_exported (MidgardMetadata *self, const GValue *exported) { __SET_METADATA_PROPERTY_DATE_FROM_GVALUE (self->priv->exported, exported); } void midgard_core_metadata_set_imported (MidgardMetadata *self, const GValue *imported) { __SET_METADATA_PROPERTY_DATE_FROM_GVALUE(self->priv->imported, imported); } void midgard_core_metadata_set_deleted (MidgardMetadata *self, const GValue *deleted) { MIDGARD_GET_BOOLEAN_FROM_VALUE (self->priv->deleted, deleted); } void midgard_core_metadata_set_isapproved (MidgardMetadata *self, const GValue *isapproved) { MIDGARD_GET_BOOLEAN_FROM_VALUE (self->priv->is_approved, isapproved); } void midgard_core_metadata_set_islocked (MidgardMetadata *self, const GValue *islocked) { MIDGARD_GET_BOOLEAN_FROM_VALUE (self->priv->is_locked, islocked); } void midgard_core_metadata_set_schedule_start (MidgardMetadata *self, const GValue *schedule) { __SET_METADATA_PROPERTY_DATE_FROM_GVALUE (self->priv->schedule_start, schedule); } void midgard_core_metadata_set_schedule_end (MidgardMetadata *self, const GValue *schedule) { __SET_METADATA_PROPERTY_DATE_FROM_GVALUE (self->priv->schedule_end, schedule); } void midgard_core_metadata_set_published (MidgardMetadata *self, const GValue *published) { __SET_METADATA_PROPERTY_DATE_FROM_GVALUE (self->priv->published, published); } void midgard_core_metadata_set_score (MidgardMetadata *self, const GValue *score) { if (G_VALUE_HOLDS_INT (score)) self->priv->score = g_value_get_int (score); if (G_VALUE_HOLDS_UINT (score)) self->priv->score = g_value_get_uint (score); } void midgard_core_metadata_set_hidden (MidgardMetadata *self, const GValue *hidden) { MIDGARD_GET_BOOLEAN_FROM_VALUE (self->priv->hidden, hidden); } void midgard_core_metadata_set_navnoentry (MidgardMetadata *self, const GValue *nav) { MIDGARD_GET_BOOLEAN_FROM_VALUE (self->priv->nav_noentry, nav); } /* routines */ void midgard_core_metadata_increase_revision (MidgardMetadata *self) { self->priv->revision++; } #define get_varchar_size(__prop) \ if (__prop == NULL) \ size++; \ else \ size += strlen((const gchar *)__prop) + 1; guint midgard_core_metadata_get_size (MidgardMetadata *self) { guint size = 0; /* CHAR */ /* creator */ get_varchar_size (self->priv->creator); /* revisor */ get_varchar_size (self->priv->revisor); /* locker */ get_varchar_size (self->priv->locker); /* authors */ get_varchar_size (self->priv->authors); /* owner */ get_varchar_size (self->priv->owner); /* DATETIME */ /* datetime needs 8 bytes (MySQL at least). * I do not use strlen here to avoid GValue conversion */ /* created, revised, locked, approved, published, schedulestart, * scheduleend, locked, approved, exported, imported */ size += (11 * 8); /* BOOLEAN */ /* hidden, nav-noentry , revision, is_locked, is_approved, deleted */ size += (6 * 4); /* INT */ /* size, score */ size += (2 * 4); return size; } /* This is temporary routine. Ragnaroek compatible. * If it's needed for longer period, core's timestamp API should be provided */ void __copy_date (const MidgardTimestamp *src, MidgardTimestamp **copy) { GValue srcv = {0, }; GValue dstv = {0, }; g_value_init (&srcv, MGD_TYPE_TIMESTAMP); g_value_init (&dstv, MGD_TYPE_TIMESTAMP); g_value_set_boxed (&srcv, src); g_value_copy(&srcv, &dstv); *copy = (MidgardTimestamp *) g_value_dup_boxed (&dstv); g_value_unset (&srcv); g_value_unset (&dstv); return; } MidgardMetadata * midgard_core_metadata_copy(MidgardMetadata *src) { g_assert (src != NULL); /* Initialize it that way so all callbacks are correctly set */ MidgardMetadata *copy = midgard_metadata_new (src->priv->object); g_assert (copy != NULL); midgard_core_metadata_copy_properties (src, copy); return copy; } void midgard_core_metadata_copy_properties (MidgardMetadata *src, MidgardMetadata *copy) { g_return_if_fail (src != NULL); g_return_if_fail (copy != NULL); GValue sval = {0, }; if (src->priv->creator != NULL) { g_value_init (&sval, G_TYPE_STRING); g_value_set_string (&sval, src->priv->creator); midgard_core_metadata_set_creator (copy, &sval); g_value_unset (&sval); } if (src->priv->revisor != NULL) { g_value_init (&sval, G_TYPE_STRING); g_value_set_string (&sval, src->priv->revisor); midgard_core_metadata_set_revisor (copy, &sval); g_value_unset (&sval); } if (src->priv->locker != NULL) { g_value_init (&sval, G_TYPE_STRING); g_value_set_string (&sval, src->priv->locker); midgard_core_metadata_set_creator (copy, &sval); g_value_unset (&sval); } if (src->priv->approver != NULL) { g_value_init (&sval, G_TYPE_STRING); g_value_set_string (&sval, src->priv->approver); midgard_core_metadata_set_approver (copy, &sval); g_value_unset (&sval); } if (src->priv->authors != NULL) { g_free (copy->priv->authors); copy->priv->authors = g_strdup (src->priv->authors); } if (src->priv->owner != NULL ) { g_free (copy->priv->owner); copy->priv->owner = g_strdup (src->priv->owner); } __copy_date (src->priv->approved, ©->priv->approved); __copy_date (src->priv->created, ©->priv->created); __copy_date (src->priv->exported, ©->priv->exported); __copy_date (src->priv->imported, ©->priv->imported); __copy_date (src->priv->locked, ©->priv->locked); __copy_date (src->priv->published, ©->priv->published); __copy_date (src->priv->revised, ©->priv->revised); __copy_date (src->priv->schedule_start, ©->priv->schedule_start); __copy_date (src->priv->schedule_end, ©->priv->schedule_end); copy->priv->approve_is_set = src->priv->approve_is_set; copy->priv->deleted = src->priv->deleted; copy->priv->hidden = src->priv->hidden; copy->priv->is_approved = src->priv->is_approved; copy->priv->is_locked = src->priv->is_locked; copy->priv->lock_is_set = src->priv->lock_is_set; copy->priv->nav_noentry = src->priv->nav_noentry; copy->priv->revision = src->priv->revision; copy->priv->score = src->priv->score; copy->priv->size = src->priv->size; return; } static GObjectClass *__parent_class = NULL; gboolean midgard_core_metadata_dbpriv_set_property (MidgardDBObject *self, const gchar *name, GValue *value) { if (!__parent_class) __parent_class = g_type_class_peek_parent (G_OBJECT_GET_CLASS (self)); gchar *datamodel_property = g_strconcat ("metadata_", name, NULL); MidgardDBObject *dbobject = MIDGARD_DBOBJECT (MIDGARD_METADATA (self)->priv->object); gboolean rv = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->set_property (dbobject, datamodel_property, value); g_free (datamodel_property); return rv; } midgard2-core-10.05.7.1/src/midgard_md5.c0000664000175000017500000002457311772046240014512 00000000000000/* * md5.c - Copyright 1997 Lachlan Roche */ #include #include #include "midgard_md5.h" /* * The remaining code is the reference MD5 code (md5c.c) from rfc1321 */ /* MD5C.C - RSA Data Security, Inc., MD5 message-digest algorithm */ /* Copyright (C) 1991-2, RSA Data Security, Inc. Created 1991. All rights reserved. License to copy and use this software is granted provided that it is identified as the "RSA Data Security, Inc. MD5 Message-Digest Algorithm" in all material mentioning or referencing this software or this function. License is also granted to make and use derivative works provided that such works are identified as "derived from the RSA Data Security, Inc. MD5 Message-Digest Algorithm" in all material mentioning or referencing the derived work. RSA Data Security, Inc. makes no representations concerning either the merchantability of this software or the suitability of this software for any particular purpose. It is provided "as is" without express or implied warranty of any kind. These notices must be retained in any copies of any part of this documentation and/or software. */ /* Constants for MIDGARD_MD5Transform routine. */ #define S11 7 #define S12 12 #define S13 17 #define S14 22 #define S21 5 #define S22 9 #define S23 14 #define S24 20 #define S31 4 #define S32 11 #define S33 16 #define S34 23 #define S41 6 #define S42 10 #define S43 15 #define S44 21 static void MIDGARD_MD5Transform(unsigned int[4], const unsigned char[64]); static void Encode(unsigned char *, unsigned int *, unsigned int); static void Decode(unsigned int *, const unsigned char *, unsigned int); static void MIDGARD_MD5_memcpy(void *, void *, unsigned int); static void MIDGARD_MD5_memset(void *, int, unsigned int); static unsigned char PADDING[64] = { 0x80, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; /* F, G, H and I are basic MIDGARD_MD5 functions. */ #define F(x, y, z) (((x) & (y)) | ((~x) & (z))) #define G(x, y, z) (((x) & (z)) | ((y) & (~z))) #define H(x, y, z) ((x) ^ (y) ^ (z)) #define I(x, y, z) ((y) ^ ((x) | (~z))) /* ROTATE_LEFT rotates x left n bits. */ #define ROTATE_LEFT(x, n) (((x) << (n)) | ((x) >> (32-(n)))) /* FF, GG, HH, and II transformations for rounds 1, 2, 3, and 4. Rotation is separate from addition to prevent recomputation. */ #define FF(a, b, c, d, x, s, ac) { \ (a) += F ((b), (c), (d)) + (x) + (unsigned int)(ac); \ (a) = ROTATE_LEFT ((a), (s)); \ (a) += (b); \ } #define GG(a, b, c, d, x, s, ac) { \ (a) += G ((b), (c), (d)) + (x) + (unsigned int)(ac); \ (a) = ROTATE_LEFT ((a), (s)); \ (a) += (b); \ } #define HH(a, b, c, d, x, s, ac) { \ (a) += H ((b), (c), (d)) + (x) + (unsigned int)(ac); \ (a) = ROTATE_LEFT ((a), (s)); \ (a) += (b); \ } #define II(a, b, c, d, x, s, ac) { \ (a) += I ((b), (c), (d)) + (x) + (unsigned int)(ac); \ (a) = ROTATE_LEFT ((a), (s)); \ (a) += (b); \ } /* MIDGARD_MD5 initialization. Begins an MIDGARD_MD5 operation, writing a new context. */ void MIDGARD_MD5_Init(MIDGARD_MD5_CTX * context) { context->count[0] = context->count[1] = 0; /* Load magic initialization constants. */ context->state[0] = 0x67452301; context->state[1] = 0xefcdab89; context->state[2] = 0x98badcfe; context->state[3] = 0x10325476; } /* MIDGARD_MD5 block update operation. Continues an MIDGARD_MD5 message-digest operation, processing another message block, and updating the context. */ void MIDGARD_MD5_Update(MIDGARD_MD5_CTX * context, const unsigned char *input, unsigned int inputLen) { unsigned int i, index, partLen; /* Compute number of bytes mod 64 */ index = (unsigned int) ((context->count[0] >> 3) & 0x3F); /* Update number of bits */ if ((context->count[0] += ((unsigned int) inputLen << 3)) < ((unsigned int) inputLen << 3)) context->count[1]++; context->count[1] += ((unsigned int) inputLen >> 29); partLen = 64 - index; /* Transform as many times as possible. */ if (inputLen >= partLen) { MIDGARD_MD5_memcpy ((void *) &context->buffer[index], (void *) input, partLen); MIDGARD_MD5Transform(context->state, context->buffer); for (i = partLen; i + 63 < inputLen; i += 64) MIDGARD_MD5Transform(context->state, &input[i]); index = 0; } else i = 0; /* Buffer remaining input */ MIDGARD_MD5_memcpy ((void *) &context->buffer[index], (void *) &input[i], inputLen - i); } /* MIDGARD_MD5 finalization. Ends an MIDGARD_MD5 message-digest operation, writing the the message digest and zeroizing the context. */ void MIDGARD_MD5_Final(unsigned char digest[16], MIDGARD_MD5_CTX * context) { unsigned char bits[8]; unsigned int index, padLen; /* Save number of bits */ Encode(bits, context->count, 8); /* Pad out to 56 mod 64. */ index = (unsigned int) ((context->count[0] >> 3) & 0x3f); padLen = (index < 56) ? (56 - index) : (120 - index); MIDGARD_MD5_Update(context, PADDING, padLen); /* Append length (before padding) */ MIDGARD_MD5_Update(context, bits, 8); /* Store state in digest */ Encode(digest, context->state, 16); /* Zeroize sensitive information. */ MIDGARD_MD5_memset((void *) context, 0, sizeof (*context)); } /* MIDGARD_MD5 basic transformation. Transforms state based on block. */ static void MIDGARD_MD5Transform(state, block) unsigned int state[4]; const unsigned char block[64]; { unsigned int a = state[0], b = state[1], c = state[2], d = state[3], x[16]; Decode(x, block, 64); /* Round 1 */ FF(a, b, c, d, x[0], S11, 0xd76aa478); /* 1 */ FF(d, a, b, c, x[1], S12, 0xe8c7b756); /* 2 */ FF(c, d, a, b, x[2], S13, 0x242070db); /* 3 */ FF(b, c, d, a, x[3], S14, 0xc1bdceee); /* 4 */ FF(a, b, c, d, x[4], S11, 0xf57c0faf); /* 5 */ FF(d, a, b, c, x[5], S12, 0x4787c62a); /* 6 */ FF(c, d, a, b, x[6], S13, 0xa8304613); /* 7 */ FF(b, c, d, a, x[7], S14, 0xfd469501); /* 8 */ FF(a, b, c, d, x[8], S11, 0x698098d8); /* 9 */ FF(d, a, b, c, x[9], S12, 0x8b44f7af); /* 10 */ FF(c, d, a, b, x[10], S13, 0xffff5bb1); /* 11 */ FF(b, c, d, a, x[11], S14, 0x895cd7be); /* 12 */ FF(a, b, c, d, x[12], S11, 0x6b901122); /* 13 */ FF(d, a, b, c, x[13], S12, 0xfd987193); /* 14 */ FF(c, d, a, b, x[14], S13, 0xa679438e); /* 15 */ FF(b, c, d, a, x[15], S14, 0x49b40821); /* 16 */ /* Round 2 */ GG(a, b, c, d, x[1], S21, 0xf61e2562); /* 17 */ GG(d, a, b, c, x[6], S22, 0xc040b340); /* 18 */ GG(c, d, a, b, x[11], S23, 0x265e5a51); /* 19 */ GG(b, c, d, a, x[0], S24, 0xe9b6c7aa); /* 20 */ GG(a, b, c, d, x[5], S21, 0xd62f105d); /* 21 */ GG(d, a, b, c, x[10], S22, 0x2441453); /* 22 */ GG(c, d, a, b, x[15], S23, 0xd8a1e681); /* 23 */ GG(b, c, d, a, x[4], S24, 0xe7d3fbc8); /* 24 */ GG(a, b, c, d, x[9], S21, 0x21e1cde6); /* 25 */ GG(d, a, b, c, x[14], S22, 0xc33707d6); /* 26 */ GG(c, d, a, b, x[3], S23, 0xf4d50d87); /* 27 */ GG(b, c, d, a, x[8], S24, 0x455a14ed); /* 28 */ GG(a, b, c, d, x[13], S21, 0xa9e3e905); /* 29 */ GG(d, a, b, c, x[2], S22, 0xfcefa3f8); /* 30 */ GG(c, d, a, b, x[7], S23, 0x676f02d9); /* 31 */ GG(b, c, d, a, x[12], S24, 0x8d2a4c8a); /* 32 */ /* Round 3 */ HH(a, b, c, d, x[5], S31, 0xfffa3942); /* 33 */ HH(d, a, b, c, x[8], S32, 0x8771f681); /* 34 */ HH(c, d, a, b, x[11], S33, 0x6d9d6122); /* 35 */ HH(b, c, d, a, x[14], S34, 0xfde5380c); /* 36 */ HH(a, b, c, d, x[1], S31, 0xa4beea44); /* 37 */ HH(d, a, b, c, x[4], S32, 0x4bdecfa9); /* 38 */ HH(c, d, a, b, x[7], S33, 0xf6bb4b60); /* 39 */ HH(b, c, d, a, x[10], S34, 0xbebfbc70); /* 40 */ HH(a, b, c, d, x[13], S31, 0x289b7ec6); /* 41 */ HH(d, a, b, c, x[0], S32, 0xeaa127fa); /* 42 */ HH(c, d, a, b, x[3], S33, 0xd4ef3085); /* 43 */ HH(b, c, d, a, x[6], S34, 0x4881d05); /* 44 */ HH(a, b, c, d, x[9], S31, 0xd9d4d039); /* 45 */ HH(d, a, b, c, x[12], S32, 0xe6db99e5); /* 46 */ HH(c, d, a, b, x[15], S33, 0x1fa27cf8); /* 47 */ HH(b, c, d, a, x[2], S34, 0xc4ac5665); /* 48 */ /* Round 4 */ II(a, b, c, d, x[0], S41, 0xf4292244); /* 49 */ II(d, a, b, c, x[7], S42, 0x432aff97); /* 50 */ II(c, d, a, b, x[14], S43, 0xab9423a7); /* 51 */ II(b, c, d, a, x[5], S44, 0xfc93a039); /* 52 */ II(a, b, c, d, x[12], S41, 0x655b59c3); /* 53 */ II(d, a, b, c, x[3], S42, 0x8f0ccc92); /* 54 */ II(c, d, a, b, x[10], S43, 0xffeff47d); /* 55 */ II(b, c, d, a, x[1], S44, 0x85845dd1); /* 56 */ II(a, b, c, d, x[8], S41, 0x6fa87e4f); /* 57 */ II(d, a, b, c, x[15], S42, 0xfe2ce6e0); /* 58 */ II(c, d, a, b, x[6], S43, 0xa3014314); /* 59 */ II(b, c, d, a, x[13], S44, 0x4e0811a1); /* 60 */ II(a, b, c, d, x[4], S41, 0xf7537e82); /* 61 */ II(d, a, b, c, x[11], S42, 0xbd3af235); /* 62 */ II(c, d, a, b, x[2], S43, 0x2ad7d2bb); /* 63 */ II(b, c, d, a, x[9], S44, 0xeb86d391); /* 64 */ state[0] += a; state[1] += b; state[2] += c; state[3] += d; /* Zeroize sensitive information. */ MIDGARD_MD5_memset((void *) x, 0, sizeof (x)); } /* Encodes input (unsigned int) into output (unsigned char). Assumes len is a multiple of 4. */ static void Encode(output, input, len) unsigned char *output; unsigned int *input; unsigned int len; { unsigned int i, j; for (i = 0, j = 0; j < len; i++, j += 4) { output[j] = (unsigned char) (input[i] & 0xff); output[j + 1] = (unsigned char) ((input[i] >> 8) & 0xff); output[j + 2] = (unsigned char) ((input[i] >> 16) & 0xff); output[j + 3] = (unsigned char) ((input[i] >> 24) & 0xff); } } /* Decodes input (unsigned char) into output (unsigned int). Assumes len is a multiple of 4. */ static void Decode(output, input, len) unsigned int *output; const unsigned char *input; unsigned int len; { unsigned int i, j; for (i = 0, j = 0; j < len; i++, j += 4) output[i] = ((unsigned int) input[j]) | (((unsigned int) input[j + 1]) << 8) | (((unsigned int) input[j + 2]) << 16) | (((unsigned int) input[j + 3]) << 24); } /* Note: Replace "for loop" with standard memcpy if possible. */ static void MIDGARD_MD5_memcpy(output, input, len) void *output; void *input; unsigned int len; { /* unsigned int i; */ memmove(output, input, len * sizeof (void)); /* for (i = 0; i < len; i++) output[i] = input[i]; */ } /* Note: Replace "for loop" with standard memset if possible. */ static void MIDGARD_MD5_memset(output, value, len) void *output; int value; unsigned int len; { memset(output, (char) value, len); /* unsigned int i; for (i = 0; i < len; i++) ((char *) output)[i] = (char) value; */ } midgard2-core-10.05.7.1/src/midgard_object_attachment.c0000664000175000017500000002014311772046240017470 00000000000000/* * Copyright (C) 2008 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_core_object.h" #include "midgard_object.h" #include "midgard_core_object_parameter.h" #include "midgard_error.h" /** * midgard_object_list_attachments: * @self: a #MidgardObject self instance * @n_objects: (out): pointer to store number of returned objects * * Returned objects are midgard_attachment class. Attachments objects are * fetched from database unconditionally. * That is, only those which parent guid property matches object's guid. * * Returned array should be freed when no longer needed. * * Returns: (array length=n_objects) (transfer full): Newly allocated and NULL terminated array of midgard_attachment objects. */ MidgardObject **midgard_object_list_attachments(MidgardObject *self, guint *n_objects) { g_return_val_if_fail(self != NULL, NULL); g_return_val_if_fail(MGD_OBJECT_GUID (self) != NULL, NULL); g_return_val_if_fail(MGD_OBJECT_CNC (self) != NULL, NULL); MidgardObject **objects = NULL; guint i = 0; objects = midgard_core_object_parameters_list (MGD_OBJECT_CNC (self), "midgard_attachment", MGD_OBJECT_GUID (self)); if (!objects) return NULL; while (objects[i] != NULL) i++; *n_objects = i; return objects; } /** * midgard_object_create_attachment: * @self: #MidgardObject instance * @name: name for attachment * @title: its title * @mimetype: and mimetype * * Creates object's attachment using given properties. * Any property may be explicitly set to NULL. * * Returns: (transfer full): newly created #MidgardObject of midgard_attachment class or %NULL on failure */ MidgardObject *midgard_object_create_attachment(MidgardObject *self, const gchar *name, const gchar *title, const gchar *mimetype) { g_return_val_if_fail(self != NULL, NULL); if(!MGD_OBJECT_GUID (self)) { g_warning("Object is not fetched from database. Empty guid"); return NULL; } guint n_params, i = 0; /* Check if there's duplicate name */ if(name != NULL && *name != '\0') { MidgardQueryBuilder *builder = midgard_query_builder_new(MGD_OBJECT_CNC (self), "midgard_attachment"); if(!builder) return NULL; GValue pval = {0, }; g_value_init(&pval, G_TYPE_STRING); g_value_set_string(&pval, MGD_OBJECT_GUID (self)); midgard_query_builder_add_constraint(builder, "parentguid", "=", &pval); g_value_unset(&pval); g_value_init(&pval, G_TYPE_STRING); g_value_set_string(&pval, name); midgard_query_builder_add_constraint(builder, "name", "=", &pval); g_value_unset(&pval); i = midgard_query_builder_count(builder); g_object_unref(builder); if(i > 0) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (self), MGD_ERR_OBJECT_NAME_EXISTS); return NULL; } } /* create parameters */ i = 0; if(name) i++; if(title) i++; if(mimetype) i++; n_params = i; GValue nval = {0, }; GValue tval = {0, }; GValue mval = {0, }; GParameter *parameters = NULL; /* TODO, implement parameters from va_list function if needed */ if(i > 0) { parameters = g_new0(GParameter, i); if(name) { i--; parameters[i].name = "name"; g_value_init(&nval, G_TYPE_STRING); g_value_set_string(&nval, name); parameters[i].value = nval; } if(title) { i--; parameters[i].name = "title"; g_value_init(&tval, G_TYPE_STRING); g_value_set_string(&tval, title); parameters[i].value = tval; } if(mimetype) { i--; parameters[i].name = "mimetype"; g_value_init(&mval, G_TYPE_STRING); g_value_set_string(&mval, mimetype); parameters[i].value = mval; } } MidgardObject *att = midgard_core_object_parameters_create(MGD_OBJECT_CNC (self), "midgard_attachment", MGD_OBJECT_GUID (self), n_params, parameters); for(i = 0; i < n_params; i++) { g_value_unset(¶meters[i].value); } g_free(parameters); return att; } /** * midgard_object_delete_attachments: * @self: #MidgardObject instance * @n_params: number of properties * @parameters: (allow-none): properties list * * Delete object's attachments(s) which match given properties' values. * Properties list in @parameters is optional. All object's attachments are * deleted ( if exist ) if @parameters is explicitly set to %NULL. * * Returns: %TRUE on success, %FALSE if at least one of the attachment could not be deleted */ gboolean midgard_object_delete_attachments(MidgardObject *self, guint n_params, const GParameter *parameters) { g_assert(self != NULL); if(!MGD_OBJECT_GUID (self)) { g_warning("Object is not fetched from database. Empty guid"); } return midgard_core_object_parameters_delete( MGD_OBJECT_CNC (self), "midgard_attachment", MGD_OBJECT_GUID (self), n_params, parameters); } /** * midgard_object_purge_attachments: * @self: #MidgardObject instance * @delete_blob: whether blob should be deleted as well * @n_params: number of properties * @parameters: (allow-none): properties list * * Purge object's attachments(s) which match given properties' values. * Properties list in @parameters is optional. All object's attachments are * purged ( if exist ) if @parameters is explicitly set to %NULL. * * @delete_blob should be set to %TRUE if midgard_attachment holds a reference * to blob located on filesystem ( it should be set to %TRUE by default ). * However, if midgard_attachment is created for blobs sharing and file should not * be deleted, @delete_blob should be set to %FALSE. * * There's no way to determine if midgard_attachment is sharing blob, so aplication * itelf is responsible to create such own logic. * * Returns: %TRUE on success, %FALSE if at least one of the attachment could not be purged */ gboolean midgard_object_purge_attachments(MidgardObject *self, gboolean delete_blob, guint n_params, const GParameter *parameters) { g_assert(self != NULL); if(!MGD_OBJECT_GUID (self)) { g_warning("Object is not fetched from database. Empty guid"); } gboolean rv = FALSE; if(delete_blob) { rv = midgard_core_object_parameters_purge_with_blob( MGD_OBJECT_CNC (self), "midgard_attachment", MGD_OBJECT_GUID (self), n_params, parameters); } else { rv = midgard_core_object_parameters_purge( MGD_OBJECT_CNC (self), "midgard_attachment", MGD_OBJECT_GUID (self), n_params, parameters); } return rv; } /** * midgard_object_find_attachments: * @self: #MidgardObject instance * @n_params: number of properties * @parameters: properties list * * Find object's attachment(s) with matching given properties. * @parameters argument is optional. All object's attachments are * returned ( if exist ) if @parameters is explicitly set to %NULL. * * Returns: (transfer full): newly created, NULL terminated array of #MidgardObject ( midgard_attachment class ) or %NULL on failure */ MidgardObject **midgard_object_find_attachments(MidgardObject *self, guint n_params, const GParameter *parameters) { g_assert(self != NULL); if(!MGD_OBJECT_GUID (self)) { g_warning("Object is not fetched from database. Empty guid"); } return midgard_core_object_parameters_find( MGD_OBJECT_CNC (self), "midgard_attachment", MGD_OBJECT_GUID (self), n_params, parameters); } /** * midgard_object_has_attachments: * @self: #MidgardObject instance * * Returns: %TRUE if object has attachments, %FALSE otherwise. */ gboolean midgard_object_has_attachments(MidgardObject *self) { g_assert(self != NULL); return midgard_core_object_has_parameters( MGD_OBJECT_CNC(self), "midgard_attachment", MGD_OBJECT_GUID(self)); } midgard2-core-10.05.7.1/src/query_order.c0000664000175000017500000000561511772046240014672 00000000000000/* * Copyright (C) 2007 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "query_order.h" #include #include "midgard_object.h" #include "midgard_core_query_builder.h" #include "query_constraint.h" static const gchar *valid_dirs[] = { "ASC", "DESC", NULL }; MidgardQueryOrder *midgard_core_query_order_new( MidgardQueryBuilder *builder, const gchar *name, const gchar *dir) { g_assert(builder != NULL); g_assert(name != NULL); const gchar *user_dir = dir; if(user_dir == NULL) user_dir = "ASC"; guint i = 0; while(valid_dirs[i] != NULL) { if (g_str_equal(user_dir, valid_dirs[i])) break; i++; } if(valid_dirs[i] == NULL) { g_warning("Invalid order direction: %s", dir); return NULL; } MidgardQueryOrder *order = g_new(MidgardQueryOrder, 1); order->constraint = midgard_core_query_constraint_new(); order->constraint->priv->order_dir = g_strdup(dir); /* Explicitly set builder. It's required for proper constraint's property "parser". * Without builder, implicit joins (for example) are not added */ midgard_core_query_constraint_set_builder(order->constraint, builder); MidgardDBObjectClass *klass = MIDGARD_DBOBJECT_CLASS(g_type_class_peek(builder->priv->type)); if(!midgard_core_query_constraint_parse_property(&(order->constraint), klass, name)) { midgard_core_query_order_free(order); return FALSE; } midgard_core_qb_add_table(builder, order->constraint->priv->prop_left->table); return order; } const gchar *midgard_core_query_order_get_sql(MidgardQueryOrder *order) { g_assert(order != NULL); if(order->constraint->priv->condition != NULL) return (const gchar *) order->constraint->priv->condition; GString *cond = g_string_new(""); g_string_append_printf(cond, "%s.%s %s", order->constraint->priv->prop_left->table, order->constraint->priv->prop_left->field, order->constraint->priv->order_dir); order->constraint->priv->condition = g_string_free(cond, FALSE); return (const gchar *) order->constraint->priv->condition; } void midgard_core_query_order_free(MidgardQueryOrder *order) { g_assert(order != NULL); g_object_unref(order->constraint); g_free(order); } midgard2-core-10.05.7.1/src/midgard_key_config.c0000664000175000017500000003143111772046240016131 00000000000000/* midgard_key_config.c generated by valac, the Vala compiler * generated from midgard_key_config.vala, do not modify */ /* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include #include #include #define MIDGARD_TYPE_KEY_CONFIG (midgard_key_config_get_type ()) #define MIDGARD_KEY_CONFIG(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG, MidgardKeyConfig)) #define MIDGARD_KEY_CONFIG_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG, MidgardKeyConfigClass)) #define MIDGARD_IS_KEY_CONFIG(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG)) #define MIDGARD_IS_KEY_CONFIG_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG)) #define MIDGARD_KEY_CONFIG_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG, MidgardKeyConfigClass)) typedef struct _MidgardKeyConfig MidgardKeyConfig; typedef struct _MidgardKeyConfigClass MidgardKeyConfigClass; typedef struct _MidgardKeyConfigPrivate MidgardKeyConfigPrivate; #define MIDGARD_TYPE_KEY_CONFIG_CONTEXT (midgard_key_config_context_get_type ()) #define MIDGARD_KEY_CONFIG_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContext)) #define MIDGARD_KEY_CONFIG_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContextClass)) #define MIDGARD_IS_KEY_CONFIG_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT)) #define MIDGARD_IS_KEY_CONFIG_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_KEY_CONFIG_CONTEXT)) #define MIDGARD_KEY_CONFIG_CONTEXT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_KEY_CONFIG_CONTEXT, MidgardKeyConfigContextClass)) typedef struct _MidgardKeyConfigContext MidgardKeyConfigContext; typedef struct _MidgardKeyConfigContextClass MidgardKeyConfigContextClass; #define _g_free0(var) (var = (g_free (var), NULL)) #define _g_object_unref0(var) ((var == NULL) ? NULL : (var = (g_object_unref (var), NULL))) struct _MidgardKeyConfig { GObject parent_instance; MidgardKeyConfigPrivate * priv; char* path; MidgardKeyConfigContext* context; }; struct _MidgardKeyConfigClass { GObjectClass parent_class; void (*set_value) (MidgardKeyConfig* self, const char* group, const char* key, const char* value); char* (*get_value) (MidgardKeyConfig* self, const char* group, const char* key); void (*set_comment) (MidgardKeyConfig* self, const char* group, const char* key, const char* comment); char* (*get_comment) (MidgardKeyConfig* self, const char* group, const char* key); char** (*list_groups) (MidgardKeyConfig* self, int* result_length1); gboolean (*group_exists) (MidgardKeyConfig* self, const char* name); gboolean (*delete_group) (MidgardKeyConfig* self, const char* name); gboolean (*store) (MidgardKeyConfig* self); gboolean (*load_from_data) (MidgardKeyConfig* self, const char* data); char* (*to_data) (MidgardKeyConfig* self); }; static gpointer midgard_key_config_parent_class = NULL; GType midgard_key_config_get_type (void); GType midgard_key_config_context_get_type (void); enum { MIDGARD_KEY_CONFIG_DUMMY_PROPERTY }; MidgardKeyConfig* midgard_key_config_construct (GType object_type, MidgardKeyConfigContext* keyctx, const char* path); void midgard_key_config_set_value (MidgardKeyConfig* self, const char* group, const char* key, const char* value); static void midgard_key_config_real_set_value (MidgardKeyConfig* self, const char* group, const char* key, const char* value); char* midgard_key_config_get_value (MidgardKeyConfig* self, const char* group, const char* key); static char* midgard_key_config_real_get_value (MidgardKeyConfig* self, const char* group, const char* key); void midgard_key_config_set_comment (MidgardKeyConfig* self, const char* group, const char* key, const char* comment); static void midgard_key_config_real_set_comment (MidgardKeyConfig* self, const char* group, const char* key, const char* comment); char* midgard_key_config_get_comment (MidgardKeyConfig* self, const char* group, const char* key); static char* midgard_key_config_real_get_comment (MidgardKeyConfig* self, const char* group, const char* key); char** midgard_key_config_list_groups (MidgardKeyConfig* self, int* result_length1); static char** midgard_key_config_real_list_groups (MidgardKeyConfig* self, int* result_length1); gboolean midgard_key_config_group_exists (MidgardKeyConfig* self, const char* name); static gboolean midgard_key_config_real_group_exists (MidgardKeyConfig* self, const char* name); gboolean midgard_key_config_delete_group (MidgardKeyConfig* self, const char* name); static gboolean midgard_key_config_real_delete_group (MidgardKeyConfig* self, const char* name); gboolean midgard_key_config_store (MidgardKeyConfig* self); static gboolean midgard_key_config_real_store (MidgardKeyConfig* self); gboolean midgard_key_config_load_from_data (MidgardKeyConfig* self, const char* data); static gboolean midgard_key_config_real_load_from_data (MidgardKeyConfig* self, const char* data); char* midgard_key_config_to_data (MidgardKeyConfig* self); static char* midgard_key_config_real_to_data (MidgardKeyConfig* self); static void midgard_key_config_finalize (GObject* obj); static gpointer _g_object_ref0 (gpointer self) { return self ? g_object_ref (self) : NULL; } MidgardKeyConfig* midgard_key_config_construct (GType object_type, MidgardKeyConfigContext* keyctx, const char* path) { MidgardKeyConfig * self; MidgardKeyConfigContext* _tmp0_; char* _tmp1_; g_return_val_if_fail (keyctx != NULL, NULL); g_return_val_if_fail (path != NULL, NULL); self = (MidgardKeyConfig*) g_object_new (object_type, NULL); self->context = (_tmp0_ = _g_object_ref0 (keyctx), _g_object_unref0 (self->context), _tmp0_); self->path = (_tmp1_ = g_strdup (path), _g_free0 (self->path), _tmp1_); return self; } static void midgard_key_config_real_set_value (MidgardKeyConfig* self, const char* group, const char* key, const char* value) { g_return_if_fail (self != NULL); g_return_if_fail (group != NULL); g_return_if_fail (key != NULL); g_return_if_fail (value != NULL); return; } void midgard_key_config_set_value (MidgardKeyConfig* self, const char* group, const char* key, const char* value) { MIDGARD_KEY_CONFIG_GET_CLASS (self)->set_value (self, group, key, value); } static char* midgard_key_config_real_get_value (MidgardKeyConfig* self, const char* group, const char* key) { char* result; char* value; g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (group != NULL, NULL); g_return_val_if_fail (key != NULL, NULL); value = NULL; result = value; return result; } char* midgard_key_config_get_value (MidgardKeyConfig* self, const char* group, const char* key) { return MIDGARD_KEY_CONFIG_GET_CLASS (self)->get_value (self, group, key); } static void midgard_key_config_real_set_comment (MidgardKeyConfig* self, const char* group, const char* key, const char* comment) { g_return_if_fail (self != NULL); g_return_if_fail (group != NULL); g_return_if_fail (key != NULL); g_return_if_fail (comment != NULL); return; } void midgard_key_config_set_comment (MidgardKeyConfig* self, const char* group, const char* key, const char* comment) { MIDGARD_KEY_CONFIG_GET_CLASS (self)->set_comment (self, group, key, comment); } static char* midgard_key_config_real_get_comment (MidgardKeyConfig* self, const char* group, const char* key) { char* result; char* comment; g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (group != NULL, NULL); g_return_val_if_fail (key != NULL, NULL); comment = NULL; result = comment; return result; } char* midgard_key_config_get_comment (MidgardKeyConfig* self, const char* group, const char* key) { return MIDGARD_KEY_CONFIG_GET_CLASS (self)->get_comment (self, group, key); } static char** midgard_key_config_real_list_groups (MidgardKeyConfig* self, int* result_length1) { char** result; gpointer _tmp0_; g_return_val_if_fail (self != NULL, NULL); result = (_tmp0_ = NULL, *result_length1 = 0, _tmp0_); return result; } char** midgard_key_config_list_groups (MidgardKeyConfig* self, int* result_length1) { return MIDGARD_KEY_CONFIG_GET_CLASS (self)->list_groups (self, result_length1); } static gboolean midgard_key_config_real_group_exists (MidgardKeyConfig* self, const char* name) { gboolean result; g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (name != NULL, FALSE); result = FALSE; return result; } gboolean midgard_key_config_group_exists (MidgardKeyConfig* self, const char* name) { return MIDGARD_KEY_CONFIG_GET_CLASS (self)->group_exists (self, name); } static gboolean midgard_key_config_real_delete_group (MidgardKeyConfig* self, const char* name) { gboolean result; g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (name != NULL, FALSE); result = FALSE; return result; } gboolean midgard_key_config_delete_group (MidgardKeyConfig* self, const char* name) { return MIDGARD_KEY_CONFIG_GET_CLASS (self)->delete_group (self, name); } static gboolean midgard_key_config_real_store (MidgardKeyConfig* self) { gboolean result; g_return_val_if_fail (self != NULL, FALSE); result = FALSE; return result; } gboolean midgard_key_config_store (MidgardKeyConfig* self) { return MIDGARD_KEY_CONFIG_GET_CLASS (self)->store (self); } static gboolean midgard_key_config_real_load_from_data (MidgardKeyConfig* self, const char* data) { gboolean result; g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (data != NULL, FALSE); result = FALSE; return result; } gboolean midgard_key_config_load_from_data (MidgardKeyConfig* self, const char* data) { return MIDGARD_KEY_CONFIG_GET_CLASS (self)->load_from_data (self, data); } static char* midgard_key_config_real_to_data (MidgardKeyConfig* self) { char* result; g_return_val_if_fail (self != NULL, NULL); result = NULL; return result; } char* midgard_key_config_to_data (MidgardKeyConfig* self) { return MIDGARD_KEY_CONFIG_GET_CLASS (self)->to_data (self); } static void midgard_key_config_class_init (MidgardKeyConfigClass * klass) { midgard_key_config_parent_class = g_type_class_peek_parent (klass); MIDGARD_KEY_CONFIG_CLASS (klass)->set_value = midgard_key_config_real_set_value; MIDGARD_KEY_CONFIG_CLASS (klass)->get_value = midgard_key_config_real_get_value; MIDGARD_KEY_CONFIG_CLASS (klass)->set_comment = midgard_key_config_real_set_comment; MIDGARD_KEY_CONFIG_CLASS (klass)->get_comment = midgard_key_config_real_get_comment; MIDGARD_KEY_CONFIG_CLASS (klass)->list_groups = midgard_key_config_real_list_groups; MIDGARD_KEY_CONFIG_CLASS (klass)->group_exists = midgard_key_config_real_group_exists; MIDGARD_KEY_CONFIG_CLASS (klass)->delete_group = midgard_key_config_real_delete_group; MIDGARD_KEY_CONFIG_CLASS (klass)->store = midgard_key_config_real_store; MIDGARD_KEY_CONFIG_CLASS (klass)->load_from_data = midgard_key_config_real_load_from_data; MIDGARD_KEY_CONFIG_CLASS (klass)->to_data = midgard_key_config_real_to_data; G_OBJECT_CLASS (klass)->finalize = midgard_key_config_finalize; } static void midgard_key_config_instance_init (MidgardKeyConfig * self) { self->path = NULL; } static void midgard_key_config_finalize (GObject* obj) { MidgardKeyConfig * self; self = MIDGARD_KEY_CONFIG (obj); _g_free0 (self->path); _g_object_unref0 (self->context); G_OBJECT_CLASS (midgard_key_config_parent_class)->finalize (obj); } GType midgard_key_config_get_type (void) { static volatile gsize midgard_key_config_type_id__volatile = 0; if (g_once_init_enter (&midgard_key_config_type_id__volatile)) { static const GTypeInfo g_define_type_info = { sizeof (MidgardKeyConfigClass), (GBaseInitFunc) NULL, (GBaseFinalizeFunc) NULL, (GClassInitFunc) midgard_key_config_class_init, (GClassFinalizeFunc) NULL, NULL, sizeof (MidgardKeyConfig), 0, (GInstanceInitFunc) midgard_key_config_instance_init, NULL }; GType midgard_key_config_type_id; midgard_key_config_type_id = g_type_register_static (G_TYPE_OBJECT, "MidgardKeyConfig", &g_define_type_info, G_TYPE_FLAG_ABSTRACT); g_once_init_leave (&midgard_key_config_type_id__volatile, midgard_key_config_type_id); } return midgard_key_config_type_id__volatile; } midgard2-core-10.05.7.1/src/midgard_dbobject.c0000664000175000017500000007241211772046240015574 00000000000000/* * Copyright (C) 2007, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_dbobject.h" #include "schema.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" #include #include "midgard_core_workspace.h" #include "midgard_core_query.h" static GObjectClass *parent_class= NULL; /* Create GdaSqlSelectField for every property registered for the class. */ void _add_fields_to_select_statement (MidgardDBObjectClass *klass, MidgardConnection *mgd, GdaSqlStatementSelect *select, const gchar *table_name) { guint n_prop; guint i; GdaSqlSelectField *select_field; GdaSqlExpr *expr; GValue *val; gchar *table_field; GdaConnection *cnc = mgd->priv->connection; GParamSpec **pspecs = g_object_class_list_properties (G_OBJECT_CLASS (klass), &n_prop); if (!pspecs) return; const gchar *property_table = NULL; for (i = 0; i < n_prop; i++) { const gchar *property = pspecs[i]->name; const gchar *property_field = midgard_core_class_get_property_colname (klass, property); property_table = midgard_core_class_get_property_table (klass, property); if (property_table && table_name) property_table = table_name; /* Ignore properties with NULL storage and those of object type */ if (!property_table || pspecs[i]->value_type == G_TYPE_OBJECT) continue; select_field = gda_sql_select_field_new (GDA_SQL_ANY_PART (select)); /*select_field->field_name = g_strdup (property_field); select_field->table_name = g_strdup (property_table);*/ select_field->as = gda_connection_quote_sql_identifier (cnc, property); select->expr_list = g_slist_append (select->expr_list, select_field); expr = gda_sql_expr_new (GDA_SQL_ANY_PART (select_field)); val = g_new0 (GValue, 1); g_value_init (val, G_TYPE_STRING); gchar *q_table = gda_connection_quote_sql_identifier (cnc, property_table); gchar *q_field = gda_connection_quote_sql_identifier (cnc, property_field); table_field = g_strconcat (q_table, ".", q_field, NULL); g_value_set_string (val, table_field); g_free (q_table); g_free (q_field); g_free (table_field); expr->value = val; select_field->expr = expr; } g_free (pspecs); if (!klass->dbpriv->has_metadata) return; /* Check if metadata provides own method to add fields. If not, use given class storage. */ if (MIDGARD_IS_OBJECT_CLASS (klass)) { MidgardMetadataClass *mklass = MGD_DBCLASS_METADATA_CLASS (klass); if (!mklass) return; if (MIDGARD_DBOBJECT_CLASS (mklass)->dbpriv->add_fields_to_select_statement) { MIDGARD_DBOBJECT_CLASS (mklass)->dbpriv->add_fields_to_select_statement (MIDGARD_DBOBJECT_CLASS (mklass), mgd, select, table_name); return; } const gchar *table = midgard_core_class_get_table (klass); if (table_name) table = table_name; /* TODO, Once we stabilize use case, refactor this below to minimize code usage */ GParamSpec **pspecs = g_object_class_list_properties (G_OBJECT_CLASS (mklass), &n_prop); if (!pspecs) return; for (i = 0; i < n_prop; i++) { const gchar *property = pspecs[i]->name; const gchar *property_field = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (mklass), property); if (pspecs[i]->value_type == G_TYPE_OBJECT || !property_field) continue; select_field = gda_sql_select_field_new (GDA_SQL_ANY_PART (select)); /*select_field->field_name = g_strdup (property_field); select_field->table_name = g_strdup (table);*/ select_field->as = g_strconcat ("metadata_", property, NULL); select->expr_list = g_slist_append (select->expr_list, select_field); expr = gda_sql_expr_new (GDA_SQL_ANY_PART (select_field)); val = g_new0 (GValue, 1); g_value_init (val, G_TYPE_STRING); table_field = g_strconcat (table, ".", property_field, NULL); g_value_set_string (val, table_field); g_free (table_field); expr->value = val; select_field->expr = expr; } g_free (pspecs); } return; } gboolean _midgard_dbobject_get_property (MidgardDBObject *self, const gchar *name, GValue *value) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (name != NULL, FALSE); g_return_val_if_fail (G_IS_VALUE (value), FALSE); if (!self->dbpriv->datamodel) return FALSE; GdaDataModel *model = GDA_DATA_MODEL (self->dbpriv->datamodel); if (!model || (model && !GDA_IS_DATA_MODEL (model))) return FALSE; gint col_idx = gda_data_model_get_column_index (model, name); if (col_idx == -1) return FALSE; const GValue *src_val = gda_data_model_get_value_at (model, col_idx, self->dbpriv->row, NULL); if (!src_val) return FALSE; if (!G_IS_VALUE (src_val) || (G_IS_VALUE (src_val) && G_VALUE_TYPE (src_val) == GDA_TYPE_NULL)) { /* NULL fetched from underlying field */ if (G_VALUE_HOLDS_STRING (value)) { g_value_set_string (value, ""); return TRUE; } g_warning ("Can not find value for given '%s' property \n", name); return FALSE; } if (G_VALUE_TYPE (src_val) != G_VALUE_TYPE (value)) g_value_transform (src_val, value); else g_value_copy (src_val, value); if (G_VALUE_HOLDS_STRING (value) && g_value_get_string (value) == NULL) g_value_set_string (value, ""); return TRUE; } gboolean _midgard_dbobject_set_property (MidgardDBObject *self, const gchar *name, GValue *value) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (name != NULL, FALSE); g_return_val_if_fail (G_IS_VALUE (value), FALSE); GdaDataModel *model = GDA_DATA_MODEL (self->dbpriv->datamodel); if (!model) return FALSE; gint col_idx = gda_data_model_get_column_index (model, name); if (col_idx == -1) return FALSE; GError *error = NULL; gboolean rv = gda_data_model_set_value_at (model, col_idx, self->dbpriv->row, (const GValue *) value, &error); return rv; } void _midgard_dbobject_set_from_data_model (MidgardDBObject *self, GdaDataModel *model, gint row, guint column_id) { g_return_if_fail (self != NULL); g_return_if_fail (model != NULL); g_return_if_fail (row > -1); GError *error = NULL; /* Set user defined properties */ guint n_props; guint i; GParamSpec **pspecs = g_object_class_list_properties (G_OBJECT_GET_CLASS (self), &n_props); if (!pspecs) return; const GValue *pval; for (i = 1; i < n_props; i++) { const gchar *pname = pspecs[i]->name; if (!(pspecs[i]->flags & G_PARAM_WRITABLE)) { g_debug ("Ignoring read only property %s \n", pname); continue; } gint col_idx = gda_data_model_get_column_index (model, pname); if (col_idx == -1) continue; pval = gda_data_model_get_value_at (model, col_idx, row, &error); if (!pval) { g_warning ("Failed to get '%s' property value: %s", pname, error && error->message ? error->message : "Unknown reason"); continue; } /* Overwrite NULL values */ if (G_VALUE_TYPE (pval) == GDA_TYPE_NULL && pspecs[i]->value_type == G_TYPE_STRING) { g_object_set (G_OBJECT (self), pname, "", NULL); } else if (G_VALUE_TYPE (pval) == GDA_TYPE_BLOB && G_TYPE_FUNDAMENTAL (pspecs[i]->value_type) == G_TYPE_STRING) { gchar *stringified = midgard_core_query_binary_stringify ((GValue*)pval); g_object_set (G_OBJECT (self), pname, stringified, NULL); g_free (stringified); } else { g_object_set_property (G_OBJECT (self), pname, pval); } column_id++; } g_free (pspecs); /* Set metadata */ MidgardDBObject *dbobject = MIDGARD_DBOBJECT (self); MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (dbobject); if (metadata) MIDGARD_DBOBJECT_GET_CLASS (MIDGARD_DBOBJECT (metadata))->dbpriv->set_from_data_model ( MIDGARD_DBOBJECT (metadata), model, row, column_id); return; } static void __statement_insert_add_metadata_fields (MidgardDBObjectClass *klass, GString *colnames, GString *values) { MidgardMetadataClass *mklass = MGD_DBCLASS_METADATA_CLASS (klass); if (!mklass) return; guint i; guint n_prop; GParamSpec **pspecs = g_object_class_list_properties (G_OBJECT_CLASS (mklass), &n_prop); if (!pspecs) return; for (i = 0; i < n_prop; i++) { const gchar *col_name = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (mklass), pspecs[i]->name); if (!col_name) continue; g_string_append (colnames, ", "); g_string_append (values, ", "); g_string_append (colnames, col_name); const gchar *type_name = g_type_name (pspecs[i]->value_type); if (pspecs[i]->value_type == MIDGARD_TYPE_TIMESTAMP) type_name = "string"; g_string_append_printf (values, "##%s::%s", col_name, type_name); } g_free (pspecs); } static void __initialize_statement_insert_query_parameters (MidgardDBObjectClass *klass, const gchar *query_string, gboolean add_workspace) { GdaSqlParser *parser = gda_sql_parser_new (); GdaStatement *stmt; GError *error = NULL; stmt = gda_sql_parser_parse_string (parser, query_string, NULL, &error); if (!stmt) { g_error ("Couldn't create %s class prepared statement. %s", G_OBJECT_CLASS_NAME (klass), error && error->message ? error->message : "Unknown reason"); return; } GdaSet *params; if (!gda_statement_get_parameters (stmt, ¶ms, &error)) { g_error ("Failed to create GdaSet for %s class. %s", G_OBJECT_CLASS_NAME (klass), error && error->message ? error->message : "Unknown reason"); } if (add_workspace) { klass->dbpriv->_workspace_statement_insert = stmt; klass->dbpriv->_workspace_statement_insert_params = params; return; } klass->dbpriv->_statement_insert = stmt; klass->dbpriv->_statement_insert_params = params; return; } static gchar * __initialize_statement_insert_query_string (MidgardDBObjectClass *klass, gboolean add_workspace) { GString *sql = g_string_new ("INSERT INTO "); guint n_props; guint i; const gchar *table = MGD_DBCLASS_TABLENAME (klass); g_return_val_if_fail (table != NULL, NULL); g_string_append (sql, table); GParamSpec **pspecs = midgard_core_dbobject_class_list_properties (klass, &n_props); g_return_val_if_fail (pspecs != NULL, NULL); GString *colnames = g_string_new (""); GString *values = g_string_new (""); const gchar *pk = MGD_DBCLASS_PRIMARY (klass); gboolean add_coma = FALSE; for (i = 0; i < n_props; i++) { /* Ignore primary key */ if (pk && g_str_equal (pspecs[i]->name, pk)) continue; const gchar *col_name = midgard_core_class_get_property_colname (klass, pspecs[i]->name); if (add_coma) { g_string_append (colnames, ", "); g_string_append (values, ", "); } g_string_append (colnames, col_name); const gchar *type_name = g_type_name (pspecs[i]->value_type); if (pspecs[i]->value_type == MIDGARD_TYPE_TIMESTAMP) type_name = "string"; g_string_append_printf (values, "##%s::%s", col_name, type_name); add_coma = TRUE; } /* Add workspace context columns */ if (add_workspace) { g_string_append_printf (colnames, ", %s, %s", MGD_WORKSPACE_OID_FIELD, MGD_WORKSPACE_ID_FIELD); g_string_append_printf (values, ", ##%s::guint", MGD_WORKSPACE_OID_FIELD); g_string_append_printf (values, ", ##%s::guint", MGD_WORKSPACE_ID_FIELD); } __statement_insert_add_metadata_fields (klass, colnames, values); g_string_append_printf (sql, " (%s) VALUES (%s)", colnames->str, values->str); g_string_free (colnames, TRUE); g_string_free (values, TRUE); return g_string_free (sql, FALSE); } static GdaStatement * __get_statement_insert (MidgardDBObjectClass *klass, MidgardConnection *mgd) { gchar *query = NULL; /* Try workspace statement first */ if (klass->dbpriv->uses_workspace && (mgd && MGD_CNC_USES_WORKSPACE (mgd))) { if (!klass->dbpriv->_workspace_statement_insert) { query = __initialize_statement_insert_query_string (klass, TRUE); __initialize_statement_insert_query_parameters (klass, query, TRUE); g_free (query); } return klass->dbpriv->_workspace_statement_insert; } if (!klass->dbpriv->_statement_insert) { query = __initialize_statement_insert_query_string (klass, FALSE); __initialize_statement_insert_query_parameters (klass, query, FALSE); g_free (query); } return klass->dbpriv->_statement_insert; } static GdaSet * __get_statement_insert_params (MidgardDBObjectClass *klass, MidgardConnection *mgd) { GdaStatement *stmt = klass->dbpriv->get_statement_insert (klass, mgd); if (!stmt) { g_error ("Failed to get UPDATE GdaStatement and GdaSet (%s)", G_OBJECT_CLASS_NAME (klass)); return NULL; } if (klass->dbpriv->uses_workspace && (mgd && MGD_CNC_USES_WORKSPACE (mgd))) return klass->dbpriv->_workspace_statement_insert_params; return klass->dbpriv->_statement_insert_params; } static void __statement_update_add_metadata_fields (MidgardDBObjectClass *klass, GString *sql) { MidgardMetadataClass *mklass = MGD_DBCLASS_METADATA_CLASS (klass); if (!mklass) return; guint i; guint n_prop; GParamSpec **pspecs = g_object_class_list_properties (G_OBJECT_CLASS (mklass), &n_prop); if (!pspecs) return; for (i = 0; i < n_prop; i++) { const gchar *col_name = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (mklass), pspecs[i]->name); if (!col_name) continue; const gchar *type_name = g_type_name (pspecs[i]->value_type); if (pspecs[i]->value_type == MIDGARD_TYPE_TIMESTAMP) type_name = "string"; g_string_append_printf (sql, ", %s=##%s::%s", col_name, col_name, type_name); } g_free (pspecs); } static void __initialize_statement_update_query_parameters (MidgardDBObjectClass *klass, const gchar *query_string, gboolean add_workspace) { GdaSqlParser *parser = gda_sql_parser_new (); GdaStatement *stmt; GError *error = NULL; stmt = gda_sql_parser_parse_string (parser, query_string, NULL, &error); if (!stmt) { g_error ("Couldn't create %s class UPDATE prepared statement. %s", G_OBJECT_CLASS_NAME (klass), error && error->message ? error->message : "Unknown reason"); return; } GdaSet *params; if (!gda_statement_get_parameters (stmt, ¶ms, &error)) { g_error ("Failed to create UPDATE GdaSet for %s class. %s", G_OBJECT_CLASS_NAME (klass), error && error->message ? error->message : "Unknown reason"); } if (add_workspace) { klass->dbpriv->_workspace_statement_update = stmt; klass->dbpriv->_workspace_statement_update_params = params; return; } klass->dbpriv->_statement_update = stmt; klass->dbpriv->_statement_update_params = params; return; } static gchar * __initialize_statement_update_query_string (MidgardDBObjectClass *klass, gboolean add_workspace) { GString *sql = g_string_new (""); guint n_props; guint i; const gchar *table = MGD_DBCLASS_TABLENAME (klass); g_return_val_if_fail (table != NULL, NULL); g_string_append_printf (sql, "UPDATE %s SET ", table); GParamSpec **pspecs = midgard_core_dbobject_class_list_properties (klass, &n_props); g_return_val_if_fail (pspecs != NULL, NULL); const gchar *pk = MGD_DBCLASS_PRIMARY (klass); gboolean add_coma = FALSE; for (i = 0; i < n_props; i++) { /* Ignore primary key */ if (pk && g_str_equal (pspecs[i]->name, pk)) continue; const gchar *col_name = midgard_core_class_get_property_colname (klass, pspecs[i]->name); const gchar *type_name = g_type_name (pspecs[i]->value_type); if (pspecs[i]->value_type == MIDGARD_TYPE_TIMESTAMP) type_name = "string"; g_string_append_printf (sql, "%s%s=##%s::%s", add_coma ? ", " : " ", col_name, col_name, type_name); add_coma = TRUE; } if (add_workspace) { /* Add workspace context columns */ g_string_append_printf (sql, ",%s=##%s::guint, %s=##%s::guint", MGD_WORKSPACE_OID_FIELD, MGD_WORKSPACE_OID_FIELD, MGD_WORKSPACE_ID_FIELD, MGD_WORKSPACE_ID_FIELD); } __statement_update_add_metadata_fields (klass, sql); if (add_workspace) g_string_append_printf (sql, " WHERE guid=##guid::string AND %s=##%s::guint", MGD_WORKSPACE_ID_FIELD, MGD_WORKSPACE_ID_FIELD); else g_string_append (sql, " WHERE guid=##guid::string "); return g_string_free (sql, FALSE); } static GdaStatement * __get_statement_update (MidgardDBObjectClass *klass, MidgardConnection *mgd) { gchar *query = NULL; /* Try workspace statement first */ if (klass->dbpriv->uses_workspace && (mgd && MGD_CNC_USES_WORKSPACE (mgd))) { if (!klass->dbpriv->_workspace_statement_update) { query = __initialize_statement_update_query_string (klass, TRUE); __initialize_statement_update_query_parameters (klass, query, TRUE); g_free (query); } return klass->dbpriv->_workspace_statement_update; } if (!klass->dbpriv->_statement_update) { query = __initialize_statement_update_query_string (klass, FALSE); __initialize_statement_update_query_parameters (klass, query, FALSE); g_free (query); } return klass->dbpriv->_statement_update; } static GdaSet * __get_statement_update_params (MidgardDBObjectClass *klass, MidgardConnection *mgd) { GdaStatement *stmt = klass->dbpriv->get_statement_update (klass, mgd); if (!stmt) { g_error ("Failed to get GdaStatement and GdaSet (%s)", G_OBJECT_CLASS_NAME (klass)); return NULL; } if (klass->dbpriv->uses_workspace && (mgd && MGD_CNC_USES_WORKSPACE (mgd))) return klass->dbpriv->_workspace_statement_update_params; return klass->dbpriv->_statement_update_params; } static void __initialize_statement_delete_query_parameters (MidgardDBObjectClass *klass, const gchar *query_string, gboolean add_workspace) { GdaSqlParser *parser = gda_sql_parser_new (); GdaStatement *stmt; GError *error = NULL; stmt = gda_sql_parser_parse_string (parser, query_string, NULL, &error); if (!stmt) { g_error ("Couldn't create %s class DELETE(UPDATE) prepared statement. %s", G_OBJECT_CLASS_NAME (klass), error && error->message ? error->message : "Unknown reason"); return; } GdaSet *params; if (!gda_statement_get_parameters (stmt, ¶ms, &error)) { g_error ("Failed to create DELETE(UPDATE) GdaSet for %s class. %s", G_OBJECT_CLASS_NAME (klass), error && error->message ? error->message : "Unknown reason"); } if (add_workspace) { klass->dbpriv->_workspace_statement_delete = stmt; klass->dbpriv->_workspace_statement_delete_params = params; return; } klass->dbpriv->_statement_delete = stmt; klass->dbpriv->_statement_delete_params = params; return; } static gchar * __initialize_statement_delete_query_string (MidgardDBObjectClass *klass, gboolean add_workspace) { const gchar *table = MGD_DBCLASS_TABLENAME (klass); MidgardMetadataClass *metadata = MGD_DBCLASS_METADATA_CLASS (klass); g_return_val_if_fail (table != NULL, NULL); GString *sql = g_string_new (""); g_string_append_printf (sql, "UPDATE %s SET ", table); if (metadata) { g_string_append (sql, "metadata_revisor=##metadata_revisor::string, " "metadata_revised=##metadata_revised::string, " "metadata_revision=##metadata_revision::guint, " "metadata_deleted=##metadata_deleted::guint "); } else { g_string_append_printf (sql, "%s=%s::guint ", midgard_core_object_get_deleted_field (klass), midgard_core_object_get_deleted_field (klass)); } if (add_workspace) g_string_append_printf (sql, " WHERE guid=##guid::string AND %s=##%s::guint", MGD_WORKSPACE_ID_FIELD, MGD_WORKSPACE_ID_FIELD); else g_string_append (sql, " WHERE guid=##guid::string "); return g_string_free (sql, FALSE); } static GdaStatement * __get_statement_delete (MidgardDBObjectClass *klass, MidgardConnection *mgd) { gchar *query = NULL; /* Try workspace statement first */ if (klass->dbpriv->uses_workspace && (mgd && MGD_CNC_USES_WORKSPACE (mgd))) { if (!klass->dbpriv->_workspace_statement_delete) { query = __initialize_statement_delete_query_string (klass, TRUE); __initialize_statement_delete_query_parameters (klass, query, TRUE); g_free (query); } return klass->dbpriv->_workspace_statement_delete; } if (!klass->dbpriv->_statement_delete) { query = __initialize_statement_delete_query_string (klass, FALSE); __initialize_statement_delete_query_parameters (klass, query, FALSE); g_free (query); } return klass->dbpriv->_statement_delete; } static GdaSet * __get_statement_delete_params (MidgardDBObjectClass *klass, MidgardConnection *mgd) { GdaStatement *stmt = klass->dbpriv->get_statement_delete (klass, mgd); if (!stmt) { g_error ("Failed to get DELETE(UPDATE) GdaStatement and GdaSet (%s)", G_OBJECT_CLASS_NAME (klass)); return NULL; } if (klass->dbpriv->uses_workspace && (mgd && MGD_CNC_USES_WORKSPACE (mgd))) return klass->dbpriv->_workspace_statement_delete_params; return klass->dbpriv->_statement_delete_params; } GParamSpec** midgard_core_dbobject_class_list_properties (MidgardDBObjectClass *klass, guint *n_props) { g_return_val_if_fail (klass != NULL, NULL); MgdSchemaTypeAttr *type_attr = klass->dbpriv->storage_data; if (type_attr->params) { *n_props = g_slist_length (type_attr->_properties_list); return type_attr->params; } GSList *l; guint i = 0; guint n_params = g_slist_length (type_attr->_properties_list); type_attr->params = g_new (GParamSpec *, n_params); for (l = type_attr->_properties_list; l != NULL; l = l->next, i++) { type_attr->params[i] = g_object_class_find_property (G_OBJECT_CLASS (klass), (const gchar *) l->data); } *n_props = n_params; return type_attr->params; } /* GOBJECT ROUTINES */ enum { PROPERTY_CONNECTION = 1 }; static void __midgard_dbobject_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardDBObject *object = (MidgardDBObject *) instance; MIDGARD_DBOBJECT (object)->dbpriv = g_new(MidgardDBObjectPrivate, 1); MIDGARD_DBOBJECT (object)->dbpriv->mgd = NULL; /* read only */ MIDGARD_DBOBJECT (object)->dbpriv->guid = NULL; MIDGARD_DBOBJECT (object)->dbpriv->datamodel = NULL; MIDGARD_DBOBJECT (object)->dbpriv->row = -1; MIDGARD_DBOBJECT (object)->dbpriv->has_metadata = FALSE; MIDGARD_DBOBJECT (object)->dbpriv->metadata = NULL; MIDGARD_DBOBJECT (object)->dbpriv->is_in_storage = FALSE; MIDGARD_DBOBJECT (object)->dbpriv->storage_data = MIDGARD_DBOBJECT_GET_CLASS (object)->dbpriv->storage_data; } static GObject * midgard_dbobject_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void __weak_ref_notify (gpointer data, GObject *object) { if (data != NULL && G_IS_OBJECT (data)) { MidgardDBObject *dbobject = MIDGARD_DBOBJECT (data); MGD_OBJECT_CNC (dbobject) = NULL; } } static void midgard_dbobject_dispose (GObject *object) { MidgardDBObject *self = MIDGARD_DBOBJECT (object); if (self->dbpriv->datamodel && G_IS_OBJECT (self->dbpriv->datamodel)) g_object_unref(self->dbpriv->datamodel); self->dbpriv->row = -1; MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (self); if (metadata && G_IS_OBJECT (metadata)) { g_object_unref (metadata); MGD_DBOBJECT_METADATA (self) = NULL; } /* Nullify connection's pointer. */ MidgardConnection *mgd = MIDGARD_DBOBJECT (self)->dbpriv->mgd; if (mgd != NULL && G_IS_OBJECT (mgd)) { g_object_weak_unref (G_OBJECT(self->dbpriv->mgd), __weak_ref_notify, self); MIDGARD_DBOBJECT (self)->dbpriv->mgd = NULL; } parent_class->dispose (object); } static void midgard_dbobject_finalize (GObject *object) { MidgardDBObject *self = MIDGARD_DBOBJECT(object); if (!self) return; if (!self->dbpriv) return; g_free((gchar *)self->dbpriv->guid); self->dbpriv->guid = NULL; g_free(self->dbpriv); self->dbpriv = NULL; parent_class->finalize (object); } static const MidgardConnection *__get_connection(MidgardDBObject *self) { g_assert(self != NULL); return self->dbpriv->mgd; } static void __midgard_dbobject_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { switch (property_id) { case PROPERTY_CONNECTION: break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec); break; } } static void __midgard_dbobject_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { GObject *mgd; switch (property_id) { case PROPERTY_CONNECTION: if (!G_VALUE_HOLDS_OBJECT (value)) return; mgd = g_value_get_object (value); if (!MIDGARD_IS_CONNECTION (mgd)) return; MIDGARD_DBOBJECT (object)->dbpriv->mgd = MIDGARD_CONNECTION (mgd); /* Add weak reference callback to connection. * Instead of keeping connection's alive (implicitly) we create sentinel * which guarantees connection's pointer to be null if connection is destroyed. */ g_object_weak_ref (mgd, __weak_ref_notify, object); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec); break; } } MidgardDBObjectPrivate * midgard_core_dbobject_private_new () { MidgardDBObjectPrivate *dbpriv = g_new (MidgardDBObjectPrivate, 1); dbpriv->storage_data = NULL; dbpriv->create_storage = NULL; dbpriv->update_storage = NULL; dbpriv->storage_exists = NULL; dbpriv->delete_storage = NULL; dbpriv->add_fields_to_select_statement = NULL; dbpriv->get_property = NULL; dbpriv->set_property = NULL; dbpriv->set_from_data_model = NULL; dbpriv->_statement_insert = NULL; dbpriv->_statement_insert_params = NULL; dbpriv->_workspace_statement_insert = NULL; dbpriv->_workspace_statement_insert_params = NULL; dbpriv->get_statement_insert = NULL; dbpriv->get_statement_insert_params = NULL; dbpriv->_statement_update = NULL; dbpriv->_statement_update_params = NULL; dbpriv->_workspace_statement_update = NULL; dbpriv->_workspace_statement_update_params = NULL; dbpriv->get_statement_update = NULL; dbpriv->get_statement_update_params = NULL; dbpriv->_statement_delete = NULL; dbpriv->_statement_delete_params = NULL; dbpriv->_workspace_statement_delete = NULL; dbpriv->_workspace_statement_delete_params = NULL; dbpriv->get_statement_delete = NULL; dbpriv->get_statement_delete_params = NULL; dbpriv->set_static_sql_select = NULL; dbpriv->uses_workspace = FALSE; return dbpriv; } static void midgard_dbobject_class_init (MidgardDBObjectClass *klass, gpointer g_class_data) { GObjectClass *object_class = G_OBJECT_CLASS (klass); parent_class = g_type_class_peek_parent (klass); object_class->constructor = midgard_dbobject_constructor; object_class->dispose = midgard_dbobject_dispose; object_class->finalize = midgard_dbobject_finalize; object_class->set_property = __midgard_dbobject_set_property; object_class->get_property = __midgard_dbobject_get_property; klass->get_connection = __get_connection; klass->dbpriv = g_new (MidgardDBObjectPrivate, 1); klass->dbpriv->storage_data = NULL; klass->dbpriv->create_storage = NULL; klass->dbpriv->update_storage = NULL; klass->dbpriv->storage_exists = NULL; klass->dbpriv->delete_storage = NULL; klass->dbpriv->add_fields_to_select_statement = _add_fields_to_select_statement; klass->dbpriv->get_property = _midgard_dbobject_get_property; klass->dbpriv->set_property = _midgard_dbobject_set_property; klass->dbpriv->set_from_data_model = _midgard_dbobject_set_from_data_model; klass->dbpriv->_statement_insert = NULL; klass->dbpriv->_statement_insert_params = NULL; klass->dbpriv->_workspace_statement_insert = NULL; klass->dbpriv->_workspace_statement_insert_params = NULL; klass->dbpriv->get_statement_insert = __get_statement_insert; klass->dbpriv->get_statement_insert_params = __get_statement_insert_params; klass->dbpriv->_statement_update = NULL; klass->dbpriv->_statement_update_params = NULL; klass->dbpriv->_workspace_statement_update = NULL; klass->dbpriv->_workspace_statement_update_params = NULL; klass->dbpriv->get_statement_update = __get_statement_update; klass->dbpriv->get_statement_update_params = __get_statement_update_params; klass->dbpriv->_statement_delete = NULL; klass->dbpriv->_statement_delete_params = NULL; klass->dbpriv->_workspace_statement_delete = NULL; klass->dbpriv->_workspace_statement_delete_params = NULL; klass->dbpriv->get_statement_delete = __get_statement_delete; klass->dbpriv->get_statement_delete_params = __get_statement_delete_params; klass->dbpriv->set_static_sql_select = NULL; klass->dbpriv->uses_workspace = FALSE; /* Properties */ GParamSpec *pspec = g_param_spec_object ("connection", "", "", MIDGARD_TYPE_CONNECTION, G_PARAM_READWRITE | G_PARAM_CONSTRUCT_ONLY); /** * MidgardDBObject:connection: * * Pointer to #MidgardConnection, given object has been initialized for */ g_object_class_install_property (object_class, PROPERTY_CONNECTION, pspec); } /* Registers the type as a fundamental GType unless already registered. */ GType midgard_dbobject_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardDBObjectClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) midgard_dbobject_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardDBObject), 0, /* n_preallocs */ __midgard_dbobject_instance_init }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardDBObject", &info, G_TYPE_FLAG_ABSTRACT); } return type; } midgard2-core-10.05.7.1/src/midgard_core_config.c0000664000175000017500000001014411772046240016267 00000000000000/* * Copyright (C) 2007, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "midgard_defs.h" #include "midgard_core_config.h" gchar *midgard_core_config_build_path( const gchar **dirs, const gchar *filename, gboolean user) { gchar *filepath = NULL; gchar *path = NULL; guint i = 0, j = 0, k = 0; gchar **paths = NULL; if(user) { while(dirs && dirs[i]) { i++; } paths = g_new(gchar *, i+2); paths[0] = g_strconcat(".", MIDGARD_PACKAGE_NAME, NULL); //paths[1] = "conf.d"; k = 1; while(dirs && dirs[j]) { paths[k] = g_strdup((gchar*)dirs[j]); j++; k++; } /* Add terminating NULL */ paths[k] = NULL; /* Check if every directory in path exists, if not create */ i = 0; gchar *fpath = g_strdup(g_get_home_dir()); while(paths[i]) { path = g_build_path(G_DIR_SEPARATOR_S, fpath, paths[i], NULL); if(!g_file_test((const gchar *)path, G_FILE_TEST_EXISTS)) { g_mkdir(path, 0700); } if(!g_file_test((const gchar *)path, G_FILE_TEST_EXISTS | G_FILE_TEST_IS_DIR)) { g_warning("%s is not a directory!", path); g_free(path); g_strfreev(paths); g_free(fpath); return NULL; } g_free(fpath); fpath = g_strdup(path); g_free(path); path = NULL; i++; } if(filename) { filepath = g_build_path(G_DIR_SEPARATOR_S, fpath, filename, NULL); g_free(fpath); } else { filepath = fpath; } } else { /* TODO */ } g_strfreev(paths); return filepath; } gchar* midgard_core_config_build_schemadir_path (const gchar *dirname) { gchar *lschema_dir = NULL; if (dirname != NULL && *dirname == '\0') { g_warning("Empty directory given to read schema files from. Use explicit NULL for system defaults."); return NULL; } if (dirname != NULL) lschema_dir = g_build_path(G_DIR_SEPARATOR_S, dirname, MIDGARD_CONFIG_RW_SCHEMA, NULL); if (lschema_dir == NULL) { const gchar *env_sharedir = g_getenv("MIDGARD_ENV_GLOBAL_SHAREDIR"); if (env_sharedir != NULL && *env_sharedir != '\0') { lschema_dir = g_build_path(G_DIR_SEPARATOR_S, env_sharedir, MIDGARD_CONFIG_RW_SCHEMA, NULL); } else { lschema_dir = g_build_path(G_DIR_SEPARATOR_S, MIDGARD_LIB_PREFIX, "share", MIDGARD_PACKAGE_NAME, MIDGARD_CONFIG_RW_SCHEMA, NULL); } } if (!g_file_test (lschema_dir, G_FILE_TEST_IS_DIR)) { g_warning("%s doesn't seem to be schema directory", lschema_dir); if (lschema_dir) g_free(lschema_dir); return NULL; } return lschema_dir; } gchar* midgard_core_config_build_viewdir_path (const gchar *dirname) { gchar *lview_dir = NULL; if (dirname != NULL && *dirname == '\0') { g_warning("Empty directory given to read view files from. Use explicit NULL for system defaults."); return NULL; } if (dirname != NULL) lview_dir = g_build_path(G_DIR_SEPARATOR_S, dirname, MIDGARD_CONFIG_RW_VIEWS, NULL); if (lview_dir == NULL) { const gchar *env_sharedir = g_getenv("MIDGARD_ENV_GLOBAL_SHAREDIR"); if (env_sharedir != NULL && *env_sharedir != '\0') { lview_dir = g_build_path(G_DIR_SEPARATOR_S, env_sharedir, MIDGARD_CONFIG_RW_VIEWS, NULL); } else { lview_dir = g_build_path(G_DIR_SEPARATOR_S, MIDGARD_LIB_PREFIX, "share", MIDGARD_PACKAGE_NAME, MIDGARD_CONFIG_RW_VIEWS, NULL); } } if (!g_file_test (lview_dir, G_FILE_TEST_IS_DIR)) { if (lview_dir) g_free(lview_dir); return NULL; } return lview_dir; } midgard2-core-10.05.7.1/src/midgard_replicator.c0000664000175000017500000005352611772046240016171 00000000000000/* * Copyright (C) 2006 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_replicator.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" #include "midgard_object.h" #include #include "midgard_blob.h" #include "midgard_timestamp.h" #include "midgard_error.h" #include "midgard_user.h" #include "midgard_core_query.h" #include "guid.h" #include "midgard_schema_object_factory.h" #include "midgard_repligard.h" #define __mr_dbus_send(_obj, _action) \ gchar *_dbus_path = g_strconcat("/replication/", \ G_OBJECT_TYPE_NAME(G_OBJECT(_obj)), \ "/", _action, NULL); \ midgard_core_dbus_send_serialized_object(_obj, _dbus_path); \ g_free(_dbus_path); /** * midgard_replicator_serialize: * @object: GObject (or derived class) instance * * Returns: serialized objects as xml content or %NULL on failure. */ gchar * midgard_replicator_serialize (GObject *object) { g_return_val_if_fail (object != NULL, NULL); return midgard_core_object_to_xml(object); } /** * midgard_replicator_export: * @object: #MidgardDBObject instance * * Given object is not serialized. Its storage record is marked as exported. * * @see midgard_object_update() to find out possible error codes returned in case of #MidgardObject failure. * * Returns: %TRUE on success, %FALSE otherwise. */ gboolean midgard_replicator_export (MidgardDBObject *object) { g_return_val_if_fail (object != NULL, FALSE); MidgardConnection *mgd = MGD_OBJECT_CNC(object); g_return_val_if_fail (mgd != NULL, FALSE); const gchar *guid = MGD_OBJECT_GUID(object); if (guid == NULL){ MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INVALID_PROPERTY_VALUE, "Empty guid value! "); return FALSE; } /* FIXME, invoke update as MidgardDBObject virtual method */ if (MIDGARD_IS_OBJECT (object)) { g_signal_emit(object, MIDGARD_OBJECT_GET_CLASS(object)->signal_action_export, 0); return _midgard_object_update(MIDGARD_OBJECT(object), OBJECT_UPDATE_EXPORTED, NULL); } return FALSE; } /** * midgard_replicator_export_by_guid: * @mgd: #MidgardConnection instance * @guid: guid which identifies object to be exported * * Marks object's storage record as exported. * * Cases to return %FALSE: * * * Given guid is NULL or empty string (MGD_ERR_INVALID_PROPERTY_VALUE) * * * Object identified by given guid doesn't exist (MGD_ERR_NOT_EXISTS) * * * Object identified by given guid is purged (MGD_ERR_OBJECT_PURGED) * * * Internal storage error (MGD_ERR_INTERNAL) * * * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_replicator_export_by_guid (MidgardConnection *mgd, const gchar *guid) { g_return_val_if_fail (mgd != NULL, FALSE); if(guid == NULL || (guid && (*guid == '\0'))) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INVALID_PROPERTY_VALUE, "Empty or NULL guid given"); return FALSE; } MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); MidgardDBObject *repligard = NULL; GError *error = NULL; GValue gval = {0, }; g_value_init (&gval, G_TYPE_STRING); g_value_set_string (&gval, guid); midgard_core_query_get_object (mgd, g_type_name (MIDGARD_TYPE_REPLIGARD), &repligard, &error, "guid", &gval, NULL); g_value_unset (&gval); if (error) { MIDGARD_ERRNO_SET_STRING (mgd, error->code, "%s", error->message); g_clear_error (&error); if (repligard) g_object_unref (G_OBJECT (repligard)); return FALSE; } guint action; gchar *classname; g_object_get (repligard, "action", &action, "type", &classname, NULL); g_object_unref (repligard); MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS_BY_NAME(classname); if(klass == NULL) { g_warning("Failed to get class pointer for '%s', an object identified with '%s'", classname, guid); MIDGARD_ERRNO_SET(mgd, MGD_ERR_INTERNAL); g_free (classname); return FALSE; } g_free (classname); const gchar *table = midgard_core_class_get_table(MIDGARD_DBOBJECT_CLASS(klass)); GValue tval = {0, }; gchar *timeupdated; gint qr; GString *sql = NULL; switch(action) { case MGD_OBJECT_ACTION_PURGE: MIDGARD_ERRNO_SET(mgd, MGD_ERR_OBJECT_PURGED); return FALSE; break; default: sql = g_string_new ("UPDATE "); g_string_append_printf(sql, "%s SET ", table); midgard_timestamp_new_current (&tval); timeupdated = midgard_timestamp_get_string_from_value (&tval); g_string_append_printf(sql, "metadata_exported='%s' WHERE guid = '%s' ", timeupdated, guid); qr = midgard_core_query_execute(mgd, sql->str, TRUE); g_string_free(sql, TRUE); g_value_unset (&tval); g_free(timeupdated); if (qr == 0) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_INTERNAL); return FALSE; } return TRUE; break; } return FALSE; } /** * midgard_replicator_export_purged: * @mgd: #MidgardConnection instance * @classname: name of #MidgardObjectClass derived one * @startdate: optional start date * @enddate: optional end date * * Exports all purged objects of given class. If @startdate or @enddate are not NULL, * all objects which were purged between dates will be exported. * * Returns: xml buffer with serialized objects or %NULL if there are no objects matching given criteria. */ gchar * midgard_replicator_export_purged (MidgardConnection *mgd, const gchar *classname, const gchar *startdate, const gchar *enddate) { g_return_val_if_fail (mgd != NULL, NULL); g_return_val_if_fail (classname != NULL, NULL); MidgardDBObjectClass *klass = g_type_class_peek (g_type_from_name (classname)); g_return_val_if_fail (klass != NULL, NULL); MIDGARD_ERRNO_SET(mgd, MGD_ERR_OK); GString *sql = g_string_new(" SELECT guid, object_action_date "); g_string_append_printf(sql, " FROM repligard where typename = '%s' " " AND object_action = %d", G_OBJECT_CLASS_NAME(klass), MGD_OBJECT_ACTION_PURGE); if(startdate != NULL){ g_string_append_printf(sql, " AND object_action_date > '%s' ", startdate); } if(enddate != NULL) { g_string_append_printf(sql, " AND object_action_date < '%s' ", enddate); } GdaDataModel *model = midgard_core_query_get_model(mgd, sql->str); guint rows = gda_data_model_get_n_rows(model); g_string_free(sql, TRUE); if(!model) return NULL; if(rows == 0) { if(model) g_object_unref(model); return NULL; } xmlNode *object_node; xmlDoc *doc = midgard_core_object_create_xml_doc(); xmlNode *root_node = xmlDocGetRootElement(doc); guint i; for(i = 0; i < rows; i++) { gboolean free_converted = FALSE; const gchar *purged = NULL; GValue strv = {0, }; const GValue *value = midgard_data_model_get_value_at(model, 0, i); const gchar *guid = g_value_get_string(value); value = midgard_data_model_get_value_at(model, 1, i); if(G_IS_VALUE(value) && G_VALUE_TYPE(value) == GDA_TYPE_TIMESTAMP) { g_value_init(&strv, G_TYPE_STRING); free_converted = TRUE; if(g_value_transform((const GValue *)value, &strv)) purged = g_value_get_string(&strv); } else { purged = g_value_get_string(value); } object_node = xmlNewNode(NULL, BAD_CAST G_OBJECT_CLASS_NAME(klass)); xmlNewProp(object_node, BAD_CAST "purge", BAD_CAST "yes"); xmlNewProp(object_node, BAD_CAST "guid", BAD_CAST guid); xmlNewProp(object_node, BAD_CAST "purged", BAD_CAST purged); xmlAddChild(root_node, object_node); if(free_converted) g_value_unset(&strv); } g_object_unref(model); xmlChar *buf; gint size; xmlDocDumpFormatMemoryEnc(doc, &buf, &size, "UTF-8", 1); xmlFreeDoc(doc); xmlCleanupParser(); return (gchar*) buf; } /** * midgard_replicator_serialize_blob: * @object: #MidgardObject of MIDGARD_TYPE_ATTACHMENT type * * Serialize midgard_blob binary data. * * Returns: Newly allocated xml buffer, which holds blob data base64 encoded, or %NULL. */ gchar * midgard_replicator_serialize_blob (MidgardObject *object) { GType attachment_type = g_type_from_name ("midgard_attachment"); g_return_val_if_fail (g_type_is_a (G_OBJECT_TYPE (object), attachment_type), NULL); MidgardBlob *blob = midgard_blob_new(object, NULL); if(!blob) return NULL; gsize bytes_read = 0; gchar *content = midgard_blob_read_content(blob, &bytes_read); if(!content) { g_object_unref(blob); return NULL; } gchar *encoded = g_base64_encode((const guchar *)content, bytes_read); g_free(content); xmlDoc *doc = midgard_core_object_create_xml_doc(); xmlNode *root_node = xmlDocGetRootElement(doc); xmlNode *blob_node = xmlNewTextChild(root_node, NULL, (const xmlChar*) "midgard_blob", BAD_CAST encoded); xmlNewProp(blob_node, BAD_CAST "guid", BAD_CAST MGD_OBJECT_GUID (object)); g_free(encoded); g_object_unref (blob); xmlChar *buf; gint size; xmlDocDumpFormatMemoryEnc(doc, &buf, &size, "UTF-8", 1); xmlFreeDoc(doc); xmlCleanupParser(); return (gchar*) buf; } /** * midgard_replicator_export_blob: * @object: #MidgardObject of MIDGARD_TYPE_ATTACHMENT type * * Alias for midgard_replicator_serialize_blob(). * * Returns: serialized object as xml data */ gchar * midgard_replicator_export_blob(MidgardObject *object) { return midgard_replicator_serialize_blob(object); } /** * midgard_replicator_unserialize: * @mgd: #MidgardConnection instance * @xml: xml buffer which holds serialized object * @force: toggle to force unserialization * * Returns: (transfer full): Newly allocated array of GObjects */ GObject ** midgard_replicator_unserialize (MidgardConnection *mgd, const gchar *xml, gboolean force) { return midgard_core_object_from_xml(mgd, xml, force); } /** * midgard_replicator_import_object: * @object: #MidgardDBObject instance * @force: toggle to force import * * Imports given object to underlying storage * * Cases to return %FALSE: * * * Given guid is NULL or empty string (MGD_ERR_INVALID_PROPERTY_VALUE) * * * Object is already imported (MGD_ERR_OBJECT_IMPORTED) * * * Object identified is deleted (MGD_ERR_OBJECT_DELETED) * * * Object doesn't provide metadata one (MGD_ERR_NO_METADATA) * * * * Set @force toggle if you want to import object even if it's already imported or deleted. * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_replicator_import_object (MidgardDBObject *object, gboolean force) { MidgardConnection *mgd = MGD_OBJECT_CNC (object); const gchar *guid = MGD_OBJECT_GUID (object); g_return_val_if_fail (mgd != NULL, FALSE); g_return_val_if_fail (g_type_is_a (G_OBJECT_TYPE (object), MIDGARD_TYPE_DBOBJECT), FALSE); MIDGARD_ERRNO_SET(object->dbpriv->mgd, MGD_ERR_OK); gboolean ret_val = FALSE; if (guid == NULL || (guid && *guid == '\0')) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INVALID_PROPERTY_VALUE, "NULL or empty guid"); return ret_val; } MidgardMetadata *dbmetadata = NULL; MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (object); if (!metadata) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_NO_METADATA, "Metadata class not available."); return ret_val; } g_signal_emit(object, MIDGARD_OBJECT_GET_CLASS(object)->signal_action_import, 0); /* Get object from database */ MidgardQueryBuilder *builder = midgard_query_builder_new(mgd, G_OBJECT_TYPE_NAME(object)); if(!builder) return FALSE; GValue pval = {0, }; /* Add guid constraint */ g_value_init(&pval,G_TYPE_STRING); g_object_get_property(G_OBJECT(object), "guid", &pval); midgard_query_builder_add_constraint(builder, "guid", "=", &pval); g_value_unset(&pval); /* Get db object which is "elder" than imported one */ /* g_value_init(&pval,G_TYPE_STRING); g_object_get_property(G_OBJECT(object->metadata), "revised", &pval); midgard_query_builder_add_constraint(builder, "metadata.revised", "<", &pval); g_value_unset(&pval); */ /* Get deleted or undeleted object */ midgard_query_builder_include_deleted (builder); guint n_objects; GObject **_dbobjects = midgard_query_builder_execute (builder, &n_objects); MidgardObject *dbobject; if (!_dbobjects){ g_object_unref (G_OBJECT (builder)); if ((mgd->errnum == MGD_ERR_OBJECT_PURGED) && force) { /* we need to delete repligard entry here * In any other case we need to change core's API a bit * and make create method more complicated with * additional needless cases */ GString *sql = g_string_new ("DELETE from repligard WHERE "); g_string_append_printf (sql, "typename = '%s' AND guid = '%s' ", G_OBJECT_TYPE_NAME (object), MGD_OBJECT_GUID (object)); midgard_core_query_execute (MGD_OBJECT_CNC (object), sql->str, TRUE); g_string_free (sql, TRUE); ret_val = _midgard_object_create (MIDGARD_OBJECT (object), MGD_OBJECT_GUID (object), OBJECT_UPDATE_IMPORTED); return ret_val; } if (mgd->errnum == MGD_ERR_NOT_EXISTS || mgd->errnum == MGD_ERR_OK) { ret_val = _midgard_object_create (MIDGARD_OBJECT(object), MGD_OBJECT_GUID(object), OBJECT_UPDATE_IMPORTED); return ret_val; } } else { gchar *updated, *dbupdated; dbobject = (MidgardObject *)_dbobjects[0]; g_free (_dbobjects); GValue updated_timestamp = {0, }; g_value_init (&updated_timestamp, MGD_TYPE_TIMESTAMP); GValue dbupdated_timestamp = {0, }; g_value_init (&dbupdated_timestamp, MGD_TYPE_TIMESTAMP); metadata = MGD_DBOBJECT_METADATA (object); dbmetadata = MGD_DBOBJECT_METADATA (dbobject); /* Compare revised datetimes. We must know if imported * object is newer than that one which exists in database */ g_object_get_property (G_OBJECT (metadata), "revised", &updated_timestamp); g_object_get_property (G_OBJECT (dbmetadata), "revised", &dbupdated_timestamp); updated = midgard_timestamp_get_string_from_value ((const GValue *)&updated_timestamp); dbupdated = midgard_timestamp_get_string_from_value ((const GValue *)&dbupdated_timestamp); g_value_unset (&updated_timestamp); g_value_unset (&dbupdated_timestamp); /* We can use g_ascii_strcasecmp as it type cast every single * pointer to integer and unsigned char returning substract result */ gint datecmp; if (updated == NULL) { g_warning ("Trying to import ivalid object. metadata.revised property holds NULL (Object: %s)", MGD_OBJECT_GUID (object)); if (dbupdated) g_free (dbupdated); g_object_unref (dbobject); return FALSE; } if (dbupdated == NULL) { g_warning ("Trying to import object for invalid object stored in database. metadata.revised property holds NULL (Database object:%s)", MGD_OBJECT_GUID (object)); if (updated) g_free (updated); g_object_unref (dbobject); return FALSE; } if (force) { datecmp = -1; } else { datecmp = g_ascii_strcasecmp ((const gchar *)dbupdated, (const gchar *)updated); } g_free(updated); g_free(dbupdated); gboolean deleted; gboolean ret; if (datecmp > 0 || datecmp == 0) { /* Database object is more recent or exactly the same */ g_object_unref (dbobject); MIDGARD_ERRNO_SET (mgd, MGD_ERR_OBJECT_IMPORTED); return FALSE; } else if (datecmp < 0) { /* Database object is elder */ /* DELETE */ g_object_get (G_OBJECT (metadata), "deleted", &deleted, NULL); /* Imported object is marked as deleted , so * * we delete object from database */ if (deleted) { ret = midgard_object_delete (dbobject, FALSE); g_object_unref (dbobject); return ret; } /* UPDATE */ MidgardMetadata *db_metadata = MGD_DBOBJECT_METADATA (dbobject); /* Check if dbobject is deleted */ g_object_get (db_metadata, "deleted", &deleted, NULL); guint undelete; g_object_get (G_OBJECT (metadata), "deleted", &undelete, NULL); if ((deleted && !undelete)) { midgard_schema_object_factory_object_undelete (mgd, MGD_OBJECT_GUID (dbobject)); goto _update_object; } if (deleted && !force) { MIDGARD_ERRNO_SET (mgd, MGD_ERR_OBJECT_DELETED); g_object_unref (dbobject); return FALSE; } _update_object: ret = _midgard_object_update (MIDGARD_OBJECT (object), OBJECT_UPDATE_IMPORTED, NULL); g_object_unref (dbobject); return ret; } } return FALSE; } static gboolean __import_blob_from_xml( MidgardConnection *mgd, xmlDoc *doc, xmlNode *node) { gchar *content; struct stat statbuf; const gchar *guid = (const gchar *)xmlGetProp(node, BAD_CAST "guid"); if (!guid) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_INTERNAL); g_warning("Object's guid is empty. Can not import blob file."); g_free((gchar *)guid); xmlFreeDoc(doc); return FALSE; } if (!midgard_is_guid((const gchar *)guid)) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_INTERNAL); g_warning("'%s' is not a valid guid", guid); g_free((gchar *)guid); xmlFreeDoc(doc); return FALSE; } MidgardObject *object = midgard_schema_object_factory_get_object_by_guid (mgd, guid); /* TODO , Add more error messages to inform about object state. * One is already set by midgard_object_class_get_object_by_guid */ if (!object) { g_free((gchar *)guid); xmlFreeDoc(doc); return FALSE; } /* FIXME, define even macro to get blobdir ( core level only ) */ gchar *blobdir = MIDGARD_DBOBJECT (object)->dbpriv->mgd->priv->config->blobdir; if (!blobdir || (*blobdir != '/') || (stat(blobdir, &statbuf) != 0) || !S_ISDIR(statbuf.st_mode)) { g_warning("Blobs directory is not set"); g_free((gchar *)guid); xmlFreeDoc(doc); return FALSE; } gchar *location; gchar *blobpath = NULL; g_object_get(G_OBJECT(object), "location", &location, NULL); if (strlen(location) > 1) { blobpath = g_strconcat(blobdir, "/", location, NULL); } /* TODO, Find the way to get content and not its copy */ /* node->content doesn't seem to hold it */ content = (gchar *)xmlNodeGetContent(node); gsize content_length = (gsize) strlen(content); guchar *decoded = g_base64_decode(content, &content_length); g_free(content); FILE *fp = fopen(blobpath, "w+"); if (NULL != fp) { g_free(decoded); g_free((gchar *)guid); xmlFreeDoc(doc); return FALSE; } size_t res_length = fwrite(decoded, sizeof(char), content_length, fp); fclose(fp); g_free(decoded); g_free((gchar *)guid); xmlFreeDoc(doc); if (res_length < content_length) { return FALSE; } return TRUE; } /** * midgard_replicator_import_from_xml: * @mgd: #MidgardConnection instance * @xml: data buffer which holds serialized object * @force: toggle to force import * * This method tries to import all objects which could be unserialized from gievn xml. * It's not atomic. Check error code returned from midgard_connection_get_error(). * */ void midgard_replicator_import_from_xml (MidgardConnection *mgd, const gchar *xml, gboolean force) { g_return_if_fail (mgd != NULL); g_return_if_fail (xml != NULL); xmlDoc *doc = NULL; xmlNode *root_node = NULL; midgard_core_object_get_xml_doc(mgd, xml, &doc, &root_node); if(doc == NULL || root_node == NULL) return; xmlNodePtr child = _get_type_node(root_node->children); if(!child) { g_warning("Can not get midgard type name from the given xml"); xmlFreeDoc(doc); return; } GType object_type = g_type_from_name((const gchar *)child->name); if(object_type == MIDGARD_TYPE_BLOB) { /* it will destroy xmlDoc */ __import_blob_from_xml(mgd, doc, child); return; } xmlChar *attr, *guid_attr; MidgardObject *dbobject; for(; child; child = _get_type_node(child->next)) { attr = xmlGetProp(child, BAD_CAST "purge"); guid_attr = xmlGetProp(child, BAD_CAST "guid"); if(attr && g_str_equal(attr, "yes")) { dbobject = midgard_schema_object_factory_get_object_by_guid (mgd, (const gchar *)guid_attr); if(dbobject || ( !dbobject && (mgd->errnum == MGD_ERR_OBJECT_DELETED) )) { midgard_object_purge(dbobject, FALSE); if(dbobject) g_object_unref(dbobject); xmlFree(attr); xmlFree(guid_attr); continue; } } xmlFree(attr); MidgardObject *object = midgard_object_new(mgd, (const gchar *)child->name, NULL); if(!object) { g_warning("Can not create %s instance", child->name); xmlFreeDoc(doc); xmlFree(attr); xmlFree(guid_attr); continue; } if (guid_attr) { MGD_OBJECT_GUID (object) = (const gchar *)g_strdup((gchar *)guid_attr); } if(!_nodes2object(G_OBJECT(object), child->children, force)) { xmlFree(guid_attr); g_object_unref(object); continue; } if (!midgard_replicator_import_object (MIDGARD_DBOBJECT (object), force)) { xmlFree (guid_attr); g_object_unref (object); continue; } else { xmlFree (guid_attr); g_object_unref (object); } } xmlFreeDoc (doc); } /* GOBJECT ROUTINES */ static void _midgard_replicator_class_init( gpointer g_class, gpointer g_class_data) { return; } /* Returns MidgardReplicator type. */ GType midgard_replicator_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardReplicatorClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_replicator_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardReplicator), 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardReplicator", &info, 0); } return type; } midgard2-core-10.05.7.1/src/query_order.h0000664000175000017500000000274211772046240014675 00000000000000/* * Copyright (C) 2005 Jukka Zitting * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef QUERY_ORDER_H #define QUERY_ORDER_H #include #include #include "midgard_object.h" #include "query_constraint.h" typedef struct MidgardQueryOrder MidgardQueryOrder; /* This structure is public now as we need it * while adding special orders for types like * metadata or referenced ones */ /* * The opaque query order type. */ struct MidgardQueryOrder { MidgardCoreQueryConstraint *constraint; }; MidgardQueryOrder *midgard_core_query_order_new( MidgardQueryBuilder *builder, const gchar *name, const gchar *dir); const gchar *midgard_core_query_order_get_sql(MidgardQueryOrder *order); void midgard_core_query_order_free(MidgardQueryOrder *order); #endif /* QUERY_ORDER_H */ midgard2-core-10.05.7.1/src/group_constraint.c0000664000175000017500000001023311772046240015722 00000000000000/* * Copyright (C) 2007 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "group_constraint.h" static void add_sql(MidgardGroupConstraint *group, GString *sql) { g_assert(group != NULL); g_assert(sql != NULL); GSList *list = NULL; GSList *jlist = NULL; GSList *glist = NULL; guint i = 0; if(g_slist_length(group->constraints) == 0 && g_slist_length(group->nested) == 0) { g_string_append(sql, "1=1"); return; } if(g_slist_length(group->constraints) == 1 && g_slist_length(group->nested) == 0) { g_string_append(sql, MIDGARD_CORE_QUERY_CONSTRAINT(group->constraints->data)->priv->condition); return; } g_string_append_c(sql, '('); for(list = group->constraints; list != NULL; list = list->next) { if(i > 0) g_string_append_printf(sql, " %s ", group->type); g_string_append(sql, MIDGARD_CORE_QUERY_CONSTRAINT(list->data)->priv->condition); i++; } for(glist = group->nested; glist != NULL; glist = glist->next) { if(i > 0) g_string_append_printf(sql, " %s ", group->type); MidgardGroupConstraint *ngroup = MIDGARD_GROUP_CONSTRAINT(glist->data); MidgardGroupConstraintClass *klass = MIDGARD_GROUP_CONSTRAINT_GET_CLASS(ngroup); klass->add_sql(ngroup, sql); i++; } g_string_append_c(sql, ')'); list = NULL; for(list = group->constraints; list != NULL; list = list->next) { for(jlist = ((MidgardCoreQueryConstraint*)list->data)->priv->joins; jlist != NULL; jlist = jlist->next) { g_string_append(sql, " AND "); g_string_append(sql, ((MidgardCoreQueryConstraintPrivate*)jlist->data)->condition); } } } G_DEFINE_TYPE(MidgardGroupConstraint, midgard_group_constraint, MIDGARD_CORE_TYPE_QUERY_CONSTRAINT) static void midgard_group_constraint_init(MidgardGroupConstraint *self) { g_assert(self != NULL); } static void midgard_group_constraint_finalize(MidgardGroupConstraint *group) { g_assert(group != NULL); if(group->type != NULL) g_free(group->type); GSList *list = NULL; for(list = group->constraints; list != NULL; list = list->next) { g_object_unref(list->data); } if (group->constraints) { g_slist_free(group->constraints); group->constraints = NULL; } } static void midgard_group_constraint_class_init( MidgardGroupConstraintClass *klass) { g_assert(klass != NULL); MIDGARD_GROUP_CONSTRAINT_CLASS(klass)->add_sql = add_sql; G_OBJECT_CLASS(klass)->finalize = (void (*)(GObject *self)) midgard_group_constraint_finalize; } static const gchar *valid_group[] = { "OR", "AND", NULL }; MidgardGroupConstraint *midgard_group_constraint_new(const gchar *type) { g_assert(type != NULL); guint i = 0; while(valid_group[i] != NULL) { if (g_str_equal(type, valid_group[i])) break; i++; } if(valid_group[i] == NULL) { g_warning("Invalid group operator: %s", type); return NULL; } MidgardGroupConstraint *self = g_object_new(MIDGARD_TYPE_GROUP_CONSTRAINT, NULL); self->constraints = NULL; self->type = g_strdup(type); self->nested = NULL; self->parent_group = NULL; return self; } void midgard_group_constraint_add_constraint( MidgardGroupConstraint *self, MidgardCoreQueryConstraint *constraint) { /* NULL self is acceptable as it might be unitialized builder->priv->orders. * If it fails, then it should be changed to orders array */ g_assert(constraint != NULL); self->constraints = g_slist_append(self->constraints, constraint); } midgard2-core-10.05.7.1/src/midgard_connection.h0000664000175000017500000001165311772046240016164 00000000000000/* * Copyright (C) 2006, 2007, 2008, 2009 Piotr Pokora * Copyright (C) 2006 Jukka Zitting * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_CONNECTION_H #define MIDGARD_CONNECTION_H #define GETTEXT_PACKAGE "midgard" #include #include "midgard_defs.h" #include "midgard_config.h" #include "midgard_workspace_storage.h" #include "midgard_workspace_manager.h" /* convention macros */ #define MIDGARD_TYPE_CONNECTION (midgard_connection_get_type()) #define MIDGARD_CONNECTION(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_CONNECTION, MidgardConnection)) #define MIDGARD_CONNECTION_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_CONNECTION, MidgardConnectionClass)) #define MIDGARD_IS_CONNECTION(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_CONNECTION)) #define MIDGARD_IS_CONNECTION_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_CONNECTION)) #define MIDGARD_CONNECTION_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_CONNECTION, MidgardConnectionClass)) typedef struct MidgardConnectionClass MidgardConnectionClass; typedef struct _MidgardConnectionPrivate MidgardConnectionPrivate; struct MidgardConnectionClass { GObjectClass parent; /* signals */ void (*error) (GObject *object); void (*auth_changed) (GObject *object); void (*lost_provider) (GObject *object); void (*connected) (GObject *object); void (*disconnected) (GObject *object); /* signals IDs */ guint signal_id_error; guint signal_id_auth_changed; guint signal_id_lost_provider; guint signal_id_connected; guint signal_id_disconnected; }; struct _MidgardConnection { GObject parent; /* */ gint errnum; gchar *errstr; GError *err; /* < private > */ MidgardConnectionPrivate *priv; }; GType midgard_connection_get_type (void); MidgardConnection *midgard_connection_new (void); gboolean midgard_connection_open (MidgardConnection *self, const gchar *name, GError **error); GHashTable *midgard_connection_open_all (gboolean userdir); gboolean midgard_connection_open_config (MidgardConnection *self, MidgardConfig *config); gboolean midgard_connection_open_from_file (MidgardConnection *self, const gchar *filepath, GError **error); gboolean midgard_connection_is_connected (MidgardConnection *self); gboolean midgard_connection_set_loglevel (MidgardConnection *self, const gchar *level, GLogFunc log_func); guint midgard_connection_get_loglevel (MidgardConnection *self); void midgard_connection_set_loghandler (MidgardConnection *self, guint loghandler); guint midgard_connection_get_loghandler (MidgardConnection *self); gint midgard_connection_get_error (MidgardConnection *self); void midgard_connection_set_error (MidgardConnection *self, gint errcode); const gchar *midgard_connection_get_error_string (MidgardConnection *self); MidgardUser *midgard_connection_get_user (MidgardConnection *self); MidgardConnection *midgard_connection_copy (MidgardConnection *self); gboolean midgard_connection_reopen (MidgardConnection *self); gchar **midgard_connection_list_auth_types (MidgardConnection *self, guint *n_types); void midgard_connection_enable_quota (MidgardConnection *self, gboolean toggle); void midgard_connection_enable_replication (MidgardConnection *self, gboolean toggle); void midgard_connection_enable_dbus (MidgardConnection *self, gboolean toggle); void midgard_connection_enable_workspace (MidgardConnection *self, gboolean toggle); gboolean midgard_connection_is_enabled_quota (MidgardConnection *self); gboolean midgard_connection_is_enabled_replication (MidgardConnection *self); gboolean midgard_connection_is_enabled_dbus (MidgardConnection *self); gboolean midgard_connection_is_enabled_workspace (MidgardConnection *self); void midgard_connection_close (MidgardConnection *self); gboolean midgard_connection_set_workspace (MidgardConnection *self, MidgardWorkspaceStorage *workspace); const MidgardWorkspaceStorage *midgard_connection_get_workspace (MidgardConnection *self); const MidgardWorkspaceManager *midgard_connection_get_workspace_manager (MidgardConnection *self); #endif /* MIDGARD_CONNNECTION_H */ midgard2-core-10.05.7.1/src/midgard_reflection_property.c0000664000175000017500000002161711772046240020117 00000000000000/* * Copyright (C) 2006, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_reflection_property.h" #include "schema.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" struct _MidgardReflectionProperty{ GObject parent; MidgardDBObjectClass *klass; }; static void _midgard_reflection_property_finalize (GObject *object) { g_assert (object != NULL); return; } /* Initialize class */ static void _midgard_reflection_property_class_init (gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); gobject_class->set_property = NULL; gobject_class->get_property = NULL; gobject_class->finalize = _midgard_reflection_property_finalize; } /* Register MidgardObjectProperty type */ GType midgard_reflection_property_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardReflectionPropertyClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_reflection_property_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardReflectionProperty), 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardReflectionProperty", &info, 0); } return type; } /** * midgard_reflection_property_new: * @klass: #MidgardDBObjectClass pointer * * Returns: newly initialized #MidgardReflectionProperty instance or %NULL on failure. * * Deprecated:10.05 */ MidgardReflectionProperty * midgard_reflection_property_new (MidgardDBObjectClass *klass) { g_assert(klass != NULL); MidgardReflectionProperty *self = g_object_new(MIDGARD_TYPE_REFLECTION_PROPERTY, NULL); self->klass = klass; return self; } /** * midgard_reflection_property_get_midgard_type: * @self: #MidgardReflectionProperty instance * @propname: property name which is registered for #MidgardDBObjectClass * * Returns: type (#GType) of the property or %NULL if property is not registered for given class. * Deprecated:10.05 */ GType midgard_reflection_property_get_midgard_type (MidgardReflectionProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, 0); g_return_val_if_fail (propname != NULL, 0); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr( MIDGARD_DBOBJECT_CLASS(self->klass), propname); if (prop_attr == NULL) return MGD_TYPE_NONE; return prop_attr->gtype; } /** * midgard_reflection_property_is_link: * @self: #MidgardReflectionProperty instance * @propname: property name * * Checks whether property is a link. * * Returns: %TRUE if property is registered as link, %FALSE otherwise (or in case if property is not registered for given class. * Deprecated:10.05 */ gboolean midgard_reflection_property_is_link (MidgardReflectionProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (propname != NULL, FALSE); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr( MIDGARD_DBOBJECT_CLASS(self->klass), propname); if (prop_attr == NULL) return FALSE; return prop_attr->is_link; } /** * midgard_reflection_property_is_linked: * @self: #MidgardReflectionProperty instance * @propname: property name * * Checks if property is linked with another type. * * Returns: %TRUE if property is linked with another type (property of another class is defined as a link to given one). * %FALSE is returned if property is not linked or is not registered for given class. * Deprecated:10.05 */ gboolean midgard_reflection_property_is_linked (MidgardReflectionProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (propname != NULL, FALSE); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr( MIDGARD_DBOBJECT_CLASS(self->klass), propname); if (prop_attr == NULL) return FALSE; return prop_attr->is_linked; } /** * midgard_reflection_property_get_link_name: * @self: #MidgardReflectionProperty instance * @propname: property name * * Returns: The name of the class, the given property is a link to. * Or %NULL if property is not a link or given property is not registered for given class. * Deprecated:10.05 */ const gchar * midgard_reflection_property_get_link_name (MidgardReflectionProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (propname != NULL, NULL); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr( MIDGARD_DBOBJECT_CLASS(self->klass), propname); if (prop_attr == NULL) return NULL; return prop_attr->link; } /** * midgard_reflection_property_get_link_target: * @self: #MidgardReflectionProperty instance * @propname: property name * * Returns: The name of the property, the given one is a link to. * Or %NULL if property is not a link or it's not registered for given class. * Deprecated:10.05 */ const gchar * midgard_reflection_property_get_link_target (MidgardReflectionProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (propname != NULL, NULL); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr( MIDGARD_DBOBJECT_CLASS(self->klass), propname); if (prop_attr == NULL) return NULL; return prop_attr->link_target; } /** * midgard_reflection_property_description: * @self: #MidgardReflectionProperty instance * @propname: property name * * Returns: description of the given property or %NULL. * * Deprecated:10.05 */ const gchar * midgard_reflection_property_description (MidgardReflectionProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (propname != NULL, NULL); GParamSpec *prop = g_object_class_find_property( G_OBJECT_CLASS(self->klass), propname); if (prop == NULL) return NULL; return g_param_spec_get_blurb(prop); } /** * midgard_reflection_property_get_link_class: * @self: #MidgardReflectionProperty instance * @propname: property name * * Returns the pointer to the #MidgardDBObjectClass, a given property is a link to. * @see midgard_reflection_property_get_link_name() * Deprecated:10.05 */ const MidgardDBObjectClass * midgard_reflection_property_get_link_class (MidgardReflectionProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (propname != NULL, NULL); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr( MIDGARD_DBOBJECT_CLASS(self->klass), propname); if (prop_attr == NULL) return NULL; if (prop_attr->is_link) { MidgardDBObjectClass *link_klass = g_type_class_peek(g_type_from_name(prop_attr->link)); return link_klass; } return NULL; } /** * midgard_reflection_property_get_user_value: * @self: #MidgardReflectionProperty instance * @property: property to look value for * @name: name of user defined field * * Returns: value for user defined field, or NULL if none found * * Since: 9.09 * Deprecated:10.05 */ const gchar* midgard_reflection_property_get_user_value (MidgardReflectionProperty *self, const gchar *property, const gchar *name) { g_assert (self != NULL); g_return_val_if_fail (property != NULL, NULL); g_return_val_if_fail (name != NULL, NULL); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr (MIDGARD_DBOBJECT_CLASS (self->klass), property); if (prop_attr == NULL) return NULL; return (gchar *) g_hash_table_lookup (prop_attr->user_values, name); } /** * midgard_reflection_property_is_private: * @self: #MidgardReflectionProperty instance * @property: property name to check * * Returns: %TRUE, if propery is defined private, %FALSE otherwise * * Deprecated:10.05 */ gboolean midgard_reflection_property_is_private (MidgardReflectionProperty *self, const gchar *property) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (property != NULL, FALSE); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr (MIDGARD_DBOBJECT_CLASS (self->klass), property); if (prop_attr == NULL) return FALSE; return prop_attr->is_private; } midgard2-core-10.05.7.1/src/midgard_datatypes.h0000664000175000017500000000173711772046240016025 00000000000000/* * Copyright (C) 2005 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifndef MIDGARD_DATATYPES_H #define MIDGARD_DATATYPES_H #include #include struct MidgardTypeHolder{ guint elements; guint level; }; #endif /* MIDGARD_DATATYPES_H */ midgard2-core-10.05.7.1/src/midgard_object.h0000664000175000017500000001541011772046240015266 00000000000000/* Copyright (C) 2004,2005,2006,2007,2008, 2009 Piotr Pokora Copyright (C) 2004 Alexander Bokovoy This program is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_OBJECT_H #define MIDGARD_OBJECT_H #include #include "query_builder.h" #include "midgard_dbobject.h" #define MIDGARD_TYPE_OBJECT midgard_object_get_type() #define MIDGARD_OBJECT(object) (G_TYPE_CHECK_INSTANCE_CAST ((object), MIDGARD_TYPE_OBJECT, MidgardObject)) #define MIDGARD_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_OBJECT, MidgardObjectClass)) #define MIDGARD_IS_OBJECT(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_OBJECT)) #define MIDGARD_IS_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_OBJECT)) #define MIDGARD_OBJECT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_OBJECT, MidgardObjectClass)) #define MIDGARD_OBJECT_GET_CLASS_BY_NAME(name) ((MidgardObjectClass*) g_type_class_peek(g_type_from_name(name))) typedef struct _MidgardObject MidgardObject; typedef struct _MidgardObjectPrivate MidgardObjectPrivate; typedef struct _MidgardObjectClassPrivate MidgardObjectClassPrivate; struct _MidgardObject { MidgardDBObject parent; /* */ MidgardObjectPrivate *priv; }; struct _MidgardObjectClass { MidgardDBObjectClass parent; /* private */ MidgardObjectClassPrivate *priv; /* methods */ const MidgardConnection *(*get_connection) (MidgardDBObject *); /* signals */ void (*action_create) (MidgardObject *object); void (*action_create_hook) (MidgardObject *object); void (*action_created) (MidgardObject *object); void (*action_update) (MidgardObject *object); void (*action_update_hook) (MidgardObject *object); void (*action_updated) (MidgardObject *object); void (*action_delete) (MidgardObject *object); void (*action_delete_hook) (MidgardObject *object); void (*action_deleted) (MidgardObject *object); void (*action_purge) (MidgardObject *object); void (*action_purge_hook) (MidgardObject *object); void (*action_purged) (MidgardObject *object); void (*action_import) (MidgardObject *object); void (*action_import_hook) (MidgardObject *object); void (*action_imported) (MidgardObject *object); void (*action_export) (MidgardObject *object); void (*action_export_hook) (MidgardObject *object); void (*action_exported) (MidgardObject *object); void (*action_loaded) (MidgardObject *object); void (*action_loaded_hook) (MidgardObject *object); void (*action_approve) (MidgardObject *object); void (*action_approve_hook) (MidgardObject *object); void (*action_approved) (MidgardObject *object); void (*action_unapprove) (MidgardObject *object); void (*action_unapprove_hook) (MidgardObject *object); void (*action_unapproved) (MidgardObject *object); void (*action_lock) (MidgardObject *object); void (*action_lock_hook) (MidgardObject *object); void (*action_locked) (MidgardObject *object); void (*action_unlock) (MidgardObject *object); void (*action_unlock_hook) (MidgardObject *object); void (*action_unlocked) (MidgardObject *object); /* signals id */ guint signal_action_loaded; guint signal_action_loaded_hook; guint signal_action_update; guint signal_action_update_hook; guint signal_action_updated; guint signal_action_create; guint signal_action_create_hook; guint signal_action_created; guint signal_action_delete; guint signal_action_delete_hook; guint signal_action_deleted; guint signal_action_purge; guint signal_action_purge_hook; guint signal_action_purged; guint signal_action_import; guint signal_action_import_hook; guint signal_action_imported; guint signal_action_export; guint signal_action_export_hook; guint signal_action_exported; guint signal_action_approve; guint signal_action_approve_hook; guint signal_action_approved; guint signal_action_unapprove; guint signal_action_unapprove_hook; guint signal_action_unapproved; guint signal_action_lock; guint signal_action_lock_hook; guint signal_action_locked; guint signal_action_unlock; guint signal_action_unlock_hook; guint signal_action_unlocked; }; GType midgard_object_get_type(void); enum MidgardObjectAction { MGD_OBJECT_ACTION_NONE = 0, MGD_OBJECT_ACTION_DELETE, /**< Object has been deleted and can be undeleted >*/ MGD_OBJECT_ACTION_PURGE, /**< Object has been purged ( no recovery or undelete ) >*/ MGD_OBJECT_ACTION_CREATE, /**< Object has been created >*/ MGD_OBJECT_ACTION_UPDATE /**< Object has been updated >*/ }; MidgardObject *midgard_object_new (MidgardConnection *mgd, const gchar *name, GValue *value); MidgardObject *midgard_object_factory (MidgardConnection *mgd, const gchar *name, GValue *value); gboolean midgard_object_get_by_id(MidgardObject *object, guint id); gboolean midgard_object_get_by_guid(MidgardObject *object, const gchar *guid); gboolean midgard_object_get_by_path(MidgardObject *self, const gchar *path); gboolean midgard_object_save(MidgardObject *self); gboolean midgard_object_update(MidgardObject *self); gboolean midgard_object_create(MidgardObject *object); gboolean midgard_object_delete(MidgardObject *object, gboolean check_dependents); gboolean midgard_object_purge(MidgardObject *object, gboolean check_dependents); gchar * midgard_object_build_path(MidgardObject *mobj); gboolean midgard_object_has_dependents(MidgardObject *self); gboolean midgard_object_set_guid(MidgardObject *self, const gchar *guid); void midgard_object_set_connection(MidgardObject *self, MidgardConnection *mgd); const MidgardConnection *midgard_object_get_connection(MidgardObject *self); gboolean midgard_object_approve(MidgardObject *self); gboolean midgard_object_is_approved(MidgardObject *self); gboolean midgard_object_unapprove(MidgardObject *self); gboolean midgard_object_lock(MidgardObject *self); gboolean midgard_object_is_locked(MidgardObject *self); gboolean midgard_object_unlock(MidgardObject *self); MidgardWorkspace *midgard_object_get_workspace (MidgardObject *self); GValue *midgard_object_get_schema_property (MidgardObject *self, const gchar *property); void midgard_object_set_schema_property (MidgardObject *self, const gchar *property, GValue *value); #endif /* MIDGARD_OBJECT_H */ midgard2-core-10.05.7.1/src/midgard_query_storage.h0000664000175000017500000000420211772046240016706 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_STORAGE_H #define MIDGARD_QUERY_STORAGE_H #include #include "midgard_dbobject.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_STORAGE (midgard_query_storage_get_type()) #define MIDGARD_QUERY_STORAGE(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_STORAGE, MidgardQueryStorage)) #define MIDGARD_QUERY_STORAGE_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_QUERY_STORAGE, MidgardQueryStorageClass)) #define MIDGARD_IS_QUERY_STORAGE(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_STORAGE)) #define MIDGARD_IS_QUERY_STORAGE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_QUERY_STORAGE)) #define MIDGARD_QUERY_STORAGE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_QUERY_STORAGE, MidgardQueryStorageClass)) typedef struct _MidgardQueryStorage MidgardQueryStorage; typedef struct _MidgardQueryStoragePrivate MidgardQueryStoragePrivate; typedef struct _MidgardQueryStorageClass MidgardQueryStorageClass; struct _MidgardQueryStorage { GObject parent; /* < private > */ MidgardQueryStoragePrivate *priv; }; struct _MidgardQueryStorageClass { GObjectClass parent; }; GType midgard_query_storage_get_type (void); MidgardQueryStorage *midgard_query_storage_new (const gchar *classname); G_END_DECLS #endif /* MIDGARD_QUERY_STORAGE_H */ midgard2-core-10.05.7.1/src/midgard_query_executor.h0000664000175000017500000000745111772046240017111 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_EXECUTOR_H #define MIDGARD_QUERY_EXECUTOR_H #include #include "midgard_connection.h" #include "midgard_query_storage.h" #include "midgard_query_constraint_simple.h" #include "midgard_query_property.h" #include "midgard_query_holder.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_EXECUTOR (midgard_query_executor_get_type()) #define MIDGARD_QUERY_EXECUTOR(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_EXECUTOR, MidgardQueryExecutor)) #define MIDGARD_QUERY_EXECUTOR_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_QUERY_EXECUTOR, MidgardQueryExecutorClass)) #define MIDGARD_IS_QUERY_EXECUTOR(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_EXECUTOR)) #define MIDGARD_IS_QUERY_EXECUTOR_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_QUERY_EXECUTOR)) #define MIDGARD_QUERY_EXECUTOR_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_QUERY_EXECUTOR, MidgardQueryExecutorClass)) typedef struct _MidgardQueryExecutor MidgardQueryExecutor; typedef struct _MidgardQueryExecutorClass MidgardQueryExecutorClass; typedef struct _MidgardQueryExecutorPrivate MidgardQueryExecutorPrivate; struct _MidgardQueryExecutorClass { GObjectClass parent; /* virtual methods */ gboolean (*set_constraint) (MidgardQueryExecutor *self, MidgardQueryConstraintSimple *constraint); gboolean (*set_limit) (MidgardQueryExecutor *self, guint limit); gboolean (*set_offset) (MidgardQueryExecutor *self, guint offset); gboolean (*add_order) (MidgardQueryExecutor *self, MidgardQueryHolder *holder, const gchar *type); gboolean (*add_join) (MidgardQueryExecutor *self, const gchar *join_type, MidgardQueryHolder *left_holder, MidgardQueryHolder *right_holder); guint (*get_results_count) (MidgardQueryExecutor *self); /* signals */ void (*execution_start) (GObject *object); void (*execution_end) (GObject *object); /* signals IDs */ guint signal_id_execution_start; guint signal_id_execution_end; }; struct _MidgardQueryExecutor { GObject parent; /* < private > */ MidgardQueryExecutorPrivate *priv; }; GType midgard_query_executor_get_type (void); MidgardQueryExecutor *midgard_query_executor_new (MidgardConnection *mgd, MidgardQueryStorage *storage); gboolean midgard_query_executor_set_constraint (MidgardQueryExecutor *self, MidgardQueryConstraintSimple *constraint); gboolean midgard_query_executor_set_limit (MidgardQueryExecutor *self, guint limit); gboolean midgard_query_executor_set_offset (MidgardQueryExecutor *self, guint offset); gboolean midgard_query_executor_add_order (MidgardQueryExecutor *self, MidgardQueryHolder *holder, const gchar *type); gboolean midgard_query_executor_add_join (MidgardQueryExecutor *self, const gchar *join_type, MidgardQueryHolder *left_holder, MidgardQueryHolder *right_holder); guint midgard_query_executor_get_results_count (MidgardQueryExecutor *self); G_END_DECLS #endif /* MIDGARD_QUERY_EXECUTOR_H */ midgard2-core-10.05.7.1/src/midgard_query_selector.h0000664000175000017500000000425211772046240017067 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_SELECTOR_H #define MIDGARD_QUERY_SELECTOR_H #include #include "midgard_query_result.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_SELECTOR (midgard_query_selector_get_type()) #define MIDGARD_QUERY_SELECTOR(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_SELECTOR, MidgardQuerySelector)) #define MIDGARD_IS_QUERY_SELECTOR(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_SELECTOR)) #define MIDGARD_QUERY_SELECTOR_GET_INTERFACE(inst) (G_TYPE_INSTANCE_GET_INTERFACE ((inst), MIDGARD_TYPE_QUERY_SELECTOR, MidgardQuerySelectorIFace)) typedef struct _MidgardQuerySelector MidgardQuerySelector; typedef struct _MidgardQuerySelectorIFace MidgardQuerySelectorIFace; struct _MidgardQuerySelectorIFace { GTypeInterface parent; MidgardQueryResult* (*get_query_result) (MidgardQuerySelector *self, GError **error); MidgardConnection* (*get_connection) (MidgardQuerySelector *self); const gchar* (*get_query_string) (MidgardQuerySelector *self); }; GType midgard_query_selector_get_type (void); MidgardQueryResult* midgard_query_selector_get_query_result (MidgardQuerySelector *self, GError **error); MidgardConnection* midgard_query_selector_get_connection (MidgardQuerySelector *self); const gchar* midgard_query_selector_get_query_string (MidgardQuerySelector *self); G_END_DECLS #endif /* MIDGARD_QUERY_SELECTOR_H */ midgard2-core-10.05.7.1/src/midgard_core_xml.c0000664000175000017500000000473111772046240015627 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef _MIDGARD_CORE_XML_H #define _MIDGARD_CORE_XML_H #include #include "midgard_core_xml.h" xmlNode* midgard_core_xml_get_node_by_name (xmlNode *node, const gchar *name) { g_assert(node != NULL); g_assert(name != NULL); xmlNode *cur = NULL; for (cur = node; cur; cur = cur->next) { if (cur->type == XML_ELEMENT_NODE) { g_warning("EL: %s ?= %s", cur->name, name); if(g_str_equal(cur->name, name)) return cur; } } return NULL; } gchar* midgard_core_xml_get_attribute_content (xmlNode *node) { g_return_val_if_fail(node != NULL, NULL); gchar *content = NULL; content = (gchar *)xmlNodeGetContent(node); if(content == NULL) return NULL; xmlParserCtxtPtr parser = xmlNewParserCtxt(); xmlChar *decoded = xmlStringDecodeEntities(parser, (const xmlChar *) content, XML_SUBSTITUTE_REF, 0, 0, 0); xmlFreeParserCtxt(parser); g_free(content); return (gchar*)decoded; } gchar* midgard_core_xml_get_child_attribute_content_by_name (xmlNode *node, const gchar *nodename, const gchar *attr) { g_return_val_if_fail(node != NULL, NULL); g_return_val_if_fail(nodename != NULL, NULL); g_return_val_if_fail(attr != NULL, NULL); xmlNode *cur; for (cur = node->children; cur; cur = cur->next) { if (cur->type == XML_ELEMENT_NODE && g_str_equal(cur->name, nodename)) { return (gchar *)xmlGetProp(cur, (const xmlChar *)attr); } } return NULL; } gboolean midgard_core_xml_attribute_is_allowed(const char **allowed, const xmlChar *str) { g_assert(allowed != NULL); g_assert(str != NULL); while (*allowed != NULL) { if (g_str_equal(*allowed++, str)) { return TRUE; } } return FALSE; } #endif /* _MIDGARD_CORE_XML_H */ midgard2-core-10.05.7.1/src/midgard_workspace_manager.h0000664000175000017500000000650611772046240017516 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_WORKSPACE_MANAGER_H #define MIDGARD_WORKSPACE_MANAGER_H #include "midgard_dbobject.h" #include "midgard_defs.h" #include "midgard_workspace_context.h" #include "midgard_workspace_storage.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_WORKSPACE_MANAGER (midgard_workspace_manager_get_type()) #define MIDGARD_WORKSPACE_MANAGER(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_WORKSPACE_MANAGER, MidgardWorkspaceManager)) #define MIDGARD_WORKSPACE_MANAGER_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_WORKSPACE_MANAGER, MidgardWorkspaceManagerClass)) #define MIDGARD_IS_WORKSPACE_MANAGER(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_WORKSPACE_MANAGER)) #define MIDGARD_IS_WORKSPACE_MANAGER_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_WORKSPACE_MANAGER)) #define MIDGARD_WORKSPACE_MANAGER_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_WORKSPACE_MANAGER, MidgardWorkspaceManagerClass)) typedef struct _MidgardWorkspaceManager MidgardWorkspaceManager; typedef struct _MidgardWorkspaceManagerClass MidgardWorkspaceManagerClass; typedef struct _MidgardWorkspaceManagerPrivate MidgardWorkspaceManagerPrivate; struct _MidgardWorkspaceManagerClass{ GObjectClass parent; }; struct _MidgardWorkspaceManager{ GObject parent; /* < private > */ MidgardWorkspaceManagerPrivate *priv; }; GType midgard_workspace_manager_get_type (void); MidgardWorkspaceManager *midgard_workspace_manager_new (MidgardConnection *mgd); gboolean midgard_workspace_manager_create_workspace (const MidgardWorkspaceManager *self, MidgardWorkspaceStorage *ws, const gchar *path, GError **error); gboolean midgard_workspace_manager_update_workspace (const MidgardWorkspaceManager *self, MidgardWorkspaceStorage *ws, GError **error); gboolean midgard_workspace_manager_purge_workspace (const MidgardWorkspaceManager *self, MidgardWorkspaceStorage *ws, GError **error); gboolean midgard_workspace_manager_path_exists (const MidgardWorkspaceManager *self, const gchar *path); gboolean midgard_workspace_manager_get_workspace_by_path (const MidgardWorkspaceManager *self, MidgardWorkspaceStorage *ws, const gchar *path, GError **error); gboolean midgard_workspace_manager_purge_content (const MidgardWorkspaceManager *self, const gchar *type, MidgardWorkspace *ws, GError **error); gboolean midgard_workspace_manager_move_content (const MidgardWorkspaceManager *self, const gchar *type, MidgardWorkspace *src, MidgardWorkspace *dest, GError **error); G_END_DECLS #endif /* MIDGARD_WORKSPACE_MANAGER_H */ midgard2-core-10.05.7.1/src/midgard_query_holder.c0000664000175000017500000000406611772046240016522 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_holder.h" struct _MidgardQueryHolder { GObject parent; }; /** * midgard_query_holder_get_value: * @self: #MidgardQueryHolder instance * @value: (out): pointer to store returned value * * Since: 10.05 */ void midgard_query_holder_get_value (MidgardQueryHolder *self, GValue *value) { MIDGARD_QUERY_HOLDER_GET_INTERFACE (self)->get_value (self, value); } /** * midgard_query_holder_set_value: * @self: #MidgardQueryHolder instance * @value: value to set * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_query_holder_set_value (MidgardQueryHolder *self, const GValue *value) { return MIDGARD_QUERY_HOLDER_GET_INTERFACE (self)->set_value (self, value); } /* GOBJECT ROUTINES */ GType midgard_query_holder_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQueryHolderIFace), NULL, /* base_init */ NULL, /* base_finalize */ NULL, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_INTERFACE, "MidgardQueryHolder", &info, 0); g_type_interface_add_prerequisite (type, G_TYPE_OBJECT); } return type; } midgard2-core-10.05.7.1/src/midgard_error.h0000664000175000017500000001403711772046240015155 00000000000000/* * Copyright (C) 2006 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_ERROR_H #define MIDGARD_ERROR_H #include "midgard_connection.h" G_BEGIN_DECLS #define MIDGARD_GENERIC_ERROR midgard_error_generic() #define MGD_GENERIC_ERROR MIDGARD_GENERIC_ERROR typedef enum { MGD_ERR_OK = -0, /**< MD_ERR_OK
*/ MGD_ERR_ERROR = -1, /**<
*/ MGD_ERR_ACCESS_DENIED = -2, /**< Access denied *
*/ MGD_ERR_NO_METADATA = -3, MGD_ERR_NOT_OBJECT = -4, /**< Not Midgard Object
*/ MGD_ERR_NOT_EXISTS = -5, /**< Object does not exist
*/ MGD_ERR_INVALID_NAME = -6 , /**<
*/ MGD_ERR_DUPLICATE = -7 , /**< Object already exist
*/ MGD_ERR_HAS_DEPENDANTS = -8 , /**< Object has dependants
*/ MGD_ERR_RANGE = -9, /**<
*/ MGD_ERR_NOT_CONNECTED = -10, /**< Not connected to the Midgard database
*/ MGD_ERR_SG_NOTFOUND = -11, /**< Sitegroup not found
*/ MGD_ERR_INVALID_OBJECT = -12, /**< Object not registered as Midgard Object
*/ MGD_ERR_QUOTA = -13, /**< Quota limit reached
*/ MGD_ERR_INTERNAL = -14, /**< Critical internal error
*/ MGD_ERR_OBJECT_NAME_EXISTS = -15, /**< Object with such name exists in tree
*/ MGD_ERR_OBJECT_NO_STORAGE = -16, /**< Storage table not defined for object
*/ MGD_ERR_OBJECT_NO_PARENT= -17, /**< Parent object in tree not defined
*/ MGD_ERR_INVALID_PROPERTY_VALUE = -18, /**< Invalid property value
*/ MGD_ERR_INVALID_PROPERTY = -19, /***/ MGD_ERR_USER_DATA = -20, /**< Empty error message reserved for application's developers
*/ MGD_ERR_OBJECT_DELETED = -21, /**< Object deleted
*/ MGD_ERR_OBJECT_PURGED = -22, /**< Object purged
*/ MGD_ERR_OBJECT_EXPORTED = -23, /**< Object already exported
*/ MGD_ERR_OBJECT_IMPORTED = -24, /**< Object already imported
*/ MGD_ERR_MISSED_DEPENDENCE = -25, /**< Missed dependence for object
*/ MGD_ERR_TREE_IS_CIRCULAR = -26, /**< Circular reference found in object's tree
*/ MGD_ERR_OBJECT_IS_LOCKED = -27 /**< Object is locked */ }MgdErrorGeneric; typedef enum { MIDGARD_GENERIC_ERROR_OK = -0, /**< MD_ERR_OK
*/ MIDGARD_GENERIC_ERROR_ERROR = -1, /**<
*/ MIDGARD_GENERIC_ERROR_ACCESS_DENIED = -2, /**< Access denied *
*/ MIDGARD_GENERIC_ERROR_NO_METADATA = -3, MIDGARD_GENERIC_ERROR_NOT_OBJECT = -4, /**< Not Midgard Object
*/ MIDGARD_GENERIC_ERROR_NOT_EXISTS = -5, /**< Object does not exist
*/ MIDGARD_GENERIC_ERROR_INVALID_NAME = -6 , /**<
*/ MIDGARD_GENERIC_ERROR_DUPLICATE = -7 , /**< Object already exist
*/ MIDGARD_GENERIC_ERROR_HAS_DEPENDANTS = -8 , /**< Object has dependants
*/ MIDGARD_GENERIC_ERROR_RANGE = -9, /**<
*/ MIDGARD_GENERIC_ERROR_NOT_CONNECTED = -10, /**< Not connected to the Midgard database
*/ MIDGARD_GENERIC_ERROR_SG_NOTFOUND = -11, /**< Sitegroup not found
*/ MIDGARD_GENERIC_ERROR_INVALID_OBJECT = -12, /**< Object not registered as Midgard Object
*/ MIDGARD_GENERIC_ERROR_QUOTA = -13, /**< Quota limit reached
*/ MIDGARD_GENERIC_ERROR_INTERNAL = -14, /**< Critical internal error
*/ MIDGARD_GENERIC_ERROR_OBJECT_NAME_EXISTS = -15, /**< Object with such name exists in tree
*/ MIDGARD_GENERIC_ERROR_OBJECT_NO_STORAGE = -16, /**< Storage table not defined for object
*/ MIDGARD_GENERIC_ERROR_OBJECT_NO_PARENT= -17, /**< Parent object in tree not defined
*/ MIDGARD_GENERIC_ERROR_INVALID_PROPERTY_VALUE = -18, /**< Invalid property value
*/ MIDGARD_GENERIC_ERROR_INVALID_PROPERTY = -19, /***/ MIDGARD_GENERIC_ERROR_USER_DATA = -20, /**< Empty error message reserved for application's developers
*/ MIDGARD_GENERIC_ERROR_OBJECT_DELETED = -21, /**< Object deleted
*/ MIDGARD_GENERIC_ERROR_OBJECT_PURGED = -22, /**< Object purged
*/ MIDGARD_GENERIC_ERROR_OBJECT_EXPORTED = -23, /**< Object already exported
*/ MIDGARD_GENERIC_ERROR_OBJECT_IMPORTED = -24, /**< Object already imported
*/ MIDGARD_GENERIC_ERROR_MISSED_DEPENDENCE = -25, /**< Missed dependence for object
*/ MIDGARD_GENERIC_ERROR_TREE_IS_CIRCULAR = -26, /**< Circular reference found in object's tree
*/ MIDGARD_GENERIC_ERROR_OBJECT_IS_LOCKED = -27 /**< Object is locked */ } MidgardGenericError; GQuark midgard_error_generic (void); const gchar *midgard_error_string (GQuark domain, gint errcode); void midgard_set_error (MidgardConnection *mgd, GQuark domain, gint errcode, const gchar *msg, ...); void midgard_error_default_log (const gchar *domain, GLogLevelFlags level, const gchar *msg, gpointer ptr); gint midgard_error_parse_loglevel (const gchar *levelstring); #define MIDGARD_ERRNO_SET(str, errcode) \ str->errnum = errcode; \ midgard_set_error(str, \ MGD_GENERIC_ERROR, \ errcode, \ NULL); \ g_signal_emit_by_name(str, "error"); #define MIDGARD_ERRNO_SET_STRING(__mgd, __errcode, __format...) G_STMT_START { \ __mgd->errnum = __errcode; \ midgard_set_error(__mgd, \ MGD_GENERIC_ERROR, \ __errcode, __format); \ g_clear_error(&__mgd->err); \ g_signal_emit_by_name (__mgd, "error"); \ } G_STMT_END void mgd_info(const gchar *format, ...); G_END_DECLS #endif /* MIDGARD_ERROR_H */ midgard2-core-10.05.7.1/src/midgard_core_query.c0000664000175000017500000021660511772046240016201 00000000000000/* * Copyright (C) 2006, 2007, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #include "midgard_defs.h" #include "midgard_object.h" #include "midgard_reflection_property.h" #include "midgard_core_query.h" #include "midgard_core_object.h" #include "midgard_core_config.h" #include "midgard_core_object_class.h" #include "midgard_error.h" #include "midgard_core_connection.h" #include "midgard_timestamp.h" #include #include "midgard_metadata.h" #include "midgard_reflector_object.h" #include "midgard_query_value.h" #include "midgard_query_constraint.h" #include "midgard_query_select.h" #include "midgard_query_constraint_group.h" #include "midgard_executable.h" #include "midgard_validable.h" #include "midgard_core_workspace.h" #include "midgard_storage.h" /* Do not use _DB_DEFAULT_DATETIME. * Some databases (like MySQL) fails to create datetime column with datetime which included timezone. */ #define _DB_DEFAULT_DATETIME "0001-01-01 00:00:00" #define __get_query_string(__cnc, __str) \ __str = NULL; \ const GList *__events = gda_connection_get_events (__cnc); \ const GList *__list; \ for (__list = __events; __list != NULL; __list = __list->next) { \ GdaConnectionEvent *__event = (GdaConnectionEvent *) __list->data; \ if (gda_connection_event_get_event_type (__event) == GDA_CONNECTION_EVENT_COMMAND) { \ __str = gda_connection_event_get_description (__event); \ } \ } static void __check_property_index(MidgardDBObjectClass *klass, MidgardReflectionProperty *mrp, const gchar *property, MidgardDBColumn *mdc); MidgardDBColumn *midgard_core_dbcolumn_new(void) { MidgardDBColumn *mdc = g_new(MidgardDBColumn, 1); mdc->table_name = NULL; mdc->column_name = NULL; mdc->column_desc = NULL; mdc->dbtype = NULL; mdc->gtype = 0; mdc->index = FALSE; mdc->unique = FALSE; mdc->gvalue = NULL; mdc->primary = FALSE; mdc->dvalue = NULL; mdc->autoinc = FALSE; return mdc; } static void _update_gda_meta_store_table (GdaConnection *cnc, const gchar *tablename, GError **error) { GdaMetaContext mcontext = {"_tables", 1, NULL, NULL}; mcontext.column_names = g_new (gchar *, 1); mcontext.column_names[0] = "table_name"; mcontext.column_values = g_new (GValue *, 1); g_value_set_string ((mcontext.column_values[0] = gda_value_new (G_TYPE_STRING)), tablename); GError *err = NULL; if (!gda_connection_update_meta_store (cnc, &mcontext, &err)) { gda_value_free (mcontext.column_values[0]); g_warning("Failed to update meta data for table '%s': %s", tablename, err && err->message ? err->message : "No detail"); g_propagate_error (error, err); return; } gda_value_free (mcontext.column_values[0]); g_free (mcontext.column_names); g_free (mcontext.column_values); } gchar *midgard_core_query_where_guid( const gchar *table, const gchar *guid) { g_assert(guid != NULL); GString *where = g_string_new(""); g_string_append_printf(where, "%s.guid = '%s' ", table, guid); return g_string_free(where, FALSE); } gint midgard_core_query_execute_statement (MidgardConnection *mgd, const gchar *query, gboolean ignore_error, gchar *holder_id, ...) { g_return_val_if_fail (mgd != NULL, -1); g_return_val_if_fail (query != NULL, -1); g_return_val_if_fail (holder_id != NULL, -1); GdaStatement *stmt; GError *lerror = NULL; gint number = 0; /* create a parser if necessary */ if (!mgd->priv->parser) { mgd->priv->parser = gda_connection_create_parser (mgd->priv->connection); if (!mgd->priv->parser) mgd->priv->parser = gda_sql_parser_new (); } /* create a new statement */ stmt = gda_sql_parser_parse_string (mgd->priv->parser, query, NULL, &lerror); if (stmt) { gchar *tmp_holder = holder_id; va_list args; const gchar *value_arg = NULL; GdaHolder *gda_holder = NULL; GdaSet *params; if (!gda_statement_get_parameters (stmt, ¶ms, &lerror)) { g_object_unref (stmt); g_warning ("Error while preparing statement '%s': %s\n", query, lerror && lerror->message ? lerror->message : "No detail"); if (lerror) g_error_free (lerror); return -1; } va_start (args, holder_id); while (tmp_holder != NULL) { value_arg = va_arg (args, const gchar*); g_return_val_if_fail (value_arg != NULL, -1); gda_holder = gda_set_get_holder (params, (const gchar *)tmp_holder); g_return_val_if_fail (gda_holder != NULL, -1); gda_holder_set_value_str (gda_holder, NULL, value_arg, &lerror); if (lerror) { g_warning ("Failed to set '%s' holder value (%s) ", tmp_holder, value_arg); g_error_free (lerror); } tmp_holder = va_arg (args, gchar*); } va_end (args); if (MGD_CNC_DEBUG (mgd)) { gchar *debug_query = gda_connection_statement_to_sql (mgd->priv->connection, stmt, params, GDA_STATEMENT_SQL_PRETTY, NULL, NULL); g_debug ("%s", debug_query); g_free (debug_query); } number = gda_connection_statement_execute_non_select (mgd->priv->connection, stmt, params, NULL, &lerror); g_object_unref (stmt); } if(!ignore_error) { if (!stmt || (number == -1)) { g_warning ("Error executing '%s': %s\n", query, lerror && lerror->message ? lerror->message : "No detail"); } } if (lerror) g_error_free (lerror); return (number); } gint midgard_core_query_execute (MidgardConnection *mgd, const gchar *query, gboolean ignore_error) { g_assert(mgd); g_assert(query != NULL); GdaStatement *stmt; GError *lerror = NULL; gint number = 0; /* create a parser if necessary */ if (!mgd->priv->parser) { mgd->priv->parser = gda_connection_create_parser (mgd->priv->connection); if (!mgd->priv->parser) mgd->priv->parser = gda_sql_parser_new (); } if (MGD_CNC_DEBUG (mgd)) g_debug("query = %s", query); /* create a new statement */ stmt = gda_sql_parser_parse_string (mgd->priv->parser, query, NULL, &lerror); if (stmt) { number = gda_connection_statement_execute_non_select (mgd->priv->connection, stmt, NULL, NULL, &lerror); g_object_unref (stmt); } if(!ignore_error){ if (!stmt || (number == -1)) { /* FIXME, error needed */ //gchar *fixme = "fixme"; //g_warning("Single query failed: %s \n %s", // query, // fixme); g_warning ("Error executing '%s': %s\n", query, lerror && lerror->message ? lerror->message : "No detail"); } } if (lerror) g_error_free (lerror); return (number); } GdaDataModel * midgard_core_query_get_model (MidgardConnection *mgd, const gchar *query) { g_assert(mgd != NULL); GError *lerror = NULL; GdaStatement *stmt; GdaDataModel *model = NULL; /* create a parser if necessary */ if (!mgd->priv->parser) { mgd->priv->parser = gda_connection_create_parser (mgd->priv->connection); if (!mgd->priv->parser) mgd->priv->parser = gda_sql_parser_new (); } /* create a new statement */ stmt = gda_sql_parser_parse_string (mgd->priv->parser, query, NULL, &lerror); if (stmt) { model = gda_connection_statement_execute_select (mgd->priv->connection, stmt, NULL, &lerror); g_object_unref (stmt); } if (MGD_CNC_DEBUG (mgd)) g_debug("Model query = %s", query); if (lerror) { g_warning("Model query failed: %s", lerror && lerror->message ? lerror->message : "No description"); g_error_free(lerror); } /* This is query error */ if(!model) return NULL; guint rows = gda_data_model_get_n_rows(model); if(rows == 0) { g_object_unref(model); model = NULL; } return model; } GValue *midgard_core_query_get_field_value( MidgardConnection *mgd, const gchar *field, const gchar *table, const gchar *where) { g_assert(mgd != NULL); g_assert(field != NULL); g_assert(table != NULL); g_assert(where != NULL); GString *sql = g_string_new("SELECT "); g_string_append_printf(sql, " %s FROM %s WHERE %s", field, table, where); gchar *query = g_string_free(sql, FALSE); GdaDataModel *model = midgard_core_query_get_model(mgd, query); g_free(query); if(!model) return NULL; if (!GDA_IS_DATA_MODEL (model)) { g_warning ("Returned model is not GDA_DATA_MODEL"); MIDGARD_ERRNO_SET (mgd, MGD_ERR_INTERNAL); return NULL; } const GValue *value = midgard_data_model_get_value_at(model, 0, 0); if (!value) { g_object_unref (model); return NULL; } if (G_VALUE_TYPE (value) == GDA_TYPE_NULL) { g_object_unref (model); g_warning ("Unexpected NULL type for returned value"); return NULL; } GValue *new_value = g_new0(GValue, 1); g_value_init(new_value, G_VALUE_TYPE(value)); g_value_copy(value, new_value); g_object_unref(model); return new_value; } gboolean midgard_core_query_get_object_value (MidgardDBObject *dbobject, const gchar *column, GValue *value) { g_return_val_if_fail (dbobject != NULL, FALSE); MidgardConnection *mgd = MGD_OBJECT_CNC (dbobject); g_return_val_if_fail (mgd != NULL, FALSE); const gchar *table = midgard_core_class_get_table (MIDGARD_DBOBJECT_GET_CLASS (dbobject)); g_return_val_if_fail (table != NULL, FALSE); g_return_val_if_fail (column != NULL, FALSE); GString *sql = g_string_new ("SELECT "); g_string_append_printf (sql, " %s FROM %s WHERE guid='%s'", column, table, MGD_OBJECT_GUID (dbobject)); if (MGD_CNC_USES_WORKSPACE (mgd)) { g_string_append_printf (sql, " AND %s=%d", MGD_WORKSPACE_ID_FIELD, MGD_CNC_WORKSPACE_ID(mgd)); } GdaDataModel *model = midgard_core_query_get_model (mgd, sql->str); if(!model) return FALSE; if (!GDA_IS_DATA_MODEL (model)) { g_warning ("Returned model is not GDA_DATA_MODEL"); MIDGARD_ERRNO_SET (mgd, MGD_ERR_INTERNAL); return FALSE; } const GValue *v = midgard_data_model_get_value_at(model, 0, 0); if (!v) { g_object_unref (model); return FALSE; } if (G_VALUE_TYPE (v) == GDA_TYPE_NULL) { g_object_unref (model); g_warning ("Unexpected NULL type for returned value"); return FALSE; } if (G_VALUE_TYPE (v) != G_VALUE_TYPE (value)) g_value_transform (v, value); else g_value_copy (v, value); g_object_unref (model); return TRUE; } guint midgard_core_query_get_id (MidgardConnection *mgd, const gchar *table, const gchar *guid) { g_assert(mgd != NULL); g_assert(table != NULL); g_assert(guid != NULL); gchar *where = midgard_core_query_where_guid(table, guid); GValue *value = midgard_core_query_get_field_value( mgd, "id", table, where); g_free(where); if(!value) return 0; guint id = 0; gboolean value_not_int = FALSE; if(G_VALUE_HOLDS(value, G_TYPE_UINT)) { id = g_value_get_uint(value); } else if (G_VALUE_HOLDS(value, G_TYPE_INT)) { id = g_value_get_int(value); } else { value_not_int = TRUE; } g_value_unset(value); g_free(value); if(value_not_int) { g_error("Expected uint or int type for id field. Report a bug in database!"); } return id; } static void _add_value_type_update (GString *str, const gchar *name, GValue *value, gboolean add_comma) { if (add_comma) g_string_append (str, ", "); const gchar *type = "invalid"; switch (G_TYPE_FUNDAMENTAL (G_VALUE_TYPE(value))) { case G_TYPE_STRING: type = "gchararray"; break; case G_TYPE_UINT: type = "guint"; break; case G_TYPE_INT: type = "gint"; break; case G_TYPE_BOOLEAN: type = "gboolean"; break; case G_TYPE_DOUBLE: type = "gfloat"; break; case G_TYPE_FLOAT: type = "gfloat"; break; case G_TYPE_BOXED: if (G_VALUE_TYPE (value) == GDA_TYPE_TIMESTAMP) { type = "timestamp"; } else { g_warning ("_add_value_type_update: unhandled boxed value type (%s)", G_VALUE_TYPE_NAME (value)); } break; case G_TYPE_OBJECT: /*do nothing, ignore */ break; default: g_warning ("_add_value_type_update: unhandled value type (%s)", G_VALUE_TYPE_NAME (value)); break; } g_string_append_printf (str, "%s=##%s::%s", name, name, type); } static void _add_value_type (GString *str, const gchar *name, GValue *value, gboolean add_comma) { if (add_comma) g_string_append (str, ", "); const gchar *type = "invalid"; switch (G_TYPE_FUNDAMENTAL (G_VALUE_TYPE(value))) { case G_TYPE_STRING: type = "gchararray"; break; case G_TYPE_UINT: type = "guint"; break; case G_TYPE_INT: type = "gint"; break; case G_TYPE_BOOLEAN: type = "gboolean"; break; case G_TYPE_BOXED: if (G_VALUE_TYPE (value) == GDA_TYPE_TIMESTAMP) { type = "timestamp"; } else { g_warning ("_add_value_type: unhandled boxed value type (%s)", G_VALUE_TYPE_NAME (value)); } break; default: g_warning ("_add_value_type: unhandled value type (%s)", G_VALUE_TYPE_NAME (value)); break; } g_string_append_printf (str, "##%s::%s", name, type); } GdaDataModel * midgard_core_query_get_dbobject_model (MidgardConnection *mgd, MidgardDBObjectClass *klass, guint n_params, const GParameter *parameters) { g_return_val_if_fail (mgd != NULL, NULL); g_return_val_if_fail (GDA_IS_CONNECTION (mgd->priv->connection), NULL); g_return_val_if_fail (klass != NULL, NULL); MgdSchemaTypeAttr *type_attr = midgard_core_class_get_type_attr (klass); g_return_val_if_fail (type_attr->sql_select_full != NULL, NULL); const gchar *table = midgard_core_class_get_table (klass); g_return_val_if_fail (table != NULL, NULL); GString *select = g_string_new ("SELECT "); g_string_append_printf (select, "%s FROM %s WHERE ", type_attr->sql_select_full, table); guint i; GString *where = g_string_new(""); for (i = 0; i < n_params; i++) { g_string_append_printf (where, "%s %s = ", i > 0 ? " AND " : "", parameters[i].name); _add_value_type (where, parameters[i].name, (GValue *)¶meters[i].value, FALSE); } g_string_append_printf (select, " %s ", where->str); g_string_free (where, TRUE); GError *error = NULL; GdaDataModel *exec_res; GdaStatement *stmt; GdaSet *params; GdaSqlParser *parser = mgd->priv->parser; /* Create statement */ stmt = gda_sql_parser_parse_string (parser, select->str, NULL, NULL); g_string_free (select, TRUE); /* create GdaDataSelect */ if (!gda_statement_get_parameters (stmt, ¶ms, &error)) { g_warning ("Failed to create statement parameters. %s", error && error->message ? error->message : "Unknown reason"); return NULL; } /* Add values to query */ for (i = 0; i < n_params; i++) { switch (G_TYPE_FUNDAMENTAL (G_VALUE_TYPE (¶meters[i].value))) { case G_TYPE_STRING: gda_set_set_holder_value (params, &error, parameters[i].name, g_value_get_string (¶meters[i].value)); break; case G_TYPE_UINT: gda_set_set_holder_value (params, &error, parameters[i].name, g_value_get_uint (¶meters[i].value)); break; case G_TYPE_INT: gda_set_set_holder_value (params, &error, parameters[i].name, g_value_get_int (¶meters[i].value)); break; case G_TYPE_BOOLEAN: gda_set_set_holder_value (params, &error, parameters[i].name, g_value_get_boolean (¶meters[i].value)); break; case G_TYPE_FLOAT: gda_set_set_holder_value (params, &error, parameters[i].name, g_value_get_float (¶meters[i].value)); break; } } GType *col_types = g_new (GType, type_attr->num_properties+1); for (i = 0; i < type_attr->num_properties; i++) { if (type_attr->params[i]->value_type == G_TYPE_UINT) col_types[i] = G_TYPE_INT; else col_types[i] = type_attr->params[i]->value_type; } /* terminate array with 0 */ col_types[i] = G_TYPE_NONE; exec_res = gda_connection_statement_execute_select_full (mgd->priv->connection, stmt, params, GDA_STATEMENT_MODEL_RANDOM_ACCESS, col_types, &error); if (MGD_CNC_DEBUG (mgd)) { gchar *debug_query = gda_statement_serialize (stmt); g_debug ("%s", debug_query); g_free (debug_query); } g_free (col_types); g_object_unref (params); g_object_unref (stmt); return exec_res; } #define _SET_HOLDER_VALUE \ gchar *pstr; \ guint puint; \ gint pint; \ gfloat pfloat; \ MidgardTimestamp *mt; \ gboolean pbool; \ const gchar *pname = pspecs[i]->name; \ switch (G_TYPE_FUNDAMENTAL (pspecs[i]->value_type)) { \ case G_TYPE_STRING: \ g_object_get (object, pname, &pstr, NULL); \ if (pstr == NULL) pstr = g_strdup (""); \ gda_set_set_holder_value (params, NULL, col_name, pstr); \ g_free (pstr); \ break; \ case G_TYPE_UINT: \ g_object_get (object, pname, &puint, NULL); \ gda_set_set_holder_value (params, NULL, col_name, puint); \ break; \ case G_TYPE_INT: \ g_object_get (object, pname, &pint, NULL); \ gda_set_set_holder_value (params, NULL, col_name, pint); \ break; \ case G_TYPE_FLOAT: \ g_object_get (object, pname, &pfloat, NULL); \ gda_set_set_holder_value (params, NULL, col_name, pfloat); \ break; \ case G_TYPE_BOOLEAN: \ g_object_get (object, pname, &pbool, NULL); \ gda_set_set_holder_value (params, NULL, col_name, pbool); \ break; \ case G_TYPE_BOXED: \ if (pspecs[i]->value_type == MIDGARD_TYPE_TIMESTAMP) { \ g_object_get (object, pname, &mt, NULL); \ pstr = midgard_timestamp_get_string (mt); \ gda_set_set_holder_value (params, NULL, col_name, pstr);\ midgard_timestamp_free (mt); \ g_free (pstr); \ } \ break; \ default: \ g_warning ("Can not add %s parameter to statement. " \ "Can not handle %s (%s) type", \ pname, g_type_name (pspecs[i]->value_type), \ g_type_name (G_TYPE_FUNDAMENTAL (pspecs[i]->value_type)));\ break; \ } static void __add_metadata_parameters (MidgardDBObject *dbobject, MidgardDBObjectClass *klass, GdaSet *params) { MidgardMetadataClass *mklass = MGD_DBCLASS_METADATA_CLASS (klass); if (!mklass) return; guint i; guint n_prop; GParamSpec **pspecs = g_object_class_list_properties (G_OBJECT_CLASS (mklass), &n_prop); if (!pspecs) return; GObject *object = (GObject *) MGD_DBOBJECT_METADATA (dbobject); for (i = 0; i < n_prop; i++) { /* Ignore property which holds object */ if (G_TYPE_FUNDAMENTAL (pspecs[i]->value_type) == G_TYPE_OBJECT) continue; const gchar *col_name = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (mklass), pspecs[i]->name); _SET_HOLDER_VALUE; } g_free (pspecs); } gboolean midgard_core_query_create_dbobject_record (MidgardDBObject *object) { g_return_val_if_fail (object != NULL, FALSE); MidgardConnection *mgd = MGD_OBJECT_CNC (object); GdaConnection *cnc = mgd->priv->connection; MidgardDBObjectClass *klass = MIDGARD_DBOBJECT_GET_CLASS (object); if (!klass) { g_warning ("Can not find class pointer for %s instance", G_OBJECT_TYPE_NAME (object)); return FALSE; } GdaStatement *insert = MIDGARD_DBOBJECT_GET_CLASS (object)->dbpriv->get_statement_insert (klass, mgd); g_return_val_if_fail (insert != NULL, FALSE); GdaSet *params = MIDGARD_DBOBJECT_GET_CLASS (object)->dbpriv->get_statement_insert_params (klass, mgd); guint n_props; guint i; GParamSpec **pspecs = midgard_core_dbobject_class_list_properties (klass, &n_props); g_return_val_if_fail (pspecs != NULL, FALSE); const gchar *pk = midgard_reflector_object_get_property_primary (G_OBJECT_CLASS_NAME (klass)); GError *error = NULL; for (i = 0; i < n_props; i++) { /* Ignore primary key and property of GObject type*/ if ((pk && g_str_equal (pspecs[i]->name, pk)) || G_TYPE_FUNDAMENTAL(pspecs[i]->value_type) == G_TYPE_OBJECT) continue; const gchar *col_name = midgard_core_class_get_property_colname (klass, pspecs[i]->name); _SET_HOLDER_VALUE; } __add_metadata_parameters (object, klass, params); if (MGD_CNC_DEBUG (mgd)) { gchar *debug_sql = gda_connection_statement_to_sql (cnc, insert, params, GDA_STATEMENT_SQL_PRETTY, NULL, NULL); g_debug ("DBObject create: %s", debug_sql); g_free (debug_sql); } gboolean inserted = (gda_connection_statement_execute_non_select (cnc, insert, params, NULL, &error) == -1) ? FALSE : TRUE; if (!inserted) { g_warning ("Query failed. %s", error && error->message ? error->message : "Unknown reason"); return FALSE; } return inserted; } /* Return: * positive or 0 - number of affected rows * negative - error */ gint midgard_core_query_update_dbobject_record (MidgardDBObject *object, GError **error) { g_return_val_if_fail (object != NULL, FALSE); MidgardConnection *mgd = MGD_OBJECT_CNC (object); GdaConnection *cnc = mgd->priv->connection; MidgardDBObjectClass *klass = MIDGARD_DBOBJECT_GET_CLASS (object); if (!klass) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Can not find class pointer for %s instance", G_OBJECT_TYPE_NAME (object)); return -1; } GdaStatement *update = klass->dbpriv->get_statement_update (klass, mgd); g_return_val_if_fail (update != NULL, FALSE); GdaSet *params = klass->dbpriv->get_statement_update_params (klass, mgd); guint n_props; guint i; GParamSpec **pspecs = midgard_core_dbobject_class_list_properties (klass, &n_props); g_return_val_if_fail (pspecs != NULL, FALSE); const gchar *pk = midgard_reflector_object_get_property_primary (G_OBJECT_CLASS_NAME (klass)); GError *err = NULL; for (i = 0; i < n_props; i++) { /* Ignore primary key and property of GObject type*/ if ((pk && g_str_equal (pspecs[i]->name, pk)) || G_TYPE_FUNDAMENTAL(pspecs[i]->value_type) == G_TYPE_OBJECT) continue; const gchar *col_name = midgard_core_class_get_property_colname (klass, pspecs[i]->name); _SET_HOLDER_VALUE; } __add_metadata_parameters (object, klass, params); if (MGD_CNC_DEBUG (mgd)) { gchar *debug_sql = gda_connection_statement_to_sql (cnc, update, params, GDA_STATEMENT_SQL_PRETTY, NULL, NULL); g_debug ("DBObject update: %s", debug_sql); g_free (debug_sql); } gint updated = gda_connection_statement_execute_non_select (cnc, update, params, NULL, &err); if (updated == 0) { /* If there's MySQL in use and object doesn't have metadata, we need to run * extra query to check if object's record exists and hasn't been updated or * doesn't exist at all */ MidgardConfig *config = mgd->priv->config; if (config->priv->dbtype == MIDGARD_DB_TYPE_MYSQL && (MGD_DBOBJECT_METADATA (object) == NULL)) { GValue idv = {0, }; g_value_init (&idv, G_TYPE_UINT); gboolean id_get = midgard_core_query_get_object_value (MIDGARD_DBOBJECT (object), "id", &idv); g_value_unset (&idv); if (id_get) return TRUE; } g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_NOT_EXISTS, "Nothing to update."); if (err) g_clear_error (&err); } if (updated < 0) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "UPDATE query failed. %s", err && err->message ? err->message : "Unknown reason"); if (err) g_clear_error (&err); } return updated; } gboolean midgard_core_query_update_object_fields (MidgardDBObject *object, const gchar *field, ...) { g_return_val_if_fail (object != NULL, FALSE); g_return_val_if_fail (field != NULL, FALSE); /* Create two single list and validate arguments' list */ const gchar *name = field; va_list var_args; va_start(var_args, field); GValue *value_arg; GSList *cols = NULL; GSList *values = NULL; while (name != NULL) { g_return_val_if_fail (name != NULL, FALSE); cols = g_slist_append (cols, (gpointer)name); value_arg = va_arg (var_args, GValue*); g_return_val_if_fail (value_arg != NULL, FALSE); values = g_slist_append (values, (gpointer)value_arg); name = va_arg (var_args, gchar*); } va_end (var_args); MidgardConnection *mgd = MGD_OBJECT_CNC (object); const gchar *guid = MGD_OBJECT_GUID (object); const gchar *table = midgard_core_class_get_table (MIDGARD_DBOBJECT_GET_CLASS (object)); /* Build SQL query string */ GString *sql = g_string_new ("UPDATE "); g_string_append_printf (sql, "%s SET ", table); guint i = 0; GSList *cl, *vl; for (cl = cols, vl = values; cl != NULL; cl = cl->next, vl = vl->next) { _add_value_type_update (sql, (const gchar *) cl->data, (GValue *) vl->data, i > 0 ? TRUE : FALSE); i++; } g_string_append_printf (sql, " WHERE %s.guid = '%s'", table, guid); /* Create statement and set parameters */ GdaConnection *cnc = mgd->priv->connection; GdaSqlParser *parser = mgd->priv->parser; GdaStatement *stmt; GdaSet *params; GdaHolder *p; GError *error = NULL; stmt = gda_sql_parser_parse_string (parser, sql->str, NULL, &error); if (!stmt || error) { g_warning ("%s. Failed to create SQL statement for given query %s", error && error->message ? error->message : "Unknown reason", sql->str); if (stmt) g_object_unref (stmt); g_clear_error (&error); return FALSE; } g_string_free (sql, TRUE); if (!gda_statement_get_parameters (stmt, ¶ms, &error)) { g_warning ("Failed to get query parameters. %s", error && error->message ? error->message : "Unknown reason"); g_object_unref (stmt); if (error) g_clear_error (&error); return FALSE; } for (cl = cols, vl = values; cl != NULL; cl = cl->next, vl = vl->next) { p = gda_set_get_holder (params, (gchar *) cl->data); if (!p) g_warning ("Failed to get holder for %s column", (gchar *) cl->data); if (!gda_holder_set_value (p, (GValue *) vl->data, &error)) { g_warning ("Failed to set holder's value. %s", error && error->message ? error->message : "Unknown reason"); g_object_unref (stmt); if (error) g_clear_error (&error); return FALSE; } } gchar *debug_sql = gda_connection_statement_to_sql (cnc, stmt, params, GDA_STATEMENT_SQL_PRETTY, NULL, NULL); g_free (debug_sql); gint retval = gda_connection_statement_execute_non_select (cnc, stmt, params, NULL, &error); if (error) { g_warning ("Failed to execute statement. %s", error && error->message ? error->message : "Unknown reason"); g_clear_error (&error); } g_object_unref (params); g_object_unref (stmt); if (retval == -1) { /* FIXME, provider error, handle this */ return FALSE; } if (retval >= 0) return TRUE; return FALSE; } gint midgard_core_query_insert_records (MidgardConnection *mgd, const gchar *table, GList *cols, GList *values, guint query_type, const gchar *where) { g_assert(mgd != NULL); guint ci = g_list_length(cols); guint vi = g_list_length(values); if(ci != vi) { g_warning("%d != %d. Expected columns = values", ci, vi); return -1; } /* Build SQL query string */ GString *sql = g_string_new ("UPDATE "); g_string_append_printf (sql, "%s SET ", table); guint i = 0; GList *cl, *vl; for (cl = cols, vl = values; cl != NULL; cl = cl->next, vl = vl->next) { _add_value_type_update (sql, (const gchar *) cl->data, (GValue *) vl->data, i > 0 ? TRUE : FALSE); i++; } g_string_append_printf (sql, " WHERE %s", where); /* Create statement and set parameters */ GdaConnection *cnc = mgd->priv->connection; GdaSqlParser *parser = mgd->priv->parser; GdaStatement *stmt; GdaSet *params; GdaHolder *p; GError *error = NULL; stmt = gda_sql_parser_parse_string (parser, sql->str, NULL, &error); if (!stmt || error) { g_warning ("%s. Failed to create SQL statement for given query %s", error && error->message ? error->message : "Unknown reason", sql->str); if (stmt) g_object_unref (stmt); g_clear_error (&error); return FALSE; } g_string_free (sql, TRUE); if (!gda_statement_get_parameters (stmt, ¶ms, &error)) { g_warning ("Failed to get query parameters. %s", error && error->message ? error->message : "Unknown reason"); g_object_unref (stmt); if (error) g_clear_error (&error); return FALSE; } for (cl = cols, vl = values; cl != NULL; cl = cl->next, vl = vl->next) { p = gda_set_get_holder (params, (gchar *) cl->data); if (!p) g_warning ("Failed to get holder for %s column", (gchar *) cl->data); if (G_VALUE_HOLDS_STRING ((GValue *) vl->data) && !g_value_get_string ((GValue *) vl->data)) g_value_set_string ((GValue *) vl->data, ""); if (!gda_holder_set_value (p, (GValue *) vl->data, &error)) { g_warning ("Failed to set holder's value. %s", error && error->message ? error->message : "Unknown reason"); g_object_unref (stmt); if (error) g_clear_error (&error); return FALSE; } } if (MGD_CNC_DEBUG (mgd)) { gchar *debug_sql = gda_connection_statement_to_sql (cnc, stmt, params, GDA_STATEMENT_SQL_PRETTY, NULL, NULL); g_debug ("%s", debug_sql); g_free (debug_sql); } gint retval = gda_connection_statement_execute_non_select (cnc, stmt, params, NULL, &error); if (error) { g_warning ("Failed to execute statement. %s", error && error->message ? error->message : "Unknown reason"); g_clear_error (&error); } g_object_unref (params); g_object_unref (stmt); if (retval == -1) { /* FIXME, provider error, handle this */ return FALSE; } if (retval >= 0) return TRUE; return FALSE; } gboolean __table_exists(MidgardConnection *mgd, const gchar *tablename) { GdaMetaContext mcontext = {"_tables", 1, NULL, NULL}; mcontext.column_names = g_new (gchar *, 1); mcontext.column_names[0] = "table_name"; mcontext.column_values = g_new (GValue *, 1); g_value_set_string ((mcontext.column_values[0] = gda_value_new (G_TYPE_STRING)), tablename); GError *error = NULL; _update_gda_meta_store_table (mgd->priv->connection, tablename, NULL); GdaDataModel *dm_schema = gda_connection_get_meta_store_data (mgd->priv->connection, GDA_CONNECTION_META_TABLES, NULL, 1, "name", mcontext.column_values[0], NULL); gda_value_free (mcontext.column_values[0]); g_free (mcontext.column_names); g_free (mcontext.column_values); if(!dm_schema) { g_error("Failed to retrieve tables schema"); return TRUE; } gboolean retval = TRUE; if (gda_data_model_get_n_rows (dm_schema) == 0) retval = FALSE; g_object_unref (dm_schema); return retval; } gboolean midgard_core_table_exists(MidgardConnection *mgd, const gchar *tablename) { return __table_exists(mgd, tablename); } /* Add primary fieldname *only* when it's integer type, otherwise set to NULL */ gboolean midgard_core_query_create_table (MidgardConnection *mgd, const gchar *descr, const gchar *tablename, const gchar *primary) { if (primary == NULL) primary = "id"; g_assert(mgd != NULL); g_assert(tablename != NULL); if(__table_exists(mgd, tablename)) { g_log(G_LOG_DOMAIN, G_LOG_LEVEL_INFO, "Table %s exists. Skipping create: OK", tablename); return TRUE; } GdaServerOperation *op; GdaServerProvider *server; GdaConnection *cnc = mgd->priv->connection; server = gda_connection_get_provider(cnc); GError *error = NULL; op = gda_server_provider_create_operation (server, cnc, GDA_SERVER_OPERATION_CREATE_TABLE, NULL, &error); if(!op) { g_warning("Can not prepare create statements for table '%s. %s", tablename, error->message); g_clear_error(&error); return FALSE; } gda_server_operation_set_value_at(op, tablename, NULL, "/TABLE_DEF_P/TABLE_NAME"); gda_server_operation_set_value_at(op, tablename, NULL, "/TABLE_DEF_P/TABLE_IFNOTEXISTS"); /* Add primary field if defined */ if (primary) { gda_server_operation_set_value_at(op, primary, NULL, "/FIELDS_A/@COLUMN_NAME/%d", 0); /* PostgreSQL requires 'SERIAL' identifier... */ if(mgd->priv->config->priv->dbtype == MIDGARD_DB_TYPE_POSTGRES) { gda_server_operation_set_value_at(op, "SERIAL", NULL, "/FIELDS_A/@COLUMN_TYPE/%d", 0); } else { gda_server_operation_set_value_at(op, "INTEGER", NULL, "/FIELDS_A/@COLUMN_TYPE/%d", 0); } gda_server_operation_set_value_at(op, "TRUE", NULL, "/FIELDS_A/@COLUMN_PKEY/%d", 0); gda_server_operation_set_value_at(op, "TRUE", NULL, "/FIELDS_A/@COLUMN_AUTOINC/%d", 0); } gchar *_sql = gda_server_provider_render_operation(server, cnc, op, NULL); g_debug("Render create table: %s", _sql); gboolean created = gda_server_provider_perform_operation (server, cnc, op, &error); if(!created) { g_clear_error(&error); g_object_unref(op); g_warning("Failed to create '%s' table", tablename); return FALSE; } g_object_unref(op); g_clear_error(&error); /* Update meta store */ _update_gda_meta_store_table (cnc, tablename, NULL); return TRUE; } static gboolean __mcq_column_exists(MidgardConnection *mgd, MidgardDBColumn *mdc) { GdaMetaContext mcontext = {"_columns", 2, NULL, NULL}; mcontext.column_names = g_new (gchar *, 2); mcontext.column_names[0] = "table_name"; mcontext.column_names[1] = "column_name"; mcontext.column_values = g_new (GValue *, 2); g_value_set_string ((mcontext.column_values[0] = gda_value_new (G_TYPE_STRING)), mdc->table_name); g_value_set_string ((mcontext.column_values[1] = gda_value_new (G_TYPE_STRING)), mdc->column_name); GError *error = NULL; GdaDataModel *dm_schema = gda_connection_get_meta_store_data (mgd->priv->connection, GDA_CONNECTION_META_FIELDS, NULL, 2, "name", mcontext.column_values[0], "field_name", mcontext.column_values[1]); gda_value_free (mcontext.column_values[0]); g_free (mcontext.column_names); g_free (mcontext.column_values); if(!dm_schema) { g_error("Failed to retrieve tables schema"); return TRUE; } gboolean retval = TRUE; if (gda_data_model_get_n_rows (dm_schema) == 0) retval = FALSE; g_object_unref (dm_schema); return retval; } gboolean midgard_core_query_add_column(MidgardConnection *mgd, MidgardDBColumn *mdc) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(mdc->table_name != NULL, FALSE); g_return_val_if_fail(mdc->column_name != NULL, FALSE); if(!mdc->column_desc) mdc->column_desc = mdc->column_name; const gchar *column_name = mdc->column_name; const gchar *table_name = mdc->table_name; if (mdc->dbtype == NULL) { g_warning("GOT NULL dbtype for %s column (%s GType)", column_name, g_type_name(mdc->gtype)); } if(g_str_equal(mdc->dbtype, "longtext")) mdc->dbtype = "text"; const gchar *column_type_str; if ((mgd->priv->config->priv->dbtype == MIDGARD_DB_TYPE_POSTGRES) && (g_str_equal(mdc->dbtype,"datetime")) ) { column_type_str = "timestamp"; } else { column_type_str = mdc->dbtype; } GError *error = NULL; GdaServerOperation *op; GdaServerProvider *server; GdaConnection *cnc = mgd->priv->connection; g_debug("Check if column '%s.%s' exists", mdc->table_name, mdc->column_name); if(__mcq_column_exists(mgd, mdc)) return TRUE; server = gda_connection_get_provider(cnc); op = gda_server_provider_create_operation (server, cnc, GDA_SERVER_OPERATION_ADD_COLUMN, NULL, &error); if(!op) { g_warning("Can not prepare add column statement for column '%s.%s'. %s", table_name, column_name, error->message); g_clear_error(&error); return FALSE; } gda_server_operation_set_value_at(op, table_name, NULL, "/COLUMN_DEF_P/TABLE_NAME"); /* NOT NULL not implemented in PostgreSQL 8.1 ( 28.02.2007 ) */ if(mgd->priv->config->priv->dbtype != MIDGARD_DB_TYPE_POSTGRES) gda_server_operation_set_value_at(op, "true", NULL, "/COLUMN_DEF_P/COLUMN_NNUL"); gda_server_operation_set_value_at(op, column_name, NULL, "/COLUMN_DEF_P/COLUMN_NAME"); gda_server_operation_set_value_at(op, column_type_str, NULL, "/COLUMN_DEF_P/COLUMN_TYPE"); gchar *dval = NULL; if(mdc->dvalue) { switch(mdc->gtype) { case MGD_TYPE_UINT: case MGD_TYPE_INT: dval = g_strdup(mdc->dvalue); break; case MGD_TYPE_FLOAT: dval = g_strdup(mdc->dvalue); break; case MGD_TYPE_BOOLEAN: dval = g_strdup(mdc->dvalue); break; default: dval = g_strdup_printf("'%s'", mdc->dvalue); break; } } else { dval = g_strdup("\'\'"); } /* Default value. Default value not implemented in PostgreSQL 8.1 ( 28.02.2007 ) */ if(!mdc->autoinc && mgd->priv->config->priv->dbtype != MIDGARD_DB_TYPE_POSTGRES) gda_server_operation_set_value_at(op, dval, NULL, "/COLUMN_DEF_P/COLUMN_DEFAULT"); g_free(dval); /* Primary key */ if(mdc->primary) gda_server_operation_set_value_at(op, "true", NULL, "/COLUMN_DEF_P/COLUMN_PKEY"); /* Unique key */ if(mdc->autoinc) gda_server_operation_set_value_at(op, "true", NULL, "/COLUMN_DEF_P/COLUMN_AUTOINC"); /* Auto increment key */ if(mdc->unique) gda_server_operation_set_value_at(op, "true", NULL, "/COLUMN_DEF_P/COLUMN_UNIQUE"); gchar *_sql = NULL; _sql = gda_server_provider_render_operation(server, cnc, op, &error); if(_sql) { g_debug("Rendering column add: %s", _sql); g_clear_error(&error); } else { g_warning("Can not prepare SQL query. %s", error->message); g_clear_error(&error); g_object_unref(op); return FALSE; } gboolean created = gda_server_provider_perform_operation (server, cnc, op, &error); if(!created) { /* FIXME, there should be warning, but for some reason * either SQLite or gda-sqlite provider is buggy */ g_message ("Can not add %s column to table '%s'. %s", column_name, table_name, error->message); g_clear_error(&error); g_object_unref(op); return FALSE; } g_debug("Created %s.%s", table_name, column_name); /* mdc->index = TRUE; midgard_core_query_add_index(mgd, mdc); */ g_clear_error(&error); g_object_unref(op); return TRUE; } gboolean __index_exists(MidgardConnection *mgd, MidgardDBColumn *mdc, const gchar *index_name) { GdaConnection *cnc = mgd->priv->connection; GdaMetaStore *store = gda_connection_get_meta_store (cnc); const gchar *sql = "SELECT index_name FROM _table_indexes WHERE table_schema=##schema::string AND table_name=##tname::string"; gchar *dbname = mgd->priv->config->database; gboolean index_exists = FALSE; /* Database name - table_schema */ GValue tsval = {0, }; g_value_init (&tsval, G_TYPE_STRING); g_value_set_string (&tsval, dbname); /* Table name - table_name */ GValue tnval = {0, }; g_value_init (&tnval, G_TYPE_STRING); g_value_set_string (&tnval, mdc->table_name); GdaDataModel *data_model = gda_meta_store_extract (store, sql, NULL, "schema", &tsval, "tname", &tnval, NULL); g_value_unset (&tsval); g_value_unset (&tnval); if (!data_model) { g_debug ("No indexes found in meta store for table %s", mdc->table_name); return index_exists; } gint rows = gda_data_model_get_n_rows (data_model); gint i = 0; if (rows == -1) { g_warning ("Unknown number of rows for given indexes data model"); g_object_unref (data_model); return index_exists; } for (i = 0; i < rows; i++) { const GValue *inval = gda_data_model_get_value_at (data_model, 0, i, NULL); if (g_str_equal (index_name, g_value_get_string (inval))) index_exists = TRUE; } g_object_unref (data_model); return index_exists; } gboolean midgard_core_query_add_index(MidgardConnection *mgd, MidgardDBColumn *mdc) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(mdc->table_name != NULL, FALSE); g_return_val_if_fail(mdc->column_name != NULL, FALSE); if(!mdc->index) { g_debug("Index not defined for %s.%s. Not created", mdc->table_name, mdc->column_name); return TRUE; } gchar *index_name = g_strconcat(mdc->table_name, "_", mdc->column_name, "_idx", NULL); if (__index_exists(mgd, mdc, (const gchar *)index_name)) { g_free(index_name); return TRUE; } g_free(index_name); if(!mdc->column_desc) mdc->column_desc = mdc->column_name; const gchar *column_name = mdc->column_name; const gchar *table_name = mdc->table_name; GdaServerOperation *op; GdaServerProvider *server; GdaConnection *cnc = mgd->priv->connection; server = gda_connection_get_provider(cnc); GError *error = NULL; op = gda_server_provider_create_operation (server, cnc, GDA_SERVER_OPERATION_CREATE_INDEX, NULL, &error); if(!op) { g_warning("Can not prepare create index statement for column '%s.%s'. %s", table_name, column_name, error->message); g_clear_error(&error); return FALSE; } if(mdc->index) { index_name = g_strconcat(mdc->table_name, "_", mdc->column_name, "_idx", NULL); gda_server_operation_set_value_at(op, index_name, NULL, "/INDEX_DEF_P/INDEX_NAME"); g_free(index_name); gda_server_operation_set_value_at(op, table_name, NULL, "/INDEX_DEF_P/INDEX_ON_TABLE"); gda_server_operation_set_value_at(op, mdc->column_name, NULL, "/INDEX_FIELDS_S/0/INDEX_FIELD"); gda_server_operation_set_value_at(op, " ", NULL, "/INDEX_DEF_P/INDEX_TYPE"); gchar *_sql = gda_server_provider_render_operation(server, cnc, op, NULL); g_debug("Rendering create index: %s", _sql); /* Disconnect default error callback. This is a hack, there's no way to check if index exists, so we make error be silent */ midgard_core_connection_disconnect_error_callback (mgd); gboolean created = gda_server_provider_perform_operation (server, cnc, op, &error); /* Connect default error callback again */ midgard_core_connection_connect_error_callback (mgd); if(!created) { g_debug("Can not create index on %s.%s ( %s )", column_name, table_name, error->message); g_clear_error(&error); g_object_unref(op); return FALSE; } g_debug("Added index on %s.%s", table_name, column_name); g_clear_error(&error); g_object_unref(op); return TRUE; } return FALSE; } static gboolean __create_repligard_table (MidgardConnection *mgd) { /* Create table with primary key */ const gchar *table = "repligard"; if (!midgard_core_query_create_table (mgd, table, table, "id")) return FALSE; /* Create columns */ MidgardDBColumn *mdc = NULL; /* GUID */ mdc = midgard_core_dbcolumn_new (); mdc->table_name = table; mdc->column_name = "guid"; mdc->index = TRUE; mdc->dbtype = "varchar(80)"; mdc->gtype = MGD_TYPE_STRING; mdc->unique = FALSE; gboolean rv = midgard_core_query_add_column (mgd, mdc); g_free (mdc); if (!rv) return FALSE; /* TYPENAME */ mdc = midgard_core_dbcolumn_new (); mdc->table_name = table; mdc->column_name = "typename"; mdc->index = FALSE; mdc->dbtype = "varchar(255)"; mdc->gtype = MGD_TYPE_STRING; mdc->unique = FALSE; rv = midgard_core_query_add_column (mgd, mdc); g_free (mdc); if (!rv) return FALSE; /* OBJECT ACTION */ mdc = midgard_core_dbcolumn_new (); mdc->table_name = table; mdc->column_name = "object_action"; mdc->index = FALSE; mdc->dbtype = "int"; mdc->gtype = MGD_TYPE_INT; mdc->unique = FALSE; mdc->dvalue = "0"; rv = midgard_core_query_add_column (mgd, mdc); g_free (mdc); if (!rv) return FALSE; /* OBJECT ACTION DATE */ mdc = midgard_core_dbcolumn_new (); mdc->table_name = table; mdc->column_name = "object_action_date"; mdc->index = FALSE; mdc->dbtype = "datetime"; mdc->gtype = MGD_TYPE_TIMESTAMP; mdc->unique = FALSE; mdc->dvalue = "0001-01-01 00:00:00"; rv = midgard_core_query_add_column (mgd, mdc); g_free (mdc); if (!rv) return FALSE; /* OBJECT WORKSPACE */ mdc = midgard_core_dbcolumn_new (); mdc->table_name = table; mdc->column_name = "workspace_id"; mdc->index = FALSE; mdc->dbtype = "int"; mdc->gtype = MGD_TYPE_INT; mdc->unique = FALSE; mdc->dvalue = "0"; rv = midgard_core_query_add_column (mgd, mdc); g_free (mdc); if (!rv) return FALSE; return TRUE; } gboolean midgard_core_query_create_basic_db (MidgardConnection *mgd) { g_return_val_if_fail(mgd != NULL, FALSE); return midgard_storage_create (mgd, "MidgardRepligard"); } gboolean midgard_core_query_create_metadata_columns( MidgardConnection *mgd, const gchar *tablename) { g_return_val_if_fail(mgd != NULL, FALSE); g_debug("CREATE metadata columns..."); const gchar *guid_columns[] = {"metadata_creator", "metadata_revisor", "metadata_approver" , "metadata_locker", "metadata_owner", NULL }; const gchar *date_columns[] = {"metadata_created", "metadata_revised", "metadata_approved", "metadata_locked", "metadata_schedule_start", "metadata_schedule_end", "metadata_published", "metadata_exported", "metadata_imported", NULL }; const gchar *bool_columns[] = {"metadata_hidden", "metadata_nav_noentry", "metadata_deleted", "metadata_islocked", "metadata_isapproved", NULL }; const gchar *text_columns[] = {"metadata_authors", NULL }; const gchar *size_columns[] = {"metadata_revision", "metadata_size", "metadata_score", NULL }; gboolean rv = FALSE; guint i = 0; MidgardDBColumn *mdc; while(guid_columns[i] != NULL) { mdc = midgard_core_dbcolumn_new(); mdc->table_name = tablename; mdc->column_name = guid_columns[i]; mdc->gtype = MGD_TYPE_STRING; mdc->dbtype = "varchar(80)"; rv = midgard_core_query_add_column(mgd, mdc); g_free(mdc); i++; if(!rv) return FALSE; } i = 0; while(date_columns[i] != NULL) { mdc = midgard_core_dbcolumn_new(); mdc->table_name = tablename; mdc->column_name = date_columns[i]; mdc->gtype = MGD_TYPE_TIMESTAMP; mdc->dbtype = "datetime"; mdc->dvalue = _DB_DEFAULT_DATETIME; rv = midgard_core_query_add_column(mgd, mdc); g_free(mdc); i++; if(!rv) return FALSE; } i = 0; while(text_columns[i] != NULL) { mdc = midgard_core_dbcolumn_new(); mdc->table_name = tablename; mdc->column_name = text_columns[i]; mdc->gtype = MGD_TYPE_LONGTEXT; mdc->dbtype = "longtext"; mdc->dvalue = ""; rv = midgard_core_query_add_column(mgd, mdc); g_free(mdc); i++; if(!rv) return FALSE; } i = 0; while(bool_columns[i] != NULL) { mdc = midgard_core_dbcolumn_new(); mdc->table_name = tablename; mdc->column_name = bool_columns[i]; mdc->gtype = G_TYPE_BOOLEAN; mdc->dbtype = "bool"; mdc->dvalue = "0"; rv = midgard_core_query_add_column(mgd, mdc); g_free(mdc); i++; if(!rv) return FALSE; } i = 0; while(size_columns[i] != NULL) { mdc = midgard_core_dbcolumn_new(); mdc->table_name = tablename; mdc->column_name = size_columns[i]; mdc->gtype = MGD_TYPE_INT; mdc->dbtype = "int"; mdc->dvalue = "0"; rv = midgard_core_query_add_column(mgd, mdc); g_free(mdc); i++; if(!rv) return FALSE; } g_debug("CREATE metadata columns. OK."); return TRUE; } void __check_property_index(MidgardDBObjectClass *klass, MidgardReflectionProperty *mrp, const gchar *property, MidgardDBColumn *mdc) { g_assert(klass != NULL); g_assert(property != NULL); g_assert(mdc != NULL); if(mdc->index == TRUE) return; if (midgard_reflection_property_is_link(mrp, property)) { mdc->index = TRUE; return; } if (midgard_reflection_property_is_linked(mrp, property)) { mdc->index = TRUE; return; } const gchar *parent = NULL; const gchar *up = NULL; const gchar *classname = G_OBJECT_CLASS_NAME (klass); if (MIDGARD_IS_OBJECT_CLASS (klass)) { parent = midgard_reflector_object_get_property_parent (classname); up = midgard_reflector_object_get_property_up (classname); } if (parent && g_str_equal(parent, property)) { mdc->index = TRUE; return; } if(up && g_str_equal(up, property)) { mdc->index = TRUE; return; } MgdSchemaPropertyAttr *prop_attr; prop_attr = g_hash_table_lookup(klass->dbpriv->storage_data->prophash, property); if (prop_attr != NULL && prop_attr->dbindex == TRUE) { mdc->index = TRUE; return; } } gboolean midgard_core_query_update_class_storage(MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(klass != NULL, FALSE); const gchar *tablename = midgard_core_class_get_table(klass); const gchar *classname = G_OBJECT_CLASS_NAME(G_OBJECT_CLASS(klass)); /* Class with empty storage, ignore as silently as possible */ if (!tablename) { g_debug("Can not update %s class table. None defined.", classname); return TRUE; } guint n_prop, i = 0; if(!__table_exists(mgd, tablename)) { g_warning("Table %s doesn't exist. Can not update", tablename); return FALSE; } GParamSpec **pspecs = g_object_class_list_properties(G_OBJECT_CLASS(klass), &n_prop); if(!pspecs) { g_debug("Class %s has no properties registered", classname); return FALSE; } GValue pval = {0, }; MidgardReflectionProperty *mrp = midgard_reflection_property_new(MIDGARD_DBOBJECT_CLASS(klass)); MidgardDBColumn *mdc; GType mgd_type; const gchar *nick; gchar **spltd; for (i = 0; i < n_prop; i++) { /* Ignore properties of object type */ if (G_TYPE_FUNDAMENTAL (pspecs[i]->value_type) == G_TYPE_OBJECT) continue; nick = midgard_core_class_get_property_tablefield (MIDGARD_DBOBJECT_CLASS(klass), pspecs[i]->name); if (nick == NULL) continue; g_value_init(&pval, pspecs[i]->value_type); mdc = midgard_core_dbcolumn_new(); spltd = g_strsplit(nick, ".", 0); mdc->column_name = spltd[1]; mdc->table_name = tablename; mgd_type = midgard_reflection_property_get_midgard_type (mrp, pspecs[i]->name); mdc->gtype = mgd_type; switch(G_TYPE_FUNDAMENTAL (pspecs[i]->value_type)) { case G_TYPE_STRING: if (mgd_type == MGD_TYPE_LONGTEXT) { mdc->dvalue = ""; mdc->dbtype = "longtext"; } else if (mgd_type == MGD_TYPE_GUID) { mdc->dvalue = ""; mdc->dbtype = "varchar(80)"; mdc->index = TRUE; } else { mdc->dvalue = ""; mdc->dbtype = "varchar(255)"; } break; case G_TYPE_UINT: case G_TYPE_INT: mdc->dbtype = "integer"; mdc->dvalue = "0"; break; case G_TYPE_FLOAT: mdc->dbtype = "float"; mdc->dvalue = "0.00"; break; case G_TYPE_BOOLEAN: mdc->dbtype = "bool"; mdc->dvalue = "0"; break; case G_TYPE_BOXED: if (mgd_type == MGD_TYPE_TIMESTAMP) { mdc->dvalue = _DB_DEFAULT_DATETIME; mdc->dbtype = "datetime"; } break; default: mdc->dbtype = "varchar(255)"; mdc->dvalue = ""; break; } /* add column */ midgard_core_query_add_column(mgd, mdc); /* add indexes */ __check_property_index(klass, mrp, pspecs[i]->name, mdc); midgard_core_query_add_index(mgd, mdc); g_free(mdc); g_strfreev(spltd); g_value_unset(&pval); } g_object_unref(mrp); g_free(pspecs); if (klass->dbpriv->has_metadata) { if (!midgard_core_query_create_metadata_columns(mgd, tablename)) { /* FIXME, there should be warning, but for some reason * either SQLite or gda-sqlite provider is buggy */ g_message ("Failed to create metadata columns"); return FALSE; } } return TRUE; } gboolean midgard_core_query_create_class_storage (MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(klass != NULL, FALSE); const gchar *tablename = midgard_core_class_get_table(MIDGARD_DBOBJECT_CLASS(klass)); const gchar *classname = G_OBJECT_CLASS_NAME(G_OBJECT_CLASS(klass)); /* Class with empty storage, ignore as silently as possible */ if (!tablename) { g_debug("Can not create %s class table. None defined.", classname); return TRUE; } guint n_prop; guint i = 0; if(__table_exists(mgd, tablename)) { g_log(G_LOG_DOMAIN, G_LOG_LEVEL_INFO, "Table %s exists. Skipping create: OK", tablename); return TRUE; } GParamSpec **pspecs = g_object_class_list_properties( G_OBJECT_CLASS(klass), &n_prop); if(!pspecs) { g_debug("Class %s has no properties registered", classname); return FALSE; } const gchar *tables = midgard_core_class_get_tables(MIDGARD_DBOBJECT_CLASS(klass)); gchar **spltd = g_strsplit(tables, ",", -1); /* Get PRIMARY_KEY */ const gchar *pprop = NULL; const gchar *pfield = NULL; const gchar *primary_field = NULL; if (MIDGARD_IS_OBJECT_CLASS (klass)) pprop = midgard_reflector_object_get_property_primary (classname); if(pprop) { pfield = midgard_core_class_get_property_colname( MIDGARD_DBOBJECT_CLASS(klass), pprop); GParamSpec *pspec = g_object_class_find_property(G_OBJECT_CLASS(klass), pprop); if(pspec->value_type == G_TYPE_UINT || pspec->value_type == G_TYPE_INT) { primary_field = pfield; } } while(spltd[i] != NULL) { if(!midgard_core_query_create_table(mgd, classname, spltd[i], primary_field)) { g_free(pspecs); g_strfreev(spltd); return FALSE; } i++; } g_strfreev(spltd); if (klass->dbpriv->has_metadata) { if(!midgard_core_query_create_metadata_columns(mgd, tablename)) { g_free(pspecs); g_warning("Failed to create metadata columns"); return FALSE; } } GValue pval = {0, }; MidgardReflectionProperty *mrp = midgard_reflection_property_new(MIDGARD_DBOBJECT_CLASS(klass)); MidgardDBColumn *mdc; GType mgd_type; const gchar *nick; for (i = 0; i < n_prop; i++) { nick = midgard_core_class_get_property_tablefield (MIDGARD_DBOBJECT_CLASS(klass), pspecs[i]->name); if (nick == NULL) continue; if ( pprop && (g_str_equal(pprop, pspecs[i]->name))) continue; g_value_init(&pval, pspecs[i]->value_type); mdc = midgard_core_dbcolumn_new(); spltd = g_strsplit(nick, ".", 0); mdc->column_name = spltd[1]; mdc->table_name = tablename; mgd_type = midgard_reflection_property_get_midgard_type (mrp, pspecs[i]->name); mdc->gtype = mgd_type; switch(pspecs[i]->value_type) { case G_TYPE_STRING: if (mgd_type == MGD_TYPE_LONGTEXT) { mdc->dvalue = ""; mdc->dbtype = "longtext"; } else if (mgd_type == MGD_TYPE_GUID) { mdc->dvalue = ""; mdc->dbtype = "varchar(80)"; mdc->index = TRUE; } else { mdc->dvalue = ""; mdc->dbtype = "varchar(255)"; } break; case G_TYPE_BOXED: if (mgd_type == MGD_TYPE_TIMESTAMP) { mdc->dvalue = _DB_DEFAULT_DATETIME; mdc->dbtype = "datetime"; } break; case G_TYPE_UINT: case G_TYPE_INT: if(pfield && (g_str_equal(pfield, pspecs[i]->name))) { mdc->dbtype = "integer"; mdc->primary = TRUE; mdc->autoinc = TRUE; } else { mdc->dbtype = "integer"; mdc->dvalue = "0"; } break; case G_TYPE_FLOAT: mdc->dbtype = "float"; mdc->dvalue = "0.00"; break; case G_TYPE_BOOLEAN: mdc->dbtype = "bool"; mdc->dvalue = "0"; break; default: break; } /* Override dbtype if explicitly defined */ MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr (klass, pspecs[i]->name); if (prop_attr && prop_attr->dbtype) mdc->dbtype = prop_attr->dbtype; /* Check not fundamental types */ if (mgd_type == MGD_TYPE_TIMESTAMP) { mdc->dvalue = _DB_DEFAULT_DATETIME; mdc->dbtype = "datetime"; } /* add column */ g_debug("Add %s column of %s type (%s GType)", pspecs[i]->name, mdc->dbtype, g_type_name(pspecs[i]->value_type)); midgard_core_query_add_column(mgd, mdc); /* add indexes */ __check_property_index(klass, mrp, pspecs[i]->name, mdc); midgard_core_query_add_index(mgd, mdc); g_free(mdc); g_strfreev(spltd); g_value_unset(&pval); } g_object_unref(mrp); g_free(pspecs); /* Update GDA meta store */ _update_gda_meta_store_table (mgd->priv->connection, tablename, NULL); mgd_info ("%s - Table create: OK", g_type_name(G_OBJECT_CLASS_TYPE(klass))); return TRUE; } MidgardDBJoin* midgard_core_dbjoin_new(void) { MidgardDBJoin *mdbj = g_new(MidgardDBJoin, 1); mdbj->type = NULL; mdbj->typeid = 0; mdbj->klass = NULL; mdbj->left_table = NULL; mdbj->left_field = NULL; mdbj->left_klass = NULL; mdbj->right_table = NULL; mdbj->right_field = NULL; mdbj->right_klass = NULL; mdbj->left_tablefield = NULL; mdbj->right_tablefield = NULL; /* pointers references */ mdbj->left = NULL; mdbj->right = NULL; return mdbj; } void midgard_core_dbjoin_free (MidgardDBJoin *mdbj) { g_assert(mdbj != NULL); g_free(mdbj->type); mdbj->type = NULL; mdbj->typeid = 0; g_free (mdbj->left_table); mdbj->left_table = NULL; g_free (mdbj->left_field); mdbj->left_field = NULL; g_free (mdbj->right_table); mdbj->right_table = NULL; g_free (mdbj->right_field); mdbj->right_field = NULL; g_free (mdbj->left_tablefield); mdbj->left_tablefield = NULL; g_free (mdbj->right_tablefield); mdbj->right_tablefield = NULL; g_free(mdbj); } /* Routine which is a workaround for gda_binary_stringify, * which is also registered as transform function which converts * binary value to string one. * With this function we get GdaBinary->data 'as is' */ gchar * midgard_core_query_binary_stringify (GValue *src_value) { g_return_val_if_fail (src_value != NULL, NULL); const GdaBinary *binary = NULL; if (G_VALUE_TYPE (src_value) == GDA_TYPE_BLOB) { const GdaBlob *blob = gda_value_get_blob (src_value); binary = &blob->data; } if (G_VALUE_TYPE (src_value) == GDA_TYPE_BINARY) binary = gda_value_get_binary ((const GValue*) src_value); if (binary == NULL || (binary && binary->binary_length == 0) || (binary && binary->data == NULL)) return g_strdup (""); return (gchar *) g_strndup((const gchar *) binary->data, binary->binary_length); } #define _RESERVED_BLOB_NAME "attachment" #define _RESERVED_BLOB_TABLE "blobs" #define _RESERVED_PARAM_NAME "parameter" #define _RESERVED_PARAM_TABLE "record_extension" #define _RESERVED_METADATA_NAME "metadata" #define _RESERVED_GUID_NAME "guid" typedef struct { const MidgardDBObjectClass *klass; const gchar *table; const gchar *table_alias; const gchar *target_table; const gchar *target_table_alias; const gchar *colname; const gchar *target_colname; MidgardQueryExecutor *executor; } Psh; static void __add_join (Psh *holder) { MidgardQueryExecutor *executor = MIDGARD_QUERY_EXECUTOR (holder->executor); GdaSqlStatement *sql_stm = executor->priv->stmt; GdaSqlStatementSelect *select = (GdaSqlStatementSelect *) sql_stm->contents; GdaSqlSelectFrom *from = select->from; GdaSqlSelectJoin *join = gda_sql_select_join_new (GDA_SQL_ANY_PART (from)); join->type = GDA_SQL_SELECT_JOIN_LEFT; GdaSqlExpr *expr = gda_sql_expr_new (GDA_SQL_ANY_PART (join)); expr->value = gda_value_new (G_TYPE_STRING); g_value_take_string (expr->value, g_strdup_printf ("%s.%s = %s.%s", holder->table_alias, holder->colname, holder->target_table_alias, holder->target_colname)); join->expr = expr; join->position = ++executor->priv->joinid; gda_sql_select_from_take_new_join (from , join); GdaSqlSelectTarget *s_target = gda_sql_select_target_new (GDA_SQL_ANY_PART (from)); s_target->table_name = g_strdup (holder->target_table); s_target->as = g_strdup (holder->target_table_alias); gda_sql_select_from_take_new_target (from, s_target); /* Set target expression */ GdaSqlExpr *texpr = gda_sql_expr_new (GDA_SQL_ANY_PART (s_target)); GValue *tval = g_new0 (GValue, 1); g_value_init (tval, G_TYPE_STRING); g_value_set_string (tval, s_target->table_name); texpr->value = tval; s_target->expr = texpr; } void __exclude_deleted_constraint (MidgardQueryExecutor *executor, const gchar *table_alias) { GdaSqlStatement *sql_stm = executor->priv->stmt; GdaSqlStatementSelect *select = (GdaSqlStatementSelect *) sql_stm->contents; GdaSqlExpr *where = select->where_cond; GdaSqlOperation *operation = where->cond; GdaSqlExpr *expr = gda_sql_expr_new (GDA_SQL_ANY_PART (operation)); expr->value = gda_value_new (G_TYPE_STRING); g_value_set_string (expr->value, "t1.metadata_deleted = FALSE"); operation->operands = g_slist_append (operation->operands, expr); } gboolean __compute_reserved_property_constraint (Psh *holder, const gchar *token_1, const gchar *token_2) { /* metadata */ if (g_str_equal (_RESERVED_METADATA_NAME, token_1)) { MidgardMetadataClass *mklass = g_type_class_peek (MIDGARD_TYPE_METADATA); const gchar *property_field = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (mklass), token_2); if (!property_field) return FALSE; holder->colname = property_field; return TRUE; } /* parameter */ if (g_str_equal (_RESERVED_PARAM_NAME, token_1)) { holder->klass = g_type_class_peek (g_type_from_name ("midgard_parameter")); holder->target_colname = "parent_guid"; holder->target_table = _RESERVED_PARAM_TABLE; holder->target_table_alias = g_strdup_printf ("t%d", ++holder->executor->priv->tableid); holder->colname = _RESERVED_GUID_NAME; __add_join (holder); holder->colname = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (holder->klass), token_2); holder->table = holder->target_table; holder->table_alias = holder->target_table_alias; return TRUE; } /* attachment */ if (g_str_equal (_RESERVED_BLOB_NAME, token_1)) { holder->klass = g_type_class_peek (g_type_from_name ("midgard_attachment")); holder->target_colname = "parent_guid"; holder->target_table = _RESERVED_BLOB_TABLE; holder->target_table_alias = g_strdup_printf ("t%d", ++holder->executor->priv->tableid); holder->colname = _RESERVED_GUID_NAME; __add_join (holder); holder->colname = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (holder->klass), token_2); holder->table = holder->target_table; holder->table_alias = holder->target_table_alias; return TRUE; } /* fallback to default */ MidgardReflectionProperty *mrp = midgard_reflection_property_new (MIDGARD_DBOBJECT_CLASS (holder->klass)); holder->colname = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (holder->klass), token_1); /* Add implicit join if property is a link */ if (midgard_reflection_property_is_link(mrp, token_1)) { holder->klass = midgard_reflection_property_get_link_class (mrp, token_1); const gchar *target_property = midgard_reflection_property_get_link_target (mrp, token_1); holder->target_colname = midgard_core_class_get_property_colname (MIDGARD_DBOBJECT_CLASS (holder->klass), target_property); holder->target_table = midgard_core_class_get_table (MIDGARD_DBOBJECT_CLASS (holder->klass)); holder->target_table_alias = g_strdup_printf ("t%d", ++holder->executor->priv->tableid); __add_join (holder); holder->table = holder->target_table; holder->table_alias = holder->target_table_alias; } return TRUE; } gchar * midgard_core_query_compute_constraint_property (MidgardQueryExecutor *executor, MidgardQueryStorage *storage, const gchar *name, GError **error) { g_return_val_if_fail (executor != NULL, FALSE); g_return_val_if_fail (name != NULL, FALSE); GdaConnection *cnc = executor->priv->mgd->priv->connection; /* Set table alias if it's not set */ if (storage) MQE_SET_TABLE_ALIAS (executor, storage); gchar *table_field = NULL; gchar *table_alias = executor->priv->table_alias; const gchar *table = executor->priv->storage->priv->table; MidgardDBObjectClass *klass = executor->priv->storage->priv->klass; if (storage) { table = executor->priv->storage->priv->table; table_alias = storage->priv->table_alias; klass = storage->priv->klass; } gchar **spltd = g_strsplit(name, ".", 0); guint i = 0; guint j = 0; /* We can support max 3 tokens */ while(spltd[i] != NULL) i++; gchar *q_table = NULL; gchar *q_field = NULL; /* case: property */ if (i == 1) { const gchar *property_field = midgard_core_class_get_property_colname (klass, name); if (!property_field) { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_INTERNAL, "Property '%s' doesn't seem to be registered for '%s' class", name, G_OBJECT_CLASS_NAME (klass)); g_strfreev (spltd); return NULL; } q_table = gda_connection_quote_sql_identifier (cnc, table_alias); q_field = gda_connection_quote_sql_identifier (cnc, property_field); table_field = g_strdup_printf ("%s.%s", q_table, q_field); g_free (q_table); g_free (q_field); } else if (i < 4) { /* Set all pointers we need to generate valid tables' names, aliases or joins */ Psh holder = {NULL, }; holder.table = table; holder.table_alias = table_alias; holder.klass = klass; holder.executor = MIDGARD_QUERY_EXECUTOR (executor); holder.colname = NULL; while (spltd[j] != NULL) { if (spltd[j+1] == NULL) break; /* Set all pointers we need to generate valid tables' names, aliases or joins */ /* case: metadata.property, attachment.property, property.link, etc */ if (!__compute_reserved_property_constraint (&holder, spltd[j], spltd[j+1])) break; j++; } if (holder.table_alias && holder.colname) { q_table = gda_connection_quote_sql_identifier (cnc, holder.table_alias); q_field = gda_connection_quote_sql_identifier (cnc, holder.colname); table_field = g_strdup_printf ("%s.%s", q_table, q_field); g_free (q_table); g_free (q_field); } } else { g_set_error (error, MIDGARD_VALIDATION_ERROR, MIDGARD_VALIDATION_ERROR_INTERNAL, "Failed to parse '%s'. At most 3 tokens allowed", name); g_strfreev (spltd); return NULL; } g_strfreev (spltd); return table_field; } gchar* midgard_core_query_unescape_string (MidgardConnection *mgd, const gchar *string) { glong total; gchar *ptr; gchar *retval; glong offset = 0; if (!string) return NULL; total = strlen (string); retval = g_memdup (string, total+1); ptr = (gchar *) retval; while (offset < total) { /* we accept the "''" as a synonym of "\'" */ if (*ptr == '\'') { if (*(ptr+1) == '\'') { g_memmove (ptr+1, ptr+2, total - offset); offset += 2; } } if (*ptr == '\\') { if (*(ptr+1) == '\\') { g_memmove (ptr+1, ptr+2, total - offset); offset += 2; } else { if (*(ptr+1) == '\'') { *ptr = '\''; g_memmove (ptr+1, ptr+2, total - offset); offset += 2; } } } else offset ++; ptr++; } return retval; } void midgard_core_query_get_object (MidgardConnection *mgd, const gchar *classname, MidgardDBObject **object, GError **error, const gchar *property, ...) { if (mgd == NULL) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Expected MidgardConnection. Can not get object."); return; } const gchar *cname = classname; if (*object) cname = G_OBJECT_TYPE_NAME (*object); if (cname == NULL) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Expected class name. Can not get object."); return; } GSList *arg_list = NULL; GSList *objects_list = NULL; GSList *l = NULL; /* Create all constraints if there are any arguments */ const gchar *property_name = property; GValue *cnstr_value; va_list args; va_start (args, property); while (property_name != NULL) { cnstr_value = va_arg (args, GValue *); MidgardQueryProperty *mqp = midgard_query_property_new (property_name, NULL); objects_list = g_slist_prepend (objects_list, (gpointer) mqp); MidgardQueryValue *mqv = midgard_query_value_create_with_value ((const GValue*) cnstr_value); objects_list = g_slist_prepend (objects_list, (gpointer) mqv); MidgardQueryConstraint *mqc = midgard_query_constraint_new (mqp, "=", MIDGARD_QUERY_HOLDER (mqv), NULL); objects_list = g_slist_prepend (objects_list, (gpointer) mqc); arg_list = g_slist_prepend (arg_list, mqc); property_name = va_arg (args, gchar *); } va_end (args); if (arg_list == NULL) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Expected at last one constraint to get object"); return; } /* We need either group or one constraint */ MidgardQueryConstraintSimple *constraint = NULL; if (g_slist_length (arg_list) > 1) { MidgardQueryConstraintGroup *cgroup = midgard_query_constraint_group_new (); for (l = arg_list; l != NULL; l = l->next) { midgard_query_constraint_group_add_constraint (cgroup, (MidgardQueryConstraintSimple *) l->data); } constraint = (MidgardQueryConstraintSimple*) cgroup; } else { constraint = (MidgardQueryConstraintSimple *) arg_list->data; } g_slist_free (arg_list); MidgardQueryStorage *storage = midgard_query_storage_new (cname); MidgardQuerySelect *select = midgard_query_select_new (mgd, storage); midgard_query_executor_set_constraint (MIDGARD_QUERY_EXECUTOR (select), constraint); midgard_query_select_toggle_read_only (select, FALSE); GError *err = NULL; midgard_executable_execute (MIDGARD_EXECUTABLE (select), &err); if (err) { g_propagate_error (error, err); goto free_objects_and_return; } /* No error, but data model doesn't hold any row */ GdaDataModel *model = GDA_DATA_MODEL (MIDGARD_QUERY_EXECUTOR (select)->priv->resultset); if (!model || (model && gda_data_model_get_n_rows (model) == 0)) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_NOT_EXISTS, "Object doesn't exist"); goto free_objects_and_return; } /* There's no object given, so we initialize new object */ if (*object == NULL) { guint i; guint n_objects; MidgardDBObject **_objects = midgard_query_select_list_objects (select, &n_objects); if (n_objects > 1) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Too many objects to get"); for (i = 0; i < n_objects; i++) g_object_unref (_objects[i]); if (_objects) g_free (_objects); } else if (n_objects == 1) { *object = _objects[i]; g_free (_objects); } goto free_objects_and_return; } /* Object is given, so let's set its properties */ MGD_OBJECT_IN_STORAGE (*object) = TRUE; /* Do not set datamodel, unless read only mode is fully tested and implemented */ /* MIDGARD_DBOBJECT(*object)->dbpriv->datamodel = g_object_ref (model); MIDGARD_DBOBJECT(*object)->dbpriv->row = 0; */ MIDGARD_DBOBJECT_GET_CLASS (*object)->dbpriv->set_from_data_model (MIDGARD_DBOBJECT (*object), model, 0, 0); free_objects_and_return: for (l = objects_list; l != NULL; l = l->next) { g_object_unref ((GObject*) l->data); } g_slist_free (objects_list); g_object_unref (storage); g_object_unref (select); return; } MidgardDBObject ** midgard_core_query_get_objects (MidgardConnection *mgd, const gchar *classname, GError **error, const gchar *property, ...) { if (mgd == NULL) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Expected MidgardConnection. Can not get object."); return NULL; } if (classname == NULL) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Expected class name. Can not get object."); return NULL; } GSList *arg_list = NULL; GSList *objects_list = NULL; GSList *l = NULL; /* Create all constraints if there are any arguments */ const gchar *property_name = property; GValue *cnstr_value; va_list args; va_start (args, property); while (property_name != NULL) { cnstr_value = va_arg (args, GValue *); MidgardQueryProperty *mqp = midgard_query_property_new (property_name, NULL); objects_list = g_slist_prepend (objects_list, (gpointer) mqp); MidgardQueryValue *mqv = midgard_query_value_create_with_value ((const GValue*) cnstr_value); objects_list = g_slist_prepend (objects_list, (gpointer) mqv); MidgardQueryConstraint *mqc = midgard_query_constraint_new (mqp, "=", MIDGARD_QUERY_HOLDER (mqv), NULL); objects_list = g_slist_prepend (objects_list, (gpointer) mqc); arg_list = g_slist_prepend (arg_list, mqc); property_name = va_arg (args, gchar *); } va_end (args); if (arg_list == NULL) { g_set_error (error, MIDGARD_GENERIC_ERROR, MGD_ERR_INTERNAL, "Expected at last one constraint to get object"); return NULL; } /* We need either group or one constraint */ MidgardQueryConstraintSimple *constraint = NULL; if (g_slist_length (arg_list) > 1) { MidgardQueryConstraintGroup *cgroup = midgard_query_constraint_group_new (); for (l = arg_list; l != NULL; l = l->next) { midgard_query_constraint_group_add_constraint (cgroup, (MidgardQueryConstraintSimple *) l->data); } constraint = (MidgardQueryConstraintSimple*) cgroup; } else { constraint = (MidgardQueryConstraintSimple *) arg_list->data; } g_slist_free (arg_list); MidgardQueryStorage *storage = midgard_query_storage_new (classname); MidgardQuerySelect *select = midgard_query_select_new (mgd, storage); midgard_query_executor_set_constraint (MIDGARD_QUERY_EXECUTOR (select), constraint); midgard_query_select_toggle_read_only (select, FALSE); MidgardDBObject **_objects = NULL; GError *err = NULL; midgard_executable_execute (MIDGARD_EXECUTABLE (select), &err); if (err) { g_propagate_error (error, err); } else { guint i; guint n_objects; _objects = midgard_query_select_list_objects (select, &n_objects); } for (l = objects_list; l != NULL; l = l->next) { g_object_unref ((GObject*) l->data); } g_slist_free (objects_list); g_object_unref (storage); g_object_unref (select); return _objects; } midgard2-core-10.05.7.1/src/midgard_object_parameter.c0000664000175000017500000004744011772046240017331 00000000000000/* * Copyright (C) 2006 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "src/midgard_core_object.h" #include "midgard_object.h" #include "midgard_collector.h" #include "midgard_error.h" #include "guid.h" #include "midgard_core_object_parameter.h" #include "midgard_blob.h" #include "midgard_core_query.h" static MidgardCollector *__create_domain_collector(MidgardConnection *mgd, const gchar *domain) { /* Initialize collector for object and its domain */ GValue *domain_value = g_new0(GValue, 1); g_value_init(domain_value, G_TYPE_STRING); g_value_set_string(domain_value, domain); MidgardCollector *mc = midgard_collector_new(mgd, "midgard_parameter", "domain", domain_value); midgard_collector_set_key_property(mc, "name", NULL); /* Add value */ midgard_collector_add_value_property(mc, "value"); return mc; } static MidgardCollector *__get_parameters_collector(MidgardObject *object, const gchar *domain) { if(!object->priv->_params) { object->priv->_params = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, NULL); g_hash_table_insert(object->priv->_params, (gpointer) g_strdup(domain), NULL); return NULL; } return g_hash_table_lookup(object->priv->_params, domain); } static void __register_domain_collector( MidgardObject *object, const gchar *domain, MidgardCollector *mc) { if(object->priv->_params) g_hash_table_insert(object->priv->_params, (gpointer) g_strdup(domain), mc); } static gboolean __is_guid_valid(MidgardObject *self) { if(MGD_OBJECT_GUID (self) == NULL) { midgard_set_error(MGD_OBJECT_CNC (self), MGD_GENERIC_ERROR, MGD_ERR_INVALID_PROPERTY_VALUE, " Guid property is NULL for %s. ", G_OBJECT_TYPE_NAME(self)); g_warning("%s", MGD_OBJECT_CNC (self)->err->message); g_clear_error(&MGD_OBJECT_CNC (self)->err); return FALSE; } if(!midgard_is_guid(MGD_OBJECT_GUID (self))) { midgard_set_error(MGD_OBJECT_CNC (self), MGD_GENERIC_ERROR, MGD_ERR_INVALID_PROPERTY_VALUE, " Guid-property of %s has invalid value.", G_OBJECT_TYPE_NAME(self)); g_warning("%s", MGD_OBJECT_CNC (self)->err->message); g_clear_error(&MGD_OBJECT_CNC (self)->err); return FALSE; } return TRUE; } /** * midgard_object_get_paramater: * @self: #MidgardObject instance * @domain: parameter's domain string * @name: parameter's name string * * NULL is returned if parameter record with given domain and name is not found. * Returned GValue is owned by midgard-core and shouldn't be freed. * * Returns: GValue which holds value for domain&name pair */ const GValue *midgard_object_get_parameter(MidgardObject *self, const gchar *domain, const gchar *name) { g_assert(self); if(!__is_guid_valid(self)) return NULL; GValue *ret_value; MidgardCollector *domain_collector = __get_parameters_collector(self, domain); if(domain_collector == NULL){ MidgardCollector *mc = __create_domain_collector(MGD_OBJECT_CNC (self), domain); /* Limit records to these with parent guid */ GValue guid_value = {0, }; g_value_init(&guid_value, G_TYPE_STRING); g_value_set_string(&guid_value, MGD_OBJECT_GUID (self)); midgard_collector_add_constraint(mc, "parentguid", "=", &guid_value); g_value_unset(&guid_value); midgard_collector_execute(mc); /* prepend collector to object's parameter list * we will free it in MidgardObject destructor */ self->priv->parameters = g_slist_prepend(self->priv->parameters, mc); ret_value = midgard_collector_get_subkey(mc, name, "value"); __register_domain_collector(self, domain, mc); return (const GValue*)ret_value; } else { ret_value = midgard_collector_get_subkey( domain_collector, name, "value"); return (const GValue *)ret_value; } return NULL; } /** * midgard_object_set_parameter: * @self: #MidgardObject instance * @domain: parameter's domain string * @name: parameter's name string * @value: a GValue value which should be set for domain&name pair * * Creates object's parameter object if it doesn't exists, updates otherwise. * * Returns: %TRUE on success, %FALSE otherwise */ gboolean midgard_object_set_parameter (MidgardObject *self, const gchar *domain, const gchar *name, GValue *value) { g_return_val_if_fail (self != NULL, FALSE); if(!__is_guid_valid(self)) return FALSE; MidgardObject *param; const gchar *value_string = g_value_get_string(value); gboolean delete_parameter = FALSE; gboolean do_return_true = FALSE; if(g_str_equal(value_string, "")) delete_parameter = TRUE; const GValue *get_value = midgard_object_get_parameter(self, domain, name); MidgardCollector *domain_collector = __get_parameters_collector(self, domain); if(!domain_collector) { domain_collector = __create_domain_collector(MGD_OBJECT_CNC (self), domain); __register_domain_collector(self, domain, domain_collector); } /* This is the case when set_parameter is invoked * before any get_parameter */ if(get_value == NULL && delete_parameter) { MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (self), MGD_ERR_NOT_EXISTS); return FALSE; } /* Parameter doesn't exist. We have to create it */ if(get_value == NULL && !delete_parameter){ param = midgard_object_new(MGD_OBJECT_CNC (self), "midgard_parameter", NULL); g_object_set(param, "domain", domain, "name", name, "parentguid", MGD_OBJECT_GUID (self), NULL); g_object_set_property(G_OBJECT(param), "value", value); if(midgard_object_create(param)) { if(domain_collector) { if(!midgard_collector_set(domain_collector, name, "value", value)){ g_warning("Failed to update parameter's cache"); } } g_object_unref(param); return TRUE; } else { /* Error should be already set by create */ g_object_unref(param); return FALSE; } /* Parameter exists. if value is '' we delete it. * In any other case we update it */ } else { MidgardQueryBuilder *builder = midgard_query_builder_new(MGD_OBJECT_CNC (self), "midgard_parameter"); GValue gval = {0,}; g_value_init(&gval, G_TYPE_STRING); g_value_set_string(&gval, MGD_OBJECT_GUID (self)); midgard_query_builder_add_constraint(builder, "parentguid", "=", &gval); g_value_unset(&gval); g_value_init(&gval, G_TYPE_STRING); g_value_set_string(&gval, domain); midgard_query_builder_add_constraint(builder, "domain", "=", &gval); g_value_unset(&gval); g_value_init(&gval, G_TYPE_STRING); g_value_set_string(&gval, name); midgard_query_builder_add_constraint(builder, "name", "=", &gval); g_value_unset(&gval); guint n_objects; GObject **ret_object = midgard_query_builder_execute(builder, &n_objects); g_object_unref(builder); if(!ret_object){ return FALSE; } if(delete_parameter){ if(midgard_object_delete( MIDGARD_OBJECT(ret_object[0]), FALSE)) { midgard_collector_remove_key( domain_collector, name); do_return_true = TRUE; } } else { g_object_set(ret_object[0], "value", value_string, NULL); if(midgard_object_update( MIDGARD_OBJECT(ret_object[0]))) { if(domain_collector) { midgard_collector_set(domain_collector, name, "value", value); } do_return_true = TRUE; } } g_object_unref(ret_object[0]); g_free(ret_object); if(do_return_true) return TRUE; } return FALSE; } /** * midgard_object_list_parameters: * @self: a #MidgardObject self instance * @domain: optional paramaters' domain * * Returned objects are midgard_parameter class. Parameter objects are * fetched from database unconditionally if domain i sexplicitly set to NULL. * That is, only those which parent guid property matches object's guid. * * Returned array should be freed when no longer needed. * * Returns: (transfer full): Newly allocated and NULL terminated array of midgard_parameter objects. */ MidgardObject **midgard_object_list_parameters(MidgardObject *self, const gchar *domain) { g_return_val_if_fail(self != NULL, NULL); g_return_val_if_fail(MGD_OBJECT_GUID (self) != NULL, NULL); g_return_val_if_fail(MGD_OBJECT_CNC (self) != NULL, NULL); MidgardObject **objects = NULL; if(domain == NULL) { objects = midgard_core_object_parameters_list( MGD_OBJECT_CNC (self), "midgard_parameter", MGD_OBJECT_GUID (self)); return objects; } GParameter *parameters = g_new0(GParameter, 1); GValue dval = {0, }; g_value_init(&dval, G_TYPE_STRING); g_value_set_string(&dval, domain); parameters[0].name = "domain"; parameters[0].value = dval; objects = midgard_core_object_parameters_find( MGD_OBJECT_CNC (self), "midgard_parameter", MGD_OBJECT_GUID (self), 1, (const GParameter*) parameters); g_value_unset(&dval); g_free(parameters); return objects; } /** * midgard_object_delete_parameters: * @self: #MidgardObject instance * @n_params: number of properties * @parameters: properties list * * Delete object's parameter(s) which match given properties' values. * Properties list in @parameters is optional. All object's parameters are * deleted ( if exist ) if @parameters is explicitly set to %NULL. * * Returns: %TRUE on success, %FALSE if at least one of the parameters could not be deleted */ gboolean midgard_object_delete_parameters(MidgardObject *self, guint n_params, const GParameter *parameters) { g_assert(self != NULL); if(!MGD_OBJECT_GUID (self)) { g_warning("Object is not fetched from database. Empty guid"); } return midgard_core_object_parameters_delete( MGD_OBJECT_CNC (self), "midgard_parameter", MGD_OBJECT_GUID (self), n_params, parameters); } /** * midgard_object_purge_parameters: * @self: #MidgardObject instance * @n_params: number of properties * @parameters: properties list * * Purge object's parameter(s) which match given properties' values. * Properties list in @parameters is optional. All object's parameters are * purged ( if exist ) if @parameters is explicitly set to %NULL. * * Returns: %TRUE on success, %FALSE if at least one of the parameters could not be purged */ gboolean midgard_object_purge_parameters(MidgardObject *self, guint n_params, const GParameter *parameters) { g_assert(self != NULL); if(!MGD_OBJECT_GUID (self)) { g_warning("Object is not fetched from database. Empty guid"); } return midgard_core_object_parameters_purge( MGD_OBJECT_CNC (self), "midgard_parameter", MGD_OBJECT_GUID (self), n_params, parameters); } /** * midgard_object_find_parameters: * @self: #MidgardObject instance * @n_params: number of properties * @parameters: properties list * * Find object's parameter(s) with matching given properties. * @parameters argument is optional. All object's parameters are * returned ( if exist ) if @parameters is explicitly set to %NULL. * * Returns: (transfer full): newly created, NULL terminated array of #MidgardObject ( midgard_parameter class ) or %NULL on failure */ MidgardObject **midgard_object_find_parameters(MidgardObject *self, guint n_params, const GParameter *parameters) { g_assert(self != NULL); if(!MGD_OBJECT_GUID (self)) { g_warning("Object is not fetched from database. Empty guid"); } return midgard_core_object_parameters_find( MGD_OBJECT_CNC (self), "midgard_parameter", MGD_OBJECT_GUID (self), n_params, parameters); } /** * midgard_object_has_parameters: * @self: #MidgardObject instance * * Returns: %TRUE if object has paramateres, %FALSE otherwise. */ gboolean midgard_object_has_parameters(MidgardObject *self) { g_assert(self != NULL); return midgard_core_object_has_parameters( MGD_OBJECT_CNC(self), "midgard_parameter", MGD_OBJECT_GUID(self)); } /* Internal routines */ MidgardObject **midgard_core_object_parameters_list( MidgardConnection *mgd, const gchar *class_name, const gchar *guid) { g_assert(class_name != NULL); g_assert(guid != NULL); GValue gval = {0, }; g_value_init(&gval, G_TYPE_STRING); g_value_set_string(&gval, guid); GError *err = NULL; MidgardDBObject **objects = midgard_core_query_get_objects (mgd, class_name, &err, "parentguid", &gval, NULL); g_value_unset(&gval); if (err) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_NOT_EXISTS, "%s", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return NULL; } return (MidgardObject **)objects; } MidgardObject *midgard_core_object_parameters_create( MidgardConnection *mgd, const gchar *class_name, const gchar *guid, guint n_params, const GParameter *parameters) { g_assert(mgd != NULL); g_assert(class_name != NULL); g_assert(guid != NULL); g_assert(n_params > 0); guint i; GParamSpec *pspec = NULL; GValue pval; const gchar *prop_name; MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS_BY_NAME(class_name); MidgardObject *object = midgard_object_new(mgd, class_name, NULL); /* Check if properties in parameters are registered for given class */ for ( i = 0; i < n_params; i++) { prop_name = parameters[i].name; pval = parameters[i].value; pspec = g_object_class_find_property(G_OBJECT_CLASS(klass), prop_name); if(!pspec) { MIDGARD_ERRNO_SET(mgd, MGD_ERR_INVALID_PROPERTY); g_warning("Property '%s' not registered for '%s' class", parameters[i].name, class_name); g_object_unref(object); return NULL; } g_object_set_property(G_OBJECT(object), prop_name, &pval); } /* Set parentguid so we definitely define parameter or attachment*/ g_object_set(object, "parentguid", guid, NULL); if(!midgard_object_create(object)) { g_object_unref(object); /* error code is set by create method */ return NULL; } return object; } static GObject **__fetch_parameter_objects( MidgardConnection *mgd, const gchar *class_name, const gchar *guid, guint n_params, const GParameter *parameters) { MidgardQueryBuilder *builder = midgard_query_builder_new(mgd, class_name); /* Error is set in builder constructor */ if(!builder) return FALSE; GValue gval = {0, }; g_value_init(&gval, G_TYPE_STRING); g_value_set_string(&gval, guid); if(!midgard_query_builder_add_constraint(builder, "parentguid", "=", &gval)) { g_value_unset(&gval); g_object_unref(builder); return FALSE; } g_value_unset(&gval); guint i; const gchar *prop_name; GValue pval; for ( i = 0; i < n_params; i++) { prop_name = parameters[i].name; pval = parameters[i].value; if(!midgard_query_builder_add_constraint(builder, prop_name, "=", &pval)) { /* error is set by add_constraint */ g_object_unref(builder); return FALSE; } } guint n_objects; GObject **objects = midgard_query_builder_execute(builder, &n_objects); g_object_unref(builder); return objects; } gboolean midgard_core_object_parameters_delete( MidgardConnection *mgd, const gchar *class_name, const gchar *guid, guint n_params, const GParameter *parameters) { g_assert(mgd != NULL); g_assert(class_name != NULL); g_assert(guid != NULL); GObject **objects = __fetch_parameter_objects( mgd, class_name, guid, n_params, parameters); /* nothing to delete */ if(!objects) return FALSE; gboolean rv = FALSE; guint i = 0; while (objects[i] != NULL ) { if(midgard_object_delete(MIDGARD_OBJECT(objects[i]), FALSE)) rv = TRUE; g_object_unref(objects[i]); i++; } g_free(objects); return rv; } gboolean midgard_core_object_parameters_purge( MidgardConnection *mgd, const gchar *class_name, const gchar *guid, guint n_params, const GParameter *parameters) { g_assert(mgd != NULL); g_assert(class_name != NULL); g_assert(guid != NULL); GObject **objects = __fetch_parameter_objects( mgd, class_name, guid, n_params, parameters); /* nothing to purge */ if(!objects) return FALSE; gboolean rv = FALSE; guint i = 0; while (objects[i] != NULL ) { if(midgard_object_purge(MIDGARD_OBJECT(objects[i]), FALSE)) rv = TRUE; g_object_unref(objects[i]); i++; } g_free(objects); return rv; } gboolean midgard_core_object_parameters_purge_with_blob( MidgardConnection *mgd, const gchar *class_name, const gchar *guid, guint n_params, const GParameter *parameters) { g_assert(mgd != NULL); g_assert(class_name != NULL); g_assert(guid != NULL); GObject **objects = __fetch_parameter_objects( mgd, class_name, guid, n_params, parameters); /* nothing to purge */ if(!objects) return FALSE; gboolean rv = FALSE; guint i = 0; MidgardBlob *blob = NULL; while (objects[i] != NULL ) { /* ! IMPORTANT ! * Blob on filesystem must be deleted first. * In any other case, if something goes wrong, we won't be able * to check which file is orphaned. * If file is removed and record's deletion failed, on is able * to check file with blob's file_exists method */ blob = midgard_blob_new(MIDGARD_OBJECT(objects[i]), NULL); if(!blob) { g_warning("Can not handle blob for given attachment"); continue; } if(midgard_blob_exists(blob)) midgard_blob_remove_file(blob, NULL); midgard_object_purge(MIDGARD_OBJECT(objects[i]), FALSE); g_object_unref(blob); g_object_unref(objects[i]); i++; } g_free(objects); return rv; } MidgardQueryBuilder *midgard_core_object_parameter_query_builder( MidgardConnection *mgd, const gchar *class_name, const gchar *guid) { g_assert(mgd != NULL); g_assert(class_name != NULL); g_assert(guid != NULL); MidgardQueryBuilder *builder = midgard_query_builder_new(mgd, class_name); /* error is set in builder constructor */ if(!builder) return NULL; GValue gval = {0, }; g_value_init(&gval, G_TYPE_STRING); g_value_set_string(&gval, guid); if(!midgard_query_builder_add_constraint(builder, "parentguid", "=", &gval)) { g_value_unset(&gval); g_object_unref(builder); return NULL; } g_value_unset(&gval); return builder; } MidgardObject **midgard_core_object_parameters_find( MidgardConnection *mgd, const gchar *class_name, const gchar *guid, guint n_params, const GParameter *parameters) { g_assert(mgd != NULL); g_assert(class_name != NULL); g_assert(guid != NULL); if(!parameters) return NULL; if(parameters && n_params == 0) { g_warning("Expected at least 1 parameter. Parameters pointer is not NULL"); return NULL; } MidgardQueryBuilder *builder = midgard_core_object_parameter_query_builder(mgd, class_name, guid); /* error is set in builder constructor */ if(!builder) return NULL; guint i; const gchar *prop_name; GValue pval; for ( i = 0; i < n_params; i++) { prop_name = parameters[i].name; pval = parameters[i].value; if(!midgard_query_builder_add_constraint(builder, prop_name, "=", &pval)) { /* error is set by add_constraint */ g_object_unref(builder); return NULL; } } guint n_objects; GObject **objects = midgard_query_builder_execute(builder, &n_objects); g_object_unref(builder); return (MidgardObject **)objects; } gboolean midgard_core_object_has_parameters( MidgardConnection *mgd, const gchar *class_name, const gchar *guid) { g_assert(mgd != NULL); g_assert(class_name != NULL); g_assert(guid != NULL); MidgardQueryBuilder *builder = midgard_core_object_parameter_query_builder(mgd, class_name, guid); /* error is set in builder constructor */ if(!builder) return FALSE; midgard_query_builder_set_limit(builder, 1); gboolean rv = TRUE; guint i = midgard_query_builder_count(builder); if(i == 0) rv = FALSE; g_object_unref(builder); return rv; } midgard2-core-10.05.7.1/src/midgard_reflector_property.c0000664000175000017500000003634411772046240017755 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_reflector_property.h" #include "schema.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" struct _MidgardReflectorPropertyPrivate { MidgardDBObjectClass *klass; const gchar *classname; }; /** * midgard_reflector_property_new: * @classname: (in): Name of #MidgardDBObject (or derived) class * * Returns: (transfer full): newly initialized #MidgardReflectorProperty instance or %NULL on failure. * * Since: 10.05 */ MidgardReflectorProperty * midgard_reflector_property_new (const gchar *classname) { g_return_val_if_fail (classname != NULL, NULL); MidgardDBObjectClass *dbklass = g_type_class_peek (g_type_from_name (classname)); if (!dbklass) return NULL; g_return_val_if_fail (MIDGARD_IS_DBOBJECT_CLASS (dbklass), NULL); MidgardReflectorProperty *self = g_object_new (MIDGARD_TYPE_REFLECTOR_PROPERTY, "dbclass", classname, NULL); return self; } /** * midgard_reflector_property_get_midgard_type: * @self: #MidgardReflectorProperty instance * @propname: property name which is registered for #MidgardDBObjectClass * * Returns: type (#GType) of the property or %NULL if property is not registered for given class. * * Since: 10.05 */ GType midgard_reflector_property_get_midgard_type (MidgardReflectorProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, 0); g_return_val_if_fail (propname != NULL, 0); g_return_val_if_fail (self->priv->klass != NULL, 0); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr( MIDGARD_DBOBJECT_CLASS(self->priv->klass), propname); if (prop_attr == NULL) return MGD_TYPE_NONE; return prop_attr->gtype; } /** * midgard_reflector_property_is_link: * @self: #MidgardReflectorProperty instance * @propname: property name * * Checks whether property is a link. * * Returns: %TRUE if property is registered as link, %FALSE otherwise (or in case if property is not registered for given class. * * Since: 10.05 */ gboolean midgard_reflector_property_is_link (MidgardReflectorProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (propname != NULL, FALSE); g_return_val_if_fail (self->priv->klass != NULL, FALSE); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr( MIDGARD_DBOBJECT_CLASS(self->priv->klass), propname); if (prop_attr == NULL) return FALSE; return prop_attr->is_link; } /** * midgard_reflector_property_is_linked: * @self: #MidgardReflectorProperty instance * @propname: property name * * Checks if property is linked with another type. * * Returns: %TRUE if property is linked with another type (property of another class is defined as a link to given one). * %FALSE is returned if property is not linked or is not registered for given class. * * Since: 10.05 */ gboolean midgard_reflector_property_is_linked (MidgardReflectorProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (propname != NULL, FALSE); g_return_val_if_fail (self->priv->klass != NULL, FALSE); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr( MIDGARD_DBOBJECT_CLASS(self->priv->klass), propname); if (prop_attr == NULL) return FALSE; return prop_attr->is_linked; } /** * midgard_reflector_property_get_link_name: * @self: #MidgardReflectorProperty instance * @propname: property name * * Returns: (transfer none): The name of the class, the given property is a link to. * Or %NULL if property is not a link or given property is not registered for given class. * * Since: 10.05 */ const gchar * midgard_reflector_property_get_link_name (MidgardReflectorProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (propname != NULL, NULL); g_return_val_if_fail (self->priv->klass != NULL, FALSE); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr( MIDGARD_DBOBJECT_CLASS(self->priv->klass), propname); if (prop_attr == NULL) return NULL; return prop_attr->link; } /** * midgard_reflector_property_get_link_target: * @self: #MidgardReflectorProperty instance * @propname: property name * * Returns: (transfer none): The name of the property, the given one is a link to. * Or %NULL if property is not a link or it's not registered for given class. * * Since: 10.05 */ const gchar * midgard_reflector_property_get_link_target (MidgardReflectorProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (propname != NULL, NULL); g_return_val_if_fail (self->priv->klass != NULL, FALSE); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr( MIDGARD_DBOBJECT_CLASS(self->priv->klass), propname); if (prop_attr == NULL) return NULL; return prop_attr->link_target; } /** * midgard_reflector_property_description: * @self: #MidgardReflectorProperty instance * @propname: property name * * Returns: (transfer none): description of the given property or %NULL. * * Since: 10.05 */ const gchar * midgard_reflector_property_description (MidgardReflectorProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (propname != NULL, NULL); g_return_val_if_fail (self->priv->klass != NULL, NULL); GParamSpec *prop = g_object_class_find_property( G_OBJECT_CLASS(self->priv->klass), propname); if (prop == NULL) return NULL; return g_param_spec_get_blurb(prop); } /** * midgard_reflector_property_get_link_class: (skip) * @self: #MidgardReflectorProperty instance * @propname: property name * * Returns: the pointer to the #MidgardDBObjectClass, a given property is a link to. * @see midgard_reflector_property_get_link_name() * * Since: 10.05 */ const MidgardDBObjectClass * midgard_reflector_property_get_link_class (MidgardReflectorProperty *self, const gchar *propname) { g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (propname != NULL, NULL); g_return_val_if_fail (self->priv->klass != NULL, NULL); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr( MIDGARD_DBOBJECT_CLASS(self->priv->klass), propname); if (prop_attr == NULL) return NULL; if (prop_attr->is_link) { MidgardDBObjectClass *link_klass = g_type_class_peek(g_type_from_name(prop_attr->link)); return link_klass; } return NULL; } /** * midgard_reflector_property_get_user_value: * @self: #MidgardReflectorProperty instance * @property: property to look value for * @name: name of user defined field * * Returns: value for user defined field, or NULL if none found * * Since: 10.05 */ const gchar* midgard_reflector_property_get_user_value (MidgardReflectorProperty *self, const gchar *property, const gchar *name) { g_assert (self != NULL); g_return_val_if_fail (property != NULL, NULL); g_return_val_if_fail (name != NULL, NULL); g_return_val_if_fail (self->priv->klass != NULL, NULL); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr (MIDGARD_DBOBJECT_CLASS (self->priv->klass), property); if (prop_attr == NULL) return NULL; return (gchar *) g_hash_table_lookup (prop_attr->user_values, name); } /** * midgard_reflector_property_is_private: * @self: #MidgardReflectorProperty instance * @property: property name to check * * Returns: %TRUE, if propery is defined private, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_reflector_property_is_private (MidgardReflectorProperty *self, const gchar *property) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (property != NULL, FALSE); g_return_val_if_fail (self->priv->klass != NULL, FALSE); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr (MIDGARD_DBOBJECT_CLASS (self->priv->klass), property); if (prop_attr == NULL) return FALSE; return prop_attr->is_private; } /** * midgard_reflector_property_is_unique: * @self: #MidgardReflectorProperty instance * @property: property name to check * * Returns: %TRUE, if property is defined as unique, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_reflector_property_is_unique (MidgardReflectorProperty *self, const gchar *property) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (property != NULL, FALSE); g_return_val_if_fail (self->priv->klass != NULL, FALSE); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr (MIDGARD_DBOBJECT_CLASS (self->priv->klass), property); if (prop_attr == NULL) return FALSE; return prop_attr->is_unique; } /** * midgard_reflector_property_is_primary: * @self: #MidgardReflectorProperty instance * @property: property name to check * * Returns: %TRUE, if property is primary, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_reflector_property_is_primary (MidgardReflectorProperty *self, const gchar *property) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (property != NULL, FALSE); g_return_val_if_fail (self->priv->klass != NULL, FALSE); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr (MIDGARD_DBOBJECT_CLASS (self->priv->klass), property); if (prop_attr == NULL) return FALSE; return prop_attr->is_primary; } /** * midgard_reflector_property_has_default_value: * @self: #MidgardReflectorProperty instance * @property: property name to check * * Returns: %TRUE, if property has default value, %FALSE otherwise * * Since: 10.05 */ gboolean midgard_reflector_property_has_default_value (MidgardReflectorProperty *self, const gchar *property) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (property != NULL, FALSE); g_return_val_if_fail (self->priv->klass != NULL, FALSE); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr (MIDGARD_DBOBJECT_CLASS (self->priv->klass), property); if (prop_attr == NULL) return FALSE; return prop_attr->default_value ? TRUE : FALSE; } /** * midgard_reflector_property_get_default_value: * @self: #MidgardReflectorProperty instance * @property: property name to check * * Returns: #GValue value or %NULL if property is not registered for the class or there's no default value for the given property * * Since: 10.05 */ GValue * midgard_reflector_property_get_default_value (MidgardReflectorProperty *self, const gchar *property) { g_return_val_if_fail (self != NULL, NULL); g_return_val_if_fail (property != NULL, NULL); g_return_val_if_fail (self->priv->klass != NULL, NULL); MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr (MIDGARD_DBOBJECT_CLASS (self->priv->klass), property); if (prop_attr == NULL) return NULL; if (!prop_attr->default_value) return NULL; GValue *value = g_new0 (GValue, 1); g_value_init (value, G_VALUE_TYPE (prop_attr->default_value)); g_value_copy (prop_attr->default_value, value); return value; } /* GOBJECT ROUTINES */ enum { MIDGARD_REFLECTOR_PROPERTY_DBCLASS = 1 }; static GObjectClass *__parent_class = NULL; static void __midgard_reflector_property_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardReflectorProperty *self = (MidgardReflectorProperty *) instance; self->priv = g_new (MidgardReflectorPropertyPrivate, 1); self->priv->klass = NULL; self->priv->classname = NULL; return; } static GObject * __midgard_reflector_property_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (__parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void __midgard_reflector_property_dispose (GObject *object) { __parent_class->dispose (object); } static void __midgard_reflector_property_finalize (GObject *object) { MidgardReflectorProperty *self = (MidgardReflectorProperty *) object; g_free (self->priv); self->priv = NULL; __parent_class->finalize (object); } static void __midgard_reflector_property_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardReflectorProperty *self = (MidgardReflectorProperty *) object; switch (property_id) { case MIDGARD_REFLECTOR_PROPERTY_DBCLASS: g_value_set_string (value, self->priv->classname); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void __midgard_reflector_property_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardReflectorProperty *self = (MidgardReflectorProperty *) (object); MidgardDBObjectClass *dbklass = NULL; switch (property_id) { case MIDGARD_REFLECTOR_PROPERTY_DBCLASS: dbklass = g_type_class_peek (g_type_from_name (g_value_get_string (value))); if (dbklass) { self->priv->klass = dbklass; self->priv->classname = G_OBJECT_CLASS_NAME (G_OBJECT_CLASS (dbklass)); } break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void __midgard_reflector_property_class_init (MidgardDBObjectClass *klass, gpointer g_class_data) { GObjectClass *object_class = G_OBJECT_CLASS (klass); __parent_class = g_type_class_peek_parent (klass); //object_class->constructor = __midgard_reflector_property_constructor; object_class->dispose = __midgard_reflector_property_dispose; object_class->finalize = __midgard_reflector_property_finalize; object_class->set_property = __midgard_reflector_property_set_property; object_class->get_property = __midgard_reflector_property_get_property; /* Properties */ GParamSpec *pspec = g_param_spec_string ("dbclass", "MidgardDBObject derived class name.", "", "", G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); /** * MidgardReflectorProperty:dbclass: * * Holds the name of the class which, #MidgardReflectorProperty has been initialized for. * */ g_object_class_install_property (object_class, MIDGARD_REFLECTOR_PROPERTY_DBCLASS, pspec); } GType midgard_reflector_property_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardReflectorPropertyClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) __midgard_reflector_property_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardReflectorProperty), 0, /* n_preallocs */ (GInstanceInitFunc) __midgard_reflector_property_instance_init }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardReflectorProperty", &info, 0); } return type; } midgard2-core-10.05.7.1/src/midgard_core_object.h0000664000175000017500000002542211772046240016302 00000000000000/* * Copyright (C) 2006, 2008 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_CORE_OBJECT_H #define MIDGARD_CORE_OBJECT_H #include #include #include "midgard_schema.h" #include #include "midgard_object.h" #include "schema.h" #include "midgard_timestamp.h" #include "midgard_connection.h" #include struct _MidgardDBObjectPrivate { const gchar *guid; MgdSchemaTypeAttr *storage_data; MidgardConnection *mgd; gboolean has_metadata; MidgardMetadata *metadata; GdaDataModel *datamodel; gint row; gboolean is_in_storage; gboolean uses_workspace; /* GDA pointers */ /* INSERT */ GdaStatement *_statement_insert; GdaSet *_statement_insert_params; GdaStatement *_workspace_statement_insert; GdaSet *_workspace_statement_insert_params; /* UPDATE */ GdaStatement *_statement_update; GdaSet *_statement_update_params; GdaStatement *_workspace_statement_update; GdaSet *_workspace_statement_update_params; /* DELETE (UPDATE) */ GdaStatement *_statement_delete; GdaSet *_statement_delete_params; GdaStatement *_workspace_statement_delete; GdaSet *_workspace_statement_delete_params; /* PURGE */ /* TODO */ /* GdaSql virtual helpers */ void (*add_fields_to_select_statement) (MidgardDBObjectClass *klass, MidgardConnection *mgd, GdaSqlStatementSelect *select, const gchar *table_name); GSList *(*set_from_sql) (MidgardConnection *mgd, GType type, const gchar *sql); void (*__set_from_sql) (MidgardDBObject *self, GdaDataModel *model, gint row); void (*set_from_data_model) (MidgardDBObject *self, GdaDataModel *model, gint row, guint column_id); void (*set_from_xml_node) (MidgardDBObject *self, xmlNode *node); MidgardConnection *(*get_connection) (MidgardDBObject *self); gboolean (*create_storage) (MidgardConnection *mgd, MidgardDBObjectClass *klass); gboolean (*update_storage) (MidgardConnection *mgd, MidgardDBObjectClass *klass); gboolean (*storage_exists) (MidgardConnection *mgd, MidgardDBObjectClass *klass); gboolean (*delete_storage) (MidgardConnection *mgd, MidgardDBObjectClass *klass); gboolean (*get_property) (MidgardDBObject *self, const gchar *name, GValue *value); gboolean (*set_property) (MidgardDBObject *self, const gchar *name, GValue *value); /* GDA helpers */ /* prepared statements */ GdaStatement *(*get_statement_insert) (MidgardDBObjectClass *klass, MidgardConnection *mgd); GdaSet *(*get_statement_insert_params) (MidgardDBObjectClass *klass, MidgardConnection *mgd); GdaStatement *(*get_statement_update) (MidgardDBObjectClass *klass, MidgardConnection *mgd); GdaSet *(*get_statement_update_params) (MidgardDBObjectClass *klass, MidgardConnection *mgd); GdaStatement *(*get_statement_delete) (MidgardDBObjectClass *klass, MidgardConnection *mgd); GdaSet *(*get_statement_delete_params) (MidgardDBObjectClass *klass, MidgardConnection *mgd); /* static SQL commands */ void (*set_static_sql_select) (MidgardConnection *mgd, MidgardDBObjectClass *klass); }; MidgardDBObjectPrivate *midgard_core_dbobject_private_new (void); #define MGD_DBOBJECT_DBPRIV(__obj) (MIDGARD_DBOBJECT(__obj)->dbpriv) #define MGD_OBJECT_GUID(___obj) MIDGARD_DBOBJECT(___obj)->dbpriv->guid #define MGD_OBJECT_CNC(___obj) MIDGARD_DBOBJECT(___obj)->dbpriv->mgd #define MGD_OBJECT_IN_STORAGE(___obj) (MGD_DBOBJECT_DBPRIV(___obj)->is_in_storage) #define MGD_DBOBJECT_HAS_METADATA(__obj) MGD_DBOBJECT_DBPRIV(__obj)->storage_data->metadata_class_name #define MGD_DBOBJECT_METADATA(___obj) MIDGARD_DBOBJECT(___obj)->dbpriv->metadata #define MGD_DBCLASS_METADATA_CLASS(__klass) MIDGARD_DBOBJECT_CLASS(__klass)->dbpriv->storage_data->metadata_class_ptr #define MGD_DBCLASS_DBPRIV(__klass) MIDGARD_DBOBJECT_CLASS(__klass)->dbpriv #define MGD_DBCLASS_STORAGE_DATA(__klass) MIDGARD_DBOBJECT_CLASS(__klass)->dbpriv->storage_data #define MGD_DBCLASS_PROPERTY_UP(__klass) MIDGARD_DBOBJECT_CLASS(__klass)->dbpriv->storage_data->property_up #define MGD_DBCLASS_PROPERTY_PARENT(__klass) MIDGARD_DBOBJECT_CLASS(__klass)->dbpriv->storage_data->property_parent #define MGD_DBCLASS_PROPERTY_UNIQUE(__klass) MIDGARD_DBOBJECT_CLASS(__klass)->dbpriv->storage_data->unique_name #define MGD_DBCLASS_PRIMARY(__klass) MIDGARD_DBOBJECT_CLASS(__klass)->dbpriv->storage_data->primary; #define MGD_DBCLASS_TABLENAME(__klass) MIDGARD_DBOBJECT_CLASS(__klass)->dbpriv->storage_data->table; /* Private structure for private data of MgdSchema objects */ struct _MidgardObjectPrivate{ const gchar *action; gchar *exported; gchar *imported; GSList *parameters; GHashTable *_params; guint ws_id; guint ws_object_id; }; #define MGD_OBJECT_WS_ID(__obj) MIDGARD_OBJECT(__obj)->priv->ws_id #define MGD_OBJECT_WS_OID(__obj) MIDGARD_OBJECT(__obj)->priv->ws_object_id struct _MidgardObjectClassPrivate { MgdSchemaTypeAttr *storage_data; }; //typedef struct _MidgardTimestamp MidgardTimestamp; /* Private structure for private data of MgdSchema object's metadata */ struct _MidgardMetadataPrivate { /* Object properties */ gchar *creator; MidgardTimestamp *created; gchar *revisor; MidgardTimestamp *revised; guint revision; gchar *locker; MidgardTimestamp *locked; gchar *approver; MidgardTimestamp *approved; gchar *authors; gchar *owner; MidgardTimestamp *schedule_start; MidgardTimestamp *schedule_end; gboolean hidden; gboolean nav_noentry; guint32 size; MidgardTimestamp *published; MidgardTimestamp *exported; MidgardTimestamp *imported; gboolean deleted; gint32 score; gboolean is_locked; gboolean lock_is_set; gboolean is_approved; gboolean approve_is_set; /* Other sruct members */ MidgardDBObject *object; }; /* Private structure for Midgard Config object */ struct _MidgardConfigPrivate{ GKeyFile *keyfile; guint dbtype; GFile *g_file; GFileOutputStream *output_stream; gchar *configname; gchar *host; gchar *database; guint port; gchar *dbuser; gchar *dbpass; gchar *blobdir; gchar *logfilename; gchar *schemafile; gchar *loglevel; gboolean tablecreate; gboolean tableupdate; FILE *logfile; gchar *mgdusername; gchar *mgdpassword; gboolean testunit; guint loghandler; guint authtype; gchar *pamfile; }; struct _MidgardConnectionPrivate { MidgardConnection *pattern; /* a pointer to connection we made copy from */ MidgardConfig *config; MidgardConfig *copy_config; gboolean connected; gboolean free_config; guint loghandler; guint loglevel; GData *sg_datalist; MidgardSchema *schema; GdaSqlParser *parser; GdaConnection *connection; const gchar *cnc_str; const gchar *auth_str; MidgardUser *user; gboolean inherited; GTimeVal app_time; GTimer *timer; gchar *configname; gboolean error_clbk_connected; /* Auth stack & types */ GSList *authtypes; GSList *authstack; gboolean enable_replication; gboolean enable_quota; gboolean enable_debug; gboolean enable_dbus; gboolean enable_workspace; gboolean has_workspace; gpointer workspace; GdaDataModel *workspace_model; MidgardWorkspaceManager *workspace_manager; }; #define MGD_CNC_PERSON(_cnc) _cnc->priv->user ? midgard_user_get_person (_cnc->priv->user) : NULL #define MGD_CNC_QUOTA(_cnc) _cnc->priv->enable_quota #define MGD_CNC_REPLICATION(_cnc) _cnc->priv->enable_replication #define MGD_CNC_DEBUG(_cnc) _cnc->priv->enable_debug #define MGD_CNC_DBUS(_cnc) _cnc->priv->enable_dbus #define MGD_CNC_USES_WORKSPACE(_cnc) _cnc->priv->enable_workspace #define MGD_CNC_HAS_WORKSPACE(_cnc) _cnc->priv->has_workspace #define MGD_CNC_WORKSPACE(_cnc) (MidgardWorkspace *)_cnc->priv->workspace #define MGD_CNC_WORKSPACE_ID(_cnc) MGD_CNC_WORKSPACE(_cnc) ? MIDGARD_WORKSPACE_STORAGE_GET_INTERFACE(MGD_CNC_WORKSPACE(_cnc))->priv->get_id(MIDGARD_WORKSPACE_STORAGE (MGD_CNC_WORKSPACE(_cnc))) : 0 struct _MidgardBlobPrivate { MidgardObject *attachment; gchar *location; MidgardConnection *mgd; gchar *blobdir; GIOChannel *channel; gchar *filepath; gchar *parentguid; gchar *content; gchar *encoding; }; struct _MidgardBaseInterfacePrivate { MgdSchemaTypeAttr *type_data; }; typedef enum { OBJECT_UPDATE_NONE = 0, OBJECT_UPDATE_EXPORTED, OBJECT_UPDATE_IMPORTED, OBJECT_UPDATE_CREATE } _ObjectActionUpdate; /* MidgardDBObject */ GParamSpec **midgard_core_dbobject_class_list_properties (MidgardDBObjectClass *klass, guint *n_props); /* Object's xml */ xmlDoc *midgard_core_object_create_xml_doc(void); void midgard_core_object_get_xml_doc( MidgardConnection *mgd, const gchar *xml, xmlDoc **doc, xmlNode **root_node); gchar *midgard_core_object_to_xml(GObject *object); gboolean _nodes2object(GObject *object, xmlNode *node, gboolean force); xmlNode *_get_type_node(xmlNode *node); GObject **midgard_core_object_from_xml(MidgardConnection *mgd, const gchar *xml, gboolean force); /* Object's routines */ gboolean _midgard_object_update(MidgardObject *object, _ObjectActionUpdate replicate, GError **error); gboolean _midgard_object_create(MidgardObject *object, const gchar *create_guid, _ObjectActionUpdate replicate); void _object_copy_properties(GObject *src, GObject *dest); /* Links */ gboolean midgard_core_object_prop_link_is_valid(GType ltype); /* Tree related routines */ gboolean midgard_core_object_prop_type_is_valid(GType src_type, GType dst_type); gboolean midgard_core_object_prop_parent_is_valid(GType ptype); gboolean midgard_core_object_prop_up_is_valid(GType ptype); GType midgard_core_object_get_property_parent_type(MidgardObjectClass *klass); GType midgard_core_object_get_property_up_type(MidgardObjectClass *klass); gboolean midgard_core_object_prop_parent_is_set(MidgardObject *object); gboolean midgard_core_object_prop_up_is_set(MidgardObject *object); gboolean midgard_core_object_has_dependents(MidgardObject *self, const gchar *classname); const gchar *midgard_core_object_get_deleted_field(MidgardDBObjectClass *klass); /* ACL */ gboolean midgard_core_object_property_refuse_private (MidgardConnection *self, MgdSchemaTypeAttr *attr, MidgardDBObject *object, const gchar *property); /* D-Bus */ void midgard_core_dbus_send_serialized_object(MidgardObject *object, const gchar *path); /* Interfaces */ void midgard_core_interface_add_prerequisites (GType type, GType iface_type); #endif /* MIDGARD_CORE_OBJECT_H */ midgard2-core-10.05.7.1/src/midgard_repligard.h0000664000175000017500000000470711772046240016000 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_REPLIGARD_H #define MIDGARD_REPLIGARD_H #include "midgard_dbobject.h" #include "midgard_defs.h" #include "midgard_object.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_REPLIGARD (midgard_repligard_get_type()) #define MIDGARD_REPLIGARD(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_REPLIGARD, MidgardRepligard)) #define MIDGARD_REPLIGARD_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_REPLIGARD, MidgardRepligardClass)) #define MIDGARD_IS_REPLIGARD(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_REPLIGARD)) #define MIDGARD_IS_REPLIGARD_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_REPLIGARD)) #define MIDGARD_REPLIGARD_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_REPLIGARD, MidgardRepligardClass)) typedef struct _MidgardRepligard MidgardRepligard; typedef struct _MidgardRepligardClass MidgardRepligardClass; struct _MidgardRepligardClass{ MidgardDBObjectClass parent; }; struct _MidgardRepligard{ MidgardDBObject parent; gchar *object_guid; gchar *type_name; guint object_action; guint workspace_id; /* < private > */ MidgardDBObjectPrivate *dbpriv; }; GType midgard_repligard_get_type (void); MidgardRepligard *midgard_repligard_new (MidgardConnection *mgd); gboolean midgard_repligard_create_object_info (MidgardRepligard *self, MidgardObject *object, GError **error); gboolean midgard_repligard_update_object_info (MidgardRepligard *self, MidgardObject *object, guint action, GError **error); gboolean midgard_repligard_purge_object_info (MidgardRepligard *self, MidgardObject *object, guint action, GError **error); G_END_DECLS #endif /* MIDGARD_REPLIGARD_H */ midgard2-core-10.05.7.1/src/midgard_storage.h0000664000175000017500000000416711772046240015473 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_STORAGE_H #define MIDGARD_STORAGE_H #include #include #include "midgard_defs.h" #include "midgard_connection.h" #include "midgard_dbobject.h" /* convention macros */ #define MIDGARD_TYPE_STORAGE (midgard_storage_get_type()) #define MIDGARD_STORAGE(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_STORAGE, MidgardStorage)) #define MIDGARD_STORAGE_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_STORAGE, MidgardStorageClass)) #define MIDGARD_IS_STORAGE(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_STORAGE)) #define MIDGARD_IS_STORAGE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_STORAGE)) #define MIDGARD_STORAGE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_STORAGE, MidgardStorageClass)) typedef struct _MidgardStorage MidgardStorage; typedef struct _MidgardStorageClass MidgardStorageClass; GType midgard_storage_get_type (void); gboolean midgard_storage_create_base_storage (MidgardConnection *mgd); gboolean midgard_storage_create (MidgardConnection *mgd, const gchar *name); gboolean midgard_storage_update (MidgardConnection *mgd, const gchar *name); gboolean midgard_storage_exists (MidgardConnection *mgd, const gchar *name); gboolean midgard_storage_delete (MidgardConnection *mgd, const gchar *name); #endif /* MIDGARD_STORAGE_H */ midgard2-core-10.05.7.1/src/midgard_core_views.c0000664000175000017500000005720711772046240016172 00000000000000/* Copyright (C) 2009 Piotr Pokora This program is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "midgard_schema.h" #include #include #include "midgard_datatypes.h" #include "midgard_type.h" #include "schema.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" #include #include "guid.h" #include "midgard_core_xml.h" #include "midgard_core_query.h" #include "query_constraint.h" #include "midgard_core_views.h" #include "midgard_metadata.h" #define MGD_VIEW_RW_VIEW "view" #define MGD_VIEW_RW_NAME "name" static gchar *parsed_view = NULL; static void __view_error(xmlNode *node, const gchar *msg, ...) { g_assert(node != NULL); va_list args; va_start (args, msg); g_logv(G_LOG_DOMAIN, G_LOG_LEVEL_WARNING, msg, args); va_end(args); g_error("Failed to parse %s view (line %ld)", parsed_view, xmlGetLineNo(node)); } static void __get_property_attribute (xmlNode *node, gchar **property_string, gchar **target_name, MgdSchemaPropertyAttr **prop_attr, MidgardDBObjectClass *klass) { *target_name = property_string[1]; if (property_string[2] != NULL && !g_str_equal (*target_name, "metadata")) { __view_error (node, "%s not allowed in view configuration", target_name); return; } /* Check metadata */ if (property_string[2] != NULL && g_str_equal (*target_name, "metadata")) { if (!MGD_DBCLASS_METADATA_CLASS (klass)) { __view_error (node, "No metadata registered for %s class", G_OBJECT_CLASS_NAME (klass)); return; } *target_name = property_string[2]; *prop_attr = g_hash_table_lookup (MIDGARD_DBOBJECT_CLASS (MGD_DBCLASS_METADATA_CLASS (klass))->dbpriv->storage_data->prophash, *target_name); if (!*prop_attr) __view_error (node, "%s not found. Not registered for %s.metadata ?", *target_name, property_string[0]); } /* Fallback to custom properties, metadata class doesn't exist in MgdSchema scope */ if (!*prop_attr) { *prop_attr = g_hash_table_lookup (klass->dbpriv->storage_data->prophash, *target_name); if (!*prop_attr) __view_error(node, "%s not found. Not registered for %s ?", *target_name, property_string[0]); if ((*prop_attr)->is_private) __view_error (node, "Private property %s.%s can not be added to view.", G_OBJECT_CLASS_NAME (G_OBJECT_CLASS (klass)), (*prop_attr)->name); } } static void __get_view_properties(xmlNode *node, MgdSchemaTypeAttr *type) { xmlNode *cur; MgdSchemaPropertyAttr *rprop_attr = NULL; gchar *property_name = NULL; for (cur = node->children; cur; cur = cur->next) { if (cur->type == XML_ELEMENT_NODE && g_str_equal(cur->name, "property")) { /* FIXME, add property to reserved words constants */ property_name = NULL; rprop_attr = NULL; xmlChar *name = xmlGetProp(cur, (const xmlChar *)TYPE_RW_NAME); if (!name || (name && *name == '\0')) __view_error(cur, "Can not register view with empty property", NULL); xmlChar *use_prop = xmlGetProp(cur, (const xmlChar *) "use"); /* FIXME, use reserved word */ if (!use_prop || (use_prop && *use_prop == '\0')) __view_error(cur, "Referenced class:property can not be empty", NULL); gchar **rprop = g_strsplit_set ((const gchar *)use_prop, ":.", -1); xmlFree (use_prop); if (!rprop || rprop[0] == NULL || rprop[1] == NULL) { __view_error(cur, "Referenced property can not be empty", NULL); return; } MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS_BY_NAME(rprop[0]); if (!klass) __view_error (cur, "Defined '%s' class is not registered as midgard_object derived one", rprop[0]); const gchar *table = midgard_core_class_get_table (MIDGARD_DBOBJECT_CLASS (klass)); if (table == NULL) __view_error (cur, "Can not create proper view. Defined '%s' class has NULL storage", rprop[0]); __get_property_attribute (cur, rprop, &property_name, &rprop_attr, MIDGARD_DBOBJECT_CLASS (klass)); midgard_core_schema_type_property_copy(rprop_attr, type); /* TODO, refactor with some usable TypeAttr related API */ /* Create property attributes copy using original property. Then change name. */ MgdSchemaPropertyAttr *prop_attr = g_hash_table_lookup(type->prophash, property_name); /* Keep pointer to original property attribue. At least, we need it when creating view. */ prop_attr->derived = rprop_attr; if (!prop_attr) g_warning("Can not find %s.%s in newly registered view", type->name, name); if (prop_attr) { g_free((gchar *)prop_attr->name); prop_attr->name = g_strdup((gchar *)name); g_free ((gchar *)prop_attr->field); prop_attr->field = g_strdup((gchar *)name); if (prop_attr->table == NULL) prop_attr->table = g_strdup (table); gchar *property_name = g_strdup ((gchar *)name); g_hash_table_insert(type->prophash, property_name, prop_attr); /* FIXME * Workaround for properties not being registered in the same order as defined * in view xml file */ type->_properties_list = g_slist_append (type->_properties_list, property_name); } g_strfreev(rprop); xmlFree(name); } } } static const gchar *__allowed_joins[] = {"left", "right", "inner", "inner left", "inner right", "outer", NULL }; #define __DBOBJECT_CLASS_PTR(__name) g_type_from_name (__name) == 0 ? NULL : MIDGARD_DBOBJECT_CLASS (g_type_class_peek (g_type_from_name (__name))) static void __get_view_joins(xmlNode *node, MgdSchemaTypeAttr *type) { xmlNode *cur; gchar *property_name = NULL; MgdSchemaPropertyAttr *propright = NULL; MgdSchemaPropertyAttr *propleft = NULL; MidgardDBObjectClass *metadata_klass = MIDGARD_DBOBJECT_CLASS (g_type_class_peek (MIDGARD_TYPE_METADATA)); MidgardDBObjectClass *left_klass = NULL; MidgardDBObjectClass *right_klass = NULL; gchar *left_table = NULL; gchar *right_table = NULL; gchar *left_field = NULL; gchar *right_field = NULL; for (cur = node->children; cur; cur = cur->next) { if (cur->type == XML_ELEMENT_NODE && g_str_equal(cur->name, "join")) { /* FIXME, add join to reserved words constants */ property_name = NULL; propright = NULL; propleft = NULL; xmlChar *jointype = xmlGetProp(cur, (const xmlChar *)"type"); if (!jointype || (jointype && *jointype == '\0')) __view_error(cur, "Can not create join with empty type", NULL); if (!midgard_core_xml_attribute_is_allowed(__allowed_joins, jointype)) __view_error(cur, "%s join type is not allowed", jointype); xmlChar *classname = xmlGetProp(cur, (const xmlChar *)"class"); xmlChar *table = NULL; if (!classname || (classname && *classname == '\0')) { table = xmlGetProp(cur, (const xmlChar *) TYPE_RW_TABLE); if (!table) __view_error(cur, "Can not create join. Empty, not defined class or table", NULL); } MidgardDBObjectClass *klass = NULL; MidgardDBObjectClass *joinklass = NULL; if (classname) joinklass = __DBOBJECT_CLASS_PTR ((gchar *)classname); if (!joinklass) { g_warning ("%s is not registered in GType system", classname); __view_error (cur, "Invalid classname for defined join"); return; } gchar *left = midgard_core_xml_get_child_attribute_content_by_name(cur, "condition", "left"); if (!left) __view_error(cur, "Condition left is missing", NULL); gchar *right = midgard_core_xml_get_child_attribute_content_by_name(cur, "condition", "right"); if (!right) __view_error(cur, "Condition right is missing", NULL); /* Get left property attribute */ gchar **classprop = g_strsplit_set(left, ":.", -1); if (!classprop || classprop[0] == NULL || classprop[1] == NULL) { __view_error(cur, "Condition left problem", NULL); return; } klass = __DBOBJECT_CLASS_PTR ((gchar *)classprop[0]); if (!klass) { __view_error(cur, "Class %s not registered", classprop[0]); return; } MgdSchemaTypeAttr *type_attr = klass->dbpriv->storage_data; /* Set left and right table and field explicitly. * It's important to ignore MgdSchemaPropertyAttr in case of metadata usage. * For this class, we can use explicit table and tablefield, and setting such * for metadata's MgdSchemaPropertyAttr could break any other queries. * Also, we need explicit table and field names for proper quoting. */ /* Check reserved metadata property */ if (g_str_equal (classprop[1], "metadata")) { if (classprop[2] == NULL) __view_error (cur, "Metadata defined without property name"); propleft = g_hash_table_lookup(metadata_klass->dbpriv->storage_data->prophash, classprop[2]); if (!propleft) __view_error(cur, "Property %s not registered for metadata class", classprop[2]); left_table = g_strdup (midgard_core_class_get_table (klass)); left_field = g_strdup (propleft->field); } else { propleft = g_hash_table_lookup(klass->dbpriv->storage_data->prophash, classprop[1]); if (!propleft) __view_error(cur, "Property %s not registered for %s", classprop[1], classprop[0]); left_table = g_strdup (type_attr->is_view ? type_attr->name : type_attr->table); left_field = g_strdup (propleft->field); } left_klass = MIDGARD_DBOBJECT_CLASS (klass); g_strfreev(classprop); /* Get right property attribute */ classprop = g_strsplit_set(right, ":.", -1); if (!classprop || classprop[0] == NULL || classprop[1] == NULL) { __view_error(cur, "Condition right problem", NULL); return; } klass = MIDGARD_DBOBJECT_CLASS(MIDGARD_OBJECT_GET_CLASS_BY_NAME((const gchar *)classprop[0])); if (!klass) { __view_error(cur, "Class %s not registered", classprop[0]); return; } type_attr = klass->dbpriv->storage_data; /* Check reserved metadata property */ if (g_str_equal (classprop[1], "metadata")) { if (classprop[2] == NULL) __view_error (cur, "Metadata defined without property name"); propright = g_hash_table_lookup(metadata_klass->dbpriv->storage_data->prophash, classprop[2]); if (!propright) __view_error(cur, "Property %s not registered for metadata class", classprop[2]); right_table = g_strdup (midgard_core_class_get_table (klass)); right_field = g_strdup (propright->field); } else { propright = g_hash_table_lookup(klass->dbpriv->storage_data->prophash, classprop[1]); if (!propright) __view_error(cur, "Property %s not registered for %s", classprop[1], classprop[0]); right_table = g_strdup (type_attr->is_view ? type_attr->name : type_attr->table); right_field = g_strdup (propright->field); } right_klass = MIDGARD_DBOBJECT_CLASS (klass); g_strfreev(classprop); MidgardDBJoin *mdbj = midgard_core_dbjoin_new(); mdbj->type = g_utf8_strup((const gchar *)jointype, strlen((gchar *)jointype)); /* configure table, if there's class, get it's table, in other case, get table directly */ if (classname) mdbj->table = g_strdup(midgard_core_class_get_table(joinklass)); else mdbj->table = g_strdup((gchar *)table); mdbj->left = propleft; mdbj->right = propright; mdbj->left_table = left_table; mdbj->left_field = left_field; mdbj->right_table = right_table; mdbj->right_field = right_field; mdbj->left_klass = left_klass; mdbj->right_klass = right_klass; g_free(left); g_free(right); type->joins = g_slist_append(type->joins, (gpointer) mdbj); xmlFree(jointype); xmlFree(classname); if (table) xmlFree(table); } } } static void __get_view_constraints(xmlNode *node, MgdSchemaTypeAttr *type) { xmlNode *cur; for (cur = node->children; cur; cur = cur->next) { if (cur->type == XML_ELEMENT_NODE && g_str_equal(cur->name, "constraint")) { /* FIXME, add constraint to reserved words constants */ xmlChar *property = xmlGetProp(cur, (const xmlChar *)"property"); if (!property || (property && *property == '\0')) __view_error(cur, "Can not add constraint with empty property", NULL); gchar **classprop = g_strsplit((gchar *)property, ":", 2); if (!classprop || classprop[0] == NULL || classprop[1] == NULL) { __view_error(cur, "Constraint property misconfigured", NULL); return; } MidgardDBObjectClass *klass = MIDGARD_DBOBJECT_CLASS(MIDGARD_OBJECT_GET_CLASS_BY_NAME((const gchar *)classprop[0])); if (!klass) __view_error(cur, "Class %s not registered", classprop[0]); MidgardCoreQueryConstraint *constraint = midgard_core_query_constraint_new(); if (!midgard_core_query_constraint_parse_property(&constraint, klass, classprop[1])) __view_error(cur, "Can not parse %s constraint property", classprop[1]); g_strfreev(classprop); xmlFree(property); /* Add operator */ xmlChar *operator = xmlGetProp(cur, (const xmlChar *)"operator"); if (!operator || (operator && *operator == '\0')) __view_error(cur, "Can not add constraint with empty operator", NULL); if (!midgard_core_query_constraint_add_operator(constraint, (const gchar *)operator)) __view_error(cur, "Invalid operator", NULL); xmlFree(operator); /* Add value */ xmlChar *valtype = xmlGetProp(cur, (const xmlChar *)"value_type"); if (!valtype || (valtype && *valtype == '\0')) __view_error(cur, "Can not add constraint with empty value_type", NULL); GType vtype = midgard_core_schema_gtype_from_string((const gchar *)valtype); if (!vtype) __view_error(cur, "Invalid %s value_type", valtype); xmlFree(valtype); xmlChar *value = xmlGetProp(cur, (const xmlChar *)"value"); if (!value || (value && *value == '\0')) __view_error(cur, "Can not add constraint with empty value", NULL); /* Get value as string and convert to declared type */ GValue strval = {0, }; g_value_init(&strval, G_TYPE_STRING); g_value_set_string(&strval, (const gchar *)value); GValue val = {0, }; g_value_init(&val, vtype); g_value_transform((const GValue *) &strval, &val); midgard_core_query_constraint_add_value(constraint, &val); //midgard_core_query_constraint_build_condition(constraint); type->constraints = g_slist_append(type->constraints, (gpointer) constraint); g_value_unset(&val); g_value_unset(&strval); xmlFree(value); } } } static void __mgdschematype_from_node(xmlNode *node, GSList **list) { g_assert(node != NULL); xmlChar *viewname = xmlGetProp(node, (const xmlChar *)MGD_VIEW_RW_NAME); if (!viewname) __view_error(node, "Empty view name. Can not define any type.", NULL); MgdSchemaTypeAttr *type = midgard_core_schema_type_attr_new(); type->name = g_strdup((gchar *)viewname); type->is_view = TRUE; /* Determine base view table */ xmlChar *table = xmlGetProp(node, (const xmlChar *) TYPE_RW_TABLE); /* Table not defined, try classtable */ if (!table) { xmlChar *classname = xmlGetProp(node, (const xmlChar *) "class"); if (!classname) __view_error(node, "'table' or 'class' attribute not found", NULL); MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_CLASS(g_type_class_peek(g_type_from_name((const gchar *)classname))); table = (xmlChar *)g_strdup(midgard_core_class_get_table(dbklass)); if (!table) __view_error(node, "NULL table for %s class", classname); xmlFree(classname); } midgard_core_schema_type_set_table(type, (const gchar *)table); xmlFree(table); __get_view_properties(node, type); __get_view_joins(node, type); __get_view_constraints(node, type); midgard_core_schema_type_build_static_sql(type); *list = g_slist_append(*list, type); xmlFree(viewname); } static gchar* __build_create_view_cmd (MidgardConnection *mgd, MidgardDBObjectClass *klass) { guint n_props; GParamSpec **pspecs = g_object_class_list_properties (G_OBJECT_CLASS (klass), &n_props); GdaConnection *cnc = mgd->priv->connection; MgdSchemaTypeAttr *type = midgard_core_class_get_type_attr (klass); guint i; GString *ssf = g_string_new (""); gboolean add_coma = FALSE; for (i = 0; i < n_props; i++) { if (G_TYPE_FUNDAMENTAL (pspecs[i]->value_type) == G_TYPE_OBJECT) { if (i == 1) add_coma = FALSE; continue; } /* Replace tablefield for every property */ MgdSchemaPropertyAttr *prop_attr = g_hash_table_lookup (type->prophash, pspecs[i]->name); if (!prop_attr) { g_warning ("%s property not registered for %s", pspecs[i]->name, type->name); g_error ("Failed to register view class"); } gchar *q_table = gda_connection_quote_sql_identifier (cnc, prop_attr->derived->table ? prop_attr->derived->table : prop_attr->table); gchar *q_field = gda_connection_quote_sql_identifier (cnc, prop_attr->derived->field); gchar *q_name = gda_connection_quote_sql_identifier (cnc, pspecs[i]->name); g_string_append_printf (ssf, "%s%s.%s AS %s", add_coma ? ", " : " ", q_table, q_field, q_name); gchar *t_table = gda_connection_quote_sql_identifier (cnc, type->name); midgard_core_schema_type_property_set_tablefield (prop_attr, t_table, q_name); g_free (q_table); g_free (q_field); g_free (q_name); g_free (t_table); add_coma = TRUE; } g_free (pspecs); return g_string_free (ssf, FALSE); } gchar * midgard_core_view_build_create_view_command (MidgardConnection *mgd, MidgardDBObjectClass *klass) { GdaConnection *cnc = mgd->priv->connection; GString *query = g_string_new ("CREATE VIEW "); MgdSchemaTypeAttr *type = midgard_core_class_get_type_attr (klass); gchar *create_view_cmd = __build_create_view_cmd (mgd, klass); g_string_append_printf (query, "%s AS SELECT %s FROM %s ", type->name, create_view_cmd, type->view_table); g_free (create_view_cmd); GSList *list = NULL; for (list = type->joins; list != NULL; list = list->next) { MidgardDBJoin *join = (MidgardDBJoin *) list->data; gchar *jtable = gda_connection_quote_sql_identifier (cnc, join->table); gchar *q_table = gda_connection_quote_sql_identifier (cnc, join->left_table); gchar *q_field = gda_connection_quote_sql_identifier (cnc, join->left_field); gchar *ltf = g_strjoin (".", q_table, q_field, NULL); g_free (q_table); g_free (q_field); q_table = gda_connection_quote_sql_identifier (cnc, join->right_table); q_field = gda_connection_quote_sql_identifier (cnc, join->right_field); gchar *rtf = g_strjoin (".", q_table, q_field, NULL); g_free (q_table); g_free (q_field); g_string_append_printf(query, "%s JOIN %s ON %s = %s ", join->type, jtable, ltf, rtf ); g_free (jtable); g_free (ltf); g_free (rtf); } /* Select only those records which are not deleted. #1437 */ list = NULL; g_string_append(query, " WHERE "); MidgardDBObjectClass *dbklass = NULL; const gchar *deleted_field = NULL; GSList *dellist = NULL; if (!type->joins) { dbklass = MIDGARD_DBOBJECT_CLASS (g_type_class_peek (g_type_from_name (type->name))); deleted_field = midgard_core_object_get_deleted_field (dbklass); if (deleted_field) dellist = g_slist_prepend (dellist, g_strdup_printf ("%s.%s = 0", type->table, deleted_field)); } for (list = type->joins; list != NULL; list = list->next) { MidgardDBJoin *join = (MidgardDBJoin *) list->data; deleted_field = midgard_core_object_get_deleted_field (MIDGARD_DBOBJECT_CLASS (join->left_klass)); if (deleted_field) dellist = g_slist_prepend (dellist, g_strdup_printf ("%s.%s = 0", join->left_table ? join->left_table : join->left->table, deleted_field)); deleted_field = midgard_core_object_get_deleted_field (MIDGARD_DBOBJECT_CLASS (join->right_klass)); if (deleted_field) dellist = g_slist_prepend (dellist, g_strdup_printf ("%s.%s = 0", join->right_table ? join->right_table : join->right->table, deleted_field)); } guint i = 0; if (dellist) dellist = g_slist_reverse (dellist); for (list = dellist; list != NULL; list = list->next, i++) { gchar *dc = (gchar*) list->data; g_string_append_printf (query, " %s %s ", i > 0 ? "AND" : "", dc); g_free (list->data); } g_slist_free (dellist); list = NULL; for (list = type->constraints; list != NULL; list = list->next) { if (i > 0) g_string_append(query, " AND "); g_string_append(query, MIDGARD_CORE_QUERY_CONSTRAINT(list->data)->priv->condition); i++; } return g_string_free(query, FALSE); } static void __register_view_type (MgdSchemaTypeAttr *type) { if (type == NULL) return; if (type->params == NULL) { g_warning("No parameters found for %s schema type. Not registering.", type->name); return; } GType new_type; new_type = midgard_core_view_type_register(type, MIDGARD_TYPE_OBJECT); if (new_type) { GObject *foo = g_object_new(new_type, NULL); /* Set number of properties. * This way we gain performance for instance_init call */ GParamSpec **pspecs = g_object_class_list_properties( G_OBJECT_GET_CLASS(G_OBJECT(foo)), &type->class_nprop); /* Replace storage name */ type->view_table = g_strdup (type->table); g_hash_table_destroy(type->tableshash); g_free((gchar *)type->table); type->table = NULL; type->tableshash = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, NULL); midgard_core_schema_type_set_table(type, (const gchar *)type->name); g_free(pspecs); g_object_unref(foo); } } void midgard_core_views_read_file(const gchar *path) { g_assert(path != NULL); xmlNode *node; xmlDocPtr doc = xmlParseFile(path); if (doc == NULL) { g_warning("Skipping malformed midgard_view schema file %s", path); return; } xmlNodePtr root = xmlDocGetRootElement(doc); if (root == NULL || root->ns == NULL || !g_str_equal(root->ns->href, MGD_SCHEMA_XML_NAMESPACE) || !g_str_equal(root->name, MGD_SCHEMA_XML_ROOT_NAME)) { g_warning("Skipping invalid midgard_view schema file %s", path); xmlFreeDoc(doc); return; } guint views_found = 0; GSList *list = NULL; for (node = root->children; node; node = node->next) { if (node->type == XML_ELEMENT_NODE && g_str_equal(node->name, MGD_VIEW_RW_VIEW)) { views_found++; __mgdschematype_from_node(node, &list); } } if (list != NULL) { GSList *clist = NULL; for (clist = list; clist != NULL; clist = clist->next) { MgdSchemaTypeAttr *type = (MgdSchemaTypeAttr *) clist->data; midgard_core_schema_type_initialize_paramspec (type); midgard_core_schema_type_validate_fields(type); __register_view_type(type); } } if (views_found == 0) g_warning("Can not find any view defined in %s xml view schema file.", path); xmlFreeDoc(doc); return; } void midgard_core_views_read_dir(const gchar *path) { g_assert(path != NULL); const gchar *filename; GError *error; GDir *dir = g_dir_open(path, 0, &error); gchar *fullpath = NULL; if (!dir) { g_warning("Failed to read '%s' directory. %s", path, error && error->message ? error->message : "Error message not available"); if (error) g_error_free(error); return; } do { filename = g_dir_read_name(dir); fullpath = g_build_path(G_DIR_SEPARATOR_S, path, filename, NULL); if (!g_file_test (fullpath, G_FILE_TEST_IS_DIR) && g_file_test (fullpath, G_FILE_TEST_IS_REGULAR) && g_str_has_suffix(filename, ".xml")){ /* Hide hidden, recovery, and similiar files */ if (g_str_has_prefix(filename, ".") || g_str_has_prefix(filename, "#") || g_str_has_suffix(filename, "~")) { g_warning("File %s ignored!", filename); } else { parsed_view = fullpath; midgard_core_views_read_file(fullpath); parsed_view = NULL; } } g_free (fullpath); } while (filename != NULL); g_dir_close(dir); } midgard2-core-10.05.7.1/src/midgard_core_workspace.c0000664000175000017500000002416011772046240017023 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_core_query.h" #include "midgard_workspace_storage.h" #include "midgard_workspace.h" #include "midgard_core_object.h" #include "midgard_core_workspace.h" #include "midgard_storage.h" MidgardWorkspacePrivate * midgard_core_workspace_private_new () { MidgardWorkspacePrivate *priv = g_new (MidgardWorkspacePrivate, 1); priv->parent_ws = NULL; priv->path = NULL; priv->name = NULL; priv->id = 0; priv->up_id = 0; priv->manager = NULL; priv->context = NULL; return priv; } void midgard_core_workspace_private_free (MidgardWorkspacePrivate *ws_priv) { g_return_if_fail (ws_priv != NULL); if (ws_priv->parent_ws) g_object_unref (ws_priv->parent_ws); ws_priv->parent_ws = NULL; g_free (ws_priv->path); ws_priv->path = NULL; g_free (ws_priv->name); ws_priv->name = NULL; ws_priv->id = 0; ws_priv->up_id = 0; if (ws_priv->manager && G_IS_OBJECT(ws_priv->manager)) g_object_unref (G_OBJECT(ws_priv->manager)); ws_priv->manager = NULL; if (ws_priv->context) g_object_unref ((gpointer)ws_priv->context); ws_priv->context = NULL; g_free (ws_priv); ws_priv = NULL; } void midgard_core_workspace_list_all (MidgardConnection *mgd, gboolean check_table) { g_return_if_fail (mgd != NULL); /* Check table if requested */ if (check_table) { if (!midgard_storage_exists (mgd, "MidgardWorkspace")) return; } /* TODO, provide statement with parameters */ GString *sql = g_string_new ("SELECT "); g_string_append_printf (sql, "%s, %s, %s, %s FROM %s", MGD_WORKSPACE_FIELD_ID, MGD_WORKSPACE_FIELD_UP, MGD_WORKSPACE_FIELD_GUID, MGD_WORKSPACE_FIELD_NAME, MGD_WORKSPACE_TABLE); /* Query all workspaces. Returned data model will be used as temporary * (in memory dataset) for faster and easier workspaces management */ GdaDataModel *model = midgard_core_query_get_model (mgd, sql->str); g_string_free (sql, TRUE); if (!model) return; if (mgd->priv->workspace_model && G_IS_OBJECT(mgd->priv->workspace_model)) g_object_unref (mgd->priv->workspace_model); mgd->priv->workspace_model = model; } gint midgard_core_workspace_get_col_id_by_name (MidgardConnection *mgd, const gchar *name, gint col_idx, gint up_id_check, guint *row_id) { g_return_val_if_fail (mgd != NULL, -1); g_return_val_if_fail (name != NULL, -1); if (row_id) *row_id = 0; guint row; GdaDataModel *model = mgd->priv->workspace_model; /* model is not initialized, which means there's no workspace created yet */ if (!model) return -1; guint ret_rows = gda_data_model_get_n_rows (model); if (ret_rows == 0) return -1; guint ret_cols = gda_data_model_get_n_columns (model); for (row = 0; row < ret_rows; row++) { const GValue *upval = gda_data_model_get_value_at (model, MGD_WORKSPACE_FIELD_IDX_UP, row, NULL); guint up_id; if (G_VALUE_HOLDS_UINT (upval)) up_id = g_value_get_uint (upval); else up_id = g_value_get_int (upval); /* Check if the row in question holds values for parent workspace */ if (up_id != up_id_check) continue; const GValue *nval = gda_data_model_get_value_at (model, MGD_WORKSPACE_FIELD_IDX_NAME, row, NULL); if (g_str_equal (name, g_value_get_string (nval))) { if (row_id) *row_id = row; const GValue *colval = gda_data_model_get_value_at (model, col_idx, row, NULL); if (G_VALUE_HOLDS_UINT (colval)) return (gint) g_value_get_uint (colval); return g_value_get_int (colval); } } return -1; } gint midgard_core_workspace_get_up_id_by_name (MidgardConnection *mgd, const gchar *name, guint up_id) { guint row_id; return midgard_core_workspace_get_col_id_by_name (mgd, name, MGD_WORKSPACE_FIELD_IDX_UP, up_id, &row_id); } gint midgard_core_workspace_get_id_by_name (MidgardConnection *mgd, const gchar *name) { return midgard_core_workspace_get_up_id_by_name (mgd, name, MGD_WORKSPACE_FIELD_IDX_ID); } gboolean midgard_core_workspace_name_exists (MidgardWorkspace *workspace, MidgardWorkspace *parent) { MidgardConnection *mgd = MGD_OBJECT_CNC (workspace); g_return_val_if_fail (mgd != NULL, FALSE); g_return_val_if_fail (workspace != NULL, FALSE); const gchar *name = (const gchar *)workspace->priv->name; gint up_id = 0; if (parent) up_id = parent->priv->id; guint row_id; gint exists = midgard_core_workspace_get_col_id_by_name (mgd, name, MGD_WORKSPACE_FIELD_IDX_ID, up_id, &row_id); if (exists == -1) return FALSE; return TRUE; } const GValue * midgard_core_workspace_get_value_by_id (MidgardConnection *mgd, guint col_idx, guint id, guint *row_id) { g_return_val_if_fail (mgd != NULL, NULL); g_return_val_if_fail (MIDGARD_IS_CONNECTION(mgd), NULL); guint row; if (row_id) *row_id = 0; GdaDataModel *model = mgd->priv->workspace_model; if (!model) { g_critical ("Failed to get workspace name by itd id. Workspace data model is not set"); return NULL; } guint ret_rows = gda_data_model_get_n_rows (model); if (ret_rows == 0) return NULL; guint ret_cols = gda_data_model_get_n_columns (model); for (row = 0; row < ret_rows; row++) { const GValue *idval = gda_data_model_get_value_at (model, MGD_WORKSPACE_FIELD_IDX_ID, row, NULL); guint model_id; if (G_VALUE_HOLDS_UINT (idval)) model_id = g_value_get_uint (idval); else model_id = g_value_get_int (idval); /* Check if the row in question holds id value */ if (id != model_id) continue; if (row_id) *row_id = row; return gda_data_model_get_value_at (model, col_idx, row, NULL); } return NULL; } static GSList * _get_parent_values (MidgardConnection *mgd, guint up, guint field_idx) { g_return_val_if_fail (mgd != NULL, NULL); GSList *list = NULL; if (up == 0) return NULL; const GValue *value = NULL; guint row_id; do { value = midgard_core_workspace_get_value_by_id (mgd, field_idx, up, &row_id); if (value) { list = g_slist_prepend (list, (gpointer) value); const GValue *up_value = midgard_core_workspace_get_value_by_id (mgd, MGD_WORKSPACE_FIELD_IDX_UP, up, &row_id); if (up_value) { guint up_id = 0; if (G_VALUE_HOLDS_UINT (up_value)) up_id = g_value_get_uint (up_value); else up_id = g_value_get_int (up_value); up = up_id; } if (up == 0) break; } } while (value != NULL); return list; } GSList * midgard_core_workspace_get_context_ids (MidgardConnection *mgd, guint id) { g_return_val_if_fail (mgd != NULL, NULL); g_return_val_if_fail (id != 0, NULL); guint row_id; const GValue *up_val = midgard_core_workspace_get_value_by_id (mgd, MGD_WORKSPACE_FIELD_IDX_UP, id, &row_id); guint up_id = 0; if (G_VALUE_HOLDS_UINT (up_val)) up_id = g_value_get_uint (up_val); else up_id = (guint) g_value_get_int (up_val); GSList *l = _get_parent_values (mgd, up_id, MGD_WORKSPACE_FIELD_IDX_ID); GValue *id_val = g_new0 (GValue, 1); g_value_init (id_val, G_TYPE_UINT); g_value_set_uint (id_val, id); if (l) l = g_slist_reverse (l); l = g_slist_prepend (l, (gpointer) id_val); return l; } GSList * midgard_core_workspace_get_parent_names (MidgardConnection *mgd, guint up) { g_return_val_if_fail (mgd != NULL, NULL); GSList *list = NULL; if (up == 0) return NULL; const GValue *value = NULL; const gchar *name = NULL; guint row_id; do { value = midgard_core_workspace_get_value_by_id (mgd, MGD_WORKSPACE_FIELD_IDX_NAME, up, &row_id); if (value) { name = g_value_get_string (value); list = g_slist_prepend (list, (gpointer) name); const GValue *up_value = midgard_core_workspace_get_value_by_id (mgd, MGD_WORKSPACE_FIELD_IDX_UP, up, &row_id); if (up_value) { guint up_id = 0; if (G_VALUE_HOLDS_UINT (up_value)) up_id = g_value_get_uint (up_value); else up_id = g_value_get_int (up_value); up = up_id; } if (up == 0) break; } } while (name != NULL); return list; } gint midgard_core_workspace_get_id_by_path (MidgardConnection *mgd, const gchar *path, guint *row_id, GError **error) { if (path && *path == '\0') { g_set_error (error, MIDGARD_WORKSPACE_STORAGE_ERROR, MIDGARD_WORKSPACE_STORAGE_ERROR_INVALID_PATH, "An empty element found in given path"); if (row_id) *row_id = 0; return -1; } GError *err = NULL; gchar **tokens = g_strsplit (path, "/", 0); guint i = 0; /* If path begins with slash, first element is an empty string. Ignore it. */ if (*tokens[0] == '\0') i++; guint id = -1; gint j = i; gboolean valid_path = TRUE; /* Validate path */ while (tokens[i] != NULL) { if (*tokens[i] == '\0') { valid_path = FALSE; break; } i++; } if (!valid_path) { g_set_error (error, MIDGARD_WORKSPACE_STORAGE_ERROR, MIDGARD_WORKSPACE_STORAGE_ERROR_INVALID_PATH, "An empty element found in given path"); g_strfreev (tokens); if (row_id) *row_id = 0; return id; } /* Check every possible workspace_storage name */ id = 0; guint up = 0; const gchar *name = NULL; while (tokens[j] != NULL) { name = tokens[j]; id = midgard_core_workspace_get_col_id_by_name (mgd, name, MGD_WORKSPACE_FIELD_IDX_ID, up, row_id); if (id == -1) break; up = id; j++; } g_strfreev (tokens); if (id == -1) { g_set_error (error, MIDGARD_WORKSPACE_STORAGE_ERROR, MIDGARD_WORKSPACE_STORAGE_ERROR_OBJECT_NOT_EXISTS, "WorkspaceStorage doesn't exists at given path"); if (row_id) *row_id = 0; return id; } /* Set error, even if we return ID. It helps to check if given path exists. */ g_set_error (error, MIDGARD_WORKSPACE_STORAGE_ERROR, MIDGARD_WORKSPACE_STORAGE_ERROR_PATH_EXISTS, "Given path '%s' already exists.", path); return id; } midgard2-core-10.05.7.1/src/midgard_base_interface.c0000664000175000017500000001301511772046240016744 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_base_interface.h" #include "schema.h" #include "midgard_base_mixin.h" #include "midgard_core_object.h" void midgard_core_interface_add_prerequisites (GType type, GType iface_type) { guint n_types; /* Get all prerequisites of given interface type */ GType *pre_types = g_type_interface_prerequisites (iface_type, &n_types); if (n_types < 1) return; static const GInterfaceInfo iface_info = { NULL, /* interface init */ NULL, /* interface_finalize */ NULL /* interface_data */ }; guint i; for (i = 0; i < n_types; i++) { /* This can be G_OBJECT added as prerequisite */ if (!G_TYPE_IS_INTERFACE (pre_types[i])) continue; /* Check if given type already implements interface. */ guint n_impl; guint j; gboolean ignore = FALSE; GType *implemented = g_type_interfaces (type, &n_impl); for (j = 0; j < n_impl; j++) { if (implemented[j] == pre_types[i]) { ignore = TRUE; break; } } if (ignore) continue; /* chain up, till we can get anything */ midgard_core_interface_add_prerequisites (type, pre_types[i]); g_type_add_interface_static (type, pre_types[i], &iface_info); } } static void __midgard_base_interface_derived_init (gpointer *klass) { } /* We use class_init routine, instead of base_init, which should be involved in case of reference. * If you have better idea how to pass MgdSchemaTypeAttr to base_init, rewrite those two routines */ static void __midgard_base_interface_derived_class_init (gpointer *klass, gpointer class_data) { MgdSchemaTypeAttr *type_attr = (MgdSchemaTypeAttr *) class_data; guint i; for (i = 0; i < type_attr->num_properties; i++) { GParamSpec *pspec = g_object_interface_find_property (klass, type_attr->params[i]->name); if (!pspec) g_object_interface_install_property (klass, type_attr->params[i]); } ((MidgardBaseInterfaceIFace *)klass)->priv = g_new (MidgardBaseInterfacePrivate, 1); ((MidgardBaseInterfaceIFace *)klass)->priv->type_data = class_data; } static void __midgard_base_interface_derived_finalize (gpointer *klass) { g_free (((MidgardBaseInterfaceIFace *)klass)->priv); ((MidgardBaseInterfaceIFace *)klass)->priv = NULL; } GType midgard_core_type_register_interface (MgdSchemaTypeAttr *type_attr) { GType type = g_type_from_name (type_attr->name); /* FIXME, throw warning if type is registered and it's not interface */ if (type != G_TYPE_NONE && G_TYPE_IS_INTERFACE(type)) return type; /* First, chain up. If prerequisite is not yet registered, attempt to do so */ guint i; guint n_types; gchar **extends = midgard_core_schema_type_list_extends (type_attr, &n_types); for (i = 0; i < n_types; i++) { if (g_type_from_name (extends[i]) == G_TYPE_INVALID) { MgdSchemaTypeAttr *parent_attr = midgard_schema_lookup_type (type_attr->schema, extends[i]); if (!parent_attr) g_error ("Can not find '%s' definition", extends[i]); midgard_core_type_register_interface (parent_attr); } } if (extends) g_strfreev (extends); GTypeInfo info = { sizeof (MidgardBaseInterfaceIFace), (GBaseInitFunc) __midgard_base_interface_derived_init, (GBaseFinalizeFunc) __midgard_base_interface_derived_finalize, (GClassInitFunc) __midgard_base_interface_derived_class_init, NULL, /* class_finalize */ (const MgdSchemaTypeAttr *) type_attr, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_INTERFACE, type_attr->name, &info, 0); g_type_interface_add_prerequisite (type, G_TYPE_OBJECT); GType parent_type = MIDGARD_TYPE_BASE_INTERFACE; if (type_attr->is_mixin) parent_type = MIDGARD_TYPE_BASE_MIXIN; extends = midgard_core_schema_type_list_extends (type_attr, &n_types); if (n_types == 0) { g_type_interface_add_prerequisite (type, parent_type); return type; } for (i = 0; i < n_types; i++) { parent_type = g_type_from_name (extends[i]); if (parent_type == G_TYPE_INVALID) { g_warning ("Failed to get type of '%s', defined as parent of '%s'", type_attr->extends, type_attr->name); g_error ("Invalid parent type"); } g_type_interface_add_prerequisite (type, parent_type); } g_strfreev (extends); return type; } static void __midgard_base_interface_init (gpointer g_class) { } GType midgard_base_interface_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardBaseInterfaceIFace), (GBaseInitFunc) __midgard_base_interface_init, NULL, /* base_finalize */ NULL, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_INTERFACE, "MidgardBaseInterface", &info, 0); g_type_interface_add_prerequisite (type, G_TYPE_OBJECT); } return type; } midgard2-core-10.05.7.1/src/midgard_quota.c0000664000175000017500000001534711772046240015155 00000000000000/* * Copyright (C) 2005 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include #include "midgard_core_query.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" #include "midgard_metadata.h" #include "midgard_user.h" gboolean midgard_quota_size_is_reached(MidgardObject *object, gint size) { GString *query; guint limit_tmp_size = 0, tmp_size = 0; MidgardConnection *mgd = MGD_OBJECT_CNC (object); if (!MGD_CNC_QUOTA (mgd)) return FALSE; guint rows = 0; const GValue *tmp_size_value; const GValue *limit_tmp_size_value; /* Check global quota */ gchar *qstr = "SELECT limit_sg_size, sg_size FROM quota WHERE typename = '' AND limit_sg_size > 0 "; GdaDataModel *model = midgard_core_query_get_model(mgd, qstr); /* Sitegroup limit is not set */ if(!model) return FALSE; limit_tmp_size_value = midgard_data_model_get_value_at(model, 0, 0); MIDGARD_GET_UINT_FROM_VALUE(limit_tmp_size, limit_tmp_size_value); tmp_size_value = midgard_data_model_get_value_at(model, 0, 1); MIDGARD_GET_UINT_FROM_VALUE(tmp_size, tmp_size_value); g_object_unref(model); if(((tmp_size + size) > limit_tmp_size) && limit_tmp_size > 0){ MIDGARD_ERRNO_SET(mgd, MGD_ERR_QUOTA); return TRUE; } /* Check quota for class size */ query = g_string_new("SELECT limit_type_size, type_size FROM quota "); g_string_append_printf(query, "WHERE typename = '%s' AND limit_type_size > 0 ", G_OBJECT_TYPE_NAME(object)); model = midgard_core_query_get_model(mgd, query->str); rows = gda_data_model_get_n_rows(model); g_string_free(query, TRUE); /* Class limit is not set */ if(rows == 0) { g_object_unref(model); return FALSE; } limit_tmp_size_value = midgard_data_model_get_value_at(model, 0, 0); MIDGARD_GET_UINT_FROM_VALUE(limit_tmp_size, limit_tmp_size_value); tmp_size_value = midgard_data_model_get_value_at(model, 0, 1); MIDGARD_GET_UINT_FROM_VALUE(tmp_size, tmp_size_value); g_object_unref(model); if(((tmp_size + size) > limit_tmp_size) && limit_tmp_size > 0){ MIDGARD_ERRNO_SET(mgd, MGD_ERR_QUOTA); return TRUE; } return FALSE; } /* * Returns object's disk usage size */ guint midgard_quota_get_object_size(MidgardObject *object) { g_assert(object != NULL); MidgardConnection *mgd = MGD_OBJECT_CNC (object); if (!MGD_CNC_QUOTA (mgd) || !MGD_DBOBJECT_HAS_METADATA(object)) return 0; const gchar *tablename = midgard_core_class_get_table(MIDGARD_DBOBJECT_GET_CLASS(object)); gchar *where = midgard_core_query_where_guid(tablename, MGD_OBJECT_GUID (object)); GValue *value = midgard_core_query_get_field_value( MGD_OBJECT_CNC (object), "metadata_size", tablename, where); g_free(where); guint size = 0; if(G_VALUE_HOLDS_UINT(value)) size = g_value_get_uint(value); if(G_VALUE_HOLDS_INT(value)) size = (guint) g_value_get_int(value); g_value_unset(value); g_free(value); return size; } /* * Updates object's storage setting object's size * WARNING, this is MySQL optimized! */ gboolean midgard_quota_update(MidgardObject *object, guint32 init_size) { g_assert(object != NULL); MidgardConnection *mgd = MGD_OBJECT_CNC (object); g_assert(mgd != NULL); if (!MGD_CNC_QUOTA (mgd)) return TRUE; guint32 size = 0; guint32 qsize = 0; const gchar *typename = G_OBJECT_TYPE_NAME(object); gchar *tmpstr; if (!MGD_DBOBJECT_METADATA (object)) return TRUE; size = MGD_DBOBJECT_METADATA (object)->priv->size; /* nothing to update, this should never happen */ if(size == 0) return TRUE; /* Get difference */ /* difference is important to allow multiple updates without wrong size * diff_size may be less then , equal or greater than 0 */ qsize = init_size; gint diff_size = size - qsize; if(midgard_quota_size_is_reached(object, diff_size)){ MIDGARD_ERRNO_SET(MGD_OBJECT_CNC (object), MGD_ERR_QUOTA); return FALSE; } /* diff size is 0 , so no need update record without changing its value */ if(diff_size == 0) return TRUE; /* Update type size */ GString *quota_query; quota_query = g_string_new("UPDATE quota "); g_string_append_printf(quota_query, "SET type_size=type_size+%d WHERE typename='%s' ", diff_size, typename); tmpstr = g_string_free(quota_query, FALSE); midgard_core_query_execute(MGD_OBJECT_CNC (object), tmpstr, TRUE); g_free(tmpstr); return TRUE; } gboolean midgard_quota_create(MidgardObject *object) { g_assert(object != NULL); GString *query; MidgardConnection *mgd = MGD_OBJECT_CNC (object); gchar *tmpstr; if (!MGD_CNC_QUOTA (mgd)) return TRUE; /* Bit of hack, but there's no hook to store object's size */ if (!MGD_DBOBJECT_METADATA (object)) return TRUE; guint32 size = MGD_DBOBJECT_METADATA (object)->priv->size; if(midgard_quota_size_is_reached(object, size)){ MIDGARD_ERRNO_SET(mgd, MGD_ERR_QUOTA); return FALSE; } /* Update type's records */ query = g_string_new("UPDATE quota "); g_string_append_printf(query, "SET type_records=type_records+1" " WHERE typename='%s' ", G_OBJECT_TYPE_NAME(object)); tmpstr = g_string_free(query, FALSE); midgard_core_query_execute(MGD_OBJECT_CNC (object), tmpstr, TRUE); g_free(tmpstr); return TRUE; } void midgard_quota_remove(MidgardObject *object, guint size){ g_assert(object != NULL); MidgardConnection *mgd = MGD_OBJECT_CNC (object); if (!MGD_CNC_QUOTA (mgd) || !MGD_DBOBJECT_HAS_METADATA (object)) return; GString *query; gchar *tmpstr; const gchar *typename = G_OBJECT_TYPE_NAME(object); /* Update type's records */ query = g_string_new("UPDATE quota "); g_string_append_printf(query, "SET type_records=type_records-1" " WHERE typename='%s' AND type_records>0", typename); tmpstr = g_string_free(query, FALSE); midgard_core_query_execute(MGD_OBJECT_CNC (object), tmpstr, TRUE); g_free(tmpstr); query = g_string_new("UPDATE quota "); g_string_append_printf(query, "SET type_size=type_size-%d " "WHERE typename='%s' AND type_size>0", size, typename); tmpstr = g_string_free(query, FALSE); midgard_core_query_execute(MGD_OBJECT_CNC (object), tmpstr, TRUE); g_free(tmpstr); } midgard2-core-10.05.7.1/src/midgard.c0000664000175000017500000001464511772046240013744 00000000000000/* $Id$ * * Copyright (C) 2007, 2009 Piotr Pokora * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Library General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Library General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this library; see the file COPYING. If not, write to * the Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307, USA. */ #include "config.h" #ifndef G_LOG_DOMAIN #undef G_LOG_DOMAIN #define G_LOG_DOMAIN "midgard-core" #endif #include "midgard_object.h" #include "midgard_user.h" #include "midgard_blob.h" #include "midgard_collector.h" #include "midgard_view.h" #include "midgard_timestamp.h" #include "midgard_metadata.h" #include "midgard_workspace.h" #include "midgard_repligard.h" #include "midgard_base_abstract.h" #include "midgard_base_interface.h" #include "midgard_base_mixin.h" #include "midgard_query_executor.h" #include "midgard_query_select.h" #include #include const char * midgard_version() { return MIDGARD_LIB_VERSION; } /* A helper funtion which is registered as string to float * convertion one. GGtype system doesn't support such conversion, * and what is more, such convesrion must be done using plain C locale * for SQL safety. */ static void __transform_string_to_float (const GValue *src_val, GValue *dest_val) { g_assert (src_val != NULL); g_assert (dest_val != NULL); g_assert (G_VALUE_HOLDS_FLOAT (dest_val)); gchar *lstring = setlocale (LC_NUMERIC, "0"); setlocale (LC_NUMERIC, "C"); const gchar *string_float = g_value_get_string (src_val); if (!string_float) { g_value_set_float (dest_val, 0.00); } else { g_value_set_float (dest_val, atof (string_float)); } setlocale (LC_ALL, lstring); return; } /* A helper function whch transforms string to boolean */ static void __transform_string_to_boolean (const GValue *src_val, GValue *dest_val) { g_assert (src_val != NULL); g_assert (dest_val != NULL); g_assert (G_VALUE_HOLDS_BOOLEAN (dest_val)); const gchar *_str = g_value_get_string (src_val); if (!_str || (_str && *_str == '\0')) { g_value_set_boolean (dest_val, FALSE); return; } /* Stringified boolean */ if (g_str_equal (_str, "TRUE")) { g_value_set_boolean (dest_val, TRUE); return; } if (g_str_equal (_str, "true")) { g_value_set_boolean (dest_val, TRUE); return; } if (g_str_equal (_str, "FALSE")) { g_value_set_boolean (dest_val, FALSE); return; } if (g_str_equal (_str, "false")) { g_value_set_boolean (dest_val, FALSE); return; } gint i = atoi (_str); if (i > 0) g_value_set_boolean (dest_val, TRUE); else g_value_set_boolean (dest_val, FALSE); return; } void midgard_init() { GType type; /* g_type_init_with_debug_flags(G_TYPE_DEBUG_OBJECTS | G_TYPE_DEBUG_NONE); */ gda_init (); type = MIDGARD_TYPE_BLOB; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_USER; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_CONNECTION; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_CONFIG; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_COLLECTOR; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_QUERY_BUILDER; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_DBOBJECT; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_OBJECT; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_VIEW; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_METADATA; g_assert (type != 0); g_type_class_ref (type); /* Initialize MidgardMetadataClass */ MidgardMetadata *m = g_object_new (MIDGARD_TYPE_METADATA, NULL); g_object_unref (m); type = MIDGARD_TYPE_WORKSPACE; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_WORKSPACE_STORAGE; g_assert (type != 0); type = MIDGARD_TYPE_REPLIGARD; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_BASE_ABSTRACT; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_QUERY_EXECUTOR; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_QUERY_SELECT; g_assert (type != 0); g_type_class_ref (type); type = MIDGARD_TYPE_BASE_INTERFACE; g_assert (type != 0); type = MIDGARD_TYPE_BASE_MIXIN; g_assert (type != 0); /* Register transform function explicitly, we need own routine */ g_value_register_transform_func (G_TYPE_STRING, G_TYPE_FLOAT, __transform_string_to_float); g_value_register_transform_func (G_TYPE_STRING, G_TYPE_BOOLEAN, __transform_string_to_boolean); } void midgard_close(void) { GObjectClass *klass; klass = g_type_class_peek (MIDGARD_TYPE_BLOB); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_USER); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_CONNECTION); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_CONFIG); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_COLLECTOR); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_QUERY_BUILDER); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_DBOBJECT); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_OBJECT); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_VIEW); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_METADATA); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_WORKSPACE); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_REPLIGARD); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_BASE_ABSTRACT); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_QUERY_EXECUTOR); if (klass) g_type_class_unref (klass); klass = g_type_class_peek (MIDGARD_TYPE_QUERY_SELECT); if (klass) g_type_class_unref (klass); } midgard2-core-10.05.7.1/src/midgard_md5.h0000664000175000017500000000260011772046240014502 00000000000000#ifndef _md5_h #define _md5_h /* MD5.H - header file for MD5C.C */ /* Copyright (C) 1991-2, RSA Data Security, Inc. Created 1991. All rights reserved. License to copy and use this software is granted provided that it is identified as the "RSA Data Security, Inc. MD5 Message-Digest Algorithm" in all material mentioning or referencing this software or this function. License is also granted to make and use derivative works provided that such works are identified as "derived from the RSA Data Security, Inc. MD5 Message-Digest Algorithm" in all material mentioning or referencing the derived work. RSA Data Security, Inc. makes no representations concerning either the merchantability of this software or the suitability of this software for any particular purpose. It is provided "as is" without express or implied warranty of any kind. These notices must be retained in any copies of any part of this documentation and/or software. */ /* MD5 context. */ typedef struct { unsigned int state[4]; /* state (ABCD) */ unsigned int count[2]; /* number of bits, modulo 2^64 (lsb first) */ unsigned char buffer[64]; /* input buffer */ } MIDGARD_MD5_CTX; void MIDGARD_MD5_Init (MIDGARD_MD5_CTX *); void MIDGARD_MD5_Update (MIDGARD_MD5_CTX *, const unsigned char *, unsigned int); void MIDGARD_MD5_Final (unsigned char[16], MIDGARD_MD5_CTX *); #endif midgard2-core-10.05.7.1/src/query_constraint.c0000664000175000017500000003401411772046240015736 00000000000000/* * Copyright (C) 2005 Jukka Zitting * Copyright (C) 2007 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "query_constraint.h" #include "midgard_object.h" #include "midgard_core_query_builder.h" #include "midgard_core_object.h" #include "midgard_core_object_class.h" #include "midgard_core_query.h" #include static void add_sql(MidgardCoreQueryConstraint *constraint, GString *sql) { g_assert(constraint); g_assert(sql); g_string_append(sql, "1=1"); } G_DEFINE_TYPE(MidgardCoreQueryConstraint, midgard_core_query_constraint, G_TYPE_OBJECT) void midgard_core_query_constraint_add_sql( MidgardCoreQueryConstraint *constraint, GString *sql) { g_assert(constraint); g_assert(sql); MIDGARD_CORE_QUERY_CONSTRAINT_GET_CLASS(constraint)->add_sql(constraint, sql); } static const char *valid_operator[] = { "=", ">", "<", "<>", "<=", ">=", "LIKE", "NOT LIKE", "IN", "NOT IN", "INTREE", NULL }; gboolean midgard_core_query_constraint_add_operator(MidgardCoreQueryConstraint *constraint, const gchar *op) { if(!midgard_core_query_constraint_operator_is_valid(op)) return FALSE; constraint->priv->condition_operator = g_strdup(op); return TRUE; } gboolean midgard_core_query_constraint_operator_is_valid(const gchar *op) { guint i; for (i = 0; valid_operator[i] != NULL; i++) { if (g_str_equal(op, valid_operator[i])) return TRUE; } if (valid_operator[i] == NULL) { /* FIXME, emmit signal here */ g_warning("Invalid comparison operator %s", op); return FALSE; } return TRUE; } gboolean midgard_core_query_constraint_add_value( MidgardCoreQueryConstraint *constraint, const GValue *value) { g_assert(constraint != NULL); g_assert(value != NULL); if(constraint->priv->klass == NULL) { g_warning("Can not add value. Constraint initialized for NULL class"); return FALSE; } if(constraint->priv->propname == NULL) { g_warning("Can not add value. Constraint initialized for NULL property"); return FALSE; } if(constraint->priv->value != NULL) { g_warning("Can not add value. Value already associated with constraint"); return FALSE; } GValue *target = NULL; const gchar *strv = NULL; /* Check if value has correct type, so we can do anything with it */ switch(G_VALUE_TYPE(value)) { case G_TYPE_STRING: strv = g_value_get_string(value); gchar *utf8_string; gboolean is_utf8 = TRUE; if(strv != NULL) is_utf8 = g_utf8_validate(strv, -1, NULL); if(!is_utf8) { utf8_string = g_locale_to_utf8(strv, -1, NULL, NULL, NULL); if(utf8_string == NULL) { g_warning("UTF-8 converion failed"); return FALSE; } target = g_new0(GValue, 1); g_value_init(target, G_TYPE_STRING); g_value_set_string(target, utf8_string); constraint->priv->value = target; g_free(utf8_string); return TRUE; } break; case G_TYPE_INT: case G_TYPE_UINT: case G_TYPE_FLOAT: case G_TYPE_BOOLEAN: /* do nothing, it's ok */ break; case G_TYPE_BOXED: if (G_VALUE_TYPE(value) == MGD_TYPE_TIMESTAMP) { target = g_new0(GValue, 1); g_value_init(target, G_TYPE_STRING); g_value_transform(value, target); constraint->priv->value = target; return TRUE; } break; default: if (G_VALUE_TYPE(value) == MGD_TYPE_TIMESTAMP) { target = g_new0(GValue, 1); g_value_init(target, G_TYPE_STRING); g_value_transform(value, target); constraint->priv->value = target; return TRUE; } if(G_VALUE_TYPE(value) != G_TYPE_VALUE_ARRAY) { g_warning("Can not add value. Unexpected constraint value type %s", G_VALUE_TYPE_NAME(value)); return FALSE; } } target = g_new0(GValue, 1); g_value_init(target, G_VALUE_TYPE(value)); g_value_copy(value, target); constraint->priv->value = target; return TRUE; } static void __condition_append_value(GString *str, MidgardCoreQueryConstraint *constraint, GValue *value) { gchar *escaped; if(value == NULL) value = constraint->priv->value; GdaConnection *cnc = NULL; MidgardQueryBuilder *builder = constraint->priv->builder; if (builder) cnc = builder->priv->mgd->priv->connection; switch(G_VALUE_TYPE(value)) { case G_TYPE_STRING: if (cnc) { escaped = gda_connection_value_to_sql_string( constraint->priv->builder->priv->mgd->priv->connection, value); g_string_append_printf(str, "%s", escaped); g_free(escaped); } else { g_string_append_printf (str, "'%s'", g_value_get_string (value)); } break; case G_TYPE_UINT: g_string_append_printf(str, "%u", g_value_get_uint(value)); break; case G_TYPE_INT: g_string_append_printf(str, "%d", g_value_get_int(value)); break; case G_TYPE_FLOAT: g_string_append_printf(str, "%g", g_value_get_float(value)); break; case G_TYPE_BOOLEAN: if (g_value_get_boolean(value)) { g_string_append_c(str, '1'); } else { g_string_append_c(str, '0'); } break; default: if (G_VALUE_TYPE(value) == MGD_TYPE_TIMESTAMP) { MidgardTimestamp *mt = (MidgardTimestamp *)g_value_get_boxed (value); g_string_append_printf( str, "'%04ld-%02d-%02d %02d:%02d:%02d'", mt->year, mt->month, mt->day, mt->hour, mt->minute, mt->second); } else { g_warning("Impossible happened. Unsupported value type. foxtrot uniform charlie kilo"); /* should not happen */ } break; } } static void __transform_value(MidgardCoreQueryConstraint *self) { GValue *value = self->priv->value; GValue *target = g_new0(GValue, 1); g_value_init(target, G_PARAM_SPEC_VALUE_TYPE(self->priv->pspec)); gboolean value_unset = TRUE; /* Convert the value to the correct type. */ if (!g_param_value_convert((GParamSpec *)self->priv->pspec, value, target, FALSE)) { value_unset = FALSE; /* The default conversions failed, try custom conversions */ if (G_VALUE_HOLDS_STRING(value) && G_VALUE_HOLDS_UINT(target)) { guint uvalue = strtoul(g_value_get_string(value), NULL, 0); g_value_set_uint(target, uvalue); value_unset = TRUE; } else if (G_VALUE_HOLDS_STRING(value) && G_VALUE_HOLDS_INT(target)) { gint ivalue = strtoul(g_value_get_string(value), NULL, 0); g_value_set_int(target, ivalue); value_unset = TRUE; } else { if (value && target) { g_warning("Invalid value conversion from %s to %s", G_VALUE_TYPE_NAME(value), G_VALUE_TYPE_NAME(target)); } } } if(value_unset) { g_value_unset(value); g_free(value); self->priv->value = target; return; } g_value_unset(target); g_free(target); return; } gboolean midgard_core_query_constraint_build_condition (MidgardConnection *mgd_cnc, MidgardCoreQueryConstraint *constraint) { g_assert(constraint != NULL); MidgardQueryBuilder *builder = constraint->priv->builder; MidgardConnection *mgd = mgd_cnc; if (mgd == NULL) mgd = builder->priv->mgd; g_return_val_if_fail (mgd != NULL, FALSE); GdaConnection *cnc = mgd->priv->connection; gchar *q_table = NULL; gchar *q_field = NULL; guint i; GString *cond = g_string_new(""); q_table = gda_connection_quote_sql_identifier (cnc, constraint->priv->prop_left->table); q_field = gda_connection_quote_sql_identifier (cnc, constraint->priv->prop_left->field); g_string_append_printf(cond, "%s.%s ", q_table, q_field); g_free (q_table); g_free (q_field); /* No value, just use left and right conditions */ if(constraint->priv->value == NULL) { q_table = gda_connection_quote_sql_identifier (cnc, constraint->priv->prop_right->table); q_field = gda_connection_quote_sql_identifier (cnc, constraint->priv->prop_right->field); g_string_append_printf(cond, "%s %s.%s", constraint->priv->condition_operator, q_table, q_field); g_free (q_table); g_free (q_field); constraint->priv->condition = g_string_free(cond, FALSE); return TRUE; /* Handle the case when IN or NOT IN operator is used */ } else if(g_str_equal("IN", constraint->priv->condition_operator) || g_str_equal("NOT IN", constraint->priv->condition_operator)) { if (!G_VALUE_HOLDS(constraint->priv->value, G_TYPE_VALUE_ARRAY)) { g_warning("'IN' and 'NOT IN' operators expects array as value"); g_string_free(cond, TRUE); return FALSE; } g_string_append(cond, constraint->priv->condition_operator); g_string_append_c(cond, ' '); GValueArray *array = (GValueArray *) g_value_get_boxed(constraint->priv->value); if (array->n_values == 0) { g_warning("Invalid empty array value"); g_string_free(cond, TRUE); return FALSE; } g_string_append(cond, "( "); for (i = 0; i < array->n_values; i++) { if (i > 0) { g_string_append_c(cond, ','); } __condition_append_value(cond, constraint, g_value_array_get_nth(array, i)); } g_string_append(cond, " )"); constraint->priv->condition = g_string_free(cond, FALSE); return TRUE; /* INTREE */ } else if(g_str_equal("INTREE", constraint->priv->condition_operator)) { GValue *value = constraint->priv->value; gint is_integer = 2; if(!G_VALUE_HOLDS(value, G_TYPE_UINT)) { is_integer--; } if(!G_VALUE_HOLDS(value, G_TYPE_INT)){ is_integer--; } if(is_integer == 0){ g_warning(" Only integers values supported by INTREE operator"); return FALSE; } g_string_append(cond, "IN "); guint tid = 0; if(G_VALUE_HOLDS(value, G_TYPE_UINT)) tid = g_value_get_uint(value); if(G_VALUE_HOLDS(value, G_TYPE_INT)) tid = (guint)g_value_get_int(value); guint *prnts = midgard_core_query_get_tree_ids(mgd, MIDGARD_OBJECT_CLASS (constraint->priv->klass), tid); g_string_append_c(cond, '('); if(prnts) { i = 0; do { if(i > 0) g_string_append(cond,","); g_string_append_printf(cond, "%d", prnts[i]); i++; } while (prnts[i] != -1); g_free(prnts); } else { g_string_append_printf(cond, "%d", tid); } g_string_append_c(cond, ')'); constraint->priv->condition = g_string_free(cond, FALSE); return TRUE; /* Any other case when value is associated with constraint */ } else if(constraint->priv->value != NULL) { g_string_append(cond, constraint->priv->condition_operator); g_string_append_c(cond, ' '); __transform_value(constraint); __condition_append_value(cond, constraint, NULL); constraint->priv->condition = g_string_free(cond, FALSE); return TRUE; /* This seems to be impossible with current implementation */ } else { g_string_free(cond, TRUE); g_warning("No to mają awarie prądu..."); return FALSE; } return FALSE; } void midgard_core_query_constraint_set_builder (MidgardCoreQueryConstraint *self, MidgardQueryBuilder *builder) { g_assert(self != NULL); g_assert(builder != NULL); self->priv->builder = builder; } void midgard_core_query_constraint_set_class (MidgardCoreQueryConstraint *self, MidgardDBObjectClass *klass) { g_assert(self != NULL); g_assert(klass != NULL); self->priv->klass = G_OBJECT_CLASS(klass); } /* GOBJECT ROUTINES */ MidgardCoreQueryConstraintPrivate * midgard_core_query_constraint_private_new (void) { MidgardCoreQueryConstraintPrivate *priv = g_new (MidgardCoreQueryConstraintPrivate, 1); /* We need empty structures. We will reuse available pointers */ priv->prop_left = midgard_core_schema_type_property_attr_new_empty(); priv->prop_right = midgard_core_schema_type_property_attr_new_empty(); priv->condition_operator = NULL; priv->joins = NULL; priv->condition = NULL; priv->value = NULL; priv->order_dir = NULL; /* constants, do not free */ priv->klass = NULL; priv->propname = NULL; priv->pspec = NULL; priv->builder = NULL; /* set current pointer to "the left condition" */ priv->current = priv->prop_left; return priv; } void midgard_core_query_constraint_private_free(MidgardCoreQueryConstraintPrivate *mqcp) { g_assert(mqcp != NULL); /* Just free, they were initialized empty */ g_free (mqcp->prop_left); g_free (mqcp->prop_right); if(mqcp->condition_operator != NULL) g_free(mqcp->condition_operator); if(mqcp->condition != NULL) g_free(mqcp->condition); if(mqcp->value) { g_value_unset(mqcp->value); g_free(mqcp->value); } if(mqcp->order_dir) g_free(mqcp->order_dir); GSList *list; for(list = mqcp->joins; list != NULL; list = list->next) { midgard_core_query_constraint_private_free( (MidgardCoreQueryConstraintPrivate*)list->data); } if (mqcp->joins) { g_slist_free(mqcp->joins); mqcp->joins = NULL; } g_free(mqcp); } static void midgard_core_query_constraint_init(MidgardCoreQueryConstraint *self) { g_assert(self != NULL); self->priv = midgard_core_query_constraint_private_new(); } static GObjectClass *__parent_class = NULL; static void midgard_core_query_constraint_finalize(GObject *object) { g_assert(object != NULL); MidgardCoreQueryConstraint *self = MIDGARD_CORE_QUERY_CONSTRAINT(object); midgard_core_query_constraint_private_free(self->priv); __parent_class->finalize(object); } static void midgard_core_query_constraint_class_init( MidgardCoreQueryConstraintClass *klass) { g_assert(klass != NULL); __parent_class = g_type_class_peek_parent(klass); G_OBJECT_CLASS(klass)->finalize = midgard_core_query_constraint_finalize; klass->add_sql = add_sql; } MidgardCoreQueryConstraint *midgard_core_query_constraint_new(void) { MidgardCoreQueryConstraint *self = g_object_new(MIDGARD_CORE_TYPE_QUERY_CONSTRAINT, NULL); return self; } midgard2-core-10.05.7.1/src/midgard_config_auto.h0000664000175000017500000000101711772046312016313 00000000000000 #define MIDGARD_LIB_PREFIX "/usr/local" #define MIDGARD_GLOBAL_SCHEMA "/usr/local/share/midgard2/MidgardObjects.xml" /* Define directory path where all 'local' schemas are stored. * Global schema is basic midgard schema , while local ones are defined * per virtual host or per application. */ #define MIDGARD_LSCHEMA_DIR "/usr/local/share/midgard2/schema" #define MIDGARD_SHARE_DIR "/usr/local/share/midgard2" #define MIDGARD_LIB_VERSION "10.05.7.1" #define MIDGARD_LIB_VERSION_STRING "" #define MIDGARD_DBUS_SUPPORT 1 midgard2-core-10.05.7.1/src/query_constraint.h0000664000175000017500000000735611772046240015754 00000000000000/* * Copyright (C) 2005 Jukka Zitting * Copyright (C) 2007 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef CORE_QUERY_CONSTRAINT_H #define CORE_QUERY_CONSTRAINT_H #include "midgard_object.h" #include "schema.h" #define MIDGARD_CORE_TYPE_QUERY_CONSTRAINT (midgard_core_query_constraint_get_type()) #define MIDGARD_CORE_QUERY_CONSTRAINT(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), MIDGARD_CORE_TYPE_QUERY_CONSTRAINT, MidgardCoreQueryConstraint)) #define MIDGARD_CORE_QUERY_CONSTRAINT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((klass), MIDGARD_CORE_TYPE_QUERY_CONSTRAINT, MidgardCoreQueryConstraintClass)) #define MIDGARD_IS_QUERY_CONSTRAINT(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), MIDGARD_CORE_TYPE_QUERY_CONSTRAINT)) #define MIDGARD_IS_QUERY_CONSTRAINT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), MIDGARD_CORE_TYPE_QUERY_CONSTRAINT)) #define MIDGARD_CORE_QUERY_CONSTRAINT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), MIDGARD_CORE_TYPE_QUERY_CONSTRAINT, MidgardCoreQueryConstraintClass)) typedef struct _MidgardCoreQueryConstraint MidgardCoreQueryConstraint; typedef struct _MidgardCoreQueryConstraintPrivate MidgardCoreQueryConstraintPrivate; struct _MidgardCoreQueryConstraintPrivate{ GSList *joins; /* list of MidgardCoreQueryConstraintPrivate */ gchar *condition_operator; MgdSchemaPropertyAttr *prop_left; MgdSchemaPropertyAttr *prop_right; MgdSchemaPropertyAttr *current; GValue *value; gchar *condition; gchar *order_dir; GObjectClass *klass; GParamSpec *pspec; MidgardQueryBuilder *builder; const gchar *propname; }; struct _MidgardCoreQueryConstraint{ GObject parent; MidgardCoreQueryConstraintPrivate *priv; }; typedef struct { GObjectClass parent; void (*add_sql)(MidgardCoreQueryConstraint *constraint, GString *sql); } MidgardCoreQueryConstraintClass; GType midgard_core_query_constraint_get_type(void); MidgardCoreQueryConstraint *midgard_core_query_constraint_new(void); gboolean midgard_core_query_constraint_add_operator (MidgardCoreQueryConstraint *self, const gchar *op); void midgard_core_query_constraint_add_sql (MidgardCoreQueryConstraint *self, GString *sql); gboolean midgard_core_query_constraint_operator_is_valid (const gchar *op); gboolean midgard_core_query_constraint_add_value (MidgardCoreQueryConstraint *self, const GValue *value); gboolean midgard_core_query_constraint_build_condition (MidgardConnection *mgd, MidgardCoreQueryConstraint *self); gboolean midgard_core_query_constraint_parse_property (MidgardCoreQueryConstraint **self, MidgardDBObjectClass *klass, const gchar *name); void midgard_core_query_constraint_set_builder (MidgardCoreQueryConstraint *self, MidgardQueryBuilder *builder); void midgard_core_query_constraint_set_class (MidgardCoreQueryConstraint *self, MidgardDBObjectClass *klass); /* PRIVATE */ MidgardCoreQueryConstraintPrivate *midgard_core_query_constraint_private_new(void); void midgard_core_query_constraint_private_free(MidgardCoreQueryConstraintPrivate *mqcp); #endif /* CORE_QUERY_CONSTRAINT_H */ midgard2-core-10.05.7.1/src/midgard_reflector_object.h0000664000175000017500000000576511772046240017347 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_REFLECTOR_OBJECT_H #define MIDGARD_REFLECTOR_OBJECT_H #include "midgard_type.h" #include "midgard_connection.h" /* convention macros */ #define MIDGARD_TYPE_REFLECTOR_OBJECT (midgard_reflector_object_get_type()) #define MIDGARD_REFLECTOR_OBJECT(object) (G_TYPE_CHECK_INSTANCE_CAST ((object), MIDGARD_TYPE_REFLECTOR_OBJECT, MidgardReflectorObject)) #define MIDGARD_REFLECTOR_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_REFLECTOR_OBJECT, MidgardReflectorObjectClass)) #define MIDGARD_IS_REFLECTOR_OBJECT(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_REFLECTOR_OBJECT)) #define MIDGARD_IS_REFLECTOR_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_REFLECTOR_OBJECT_PROPERTY)) #define MIDGARD_REFLECTOR_OBJECT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_REFLECTOR_OBJECT, MidgardReflectorObjectClass)) typedef struct _MidgardReflectorObject MidgardReflectorObject; typedef struct _MidgardReflectorObjectClass MidgardReflectorObjectClass; struct _MidgardReflectorObject { GObject parent; }; struct _MidgardReflectorObjectClass{ GObjectClass parent; }; GType midgard_reflector_object_get_type(void); const gchar *midgard_reflector_object_get_property_primary (const gchar *classname); const gchar *midgard_reflector_object_get_property_up (const gchar *classname); const gchar *midgard_reflector_object_get_property_parent (const gchar *classname); const gchar *midgard_reflector_object_get_property_unique (const gchar *classname); gchar **midgard_reflector_object_list_children (const gchar *classname, guint *n_children); gboolean midgard_reflector_object_has_metadata_class (const gchar *classname); const gchar *midgard_reflector_object_get_metadata_class (const gchar *classname); const gchar *midgard_reflector_object_get_schema_value (const gchar *classname, const gchar *name); gboolean midgard_reflector_object_is_mixin (const gchar *classname); gboolean midgard_reflector_object_is_interface (const gchar *classname); gboolean midgard_reflector_object_is_abstract (const gchar *classname); gchar **midgard_reflector_object_list_defined_properties (const gchar *classname, guint *n_prop); #endif /* MIDGARD_REFLECTOR_OBJECT_H */ midgard2-core-10.05.7.1/src/midgard_dbus_interface.h0000664000175000017500000001251211772046240016775 00000000000000/* Generated by dbus-binding-tool; do not edit! */ #ifndef __dbus_glib_marshal_midgard_dbus_MARSHAL_H__ #define __dbus_glib_marshal_midgard_dbus_MARSHAL_H__ #include G_BEGIN_DECLS #ifdef G_ENABLE_DEBUG #define g_marshal_value_peek_boolean(v) g_value_get_boolean (v) #define g_marshal_value_peek_char(v) g_value_get_char (v) #define g_marshal_value_peek_uchar(v) g_value_get_uchar (v) #define g_marshal_value_peek_int(v) g_value_get_int (v) #define g_marshal_value_peek_uint(v) g_value_get_uint (v) #define g_marshal_value_peek_long(v) g_value_get_long (v) #define g_marshal_value_peek_ulong(v) g_value_get_ulong (v) #define g_marshal_value_peek_int64(v) g_value_get_int64 (v) #define g_marshal_value_peek_uint64(v) g_value_get_uint64 (v) #define g_marshal_value_peek_enum(v) g_value_get_enum (v) #define g_marshal_value_peek_flags(v) g_value_get_flags (v) #define g_marshal_value_peek_float(v) g_value_get_float (v) #define g_marshal_value_peek_double(v) g_value_get_double (v) #define g_marshal_value_peek_string(v) (char*) g_value_get_string (v) #define g_marshal_value_peek_param(v) g_value_get_param (v) #define g_marshal_value_peek_boxed(v) g_value_get_boxed (v) #define g_marshal_value_peek_pointer(v) g_value_get_pointer (v) #define g_marshal_value_peek_object(v) g_value_get_object (v) #else /* !G_ENABLE_DEBUG */ /* WARNING: This code accesses GValues directly, which is UNSUPPORTED API. * Do not access GValues directly in your code. Instead, use the * g_value_get_*() functions */ #define g_marshal_value_peek_boolean(v) (v)->data[0].v_int #define g_marshal_value_peek_char(v) (v)->data[0].v_int #define g_marshal_value_peek_uchar(v) (v)->data[0].v_uint #define g_marshal_value_peek_int(v) (v)->data[0].v_int #define g_marshal_value_peek_uint(v) (v)->data[0].v_uint #define g_marshal_value_peek_long(v) (v)->data[0].v_long #define g_marshal_value_peek_ulong(v) (v)->data[0].v_ulong #define g_marshal_value_peek_int64(v) (v)->data[0].v_int64 #define g_marshal_value_peek_uint64(v) (v)->data[0].v_uint64 #define g_marshal_value_peek_enum(v) (v)->data[0].v_long #define g_marshal_value_peek_flags(v) (v)->data[0].v_ulong #define g_marshal_value_peek_float(v) (v)->data[0].v_float #define g_marshal_value_peek_double(v) (v)->data[0].v_double #define g_marshal_value_peek_string(v) (v)->data[0].v_pointer #define g_marshal_value_peek_param(v) (v)->data[0].v_pointer #define g_marshal_value_peek_boxed(v) (v)->data[0].v_pointer #define g_marshal_value_peek_pointer(v) (v)->data[0].v_pointer #define g_marshal_value_peek_object(v) (v)->data[0].v_pointer #endif /* !G_ENABLE_DEBUG */ /* BOOLEAN:STRING,POINTER (/tmp/dbus-binding-tool-c-marshallers.1WU2WU:1) */ extern void dbus_glib_marshal_midgard_dbus_BOOLEAN__STRING_POINTER (GClosure *closure, GValue *return_value, guint n_param_values, const GValue *param_values, gpointer invocation_hint, gpointer marshal_data); void dbus_glib_marshal_midgard_dbus_BOOLEAN__STRING_POINTER (GClosure *closure, GValue *return_value G_GNUC_UNUSED, guint n_param_values, const GValue *param_values, gpointer invocation_hint G_GNUC_UNUSED, gpointer marshal_data) { typedef gboolean (*GMarshalFunc_BOOLEAN__STRING_POINTER) (gpointer data1, gpointer arg_1, gpointer arg_2, gpointer data2); register GMarshalFunc_BOOLEAN__STRING_POINTER callback; register GCClosure *cc = (GCClosure*) closure; register gpointer data1, data2; gboolean v_return; g_return_if_fail (return_value != NULL); g_return_if_fail (n_param_values == 3); if (G_CCLOSURE_SWAP_DATA (closure)) { data1 = closure->data; data2 = g_value_peek_pointer (param_values + 0); } else { data1 = g_value_peek_pointer (param_values + 0); data2 = closure->data; } callback = (GMarshalFunc_BOOLEAN__STRING_POINTER) (marshal_data ? marshal_data : cc->callback); v_return = callback (data1, g_marshal_value_peek_string (param_values + 1), g_marshal_value_peek_pointer (param_values + 2), data2); g_value_set_boolean (return_value, v_return); } G_END_DECLS #endif /* __dbus_glib_marshal_midgard_dbus_MARSHAL_H__ */ #include static const DBusGMethodInfo dbus_glib_midgard_dbus_methods[] = { { (GCallback) midgard_dbus_emit_notified, dbus_glib_marshal_midgard_dbus_BOOLEAN__STRING_POINTER, 0 }, }; const DBusGObjectInfo dbus_glib_midgard_dbus_object_info = { 0, dbus_glib_midgard_dbus_methods, 1, "org.midgardproject.notifier\0emitNotified\0S\0arg0\0I\0s\0\0\0", "org.midgardproject.notifier\0Notified\0\0", "\0" }; midgard2-core-10.05.7.1/src/midgard_query_value.c0000664000175000017500000001155611772046240016363 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_holder.h" #include "midgard_query_value.h" #include "midgard_dbobject.h" struct _MidgardQueryValuePrivate { GObject parent; GValue value; }; /** * midgard_query_value_new: * * Returns: new #MidgardQueryValue or %NULL on failure * Since: 10.05 */ MidgardQueryValue * midgard_query_value_new (void) { MidgardQueryValue *self = g_object_new (MIDGARD_TYPE_QUERY_VALUE, NULL); if (!self) return NULL; return self; } /** * midgard_query_value_create_with_value: * @value: a #GValue to be set * * Static shortcut for midgard_query_value_new() and set_value. * * Returns: (transfer full): new #MidgardQueryValue or %NULL on failure * * Since: 10.05.1 */ MidgardQueryValue * midgard_query_value_create_with_value (const GValue *value) { g_return_val_if_fail (value != NULL, NULL); MidgardQueryValue *self = midgard_query_value_new (); if (!self) return NULL; midgard_query_holder_set_value (MIDGARD_QUERY_HOLDER (self), value); return self; } static void __get_value (MidgardQueryHolder *self, GValue *value) { g_return_if_fail (self != NULL); g_return_if_fail (self != NULL); MidgardQueryValue *mqp = (MidgardQueryValue *) self; g_value_init (value, G_VALUE_TYPE (&mqp->priv->value)); g_value_copy ((const GValue *) &mqp->priv->value, value); return; } static gboolean __set_value (MidgardQueryHolder *self, const GValue *value) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (value != NULL, FALSE); MidgardQueryValue *mqp = (MidgardQueryValue *) self; if (!mqp->priv) return FALSE; if (G_IS_VALUE (&mqp->priv->value)) g_value_unset (&mqp->priv->value); g_value_init (&mqp->priv->value, G_VALUE_TYPE (value)); g_value_copy (value, &mqp->priv->value); return TRUE; } /* GOBJECT ROUTINES */ static void midgard_query_value_init (MidgardQueryHolderIFace *iface) { iface->get_value = __get_value; iface->set_value = __set_value; } static GObjectClass *parent_class= NULL; static void __midgard_query_value_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardQueryValue *self = (MidgardQueryValue *) instance; self->priv = g_new (MidgardQueryValuePrivate, 1); GValue val = {0, }; g_value_init (&val, G_TYPE_UINT); self->priv->value = val; } static GObject * _midgard_query_value_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_query_value_dispose (GObject *object) { parent_class->dispose (object); } static void _midgard_query_value_finalize (GObject *object) { MidgardQueryValue *self = MIDGARD_QUERY_VALUE (object); if (G_IS_VALUE (&self->priv->value)) g_value_unset (&self->priv->value); g_free (self->priv); self->priv = NULL; parent_class->finalize (object); } static void _midgard_query_value_class_init (MidgardQueryValueClass *klass, gpointer class_data) { GObjectClass *object_class = G_OBJECT_CLASS (klass); parent_class = g_type_class_peek_parent (klass); object_class->constructor = _midgard_query_value_constructor; object_class->dispose = _midgard_query_value_dispose; object_class->finalize = _midgard_query_value_finalize; } GType midgard_query_value_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQueryValueClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_query_value_class_init, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardQueryValue), 0, /* n_preallocs */ __midgard_query_value_instance_init /* instance_init */ }; static const GInterfaceInfo value_info = { (GInterfaceInitFunc) midgard_query_value_init, NULL, /* interface_finalize */ NULL /* interface_data */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardQueryValue", &info, 0); g_type_add_interface_static (type, MIDGARD_TYPE_QUERY_HOLDER, &value_info); } return type; } midgard2-core-10.05.7.1/src/midgard_base_mixin.h0000664000175000017500000000312111772046240016132 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef _MIDGARD_BASE_MIXIN_H #define _MIDGARD_BASE_MIXIN_H #include G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_BASE_MIXIN (midgard_base_mixin_get_type()) #define MIDGARD_BASE_MIXIN(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_BASE_MIXIN, MidgardBaseMixin)) #define MIDGARD_IS_BASE_MIXIN(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_BASE_MIXIN)) #define MIDGARD_BASE_MIXIN_GET_INTERFACE(inst) (G_TYPE_INSTANCE_GET_INTERFACE ((inst), MIDGARD_TYPE_BASE_MIXIN, MidgardBaseMixinIFace)) typedef struct _MidgardBaseMixin MidgardBaseMixin; /* dummy */ typedef struct _MidgardBaseMixinIFace MidgardBaseMixinIFace; struct _MidgardBaseMixinIFace { GTypeInterface parent; }; GType midgard_base_mixin_get_type (void); G_END_DECLS #endif /* MIDGARD_BASE_MIXIN_H */ midgard2-core-10.05.7.1/src/midgard_transaction.c0000664000175000017500000002067611772046240016352 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_transaction.h" #include "midgard_core_object.h" #include "midgard_error.h" #include "uuid.h" struct _MidgardTransactionPrivate { MidgardConnection *mgd; const gchar *name; }; #define _ASSERT_T_MGD(_s) { \ g_assert(_s->priv->mgd != NULL); \ g_assert(_s->priv->mgd->priv->connection != NULL); } #define _T_CNC(_s) _s->priv->mgd->priv->connection; /** * midgard_transaction_new: * @mgd:#MidgardConnection instance * * Returns: New #MidgardTransaction instance or NULL on failure * * Since: 9.09 */ MidgardTransaction* midgard_transaction_new (MidgardConnection *mgd) { g_return_val_if_fail(mgd != NULL, NULL); MidgardTransaction *self = g_object_new (MIDGARD_TYPE_TRANSACTION, "connection", mgd, NULL); if (!self) return NULL; return self; } /** * midgard_transaction_begin: * @self: #MidgardTransaction instance * * Begins new, underlying database provider's transaction. * In case of error, #MidgardConnection error is set to MGD_ERR_INTERNAL. * * Returns: %TRUE on success, %FALSE otherwise. * * Since: 9.09 */ gboolean midgard_transaction_begin (MidgardTransaction *self) { _ASSERT_T_MGD(self); gboolean rv = FALSE; GdaConnection *cnc = _T_CNC(self); MidgardConnection *mgd = self->priv->mgd; GError *error = NULL; g_debug("Begin named transaction '%s'", self->priv->name); rv = gda_connection_begin_transaction(cnc, self->priv->name, GDA_TRANSACTION_ISOLATION_UNKNOWN, &error); if (!error && rv) return TRUE; midgard_set_error(mgd, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, error && error->message ? error->message : " Unknown error."); if (error) g_error_free(error); return FALSE; } /** * midgard_transaction_commit: * @self: #MidgardTransaction instance * * In case of error, #MidgardConnection error is set to MGD_ERR_INTERNAL. * * Returns: %TRUE on success, %FALSE otherwise * * Since: 9.09 */ gboolean midgard_transaction_commit (MidgardTransaction *self) { _ASSERT_T_MGD(self); gboolean rv = FALSE; GdaConnection *cnc = _T_CNC(self); MidgardConnection *mgd = self->priv->mgd; GError *error = NULL; g_debug("Commit named transaction '%s'", self->priv->name); rv = gda_connection_commit_transaction(cnc, self->priv->name, &error); if (!error && rv) return TRUE; midgard_set_error(mgd, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, error && error->message ? error->message : " Unknown error."); if (error) g_error_free(error); return FALSE; } /** * midgard_transaction_rollback: * @self: #MidgardTransaction instance * * In case of error, #MidgardConnection error is set to MGD_ERR_INTERNAL * * Returns: %TRUE on success, %FALSE otherwise. * * Since: 9.09 */ gboolean midgard_transaction_rollback (MidgardTransaction *self) { _ASSERT_T_MGD(self); gboolean rv = FALSE; GdaConnection *cnc = _T_CNC(self); MidgardConnection *mgd = self->priv->mgd; GError *error = NULL; g_debug("Rollback named transaction '%s'", self->priv->name); rv = gda_connection_rollback_transaction(cnc, self->priv->name, &error); if (!error && rv) return TRUE; midgard_set_error(mgd, MGD_GENERIC_ERROR, MGD_ERR_INTERNAL, error && error->message ? error->message : " Unknown error."); if (error) g_error_free(error); return FALSE; } /** * midgard_transaction_get_status: * @self: #MidgardTransaction instance * * Returns transaction status. %FALSE means, any transaction operation failed. * No #MidgardConnection error is set in case of error. * * Returns: %TRUE on success, %FALSE otherwise * * Since: 9.09 */ gboolean midgard_transaction_get_status (MidgardTransaction *self) { _ASSERT_T_MGD(self); GdaConnection *cnc = _T_CNC(self); if (!cnc) return FALSE; GdaTransactionStatus *status = gda_connection_get_transaction_status(cnc); if (status->state == 0) return TRUE; return FALSE; } /** * midgard_transaction_get_name: * @self: #MidgardTransaction instance * * Returns: unique name which identifies given transaction. * * Since: 9.09 */ const gchar* midgard_transaction_get_name (MidgardTransaction *self) { g_assert(self != NULL); return self->priv->name; } /* GOBJECT ROUTINES */ static GObjectClass *__parent_class= NULL; enum { PROPERTY_CONNECTION = 1 }; static void __midgard_transaction_instance_init( GTypeInstance *instance, gpointer g_class) { MidgardTransaction *self = (MidgardTransaction *) instance; /* Point is to have unique name per transaction: 1. We do not use guid as MidgardConnection pointer is required for this. 2. SQLite has parser issues when transaction name begins with numeric value. 3. SQlite has parser issues when transaction name has dashes '-'. That's why we create new 'mgd' prefixed uuid like string. */ gchar *uuid = midgard_uuid_new(); uuid = g_strdelimit(uuid, "-", '_'); self->priv = g_new (MidgardTransactionPrivate, 1); self->priv->name = (const gchar *)g_strconcat("mgd", uuid, NULL); g_free(uuid); self->priv->mgd = NULL; } static void __midgard_transaction_dispose (GObject *object) { MidgardTransaction *self = MIDGARD_TRANSACTION (object); if (self->priv->mgd != NULL) { g_object_unref (self->priv->mgd); self->priv->mgd = NULL; } __parent_class->dispose (object); } static void __midgard_transaction_finalize(GObject *object) { g_assert(object != NULL); MidgardTransaction *self = (MidgardTransaction *)object; g_free((gchar *)self->priv->name); self->priv->name = NULL; g_free (self->priv); self->priv = NULL; } static void __midgard_transaction_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { switch (property_id) { case PROPERTY_CONNECTION: /* write and construct only */ break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec); break; } } static void __midgard_transaction_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { GObject *mgd; switch (property_id) { case PROPERTY_CONNECTION: /* Add new reference to MidgardConnection object */ if (!G_VALUE_HOLDS_OBJECT (value)) return; MIDGARD_TRANSACTION (object)->priv->mgd = g_value_dup_object (value); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec); break; } } static void __midgard_transaction_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); gobject_class->finalize = __midgard_transaction_finalize; gobject_class->dispose = __midgard_transaction_dispose; gobject_class->set_property = __midgard_transaction_set_property; gobject_class->get_property = __midgard_transaction_get_property; __parent_class = g_type_class_peek_parent (gobject_class); /* Properties */ GParamSpec *pspec = g_param_spec_object ("connection", "", "", MIDGARD_TYPE_CONNECTION, G_PARAM_WRITABLE | G_PARAM_CONSTRUCT_ONLY); /** * MidgardTransaction:connection: * * Pointer to #MidgardConnection, given object has been initialized for */ g_object_class_install_property (gobject_class, PROPERTY_CONNECTION, pspec); } GType midgard_transaction_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardTransactionClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) __midgard_transaction_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardTransaction), 0, /* n_preallocs */ (GInstanceInitFunc) __midgard_transaction_instance_init/* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardTransaction", &info, 0); } return type; } midgard2-core-10.05.7.1/src/midgard_view.c0000664000175000017500000003764311772046240015001 00000000000000/* * Copyright (C) 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_view.h" #include "midgard_core_views.h" #include "midgard_core_object_class.h" #include "midgard_core_query.h" #include "schema.h" #include "midgard_dbobject.h" #include "midgard_core_object.h" #include "midgard_connection.h" #include "midgard_core_config.h" #include "midgard_error.h" #include "query_constraint.h" static GObjectClass *__view_parent_class= NULL; static gboolean _midgard_view_derived_storage_exists (MidgardConnection *mgd, MidgardDBObjectClass *klass); static GSList* __midgard_view_derived_object_set_from_sql(MidgardConnection *mgd, GType type, const gchar *sql) { g_return_val_if_fail(mgd != NULL, NULL); g_return_val_if_fail(sql != NULL, NULL); GSList *olist = NULL; GdaDataModel *model = midgard_core_query_get_model(mgd, sql); if (!model) return olist; guint ret_rows = gda_data_model_get_n_rows(model); if (ret_rows == 0) { g_object_unref(model); return olist; } guint rows; for (rows = 0; rows < ret_rows; rows++) { MidgardView *view = g_object_new(type, "connection", mgd, NULL); /* Every view object holds reference to the same model. * And has different row which is used to determine its property location */ MIDGARD_DBOBJECT(view)->dbpriv->datamodel = model; MIDGARD_DBOBJECT(view)->dbpriv->row = rows; /* Increase datamodel reference count. * It will be freed with the last object returned by the model */ if (rows > 0) g_object_ref(model); olist = g_slist_append(olist, (gpointer)view); } return olist; } /* Create GdaSqlSelectField for every property registered for the class. */ static void __midgard_view_derived_add_fields_to_select_statement (MidgardDBObjectClass *klass, MidgardConnection *mgd, GdaSqlStatementSelect *select, const gchar *table_name) { guint n_prop; guint i; GdaSqlSelectField *select_field; GdaSqlExpr *expr; GValue *val; gchar *table_field; GdaConnection *cnc = mgd->priv->connection; GParamSpec **pspecs = g_object_class_list_properties (G_OBJECT_CLASS (klass), &n_prop); if (!pspecs) return; const gchar *property_table = NULL; for (i = 0; i < n_prop; i++) { MgdSchemaPropertyAttr *prop_attr = midgard_core_class_get_property_attr (klass, pspecs[i]->name); if (!prop_attr) continue; const gchar *property = pspecs[i]->name; const gchar *property_field = prop_attr->name; property_table = midgard_core_class_get_property_table (klass, property); if (property_table && table_name) property_table = table_name; /* FIXME, ugly workaround to keep prop_attr->field with proper value */ g_free ((gchar *)prop_attr->field); prop_attr->field = g_strdup (property); /* Ignore properties with NULL storage and those of object type */ if (!property_table || pspecs[i]->value_type == G_TYPE_OBJECT) continue; select_field = gda_sql_select_field_new (GDA_SQL_ANY_PART (select)); /*select_field->field_name = g_strdup (property_field); select_field->table_name = g_strdup (property_table);*/ select_field->as = gda_connection_quote_sql_identifier (cnc, property); select->expr_list = g_slist_append (select->expr_list, select_field); expr = gda_sql_expr_new (GDA_SQL_ANY_PART (select_field)); val = g_new0 (GValue, 1); g_value_init (val, G_TYPE_STRING); gchar *q_table = gda_connection_quote_sql_identifier (cnc, property_table); gchar *q_field = gda_connection_quote_sql_identifier (cnc, property_field); table_field = g_strconcat (q_table, ".", q_field, NULL); g_value_set_string (val, table_field); g_free (q_table); g_free (q_field); g_free (table_field); expr->value = val; select_field->expr = expr; } return; } static GObject * __midgard_view_derived_object_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (__view_parent_class)->constructor (type, n_construct_properties, construct_properties); MIDGARD_DBOBJECT(object)->dbpriv->storage_data = MIDGARD_DBOBJECT_GET_CLASS(object)->dbpriv->storage_data; return object; } static void _midgard_view_derived_object_set_property (GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec) { /* Do not set view properties. * We are going to use underlying GDataModel (if assigned). */ return; } static void _midgard_view_derived_object_get_property (GObject *object, guint prop_id, GValue *value, GParamSpec *pspec) { MidgardDBObject *self = MIDGARD_DBOBJECT(object); if (!self->dbpriv->datamodel) return; const GValue *dvalue = midgard_data_model_get_value_at_col_name(self->dbpriv->datamodel, pspec->name, self->dbpriv->row); /* There migh be explicit NULL returned from query in case of used join(s). * Ignore it silently */ if (!G_IS_VALUE (dvalue)) return; // Hack to workaround bug in gda-sqlite (returns INVALID for empty strings) if (G_VALUE_HOLDS (dvalue, G_TYPE_INVALID) && G_VALUE_HOLDS_STRING (value)) { g_value_set_string (value, ""); return; } /* We can have integer value for registered boolean type. Therefore, transform value */ if (G_VALUE_TYPE(value) != G_VALUE_TYPE(dvalue)) { if (!g_value_transform(dvalue, value)) g_warning("%s to %s conversion failed for midgard_view.%s", G_VALUE_TYPE_NAME(dvalue), G_VALUE_TYPE_NAME(value), pspec->name); return; } g_value_copy(dvalue, value); return; } static gboolean _midgard_view_derived_create_storage (MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(klass != NULL, FALSE); MgdSchemaTypeAttr *type_attr = midgard_core_class_get_type_attr(klass); /* Build view condition if there's at least one constraint defined. */ GSList *l; for (l = type_attr->constraints; l != NULL; l =l->next) { midgard_core_query_constraint_build_condition (mgd, (MidgardCoreQueryConstraint *)l->data); } /* Do not depend on CREATE VIEW IF NOT EXISTS */ if (_midgard_view_derived_storage_exists (mgd, klass)) { mgd_info ("View %s exists. Skipping create: OK", type_attr->name); return TRUE; } if (type_attr->sql_create_view == NULL) type_attr->sql_create_view = midgard_core_view_build_create_view_command (mgd, klass); gint rv = midgard_core_query_execute(mgd, type_attr->sql_create_view, FALSE); if (rv == -1) return FALSE; return TRUE; } static gboolean _midgard_view_derived_update_storage( MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(klass != NULL, FALSE); /* View can not be updated, so we delete it and create again */ klass->dbpriv->delete_storage (mgd, klass); return klass->dbpriv->create_storage (mgd, klass); } static gboolean _midgard_view_derived_storage_exists (MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(klass != NULL, FALSE); MgdSchemaTypeAttr *type_attr = midgard_core_class_get_type_attr(klass); const gchar *viewname = type_attr->name; GdaMetaContext mcontext = {"_views", 1, NULL, NULL}; mcontext.column_names = g_new (gchar *, 1); mcontext.column_names[0] = "table_name"; mcontext.column_values = g_new (GValue *, 1); g_value_set_string ((mcontext.column_values[0] = gda_value_new (G_TYPE_STRING)), viewname); GError *error = NULL; if (!gda_connection_update_meta_store (mgd->priv->connection, &mcontext, &error)) { gda_value_free (mcontext.column_values[0]); g_warning("Failed to update meta data for table '%s': %s", viewname, error && error->message ? error->message : "No detail"); if (error) g_error_free(error); return TRUE; } GdaDataModel *dm_schema = gda_connection_get_meta_store_data (mgd->priv->connection, GDA_CONNECTION_META_VIEWS, NULL, 1, "name", mcontext.column_values[0], NULL); gda_value_free (mcontext.column_values[0]); g_free (mcontext.column_names); g_free (mcontext.column_values); if(!dm_schema) { g_error("Failed to retrieve views schema"); return TRUE; } gboolean retval = TRUE; if (gda_data_model_get_n_rows (dm_schema) == 0) retval = FALSE; g_object_unref (dm_schema); return retval; } static gboolean _midgard_view_derived_delete_storage(MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail(mgd != NULL, FALSE); g_return_val_if_fail(klass != NULL, FALSE); MgdSchemaTypeAttr *type_attr = midgard_core_class_get_type_attr(klass); /* Should work with at least: MySQL, SQLite and PostgreSQL */ GString *query = g_string_new("DROP VIEW "); g_string_append(query, type_attr->name); gint rv = midgard_core_query_execute(mgd, query->str, FALSE); g_string_free(query, TRUE); if (rv == -1) return FALSE; return TRUE; } static void _midgard_view_derived_set_static_sql_select (MidgardConnection *mgd, MidgardDBObjectClass *klass) { guint n_props; GParamSpec **pspecs = g_object_class_list_properties (G_OBJECT_CLASS (klass), &n_props); GdaConnection *cnc = mgd->priv->connection; MgdSchemaTypeAttr *type = midgard_core_class_get_type_attr (klass); g_free (type->sql_select_full); guint i; GString *ssf = g_string_new (""); gboolean add_coma = FALSE; for (i = 0; i < n_props; i++) { if (G_TYPE_FUNDAMENTAL (pspecs[i]->value_type) == G_TYPE_OBJECT) { if (i == 1) add_coma = FALSE; continue; } /* Replace tablefield for every property */ MgdSchemaPropertyAttr *prop_attr = g_hash_table_lookup (type->prophash, pspecs[i]->name); if (!prop_attr) { g_warning ("%s property not registered for %s", pspecs[i]->name, type->name); g_error ("Failed to register view class"); } gchar *q_table = gda_connection_quote_sql_identifier (cnc, type->table); gchar *q_field = gda_connection_quote_sql_identifier (cnc, prop_attr->field); gchar *q_name = gda_connection_quote_sql_identifier (cnc, pspecs[i]->name); g_string_append_printf (ssf, "%s%s.%s AS %s", add_coma ? ", " : " ", q_table, q_field, q_name); gchar *t_table = gda_connection_quote_sql_identifier (cnc, type->name); midgard_core_schema_type_property_set_tablefield (prop_attr, t_table, q_name); g_free (q_table); g_free (q_field); g_free (q_name); g_free (t_table); add_coma = TRUE; } type->sql_select_full = g_string_free (ssf, FALSE); g_free (pspecs); } static void __midgard_view_derived_class_init(gpointer g_class, gpointer class_data) { MgdSchemaTypeAttr *data = (MgdSchemaTypeAttr *) class_data; GObjectClass *gobject_class = G_OBJECT_CLASS(g_class); MidgardViewClass *mklass = (MidgardViewClass *) g_class; guint idx; __view_parent_class = g_type_class_peek_parent (g_class); gobject_class->set_property = _midgard_view_derived_object_set_property; gobject_class->get_property = _midgard_view_derived_object_get_property; //gobject_class->finalize = _object_finalize; gobject_class->constructor = __midgard_view_derived_object_constructor; //gobject_class->dispose = __midgard_view_derived_object_dispose; mklass->get_connection = MIDGARD_DBOBJECT_CLASS(mklass)->get_connection; if(mklass) { mklass->dbpriv = g_new(MidgardDBObjectPrivate, 1); mklass->dbpriv->has_metadata = FALSE; mklass->dbpriv->storage_data = data; mklass->dbpriv->set_from_sql = __midgard_view_derived_object_set_from_sql; mklass->dbpriv->set_from_xml_node = NULL; mklass->dbpriv->create_storage = _midgard_view_derived_create_storage; mklass->dbpriv->update_storage = _midgard_view_derived_update_storage; mklass->dbpriv->storage_exists = _midgard_view_derived_storage_exists; mklass->dbpriv->delete_storage = _midgard_view_derived_delete_storage; mklass->dbpriv->add_fields_to_select_statement = __midgard_view_derived_add_fields_to_select_statement; mklass->dbpriv->set_static_sql_select = _midgard_view_derived_set_static_sql_select; } g_type_class_add_private (g_class, sizeof(MgdSchemaTypeAttr)); /* List parent class properties so we can set current class base_index */ guint n_prop; GParamSpec **pspecs = g_object_class_list_properties (g_type_class_peek_parent(g_class), &n_prop); g_free(pspecs); if (data) { data->properties = g_malloc(sizeof(MgdSchemaPropertyAttr*) * (data->num_properties+1)); data->base_index = n_prop; /* Note, that we start numbering from 1 , not from 0. property_id must be > 0 */ for (idx = 1; idx <= data->num_properties; idx++) { /* g_warning("Installing property id %d :: %s", idx, data->params[idx-1]->name); */ g_object_class_install_property( gobject_class, data->base_index + idx , data->params[idx-1]); } } } static void __midgard_view_derived_instance_init(GTypeInstance *instance, gpointer g_class) { } GType midgard_core_view_type_register(MgdSchemaTypeAttr *data, GType parent_type) { g_assert(data != NULL); g_assert(parent_type != 0); const gchar *class_name = data->name; GType class_type = g_type_from_name(class_name); if (class_type) return class_type; { GTypeInfo *midgard_type_info = g_new0 (GTypeInfo, 1); if(data == NULL) data = g_new(MgdSchemaTypeAttr, 1); midgard_type_info->class_size = sizeof(MidgardViewClass); midgard_type_info->base_init = NULL; midgard_type_info->base_finalize = NULL; midgard_type_info->class_init = __midgard_view_derived_class_init; midgard_type_info->class_finalize = NULL; midgard_type_info->class_data = data; /* our own instance size is 0 but it should include space for a parent, therefore add it */ midgard_type_info->instance_size = sizeof(MidgardView); midgard_type_info->n_preallocs = 0; midgard_type_info->instance_init = __midgard_view_derived_instance_init; midgard_type_info->value_table = NULL; GType type = g_type_register_static( MIDGARD_TYPE_VIEW, class_name, midgard_type_info, 0); g_free(midgard_type_info); return type; } } /* MIDGARD_VIEW ABSTRACT CLASS ROUTINES */ static GObjectClass *__parent_class= NULL; static GObject * __midgard_view_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (__parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void __midgard_view_dispose (GObject *object) { __parent_class->dispose (object); } static void _midgard_view_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardViewClass *klass = MIDGARD_VIEW_CLASS (g_class); __parent_class = g_type_class_peek_parent (g_class); gobject_class->constructor = __midgard_view_constructor; gobject_class->dispose = __midgard_view_dispose; gobject_class->finalize = __parent_class->finalize; gobject_class->set_property = NULL; gobject_class->get_property = NULL; klass->get_connection = MIDGARD_DBOBJECT_CLASS(__parent_class)->get_connection; } GType midgard_view_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardViewClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_view_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardView), 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (MIDGARD_TYPE_DBOBJECT, "MidgardView", &info, G_TYPE_FLAG_ABSTRACT); } return type; } midgard2-core-10.05.7.1/src/midgard_dbobject.h0000664000175000017500000000415011772046240015573 00000000000000/* * Copyright (C) 2007 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_DBOBJECT_H #define MIDGARD_DBOBJECT_H #include #include #include "midgard_defs.h" /* convention macros */ #define MIDGARD_TYPE_DBOBJECT (midgard_dbobject_get_type()) #define MIDGARD_DBOBJECT(object) \ (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_DBOBJECT, MidgardDBObject)) #define MIDGARD_DBOBJECT_CLASS(klass) \ (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_TYPE_DBOBJECT, MidgardDBObjectClass)) #define MIDGARD_IS_DBOBJECT(object) \ (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_DBOBJECT)) #define MIDGARD_IS_DBOBJECT_CLASS(klass) \ (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_TYPE_DBOBJECT)) #define MIDGARD_DBOBJECT_GET_CLASS(obj) \ (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_TYPE_DBOBJECT, MidgardDBObjectClass)) typedef struct _MidgardDBObject MidgardDBObject; typedef struct _MidgardDBObjectClass MidgardDBObjectClass; typedef struct _MidgardDBObjectPrivate MidgardDBObjectPrivate; GType midgard_dbobject_get_type(void); struct _MidgardDBObject{ GObject parent; /* */ MidgardDBObjectPrivate *dbpriv; }; struct _MidgardDBObjectClass { GObjectClass parent; /* */ MidgardDBObjectPrivate *dbpriv; /* virtual */ const MidgardConnection *(*get_connection) (MidgardDBObject *object); }; #endif /* MIDGARD_DBOBJECT_H */ midgard2-core-10.05.7.1/src/midgard_query_constraint.h0000664000175000017500000000643111772046240017434 00000000000000/* * Copyright (C) 2010 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_QUERY_CONSTRAINT_H #define MIDGARD_QUERY_CONSTRAINT_H #include #include "midgard_query_holder.h" #include "midgard_query_property.h" #include "midgard_query_storage.h" #include "midgard_query_constraint_simple.h" G_BEGIN_DECLS /* convention macros */ #define MIDGARD_TYPE_QUERY_CONSTRAINT (midgard_query_constraint_get_type()) #define MIDGARD_QUERY_CONSTRAINT(object) (G_TYPE_CHECK_INSTANCE_CAST ((object),MIDGARD_TYPE_QUERY_CONSTRAINT, MidgardQueryConstraint)) #define MIDGARD_QUERY_CONSTRAINT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), MIDGARD_QUERY_CONSTRAINT_TYPE, MidgardQueryConstraintClass)) #define MIDGARD_IS_QUERY_CONSTRAINT(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), MIDGARD_TYPE_QUERY_CONSTRAINT)) #define MIDGARD_IS_QUERY_CONSTRAINT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), MIDGARD_QUERY_CONSTRAINT_TYPE)) #define MIDGARD_QUERY_CONSTRAINT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), MIDGARD_QUERY_CONSTRAINT_TYPE, MidgardQueryConstraintClass)) typedef struct _MidgardQueryConstraint MidgardQueryConstraint; typedef struct _MidgardQueryConstraintPrivate MidgardQueryConstraintPrivate; typedef struct _MidgardQueryConstraintClass MidgardQueryConstraintClass; struct _MidgardQueryConstraint { GObject parent; /* < private > */ MidgardQueryConstraintPrivate *priv; }; struct _MidgardQueryConstraintClass { GObjectClass parent; MidgardQueryConstraintSimple **(*list_constraints) (MidgardQueryConstraint *self, guint *n_objects); }; GType midgard_query_constraint_get_type (void); MidgardQueryConstraint *midgard_query_constraint_new (MidgardQueryProperty *property, const gchar *op, MidgardQueryHolder *holder, MidgardQueryStorage *storage); void midgard_query_constraint_get_value (MidgardQueryConstraint *self, GValue *value); gboolean midgard_query_constraint_set_value (MidgardQueryConstraint *self, const GValue *value); MidgardQueryStorage *midgard_query_constraint_get_storage (MidgardQueryConstraint *self); gboolean midgard_query_constraint_set_storage (MidgardQueryConstraint *self, MidgardQueryStorage *storage); MidgardQueryProperty *midgard_query_constraint_get_property (MidgardQueryConstraint *self); gboolean midgard_query_constraint_set_property (MidgardQueryConstraint *self, MidgardQueryProperty *property); const gchar *midgard_query_constraint_get_operator (MidgardQueryConstraint *self); gboolean midgard_query_constraint_set_operator (MidgardQueryConstraint *self, const gchar *op); G_END_DECLS #endif /* MIDGARD_QUERY_CONSTRAINT_H */ midgard2-core-10.05.7.1/src/midgard_repligard.c0000664000175000017500000005467611772046240016005 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_repligard.h" #include "midgard_core_object.h" #include "midgard_core_query.h" #include "guid.h" #include "midgard_error.h" #include "midgard_core_workspace.h" #include #define MGD_REPLIGARD_TABLE "repligard" /** * midgard_repligard_new: * @mgd: #MidgardConnection instance * * Simplified constructor. * * Returns: #MidgardRepligard instance * Since: 10.05.5 */ MidgardRepligard * midgard_repligard_new (MidgardConnection *mgd) { MidgardRepligard *self = g_object_new (MIDGARD_TYPE_REPLIGARD, "connection", mgd, NULL); return self; } /** * midgard_repligard_create_object_info: * @self: #MidgardRepligard instance * @object: #MidgardObject to create record info * @error: pointer to store error * * For given @object, creates replication record info. * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05.5 */ gboolean midgard_repligard_create_object_info (MidgardRepligard *self, MidgardObject *object, GError **error) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (object != NULL, FALSE); GError *err = NULL; MidgardConnection *mgd = MGD_OBJECT_CNC (self); GdaConnection *cnc = mgd->priv->connection; MidgardDBObjectClass *rklass = MIDGARD_DBOBJECT_GET_CLASS (self); MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_GET_CLASS (object); GdaStatement *insert = rklass->dbpriv->get_statement_insert (rklass, mgd); g_return_val_if_fail (insert != NULL, FALSE); GdaSet *params = rklass->dbpriv->get_statement_insert_params (rklass, mgd); if (!params) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INTERNAL, "Failed to get parameters for prepared INSERT statement (%s).", G_OBJECT_CLASS_NAME (rklass)); return FALSE; } /* Guid */ gda_set_set_holder_value (params, &err, "guid", MGD_OBJECT_GUID (object)); if (err) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INTERNAL, "Failed to set guid INSERT parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } /* Typename */ gda_set_set_holder_value (params, &err, "typename", G_OBJECT_TYPE_NAME (object)); if (err) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INTERNAL, "Failed to set typename INSERT parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } /* Object action */ gda_set_set_holder_value (params, &err, "object_action", MGD_OBJECT_ACTION_CREATE); if (err) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INTERNAL, "Failed to set object_action INSERT parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } if (MGD_CNC_USES_WORKSPACE (mgd) && dbklass->dbpriv->uses_workspace) { guint ws_id = MGD_CNC_WORKSPACE_ID (mgd); /* workspace_id */ gda_set_set_holder_value (params, &err, "midgard_ws_id", ws_id); if (err) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INTERNAL, "Failed to set midgard_ws_id INSERT parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } /* workspace_oid */ gda_set_set_holder_value (params, &err, "midgard_ws_oid_id", MGD_OBJECT_WS_ID (object)); if (err) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INTERNAL, "Failed to set midgard_ws_oid_id INSERT parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } } if (MGD_CNC_DEBUG (mgd)) { gchar *debug_sql = gda_connection_statement_to_sql (cnc, insert, params, GDA_STATEMENT_SQL_PRETTY, NULL, NULL); g_debug ("Create repligard record info: %s", debug_sql); g_free (debug_sql); } gboolean inserted = (gda_connection_statement_execute_non_select (cnc, insert, params, NULL, &err) == -1) ? FALSE : TRUE; if (!inserted) { g_propagate_error (error, err); return FALSE; } return inserted; } /** * midgard_repligard_update_object_info: * @self: #MidgardRepligard instance * @object: #MidgardObject to create record info * @action: action to set * @error: pointer to store error * * For given @object, updates replication record info. * * Returns: %TRUE on success, %FALSE otherwise * * Since: 10.05.5 */ gboolean midgard_repligard_update_object_info (MidgardRepligard *self, MidgardObject *object, guint action, GError **error) { g_return_val_if_fail (self != NULL, FALSE); g_return_val_if_fail (object != NULL, FALSE); GError *err = NULL; MidgardConnection *mgd = MGD_OBJECT_CNC (self); GdaConnection *cnc = mgd->priv->connection; MidgardDBObjectClass *rklass = MIDGARD_DBOBJECT_GET_CLASS (self); MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_GET_CLASS (object); GdaStatement *update = rklass->dbpriv->get_statement_update (rklass, mgd); g_return_val_if_fail (update != NULL, FALSE); GdaSet *params = rklass->dbpriv->get_statement_update_params (rklass, mgd); if (!params) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INTERNAL, "Failed to get parameters for prepared INSERT statement (%s).", G_OBJECT_CLASS_NAME (rklass)); return FALSE; } /* Guid */ gda_set_set_holder_value (params, &err, "guid", MGD_OBJECT_GUID (object)); if (err) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INTERNAL, "Failed to set guid UPDATE parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } /* Object action */ gda_set_set_holder_value (params, &err, "object_action", action); if (err) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INTERNAL, "Failed to set object_action UPDATE parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } if (MGD_CNC_USES_WORKSPACE (mgd) && dbklass->dbpriv->uses_workspace) { guint ws_id = MGD_CNC_WORKSPACE_ID (mgd); /* workspace_id */ gda_set_set_holder_value (params, &err, "midgard_ws_id", ws_id); if (err) { g_set_error (error, MIDGARD_GENERIC_ERROR, MIDGARD_GENERIC_ERROR_INTERNAL, "Failed to set midgard_ws_id UPDATE parameter: %s.", err && err->message ? err->message : "Unknown reason"); g_clear_error (&err); return FALSE; } } if (MGD_CNC_DEBUG (mgd)) { gchar *debug_sql = gda_connection_statement_to_sql (cnc, update, params, GDA_STATEMENT_SQL_PRETTY, NULL, NULL); g_debug ("Update repligard record info: %s", debug_sql); g_free (debug_sql); } gboolean updated = (gda_connection_statement_execute_non_select (cnc, update, params, NULL, &err) == -1) ? FALSE : TRUE; if (!updated) { g_propagate_error (error, err); return FALSE; } return updated; } gboolean midgard_repligard_purge_object_info (MidgardRepligard *self, MidgardObject *object, guint action, GError **error) { return FALSE; } /* GOBJECT ROUTINES */ static GObjectClass *__parent_class= NULL; enum { PROPERTY_OBJECT_GUID = 1, PROPERTY_TYPE_NAME, PROPERTY_OBJECT_ACTION, PROPERTY_WORKSPACE_ID }; static void _midgard_repligard_instance_init (GTypeInstance *instance, gpointer g_class) { MidgardRepligard *self = (MidgardRepligard *) instance; self->object_guid = NULL; self->type_name = NULL; self->object_action = 0; self->workspace_id = 0; return; } static GObject * _midgard_repligard_constructor (GType type, guint n_construct_properties, GObjectConstructParam *construct_properties) { GObject *object = (GObject *) G_OBJECT_CLASS (__parent_class)->constructor (type, n_construct_properties, construct_properties); return G_OBJECT(object); } static void _midgard_repligard_dispose (GObject *object) { MidgardRepligard *self = MIDGARD_REPLIGARD (object); __parent_class->dispose (object); } static void _midgard_repligard_finalize (GObject *object) { MidgardRepligard *self = MIDGARD_REPLIGARD (object); g_free (self->object_guid); self->object_guid = NULL; g_free (self->type_name); self->type_name = NULL; self->object_action = 0; self->workspace_id = 0; __parent_class->finalize (object); } static void _midgard_repligard_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { MidgardRepligard *self = MIDGARD_REPLIGARD (object); switch (property_id) { case PROPERTY_OBJECT_GUID: g_free (self->object_guid); self->object_guid = g_value_dup_string (value); break; case PROPERTY_TYPE_NAME: g_free (self->type_name); self->type_name = g_value_dup_string (value); break; case PROPERTY_OBJECT_ACTION: self->object_action = g_value_get_uint (value); break; case PROPERTY_WORKSPACE_ID: self->workspace_id = g_value_get_uint (value); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static void _midgard_repligard_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { MidgardRepligard *self = (MidgardRepligard *) object; switch (property_id) { case PROPERTY_OBJECT_GUID: g_value_set_string (value, self->object_guid); break; case PROPERTY_TYPE_NAME: g_value_set_string (value, self->type_name); break; case PROPERTY_OBJECT_ACTION: g_value_set_uint (value, self->object_action); break; case PROPERTY_WORKSPACE_ID: g_value_set_uint (value, self->workspace_id); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (self, property_id, pspec); break; } } static gboolean _repligard_storage_exists (MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail (mgd != NULL, FALSE); g_return_val_if_fail (klass != NULL, FALSE); return midgard_core_table_exists (mgd, MGD_REPLIGARD_TABLE); } static gboolean _repligard_storage_delete (MidgardConnection *mgd, MidgardDBObjectClass *klass) { g_return_val_if_fail (mgd != NULL, FALSE); g_return_val_if_fail (klass != NULL, FALSE); g_warning ("MidgardRepligard storage can not be deleted"); return FALSE; } static void _set_from_data_model (MidgardDBObject *self, GdaDataModel *model, gint row, guint column_id) { g_return_if_fail (self != NULL); g_return_if_fail (model != NULL); g_return_if_fail (row > -1); return; } static void __initialize_statement_insert_query_parameters (MidgardDBObjectClass *klass, const gchar *query_string, gboolean add_workspace) { GdaSqlParser *parser = gda_sql_parser_new (); GdaStatement *stmt; GError *error = NULL; stmt = gda_sql_parser_parse_string (parser, query_string, NULL, &error); if (!stmt) { g_error ("Couldn't create %s class prepared statement. %s", G_OBJECT_CLASS_NAME (klass), error && error->message ? error->message : "Unknown reason"); return; } GdaSet *params; if (!gda_statement_get_parameters (stmt, ¶ms, &error)) { g_error ("Failed to create GdaSet for %s class. %s", G_OBJECT_CLASS_NAME (klass), error && error->message ? error->message : "Unknown reason"); } if (add_workspace) { klass->dbpriv->_workspace_statement_insert = stmt; klass->dbpriv->_workspace_statement_insert_params = params; return; } klass->dbpriv->_statement_insert = stmt; klass->dbpriv->_statement_insert_params = params; return; } static gchar * __initialize_statement_insert_query_string (MidgardDBObjectClass *klass, gboolean add_workspace) { GString *sql = g_string_new ("INSERT INTO "); g_string_append (sql, MGD_REPLIGARD_TABLE); if (!add_workspace) { g_string_append (sql, "(guid, typename, object_action) VALUES (##guid::string, ##typename::string, ##object_action::guint)"); } else { g_string_append (sql, "(guid, typename, object_action, midgard_ws_id, midgard_ws_oid_id) " "VALUES (##guid::string, ##typename::string, ##object_action::guint, ##midgard_ws_id::guint, ##midgard_ws_oid_id::guint)"); } return g_string_free (sql, FALSE); } static GdaStatement * __get_statement_insert (MidgardDBObjectClass *klass, MidgardConnection *mgd) { gchar *query = NULL; /* Try workspace statement first */ if (mgd && MGD_CNC_USES_WORKSPACE (mgd)) { if (!klass->dbpriv->_workspace_statement_insert) { query = __initialize_statement_insert_query_string (klass, TRUE); __initialize_statement_insert_query_parameters (klass, query, TRUE); g_free (query); } return klass->dbpriv->_workspace_statement_insert; } if (!klass->dbpriv->_statement_insert) { query = __initialize_statement_insert_query_string (klass, FALSE); __initialize_statement_insert_query_parameters (klass, query, FALSE); g_free (query); } return klass->dbpriv->_statement_insert; } static GdaSet * __get_statement_insert_params (MidgardDBObjectClass *klass, MidgardConnection *mgd) { GdaStatement *stmt = klass->dbpriv->get_statement_insert (klass, mgd); if (!stmt) { g_error ("Failed to get UPDATE GdaStatement and GdaSet (%s)", G_OBJECT_CLASS_NAME (klass)); return NULL; } if (mgd && MGD_CNC_USES_WORKSPACE (mgd)) return klass->dbpriv->_workspace_statement_insert_params; return klass->dbpriv->_statement_insert_params; } static void __initialize_statement_update_query_parameters (MidgardDBObjectClass *klass, const gchar *query_string, gboolean add_workspace) { GdaSqlParser *parser = gda_sql_parser_new (); GdaStatement *stmt; GError *error = NULL; stmt = gda_sql_parser_parse_string (parser, query_string, NULL, &error); if (!stmt) { g_error ("Couldn't create %s class UPDATE prepared statement. %s", G_OBJECT_CLASS_NAME (klass), error && error->message ? error->message : "Unknown reason"); return; } GdaSet *params; if (!gda_statement_get_parameters (stmt, ¶ms, &error)) { g_error ("Failed to create UPDATE GdaSet for %s class. %s", G_OBJECT_CLASS_NAME (klass), error && error->message ? error->message : "Unknown reason"); } if (add_workspace) { klass->dbpriv->_workspace_statement_update = stmt; klass->dbpriv->_workspace_statement_update_params = params; return; } klass->dbpriv->_statement_update = stmt; klass->dbpriv->_statement_update_params = params; return; } static gchar * __initialize_statement_update_query_string (MidgardDBObjectClass *klass, gboolean add_workspace) { GString *sql = g_string_new (""); g_string_append_printf (sql, "UPDATE %s SET object_action=##object_action::guint ", MGD_REPLIGARD_TABLE); if (add_workspace) g_string_append (sql, "WHERE guid=##guid::string AND midgard_ws_id=##midgard_ws_id::guint "); else g_string_append (sql, "WHERE guid=##guid::string "); return g_string_free (sql, FALSE); } static GdaStatement * __get_statement_update (MidgardDBObjectClass *klass, MidgardConnection *mgd) { gchar *query = NULL; /* Try workspace statement first */ if (mgd && MGD_CNC_USES_WORKSPACE (mgd)) { if (!klass->dbpriv->_workspace_statement_update) { query = __initialize_statement_update_query_string (klass, TRUE); __initialize_statement_update_query_parameters (klass, query, TRUE); g_free (query); } return klass->dbpriv->_workspace_statement_update; } if (!klass->dbpriv->_statement_update) { query = __initialize_statement_update_query_string (klass, FALSE); __initialize_statement_update_query_parameters (klass, query, FALSE); g_free (query); } return klass->dbpriv->_statement_update; } static GdaSet * __get_statement_update_params (MidgardDBObjectClass *klass, MidgardConnection *mgd) { GdaStatement *stmt = klass->dbpriv->get_statement_update (klass, mgd); if (!stmt) { g_error ("Failed to get GdaStatement and GdaSet (%s)", G_OBJECT_CLASS_NAME (klass)); return NULL; } if (mgd && MGD_CNC_USES_WORKSPACE (mgd)) return klass->dbpriv->_workspace_statement_update_params; return klass->dbpriv->_statement_update_params; } static void _midgard_repligard_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardRepligardClass *klass = MIDGARD_REPLIGARD_CLASS (g_class); __parent_class = g_type_class_peek_parent (g_class); gobject_class->constructor = _midgard_repligard_constructor; gobject_class->dispose = _midgard_repligard_dispose; gobject_class->finalize = _midgard_repligard_finalize; gobject_class->set_property = _midgard_repligard_set_property; gobject_class->get_property = _midgard_repligard_get_property; /* PROPERTIES */ MgdSchemaPropertyAttr *prop_attr; MgdSchemaTypeAttr *type_attr = midgard_core_schema_type_attr_new(); GParamSpec *pspec; const gchar *property_name; /* Object guid */ property_name = "reference"; pspec = g_param_spec_string (property_name, "Guid of an object for which record info is created", "", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, PROPERTY_OBJECT_GUID, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_STRING; prop_attr->field = g_strdup ("guid"); prop_attr->table = g_strdup (MGD_REPLIGARD_TABLE); prop_attr->tablefield = g_strjoin (".", MGD_REPLIGARD_TABLE, "guid", NULL); g_hash_table_insert (type_attr->prophash, g_strdup ((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, (gpointer) property_name); /* Type name */ property_name = "type"; pspec = g_param_spec_string (property_name, "Name of the class of reference object", "", "", G_PARAM_READWRITE); g_object_class_install_property (gobject_class, PROPERTY_TYPE_NAME, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_STRING; prop_attr->field = g_strdup ("typename"); prop_attr->table = g_strdup (MGD_REPLIGARD_TABLE); prop_attr->tablefield = g_strjoin (".", MGD_REPLIGARD_TABLE, "typename", NULL); g_hash_table_insert (type_attr->prophash, g_strdup ((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, (gpointer) property_name); /* Action ID */ property_name = "action"; pspec = g_param_spec_uint (property_name, "Action ID", "", 0, G_MAXUINT32, 0, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, PROPERTY_OBJECT_ACTION, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_UINT; prop_attr->field = g_strdup ("object_action"); prop_attr->table = g_strdup (MGD_REPLIGARD_TABLE); prop_attr->tablefield = g_strjoin (".", MGD_REPLIGARD_TABLE, "object_action", NULL); g_hash_table_insert (type_attr->prophash, g_strdup ((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, (gpointer) property_name); /* Workspace ID */ property_name = "workspace"; pspec = g_param_spec_uint (property_name, "Workspace ID", "", 0, G_MAXUINT32, 0, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, PROPERTY_WORKSPACE_ID, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_UINT; prop_attr->field = g_strdup ("midgard_ws_id"); prop_attr->table = g_strdup (MGD_REPLIGARD_TABLE); prop_attr->tablefield = g_strjoin (".", MGD_REPLIGARD_TABLE, "midgard_ws_id", NULL); g_hash_table_insert (type_attr->prophash, g_strdup ((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, (gpointer) property_name); /* Workspace OID */ property_name = "workspaceoid"; pspec = g_param_spec_uint (property_name, "Workspace OID", "", 0, G_MAXUINT32, 0, G_PARAM_READWRITE); g_object_class_install_property (gobject_class, PROPERTY_WORKSPACE_ID, pspec); prop_attr = midgard_core_schema_type_property_attr_new(); prop_attr->gtype = MGD_TYPE_UINT; prop_attr->field = g_strdup ("midgard_ws_oid_id"); prop_attr->table = g_strdup (MGD_REPLIGARD_TABLE); prop_attr->tablefield = g_strjoin (".", MGD_REPLIGARD_TABLE, "midgard_ws_oid_id", NULL); g_hash_table_insert (type_attr->prophash, g_strdup ((gchar *)property_name), prop_attr); type_attr->_properties_list = g_slist_append (type_attr->_properties_list, (gpointer) property_name); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv = midgard_core_dbobject_private_new (); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_data = type_attr; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_data->table = g_strdup (MGD_REPLIGARD_TABLE); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_data->tables = g_strdup (MGD_REPLIGARD_TABLE); MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->has_metadata = FALSE; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->create_storage = midgard_core_query_create_class_storage; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->update_storage = midgard_core_query_update_class_storage; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->storage_exists = _repligard_storage_exists; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->delete_storage = _repligard_storage_delete; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->get_statement_insert = __get_statement_insert; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->get_statement_insert_params = __get_statement_insert_params; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->get_statement_update = __get_statement_update; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->get_statement_update_params = __get_statement_update_params; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->add_fields_to_select_statement = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->add_fields_to_select_statement; MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->set_from_data_model = MIDGARD_DBOBJECT_CLASS (__parent_class)->dbpriv->set_from_data_model; } GType midgard_repligard_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardRepligardClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_repligard_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardRepligard), 0, /* n_preallocs */ _midgard_repligard_instance_init /* instance_init */ }; type = g_type_register_static (MIDGARD_TYPE_DBOBJECT, "MidgardRepligard", &info, 0); } return type; } midgard2-core-10.05.7.1/src/midgard_collector.c0000664000175000017500000007116211772046240016007 00000000000000/* * Copyright (C) 2006, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_collector.h" #include "midgard_object.h" #include "query_builder.h" #include "midgard_core_query_builder.h" #include #include "midgard_core_query.h" #include "midgard_core_object_class.h" #include "midgard_core_object.h" struct _MidgardCollectorPrivate{ const gchar *typename; GType type; const gchar *domain; GValue *domain_value; const gchar *keyname; GValue *keyname_value; MidgardQueryBuilder *builder; MidgardObjectClass *klass; GList *values; GData *datalist; MidgardConnection *mgd; }; static const gchar *_collector_find_class_property( MidgardCollector *self, const gchar *propname) { const gchar *table_field = midgard_core_class_get_property_tablefield( MIDGARD_DBOBJECT_CLASS(self->priv->klass), propname); /* Let's try metadata class */ if(table_field == NULL) { MidgardMetadataClass *mklass = (MidgardMetadataClass*) g_type_class_peek(g_type_from_name("MidgardMetadata")); GParamSpec *pspec = g_object_class_find_property (G_OBJECT_CLASS (mklass), propname); /* We do not need table.col alias, so dummy empty string is fine in this case */ if (pspec) return ""; } return table_field; } static void _unset_subkey_value(gpointer value) { if(value != NULL) { /* FIXME */ /* g_value_unset((GValue *)value); g_free(value); value = NULL; */ } } static void __unset_subkey_valuelist (gpointer value) { if(value != NULL){ /* FIXME */ /* GData *datalist = (GData *)value; g_datalist_clear(&datalist); value = NULL; */ } } /** * midgard_collector_new: * @mgd: #MidgardConnection instance * @typename: name of given class, which collector is initialized for * @domain: collection' domain * @value: domain's constraint value * * @typename should be any #MidgardDBObject derived class name. * @domain is property name which is registered for given class, and should not be * unique per object or record. In other words, @domain is a common property (and value) * for group of objects expected in collection. * @value must be of domain property type, and is owned by #MidgardCollector instance. * If you need reuse given value, make a copy. * * Cases to return NULL: * * * * @mgd #MidgardConnection instance is invalid * * * @typename is not registered in GType system or it's not #MidgardDBObject derived * * * @domain property is not registered for given @typename class * * * @value is of invalid type * * * * Returns: #MidgardCollector instance, or %NULL on failure */ MidgardCollector *midgard_collector_new( MidgardConnection *mgd, const gchar *typename, const gchar *domain, GValue *value) { g_assert(mgd != NULL); g_assert(typename != NULL); g_assert(domain != NULL); g_assert(value != NULL); MidgardCollector *self = (MidgardCollector *)g_object_new(MIDGARD_TYPE_COLLECTOR, NULL); self->priv->klass = MIDGARD_OBJECT_GET_CLASS_BY_NAME(typename); /* Initialize private QB instance and set domain as constraint */ self->priv->builder = midgard_query_builder_new(mgd, typename); midgard_query_builder_add_constraint(self->priv->builder, domain, "=", value); MidgardDBObjectClass *klass = MIDGARD_DBOBJECT_CLASS(self->priv->klass); MidgardCoreQueryConstraint *constraint = midgard_core_query_constraint_new(); midgard_core_query_constraint_set_builder(constraint, self->priv->builder); midgard_core_query_constraint_set_class(constraint, klass); if(!midgard_core_query_constraint_parse_property(&constraint, klass, domain)) { g_object_unref(constraint); /* FIXME */ if(value) { g_value_unset(value); g_free(value); } g_object_unref(self); return NULL; } g_object_unref(constraint); self->priv->typename = (const gchar *) g_strdup(typename); self->priv->type = g_type_from_name(typename); self->priv->domain = (const gchar*) g_strdup(domain); self->priv->domain_value = value; self->priv->keyname = NULL; self->priv->keyname_value = NULL; self->priv->mgd = mgd; g_value_unset(value); g_free(value); self->priv->values = NULL; g_datalist_init(&self->priv->datalist); return self; } /** * midgard_collector_set_key_property: * @self: #MidgardCollector instance * @key: property name which must be a key * @value: optional value of key's constraint * * If @value is explicitly set to NULL , then all key property name's records * are selected from database and set in internal collector's resultset. * If not, key property name and its value is used as constraint to limit selected * records from database. In latter case add_value_property method should be invoked. * GValue value passed as third argument is owned by Midgard Collector. If value * should be reused, its copy should be passed to constructor. * * Cases to return FALSE: * * * * @self #MidgardCollector instance is invalid * * * @key property is not registered for the @typename class * * * @value is of invalid type * * * @key property is already set for @self #MidgardCollector * * * * Returns: %TRUE if key has been set, %FALSE otherwise */ gboolean midgard_collector_set_key_property( MidgardCollector *self, const gchar *key, GValue *value) { g_assert(self != NULL); MidgardDBObjectClass *klass = MIDGARD_DBOBJECT_CLASS(g_type_class_peek(self->priv->builder->priv->type)); MidgardCoreQueryConstraint *constraint = midgard_core_query_constraint_new(); midgard_core_query_constraint_set_builder(constraint, self->priv->builder); midgard_core_query_constraint_set_class(constraint, klass); GdaConnection *cnc = self->priv->mgd->priv->connection; if(!midgard_core_query_constraint_parse_property(&constraint, klass, key)) { g_object_unref(constraint); return FALSE; } /* Check if property is private */ MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_CLASS (constraint->priv->klass); MgdSchemaTypeAttr *type_attr = dbklass->dbpriv->storage_data; if (midgard_core_object_property_refuse_private (self->priv->mgd, type_attr, NULL, constraint->priv->propname)) { g_object_unref(constraint); return FALSE; } gchar *q_table = gda_connection_quote_sql_identifier (cnc, constraint->priv->current->table); gchar *q_field = gda_connection_quote_sql_identifier (cnc, constraint->priv->current->field); gchar *sql_field = g_strconcat(q_table, ".", q_field, " AS midgard_collector_key", NULL); g_free (q_table); g_free (q_field); g_object_unref(constraint); self->priv->values = g_list_prepend(self->priv->values, sql_field); self->priv->keyname = (const gchar*) g_strdup(key); /* add constraint if the value is set*/ if(value){ midgard_query_builder_add_constraint( self->priv->builder, key, "=", value); self->priv->keyname_value = value; } return TRUE; } /** * midgard_collector_add_value_property: * @self: #MidgardCollector instance * @value: property name * * Cases to return FALSE: * * * @self, #MidgardCollector object is invalid * * * @value property is not registered for the @class, which has been initialized for given #MidgardCollector * * * * Number of value properties added to Midgard Collector is limited by * the number of properties registered for type which has been initialized * for the given #MidgardCollector instance. * * @See: midgard_query_builder_add_constraint() for available property name pattern * * Returns: %TRUE if named value property has been added, %FALSE otherwise */ gboolean midgard_collector_add_value_property( MidgardCollector *self, const gchar *value) { g_assert(self != NULL); g_assert(value != NULL); if(!self->priv->keyname){ g_warning("Collector's key is not set. Call set_key_property method"); return FALSE; } MidgardDBObjectClass *klass = MIDGARD_DBOBJECT_CLASS(g_type_class_peek(self->priv->builder->priv->type)); MidgardCoreQueryConstraint *constraint = midgard_core_query_constraint_new(); midgard_core_query_constraint_set_builder(constraint, self->priv->builder); midgard_core_query_constraint_set_class(constraint, klass); GdaConnection *cnc = self->priv->mgd->priv->connection; if(!midgard_core_query_constraint_parse_property(&constraint, klass, value)) { g_object_unref(constraint); return FALSE; } /* Check if property is private */ MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_CLASS (constraint->priv->klass); MgdSchemaTypeAttr *type_attr = dbklass->dbpriv->storage_data; if (midgard_core_object_property_refuse_private (self->priv->mgd, type_attr, NULL, constraint->priv->propname)) { g_object_unref(constraint); return FALSE; } gchar *q_table = gda_connection_quote_sql_identifier (cnc, constraint->priv->current->table); gchar *q_field = gda_connection_quote_sql_identifier (cnc, constraint->priv->current->field); gchar *q_name = gda_connection_quote_sql_identifier (cnc, constraint->priv->pspec->name); gchar *sql_field = g_strconcat (q_table, ".", q_field, " AS ", q_name, NULL); g_free (q_table); g_free (q_field); g_free (q_name); g_object_unref(constraint); self->priv->values = g_list_prepend(self->priv->values, sql_field); return TRUE; } /** * midgard_collector_set: * @self: #MidgardCollector instance * @key: key name for which @subkey&@value pair should be set * @subkey: property name which is a subkey * @value: value for given @subkey * * Cases to return FALSE: * * * @self, #MidgardCollector instance is invalid * * * @subkey property name is not registered for collestor's class * * * @value is of invalid type * * * * If the key is already added to MidgardCollector then its value * (as subkey&value pair) is destroyed and new one is set. * In other case new key and its subkey&value pair is added to collector. * * Key used in this function is a value returned ( or set ) for collector's key. * Keys are collection of values returned from property fields. * Subkey is an explicit property name. * * GValue @value argument is owned by MidgardCollector. * If value should be reused, its copy should be passed as method argument. * * Returns: %TRUE, if key's value has been set, %FALSE otherwise */ gboolean midgard_collector_set (MidgardCollector *self, const gchar *key, const gchar *subkey, GValue *value) { g_assert(self != NULL); GQuark keyquark = g_quark_from_string(key); GData *valueslist; GQuark subkeyquark; if(subkey == NULL){ /* This is workaround. Far from being ellegant. * datalist foreach doesn't call user function * if datalist's data isw NULL. * Even if key quark is set*/ subkeyquark = g_quark_from_string("0"); valueslist = (GData *) g_datalist_id_get_data( &self->priv->datalist, subkeyquark); if(valueslist == NULL) g_datalist_init(&valueslist); GValue *val = g_new0(GValue, 1); g_value_init(val, G_TYPE_UINT); g_value_set_uint(val, 0); g_datalist_id_set_data_full ( &valueslist, subkeyquark, val, _unset_subkey_value); g_datalist_id_set_data_full ( &self->priv->datalist, keyquark, (gpointer) valueslist, __unset_subkey_valuelist); return TRUE; } const gchar *nick = _collector_find_class_property(self, subkey); if(!nick) return FALSE; subkeyquark = g_quark_from_string(subkey); valueslist = (GData *) g_datalist_id_get_data( &self->priv->datalist, keyquark); if(valueslist == NULL) g_datalist_init(&valueslist); g_datalist_id_set_data_full ( &valueslist, subkeyquark, (gpointer) value, _unset_subkey_value); g_datalist_id_set_data_full ( &self->priv->datalist, keyquark, (gpointer) valueslist, __unset_subkey_valuelist); return TRUE; } /** * midgard_collector_get: * @self: #MidgardCollector instance * @key: name of the key to look for * * GData keys ( collector's subkeys ) are inserted to GData as * Quarks , so you must call g_quark_to_string if you need to get strings * ( e.g. implementing hash table for language bindings ). * * Returns: (transfer full): #GData for the given key or %NULL if key is not found in collection */ GData* midgard_collector_get (MidgardCollector *self, const gchar *key) { g_assert(self); if(!self->priv->keyname){ g_warning("Collector's key is not set. Call set_key_property method"); return FALSE; } return (GData *) g_datalist_id_get_data ( &self->priv->datalist, g_quark_from_string(key)); } /** * midgard_collector_get_subkey: * @self: #MidgardCollector instance * @key: name of the key * @subkey: name of key's subkey to look for * * Returns: subkey's #GValue value or %NULL if not found */ GValue* midgard_collector_get_subkey (MidgardCollector *self, const gchar *key, const gchar *subkey) { g_assert(self); const gchar *nick; nick = _collector_find_class_property(self, subkey); if(!nick) return NULL; if(&self->priv->datalist == NULL){ g_warning("Collector's key set with NULL value"); return NULL; } GData *valueslist = g_datalist_id_get_data ( &self->priv->datalist, g_quark_from_string(key)); if(!valueslist) { g_log(G_LOG_DOMAIN, G_LOG_LEVEL_DEBUG, "midgard_collector: No subkeys associated with the given '%s' key", key); return NULL; } GValue *value = g_datalist_id_get_data ( &valueslist, g_quark_from_string(subkey)); return value; } static void __merge_datalist ( GQuark key_id, gpointer data, gpointer user_data) { GValue *value = (GValue *) data; GData *datalist = (GData *) user_data; GValue *new_value = g_new0(GValue, 1); g_value_init(new_value, G_VALUE_TYPE(value)); g_value_copy(value, new_value); g_datalist_id_set_data_full ( &datalist, key_id, (gpointer) user_data, _unset_subkey_value); } /** * midgard_collector_merge: * @self: #MidgardCollector instance * @mc: #MidgardCollector instance * @overwrite: whether overwrite collector's keys * * * If third overwrite parameter is set as TRUE then all keys which exists * in @self and @mc collector's instance will be oberwritten in @self colection * instance. If set as FALSE , only those keys will be added, which do not exist * in @self collection and exist in @mc collection. * * Cases to return FALSE: * * * Second argument is not valid #MidgardCollector * * * @mc, #MidgardCollector has no keys collection * * * * Returns: %TRUE if collections has been merged, %FALSE otherwise */ gboolean midgard_collector_merge (MidgardCollector *self, MidgardCollector *mc, gboolean overwrite) { g_assert(self); g_assert(mc); if(!MIDGARD_COLLECTOR(mc)){ g_warning("Second argument is not an instance of midgard_collector class!"); return FALSE; } guint i = 0; gchar **keys = midgard_collector_list_keys(mc); GData *self_datalist, *mc_datalist; if(!keys) return FALSE; while(keys[i] != NULL) { self_datalist = midgard_collector_get(self, keys[i]); if((self_datalist && overwrite) || (self_datalist == NULL)){ mc_datalist = midgard_collector_get(mc, keys[i]); if(!self_datalist) g_datalist_init(&self_datalist); g_datalist_foreach( &mc_datalist, __merge_datalist, self_datalist); g_datalist_id_set_data_full ( &self->priv->datalist, 0, NULL, _unset_subkey_value); } i++; } g_free((gchar *)keys); return TRUE; } typedef struct _dle _dle; struct _dle{ guint elements; }; static void __count_datalist_elements ( GQuark key_id, gpointer data, gpointer user_data) { _dle **le = (_dle**) user_data; (*le)->elements++; } static void __get_collection_keys ( GQuark key_id, gpointer data, gpointer user_data) { GList **list = user_data; *list = g_list_prepend(*list, (gchar *)g_quark_to_string(key_id)); } /** * midgard_collector_list_key: * @self: #MidgardCollector instance * * Returned array of string is newly created array with pointers to each string * in array. It should be freed without any need to free each string. * g_free (instead of g_strfreev) should be used to free returned list. * * Returns: (transfer container): %NULL terminated array of strings or %NULL */ gchar** midgard_collector_list_keys (MidgardCollector *self) { g_assert(self); guint list_size = 0 , i = 0; _dle *le = g_new(_dle, 1); le->elements = 0; g_datalist_foreach (&self->priv->datalist, __count_datalist_elements, &le); if(le->elements == 0) { g_free(le); return NULL; } list_size = le->elements; g_free(le); gchar **keys = g_new(gchar *, list_size+1); GList *list = NULL; g_datalist_foreach (&self->priv->datalist, __get_collection_keys, &list); if(list) { /* list is already reversed * it's done by prepending lists in __get_collection_keys */ GList *l = NULL; for(l = list; l != NULL; l = l->next) { keys[i] = l->data; i++; } keys[i] = NULL; g_list_free(list); return keys; } g_free(keys); return NULL; } /** * midgard_collector_remove_key: * @self: #MidgardCollector instance * @key: name of the key in collector's collection * * Removes key and associated value from the given #MidgardCollector instance. * * Returns: %TRUE if key (and its value) has been removed from collection, %FALSE otherwise */ gboolean midgard_collector_remove_key( MidgardCollector *self, const gchar *key) { g_assert(self != NULL); g_assert(key != NULL); GQuark keyquark = g_quark_from_string(key); GData *valueslist = g_datalist_id_get_data ( &self->priv->datalist, keyquark); if(!valueslist) return FALSE; g_datalist_clear(&valueslist); g_datalist_id_remove_data(&self->priv->datalist, keyquark); return TRUE; } /* Parent methods re-implementation */ gboolean midgard_collector_add_constraint( MidgardCollector *self, const gchar *name, const gchar *op, const GValue *value) { g_assert(self); return MIDGARD_QUERY_BUILDER_GET_CLASS( self->priv->builder)->add_constraint( self->priv->builder, name, op, value); } gboolean midgard_collector_add_constraint_with_property( MidgardCollector *self, const gchar *property_a, const gchar *op, const gchar *property_b) { g_assert(self != NULL); g_assert(property_a != NULL); g_assert(property_b != NULL); g_assert(op != NULL); return MIDGARD_QUERY_BUILDER_GET_CLASS( self->priv->builder)->add_constraint_with_property( self->priv->builder, property_a, op, property_b); } gboolean midgard_collector_begin_group( MidgardCollector *self, const gchar *type) { g_assert(self); return MIDGARD_QUERY_BUILDER_GET_CLASS( self->priv->builder)->begin_group( self->priv->builder, type); } gboolean midgard_collector_end_group( MidgardCollector *self) { g_assert(self); return MIDGARD_QUERY_BUILDER_GET_CLASS( self->priv->builder)->end_group( self->priv->builder); } gboolean midgard_collector_add_order( MidgardCollector *self, const gchar *name, const gchar *dir) { g_assert(self); return MIDGARD_QUERY_BUILDER_GET_CLASS( self->priv->builder)->add_order( self->priv->builder, name, dir); } void midgard_collector_set_offset( MidgardCollector *self, guint offset) { g_assert(self != NULL); MIDGARD_QUERY_BUILDER_GET_CLASS( self->priv->builder)->set_offset( self->priv->builder, offset); } void midgard_collector_set_limit( MidgardCollector *self, guint limit) { g_assert(self); MIDGARD_QUERY_BUILDER_GET_CLASS( self->priv->builder)->set_limit( self->priv->builder, limit); } void midgard_collector_count( MidgardCollector *self) { g_assert(self); return; } gboolean midgard_collector_include_deleted(MidgardCollector *self) { g_assert(self != NULL); MIDGARD_QUERY_BUILDER_GET_CLASS( self->priv->builder)->include_deleted( self->priv->builder); return TRUE; } /* static void __set_value(GValue *val, gchar *field_value) { switch(G_VALUE_TYPE(val)){ case G_TYPE_STRING: g_value_set_string(val, (gchar *)field_value); break; case G_TYPE_UINT: g_value_set_uint(val, atoi(field_value)); break; case G_TYPE_INT: g_value_set_int(val, atoi(field_value)); break; case G_TYPE_FLOAT: g_value_set_float(val, g_ascii_strtod(field_value, NULL)); break; case G_TYPE_BOOLEAN: g_value_set_boolean(val, atoi(field_value)); break; } } */ /** * midgard_collector_execute; * @self: #MidgardCollector instance * * Executes SQL query and set internal keys&values collection. * * Overwritten #MidgardQueryBuilder execute method. * Unlike QB's execute method this one returns boolean value. * Resultset is stored inernally by #MidgardCollector instance. * * Cases to return FALSE: * * * No key is associated, midgard_collector_set_key_property() * * * No value property is associated, midgard_collector_add_value_property() * * * Database provider returned SQL query syntax error * * * No record(s) matched * * * * Returns: %TRUE in success, %FALSE otherwise */ gboolean midgard_collector_execute (MidgardCollector *self) { g_assert(self); if(!self->priv->keyname){ g_warning("Collector's key is not set. Call set_key_property method"); return FALSE; } if(!self->priv->values) return FALSE; GList *list = g_list_reverse(self->priv->values); GString *sgs = g_string_new(""); guint i = 0; for( ; list; list = list->next){ if(i > 0) g_string_append(sgs, ", "); g_string_append(sgs, list->data); i++; } gchar *select = g_string_free(sgs, FALSE); gchar *sql = midgard_core_qb_get_sql( self->priv->builder, MQB_SELECT_FIELD, select); if(!sql) return FALSE; GdaDataModel *model = midgard_core_query_get_model( self->priv->builder->priv->mgd, sql); g_free(sql); if(!model) return FALSE; gint rows, columns; gint ret_rows, ret_fields; const GValue *gda_value; const GValue *key_value; GValue *ck_value; GParamSpec *pspec = NULL; ret_rows = gda_data_model_get_n_rows(model); for (rows = 0; rows < ret_rows; rows++) { ret_fields = gda_data_model_get_n_columns(model); for (columns = 0; columns < ret_fields; columns++) { pspec = NULL; key_value = midgard_data_model_get_value_at(model, 0, rows); gda_value = midgard_data_model_get_value_at(model, columns, rows); GValue *new_value = g_new0(GValue, 1); const gchar *col_title = gda_data_model_get_column_title (model, columns); //g_value_init(new_value, G_VALUE_TYPE(gda_value)); //g_value_init(new_value, G_TYPE_STRING); if (G_VALUE_TYPE(gda_value) == GDA_TYPE_TIMESTAMP) { g_value_init(new_value, MGD_TYPE_TIMESTAMP); g_value_transform(gda_value, new_value); } else if (G_VALUE_TYPE (gda_value) == GDA_TYPE_BLOB) { gchar *stringified = midgard_core_query_binary_stringify ((GValue*)gda_value); g_value_init(new_value, G_TYPE_STRING); g_value_take_string(new_value, stringified); } else if (G_VALUE_TYPE (gda_value) == G_TYPE_STRING) { g_value_init(new_value, G_TYPE_STRING); g_value_take_string(new_value, g_value_dup_string (gda_value)); } else { /* Look for property's spec */ pspec = g_object_class_find_property (G_OBJECT_CLASS (self->priv->klass), col_title); if (pspec) { g_value_init(new_value, pspec->value_type); if (G_VALUE_TYPE (gda_value) != pspec->value_type) g_value_transform(gda_value, new_value); else g_value_copy(gda_value, new_value); /* Try metadata class */ } else { MidgardMetadataClass *mklass = (MidgardMetadataClass*) g_type_class_peek(g_type_from_name("MidgardMetadata")); pspec = g_object_class_find_property(G_OBJECT_CLASS(mklass), col_title); if (pspec) { g_value_init(new_value, pspec->value_type); if (G_VALUE_TYPE (gda_value) != pspec->value_type) g_value_transform(gda_value, new_value); else g_value_copy(gda_value, new_value); } } /* Try default string type */ if (!pspec) { g_value_init(new_value, G_TYPE_STRING); if (G_VALUE_TYPE (gda_value) != G_TYPE_STRING) g_value_transform(gda_value, new_value); else g_value_copy(gda_value, new_value); } } ck_value = g_new0(GValue, 1); g_value_init(ck_value, G_TYPE_STRING); if(!G_VALUE_HOLDS_STRING(key_value)) { g_value_transform(key_value, ck_value); } else { g_value_copy(key_value, ck_value); } midgard_collector_set(self, g_value_get_string((GValue*)ck_value), col_title, new_value); if (ret_fields == 1){ midgard_collector_set(self, g_value_get_string((GValue*)ck_value), NULL, NULL); g_value_unset (new_value); g_free (new_value); } g_value_unset(ck_value); //g_value_unset(new_value); g_free(ck_value); } } g_object_unref(model); return TRUE; } /* GOBJECT ROUTINES */ static void _midgard_collector_instance_init( GTypeInstance *instance, gpointer g_class) { MidgardCollector *self = (MidgardCollector *) instance; self->priv = g_new(MidgardCollectorPrivate, 1); self->priv->domain = NULL; self->priv->domain_value = NULL; self->priv->typename = NULL; self->priv->type = 0; self->priv->klass = NULL; self->priv->keyname = NULL; self->priv->datalist = NULL; self->priv->keyname_value = NULL; self->priv->builder = NULL; self->priv->values = NULL; } static void _midgard_collector_finalize(GObject *object) { g_assert(object != NULL); MidgardCollector *self = (MidgardCollector *) object; if(self->priv->datalist) g_datalist_clear(&self->priv->datalist); g_free((gchar *)self->priv->typename); g_free((gchar *)self->priv->domain); g_free((gchar *)self->priv->keyname); if(self->priv->keyname_value) { g_value_unset(self->priv->keyname_value); g_free(self->priv->keyname_value); } g_object_unref(self->priv->builder); GList *l = NULL; for(l = self->priv->values; l != NULL; l = l->next){ g_free(l->data); } if (self->priv->values) { g_list_free(self->priv->values); self->priv->values = NULL; } g_free(self->priv); } static void _midgard_collector_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardCollectorClass *klass = MIDGARD_COLLECTOR_CLASS (g_class); gobject_class->finalize = _midgard_collector_finalize; klass->set_key_property = midgard_collector_set_key_property; klass->add_value_property = midgard_collector_add_value_property; klass->set = midgard_collector_set; klass->get = midgard_collector_get; klass->get_subkey = midgard_collector_get_subkey; klass->merge = midgard_collector_merge; klass->list_keys = midgard_collector_list_keys; klass->remove_key = midgard_collector_remove_key; klass->add_constraint = midgard_collector_add_constraint; klass->begin_group = midgard_collector_begin_group; klass->end_group = midgard_collector_end_group; klass->add_order = midgard_collector_add_order; klass->set_offset = midgard_collector_set_offset; klass->set_limit = midgard_collector_set_limit; klass->count = midgard_collector_count; klass->execute = midgard_collector_execute; } GType midgard_collector_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardCollectorClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_collector_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardCollector), 0, /* n_preallocs */ (GInstanceInitFunc) _midgard_collector_instance_init /* instance_init */ }; type = g_type_register_static (MIDGARD_TYPE_QUERY_BUILDER, "MidgardCollector", &info, 0); } return type; } midgard2-core-10.05.7.1/src/schema.h0000664000175000017500000001260711772046240013576 00000000000000/* * Copyright (C) 2006, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef _PRIVATE_SCHEMA_H #define _PRIVATE_SCHEMA_H #include "midgard_schema.h" #include "midgard_defs.h" typedef struct _MgdSchemaTypeAttr MgdSchemaTypeAttr; typedef struct _MgdSchemaPropertyAttr MgdSchemaPropertyAttr; struct _MgdSchemaPropertyAttr{ GType gtype; GValue value; guint8 access_flags; GValue *default_value; const gchar *type; const gchar *name; const gchar *dbtype; const gchar *field; gboolean dbindex; const gchar *table; const gchar *tablefield; const gchar *upfield; const gchar *parentfield; const gchar *primaryfield; const gchar *link; const gchar *link_target; gboolean is_link; gboolean is_linked; gboolean is_primary; gboolean is_reversed; gboolean is_private; gboolean is_unique; gchar *description; GHashTable *user_values; MgdSchemaPropertyAttr *derived; }; struct _MgdSchemaTypeAttr { gchar *name; guint base_index; guint num_properties; guint class_nprop; GParamSpec **params; MgdSchemaPropertyAttr **properties; GHashTable *prophash; GHashTable *tableshash; GSList *_properties_list; const gchar *tables; const gchar *table; const gchar *view_table; /* Valid, only in case of MidgardView derived class */ const gchar *parent; const gchar *primary; const gchar *property_up; const gchar *property_parent; gchar *parentfield; gchar *upfield; gchar *primaryfield; GSList *children; gchar *sql_select_full; const gchar *unique_name; gchar *copy_from; gchar *extends; GSList *joins; GSList *constraints; gboolean is_view; gchar *sql_create_view; gchar *metadata_class_name; MidgardMetadataClass *metadata_class_ptr; GHashTable *user_values; gboolean is_abstract; gboolean is_iface; gboolean is_mixin; MidgardSchema *schema; }; #define MGD_TYPE_ATTR_METADATA_CLASS(__typeattr) (__typeattr->metadata_class_name) /* MgdSchema storage utilities */ MgdSchemaTypeAttr *midgard_schema_lookup_type (MidgardSchema *schema, gchar *type); GType midgard_core_schema_register_type (MgdSchemaTypeAttr *type); GType midgard_type_register (MgdSchemaTypeAttr *data); GType midgard_type_register_abstract (MgdSchemaTypeAttr *data, GType parent_type); GType midgard_core_type_register_interface (MgdSchemaTypeAttr *type_attr); MgdSchemaTypeAttr *midgard_core_schema_type_attr_new (void); void midgard_core_schema_type_attr_free (MgdSchemaTypeAttr *prop); void midgard_core_schema_type_attr_extend (MgdSchemaTypeAttr *src, MgdSchemaTypeAttr *dst); gchar **midgard_core_schema_type_list_extends (MgdSchemaTypeAttr *type_attr, guint *n_types); void midgard_core_schema_type_set_table (MgdSchemaTypeAttr *prop, const gchar *table); void midgard_core_schema_type_add_table (MgdSchemaTypeAttr *type, const gchar *table); void midgard_core_schema_type_build_static_sql (MgdSchemaTypeAttr *type_attr); void midgard_core_schema_type_initialize_paramspec (MgdSchemaTypeAttr *type); void midgard_core_schema_type_validate_fields (MgdSchemaTypeAttr *type); MgdSchemaPropertyAttr *midgard_core_schema_type_property_attr_new_empty (void); MgdSchemaPropertyAttr *midgard_core_schema_type_property_attr_new (void); void midgard_core_schema_type_property_attr_free (MgdSchemaPropertyAttr *prop); void midgard_core_schema_type_property_copy (MgdSchemaPropertyAttr *src_prop, MgdSchemaTypeAttr *dest_type); void midgard_core_schema_type_property_set_gtype (MgdSchemaPropertyAttr *prop, const gchar *type); void midgard_core_schema_type_property_set_tablefield (MgdSchemaPropertyAttr *prop, const gchar *table, const gchar *field); void midgard_core_schema_type_property_set_table (MgdSchemaPropertyAttr *prop, const gchar *table); MgdSchemaPropertyAttr *midgard_core_schema_type_property_lookup (MgdSchemaTypeAttr *type, const gchar *name); GType midgard_core_schema_gtype_from_string (const gchar *type); #define MGD_SCHEMA_XML_NAMESPACE "http:/""/www.midgard-project.org/repligard/1.4" #define MGD_SCHEMA_XML_ROOT_NAME "Schema" /* RESERVED WORDS */ #define TYPE_RW_TYPE "type" #define TYPE_RW_NAME "name" #define TYPE_RW_PARENT "parent" #define TYPE_RW_TABLE "table" #define TYPE_RW_COPY "copy" #define TYPE_RW_EXTENDS "extends" #define TYPE_RW_METADATA "metadata" #define TYPE_RW_USERVALUES "user_values" #define TYPE_RW_PROPERTY "property" #define TYPE_RW_ABSTRACT "abstract" #define TYPE_RW_IFACE "interface" #define TYPE_RW_MIXIN "mixin" #define PROP_RW_PRIVATE "private" #define PROP_RW_FIELD "field" #define PROP_RW_INDEX "index" #define PROP_RW_UPFIELD "upfield" #define PROP_RW_PARENTFIELD "parentfield" #define PROP_RW_PRIMARY "primaryfield" #define PROP_RW_REVERSE "reverse" #define PROP_RW_LINK "link" #endif /* _PRIVATE_SCHEMA_H */ midgard2-core-10.05.7.1/src/query_builder.c0000664000175000017500000010473111772046240015204 00000000000000/* * Copyright (c) 2005 Jukka Zitting * Copyright (c) 2005, 2007, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "midgard_schema.h" #include "query_builder.h" #include "query_constraint.h" #include "group_constraint.h" #include "query_order.h" #include "schema.h" #include "midgard_core_query_builder.h" #include "midgard_error.h" #include "midgard_core_object.h" #include "midgard_core_query.h" #include "midgard_datatypes.h" #include "midgard_reflection_property.h" #include "midgard_object.h" #include "midgard_metadata.h" #include "midgard_user.h" #include "midgard_core_object_class.h" #include "midgard_dbobject.h" #include "midgard_timestamp.h" #include "midgard_core_metadata.h" #include "midgard_view.h" #include "midgard_reflector_object.h" #include "midgard_core_config.h" /* Internal prototypes , I am not sure if should be included in API */ gchar *midgard_query_builder_get_object_select(MidgardQueryBuilder *builder, guint select_type); /* static gboolean _mqb_is_grouping(MidgardQueryBuilder *builder) { return FALSE; if(builder->priv->is_grouping) { g_warning("Group condition not correctly closed ( missed 'end_group' ?) "); return TRUE; } return FALSE; } */ static gboolean __type_is_valid(GType type) { GType _type = type; if(!_type) return FALSE; if (g_type_is_a (type, MIDGARD_TYPE_DBOBJECT)) return TRUE; return FALSE; } /** * midgard_query_builder_new: * @mgd: #MidgardConnection instance * @classname: any #MidgardDBObjectClass derived class' name * * Returns: new #MidgardQueryBuilder instance or %NULL if target class is not registered in GType system * or it's not #MidgardDBObjectClass class derived one. */ MidgardQueryBuilder *midgard_query_builder_new( MidgardConnection *mgd, const gchar *classname) { g_assert(mgd != NULL); g_assert(classname != NULL); GType class_type = g_type_from_name(classname); if(!__type_is_valid(class_type)) { g_warning("Can not initialize Midgard Query Builder for '%s'. It's not registered GType system class", classname); MIDGARD_ERRNO_SET(mgd, MGD_ERR_INVALID_OBJECT); return NULL; } MidgardQueryBuilder *builder = g_object_new(MIDGARD_TYPE_QUERY_BUILDER, NULL); builder->priv = midgard_query_builder_private_new(); builder->priv->mgd = mgd; builder->priv->type = g_type_from_name(classname); builder->priv->include_deleted = FALSE; builder->priv->error = 0; MidgardDBObjectClass *klass = (MidgardDBObjectClass*) g_type_class_peek(class_type); if (klass->dbpriv == NULL) { g_warning("Given %s class has no storage definitions", g_type_name(class_type)); g_object_unref(builder); return NULL; } builder->priv->schema = klass->dbpriv->storage_data; gchar **tables = g_strsplit(midgard_core_class_get_tables(MIDGARD_DBOBJECT_CLASS(klass)), ",", 0); guint i = 0; while(tables[i] != NULL) { midgard_core_qb_add_table(builder, (const gchar *)g_strchug(tables[i])); i++; } g_strfreev(tables); builder->priv->offset = 0; builder->priv->limit = G_MAXUINT; if (builder->priv->type && builder->priv->schema) { return builder; } else { g_object_unref(builder); return NULL; } } /** * midgard_query_builder_create_builder: * * Static constructor. Invokes midgard_query_builder_new(). * This function is added for language bindings, in which, that function * can not be invoked explicitly. * * Returns: (transfer full): new #MidgardQueryBuilder instance * * Since: 10.05.1 */ MidgardQueryBuilder * midgard_query_builder_create_builder (MidgardConnection *mgd, const gchar *classname) { return midgard_query_builder_new (mgd, classname); } void midgard_query_builder_free(MidgardQueryBuilder *builder) { g_assert(builder != NULL); midgard_query_builder_private_free(builder->priv); } /** * midgard_query_builder_add_constraint: * @builder: #MidgardQueryBuilder instance * @name: property name used for this constraint * @op: comparison operator * @value: value used in comparison * * Adds a constraint to the given query builder. The constraint is * expressed as a triple of a field name, a comparison operator, and * a comparison value. * * * @name referes to a property of the queried Midgard object class. * For example, #MidgardQueryBuilder has been initialized for person * class which has lastname property registered. * * * * GValue value = {0, }; * g_value_init(&value, G_TYPE_STRING); * g_value_set_string(&value, "smith"); * * midgard_query_builder_add_constraint(builder, "lastname", "=", &value); * * * * * * It also can be name of the linked class property or reserved one. * A dot '.' is used to separate properties for special constraints. * If such special constraint property is used, #MidgardQueryBuilder * performs right join. * * * First property is the one registered for given class which is a link * to property of different class. Second is a property of target class. * For example, person object has property 'friend' which holds some identifier * (id or guid) to friend class property, and friend class has property 'nick'. * In such case we can use constraint and comparison using friend property, * even if #MidgardQueryBuilder has been initialized for person class. * * * * GValue value = {0, }; * g_value_init(&value, G_TYPE_STRING); * g_value_set_string(&value, "Lancelot"); * * midgard_query_builder_add_constraint(builder, "friend.nick", "=", &value); * * * * * * There are three reserved words which have special meaning for query builder. * 'metadata', 'parameter' and 'attachment'. If one of them is used, query builder * will make (if necessary) right join and query objects against dependent class table. * * * * GValue value = {0, }; * g_value_init(&value, G_TYPE_STRING); * g_value_set_string(&value, "avatar"); * * midgard_query_builder_add_constraint(builder, "attachment.name", "=", &value); * * * * * * * * * The comparison operator is a string representation of the requested comparison. * Available operators are =, <>, <, >, <=, >=, LIKE, NOT LIKE, IN, INTREE. * * * * The given @value is copied and converted into the property type before comparison. * * * Returns: %TRUE if constraint is valid, %FALSE otherwise */ gboolean midgard_query_builder_add_constraint( MidgardQueryBuilder *builder, const gchar *name, const gchar *op, const GValue *value) { g_assert(builder); g_assert(name); g_assert(op); g_assert(value); MidgardCoreQueryConstraint *constraint = midgard_core_query_constraint_new(); midgard_core_query_constraint_set_builder(constraint, builder); midgard_core_query_constraint_set_class(constraint, MIDGARD_DBOBJECT_CLASS(g_type_class_peek(builder->priv->type))); if(!midgard_core_query_constraint_add_operator(constraint, op)) goto return_false; if(!midgard_core_query_constraint_parse_property(&constraint, MIDGARD_DBOBJECT_CLASS(g_type_class_peek(builder->priv->type)), name)) goto return_false; if(!midgard_core_query_constraint_add_value(constraint, value)) goto return_false; if (!midgard_core_query_constraint_build_condition(NULL, constraint)) goto return_false; /* FIXME, table should be stored per every constraint, order, whatever */ midgard_core_qb_add_table(builder, constraint->priv->prop_left->table); if(builder->priv->grouping_ref > 0) { MidgardGroupConstraint *group = (MidgardGroupConstraint *)builder->priv->group_constraint; midgard_group_constraint_add_constraint(group, constraint); return TRUE; } midgard_core_qb_add_constraint(builder, constraint); return TRUE; return_false: g_object_unref (constraint); return FALSE; } /** * midgard_query_builder_add_constraint_with_property: * @builder: #MidgardQueryBuilder instance * @property_a: property name * @op: comparison operator * @property_b: property name * * Adds named property constraint to the given query builder. * Unlike add_constraint method, this one accepts property name * instead of scalar value. The difference is that with add_constraint * method you can compare property with particular value, while using * add_constraint_with_property method you can compare two different * properties without any need to know their values. * For example, you should use this method if you want to select only * those objects which has been revised after publication time, and particular * date doesn't matter. * * * * * midgard_query_builder_add_constraint_with_property(builder, "metadata.revised", ">", "metadata.published"); * * * * * @See: midgard_query_builder_add_constraint() * * Returns: %TRUE if properties' names are valid, %FALSE otherwise */ gboolean midgard_query_builder_add_constraint_with_property( MidgardQueryBuilder *builder, const gchar *property_a, const gchar *op, const gchar *property_b) { g_assert(builder != NULL); g_assert(property_a != NULL); g_assert(op != NULL); g_assert(property_b != NULL); MidgardDBObjectClass *klass = MIDGARD_DBOBJECT_CLASS(g_type_class_peek(builder->priv->type)); MidgardCoreQueryConstraint *constraint = midgard_core_query_constraint_new(); midgard_core_query_constraint_set_builder(constraint, builder); midgard_core_query_constraint_set_class(constraint, klass); if(!midgard_core_query_constraint_parse_property(&constraint, klass, property_a)) goto return_false; constraint->priv->current = constraint->priv->prop_right; if(!midgard_core_query_constraint_parse_property(&constraint, klass, property_b)) goto return_false; constraint->priv->condition_operator = g_strdup(op); if (!midgard_core_query_constraint_build_condition(NULL, constraint)) goto return_false; midgard_core_qb_add_table(builder, constraint->priv->prop_left->table); midgard_core_qb_add_table(builder, constraint->priv->prop_right->table); if(builder->priv->grouping_ref > 0) { MidgardGroupConstraint *group = builder->priv->group_constraint; midgard_group_constraint_add_constraint(group, constraint); return TRUE; } else { midgard_core_qb_add_constraint(builder, constraint); } return TRUE; return_false: g_object_unref (constraint); return FALSE; } /** * midgard_query_builder_begin_group: * @builder: #MidgardQueryBuilder instance * @type: group type * * Starts a constraint group of the given type. A conjunctive constraint * group @type (AND) requires that all component constraints match the * queried objects, while a disjunctive group @type (OR) requires just * one of the component constraints to match. * * Allowed group @type: 'AND' or 'OR' * * Returns: %TRUE if the @type is valid, %FALSE otherwise */ gboolean midgard_query_builder_begin_group(MidgardQueryBuilder *builder, const gchar *type) { g_assert(builder != NULL); const gchar *group_op = type; if(group_op == NULL) group_op = "OR"; MidgardGroupConstraint *group = midgard_group_constraint_new(group_op); if(!group) return FALSE; /* Check if this is nested grouping */ if(builder->priv->grouping_ref > 0) { MidgardGroupConstraint *pgroup = builder->priv->group_constraint; pgroup->nested = g_slist_prepend(pgroup->nested, group); group->parent_group = pgroup; } else { builder->priv->groups = g_slist_prepend(builder->priv->groups, group); } builder->priv->group_constraint = group; builder->priv->grouping_ref++; builder->priv->is_grouping = TRUE; return TRUE; } /** * midgard_query_builder_end_group: * @builder: #MidgardQueryBuilder instance * * Closes the most recently opened constraint group. The client should * ensure proper nesting by closing all constraint groups before the * containing query is executed. * * Returns: %TRUE if a constraint group was closed, or %FALSE if no * open constraint groups were found * */ gboolean midgard_query_builder_end_group (MidgardQueryBuilder *builder) { g_assert(builder != NULL); if(builder->priv->grouping_ref == 0) { g_warning("Missed 'begin_group' method"); return FALSE; } MidgardGroupConstraint *group = NULL; if(builder->priv->group_constraint) group = MIDGARD_GROUP_CONSTRAINT(builder->priv->group_constraint); if(group && group->parent_group) { builder->priv->group_constraint = group->parent_group; } else { builder->priv->group_constraint = NULL; } builder->priv->grouping_ref--; return TRUE; } /** * midgard_query_builder_add_order: * @builder: #MidgardQueryBuilder instance * @name: property name * @dir: sort direction * * Adds an ordering constraint to the query. An ordering constraint consists * of a property name and a sort direction. The objects returned by this * query will be sorted by the given property in the given direction * (ascending or descending). Multiple ordering constraints are applied in * the order they were added. * * Allowed sort directions: 'ASC' or 'DESC' * * Property name pattern is described in midgard_query_builder_add_constraint() * * Returns: %TRUE if the ordering constraint is valid, %FALSE otherwise * */ gboolean midgard_query_builder_add_order (MidgardQueryBuilder *builder, const gchar *name, const gchar *dir) { g_assert(builder != NULL); g_assert(name != NULL); MidgardQueryOrder *order = midgard_core_query_order_new(builder, name, dir); if (order) { midgard_core_qb_add_order(builder, order); return TRUE; } else { g_warning("Skipping a ordering constraint specification"); return FALSE; } } /** * midgard_query_builder_set_limit: * @builder: #MidgardQueryBuilder instance * @limit: query limit * * Sets the maximum number of objects to return when the query is executed. * A query will by default return all matching objects, but the @limit setting * can be used to restrict the potentially large number of returned objects. * The @limit is applied only after the matching objects have been identified * and sorted and after the optional start offset has been applied. * * Setting a @limit on the number of returned objects is normally only * reasonable when one or more ordering constraints and optionally an offset * setting are applied to the query. * * @See: midgard_query_builder_set_offset() */ void midgard_query_builder_set_limit (MidgardQueryBuilder *builder, guint limit) { g_assert(builder != NULL); builder->priv->limit = limit; } /** * midgard_query_builder_set_offset: * @builder: #MidgardQueryBuilder instance * @offset: query offset * * Sets the start @offset of the objects to return when the query is executed. * The start @offset is applied after all the matching objects have been * identified and sorted according to the given ordering constraints. The * first @offset objects are skipped and only the remaining (if any) objects * are returned to the client. * * Setting a start offset is normally only reasonable when one or more * ordering constraints are applied to the query. A start offset is usually * accompanied by a limit setting. * * @See: midgard_query_builder_set_offset() */ void midgard_query_builder_set_offset (MidgardQueryBuilder *builder, guint offset) { g_assert(builder != NULL); builder->priv->offset = offset; } static GSList *midgard_query_builder_execute_or_count(MidgardQueryBuilder *builder, MidgardTypeHolder *holder, guint select_type) { g_assert(builder != NULL); if (builder->priv->grouping_ref > 0) { g_warning("Incorrect constraint grouping. Missed 'end_group'?"); return NULL; } MidgardUser *user = midgard_connection_get_user(builder->priv->mgd); if (builder->priv->type == MIDGARD_TYPE_USER) { if (user && midgard_user_is_user(user)) { if (MGD_OBJECT_GUID (user) == NULL) { MIDGARD_ERRNO_SET(builder->priv->mgd, MGD_ERR_ACCESS_DENIED); g_warning("Type incompatible with Midgard Query Builder"); return NULL; } GValue gval = {0, }; g_value_init(&gval, G_TYPE_STRING); g_value_set_string(&gval, MIDGARD_DBOBJECT (user)->dbpriv->guid); midgard_query_builder_add_constraint(builder, "guid", "=", &gval); } } g_signal_emit (builder, MIDGARD_QUERY_BUILDER_GET_CLASS (builder)->signal_id_execution_start, 0); GSList *list = midgard_core_qb_set_object_from_query(builder, select_type, NULL); if (list == NULL) { if (holder) holder->elements = 0; } else { if (holder) holder->elements = g_slist_length(list); } g_signal_emit (builder, MIDGARD_QUERY_BUILDER_GET_CLASS (builder)->signal_id_execution_end, 0); return list; } /** * midgard_query_builder_execute: * @builder: #MidgardQueryBuilder instance * @n_objects: a pointer to store number of returned objects * * Executes the built query. * * Objects in returned array are #MidgardDBObject derived ones, * and typecasted to base GObject. You can safely typecast them to * the type, which #MidgardQueryBuilder has been initialized for. * * In case of any error, #MidgardConnection error is set. * * Returns: (transfer full): NULL terminated array of objects, or NULL if none found */ GObject **midgard_query_builder_execute( MidgardQueryBuilder *builder, guint *n_objects) { g_assert(builder != NULL); g_assert(n_objects != NULL); *n_objects = 0; guint i = 0; GSList *list = NULL; MIDGARD_ERRNO_SET(builder->priv->mgd, MGD_ERR_OK); MidgardTypeHolder *holder = g_new(MidgardTypeHolder, 1); list = midgard_query_builder_execute_or_count(builder, holder, MQB_SELECT_OBJECT); if(list == NULL) { g_free(holder); return NULL; } *n_objects = holder->elements; MidgardObject **objects = g_new(MidgardObject *, holder->elements+1); GSList *l = NULL; for(l = list; l != NULL; l = l->next){ objects[i] = l->data; i++; } objects[i] = NULL; /* Terminate by NULL */ g_slist_free(list); g_free(holder); return (GObject **)objects; } /** * midgard_query_builder_count: * @builder: #MidgardQueryBuilder instance * * Returns the number of objects that this query would return when executed * without limit or start offset settings. * * Returns: number of object matched by this query */ guint midgard_query_builder_count (MidgardQueryBuilder *builder) { g_assert(builder != NULL); MIDGARD_ERRNO_SET(builder->priv->mgd, MGD_ERR_OK); GSList *list = midgard_query_builder_execute_or_count(builder, NULL, MQB_SELECT_GUID); if(!list) return 0; MidgardTypeHolder *holder = (MidgardTypeHolder *)list->data; if(!holder) { g_slist_free(list); return 0; } guint elements = holder->elements; g_free(holder); g_slist_free(list); return elements; } gchar *midgard_query_builder_get_object_select( MidgardQueryBuilder *builder, guint select_type){ g_assert(builder != NULL); g_assert(builder->priv->type); MidgardObjectClass *klass = (MidgardObjectClass*) g_type_class_peek(builder->priv->type); const gchar *table = midgard_core_class_get_table(MIDGARD_DBOBJECT_CLASS(klass)); if (!table){ g_warning("Object '%s' has no table or storage defined!", g_type_name(builder->priv->type)); return NULL; } GString *select = g_string_new(""); /* We are getting only guids */ if(select_type == MQB_SELECT_GUID){ g_string_append(select, "COUNT(*) "); return g_string_free(select, FALSE); } /* guid hardcoded ( inherited from MidgardObjectClass ) * metadata properties hardcoded ( defined in midgard_metadata ) */ /* FIXME, move this to particular class implementation, so we can reuse MidgardDBObject derived class data only */ if (MIDGARD_IS_OBJECT_CLASS (klass)) g_string_append_printf(select, "%s.guid, ", table); if (MIDGARD_DBOBJECT_CLASS(klass)->dbpriv->has_metadata) { g_string_append_printf(select, "%s.metadata_creator, " "%s.metadata_created, " "%s.metadata_revisor, " "%s.metadata_revised, " "%s.metadata_revision, " "%s.metadata_locker, " "%s.metadata_locked, " "%s.metadata_approver, " "%s.metadata_approved, " "%s.metadata_authors, " "%s.metadata_owner, " "%s.metadata_schedule_start, " "%s.metadata_schedule_end, " "%s.metadata_hidden, " "%s.metadata_nav_noentry, " "%s.metadata_size, " "%s.metadata_published, " "%s.metadata_exported, " "%s.metadata_imported, " "%s.metadata_deleted, " "%s.metadata_score, " "%s.metadata_islocked, " "%s.metadata_isapproved " ", ", table, table, table, table, table, table, table, table, table, table, table, table, table, table, table, table, table, table, table, table, table, table, table); /* TODO, Set select which suits better */ } if (builder->priv->schema->sql_select_full == NULL || MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->set_static_sql_select != NULL) MIDGARD_DBOBJECT_CLASS (klass)->dbpriv->set_static_sql_select (builder->priv->mgd, MIDGARD_DBOBJECT_CLASS (klass)); if (builder->priv->schema->sql_select_full != NULL) { g_string_append_printf(select, " %s", builder->priv->schema->sql_select_full); } return g_string_free(select, FALSE); } #define _SET_METADATA_UINT(__prop, __value) \ if(G_VALUE_HOLDS_UINT(__value)) { \ __prop = \ g_value_get_uint(__value); \ } \ if(G_VALUE_HOLDS_INT(__value)) { \ __prop = \ (guint)g_value_get_int(__value); \ } #define _SET_METADATA_TIMESTAMP(__pname) { \ g_value_init(&mt, MGD_TYPE_TIMESTAMP); \ g_value_transform(gvalue, &mt); \ midgard_core_metadata_set_##__pname(mdata, &mt); \ g_value_unset(&mt); } static void __mqb_set_metadata(MidgardMetadata *mdata, GdaDataModel *model, gint i) { guint col = 0; const GValue *gvalue; GValue mt = {0, }; /* creator */ gvalue = midgard_data_model_get_value_at(model, ++col, i); midgard_core_metadata_set_creator (mdata, gvalue); /* created */ gvalue = midgard_data_model_get_value_at(model, ++col, i); _SET_METADATA_TIMESTAMP(created); /* revisor */ gvalue = midgard_data_model_get_value_at(model, ++col, i); if(G_VALUE_HOLDS_STRING (gvalue)) midgard_core_metadata_set_revisor (mdata, gvalue); /* revised */ gvalue = midgard_data_model_get_value_at(model, ++col, i); _SET_METADATA_TIMESTAMP(revised); /* revision */ gvalue = midgard_data_model_get_value_at(model, ++col, i); mdata->priv->revision = 0; _SET_METADATA_UINT(mdata->priv->revision, gvalue); /* locker */ gvalue = midgard_data_model_get_value_at(model, ++col, i); if(G_VALUE_HOLDS_STRING (gvalue)) midgard_core_metadata_set_locker (mdata, gvalue); /* locked */ gvalue = midgard_data_model_get_value_at(model, ++col, i); _SET_METADATA_TIMESTAMP(locked); /* approver */ gvalue = midgard_data_model_get_value_at(model, ++col, i); if(G_VALUE_HOLDS_STRING (gvalue)) midgard_core_metadata_set_approver (mdata, gvalue); /* approved */ gvalue = midgard_data_model_get_value_at(model, ++col, i); _SET_METADATA_TIMESTAMP(approved); /* authors */ gvalue = midgard_data_model_get_value_at(model, ++col, i); if(G_VALUE_HOLDS_STRING (gvalue)) midgard_core_metadata_set_authors (mdata, gvalue); /* owner */ gvalue = midgard_data_model_get_value_at(model, ++col, i); if(G_VALUE_HOLDS_STRING (gvalue)) midgard_core_metadata_set_owner (mdata, gvalue); /* schedule_start */ gvalue = midgard_data_model_get_value_at(model, ++col, i); _SET_METADATA_TIMESTAMP (schedule_start); /* schedule_end */ gvalue = midgard_data_model_get_value_at(model, ++col, i); _SET_METADATA_TIMESTAMP (schedule_end); /* hidden */ gvalue = midgard_data_model_get_value_at(model, ++col, i); mdata->priv->hidden = FALSE; MIDGARD_GET_BOOLEAN_FROM_VALUE (mdata->priv->hidden, gvalue); /* nav_noentry */ gvalue = midgard_data_model_get_value_at(model, ++col, i); MIDGARD_GET_BOOLEAN_FROM_VALUE (mdata->priv->nav_noentry, gvalue); /* size */ gvalue = midgard_data_model_get_value_at(model, ++col, i); mdata->priv->size = 0; if(G_VALUE_HOLDS_INT(gvalue)) { mdata->priv->size = (guint) g_value_get_int(gvalue); } /* published */ gvalue = midgard_data_model_get_value_at(model, ++col, i); _SET_METADATA_TIMESTAMP (published); /* exported */ gvalue = midgard_data_model_get_value_at(model, ++col, i); _SET_METADATA_TIMESTAMP(exported); /* imported */ gvalue = midgard_data_model_get_value_at(model, ++col, i); _SET_METADATA_TIMESTAMP(imported); /* deleted */ gvalue = midgard_data_model_get_value_at(model, ++col, i); MIDGARD_GET_BOOLEAN_FROM_VALUE (mdata->priv->deleted, gvalue); /* score */ gvalue = midgard_data_model_get_value_at(model, ++col, i); mdata->priv->score = 0; if(G_VALUE_HOLDS_INT(gvalue)) { mdata->priv->score = g_value_get_int(gvalue); } /* islocked */ gvalue = midgard_data_model_get_value_at(model, ++col, i); MIDGARD_GET_BOOLEAN_FROM_VALUE (mdata->priv->is_locked, gvalue); /* isapproved */ gvalue = midgard_data_model_get_value_at(model, ++col, i); MIDGARD_GET_BOOLEAN_FROM_VALUE (mdata->priv->is_approved, gvalue); return; } GSList * midgard_core_qb_set_object_from_query (MidgardQueryBuilder *builder, guint select_type, MidgardObject **nobject) { g_assert(builder != NULL); guint ret_rows, ret_fields; MidgardConnection *mgd = builder->priv->mgd; gchar *sql = midgard_core_qb_get_sql( builder, select_type, midgard_query_builder_get_object_select(builder, select_type)); GSList *olist = NULL; MidgardDBObjectClass *dbklass = MIDGARD_DBOBJECT_CLASS(g_type_class_peek(builder->priv->type)); if (!dbklass) { MIDGARD_ERRNO_SET_STRING (mgd, MGD_ERR_INTERNAL, "Failed to peek MidgardDBObjectClass pointer"); return NULL; } if (dbklass->dbpriv->set_from_sql) { if (select_type != MQB_SELECT_GUID) { olist = dbklass->dbpriv->set_from_sql(mgd, builder->priv->type, ((const gchar *)sql)); g_free(sql); return olist; } } GdaDataModel *model = midgard_core_query_get_model(builder->priv->mgd, sql); g_free(sql); if(!model) return NULL; MidgardObject *object = NULL; gint rows, columns; const GValue *gvalue = NULL; ret_rows = gda_data_model_get_n_rows(model); ret_fields = gda_data_model_get_n_columns(model); /* records found , allocate as many objects as many returned rows */ GSList *list = NULL; if(ret_rows == 0) { g_object_unref(model); return list; } /* We count rows only */ if(select_type == MQB_SELECT_GUID) { gvalue = midgard_data_model_get_value_at(model, 0, 0); if (!gvalue || !G_IS_VALUE (gvalue)) { g_object_unref (model); return 0; } MidgardTypeHolder *holder = g_new(MidgardTypeHolder, 1); GValue val = {0, }; g_value_init (&val, G_TYPE_INT64); g_value_transform (gvalue, &val); holder->elements = (guint)g_value_get_int64((GValue*)&val); list = g_slist_append(list, holder); g_object_unref(model); g_value_unset (&val); return list; } /* Get every row */ for (rows = 0; rows < ret_rows; rows++) { if(!nobject) object = g_object_new (builder->priv->type, "connection", mgd, NULL); else object = *nobject; MGD_OBJECT_IN_STORAGE (object) = TRUE; if(dbklass->dbpriv->__set_from_sql != NULL) { dbklass->dbpriv->__set_from_sql(MIDGARD_DBOBJECT(object), model, rows); } else { /* Compute number of metadata properties */ guint n_md_props = 0; MidgardMetadata *mklass = (MidgardMetadata *)MGD_DBCLASS_METADATA_CLASS (dbklass); if (mklass) n_md_props = g_hash_table_size (MGD_DBCLASS_STORAGE_DATA (mklass)->prophash); guint __cols = n_md_props + 1; /* Add one for guid */ /* we have guid and metadata columns first */ for (columns = __cols; columns < ret_fields; columns++) { gvalue = midgard_data_model_get_value_at(model, columns, rows); const gchar *coltitle = gda_data_model_get_column_title(model, columns); GParamSpec *pspec = g_object_class_find_property(G_OBJECT_GET_CLASS(object), coltitle); if(G_IS_VALUE(gvalue) && !gda_value_is_null(gvalue)) { if (!pspec) { g_warning("Failed to found (unregistered) %s property (%s class)", coltitle, G_OBJECT_TYPE_NAME(object)); continue; } if (G_VALUE_TYPE (gvalue) == GDA_TYPE_BLOB && G_TYPE_FUNDAMENTAL (pspec->value_type) == G_TYPE_STRING) { gchar *stringified = midgard_core_query_binary_stringify ((GValue*)gvalue); g_object_set (G_OBJECT (object), coltitle, stringified, NULL); g_free (stringified); } else if (pspec->value_type != G_VALUE_TYPE (gvalue)) { GValue _convert = {0, }; g_value_init (&_convert, pspec->value_type); if (g_value_transform (gvalue, &_convert)) { g_object_set_property (G_OBJECT (object), coltitle, &_convert); } else { g_warning ("Failed to convert %s to %s for %s property", G_VALUE_TYPE_NAME (gvalue), G_VALUE_TYPE_NAME (&_convert), coltitle); } g_value_unset (&_convert); } else { g_object_set_property(G_OBJECT(object), coltitle, gvalue); } } else if (gda_value_is_null(gvalue)) { switch (pspec->value_type) { case G_TYPE_INT: case G_TYPE_UINT: case G_TYPE_BOOLEAN: g_object_set(G_OBJECT(object), coltitle, 0, NULL); break; case G_TYPE_STRING: g_object_set(G_OBJECT(object), coltitle, "", NULL); break; default: g_warning("Found (%s) not a value at %d.%d (%s)", g_type_name(pspec->value_type), columns, rows, gda_data_model_get_column_title(model, columns)); break; } } } } /* Set guid */ const gchar *guid; gvalue = midgard_data_model_get_value_at(model, 0, rows); if(G_IS_VALUE(gvalue) && G_VALUE_HOLDS_STRING(gvalue)){ guid = g_value_get_string(gvalue); g_free((gchar *)MIDGARD_DBOBJECT(object)->dbpriv->guid); MIDGARD_DBOBJECT(object)->dbpriv->guid = g_strdup(guid); } /* Set metadata */ MidgardMetadata *metadata = MGD_DBOBJECT_METADATA (object); if (metadata) { GParamSpec *pspec = g_object_class_find_property(G_OBJECT_GET_CLASS(object), "metadata"); if (pspec) __mqb_set_metadata(metadata, model, rows); } list = g_slist_append(list, G_OBJECT(object)); } g_object_unref(model); return list; } /** * midgard_query_builder_get_type_name: * @builder: #MidgardQueryBuilder instance * * Returns type name of the type which is currently used by Query Builder. * * This function should be used on language binding level , when internal * Query Builder's instance is already created and language binding object * should be instanciated. * * Returned type name is a pointer and is owned by GLib system. * Caller shouldn't free it. * * Returns: name of the class, which query builder is initialized for. */ const gchar* midgard_query_builder_get_type_name (MidgardQueryBuilder *builder) { g_assert(builder != NULL); return g_type_name(builder->priv->type); } /** * midgard_query_builder_include_deleted: * @builder: #MidgardQueryBuilder instance * * Query all objects - deleted and undeleted. * * This is valid for a class for which metadata is defined ('deleted' property * of MidgardMetadata class), or class has 'metadata' property installed. * If none of them is found, this method does nothing. */ void midgard_query_builder_include_deleted (MidgardQueryBuilder *builder) { g_assert(builder); builder->priv->include_deleted = TRUE; } /* GOBJECT ROUTINES*/ static void _midgard_query_builder_finalize(GObject *object) { midgard_query_builder_free( (MidgardQueryBuilder *)object); } static void _midgard_query_builder_class_init( gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardQueryBuilderClass *klass = MIDGARD_QUERY_BUILDER_CLASS (g_class); gobject_class->finalize = _midgard_query_builder_finalize; klass->add_constraint = midgard_query_builder_add_constraint; klass->add_constraint_with_property = midgard_query_builder_add_constraint_with_property; klass->begin_group = midgard_query_builder_begin_group; klass->end_group = midgard_query_builder_end_group; klass->add_order = midgard_query_builder_add_order; klass->set_limit = midgard_query_builder_set_limit; klass->set_offset = midgard_query_builder_set_offset; klass->include_deleted = midgard_query_builder_include_deleted; klass->execute = midgard_query_builder_execute; klass->count = midgard_query_builder_count; klass->signal_id_execution_start = g_signal_new("execution-start", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_RUN_LAST | G_SIGNAL_NO_RECURSE | G_SIGNAL_NO_HOOKS, G_STRUCT_OFFSET (MidgardQueryBuilderClass, execution_start), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); klass->signal_id_execution_end = g_signal_new("execution-end", G_TYPE_FROM_CLASS(g_class), G_SIGNAL_RUN_LAST | G_SIGNAL_NO_RECURSE | G_SIGNAL_NO_HOOKS, G_STRUCT_OFFSET (MidgardQueryBuilderClass, execution_end), NULL, /* accumulator */ NULL, /* accu_data */ g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0); } static void _midgard_query_builder_instance_init( GTypeInstance *instance, gpointer g_class) { } /* Registers the type as a fundamental GType unless already registered. */ GType midgard_query_builder_get_type(void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQueryBuilderClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_query_builder_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardQueryBuilder), 0, /* n_preallocs */ (GInstanceInitFunc) _midgard_query_builder_instance_init /* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardQueryBuilder", &info, 0); } return type; } midgard2-core-10.05.7.1/src/midgard_query_row.c0000664000175000017500000000546211772046240016055 00000000000000/* * Copyright (C) 2012 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_query_row.h" struct _MidgardQueryRow { GObject parent; }; /** * midgard_query_row_get_value: * @self: #MidgardQueryRow instance * @column_name: (allow-none): Column name which holds value * @error: pointer to store error * * Returns value for specified column. * @column_name can be ommited if column name is uniqe in the #MidgardQueryResult * * Since: 10.05.6 */ const GValue* midgard_query_row_get_value (MidgardQueryRow *self, const gchar *column_name, GError **error) { return MIDGARD_QUERY_ROW_GET_INTERFACE (self)->get_value (self, column_name, error); } /** * midgard_query_row_get_values: * @self: #MidgardQueryRow instance * @error: a pointer to store error * * Returns: (transfer container): array of values stored in a row or %NULL. * * Since: 10.05.6 */ GValueArray* midgard_query_row_get_values (MidgardQueryRow *self, GError **error) { return MIDGARD_QUERY_ROW_GET_INTERFACE (self)->get_values (self, error); } /** * midgard_query_row_get_object: * @self: #MidgardQueryRow instance * @column_name: (allow-none): Column name which holds value * @error: pointer to store error * * Returns: (transfer full): an object for specified column. * @column_name can be ommited if column name is uniqe in the #MidgardQueryResult * * Since: 10.05.6 */ GObject* midgard_query_row_get_object (MidgardQueryRow *self, const gchar *column_name, GError **error) { return MIDGARD_QUERY_ROW_GET_INTERFACE (self)->get_object (self, column_name, error); } /* GOBJECT ROUTINES */ GType midgard_query_row_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardQueryRowIFace), NULL, /* base_init */ NULL, /* base_finalize */ NULL, /* class_init */ NULL, /* class_finalize */ NULL, /* class_data */ 0, 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_INTERFACE, "MidgardQueryRow", &info, 0); g_type_interface_add_prerequisite (type, G_TYPE_OBJECT); } return type; } midgard2-core-10.05.7.1/src/midgard_object_attachment.h0000664000175000017500000000312511772046240017476 00000000000000/* * Copyright (C) 2008 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #ifndef MIDGARD_OBJECT_ATTACHMENT_H #define MIDGARD_OBJECT_ATTACHMENT_H #include "midgard_object.h" G_BEGIN_DECLS MidgardObject **midgard_object_list_attachments (MidgardObject *self, guint *n_objects); MidgardObject *midgard_object_create_attachment (MidgardObject *self, const gchar *name, const gchar *title, const gchar *mimetype); gboolean midgard_object_delete_attachments (MidgardObject *self, guint n_params, const GParameter *parameters); gboolean midgard_object_purge_attachments (MidgardObject *self, gboolean delete_blob, guint n_params, const GParameter *parameters); MidgardObject **midgard_object_find_attachments (MidgardObject *self, guint n_params, const GParameter *parameters); gboolean midgard_object_has_attachments (MidgardObject *self); G_END_DECLS #endif /* MIDGARD_OBJECT_ATTACHMENT_H */ midgard2-core-10.05.7.1/src/midgard_base_abstract.c0000664000175000017500000001562711772046240016622 00000000000000/* * Copyright (C) 2011 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "midgard_base_abstract.h" #include "schema.h" static void __midgard_base_abstract_derived_class_set_property (GObject *object, guint prop_id, const GValue *value, GParamSpec *pspec) { gint prop_id_local = 0; GType current_type = G_TYPE_FROM_INSTANCE(object); MgdSchemaTypeAttr *priv = G_TYPE_INSTANCE_GET_PRIVATE (object, current_type, MgdSchemaTypeAttr); MidgardBaseAbstract *self = (MidgardBaseAbstract *) object; MgdSchemaPropertyAttr *prop; prop_id_local = prop_id - priv->base_index - 1; if ((prop_id_local >= 0) && (prop_id_local < priv->num_properties)) { if (priv->num_properties) { prop = priv->properties[prop_id_local]; if (!G_IS_VALUE(&prop->value)) { g_value_init(&prop->value, G_VALUE_TYPE(value)); /* g_debug(" Set property %s", pspec->name ); */ } g_value_copy(value, &prop->value); } return; } } static void __midgard_base_abstract_derived_class_get_property (GObject *object, guint prop_id, GValue *value, GParamSpec *pspec) { gint prop_id_local = 0; GType current_type = G_TYPE_FROM_INSTANCE(object); MgdSchemaTypeAttr *priv = G_TYPE_INSTANCE_GET_PRIVATE (object, current_type, MgdSchemaTypeAttr); MidgardBaseAbstract *self = (MidgardBaseAbstract *) object; GValue *pval; prop_id_local = prop_id - priv->base_index - 1; if ((prop_id_local >= 0) && (prop_id_local < priv->num_properties)) { if (priv->num_properties) { if (priv->properties) { pval = &priv->properties[prop_id_local]->value; if (G_IS_VALUE (pval)) { g_value_copy(pval, value); } } } } } static void __midgard_base_abstract_derived_class_init(gpointer g_class, gpointer class_data) { MgdSchemaTypeAttr *data = (MgdSchemaTypeAttr *) class_data; GObjectClass *gobject_class = G_OBJECT_CLASS(g_class); MidgardBaseAbstractClass *mklass = (MidgardBaseAbstractClass *) g_class; guint idx; g_type_class_add_private (g_class, sizeof(MgdSchemaTypeAttr)); gobject_class->set_property = __midgard_base_abstract_derived_class_set_property; gobject_class->get_property = __midgard_base_abstract_derived_class_get_property; for (idx = 1; idx <= data->num_properties; idx++) { /* g_print ("Installing property id %d :: %s \n", idx, data->params[idx-1]->name); */ g_object_class_install_property (gobject_class, data->base_index + idx , data->params[idx-1]); } } GType midgard_type_register_abstract (MgdSchemaTypeAttr *type_data, GType parent_type) { gchar *classname = type_data->name; GType class_type = g_type_from_name (classname); if (class_type) return class_type; { GTypeInfo *midgard_type_info = g_new0 (GTypeInfo, 1); /* our own class size is 0 but it should include space for a parent, therefore add it */ midgard_type_info->class_size = sizeof (MidgardBaseAbstractClass); midgard_type_info->base_init = NULL; midgard_type_info->base_finalize = NULL; midgard_type_info->class_init = __midgard_base_abstract_derived_class_init; midgard_type_info->class_finalize = NULL; midgard_type_info->class_data = type_data; /* our own instance size is 0 but it should include space for a parent, * therefore add it */ midgard_type_info->instance_size = sizeof (MidgardBaseAbstract); midgard_type_info->n_preallocs = 0; midgard_type_info->instance_init = NULL; midgard_type_info->value_table = NULL; GType tmp_type; guint n_types; guint i; gchar **extends = midgard_core_schema_type_list_extends (type_data, &n_types); GType real_parent_type = MIDGARD_TYPE_BASE_ABSTRACT; for (i = 0; i < n_types; i++) { tmp_type = g_type_from_name (extends[i]); if (!G_TYPE_IS_INTERFACE (tmp_type) && tmp_type != G_TYPE_INVALID) { real_parent_type = tmp_type; continue; } } GType type = g_type_register_static (real_parent_type, classname, midgard_type_info, G_TYPE_FLAG_ABSTRACT); static const GInterfaceInfo iface_info = { NULL, /* interface initialize */ NULL, /* interface_finalize */ NULL /* interface_data */ }; for (i = 0; i < n_types; i++) { tmp_type = g_type_from_name (extends[i]); /* Implicitly register interface, if such is not registered in GType system. * If it's defined in schema we collected all rquired metadata. * If not, we have to throw error */ if (g_type_from_name (extends[i]) == G_TYPE_INVALID) { MgdSchemaTypeAttr *iface_attr = midgard_schema_lookup_type (type_data->schema, extends[i]); if (!iface_attr) g_error ("Can not find '%s' definition", extends[i]); if (iface_attr->is_iface) tmp_type = midgard_core_type_register_interface (iface_attr); } midgard_core_interface_add_prerequisites (type, tmp_type); g_type_add_interface_static (type, tmp_type, &iface_info); } if (extends) g_strfreev (extends); g_free (midgard_type_info); return type; } } /* MIDGARD_BASE_ABSTRACT ABSTRACT CLASS ROUTINES */ static GObjectClass *__parent_class= NULL; static void _midgard_base_abstract_class_init (gpointer g_class, gpointer g_class_data) { GObjectClass *gobject_class = G_OBJECT_CLASS (g_class); MidgardBaseAbstractClass *klass = MIDGARD_BASE_ABSTRACT_CLASS (g_class); __parent_class = g_type_class_peek_parent (g_class); gobject_class->dispose = __parent_class->dispose; gobject_class->finalize = __parent_class->finalize; gobject_class->set_property = NULL; gobject_class->get_property = NULL; } GType midgard_base_abstract_get_type (void) { static GType type = 0; if (type == 0) { static const GTypeInfo info = { sizeof (MidgardBaseAbstractClass), NULL, /* base_init */ NULL, /* base_finalize */ (GClassInitFunc) _midgard_base_abstract_class_init, NULL, /* class_finalize */ NULL, /* class_data */ sizeof (MidgardBaseAbstract), 0, /* n_preallocs */ NULL /* instance_init */ }; type = g_type_register_static (G_TYPE_OBJECT, "MidgardBaseAbstract", &info, G_TYPE_FLAG_ABSTRACT); } return type; } midgard2-core-10.05.7.1/ChangeLog0000664000175000017500000005117011772045620013147 000000000000002002-05-22 20:58 Torben Nehmer * Included Emiliano's Workaround for the stale Midgard References into midgard.c. This works around Bug #091, but does not really solve it. We are working on it. 2002-05-17 15:08 Torben Nehmer * Backported the new PHP UDF Functions from MMP to non-MMP non-MMP now uses the same set of functions * During this I've explicitly removed all the old udf-functions from the php4 module * Fixed bug that Debian PHP 4.1.x didn't recognize ${mgd_register_filter('blah')}($var); Workaround uses a second function mgd_execute_udf in the Midgard-Root File * Fixed bug that the parser only recognized custom-formatters with name cosisting of only one character. This behavoir wasn't there with the older Midgards. Cause was a wrong regex for the Formatter Definition. (Note: This regex is rather simple, it should be enhanced to allow only the supported Formatters in the first digit.) * Changed configure.in to enable eval hacks by default to ensure backwards compatibility. 2001-03-12 12:08 Alexander Bokovoy * repligard/: export.c, main.c.in, repligard.xml, rpconfig.c, rpconfig.h, schema.c: Alan Knowles' patch integrated 2001-03-11 22:12 Alexander Bokovoy * src/iconvxml.c.in: Use portable GLib definition of endianness 2001-03-08 15:42 Alexander Bokovoy * repligard/main.c.in: Transferring to myexit() in order to close MySQL connection correctly if needed. 2001-03-08 15:36 Alexander Bokovoy * repligard/: common.c, export.c, import.c, main.c.in, read.c, rpconfig.c, rpconfig.h, schema.c: Exit after CRITICAL event 2001-03-07 17:18 David * src/tree_core.c: Added the break-branch-not-entire-tree feature for mgd_walk_xxx_tree in straight walking mode (ie. order == 1). So now, from a user function, a return code of [ - means]: >0 - continue, all is ok. =0 - there was a fatal error, stop all. <0 - don't go down in this branch, but continue. This doesn't work on reverse walking mode (for obvious reasons). 2001-03-06 23:49 David * src/tree.c: forgot to fix that file (walk-tree stoppers). 2001-03-06 17:42 David * midgard/midgard.h.in, src/tree_core.c: added the ability to break a tree walking 2001-03-02 09:39 David * src/tree.c: fixed copy function (didn't work well with attachments on objects). 2001-03-01 19:37 Alexander Bokovoy * repligard/main.c.in: SUID case for Root enhanced 2001-03-01 16:31 Emiliano * repligard/Makefile.am: FreeBSD install doesn't support --mode 2001-03-01 11:06 Alexander Bokovoy * repligard/: common.c, export.c, import.c, main.c.in, read.c, rpconfig.c, schema.c: Changed log level to CRITICAL instead of ERROR to avoid core dumps 2001-03-01 10:25 David * midgard/midgard.h.in: fixed misbehaviour of documented struct 2001-03-01 00:20 David * midgard/midgard.h.in, src/tree_core.c: #define'd MGD_API to spot API functions in the auto-documentation. 2001-02-28 22:59 David * midgard/midgard.h.in, src/tree_core.c: First draft for the lib documentation 2001-02-28 20:27 Alexander Bokovoy * repligard/export.c: '-a' option is working again SG0 login works for export again 2001-02-26 10:10 Alexander Bokovoy * NEWS: Oops, 1.4->1.4.1 2001-02-26 10:01 Alexander Bokovoy * NEWS, configure.in: Prepare for release candidate 2001-02-26 09:47 Alexander Bokovoy * repligard/export.c: Wrong code flow for SG0 fixed 2001-02-25 22:30 Alexander Bokovoy * repligard/schema.c: Typo fixed 2001-02-25 20:07 David * midgard/midgard.h.in, src/tree_core.c: faster is_in_tree function (faster than build_tree, anyway ;) 2001-02-25 19:02 David * src/tree_core.c: tree algorithm bug fixed. Now there is only one adaptive algorithm. Tested with 21515 nodes (approx. 8 seconds to walk the tree) total time: 8 seconds number of nodes: 21515 Statistics: level 00 001 node level 01 003 nodes level 02 010 nodes level 03 022 nodes level 04 158 nodes level 05 769 nodes level 06 2216 nodes level 07 4199 nodes level 08 5449 nodes level 09 4770 nodes level 10 2799 nodes level 11 994 nodes level 12 125 nodes 2001-02-25 03:34 David * src/: access.c, tree_core.c: fixed bug in tree algorithm 2001-02-24 22:13 David * midgard/midgard.h.in, src/internal.h, src/midgard.c: added custom debug/log facilities for the lib (allowing to use apache's log) 2001-02-23 23:27 Emiliano * configure.in, repligard/export.c, repligard/import.c, src/access.c, test/midgard_test.h: Fixed compiler warnings 2001-02-23 02:44 David * tablenames.pl: internal/external table name/id conversion tables. 2001-02-23 00:07 David * src/iconvxml.c.in: suppressed warning and potential problem. 2001-02-22 18:48 Alexander Bokovoy * src/repligard.c: - getpid(2) requires and - not needed for repligard.c 2001-02-22 18:36 David * midgard/midgard.h.in, repligard/export.c, src/tree.c, src/tree_core.c: Added support form mgd_walk_group_tree() function. 2001-02-22 17:52 Alexander Bokovoy * repligard/export.c: Do not replicate already replicated deleted resources. 2001-02-22 17:50 Alexander Bokovoy * repligard/: common.c, export.c, import.c, main.c.in, schema.c: Replication of deleted resources: part II of fix 2001-02-22 15:27 David * midgard/midgard.h.in, src/tree.c, src/tree_core.c: Added $sort optional parameter (6th one) to mgd_walk_xxx_tree() functions. Added sorting support in the internal tree functions. 2001-02-22 12:27 Alexander Bokovoy * repligard/export.c: Deleted entries replication fixed. Need more testing though 2001-02-22 11:34 David * midgard/midgard.h.in, src/Makefile.am, src/tree.c, src/tree_core.c: New tree algorithm implementation. 2001-02-22 10:23 David * configure.in: Added -Wall to CFLAGS to get more warnings. 2001-02-21 01:25 David * src/tree.c: part of the bug #66 fix 2001-02-20 15:12 Alexander Bokovoy * format.c: Removed obsolete source file from top library directory 2001-02-20 12:21 Emiliano * midgard/apache.h: *sigh* forgot to move this one 2001-02-20 12:18 Emiliano * midgard/Makefile.am: midgard.h installed in pkgheaders 2001-02-20 12:03 Emiliano * Makefile.am, configure.in, mgd_apache.h, mgd_select_db.h, midgard.h.in, tablenames.pl, midgard/.cvsignore, midgard/Makefile.am, midgard/apache.h, midgard/midgard.h.in, midgard/select_db.h, repligard/common.c, repligard/common.h, repligard/export.c, repligard/export.h, repligard/import.c, repligard/main.c.in, repligard/read.c, repligard/read.h, repligard/rpconfig.c, repligard/rpconfig.h, repligard/schema.c, src/.cvsignore, src/Makefile.am, src/access.c, src/filetemplate.c, src/fmt_russian.c, src/fmt_russian.h, src/format.c, src/iconvxml.c.in, src/internal.h, src/midgard.c, src/repligard.c, src/tree.c, test/midgard_test.h: Preparatory work for get_by_guid. In the process of this, two header files have been moved, so if you're tracking CVS: remove /include/mgd_select_db.h remove /include/mgd_apache.h update lib, mod and php (from cvs.php.net if you're using php4) run bootstrap (autoconf files have changed) rebuild the lot. 2001-02-20 11:05 David * src/tree.c: fixed bug #30 2001-02-18 18:58 David * src/Makefile.am: access.c didn't get compiled 2001-02-17 22:27 Emiliano * Makefile.am, configure.in, mgd_apache.h, mgd_select_db.h: Removing "warning: `mgd_select_database' defined but not used" 2001-02-17 17:14 David * midgard.h.in, src/access.c: moved is*owner functions to the lib to slim down the php4 extension 2001-02-16 11:11 Alexander Bokovoy * repligard/export.c, src/midgard.c: s/HAVE_SITEGROUPS/HAVE_MIDGARD_SITEGROUPS/g; Replaced ifdef -> if because this constant always defined but as 0 or 1 2001-02-15 21:22 Alexander Bokovoy * configure.in, repligard/Makefile.am, repligard/export.c, repligard/main.c.in, repligard/rpconfig.c, repligard/rpconfig.h, repligard/schema.c, src/midgard.c: - Support for sitegroups in Repligard. - Support for secure configuration file management Still to do: - configuration file installation with proper permissions - automatic sitegroup links addition into DB structure in Repligard 2001-02-13 09:54 David * src/tree.c: fixed bugs #98 and #99 2001-02-10 00:34 David * src/midgard.c: Nothing special but removed a warning at compile time. 2001-02-09 23:13 Emiliano * configure.in: Response message for iconv was not echoed in 'standard' case 2001-02-09 23:04 Emiliano * acinclude.m4, configure.in, midgard.h.in, src/iconvxml.c, src/iconvxml.c.in: lib, mod & php(3) compile on FreeBSD. What fun this was. 2001-02-09 14:31 Emiliano * repligard/: main.c.in, schema.c: Accept debug parameter, fix glib warnings when no action is specified 2001-02-07 14:35 Emiliano * configure.in: lib,mod & php compile on debian. php4-module needs work. 2001-02-07 09:16 Emiliano * src/midgard.c: Check return value of mysql_real_connect 2001-02-07 09:14 Emiliano * src/repligard.c: Bug #87, added counter and process id to make guids more unique 2001-02-06 13:49 Emiliano * src/midgard.c: Bug #83+#84 see (A) lib/midgard.c line #345 (with SGs) or #350 (without SGs) for the SQL query see (B) lib/midgard.c line #374 with (A) and the following code, the table mgd->member is filled with the gids of the groups the user belongs to. it is then ended with a 0 at line (B) Solution (lib): set an "ORDER BY gid DESC" in query (A). 2001-02-03 16:11 Alexander Bokovoy * repligard/repligard.xml: Group type had bad owner. 2001-01-23 17:40 Alexander Bokovoy * repligard/: export.c, main.c.in, read.c, repligard.conf.in, repligard.xml, rpconfig.c, rpconfig.h, schema.c, schema.h: Tree export fixes, improvements. Nonreversable fields by Alan Knowles added 2001-01-17 20:34 Alexander Bokovoy * acinclude.m4, repligard/main.c.in: Bugs #75 and #76 closed: 1. getopt.h -> unistd.h 2. Include -liconv into set of linked libraries if it is required 2001-01-08 15:17 Alexander Bokovoy * repligard/export.c: Multiple dependencies fix 2001-01-06 Alexander Bokovoy * Use 'UCS-2' instead of 'UNICODE' (both are the same, actually) during translation table creation because of compability issues between old/new GLIBC and other platforms. 2000-12-13 Alexander Bokovoy * ICONV support now replaces illegal symbols/sequences by '?' (thanks to Dmitry Levin ) * FT ignores encoding translation when file template misses XML declaration ( * BLOBs should now function when object has been copied by mgd_copy_xxxx functions 2000-12-13 Alexander Bokovoy * Repligard supports BLOBs and attachments fully * FT supports different encodings via iconv(3). 2000-11-27 Alexander Bokovoy * Repligard sources merged with Midgard-lib tree. * Source tree structure changed a bit to follow Automake rules * Statement about zlib and Repligard added into INSTALL[.ru] * acinclude.m4 added with ICONV(3) detection rule * Test path_parser now builds but not gets installed by default. 2000-11-23 10:51 emile * mgd_apache.h moved to lib because copying this file was cumbersome and error-prone. I use it for php4, and the contents of the file _must_ be exactly the same or you'll see hard to trace segfaults. 2000-11-02 14:55 emile * Be flexible about where expat is located. 2000-10-28 09:05 emile * INSTALL: Added reference to expat 2000-10-27 13:37 emile * midgard.c: Be more strict about SG0. You can no longer log in using admin[*!$], instead use admin[*!$]sitegroupname, or admin without qualifiers to log in as root in SG0. Additionally, disallow the creation od SG0 group records. 2000-10-26 14:05 emile * configure.in, filetemplate.c: midgard-lib now uses libexpat available from http://sourceforge.net/projects/expat/ 2000-10-23 17:32 emile * format.c: Broken down assert to make it easier to track down problems 2000-10-13 Alexander Bokovoy * Repligard functionality re-written. 2000-10-04 David Guerizec * Tree management enhanced: blobs and paramaters now can be copied and deleted properly 2000-10-03 16:07 emile * format.c: va_arg doesn't know about chars, use int 2000-10-03 15:09 emile * configure.in, midgard.c, midgard.h.in: Security update. It was previously possible to log into any site as anonymous (no username). 2000-09-26 14:43 emiliano * midgard.c: Logon modifier now defaults to '*' for SG0 sites and '+' for others. 2000-09-20 15:07 emiliano * midgard.c: Wrong reason was reported if the user didn't exist within the sitegroup 2000-07-17 Emile Heyns * Filetemplates 2000-07-05 Emile Heyns * Sitegroups logon 'su' support * Repligard 2000-04-17 Emile Heyns * Sitegroups 0.3 beta with improved logon options * Calendering/events in the Midgard core * Database generalization 2000-03-23 Emile Heyns * sitegroup.sql: additional table and column in midgard database for SiteGroups * format.c midgard.c midgard.h repligard.c tree.c: SiteGroups added 2000-02-04 Alexander Bokovoy * tree.c,midgard.h: cleaned up object copying code, functions for moving objects added * midgard.c: queries wrapped by internal pools in order to allow inherited queries for proper object copying * configure.in: version changed to 1.2.6-beta2 2000-01-29 Alexander Bokovoy * repligard.c: implemented set of functions for accessing database repository info. * tree.c: functions for traversing/copying/deleting object trees * format.c: mgd_free_from_pool() added to allow selective deletion of pool's resources (needed for copying objects) 2000-01-26 Alexander Bokovoy * format.c: Small bug in mgd_alloc() fixed. * md5.[ch]: code for MD5 checksum added * midgard.[ch]: API for accessing Repligard added 2000-01-24 Alexander Bokovoy * Midgard is context transparent now. It means Midgard hasn't changes codepage in transferred content. The only thing that affected is HTML entities conversion in 'latin1' parser. But for languages with several codepages (like Russian one) all information is transferred on 'as-is' basis. It is important for middleware position of Midgard. * Changed API for text formating engine. All language dependent code concentrated in midgard-lib and could be controlled by MidgardParser directive in Apache's configuration file at runtime on per-directory basis. * parser.h: generalized API for supporting several text parsers, implementation goes to format.c. * parsers.h, fmt_russian.[ch]: support for russian language. Parser mechanism is charset neutral itself. Encoding field specifies an encoding of mail messages and need_qp field selects method of Content-Transfer-Encoding. * midgard.[ch]: mgd_[v]format() functions use parser information stored in midgard object, thus proper initialization of Midgard engine is required. Methods for initialization/shutdown of parsers added in mgd_init()/mgd_done() which should wrap all midgard sessions. * INSTALL.[ru]: information about --with-midgard-lang removed. 2000-01-16 Alexander Bokovoy * midgard.[ch]: preliminary support for repositary checking 2000-01-02 Alexander Bokovoy * Added support for selecting records by name instead of IDs. * Prepared for 1.2.6 1999-11-09 Jukka Zitting * Incorporated Alexander's Russian Midgard patch * Prepared for 1.2.5 1999-10-28 Alexander Bokovoy * README.ru, INSTALL.ru: Added instructions for Russian users. 1999-10-27 Alexander Bokovoy * format.c: Conditional compilation of HTML entities translation in order to support russian language which uses straight 8-bit coding. * configure.in: New option --with-midgard-lang for basic i18n support, only --with-midgard-lang=russian and --with-midgard-lang=latin1 are supported for the moment. The latter is default. 1999-10-20 Jukka Zitting * midgard.c: The member list was not terminated properly. Fixed. * midgard.c: Fixed a bug in mgd_exists that broke mgd_update_person. 1999-09-29 Jukka Zitting * midgard.c: Fixed the mysql_fetch_field_direct problem. 1999-09-20 Jukka Zitting * configure.in: Better search for the MySQL library and headers. Note that the options --with-mysql-lib and --with-mysql-include are no longer available. 1999-09-15 Jukka Zitting * configure.in: Change name from midgard to midgard-lib to automate package generation. * web.c: Removed the unused code. 1999-09-07 Jukka Zitting * configure.in: New options --with-mysql-lib and --with-mysql-include to handle strange MySQL installation paths. * midgard.h, midgard.c: The midgard handle is now always created even if connection cannot be established. A client should use the mgd_errno to check whether the connection succeeded. 1999-09-02 Jukka Zitting * midgard.c (mgd_vquery): removed the checking on SERVER_LOST/GONE error codes as the functionality exists already in the mysql client library. * midgard.c (mgd_connect): started using the mysql_real_connect function for faster connections to the database 1999-08-23 Jukka Zitting * midgard.c (mgd_auth): Now uses the c library crypt instead of the MySQL encrypt function. Also plain text passwords are now supported. Such passwords are identified by the salt "**". 1999-08-23 Jukka Zitting * midgard.h, midgard.c: midgard_connect now takes the arguments database, username and password to specify the database connection. Default values (defaults.h) are used if the given arguments are NULL. * configure.in: Now requires libmysqlclient to be available. 1999-07-13 Jukka Zitting * configure.in: simplified the installation procedure for 1.1 * README, AUTHORS, INSTALL, COPYING.LIB: added files to make the separate lib package conform to the GNU coding standards. * ChangeLog: Midgard library now again a separate package. The ChangeLog file of the entire Midgard package continues to live here. 1999-06-11 Jukka Zitting * Many new features for 1.0.3 being finished. Work on 1.1 started. 1999-05-17 Jukka Zitting * Approaching 1.0.2. The directory structure and installation procedure was largely reordered as there were some problems with the previous releases. Midgard should now install as one single package. 1999-05-08 Jukka Zitting * Finally here: 1.0.0. Installation is now more or less smooth, new features have been added and generally everything is looking good. 1999-04-27 Jukka Zitting * Version 0.5. Added support for Libtool, Autoconf and Automake and created the NEWS, AUTHORS and ChangeLog files to comply with the GNU coding standards. * Installation process is now a lot cleaner than before. There's still work to be done though. Local Variables: mode: indented-text left-margin: 8 version-control: never End: midgard2-core-10.05.7.1/README0000664000175000017500000000117111772046240012250 00000000000000README for Midgard library This is the base library of the Midgard Application server suite. The library allows Midgard applications to access the Midgard database using a set of database-independent functions. The library also does user authentication and privilege handling. You should consider to install MySQL 4.x at it is highly recommended for Midgard Framework. If You have MySQL 4.x already installed, turn on its caching abilities as it increase speed of Midgard sites. See http://www.midgard-project.org/ or contact user@midgard-project.org for more information. See the INSTALL file for installation instructions. midgard2-core-10.05.7.1/MidgardObjects.xml0000664000175000017500000007544511772046240015012 00000000000000 http://xmlns.com/foaf/0.1/Person foaf:http://xmlns.com/foaf/0.1/ Local non-replication-safe database identifier First name of the person foaf:firstName Last name of the person foaf:lastName Local non-replication-safe database identifier Filename of the attachment Title of the attachment Location of the attachment in the blob directory structure MIME type of the attachment GUID of the object the attachment is attached to Local non-replication-safe database identifier Namespace of the parameter Key of the parameter Value of the parameter GUID of the object the parameter extends Local non-replication-safe database identifier Path name of the snippetdir Snippetdir the snippetdir is under Local non-replication-safe database identifier Path name of the snippet Snippetdir the snippet is under Code of the snippet Documentation of the snippet Local non-replication-safe database identifier Quota for the sitegroup (in bytes) Disk usage of the sitegroup (in bytes) Limit of number of records for the sitegroup Number of records for the sitegroup MgdSchema type the quota applies to Quota of the type for the sitegroup (in bytes) Disk usage of the type of the sitegroup (in bytes) Limit of number of records of the type for the sitegroup Number of records of the type for the sitegroup http://xmlns.notu.be/aair#Activity aair:http://xmlns.notu.be/aair# Local non-replication-safe database identifier The person who performed the activity aair:Actor The action performed, following Atom Activity Extension URL schema (for example: http://activitystrea.ms/schema/1.0/post) aair:activityVerb The object that the action was done to aair:activityObject A human-readable description of the activity aair:summary Application the activity was performed with. In case of MidCOM, a component aair:Application STRING false false false false STRING false false false false This mixin node type can be used to add standardized title and description properties to a node. true false false false false DATE true false true false STRING true false true false This mixin node type can be used to add standardized creation information properties to a node. In implementations that make these properties protected, their values are controlled by the repository, which should set them appropriately upon the initial persist of a node with this mixin type. In cases where this mixin is added to an already existing node the semantics of these properties are implementation specific (see §10.10.3 Assigning Mixin Node Types). true false false false false DATE true false false false STRING true false false false This mixin node type can be used to provide standardized modification information properties to a node. In implementations that make these properties protected, their values are controlled by the repository, which should set them appropriately upon a significant modification of the subgraph of a node with this mixin. What constitutes a significant modification will depend on the semantics of the various parts of a node's subgraph and is implementation-dependent. true false false false false mix:lastModified STRING false false false false This mixin node type can be used to provide a standardized property that specifies the natural language in which the content of a node is expressed. The value of the jcr:language property should be a language code as defined in RFC true false false false false STRING false false false false STRING false false false false This mixin node type can be used to provide standardized mimetype and encoding properties to a node. If a node of this type has a primary item that is a single-value BINARY property then jcr:mimeType property indicates the media type6 applicable to the contents of that property and, if that media type is one to which a text encoding applies, the jcr:encoding property indicates the character set7 used. If a node of this type does not meet the above precondition then the interpretation of the jcr:mimeType and jcr:encoding properties is implementation-dependent. true false false false false mix:mimeType STRING true false true false A jcr:etag property is an opaque string whose syntax is identical to that defined for entity tags in HTTP/1.1. Semantically, the jcr:etag is comparable to the HTTP/1.1 strong entity tag. true false false false false STRING true true true false This node type adds an auto-created, mandatory, protected STRING property to the node, called jcr:uuid, which exposes the identifier of the node. Note that the term “UUID” is used for backward compatibility with JCR 1.0 and does not necessarily imply the use of the UUID syntax, or global uniqueness. The identifier of a referenceable node must be a referenceable identifier. Referenceable identifiers must fulfill a number of constraints beyond the minimum required of standard identifiers (see §3.8.3 Referenceable Identifiers). true false false false false All shareable nodes are referenceable. mix:referenceable true false false false false The type of a node COMPUTE NAME true true true false Mixin types multivalue NAME COMPUTE false false true true false false false false false true mix:created false false false false false true Local non-replication-safe database identifier nt:hierarchyNode false * nt:hierarchyNode false false VERSION false false Local non-replication-safe database identifier nt:hierarchyNode false false jcr:content jcr:content nt:base false true COPY false false Local non-replication-safe database identifier The type of a node REFERENCE false true false false nt:hierarchyNode false false jcr:content nt:linkedFile Local non-replication-safe database identifier nt:base false true * nt:base nt:unstructured false false VERSION false true Local non-replication-safe database identifier Binary data BINARY COPY false true false false nt:base mix:referenceable mix:mimeType mix:lastModified false false jcr:data nt:hierarchyNode false false VERSION false false Local non-replication-safe database identifier Query statement STRING COPY false false false false Query language STRING COPY false false false false This node type may be used to store a persistent query. nt:base false false false false VERSION false false Local non-replication-safe database identifier STRING nt:address false false false VERSION false false midgard2-core-10.05.7.1/INSTALL0000644000175000017500000003660011772046304012425 00000000000000Installation Instructions ************************* Copyright (C) 1994-1996, 1999-2002, 2004-2011 Free Software Foundation, Inc. Copying and distribution of this file, with or without modification, are permitted in any medium without royalty provided the copyright notice and this notice are preserved. This file is offered as-is, without warranty of any kind. Basic Installation ================== Briefly, the shell commands `./configure; make; make install' should configure, build, and install this package. The following more-detailed instructions are generic; see the `README' file for instructions specific to this package. Some packages provide this `INSTALL' file but do not implement all of the features documented below. The lack of an optional feature in a given package is not necessarily a bug. More recommendations for GNU packages can be found in *note Makefile Conventions: (standards)Makefile Conventions. The `configure' shell script attempts to guess correct values for various system-dependent variables used during compilation. It uses those values to create a `Makefile' in each directory of the package. It may also create one or more `.h' files containing system-dependent definitions. Finally, it creates a shell script `config.status' that you can run in the future to recreate the current configuration, and a file `config.log' containing compiler output (useful mainly for debugging `configure'). It can also use an optional file (typically called `config.cache' and enabled with `--cache-file=config.cache' or simply `-C') that saves the results of its tests to speed up reconfiguring. Caching is disabled by default to prevent problems with accidental use of stale cache files. If you need to do unusual things to compile the package, please try to figure out how `configure' could check whether to do them, and mail diffs or instructions to the address given in the `README' so they can be considered for the next release. If you are using the cache, and at some point `config.cache' contains results you don't want to keep, you may remove or edit it. The file `configure.ac' (or `configure.in') is used to create `configure' by a program called `autoconf'. You need `configure.ac' if you want to change it or regenerate `configure' using a newer version of `autoconf'. The simplest way to compile this package is: 1. `cd' to the directory containing the package's source code and type `./configure' to configure the package for your system. Running `configure' might take a while. While running, it prints some messages telling which features it is checking for. 2. Type `make' to compile the package. 3. Optionally, type `make check' to run any self-tests that come with the package, generally using the just-built uninstalled binaries. 4. Type `make install' to install the programs and any data files and documentation. When installing into a prefix owned by root, it is recommended that the package be configured and built as a regular user, and only the `make install' phase executed with root privileges. 5. Optionally, type `make installcheck' to repeat any self-tests, but this time using the binaries in their final installed location. This target does not install anything. Running this target as a regular user, particularly if the prior `make install' required root privileges, verifies that the installation completed correctly. 6. You can remove the program binaries and object files from the source code directory by typing `make clean'. To also remove the files that `configure' created (so you can compile the package for a different kind of computer), type `make distclean'. There is also a `make maintainer-clean' target, but that is intended mainly for the package's developers. If you use it, you may have to get all sorts of other programs in order to regenerate files that came with the distribution. 7. Often, you can also type `make uninstall' to remove the installed files again. In practice, not all packages have tested that uninstallation works correctly, even though it is required by the GNU Coding Standards. 8. Some packages, particularly those that use Automake, provide `make distcheck', which can by used by developers to test that all other targets like `make install' and `make uninstall' work correctly. This target is generally not run by end users. Compilers and Options ===================== Some systems require unusual options for compilation or linking that the `configure' script does not know about. Run `./configure --help' for details on some of the pertinent environment variables. You can give `configure' initial values for configuration parameters by setting variables in the command line or in the environment. Here is an example: ./configure CC=c99 CFLAGS=-g LIBS=-lposix *Note Defining Variables::, for more details. Compiling For Multiple Architectures ==================================== You can compile the package for more than one kind of computer at the same time, by placing the object files for each architecture in their own directory. To do this, you can use GNU `make'. `cd' to the directory where you want the object files and executables to go and run the `configure' script. `configure' automatically checks for the source code in the directory that `configure' is in and in `..'. This is known as a "VPATH" build. With a non-GNU `make', it is safer to compile the package for one architecture at a time in the source code directory. After you have installed the package for one architecture, use `make distclean' before reconfiguring for another architecture. On MacOS X 10.5 and later systems, you can create libraries and executables that work on multiple system types--known as "fat" or "universal" binaries--by specifying multiple `-arch' options to the compiler but only a single `-arch' option to the preprocessor. Like this: ./configure CC="gcc -arch i386 -arch x86_64 -arch ppc -arch ppc64" \ CXX="g++ -arch i386 -arch x86_64 -arch ppc -arch ppc64" \ CPP="gcc -E" CXXCPP="g++ -E" This is not guaranteed to produce working output in all cases, you may have to build one architecture at a time and combine the results using the `lipo' tool if you have problems. Installation Names ================== By default, `make install' installs the package's commands under `/usr/local/bin', include files under `/usr/local/include', etc. You can specify an installation prefix other than `/usr/local' by giving `configure' the option `--prefix=PREFIX', where PREFIX must be an absolute file name. You can specify separate installation prefixes for architecture-specific files and architecture-independent files. If you pass the option `--exec-prefix=PREFIX' to `configure', the package uses PREFIX as the prefix for installing programs and libraries. Documentation and other data files still use the regular prefix. In addition, if you use an unusual directory layout you can give options like `--bindir=DIR' to specify different values for particular kinds of files. Run `configure --help' for a list of the directories you can set and what kinds of files go in them. In general, the default for these options is expressed in terms of `${prefix}', so that specifying just `--prefix' will affect all of the other directory specifications that were not explicitly provided. The most portable way to affect installation locations is to pass the correct locations to `configure'; however, many packages provide one or both of the following shortcuts of passing variable assignments to the `make install' command line to change installation locations without having to reconfigure or recompile. The first method involves providing an override variable for each affected directory. For example, `make install prefix=/alternate/directory' will choose an alternate location for all directory configuration variables that were expressed in terms of `${prefix}'. Any directories that were specified during `configure', but not in terms of `${prefix}', must each be overridden at install time for the entire installation to be relocated. The approach of makefile variable overrides for each directory variable is required by the GNU Coding Standards, and ideally causes no recompilation. However, some platforms have known limitations with the semantics of shared libraries that end up requiring recompilation when using this method, particularly noticeable in packages that use GNU Libtool. The second method involves providing the `DESTDIR' variable. For example, `make install DESTDIR=/alternate/directory' will prepend `/alternate/directory' before all installation names. The approach of `DESTDIR' overrides is not required by the GNU Coding Standards, and does not work on platforms that have drive letters. On the other hand, it does better at avoiding recompilation issues, and works well even when some directory options were not specified in terms of `${prefix}' at `configure' time. Optional Features ================= If the package supports it, you can cause programs to be installed with an extra prefix or suffix on their names by giving `configure' the option `--program-prefix=PREFIX' or `--program-suffix=SUFFIX'. Some packages pay attention to `--enable-FEATURE' options to `configure', where FEATURE indicates an optional part of the package. They may also pay attention to `--with-PACKAGE' options, where PACKAGE is something like `gnu-as' or `x' (for the X Window System). The `README' should mention any `--enable-' and `--with-' options that the package recognizes. For packages that use the X Window System, `configure' can usually find the X include and library files automatically, but if it doesn't, you can use the `configure' options `--x-includes=DIR' and `--x-libraries=DIR' to specify their locations. Some packages offer the ability to configure how verbose the execution of `make' will be. For these packages, running `./configure --enable-silent-rules' sets the default to minimal output, which can be overridden with `make V=1'; while running `./configure --disable-silent-rules' sets the default to verbose, which can be overridden with `make V=0'. Particular systems ================== On HP-UX, the default C compiler is not ANSI C compatible. If GNU CC is not installed, it is recommended to use the following options in order to use an ANSI C compiler: ./configure CC="cc -Ae -D_XOPEN_SOURCE=500" and if that doesn't work, install pre-built binaries of GCC for HP-UX. HP-UX `make' updates targets which have the same time stamps as their prerequisites, which makes it generally unusable when shipped generated files such as `configure' are involved. Use GNU `make' instead. On OSF/1 a.k.a. Tru64, some versions of the default C compiler cannot parse its `' header file. The option `-nodtk' can be used as a workaround. If GNU CC is not installed, it is therefore recommended to try ./configure CC="cc" and if that doesn't work, try ./configure CC="cc -nodtk" On Solaris, don't put `/usr/ucb' early in your `PATH'. This directory contains several dysfunctional programs; working variants of these programs are available in `/usr/bin'. So, if you need `/usr/ucb' in your `PATH', put it _after_ `/usr/bin'. On Haiku, software installed for all users goes in `/boot/common', not `/usr/local'. It is recommended to use the following options: ./configure --prefix=/boot/common Specifying the System Type ========================== There may be some features `configure' cannot figure out automatically, but needs to determine by the type of machine the package will run on. Usually, assuming the package is built to be run on the _same_ architectures, `configure' can figure that out, but if it prints a message saying it cannot guess the machine type, give it the `--build=TYPE' option. TYPE can either be a short name for the system type, such as `sun4', or a canonical name which has the form: CPU-COMPANY-SYSTEM where SYSTEM can have one of these forms: OS KERNEL-OS See the file `config.sub' for the possible values of each field. If `config.sub' isn't included in this package, then this package doesn't need to know the machine type. If you are _building_ compiler tools for cross-compiling, you should use the option `--target=TYPE' to select the type of system they will produce code for. If you want to _use_ a cross compiler, that generates code for a platform different from the build platform, you should specify the "host" platform (i.e., that on which the generated programs will eventually be run) with `--host=TYPE'. Sharing Defaults ================ If you want to set default values for `configure' scripts to share, you can create a site shell script called `config.site' that gives default values for variables like `CC', `cache_file', and `prefix'. `configure' looks for `PREFIX/share/config.site' if it exists, then `PREFIX/etc/config.site' if it exists. Or, you can set the `CONFIG_SITE' environment variable to the location of the site script. A warning: not all `configure' scripts look for a site script. Defining Variables ================== Variables not defined in a site shell script can be set in the environment passed to `configure'. However, some packages may run configure again during the build, and the customized values of these variables may be lost. In order to avoid this problem, you should set them in the `configure' command line, using `VAR=value'. For example: ./configure CC=/usr/local2/bin/gcc causes the specified `gcc' to be used as the C compiler (unless it is overridden in the site shell script). Unfortunately, this technique does not work for `CONFIG_SHELL' due to an Autoconf bug. Until the bug is fixed you can use this workaround: CONFIG_SHELL=/bin/bash /bin/bash ./configure CONFIG_SHELL=/bin/bash `configure' Invocation ====================== `configure' recognizes the following options to control how it operates. `--help' `-h' Print a summary of all of the options to `configure', and exit. `--help=short' `--help=recursive' Print a summary of the options unique to this package's `configure', and exit. The `short' variant lists options used only in the top level, while the `recursive' variant lists options also present in any nested packages. `--version' `-V' Print the version of Autoconf used to generate the `configure' script, and exit. `--cache-file=FILE' Enable the cache: use and save the results of the tests in FILE, traditionally `config.cache'. FILE defaults to `/dev/null' to disable caching. `--config-cache' `-C' Alias for `--cache-file=config.cache'. `--quiet' `--silent' `-q' Do not print messages saying which checks are being made. To suppress all normal output, redirect it to `/dev/null' (any error messages will still be shown). `--srcdir=DIR' Look for the package's source code in directory DIR. Usually `configure' can determine that directory automatically. `--prefix=DIR' Use DIR as the installation prefix. *note Installation Names:: for more details, including other options available for fine-tuning the installation locations. `--no-create' `-n' Run the configure checks, but stop before creating any output files. `configure' also accepts some other, not widely useful, options. Run `configure --help' for more details. midgard2-core-10.05.7.1/configure.in0000664000175000017500000000617111772046240013706 00000000000000dnl $Id$ dnl dnl Process this file with autoconf to produce a configure script. dnl dnl The Midgard version number is changed from here. First edit dnl this file, then write a ChangeLog entry about the new version, dnl and finally commit the source tree and give it a tag. dnl dnl If the version contains user visible changes then you should dnl have updated the NEWS file. Remember also to test the release dnl before committing. dnl AC_INIT([midgard2-core],[10.05.7.1]) AC_PREREQ(2.50) AC_CONFIG_MACRO_DIR([m4]) AC_CONFIG_HEADERS([config.h]) AC_CONFIG_SRCDIR(src/midgard.c) dnl Automake is needed for the build system. dnl AM_INIT_AUTOMAKE([-Wno-portability -Wall]) AM_MAINTAINER_MODE GOBJECT_INTROSPECTION_CHECK([0.6.5]) AC_PROG_CC(gcc cc) AC_LANG(C) dnl Checks for programs. AM_PROG_LIBTOOL dnl Checks libgda gdamodule="libgda-4.0" GDA_GIR_INCLUDE="Gda-4.0" GDA_GIR_PACKAGE="libgda-4.0" AC_MSG_CHECKING([whether to use Libgda5 (libgda4 by default)]) AC_ARG_WITH(libgda5, [ --with-libgda5], gdamodule="libgda-5.0", gdamodule="libgda-4.0") AC_MSG_RESULT($gdamodule) if test "$gdamodule" == "libgda-5.0"; then GDA_GIR_INCLUDE="Gda-5.0" GDA_GIR_PACKAGE="libgda-5.0" fi _MIDGARD_DBUS_SUPPORT=yes dbus_libs="dbus-1 dbus-glib-1" MIDGARD_DBUS_SUPPORT=1 AC_MSG_CHECKING([whether to compile dbus support (enabled by default)]) AC_ARG_WITH(dbus-support, [ --with-dbus-support compile with dbus support ], _MIDGARD_DBUS_SUPPORT=[$]withval, _MIDGARD_DBUS_SUPPORT="yes") AC_MSG_RESULT($_MIDGARD_DBUS_SUPPORT) if test "$_MIDGARD_DBUS_SUPPORT" == "no"; then #MIDGARD_DBUS_SUPPORT=0 dbus_libs="" fi PKG_CHECK_MODULES(MIDGARD, glib-2.0 gobject-2.0 libxml-2.0 $gdamodule $dbus_libs) if test "$gdamodule" == "libgda-4.0"; then MIDGARD_CFLAGS="${MIDGARD_CFLAGS} -DHAVE_LIBGDA_4" fi DBUS_CONF_DIR="/etc" if test "$_MIDGARD_DBUS_SUPPORT" == "yes"; then #MIDGARD_DBUS_SUPPORT=1 MIDGARD_CFLAGS=" ${MIDGARD_CFLAGS} -DMGD_HAVE_DBUS " DBUS_CONF_DIR=`pkg-config --variable sysconfdir dbus-1` fi AM_CONDITIONAL(MIDGARD_DBUS_SUPPORT, test x$_MIDGARD_DBUS_SUPPORT = xyes) LIBS="$INTLLIBS $LIBS" PATH="${PATH}:${prefix}/bin" dnl Checks for header files. AC_HEADER_STDC dnl Checks for typedefs, structures, and compiler characteristics. AC_C_CONST dnl Checks for library functions. dnl accomodate Solaris AC_SEARCH_LIBS(gethostbyname, nsl) AC_SEARCH_LIBS(htonl, socket) AC_MSG_CHECKING([if building for some Win32 platform]) case "$host" in *-*-mingw*|*-*-cygwin*) platform_win32=yes ;; *) platform_win32=no ;; esac AC_MSG_RESULT($platform_win32) AM_CONDITIONAL(PLATFORM_WIN32, test x$platform_win32 = xyes) if test "$prefix" = "/usr"; then sysconfdir="/etc/midgard2" elif test "$prefix" = "NONE"; then sysconfdir="/usr/local/etc/midgard2" else sysconfdir="$prefix/etc/midgard2" fi LIBS="$LIBS $MIDGARD_LIBS" AC_SUBST(LIBS) AC_SUBST(VERSION) AC_SUBST(VERSION_STRING) AC_SUBST(LFLAGS) AC_SUBST(MIDGARD_DBUS_SUPPORT) AC_SUBST(GDA_GIR_INCLUDE) AC_SUBST(GDA_GIR_PACKAGE) AC_SUBST(LIBGDA_VERSION, $gdamodule) AC_SUBST(MIDGARD_LIBS) AC_SUBST(MIDGARD_CFLAGS) AC_SUBST(DBUS_CONF_DIR) AC_CONFIG_FILES([Makefile Doxyfile src/midgard_config_auto.h midgard2.pc]) AC_OUTPUT midgard2-core-10.05.7.1/missing0000755000175000017500000002415211772046304012772 00000000000000#! /bin/sh # Common stub for a few missing GNU programs while installing. scriptversion=2012-01-06.13; # UTC # Copyright (C) 1996, 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, # 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. # Originally by Fran,cois Pinard , 1996. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. if test $# -eq 0; then echo 1>&2 "Try \`$0 --help' for more information" exit 1 fi run=: sed_output='s/.* --output[ =]\([^ ]*\).*/\1/p' sed_minuso='s/.* -o \([^ ]*\).*/\1/p' # In the cases where this matters, `missing' is being run in the # srcdir already. if test -f configure.ac; then configure_ac=configure.ac else configure_ac=configure.in fi msg="missing on your system" case $1 in --run) # Try to run requested program, and just exit if it succeeds. run= shift "$@" && exit 0 # Exit code 63 means version mismatch. This often happens # when the user try to use an ancient version of a tool on # a file that requires a minimum version. In this case we # we should proceed has if the program had been absent, or # if --run hadn't been passed. if test $? = 63; then run=: msg="probably too old" fi ;; -h|--h|--he|--hel|--help) echo "\ $0 [OPTION]... PROGRAM [ARGUMENT]... Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an error status if there is no known handling for PROGRAM. Options: -h, --help display this help and exit -v, --version output version information and exit --run try to run the given command, and emulate it if it fails Supported PROGRAM values: aclocal touch file \`aclocal.m4' autoconf touch file \`configure' autoheader touch file \`config.h.in' autom4te touch the output file, or create a stub one automake touch all \`Makefile.in' files bison create \`y.tab.[ch]', if possible, from existing .[ch] flex create \`lex.yy.c', if possible, from existing .c help2man touch the output file lex create \`lex.yy.c', if possible, from existing .c makeinfo touch the output file yacc create \`y.tab.[ch]', if possible, from existing .[ch] Version suffixes to PROGRAM as well as the prefixes \`gnu-', \`gnu', and \`g' are ignored when checking the name. Send bug reports to ." exit $? ;; -v|--v|--ve|--ver|--vers|--versi|--versio|--version) echo "missing $scriptversion (GNU Automake)" exit $? ;; -*) echo 1>&2 "$0: Unknown \`$1' option" echo 1>&2 "Try \`$0 --help' for more information" exit 1 ;; esac # normalize program name to check for. program=`echo "$1" | sed ' s/^gnu-//; t s/^gnu//; t s/^g//; t'` # Now exit if we have it, but it failed. Also exit now if we # don't have it and --version was passed (most likely to detect # the program). This is about non-GNU programs, so use $1 not # $program. case $1 in lex*|yacc*) # Not GNU programs, they don't have --version. ;; *) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 elif test "x$2" = "x--version" || test "x$2" = "x--help"; then # Could not run --version or --help. This is probably someone # running `$TOOL --version' or `$TOOL --help' to check whether # $TOOL exists and not knowing $TOOL uses missing. exit 1 fi ;; esac # If it does not exist, or fails to run (possibly an outdated version), # try to emulate it. case $program in aclocal*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." touch aclocal.m4 ;; autoconf*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." touch configure ;; autoheader*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`acconfig.h' or \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}` test -z "$files" && files="config.h" touch_files= for f in $files; do case $f in *:*) touch_files="$touch_files "`echo "$f" | sed -e 's/^[^:]*://' -e 's/:.*//'`;; *) touch_files="$touch_files $f.in";; esac done touch $touch_files ;; automake*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." find . -type f -name Makefile.am -print | sed 's/\.am$/.in/' | while read f; do touch "$f"; done ;; autom4te*) echo 1>&2 "\ WARNING: \`$1' is needed, but is $msg. You might have modified some files without having the proper tools for further handling them. You can get \`$1' as part of \`Autoconf' from any GNU archive site." file=`echo "$*" | sed -n "$sed_output"` test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"` if test -f "$file"; then touch $file else test -z "$file" || exec >$file echo "#! /bin/sh" echo "# Created by GNU Automake missing as a replacement of" echo "# $ $@" echo "exit 0" chmod +x $file exit 1 fi ;; bison*|yacc*) echo 1>&2 "\ WARNING: \`$1' $msg. You should only need it if you modified a \`.y' file. You may need the \`Bison' package in order for those modifications to take effect. You can get \`Bison' from any GNU archive site." rm -f y.tab.c y.tab.h if test $# -ne 1; then eval LASTARG=\${$#} case $LASTARG in *.y) SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'` if test -f "$SRCFILE"; then cp "$SRCFILE" y.tab.c fi SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'` if test -f "$SRCFILE"; then cp "$SRCFILE" y.tab.h fi ;; esac fi if test ! -f y.tab.h; then echo >y.tab.h fi if test ! -f y.tab.c; then echo 'main() { return 0; }' >y.tab.c fi ;; lex*|flex*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified a \`.l' file. You may need the \`Flex' package in order for those modifications to take effect. You can get \`Flex' from any GNU archive site." rm -f lex.yy.c if test $# -ne 1; then eval LASTARG=\${$#} case $LASTARG in *.l) SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'` if test -f "$SRCFILE"; then cp "$SRCFILE" lex.yy.c fi ;; esac fi if test ! -f lex.yy.c; then echo 'main() { return 0; }' >lex.yy.c fi ;; help2man*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified a dependency of a manual page. You may need the \`Help2man' package in order for those modifications to take effect. You can get \`Help2man' from any GNU archive site." file=`echo "$*" | sed -n "$sed_output"` test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"` if test -f "$file"; then touch $file else test -z "$file" || exec >$file echo ".ab help2man is required to generate this page" exit $? fi ;; makeinfo*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified a \`.texi' or \`.texinfo' file, or any other file indirectly affecting the aspect of the manual. The spurious call might also be the consequence of using a buggy \`make' (AIX, DU, IRIX). You might want to install the \`Texinfo' package or the \`GNU make' package. Grab either from any GNU archive site." # The file to touch is that specified with -o ... file=`echo "$*" | sed -n "$sed_output"` test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"` if test -z "$file"; then # ... or it is the one specified with @setfilename ... infile=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'` file=`sed -n ' /^@setfilename/{ s/.* \([^ ]*\) *$/\1/ p q }' $infile` # ... or it is derived from the source name (dir/f.texi becomes f.info) test -z "$file" && file=`echo "$infile" | sed 's,.*/,,;s,.[^.]*$,,'`.info fi # If the file does not exist, the user really needs makeinfo; # let's fail without touching anything. test -f $file || exit 1 touch $file ;; *) echo 1>&2 "\ WARNING: \`$1' is needed, and is $msg. You might have modified some files without having the proper tools for further handling them. Check the \`README' file, it often tells you about the needed prerequisites for installing this package. You may also peek at any GNU archive site, in case some other package would contain this missing \`$1' program." exit 1 ;; esac exit 0 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC" # time-stamp-end: "; # UTC" # End: midgard2-core-10.05.7.1/views/0000775000175000017500000000000011772046331012606 500000000000000midgard2-core-10.05.7.1/views/README-views.txt0000664000175000017500000000010511772045620015353 00000000000000This is directory for all reusable and shared midgard_view schemas. midgard2-core-10.05.7.1/depcomp0000755000175000017500000004755611772046304012765 00000000000000#! /bin/sh # depcomp - compile a program generating dependencies as side-effects scriptversion=2011-12-04.11; # UTC # Copyright (C) 1999, 2000, 2003, 2004, 2005, 2006, 2007, 2009, 2010, # 2011 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Originally written by Alexandre Oliva . case $1 in '') echo "$0: No command. Try \`$0 --help' for more information." 1>&2 exit 1; ;; -h | --h*) cat <<\EOF Usage: depcomp [--help] [--version] PROGRAM [ARGS] Run PROGRAMS ARGS to compile a file, generating dependencies as side-effects. Environment variables: depmode Dependency tracking mode. source Source file read by `PROGRAMS ARGS'. object Object file output by `PROGRAMS ARGS'. DEPDIR directory where to store dependencies. depfile Dependency file to output. tmpdepfile Temporary file to use when outputting dependencies. libtool Whether libtool is used (yes/no). Report bugs to . EOF exit $? ;; -v | --v*) echo "depcomp $scriptversion" exit $? ;; esac if test -z "$depmode" || test -z "$source" || test -z "$object"; then echo "depcomp: Variables source, object and depmode must be set" 1>&2 exit 1 fi # Dependencies for sub/bar.o or sub/bar.obj go into sub/.deps/bar.Po. depfile=${depfile-`echo "$object" | sed 's|[^\\/]*$|'${DEPDIR-.deps}'/&|;s|\.\([^.]*\)$|.P\1|;s|Pobj$|Po|'`} tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`} rm -f "$tmpdepfile" # Some modes work just like other modes, but use different flags. We # parameterize here, but still list the modes in the big case below, # to make depend.m4 easier to write. Note that we *cannot* use a case # here, because this file can only contain one case statement. if test "$depmode" = hp; then # HP compiler uses -M and no extra arg. gccflag=-M depmode=gcc fi if test "$depmode" = dashXmstdout; then # This is just like dashmstdout with a different argument. dashmflag=-xM depmode=dashmstdout fi cygpath_u="cygpath -u -f -" if test "$depmode" = msvcmsys; then # This is just like msvisualcpp but w/o cygpath translation. # Just convert the backslash-escaped backslashes to single forward # slashes to satisfy depend.m4 cygpath_u='sed s,\\\\,/,g' depmode=msvisualcpp fi if test "$depmode" = msvc7msys; then # This is just like msvc7 but w/o cygpath translation. # Just convert the backslash-escaped backslashes to single forward # slashes to satisfy depend.m4 cygpath_u='sed s,\\\\,/,g' depmode=msvc7 fi case "$depmode" in gcc3) ## gcc 3 implements dependency tracking that does exactly what ## we want. Yay! Note: for some reason libtool 1.4 doesn't like ## it if -MD -MP comes after the -MF stuff. Hmm. ## Unfortunately, FreeBSD c89 acceptance of flags depends upon ## the command line argument order; so add the flags where they ## appear in depend2.am. Note that the slowdown incurred here ## affects only configure: in makefiles, %FASTDEP% shortcuts this. for arg do case $arg in -c) set fnord "$@" -MT "$object" -MD -MP -MF "$tmpdepfile" "$arg" ;; *) set fnord "$@" "$arg" ;; esac shift # fnord shift # $arg done "$@" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi mv "$tmpdepfile" "$depfile" ;; gcc) ## There are various ways to get dependency output from gcc. Here's ## why we pick this rather obscure method: ## - Don't want to use -MD because we'd like the dependencies to end ## up in a subdir. Having to rename by hand is ugly. ## (We might end up doing this anyway to support other compilers.) ## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like ## -MM, not -M (despite what the docs say). ## - Using -M directly means running the compiler twice (even worse ## than renaming). if test -z "$gccflag"; then gccflag=-MD, fi "$@" -Wp,"$gccflag$tmpdepfile" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" echo "$object : \\" > "$depfile" alpha=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz ## The second -e expression handles DOS-style file names with drive letters. sed -e 's/^[^:]*: / /' \ -e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile" ## This next piece of magic avoids the `deleted header file' problem. ## The problem is that when a header file which appears in a .P file ## is deleted, the dependency causes make to die (because there is ## typically no way to rebuild the header). We avoid this by adding ## dummy dependencies for each header file. Too bad gcc doesn't do ## this for us directly. tr ' ' ' ' < "$tmpdepfile" | ## Some versions of gcc put a space before the `:'. On the theory ## that the space means something, we add a space to the output as ## well. hp depmode also adds that space, but also prefixes the VPATH ## to the object. Take care to not repeat it in the output. ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -e "s|.*$object$||" -e '/:$/d' \ | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; hp) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; sgi) if test "$libtool" = yes; then "$@" "-Wp,-MDupdate,$tmpdepfile" else "$@" -MDupdate "$tmpdepfile" fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" if test -f "$tmpdepfile"; then # yes, the sourcefile depend on other files echo "$object : \\" > "$depfile" # Clip off the initial element (the dependent). Don't try to be # clever and replace this with sed code, as IRIX sed won't handle # lines with more than a fixed number of characters (4096 in # IRIX 6.2 sed, 8192 in IRIX 6.5). We also remove comment lines; # the IRIX cc adds comments like `#:fec' to the end of the # dependency line. tr ' ' ' ' < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' | \ tr ' ' ' ' >> "$depfile" echo >> "$depfile" # The second pass generates a dummy entry for each header file. tr ' ' ' ' < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \ >> "$depfile" else # The sourcefile does not contain any dependencies, so just # store a dummy comment line, to avoid errors with the Makefile # "include basename.Plo" scheme. echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; aix) # The C for AIX Compiler uses -M and outputs the dependencies # in a .u file. In older versions, this file always lives in the # current directory. Also, the AIX compiler puts `$object:' at the # start of each line; $object doesn't have directory information. # Version 6 uses the directory in both cases. dir=`echo "$object" | sed -e 's|/[^/]*$|/|'` test "x$dir" = "x$object" && dir= base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'` if test "$libtool" = yes; then tmpdepfile1=$dir$base.u tmpdepfile2=$base.u tmpdepfile3=$dir.libs/$base.u "$@" -Wc,-M else tmpdepfile1=$dir$base.u tmpdepfile2=$dir$base.u tmpdepfile3=$dir$base.u "$@" -M fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" do test -f "$tmpdepfile" && break done if test -f "$tmpdepfile"; then # Each line is of the form `foo.o: dependent.h'. # Do two passes, one to just change these to # `$object: dependent.h' and one to simply `dependent.h:'. sed -e "s,^.*\.[a-z]*:,$object:," < "$tmpdepfile" > "$depfile" # That's a tab and a space in the []. sed -e 's,^.*\.[a-z]*:[ ]*,,' -e 's,$,:,' < "$tmpdepfile" >> "$depfile" else # The sourcefile does not contain any dependencies, so just # store a dummy comment line, to avoid errors with the Makefile # "include basename.Plo" scheme. echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; icc) # Intel's C compiler understands `-MD -MF file'. However on # icc -MD -MF foo.d -c -o sub/foo.o sub/foo.c # ICC 7.0 will fill foo.d with something like # foo.o: sub/foo.c # foo.o: sub/foo.h # which is wrong. We want: # sub/foo.o: sub/foo.c # sub/foo.o: sub/foo.h # sub/foo.c: # sub/foo.h: # ICC 7.1 will output # foo.o: sub/foo.c sub/foo.h # and will wrap long lines using \ : # foo.o: sub/foo.c ... \ # sub/foo.h ... \ # ... "$@" -MD -MF "$tmpdepfile" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" # Each line is of the form `foo.o: dependent.h', # or `foo.o: dep1.h dep2.h \', or ` dep3.h dep4.h \'. # Do two passes, one to just change these to # `$object: dependent.h' and one to simply `dependent.h:'. sed "s,^[^:]*:,$object :," < "$tmpdepfile" > "$depfile" # Some versions of the HPUX 10.20 sed can't process this invocation # correctly. Breaking it into two sed invocations is a workaround. sed 's,^[^:]*: \(.*\)$,\1,;s/^\\$//;/^$/d;/:$/d' < "$tmpdepfile" | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; hp2) # The "hp" stanza above does not work with aCC (C++) and HP's ia64 # compilers, which have integrated preprocessors. The correct option # to use with these is +Maked; it writes dependencies to a file named # 'foo.d', which lands next to the object file, wherever that # happens to be. # Much of this is similar to the tru64 case; see comments there. dir=`echo "$object" | sed -e 's|/[^/]*$|/|'` test "x$dir" = "x$object" && dir= base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'` if test "$libtool" = yes; then tmpdepfile1=$dir$base.d tmpdepfile2=$dir.libs/$base.d "$@" -Wc,+Maked else tmpdepfile1=$dir$base.d tmpdepfile2=$dir$base.d "$@" +Maked fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile1" "$tmpdepfile2" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" do test -f "$tmpdepfile" && break done if test -f "$tmpdepfile"; then sed -e "s,^.*\.[a-z]*:,$object:," "$tmpdepfile" > "$depfile" # Add `dependent.h:' lines. sed -ne '2,${ s/^ *// s/ \\*$// s/$/:/ p }' "$tmpdepfile" >> "$depfile" else echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" "$tmpdepfile2" ;; tru64) # The Tru64 compiler uses -MD to generate dependencies as a side # effect. `cc -MD -o foo.o ...' puts the dependencies into `foo.o.d'. # At least on Alpha/Redhat 6.1, Compaq CCC V6.2-504 seems to put # dependencies in `foo.d' instead, so we check for that too. # Subdirectories are respected. dir=`echo "$object" | sed -e 's|/[^/]*$|/|'` test "x$dir" = "x$object" && dir= base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'` if test "$libtool" = yes; then # With Tru64 cc, shared objects can also be used to make a # static library. This mechanism is used in libtool 1.4 series to # handle both shared and static libraries in a single compilation. # With libtool 1.4, dependencies were output in $dir.libs/$base.lo.d. # # With libtool 1.5 this exception was removed, and libtool now # generates 2 separate objects for the 2 libraries. These two # compilations output dependencies in $dir.libs/$base.o.d and # in $dir$base.o.d. We have to check for both files, because # one of the two compilations can be disabled. We should prefer # $dir$base.o.d over $dir.libs/$base.o.d because the latter is # automatically cleaned when .libs/ is deleted, while ignoring # the former would cause a distcleancheck panic. tmpdepfile1=$dir.libs/$base.lo.d # libtool 1.4 tmpdepfile2=$dir$base.o.d # libtool 1.5 tmpdepfile3=$dir.libs/$base.o.d # libtool 1.5 tmpdepfile4=$dir.libs/$base.d # Compaq CCC V6.2-504 "$@" -Wc,-MD else tmpdepfile1=$dir$base.o.d tmpdepfile2=$dir$base.d tmpdepfile3=$dir$base.d tmpdepfile4=$dir$base.d "$@" -MD fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" "$tmpdepfile4" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" "$tmpdepfile4" do test -f "$tmpdepfile" && break done if test -f "$tmpdepfile"; then sed -e "s,^.*\.[a-z]*:,$object:," < "$tmpdepfile" > "$depfile" # That's a tab and a space in the []. sed -e 's,^.*\.[a-z]*:[ ]*,,' -e 's,$,:,' < "$tmpdepfile" >> "$depfile" else echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; msvc7) if test "$libtool" = yes; then showIncludes=-Wc,-showIncludes else showIncludes=-showIncludes fi "$@" $showIncludes > "$tmpdepfile" stat=$? grep -v '^Note: including file: ' "$tmpdepfile" if test "$stat" = 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" echo "$object : \\" > "$depfile" # The first sed program below extracts the file names and escapes # backslashes for cygpath. The second sed program outputs the file # name when reading, but also accumulates all include files in the # hold buffer in order to output them again at the end. This only # works with sed implementations that can handle large buffers. sed < "$tmpdepfile" -n ' /^Note: including file: *\(.*\)/ { s//\1/ s/\\/\\\\/g p }' | $cygpath_u | sort -u | sed -n ' s/ /\\ /g s/\(.*\)/ \1 \\/p s/.\(.*\) \\/\1:/ H $ { s/.*/ / G p }' >> "$depfile" rm -f "$tmpdepfile" ;; msvc7msys) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; #nosideeffect) # This comment above is used by automake to tell side-effect # dependency tracking mechanisms from slower ones. dashmstdout) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout, regardless of -o. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # Remove `-o $object'. IFS=" " for arg do case $arg in -o) shift ;; $object) shift ;; *) set fnord "$@" "$arg" shift # fnord shift # $arg ;; esac done test -z "$dashmflag" && dashmflag=-M # Require at least two characters before searching for `:' # in the target name. This is to cope with DOS-style filenames: # a dependency such as `c:/foo/bar' could be seen as target `c' otherwise. "$@" $dashmflag | sed 's:^[ ]*[^: ][^:][^:]*\:[ ]*:'"$object"'\: :' > "$tmpdepfile" rm -f "$depfile" cat < "$tmpdepfile" > "$depfile" tr ' ' ' ' < "$tmpdepfile" | \ ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; dashXmstdout) # This case only exists to satisfy depend.m4. It is never actually # run, as this mode is specially recognized in the preamble. exit 1 ;; makedepend) "$@" || exit $? # Remove any Libtool call if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # X makedepend shift cleared=no eat=no for arg do case $cleared in no) set ""; shift cleared=yes ;; esac if test $eat = yes; then eat=no continue fi case "$arg" in -D*|-I*) set fnord "$@" "$arg"; shift ;; # Strip any option that makedepend may not understand. Remove # the object too, otherwise makedepend will parse it as a source file. -arch) eat=yes ;; -*|$object) ;; *) set fnord "$@" "$arg"; shift ;; esac done obj_suffix=`echo "$object" | sed 's/^.*\././'` touch "$tmpdepfile" ${MAKEDEPEND-makedepend} -o"$obj_suffix" -f"$tmpdepfile" "$@" rm -f "$depfile" # makedepend may prepend the VPATH from the source file name to the object. # No need to regex-escape $object, excess matching of '.' is harmless. sed "s|^.*\($object *:\)|\1|" "$tmpdepfile" > "$depfile" sed '1,2d' "$tmpdepfile" | tr ' ' ' ' | \ ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" "$tmpdepfile".bak ;; cpp) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # Remove `-o $object'. IFS=" " for arg do case $arg in -o) shift ;; $object) shift ;; *) set fnord "$@" "$arg" shift # fnord shift # $arg ;; esac done "$@" -E | sed -n -e '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \ -e '/^#line [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' | sed '$ s: \\$::' > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" cat < "$tmpdepfile" >> "$depfile" sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; msvisualcpp) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi IFS=" " for arg do case "$arg" in -o) shift ;; $object) shift ;; "-Gm"|"/Gm"|"-Gi"|"/Gi"|"-ZI"|"/ZI") set fnord "$@" shift shift ;; *) set fnord "$@" "$arg" shift shift ;; esac done "$@" -E 2>/dev/null | sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::\1:p' | $cygpath_u | sort -u > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s:: \1 \\:p' >> "$depfile" echo " " >> "$depfile" sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::\1\::p' >> "$depfile" rm -f "$tmpdepfile" ;; msvcmsys) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; none) exec "$@" ;; *) echo "Unknown depmode $depmode" 1>&2 exit 1 ;; esac exit 0 # Local Variables: # mode: shell-script # sh-indentation: 2 # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC" # time-stamp-end: "; # UTC" # End: midgard2-core-10.05.7.1/m4/0000775000175000017500000000000011772046330011770 500000000000000midgard2-core-10.05.7.1/m4/libtool.m40000644000175000017500000106043411772046276013635 00000000000000# libtool.m4 - Configure libtool for the host system. -*-Autoconf-*- # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. m4_define([_LT_COPYING], [dnl # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is part of GNU Libtool. # # GNU Libtool is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, or # obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. ]) # serial 57 LT_INIT # LT_PREREQ(VERSION) # ------------------ # Complain and exit if this libtool version is less that VERSION. m4_defun([LT_PREREQ], [m4_if(m4_version_compare(m4_defn([LT_PACKAGE_VERSION]), [$1]), -1, [m4_default([$3], [m4_fatal([Libtool version $1 or higher is required], 63)])], [$2])]) # _LT_CHECK_BUILDDIR # ------------------ # Complain if the absolute build directory name contains unusual characters m4_defun([_LT_CHECK_BUILDDIR], [case `pwd` in *\ * | *\ *) AC_MSG_WARN([Libtool does not cope well with whitespace in `pwd`]) ;; esac ]) # LT_INIT([OPTIONS]) # ------------------ AC_DEFUN([LT_INIT], [AC_PREREQ([2.58])dnl We use AC_INCLUDES_DEFAULT AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl AC_BEFORE([$0], [LT_LANG])dnl AC_BEFORE([$0], [LT_OUTPUT])dnl AC_BEFORE([$0], [LTDL_INIT])dnl m4_require([_LT_CHECK_BUILDDIR])dnl dnl Autoconf doesn't catch unexpanded LT_ macros by default: m4_pattern_forbid([^_?LT_[A-Z_]+$])dnl m4_pattern_allow([^(_LT_EOF|LT_DLGLOBAL|LT_DLLAZY_OR_NOW|LT_MULTI_MODULE)$])dnl dnl aclocal doesn't pull ltoptions.m4, ltsugar.m4, or ltversion.m4 dnl unless we require an AC_DEFUNed macro: AC_REQUIRE([LTOPTIONS_VERSION])dnl AC_REQUIRE([LTSUGAR_VERSION])dnl AC_REQUIRE([LTVERSION_VERSION])dnl AC_REQUIRE([LTOBSOLETE_VERSION])dnl m4_require([_LT_PROG_LTMAIN])dnl _LT_SHELL_INIT([SHELL=${CONFIG_SHELL-/bin/sh}]) dnl Parse OPTIONS _LT_SET_OPTIONS([$0], [$1]) # This can be used to rebuild libtool when needed LIBTOOL_DEPS="$ltmain" # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' AC_SUBST(LIBTOOL)dnl _LT_SETUP # Only expand once: m4_define([LT_INIT]) ])# LT_INIT # Old names: AU_ALIAS([AC_PROG_LIBTOOL], [LT_INIT]) AU_ALIAS([AM_PROG_LIBTOOL], [LT_INIT]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_PROG_LIBTOOL], []) dnl AC_DEFUN([AM_PROG_LIBTOOL], []) # _LT_CC_BASENAME(CC) # ------------------- # Calculate cc_basename. Skip known compiler wrappers and cross-prefix. m4_defun([_LT_CC_BASENAME], [for cc_temp in $1""; do case $cc_temp in compile | *[[\\/]]compile | ccache | *[[\\/]]ccache ) ;; distcc | *[[\\/]]distcc | purify | *[[\\/]]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` ]) # _LT_FILEUTILS_DEFAULTS # ---------------------- # It is okay to use these file commands and assume they have been set # sensibly after `m4_require([_LT_FILEUTILS_DEFAULTS])'. m4_defun([_LT_FILEUTILS_DEFAULTS], [: ${CP="cp -f"} : ${MV="mv -f"} : ${RM="rm -f"} ])# _LT_FILEUTILS_DEFAULTS # _LT_SETUP # --------- m4_defun([_LT_SETUP], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl AC_REQUIRE([_LT_PREPARE_SED_QUOTE_VARS])dnl AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])dnl _LT_DECL([], [PATH_SEPARATOR], [1], [The PATH separator for the build system])dnl dnl _LT_DECL([], [host_alias], [0], [The host system])dnl _LT_DECL([], [host], [0])dnl _LT_DECL([], [host_os], [0])dnl dnl _LT_DECL([], [build_alias], [0], [The build system])dnl _LT_DECL([], [build], [0])dnl _LT_DECL([], [build_os], [0])dnl dnl AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([LT_PATH_LD])dnl AC_REQUIRE([LT_PATH_NM])dnl dnl AC_REQUIRE([AC_PROG_LN_S])dnl test -z "$LN_S" && LN_S="ln -s" _LT_DECL([], [LN_S], [1], [Whether we need soft or hard links])dnl dnl AC_REQUIRE([LT_CMD_MAX_LEN])dnl _LT_DECL([objext], [ac_objext], [0], [Object file suffix (normally "o")])dnl _LT_DECL([], [exeext], [0], [Executable file suffix (normally "")])dnl dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_CHECK_SHELL_FEATURES])dnl m4_require([_LT_PATH_CONVERSION_FUNCTIONS])dnl m4_require([_LT_CMD_RELOAD])dnl m4_require([_LT_CHECK_MAGIC_METHOD])dnl m4_require([_LT_CHECK_SHAREDLIB_FROM_LINKLIB])dnl m4_require([_LT_CMD_OLD_ARCHIVE])dnl m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl m4_require([_LT_WITH_SYSROOT])dnl _LT_CONFIG_LIBTOOL_INIT([ # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes INIT. if test -n "\${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi ]) if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi _LT_CHECK_OBJDIR m4_require([_LT_TAG_COMPILER])dnl case $host_os in aix3*) # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi ;; esac # Global variables: ofile=libtool can_build_shared=yes # All known linkers require a `.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a with_gnu_ld="$lt_cv_prog_gnu_ld" old_CC="$CC" old_CFLAGS="$CFLAGS" # Set sane defaults for various variables test -z "$CC" && CC=cc test -z "$LTCC" && LTCC=$CC test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS test -z "$LD" && LD=ld test -z "$ac_objext" && ac_objext=o _LT_CC_BASENAME([$compiler]) # Only perform the check for file, if the check method requires it test -z "$MAGIC_CMD" && MAGIC_CMD=file case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then _LT_PATH_MAGIC fi ;; esac # Use C for the default configuration in the libtool script LT_SUPPORTED_TAG([CC]) _LT_LANG_C_CONFIG _LT_LANG_DEFAULT_CONFIG _LT_CONFIG_COMMANDS ])# _LT_SETUP # _LT_PREPARE_SED_QUOTE_VARS # -------------------------- # Define a few sed substitution that help us do robust quoting. m4_defun([_LT_PREPARE_SED_QUOTE_VARS], [# Backslashify metacharacters that are still active within # double-quoted strings. sed_quote_subst='s/\([["`$\\]]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\([["`\\]]\)/\\\1/g' # Sed substitution to delay expansion of an escaped shell variable in a # double_quote_subst'ed string. delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' # Sed substitution to delay expansion of an escaped single quote. delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' # Sed substitution to avoid accidental globbing in evaled expressions no_glob_subst='s/\*/\\\*/g' ]) # _LT_PROG_LTMAIN # --------------- # Note that this code is called both from `configure', and `config.status' # now that we use AC_CONFIG_COMMANDS to generate libtool. Notably, # `config.status' has no value for ac_aux_dir unless we are using Automake, # so we pass a copy along to make sure it has a sensible value anyway. m4_defun([_LT_PROG_LTMAIN], [m4_ifdef([AC_REQUIRE_AUX_FILE], [AC_REQUIRE_AUX_FILE([ltmain.sh])])dnl _LT_CONFIG_LIBTOOL_INIT([ac_aux_dir='$ac_aux_dir']) ltmain="$ac_aux_dir/ltmain.sh" ])# _LT_PROG_LTMAIN ## ------------------------------------- ## ## Accumulate code for creating libtool. ## ## ------------------------------------- ## # So that we can recreate a full libtool script including additional # tags, we accumulate the chunks of code to send to AC_CONFIG_COMMANDS # in macros and then make a single call at the end using the `libtool' # label. # _LT_CONFIG_LIBTOOL_INIT([INIT-COMMANDS]) # ---------------------------------------- # Register INIT-COMMANDS to be passed to AC_CONFIG_COMMANDS later. m4_define([_LT_CONFIG_LIBTOOL_INIT], [m4_ifval([$1], [m4_append([_LT_OUTPUT_LIBTOOL_INIT], [$1 ])])]) # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_INIT]) # _LT_CONFIG_LIBTOOL([COMMANDS]) # ------------------------------ # Register COMMANDS to be passed to AC_CONFIG_COMMANDS later. m4_define([_LT_CONFIG_LIBTOOL], [m4_ifval([$1], [m4_append([_LT_OUTPUT_LIBTOOL_COMMANDS], [$1 ])])]) # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS]) # _LT_CONFIG_SAVE_COMMANDS([COMMANDS], [INIT_COMMANDS]) # ----------------------------------------------------- m4_defun([_LT_CONFIG_SAVE_COMMANDS], [_LT_CONFIG_LIBTOOL([$1]) _LT_CONFIG_LIBTOOL_INIT([$2]) ]) # _LT_FORMAT_COMMENT([COMMENT]) # ----------------------------- # Add leading comment marks to the start of each line, and a trailing # full-stop to the whole comment if one is not present already. m4_define([_LT_FORMAT_COMMENT], [m4_ifval([$1], [ m4_bpatsubst([m4_bpatsubst([$1], [^ *], [# ])], [['`$\]], [\\\&])]m4_bmatch([$1], [[!?.]$], [], [.]) )]) ## ------------------------ ## ## FIXME: Eliminate VARNAME ## ## ------------------------ ## # _LT_DECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION], [IS-TAGGED?]) # ------------------------------------------------------------------- # CONFIGNAME is the name given to the value in the libtool script. # VARNAME is the (base) name used in the configure script. # VALUE may be 0, 1 or 2 for a computed quote escaped value based on # VARNAME. Any other value will be used directly. m4_define([_LT_DECL], [lt_if_append_uniq([lt_decl_varnames], [$2], [, ], [lt_dict_add_subkey([lt_decl_dict], [$2], [libtool_name], [m4_ifval([$1], [$1], [$2])]) lt_dict_add_subkey([lt_decl_dict], [$2], [value], [$3]) m4_ifval([$4], [lt_dict_add_subkey([lt_decl_dict], [$2], [description], [$4])]) lt_dict_add_subkey([lt_decl_dict], [$2], [tagged?], [m4_ifval([$5], [yes], [no])])]) ]) # _LT_TAGDECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION]) # -------------------------------------------------------- m4_define([_LT_TAGDECL], [_LT_DECL([$1], [$2], [$3], [$4], [yes])]) # lt_decl_tag_varnames([SEPARATOR], [VARNAME1...]) # ------------------------------------------------ m4_define([lt_decl_tag_varnames], [_lt_decl_filter([tagged?], [yes], $@)]) # _lt_decl_filter(SUBKEY, VALUE, [SEPARATOR], [VARNAME1..]) # --------------------------------------------------------- m4_define([_lt_decl_filter], [m4_case([$#], [0], [m4_fatal([$0: too few arguments: $#])], [1], [m4_fatal([$0: too few arguments: $#: $1])], [2], [lt_dict_filter([lt_decl_dict], [$1], [$2], [], lt_decl_varnames)], [3], [lt_dict_filter([lt_decl_dict], [$1], [$2], [$3], lt_decl_varnames)], [lt_dict_filter([lt_decl_dict], $@)])[]dnl ]) # lt_decl_quote_varnames([SEPARATOR], [VARNAME1...]) # -------------------------------------------------- m4_define([lt_decl_quote_varnames], [_lt_decl_filter([value], [1], $@)]) # lt_decl_dquote_varnames([SEPARATOR], [VARNAME1...]) # --------------------------------------------------- m4_define([lt_decl_dquote_varnames], [_lt_decl_filter([value], [2], $@)]) # lt_decl_varnames_tagged([SEPARATOR], [VARNAME1...]) # --------------------------------------------------- m4_define([lt_decl_varnames_tagged], [m4_assert([$# <= 2])dnl _$0(m4_quote(m4_default([$1], [[, ]])), m4_ifval([$2], [[$2]], [m4_dquote(lt_decl_tag_varnames)]), m4_split(m4_normalize(m4_quote(_LT_TAGS)), [ ]))]) m4_define([_lt_decl_varnames_tagged], [m4_ifval([$3], [lt_combine([$1], [$2], [_], $3)])]) # lt_decl_all_varnames([SEPARATOR], [VARNAME1...]) # ------------------------------------------------ m4_define([lt_decl_all_varnames], [_$0(m4_quote(m4_default([$1], [[, ]])), m4_if([$2], [], m4_quote(lt_decl_varnames), m4_quote(m4_shift($@))))[]dnl ]) m4_define([_lt_decl_all_varnames], [lt_join($@, lt_decl_varnames_tagged([$1], lt_decl_tag_varnames([[, ]], m4_shift($@))))dnl ]) # _LT_CONFIG_STATUS_DECLARE([VARNAME]) # ------------------------------------ # Quote a variable value, and forward it to `config.status' so that its # declaration there will have the same value as in `configure'. VARNAME # must have a single quote delimited value for this to work. m4_define([_LT_CONFIG_STATUS_DECLARE], [$1='`$ECHO "$][$1" | $SED "$delay_single_quote_subst"`']) # _LT_CONFIG_STATUS_DECLARATIONS # ------------------------------ # We delimit libtool config variables with single quotes, so when # we write them to config.status, we have to be sure to quote all # embedded single quotes properly. In configure, this macro expands # each variable declared with _LT_DECL (and _LT_TAGDECL) into: # # ='`$ECHO "$" | $SED "$delay_single_quote_subst"`' m4_defun([_LT_CONFIG_STATUS_DECLARATIONS], [m4_foreach([_lt_var], m4_quote(lt_decl_all_varnames), [m4_n([_LT_CONFIG_STATUS_DECLARE(_lt_var)])])]) # _LT_LIBTOOL_TAGS # ---------------- # Output comment and list of tags supported by the script m4_defun([_LT_LIBTOOL_TAGS], [_LT_FORMAT_COMMENT([The names of the tagged configurations supported by this script])dnl available_tags="_LT_TAGS"dnl ]) # _LT_LIBTOOL_DECLARE(VARNAME, [TAG]) # ----------------------------------- # Extract the dictionary values for VARNAME (optionally with TAG) and # expand to a commented shell variable setting: # # # Some comment about what VAR is for. # visible_name=$lt_internal_name m4_define([_LT_LIBTOOL_DECLARE], [_LT_FORMAT_COMMENT(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [description])))[]dnl m4_pushdef([_libtool_name], m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [libtool_name])))[]dnl m4_case(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [value])), [0], [_libtool_name=[$]$1], [1], [_libtool_name=$lt_[]$1], [2], [_libtool_name=$lt_[]$1], [_libtool_name=lt_dict_fetch([lt_decl_dict], [$1], [value])])[]dnl m4_ifval([$2], [_$2])[]m4_popdef([_libtool_name])[]dnl ]) # _LT_LIBTOOL_CONFIG_VARS # ----------------------- # Produce commented declarations of non-tagged libtool config variables # suitable for insertion in the LIBTOOL CONFIG section of the `libtool' # script. Tagged libtool config variables (even for the LIBTOOL CONFIG # section) are produced by _LT_LIBTOOL_TAG_VARS. m4_defun([_LT_LIBTOOL_CONFIG_VARS], [m4_foreach([_lt_var], m4_quote(_lt_decl_filter([tagged?], [no], [], lt_decl_varnames)), [m4_n([_LT_LIBTOOL_DECLARE(_lt_var)])])]) # _LT_LIBTOOL_TAG_VARS(TAG) # ------------------------- m4_define([_LT_LIBTOOL_TAG_VARS], [m4_foreach([_lt_var], m4_quote(lt_decl_tag_varnames), [m4_n([_LT_LIBTOOL_DECLARE(_lt_var, [$1])])])]) # _LT_TAGVAR(VARNAME, [TAGNAME]) # ------------------------------ m4_define([_LT_TAGVAR], [m4_ifval([$2], [$1_$2], [$1])]) # _LT_CONFIG_COMMANDS # ------------------- # Send accumulated output to $CONFIG_STATUS. Thanks to the lists of # variables for single and double quote escaping we saved from calls # to _LT_DECL, we can put quote escaped variables declarations # into `config.status', and then the shell code to quote escape them in # for loops in `config.status'. Finally, any additional code accumulated # from calls to _LT_CONFIG_LIBTOOL_INIT is expanded. m4_defun([_LT_CONFIG_COMMANDS], [AC_PROVIDE_IFELSE([LT_OUTPUT], dnl If the libtool generation code has been placed in $CONFIG_LT, dnl instead of duplicating it all over again into config.status, dnl then we will have config.status run $CONFIG_LT later, so it dnl needs to know what name is stored there: [AC_CONFIG_COMMANDS([libtool], [$SHELL $CONFIG_LT || AS_EXIT(1)], [CONFIG_LT='$CONFIG_LT'])], dnl If the libtool generation code is destined for config.status, dnl expand the accumulated commands and init code now: [AC_CONFIG_COMMANDS([libtool], [_LT_OUTPUT_LIBTOOL_COMMANDS], [_LT_OUTPUT_LIBTOOL_COMMANDS_INIT])]) ])#_LT_CONFIG_COMMANDS # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS_INIT], [ # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH sed_quote_subst='$sed_quote_subst' double_quote_subst='$double_quote_subst' delay_variable_subst='$delay_variable_subst' _LT_CONFIG_STATUS_DECLARATIONS LTCC='$LTCC' LTCFLAGS='$LTCFLAGS' compiler='$compiler_DEFAULT' # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$[]1 _LTECHO_EOF' } # Quote evaled strings. for var in lt_decl_all_varnames([[ \ ]], lt_decl_quote_varnames); do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[[\\\\\\\`\\"\\\$]]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done # Double-quote double-evaled strings. for var in lt_decl_all_varnames([[ \ ]], lt_decl_dquote_varnames); do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[[\\\\\\\`\\"\\\$]]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done _LT_OUTPUT_LIBTOOL_INIT ]) # _LT_GENERATED_FILE_INIT(FILE, [COMMENT]) # ------------------------------------ # Generate a child script FILE with all initialization necessary to # reuse the environment learned by the parent script, and make the # file executable. If COMMENT is supplied, it is inserted after the # `#!' sequence but before initialization text begins. After this # macro, additional text can be appended to FILE to form the body of # the child script. The macro ends with non-zero status if the # file could not be fully written (such as if the disk is full). m4_ifdef([AS_INIT_GENERATED], [m4_defun([_LT_GENERATED_FILE_INIT],[AS_INIT_GENERATED($@)])], [m4_defun([_LT_GENERATED_FILE_INIT], [m4_require([AS_PREPARE])]dnl [m4_pushdef([AS_MESSAGE_LOG_FD])]dnl [lt_write_fail=0 cat >$1 <<_ASEOF || lt_write_fail=1 #! $SHELL # Generated by $as_me. $2 SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$1 <<\_ASEOF || lt_write_fail=1 AS_SHELL_SANITIZE _AS_PREPARE exec AS_MESSAGE_FD>&1 _ASEOF test $lt_write_fail = 0 && chmod +x $1[]dnl m4_popdef([AS_MESSAGE_LOG_FD])])])# _LT_GENERATED_FILE_INIT # LT_OUTPUT # --------- # This macro allows early generation of the libtool script (before # AC_OUTPUT is called), incase it is used in configure for compilation # tests. AC_DEFUN([LT_OUTPUT], [: ${CONFIG_LT=./config.lt} AC_MSG_NOTICE([creating $CONFIG_LT]) _LT_GENERATED_FILE_INIT(["$CONFIG_LT"], [# Run this file to recreate a libtool stub with the current configuration.]) cat >>"$CONFIG_LT" <<\_LTEOF lt_cl_silent=false exec AS_MESSAGE_LOG_FD>>config.log { echo AS_BOX([Running $as_me.]) } >&AS_MESSAGE_LOG_FD lt_cl_help="\ \`$as_me' creates a local libtool stub from the current configuration, for use in further configure time tests before the real libtool is generated. Usage: $[0] [[OPTIONS]] -h, --help print this help, then exit -V, --version print version number, then exit -q, --quiet do not print progress messages -d, --debug don't remove temporary files Report bugs to ." lt_cl_version="\ m4_ifset([AC_PACKAGE_NAME], [AC_PACKAGE_NAME ])config.lt[]dnl m4_ifset([AC_PACKAGE_VERSION], [ AC_PACKAGE_VERSION]) configured by $[0], generated by m4_PACKAGE_STRING. Copyright (C) 2011 Free Software Foundation, Inc. This config.lt script is free software; the Free Software Foundation gives unlimited permision to copy, distribute and modify it." while test $[#] != 0 do case $[1] in --version | --v* | -V ) echo "$lt_cl_version"; exit 0 ;; --help | --h* | -h ) echo "$lt_cl_help"; exit 0 ;; --debug | --d* | -d ) debug=: ;; --quiet | --q* | --silent | --s* | -q ) lt_cl_silent=: ;; -*) AC_MSG_ERROR([unrecognized option: $[1] Try \`$[0] --help' for more information.]) ;; *) AC_MSG_ERROR([unrecognized argument: $[1] Try \`$[0] --help' for more information.]) ;; esac shift done if $lt_cl_silent; then exec AS_MESSAGE_FD>/dev/null fi _LTEOF cat >>"$CONFIG_LT" <<_LTEOF _LT_OUTPUT_LIBTOOL_COMMANDS_INIT _LTEOF cat >>"$CONFIG_LT" <<\_LTEOF AC_MSG_NOTICE([creating $ofile]) _LT_OUTPUT_LIBTOOL_COMMANDS AS_EXIT(0) _LTEOF chmod +x "$CONFIG_LT" # configure is writing to config.log, but config.lt does its own redirection, # appending to config.log, which fails on DOS, as config.log is still kept # open by configure. Here we exec the FD to /dev/null, effectively closing # config.log, so it can be properly (re)opened and appended to by config.lt. lt_cl_success=: test "$silent" = yes && lt_config_lt_args="$lt_config_lt_args --quiet" exec AS_MESSAGE_LOG_FD>/dev/null $SHELL "$CONFIG_LT" $lt_config_lt_args || lt_cl_success=false exec AS_MESSAGE_LOG_FD>>config.log $lt_cl_success || AS_EXIT(1) ])# LT_OUTPUT # _LT_CONFIG(TAG) # --------------- # If TAG is the built-in tag, create an initial libtool script with a # default configuration from the untagged config vars. Otherwise add code # to config.status for appending the configuration named by TAG from the # matching tagged config vars. m4_defun([_LT_CONFIG], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl _LT_CONFIG_SAVE_COMMANDS([ m4_define([_LT_TAG], m4_if([$1], [], [C], [$1]))dnl m4_if(_LT_TAG, [C], [ # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi cfgfile="${ofile}T" trap "$RM \"$cfgfile\"; exit 1" 1 2 15 $RM "$cfgfile" cat <<_LT_EOF >> "$cfgfile" #! $SHELL # `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $VERSION # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # NOTE: Changes made to this file will be lost: look at ltmain.sh. # _LT_COPYING _LT_LIBTOOL_TAGS # ### BEGIN LIBTOOL CONFIG _LT_LIBTOOL_CONFIG_VARS _LT_LIBTOOL_TAG_VARS # ### END LIBTOOL CONFIG _LT_EOF case $host_os in aix3*) cat <<\_LT_EOF >> "$cfgfile" # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi _LT_EOF ;; esac _LT_PROG_LTMAIN # We use sed instead of cat because bash on DJGPP gets confused if # if finds mixed CR/LF and LF-only lines. Since sed operates in # text mode, it properly converts lines to CR/LF. This bash problem # is reportedly fixed, but why not run on old versions too? sed '$q' "$ltmain" >> "$cfgfile" \ || (rm -f "$cfgfile"; exit 1) _LT_PROG_REPLACE_SHELLFNS mv -f "$cfgfile" "$ofile" || (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") chmod +x "$ofile" ], [cat <<_LT_EOF >> "$ofile" dnl Unfortunately we have to use $1 here, since _LT_TAG is not expanded dnl in a comment (ie after a #). # ### BEGIN LIBTOOL TAG CONFIG: $1 _LT_LIBTOOL_TAG_VARS(_LT_TAG) # ### END LIBTOOL TAG CONFIG: $1 _LT_EOF ])dnl /m4_if ], [m4_if([$1], [], [ PACKAGE='$PACKAGE' VERSION='$VERSION' TIMESTAMP='$TIMESTAMP' RM='$RM' ofile='$ofile'], []) ])dnl /_LT_CONFIG_SAVE_COMMANDS ])# _LT_CONFIG # LT_SUPPORTED_TAG(TAG) # --------------------- # Trace this macro to discover what tags are supported by the libtool # --tag option, using: # autoconf --trace 'LT_SUPPORTED_TAG:$1' AC_DEFUN([LT_SUPPORTED_TAG], []) # C support is built-in for now m4_define([_LT_LANG_C_enabled], []) m4_define([_LT_TAGS], []) # LT_LANG(LANG) # ------------- # Enable libtool support for the given language if not already enabled. AC_DEFUN([LT_LANG], [AC_BEFORE([$0], [LT_OUTPUT])dnl m4_case([$1], [C], [_LT_LANG(C)], [C++], [_LT_LANG(CXX)], [Go], [_LT_LANG(GO)], [Java], [_LT_LANG(GCJ)], [Fortran 77], [_LT_LANG(F77)], [Fortran], [_LT_LANG(FC)], [Windows Resource], [_LT_LANG(RC)], [m4_ifdef([_LT_LANG_]$1[_CONFIG], [_LT_LANG($1)], [m4_fatal([$0: unsupported language: "$1"])])])dnl ])# LT_LANG # _LT_LANG(LANGNAME) # ------------------ m4_defun([_LT_LANG], [m4_ifdef([_LT_LANG_]$1[_enabled], [], [LT_SUPPORTED_TAG([$1])dnl m4_append([_LT_TAGS], [$1 ])dnl m4_define([_LT_LANG_]$1[_enabled], [])dnl _LT_LANG_$1_CONFIG($1)])dnl ])# _LT_LANG m4_ifndef([AC_PROG_GO], [ ############################################################ # NOTE: This macro has been submitted for inclusion into # # GNU Autoconf as AC_PROG_GO. When it is available in # # a released version of Autoconf we should remove this # # macro and use it instead. # ############################################################ m4_defun([AC_PROG_GO], [AC_LANG_PUSH(Go)dnl AC_ARG_VAR([GOC], [Go compiler command])dnl AC_ARG_VAR([GOFLAGS], [Go compiler flags])dnl _AC_ARG_VAR_LDFLAGS()dnl AC_CHECK_TOOL(GOC, gccgo) if test -z "$GOC"; then if test -n "$ac_tool_prefix"; then AC_CHECK_PROG(GOC, [${ac_tool_prefix}gccgo], [${ac_tool_prefix}gccgo]) fi fi if test -z "$GOC"; then AC_CHECK_PROG(GOC, gccgo, gccgo, false) fi ])#m4_defun ])#m4_ifndef # _LT_LANG_DEFAULT_CONFIG # ----------------------- m4_defun([_LT_LANG_DEFAULT_CONFIG], [AC_PROVIDE_IFELSE([AC_PROG_CXX], [LT_LANG(CXX)], [m4_define([AC_PROG_CXX], defn([AC_PROG_CXX])[LT_LANG(CXX)])]) AC_PROVIDE_IFELSE([AC_PROG_F77], [LT_LANG(F77)], [m4_define([AC_PROG_F77], defn([AC_PROG_F77])[LT_LANG(F77)])]) AC_PROVIDE_IFELSE([AC_PROG_FC], [LT_LANG(FC)], [m4_define([AC_PROG_FC], defn([AC_PROG_FC])[LT_LANG(FC)])]) dnl The call to [A][M_PROG_GCJ] is quoted like that to stop aclocal dnl pulling things in needlessly. AC_PROVIDE_IFELSE([AC_PROG_GCJ], [LT_LANG(GCJ)], [AC_PROVIDE_IFELSE([A][M_PROG_GCJ], [LT_LANG(GCJ)], [AC_PROVIDE_IFELSE([LT_PROG_GCJ], [LT_LANG(GCJ)], [m4_ifdef([AC_PROG_GCJ], [m4_define([AC_PROG_GCJ], defn([AC_PROG_GCJ])[LT_LANG(GCJ)])]) m4_ifdef([A][M_PROG_GCJ], [m4_define([A][M_PROG_GCJ], defn([A][M_PROG_GCJ])[LT_LANG(GCJ)])]) m4_ifdef([LT_PROG_GCJ], [m4_define([LT_PROG_GCJ], defn([LT_PROG_GCJ])[LT_LANG(GCJ)])])])])]) AC_PROVIDE_IFELSE([AC_PROG_GO], [LT_LANG(GO)], [m4_define([AC_PROG_GO], defn([AC_PROG_GO])[LT_LANG(GO)])]) AC_PROVIDE_IFELSE([LT_PROG_RC], [LT_LANG(RC)], [m4_define([LT_PROG_RC], defn([LT_PROG_RC])[LT_LANG(RC)])]) ])# _LT_LANG_DEFAULT_CONFIG # Obsolete macros: AU_DEFUN([AC_LIBTOOL_CXX], [LT_LANG(C++)]) AU_DEFUN([AC_LIBTOOL_F77], [LT_LANG(Fortran 77)]) AU_DEFUN([AC_LIBTOOL_FC], [LT_LANG(Fortran)]) AU_DEFUN([AC_LIBTOOL_GCJ], [LT_LANG(Java)]) AU_DEFUN([AC_LIBTOOL_RC], [LT_LANG(Windows Resource)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_CXX], []) dnl AC_DEFUN([AC_LIBTOOL_F77], []) dnl AC_DEFUN([AC_LIBTOOL_FC], []) dnl AC_DEFUN([AC_LIBTOOL_GCJ], []) dnl AC_DEFUN([AC_LIBTOOL_RC], []) # _LT_TAG_COMPILER # ---------------- m4_defun([_LT_TAG_COMPILER], [AC_REQUIRE([AC_PROG_CC])dnl _LT_DECL([LTCC], [CC], [1], [A C compiler])dnl _LT_DECL([LTCFLAGS], [CFLAGS], [1], [LTCC compiler flags])dnl _LT_TAGDECL([CC], [compiler], [1], [A language specific compiler])dnl _LT_TAGDECL([with_gcc], [GCC], [0], [Is the compiler the GNU compiler?])dnl # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC ])# _LT_TAG_COMPILER # _LT_COMPILER_BOILERPLATE # ------------------------ # Check for compiler boilerplate output or warnings with # the simple compiler test code. m4_defun([_LT_COMPILER_BOILERPLATE], [m4_require([_LT_DECL_SED])dnl ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $RM conftest* ])# _LT_COMPILER_BOILERPLATE # _LT_LINKER_BOILERPLATE # ---------------------- # Check for linker boilerplate output or warnings with # the simple link test code. m4_defun([_LT_LINKER_BOILERPLATE], [m4_require([_LT_DECL_SED])dnl ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $RM -r conftest* ])# _LT_LINKER_BOILERPLATE # _LT_REQUIRED_DARWIN_CHECKS # ------------------------- m4_defun_once([_LT_REQUIRED_DARWIN_CHECKS],[ case $host_os in rhapsody* | darwin*) AC_CHECK_TOOL([DSYMUTIL], [dsymutil], [:]) AC_CHECK_TOOL([NMEDIT], [nmedit], [:]) AC_CHECK_TOOL([LIPO], [lipo], [:]) AC_CHECK_TOOL([OTOOL], [otool], [:]) AC_CHECK_TOOL([OTOOL64], [otool64], [:]) _LT_DECL([], [DSYMUTIL], [1], [Tool to manipulate archived DWARF debug symbol files on Mac OS X]) _LT_DECL([], [NMEDIT], [1], [Tool to change global to local symbols on Mac OS X]) _LT_DECL([], [LIPO], [1], [Tool to manipulate fat objects and archives on Mac OS X]) _LT_DECL([], [OTOOL], [1], [ldd/readelf like tool for Mach-O binaries on Mac OS X]) _LT_DECL([], [OTOOL64], [1], [ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4]) AC_CACHE_CHECK([for -single_module linker flag],[lt_cv_apple_cc_single_mod], [lt_cv_apple_cc_single_mod=no if test -z "${LT_MULTI_MODULE}"; then # By default we will add the -single_module flag. You can override # by either setting the environment variable LT_MULTI_MODULE # non-empty at configure time, or by adding -multi_module to the # link flags. rm -rf libconftest.dylib* echo "int foo(void){return 1;}" > conftest.c echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err _lt_result=$? # If there is a non-empty error log, and "single_module" # appears in it, assume the flag caused a linker warning if test -s conftest.err && $GREP single_module conftest.err; then cat conftest.err >&AS_MESSAGE_LOG_FD # Otherwise, if the output was created with a 0 exit code from # the compiler, it worked. elif test -f libconftest.dylib && test $_lt_result -eq 0; then lt_cv_apple_cc_single_mod=yes else cat conftest.err >&AS_MESSAGE_LOG_FD fi rm -rf libconftest.dylib* rm -f conftest.* fi]) AC_CACHE_CHECK([for -exported_symbols_list linker flag], [lt_cv_ld_exported_symbols_list], [lt_cv_ld_exported_symbols_list=no save_LDFLAGS=$LDFLAGS echo "_main" > conftest.sym LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])], [lt_cv_ld_exported_symbols_list=yes], [lt_cv_ld_exported_symbols_list=no]) LDFLAGS="$save_LDFLAGS" ]) AC_CACHE_CHECK([for -force_load linker flag],[lt_cv_ld_force_load], [lt_cv_ld_force_load=no cat > conftest.c << _LT_EOF int forced_loaded() { return 2;} _LT_EOF echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&AS_MESSAGE_LOG_FD echo "$AR cru libconftest.a conftest.o" >&AS_MESSAGE_LOG_FD $AR cru libconftest.a conftest.o 2>&AS_MESSAGE_LOG_FD echo "$RANLIB libconftest.a" >&AS_MESSAGE_LOG_FD $RANLIB libconftest.a 2>&AS_MESSAGE_LOG_FD cat > conftest.c << _LT_EOF int main() { return 0;} _LT_EOF echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err _lt_result=$? if test -s conftest.err && $GREP force_load conftest.err; then cat conftest.err >&AS_MESSAGE_LOG_FD elif test -f conftest && test $_lt_result -eq 0 && $GREP forced_load conftest >/dev/null 2>&1 ; then lt_cv_ld_force_load=yes else cat conftest.err >&AS_MESSAGE_LOG_FD fi rm -f conftest.err libconftest.a conftest conftest.c rm -rf conftest.dSYM ]) case $host_os in rhapsody* | darwin1.[[012]]) _lt_dar_allow_undefined='${wl}-undefined ${wl}suppress' ;; darwin1.*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; darwin*) # darwin 5.x on # if running on 10.5 or later, the deployment target defaults # to the OS version, if on x86, and 10.4, the deployment # target defaults to 10.4. Don't you love it? case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in 10.0,*86*-darwin8*|10.0,*-darwin[[91]]*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; 10.[[012]]*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; 10.*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; esac ;; esac if test "$lt_cv_apple_cc_single_mod" = "yes"; then _lt_dar_single_mod='$single_module' fi if test "$lt_cv_ld_exported_symbols_list" = "yes"; then _lt_dar_export_syms=' ${wl}-exported_symbols_list,$output_objdir/${libname}-symbols.expsym' else _lt_dar_export_syms='~$NMEDIT -s $output_objdir/${libname}-symbols.expsym ${lib}' fi if test "$DSYMUTIL" != ":" && test "$lt_cv_ld_force_load" = "no"; then _lt_dsymutil='~$DSYMUTIL $lib || :' else _lt_dsymutil= fi ;; esac ]) # _LT_DARWIN_LINKER_FEATURES([TAG]) # --------------------------------- # Checks for linker and compiler features on darwin m4_defun([_LT_DARWIN_LINKER_FEATURES], [ m4_require([_LT_REQUIRED_DARWIN_CHECKS]) _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported if test "$lt_cv_ld_force_load" = "yes"; then _LT_TAGVAR(whole_archive_flag_spec, $1)='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' m4_case([$1], [F77], [_LT_TAGVAR(compiler_needs_object, $1)=yes], [FC], [_LT_TAGVAR(compiler_needs_object, $1)=yes]) else _LT_TAGVAR(whole_archive_flag_spec, $1)='' fi _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(allow_undefined_flag, $1)="$_lt_dar_allow_undefined" case $cc_basename in ifort*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; then output_verbose_link_cmd=func_echo_all _LT_TAGVAR(archive_cmds, $1)="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" _LT_TAGVAR(module_cmds, $1)="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" _LT_TAGVAR(module_expsym_cmds, $1)="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" m4_if([$1], [CXX], [ if test "$lt_cv_apple_cc_single_mod" != "yes"; then _LT_TAGVAR(archive_cmds, $1)="\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dsymutil}" _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dar_export_syms}${_lt_dsymutil}" fi ],[]) else _LT_TAGVAR(ld_shlibs, $1)=no fi ]) # _LT_SYS_MODULE_PATH_AIX([TAGNAME]) # ---------------------------------- # Links a minimal program and checks the executable # for the system default hardcoded library path. In most cases, # this is /usr/lib:/lib, but when the MPI compilers are used # the location of the communication and MPI libs are included too. # If we don't find anything, use the default library path according # to the aix ld manual. # Store the results from the different compilers for each TAGNAME. # Allow to override them for all tags through lt_cv_aix_libpath. m4_defun([_LT_SYS_MODULE_PATH_AIX], [m4_require([_LT_DECL_SED])dnl if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else AC_CACHE_VAL([_LT_TAGVAR([lt_cv_aix_libpath_], [$1])], [AC_LINK_IFELSE([AC_LANG_PROGRAM],[ lt_aix_libpath_sed='[ /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }]' _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi],[]) if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then _LT_TAGVAR([lt_cv_aix_libpath_], [$1])="/usr/lib:/lib" fi ]) aix_libpath=$_LT_TAGVAR([lt_cv_aix_libpath_], [$1]) fi ])# _LT_SYS_MODULE_PATH_AIX # _LT_SHELL_INIT(ARG) # ------------------- m4_define([_LT_SHELL_INIT], [m4_divert_text([M4SH-INIT], [$1 ])])# _LT_SHELL_INIT # _LT_PROG_ECHO_BACKSLASH # ----------------------- # Find how we can fake an echo command that does not interpret backslash. # In particular, with Autoconf 2.60 or later we add some code to the start # of the generated configure script which will find a shell with a builtin # printf (which we can use as an echo command). m4_defun([_LT_PROG_ECHO_BACKSLASH], [ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO AC_MSG_CHECKING([how to print strings]) # Test print first, because it will be a builtin if present. if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='print -r --' elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='printf %s\n' else # Use this function as a fallback that always works. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $[]1 _LTECHO_EOF' } ECHO='func_fallback_echo' fi # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "$*" } case "$ECHO" in printf*) AC_MSG_RESULT([printf]) ;; print*) AC_MSG_RESULT([print -r]) ;; *) AC_MSG_RESULT([cat]) ;; esac m4_ifdef([_AS_DETECT_SUGGESTED], [_AS_DETECT_SUGGESTED([ test -n "${ZSH_VERSION+set}${BASH_VERSION+set}" || ( ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO PATH=/empty FPATH=/empty; export PATH FPATH test "X`printf %s $ECHO`" = "X$ECHO" \ || test "X`print -r -- $ECHO`" = "X$ECHO" )])]) _LT_DECL([], [SHELL], [1], [Shell to use when invoking shell scripts]) _LT_DECL([], [ECHO], [1], [An echo program that protects backslashes]) ])# _LT_PROG_ECHO_BACKSLASH # _LT_WITH_SYSROOT # ---------------- AC_DEFUN([_LT_WITH_SYSROOT], [AC_MSG_CHECKING([for sysroot]) AC_ARG_WITH([sysroot], [ --with-sysroot[=DIR] Search for dependent libraries within DIR (or the compiler's sysroot if not specified).], [], [with_sysroot=no]) dnl lt_sysroot will always be passed unquoted. We quote it here dnl in case the user passed a directory name. lt_sysroot= case ${with_sysroot} in #( yes) if test "$GCC" = yes; then lt_sysroot=`$CC --print-sysroot 2>/dev/null` fi ;; #( /*) lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` ;; #( no|'') ;; #( *) AC_MSG_RESULT([${with_sysroot}]) AC_MSG_ERROR([The sysroot must be an absolute path.]) ;; esac AC_MSG_RESULT([${lt_sysroot:-no}]) _LT_DECL([], [lt_sysroot], [0], [The root where to search for ]dnl [dependent libraries, and in which our libraries should be installed.])]) # _LT_ENABLE_LOCK # --------------- m4_defun([_LT_ENABLE_LOCK], [AC_ARG_ENABLE([libtool-lock], [AS_HELP_STRING([--disable-libtool-lock], [avoid locking (might break parallel builds)])]) test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in ia64-*-hpux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.$ac_objext` in *ELF-32*) HPUX_IA64_MODE="32" ;; *ELF-64*) HPUX_IA64_MODE="64" ;; esac fi rm -rf conftest* ;; *-*-irix6*) # Find out which ABI we are using. echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then if test "$lt_cv_prog_gnu_ld" = yes; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.o` in *32-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_i386_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_i386" ;; ppc64-*linux*|powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_x86_64_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; ppc*-*linux*|powerpc*-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*|s390*-*tpf*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS -belf" AC_CACHE_CHECK([whether the C compiler needs -belf], lt_cv_cc_needs_belf, [AC_LANG_PUSH(C) AC_LINK_IFELSE([AC_LANG_PROGRAM([[]],[[]])],[lt_cv_cc_needs_belf=yes],[lt_cv_cc_needs_belf=no]) AC_LANG_POP]) if test x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; *-*solaris*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.o` in *64-bit*) case $lt_cv_prog_gnu_ld in yes*) case $host in i?86-*-solaris*) LD="${LD-ld} -m elf_x86_64" ;; sparc*-*-solaris*) LD="${LD-ld} -m elf64_sparc" ;; esac # GNU ld 2.21 introduced _sol2 emulations. Use them if available. if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then LD="${LD-ld}_sol2" fi ;; *) if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then LD="${LD-ld} -64" fi ;; esac ;; esac fi rm -rf conftest* ;; esac need_locks="$enable_libtool_lock" ])# _LT_ENABLE_LOCK # _LT_PROG_AR # ----------- m4_defun([_LT_PROG_AR], [AC_CHECK_TOOLS(AR, [ar], false) : ${AR=ar} : ${AR_FLAGS=cru} _LT_DECL([], [AR], [1], [The archiver]) _LT_DECL([], [AR_FLAGS], [1], [Flags to create an archive]) AC_CACHE_CHECK([for archiver @FILE support], [lt_cv_ar_at_file], [lt_cv_ar_at_file=no AC_COMPILE_IFELSE([AC_LANG_PROGRAM], [echo conftest.$ac_objext > conftest.lst lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&AS_MESSAGE_LOG_FD' AC_TRY_EVAL([lt_ar_try]) if test "$ac_status" -eq 0; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a AC_TRY_EVAL([lt_ar_try]) if test "$ac_status" -ne 0; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a ]) ]) if test "x$lt_cv_ar_at_file" = xno; then archiver_list_spec= else archiver_list_spec=$lt_cv_ar_at_file fi _LT_DECL([], [archiver_list_spec], [1], [How to feed a file listing to the archiver]) ])# _LT_PROG_AR # _LT_CMD_OLD_ARCHIVE # ------------------- m4_defun([_LT_CMD_OLD_ARCHIVE], [_LT_PROG_AR AC_CHECK_TOOL(STRIP, strip, :) test -z "$STRIP" && STRIP=: _LT_DECL([], [STRIP], [1], [A symbol stripping program]) AC_CHECK_TOOL(RANLIB, ranlib, :) test -z "$RANLIB" && RANLIB=: _LT_DECL([], [RANLIB], [1], [Commands used to install an old-style archive]) # Determine commands to create old-style static archives. old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' old_postinstall_cmds='chmod 644 $oldlib' old_postuninstall_cmds= if test -n "$RANLIB"; then case $host_os in openbsd*) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" ;; *) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" ;; esac old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" fi case $host_os in darwin*) lock_old_archive_extraction=yes ;; *) lock_old_archive_extraction=no ;; esac _LT_DECL([], [old_postinstall_cmds], [2]) _LT_DECL([], [old_postuninstall_cmds], [2]) _LT_TAGDECL([], [old_archive_cmds], [2], [Commands used to build an old-style archive]) _LT_DECL([], [lock_old_archive_extraction], [0], [Whether to use a lock for old archive extraction]) ])# _LT_CMD_OLD_ARCHIVE # _LT_COMPILER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, # [OUTPUT-FILE], [ACTION-SUCCESS], [ACTION-FAILURE]) # ---------------------------------------------------------------- # Check whether the given compiler option works AC_DEFUN([_LT_COMPILER_OPTION], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_SED])dnl AC_CACHE_CHECK([$1], [$2], [$2=no m4_if([$4], , [ac_outfile=conftest.$ac_objext], [ac_outfile=$4]) echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$3" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&AS_MESSAGE_LOG_FD echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then $2=yes fi fi $RM conftest* ]) if test x"[$]$2" = xyes; then m4_if([$5], , :, [$5]) else m4_if([$6], , :, [$6]) fi ])# _LT_COMPILER_OPTION # Old name: AU_ALIAS([AC_LIBTOOL_COMPILER_OPTION], [_LT_COMPILER_OPTION]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_COMPILER_OPTION], []) # _LT_LINKER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, # [ACTION-SUCCESS], [ACTION-FAILURE]) # ---------------------------------------------------- # Check whether the given linker option works AC_DEFUN([_LT_LINKER_OPTION], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_SED])dnl AC_CACHE_CHECK([$1], [$2], [$2=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $3" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&AS_MESSAGE_LOG_FD $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then $2=yes fi else $2=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" ]) if test x"[$]$2" = xyes; then m4_if([$4], , :, [$4]) else m4_if([$5], , :, [$5]) fi ])# _LT_LINKER_OPTION # Old name: AU_ALIAS([AC_LIBTOOL_LINKER_OPTION], [_LT_LINKER_OPTION]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_LINKER_OPTION], []) # LT_CMD_MAX_LEN #--------------- AC_DEFUN([LT_CMD_MAX_LEN], [AC_REQUIRE([AC_CANONICAL_HOST])dnl # find the maximum length of command line arguments AC_MSG_CHECKING([the maximum length of command line arguments]) AC_CACHE_VAL([lt_cv_sys_max_cmd_len], [dnl i=0 teststring="ABCD" case $build_os in msdosdjgpp*) # On DJGPP, this test can blow up pretty badly due to problems in libc # (any single argument exceeding 2000 bytes causes a buffer overrun # during glob expansion). Even if it were fixed, the result of this # check would be larger than it should be. lt_cv_sys_max_cmd_len=12288; # 12K is about right ;; gnu*) # Under GNU Hurd, this test is not required because there is # no limit to the length of command line arguments. # Libtool will interpret -1 as no limit whatsoever lt_cv_sys_max_cmd_len=-1; ;; cygwin* | mingw* | cegcc*) # On Win9x/ME, this test blows up -- it succeeds, but takes # about 5 minutes as the teststring grows exponentially. # Worse, since 9x/ME are not pre-emptively multitasking, # you end up with a "frozen" computer, even though with patience # the test eventually succeeds (with a max line length of 256k). # Instead, let's just punt: use the minimum linelength reported by # all of the supported platforms: 8192 (on NT/2K/XP). lt_cv_sys_max_cmd_len=8192; ;; mint*) # On MiNT this can take a long time and run out of memory. lt_cv_sys_max_cmd_len=8192; ;; amigaos*) # On AmigaOS with pdksh, this test takes hours, literally. # So we just punt and use a minimum line length of 8192. lt_cv_sys_max_cmd_len=8192; ;; netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) # This has been around since 386BSD, at least. Likely further. if test -x /sbin/sysctl; then lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` elif test -x /usr/sbin/sysctl; then lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` else lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; interix*) # We know the value 262144 and hardcode it with a safety zone (like BSD) lt_cv_sys_max_cmd_len=196608 ;; os2*) # The test takes a long time on OS/2. lt_cv_sys_max_cmd_len=8192 ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not # nice to cause kernel panics so lets avoid the loop below. # First set a reasonable default. lt_cv_sys_max_cmd_len=16384 # if test -x /sbin/sysconfig; then case `/sbin/sysconfig -q proc exec_disable_arg_limit` in *1*) lt_cv_sys_max_cmd_len=-1 ;; esac fi ;; sco3.2v5*) lt_cv_sys_max_cmd_len=102400 ;; sysv5* | sco5v6* | sysv4.2uw2*) kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` if test -n "$kargmax"; then lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[[ ]]//'` else lt_cv_sys_max_cmd_len=32768 fi ;; *) lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` if test -n "$lt_cv_sys_max_cmd_len"; then lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` else # Make teststring a little bigger before we do anything with it. # a 1K string should be a reasonable start. for i in 1 2 3 4 5 6 7 8 ; do teststring=$teststring$teststring done SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} # If test is not a shell built-in, we'll probably end up computing a # maximum length that is only half of the actual maximum length, but # we can't tell. while { test "X"`env echo "$teststring$teststring" 2>/dev/null` \ = "X$teststring$teststring"; } >/dev/null 2>&1 && test $i != 17 # 1/2 MB should be enough do i=`expr $i + 1` teststring=$teststring$teststring done # Only check the string length outside the loop. lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` teststring= # Add a significant safety factor because C++ compilers can tack on # massive amounts of additional arguments before passing them to the # linker. It appears as though 1/2 is a usable value. lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` fi ;; esac ]) if test -n $lt_cv_sys_max_cmd_len ; then AC_MSG_RESULT($lt_cv_sys_max_cmd_len) else AC_MSG_RESULT(none) fi max_cmd_len=$lt_cv_sys_max_cmd_len _LT_DECL([], [max_cmd_len], [0], [What is the maximum length of a command?]) ])# LT_CMD_MAX_LEN # Old name: AU_ALIAS([AC_LIBTOOL_SYS_MAX_CMD_LEN], [LT_CMD_MAX_LEN]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_SYS_MAX_CMD_LEN], []) # _LT_HEADER_DLFCN # ---------------- m4_defun([_LT_HEADER_DLFCN], [AC_CHECK_HEADERS([dlfcn.h], [], [], [AC_INCLUDES_DEFAULT])dnl ])# _LT_HEADER_DLFCN # _LT_TRY_DLOPEN_SELF (ACTION-IF-TRUE, ACTION-IF-TRUE-W-USCORE, # ACTION-IF-FALSE, ACTION-IF-CROSS-COMPILING) # ---------------------------------------------------------------- m4_defun([_LT_TRY_DLOPEN_SELF], [m4_require([_LT_HEADER_DLFCN])dnl if test "$cross_compiling" = yes; then : [$4] else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF [#line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisbility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; }] _LT_EOF if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&AS_MESSAGE_LOG_FD 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) $1 ;; x$lt_dlneed_uscore) $2 ;; x$lt_dlunknown|x*) $3 ;; esac else : # compilation failed $3 fi fi rm -fr conftest* ])# _LT_TRY_DLOPEN_SELF # LT_SYS_DLOPEN_SELF # ------------------ AC_DEFUN([LT_SYS_DLOPEN_SELF], [m4_require([_LT_HEADER_DLFCN])dnl if test "x$enable_dlopen" != xyes; then enable_dlopen=unknown enable_dlopen_self=unknown enable_dlopen_self_static=unknown else lt_cv_dlopen=no lt_cv_dlopen_libs= case $host_os in beos*) lt_cv_dlopen="load_add_on" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ;; mingw* | pw32* | cegcc*) lt_cv_dlopen="LoadLibrary" lt_cv_dlopen_libs= ;; cygwin*) lt_cv_dlopen="dlopen" lt_cv_dlopen_libs= ;; darwin*) # if libdl is installed we need to link against it AC_CHECK_LIB([dl], [dlopen], [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"],[ lt_cv_dlopen="dyld" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ]) ;; *) AC_CHECK_FUNC([shl_load], [lt_cv_dlopen="shl_load"], [AC_CHECK_LIB([dld], [shl_load], [lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld"], [AC_CHECK_FUNC([dlopen], [lt_cv_dlopen="dlopen"], [AC_CHECK_LIB([dl], [dlopen], [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"], [AC_CHECK_LIB([svld], [dlopen], [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld"], [AC_CHECK_LIB([dld], [dld_link], [lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld"]) ]) ]) ]) ]) ]) ;; esac if test "x$lt_cv_dlopen" != xno; then enable_dlopen=yes else enable_dlopen=no fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS="$CPPFLAGS" test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" save_LDFLAGS="$LDFLAGS" wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" save_LIBS="$LIBS" LIBS="$lt_cv_dlopen_libs $LIBS" AC_CACHE_CHECK([whether a program can dlopen itself], lt_cv_dlopen_self, [dnl _LT_TRY_DLOPEN_SELF( lt_cv_dlopen_self=yes, lt_cv_dlopen_self=yes, lt_cv_dlopen_self=no, lt_cv_dlopen_self=cross) ]) if test "x$lt_cv_dlopen_self" = xyes; then wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" AC_CACHE_CHECK([whether a statically linked program can dlopen itself], lt_cv_dlopen_self_static, [dnl _LT_TRY_DLOPEN_SELF( lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=no, lt_cv_dlopen_self_static=cross) ]) fi CPPFLAGS="$save_CPPFLAGS" LDFLAGS="$save_LDFLAGS" LIBS="$save_LIBS" ;; esac case $lt_cv_dlopen_self in yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; *) enable_dlopen_self=unknown ;; esac case $lt_cv_dlopen_self_static in yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; *) enable_dlopen_self_static=unknown ;; esac fi _LT_DECL([dlopen_support], [enable_dlopen], [0], [Whether dlopen is supported]) _LT_DECL([dlopen_self], [enable_dlopen_self], [0], [Whether dlopen of programs is supported]) _LT_DECL([dlopen_self_static], [enable_dlopen_self_static], [0], [Whether dlopen of statically linked programs is supported]) ])# LT_SYS_DLOPEN_SELF # Old name: AU_ALIAS([AC_LIBTOOL_DLOPEN_SELF], [LT_SYS_DLOPEN_SELF]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_DLOPEN_SELF], []) # _LT_COMPILER_C_O([TAGNAME]) # --------------------------- # Check to see if options -c and -o are simultaneously supported by compiler. # This macro does not hard code the compiler like AC_PROG_CC_C_O. m4_defun([_LT_COMPILER_C_O], [m4_require([_LT_DECL_SED])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_TAG_COMPILER])dnl AC_CACHE_CHECK([if $compiler supports -c -o file.$ac_objext], [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)], [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&AS_MESSAGE_LOG_FD echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then _LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes fi fi chmod u+w . 2>&AS_MESSAGE_LOG_FD $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* ]) _LT_TAGDECL([compiler_c_o], [lt_cv_prog_compiler_c_o], [1], [Does compiler simultaneously support -c and -o options?]) ])# _LT_COMPILER_C_O # _LT_COMPILER_FILE_LOCKS([TAGNAME]) # ---------------------------------- # Check to see if we can do hard links to lock some files if needed m4_defun([_LT_COMPILER_FILE_LOCKS], [m4_require([_LT_ENABLE_LOCK])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl _LT_COMPILER_C_O([$1]) hard_links="nottested" if test "$_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user AC_MSG_CHECKING([if we can lock with hard links]) hard_links=yes $RM conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no AC_MSG_RESULT([$hard_links]) if test "$hard_links" = no; then AC_MSG_WARN([`$CC' does not support `-c -o', so `make -j' may be unsafe]) need_locks=warn fi else need_locks=no fi _LT_DECL([], [need_locks], [1], [Must we lock files when doing compilation?]) ])# _LT_COMPILER_FILE_LOCKS # _LT_CHECK_OBJDIR # ---------------- m4_defun([_LT_CHECK_OBJDIR], [AC_CACHE_CHECK([for objdir], [lt_cv_objdir], [rm -f .libs 2>/dev/null mkdir .libs 2>/dev/null if test -d .libs; then lt_cv_objdir=.libs else # MS-DOS does not allow filenames that begin with a dot. lt_cv_objdir=_libs fi rmdir .libs 2>/dev/null]) objdir=$lt_cv_objdir _LT_DECL([], [objdir], [0], [The name of the directory that contains temporary libtool files])dnl m4_pattern_allow([LT_OBJDIR])dnl AC_DEFINE_UNQUOTED(LT_OBJDIR, "$lt_cv_objdir/", [Define to the sub-directory in which libtool stores uninstalled libraries.]) ])# _LT_CHECK_OBJDIR # _LT_LINKER_HARDCODE_LIBPATH([TAGNAME]) # -------------------------------------- # Check hardcoding attributes. m4_defun([_LT_LINKER_HARDCODE_LIBPATH], [AC_MSG_CHECKING([how to hardcode library paths into programs]) _LT_TAGVAR(hardcode_action, $1)= if test -n "$_LT_TAGVAR(hardcode_libdir_flag_spec, $1)" || test -n "$_LT_TAGVAR(runpath_var, $1)" || test "X$_LT_TAGVAR(hardcode_automatic, $1)" = "Xyes" ; then # We can hardcode non-existent directories. if test "$_LT_TAGVAR(hardcode_direct, $1)" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_TAGVAR(hardcode_shlibpath_var, $1)" != no && test "$_LT_TAGVAR(hardcode_minus_L, $1)" != no; then # Linking always hardcodes the temporary library directory. _LT_TAGVAR(hardcode_action, $1)=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. _LT_TAGVAR(hardcode_action, $1)=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. _LT_TAGVAR(hardcode_action, $1)=unsupported fi AC_MSG_RESULT([$_LT_TAGVAR(hardcode_action, $1)]) if test "$_LT_TAGVAR(hardcode_action, $1)" = relink || test "$_LT_TAGVAR(inherit_rpath, $1)" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi _LT_TAGDECL([], [hardcode_action], [0], [How to hardcode a shared library path into an executable]) ])# _LT_LINKER_HARDCODE_LIBPATH # _LT_CMD_STRIPLIB # ---------------- m4_defun([_LT_CMD_STRIPLIB], [m4_require([_LT_DECL_EGREP]) striplib= old_striplib= AC_MSG_CHECKING([whether stripping libraries is possible]) if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" test -z "$striplib" && striplib="$STRIP --strip-unneeded" AC_MSG_RESULT([yes]) else # FIXME - insert some real tests, host_os isn't really good enough case $host_os in darwin*) if test -n "$STRIP" ; then striplib="$STRIP -x" old_striplib="$STRIP -S" AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) fi ;; *) AC_MSG_RESULT([no]) ;; esac fi _LT_DECL([], [old_striplib], [1], [Commands to strip libraries]) _LT_DECL([], [striplib], [1]) ])# _LT_CMD_STRIPLIB # _LT_SYS_DYNAMIC_LINKER([TAG]) # ----------------------------- # PORTME Fill in your ld.so characteristics m4_defun([_LT_SYS_DYNAMIC_LINKER], [AC_REQUIRE([AC_CANONICAL_HOST])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_OBJDUMP])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_CHECK_SHELL_FEATURES])dnl AC_MSG_CHECKING([dynamic linker characteristics]) m4_if([$1], [], [ if test "$GCC" = yes; then case $host_os in darwin*) lt_awk_arg="/^libraries:/,/LR/" ;; *) lt_awk_arg="/^libraries:/" ;; esac case $host_os in mingw* | cegcc*) lt_sed_strip_eq="s,=\([[A-Za-z]]:\),\1,g" ;; *) lt_sed_strip_eq="s,=/,/,g" ;; esac lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` case $lt_search_path_spec in *\;*) # if the path contains ";" then we assume it to be the separator # otherwise default to the standard path separator (i.e. ":") - it is # assumed that no part of a normal pathname contains ";" but that should # okay in the real world where ";" in dirpaths is itself problematic. lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` ;; *) lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` ;; esac # Ok, now we have the path, separated by spaces, we can step through it # and add multilib dir if necessary. lt_tmp_lt_search_path_spec= lt_multi_os_dir=`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` for lt_sys_path in $lt_search_path_spec; do if test -d "$lt_sys_path/$lt_multi_os_dir"; then lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path/$lt_multi_os_dir" else test -d "$lt_sys_path" && \ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" fi done lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' BEGIN {RS=" "; FS="/|\n";} { lt_foo=""; lt_count=0; for (lt_i = NF; lt_i > 0; lt_i--) { if ($lt_i != "" && $lt_i != ".") { if ($lt_i == "..") { lt_count++; } else { if (lt_count == 0) { lt_foo="/" $lt_i lt_foo; } else { lt_count--; } } } } if (lt_foo != "") { lt_freq[[lt_foo]]++; } if (lt_freq[[lt_foo]] == 1) { print lt_foo; } }'` # AWK program above erroneously prepends '/' to C:/dos/paths # for these hosts. case $host_os in mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ $SED 's,/\([[A-Za-z]]:\),\1,g'` ;; esac sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` else sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" fi]) library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[[4-9]]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[[01]] | aix4.[[01]].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) case $host_cpu in powerpc) # Since July 2007 AmigaOS4 officially supports .so libraries. # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' ;; m68k) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([[^/]]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; esac ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[[45]]*) version_type=linux # correct to gnu/linux during the next big refactor need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32* | cegcc*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$cc_basename in yes,*) # gcc library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' m4_if([$1], [],[ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api"]) ;; mingw* | cegcc*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' ;; esac dynamic_linker='Win32 ld.exe' ;; *,cl*) # Native MSVC libname_spec='$name' soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' library_names_spec='${libname}.dll.lib' case $build_os in mingw*) sys_lib_search_path_spec= lt_save_ifs=$IFS IFS=';' for lt_path in $LIB do IFS=$lt_save_ifs # Let DOS variable expansion print the short 8.3 style file name. lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" done IFS=$lt_save_ifs # Convert to MSYS style. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([[a-zA-Z]]\\):| /\\1|g' -e 's|^ ||'` ;; cygwin*) # Convert to unix form, then to dos form, then back to unix form # but this time dos style (no spaces!) so that the unix form looks # like /cygdrive/c/PROGRA~1:/cygdr... sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` ;; *) sys_lib_search_path_spec="$LIB" if $ECHO "$sys_lib_search_path_spec" | [$GREP ';[c-zC-Z]:/' >/dev/null]; then # It is most probably a Windows format PATH. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # FIXME: find the short name or the path components, as spaces are # common. (e.g. "Program Files" -> "PROGRA~1") ;; esac # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes dynamic_linker='Win32 link.exe' ;; *) # Assume MSVC wrapper library_names_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext} $libname.lib' dynamic_linker='Win32 ld.exe' ;; esac # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' m4_if([$1], [],[ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib"]) sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[[23]].*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2.*) shlibpath_overrides_runpath=yes ;; freebsd3.[[01]]* | freebsdelf3.[[01]]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[[2-9]]* | freebsdelf3.[[2-9]]* | \ freebsd4.[[0-5]] | freebsdelf4.[[0-5]] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; gnu*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; haiku*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no dynamic_linker="$host_os runtime_loader" library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LIBRARY_PATH shlibpath_overrides_runpath=yes sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555, ... postinstall_cmds='chmod 555 $lib' # or fails outright, so override atomically: install_override_mode=555 ;; interix[[3-9]]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux # correct to gnu/linux during the next big refactor else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # Some binutils ld are patched to set DT_RUNPATH AC_CACHE_VAL([lt_cv_shlibpath_overrides_runpath], [lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$_LT_TAGVAR(lt_prog_compiler_wl, $1)\"; \ LDFLAGS=\"\$LDFLAGS $_LT_TAGVAR(hardcode_libdir_flag_spec, $1)\"" AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])], [AS_IF([ ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null], [lt_cv_shlibpath_overrides_runpath=yes])]) LDFLAGS=$save_LDFLAGS libdir=$save_libdir ]) shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \[$]2)); skip = 1; } { if (!skip) print \[$]0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsdelf*-gnu) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='NetBSD ld.elf_so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; *nto* | *qnx*) version_type=qnx need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='ldqnx.so' ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[[89]] | openbsd2.[[89]].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; tpf*) # TPF is a cross-target only. Preferred cross-host = GNU/Linux. version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; uts4*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac AC_MSG_RESULT([$dynamic_linker]) test "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi _LT_DECL([], [variables_saved_for_relink], [1], [Variables whose values should be saved in libtool wrapper scripts and restored at link time]) _LT_DECL([], [need_lib_prefix], [0], [Do we need the "lib" prefix for modules?]) _LT_DECL([], [need_version], [0], [Do we need a version for libraries?]) _LT_DECL([], [version_type], [0], [Library versioning type]) _LT_DECL([], [runpath_var], [0], [Shared library runtime path variable]) _LT_DECL([], [shlibpath_var], [0],[Shared library path variable]) _LT_DECL([], [shlibpath_overrides_runpath], [0], [Is shlibpath searched before the hard-coded library search path?]) _LT_DECL([], [libname_spec], [1], [Format of library name prefix]) _LT_DECL([], [library_names_spec], [1], [[List of archive names. First name is the real one, the rest are links. The last name is the one that the linker finds with -lNAME]]) _LT_DECL([], [soname_spec], [1], [[The coded name of the library, if different from the real name]]) _LT_DECL([], [install_override_mode], [1], [Permission mode override for installation of shared libraries]) _LT_DECL([], [postinstall_cmds], [2], [Command to use after installation of a shared archive]) _LT_DECL([], [postuninstall_cmds], [2], [Command to use after uninstallation of a shared archive]) _LT_DECL([], [finish_cmds], [2], [Commands used to finish a libtool library installation in a directory]) _LT_DECL([], [finish_eval], [1], [[As "finish_cmds", except a single script fragment to be evaled but not shown]]) _LT_DECL([], [hardcode_into_libs], [0], [Whether we should hardcode library paths into libraries]) _LT_DECL([], [sys_lib_search_path_spec], [2], [Compile-time system search path for libraries]) _LT_DECL([], [sys_lib_dlsearch_path_spec], [2], [Run-time system search path for libraries]) ])# _LT_SYS_DYNAMIC_LINKER # _LT_PATH_TOOL_PREFIX(TOOL) # -------------------------- # find a file program which can recognize shared library AC_DEFUN([_LT_PATH_TOOL_PREFIX], [m4_require([_LT_DECL_EGREP])dnl AC_MSG_CHECKING([for $1]) AC_CACHE_VAL(lt_cv_path_MAGIC_CMD, [case $MAGIC_CMD in [[\\/*] | ?:[\\/]*]) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR dnl $ac_dummy forces splitting on constant user-supplied paths. dnl POSIX.2 word splitting is done only on the output of word expansions, dnl not every word. This closes a longstanding sh security hole. ac_dummy="m4_if([$2], , $PATH, [$2])" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$1; then lt_cv_path_MAGIC_CMD="$ac_dir/$1" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac]) MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then AC_MSG_RESULT($MAGIC_CMD) else AC_MSG_RESULT(no) fi _LT_DECL([], [MAGIC_CMD], [0], [Used to examine libraries when file_magic_cmd begins with "file"])dnl ])# _LT_PATH_TOOL_PREFIX # Old name: AU_ALIAS([AC_PATH_TOOL_PREFIX], [_LT_PATH_TOOL_PREFIX]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_PATH_TOOL_PREFIX], []) # _LT_PATH_MAGIC # -------------- # find a file program which can recognize a shared library m4_defun([_LT_PATH_MAGIC], [_LT_PATH_TOOL_PREFIX(${ac_tool_prefix}file, /usr/bin$PATH_SEPARATOR$PATH) if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then _LT_PATH_TOOL_PREFIX(file, /usr/bin$PATH_SEPARATOR$PATH) else MAGIC_CMD=: fi fi ])# _LT_PATH_MAGIC # LT_PATH_LD # ---------- # find the pathname to the GNU or non-GNU linker AC_DEFUN([LT_PATH_LD], [AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_PROG_ECHO_BACKSLASH])dnl AC_ARG_WITH([gnu-ld], [AS_HELP_STRING([--with-gnu-ld], [assume the C compiler uses GNU ld @<:@default=no@:>@])], [test "$withval" = no || with_gnu_ld=yes], [with_gnu_ld=no])dnl ac_prog=ld if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. AC_MSG_CHECKING([for ld used by $CC]) case $host in *-*-mingw*) # gcc leaves a trailing carriage return which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case $ac_prog in # Accept absolute paths. [[\\/]]* | ?:[[\\/]]*) re_direlt='/[[^/]][[^/]]*/\.\./' # Canonicalize the pathname of ld ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'` while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"` done test -z "$LD" && LD="$ac_prog" ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac elif test "$with_gnu_ld" = yes; then AC_MSG_CHECKING([for GNU ld]) else AC_MSG_CHECKING([for non-GNU ld]) fi AC_CACHE_VAL(lt_cv_path_LD, [if test -z "$LD"; then lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &1 /dev/null 2>&1; then lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' else # Keep this pattern in sync with the one in func_win32_libid. lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' lt_cv_file_magic_cmd='$OBJDUMP -f' fi ;; cegcc*) # use the weaker test based on 'objdump'. See mingw*. lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' lt_cv_file_magic_cmd='$OBJDUMP -f' ;; darwin* | rhapsody*) lt_cv_deplibs_check_method=pass_all ;; freebsd* | dragonfly*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[[3-9]]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; gnu*) lt_cv_deplibs_check_method=pass_all ;; haiku*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20* | hpux11*) lt_cv_file_magic_cmd=/usr/bin/file case $host_cpu in ia64*) lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|ELF-[[0-9]][[0-9]]) shared object file - IA64' lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; hppa*64*) [lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]'] lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl ;; *) lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|PA-RISC[[0-9]]\.[[0-9]]) shared library' lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; esac ;; interix[[3-9]]*) # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|\.a)$' ;; irix5* | irix6* | nonstopux*) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac lt_cv_deplibs_check_method=pass_all ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu) lt_cv_deplibs_check_method=pass_all ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|_pic\.a)$' fi ;; newos6*) lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; *nto* | *qnx*) lt_cv_deplibs_check_method=pass_all ;; openbsd*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|\.so|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' fi ;; osf3* | osf4* | osf5*) lt_cv_deplibs_check_method=pass_all ;; rdos*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.3*) case $host_vendor in motorola) lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib) M[[0-9]][[0-9]]* Version [[0-9]]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; ncr) lt_cv_deplibs_check_method=pass_all ;; sequent) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB (shared object|dynamic lib )' ;; sni) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method="file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB dynamic lib" lt_cv_file_magic_test_file=/lib/libc.so ;; siemens) lt_cv_deplibs_check_method=pass_all ;; pc) lt_cv_deplibs_check_method=pass_all ;; esac ;; tpf*) lt_cv_deplibs_check_method=pass_all ;; esac ]) file_magic_glob= want_nocaseglob=no if test "$build" = "$host"; then case $host_os in mingw* | pw32*) if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then want_nocaseglob=yes else file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[[\1]]\/[[\1]]\/g;/g"` fi ;; esac fi file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method test -z "$deplibs_check_method" && deplibs_check_method=unknown _LT_DECL([], [deplibs_check_method], [1], [Method to check whether dependent libraries are shared objects]) _LT_DECL([], [file_magic_cmd], [1], [Command to use when deplibs_check_method = "file_magic"]) _LT_DECL([], [file_magic_glob], [1], [How to find potential files when deplibs_check_method = "file_magic"]) _LT_DECL([], [want_nocaseglob], [1], [Find potential files using nocaseglob when deplibs_check_method = "file_magic"]) ])# _LT_CHECK_MAGIC_METHOD # LT_PATH_NM # ---------- # find the pathname to a BSD- or MS-compatible name lister AC_DEFUN([LT_PATH_NM], [AC_REQUIRE([AC_PROG_CC])dnl AC_CACHE_CHECK([for BSD- or MS-compatible name lister (nm)], lt_cv_path_NM, [if test -n "$NM"; then # Let the user override the test. lt_cv_path_NM="$NM" else lt_nm_to_check="${ac_tool_prefix}nm" if test -n "$ac_tool_prefix" && test "$build" = "$host"; then lt_nm_to_check="$lt_nm_to_check nm" fi for lt_tmp_nm in $lt_nm_to_check; do lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. tmp_nm="$ac_dir/$lt_tmp_nm" if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then # Check to see if the nm accepts a BSD-compat flag. # Adding the `sed 1q' prevents false positives on HP-UX, which says: # nm: unknown option "B" ignored # Tru64's nm complains that /dev/null is an invalid object file case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in */dev/null* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break ;; *) lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags ;; esac ;; esac fi done IFS="$lt_save_ifs" done : ${lt_cv_path_NM=no} fi]) if test "$lt_cv_path_NM" != "no"; then NM="$lt_cv_path_NM" else # Didn't find any BSD compatible name lister, look for dumpbin. if test -n "$DUMPBIN"; then : # Let the user override the test. else AC_CHECK_TOOLS(DUMPBIN, [dumpbin "link -dump"], :) case `$DUMPBIN -symbols /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols" ;; *) DUMPBIN=: ;; esac fi AC_SUBST([DUMPBIN]) if test "$DUMPBIN" != ":"; then NM="$DUMPBIN" fi fi test -z "$NM" && NM=nm AC_SUBST([NM]) _LT_DECL([], [NM], [1], [A BSD- or MS-compatible name lister])dnl AC_CACHE_CHECK([the name lister ($NM) interface], [lt_cv_nm_interface], [lt_cv_nm_interface="BSD nm" echo "int some_variable = 0;" > conftest.$ac_ext (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$ac_compile" 2>conftest.err) cat conftest.err >&AS_MESSAGE_LOG_FD (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&AS_MESSAGE_LOG_FD) (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) cat conftest.err >&AS_MESSAGE_LOG_FD (eval echo "\"\$as_me:$LINENO: output\"" >&AS_MESSAGE_LOG_FD) cat conftest.out >&AS_MESSAGE_LOG_FD if $GREP 'External.*some_variable' conftest.out > /dev/null; then lt_cv_nm_interface="MS dumpbin" fi rm -f conftest*]) ])# LT_PATH_NM # Old names: AU_ALIAS([AM_PROG_NM], [LT_PATH_NM]) AU_ALIAS([AC_PROG_NM], [LT_PATH_NM]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_PROG_NM], []) dnl AC_DEFUN([AC_PROG_NM], []) # _LT_CHECK_SHAREDLIB_FROM_LINKLIB # -------------------------------- # how to determine the name of the shared library # associated with a specific link library. # -- PORTME fill in with the dynamic library characteristics m4_defun([_LT_CHECK_SHAREDLIB_FROM_LINKLIB], [m4_require([_LT_DECL_EGREP]) m4_require([_LT_DECL_OBJDUMP]) m4_require([_LT_DECL_DLLTOOL]) AC_CACHE_CHECK([how to associate runtime and link libraries], lt_cv_sharedlib_from_linklib_cmd, [lt_cv_sharedlib_from_linklib_cmd='unknown' case $host_os in cygwin* | mingw* | pw32* | cegcc*) # two different shell functions defined in ltmain.sh # decide which to use based on capabilities of $DLLTOOL case `$DLLTOOL --help 2>&1` in *--identify-strict*) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib ;; *) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback ;; esac ;; *) # fallback: assume linklib IS sharedlib lt_cv_sharedlib_from_linklib_cmd="$ECHO" ;; esac ]) sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO _LT_DECL([], [sharedlib_from_linklib_cmd], [1], [Command to associate shared and link libraries]) ])# _LT_CHECK_SHAREDLIB_FROM_LINKLIB # _LT_PATH_MANIFEST_TOOL # ---------------------- # locate the manifest tool m4_defun([_LT_PATH_MANIFEST_TOOL], [AC_CHECK_TOOL(MANIFEST_TOOL, mt, :) test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt AC_CACHE_CHECK([if $MANIFEST_TOOL is a manifest tool], [lt_cv_path_mainfest_tool], [lt_cv_path_mainfest_tool=no echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&AS_MESSAGE_LOG_FD $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out cat conftest.err >&AS_MESSAGE_LOG_FD if $GREP 'Manifest Tool' conftest.out > /dev/null; then lt_cv_path_mainfest_tool=yes fi rm -f conftest*]) if test "x$lt_cv_path_mainfest_tool" != xyes; then MANIFEST_TOOL=: fi _LT_DECL([], [MANIFEST_TOOL], [1], [Manifest tool])dnl ])# _LT_PATH_MANIFEST_TOOL # LT_LIB_M # -------- # check for math library AC_DEFUN([LT_LIB_M], [AC_REQUIRE([AC_CANONICAL_HOST])dnl LIBM= case $host in *-*-beos* | *-*-cegcc* | *-*-cygwin* | *-*-haiku* | *-*-pw32* | *-*-darwin*) # These system don't have libm, or don't need it ;; *-ncr-sysv4.3*) AC_CHECK_LIB(mw, _mwvalidcheckl, LIBM="-lmw") AC_CHECK_LIB(m, cos, LIBM="$LIBM -lm") ;; *) AC_CHECK_LIB(m, cos, LIBM="-lm") ;; esac AC_SUBST([LIBM]) ])# LT_LIB_M # Old name: AU_ALIAS([AC_CHECK_LIBM], [LT_LIB_M]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_CHECK_LIBM], []) # _LT_COMPILER_NO_RTTI([TAGNAME]) # ------------------------------- m4_defun([_LT_COMPILER_NO_RTTI], [m4_require([_LT_TAG_COMPILER])dnl _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= if test "$GCC" = yes; then case $cc_basename in nvcc*) _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -Xcompiler -fno-builtin' ;; *) _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' ;; esac _LT_COMPILER_OPTION([if $compiler supports -fno-rtti -fno-exceptions], lt_cv_prog_compiler_rtti_exceptions, [-fno-rtti -fno-exceptions], [], [_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)="$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) -fno-rtti -fno-exceptions"]) fi _LT_TAGDECL([no_builtin_flag], [lt_prog_compiler_no_builtin_flag], [1], [Compiler flag to turn off builtin functions]) ])# _LT_COMPILER_NO_RTTI # _LT_CMD_GLOBAL_SYMBOLS # ---------------------- m4_defun([_LT_CMD_GLOBAL_SYMBOLS], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([AC_PROG_AWK])dnl AC_REQUIRE([LT_PATH_NM])dnl AC_REQUIRE([LT_PATH_LD])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_TAG_COMPILER])dnl # Check for command to grab the raw symbol name followed by C symbol from nm. AC_MSG_CHECKING([command to parse $NM output from $compiler object]) AC_CACHE_VAL([lt_cv_sys_global_symbol_pipe], [ # These are sane defaults that work on at least a few old systems. # [They come from Ultrix. What could be older than Ultrix?!! ;)] # Character class describing NM global symbol codes. symcode='[[BCDEGRST]]' # Regexp to match symbols that can be accessed directly from C. sympat='\([[_A-Za-z]][[_A-Za-z0-9]]*\)' # Define system-specific variables. case $host_os in aix*) symcode='[[BCDT]]' ;; cygwin* | mingw* | pw32* | cegcc*) symcode='[[ABCDGISTW]]' ;; hpux*) if test "$host_cpu" = ia64; then symcode='[[ABCDEGRST]]' fi ;; irix* | nonstopux*) symcode='[[BCDEGRST]]' ;; osf*) symcode='[[BCDEGQRST]]' ;; solaris*) symcode='[[BDRT]]' ;; sco3.2v5*) symcode='[[DT]]' ;; sysv4.2uw2*) symcode='[[DT]]' ;; sysv5* | sco5v6* | unixware* | OpenUNIX*) symcode='[[ABDT]]' ;; sysv4) symcode='[[DFNSTU]]' ;; esac # If we're using GNU nm, then use its standard symbol codes. case `$NM -V 2>&1` in *GNU* | *'with BFD'*) symcode='[[ABCDGIRSTW]]' ;; esac # Transform an extracted symbol line into a proper C declaration. # Some systems (esp. on ia64) link data and code symbols differently, # so use this general approach. lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" # Transform an extracted symbol line into symbol name and symbol address lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p'" lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \(lib[[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"lib\2\", (void *) \&\2},/p'" # Handle CRLF in mingw tool chain opt_cr= case $build_os in mingw*) opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp ;; esac # Try without a prefix underscore, then with it. for ac_symprfx in "" "_"; do # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. symxfrm="\\1 $ac_symprfx\\2 \\2" # Write the raw and C identifiers. if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Fake it for dumpbin and say T for any non-static function # and D for any global variable. # Also find C++ and __fastcall symbols from MSVC++, # which start with @ or ?. lt_cv_sys_global_symbol_pipe="$AWK ['"\ " {last_section=section; section=\$ 3};"\ " /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ " /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\ " {split(\$ 0, a, /\||\r/); split(a[2], s)};"\ " s[1]~/^[@?]/{print s[1], s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print t[1], substr(t[1],length(prfx))}"\ " ' prfx=^$ac_symprfx]" else lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[[ ]]\($symcode$symcode*\)[[ ]][[ ]]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" fi lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" # Check to see that the pipe works correctly. pipe_works=no rm -f conftest* cat > conftest.$ac_ext <<_LT_EOF #ifdef __cplusplus extern "C" { #endif char nm_test_var; void nm_test_func(void); void nm_test_func(void){} #ifdef __cplusplus } #endif int main(){nm_test_var='a';nm_test_func();return(0);} _LT_EOF if AC_TRY_EVAL(ac_compile); then # Now try to grab the symbols. nlist=conftest.nm if AC_TRY_EVAL(NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) && test -s "$nlist"; then # Try sorting and uniquifying the output. if sort "$nlist" | uniq > "$nlist"T; then mv -f "$nlist"T "$nlist" else rm -f "$nlist"T fi # Make sure that we snagged all the symbols we need. if $GREP ' nm_test_var$' "$nlist" >/dev/null; then if $GREP ' nm_test_func$' "$nlist" >/dev/null; then cat <<_LT_EOF > conftest.$ac_ext /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE) /* DATA imports from DLLs on WIN32 con't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT@&t@_DLSYM_CONST #elif defined(__osf__) /* This system does not cope well with relocations in const data. */ # define LT@&t@_DLSYM_CONST #else # define LT@&t@_DLSYM_CONST const #endif #ifdef __cplusplus extern "C" { #endif _LT_EOF # Now generate the symbol file. eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' cat <<_LT_EOF >> conftest.$ac_ext /* The mapping between symbol names and symbols. */ LT@&t@_DLSYM_CONST struct { const char *name; void *address; } lt__PROGRAM__LTX_preloaded_symbols[[]] = { { "@PROGRAM@", (void *) 0 }, _LT_EOF $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext cat <<\_LT_EOF >> conftest.$ac_ext {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt__PROGRAM__LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif _LT_EOF # Now try linking the two files. mv conftest.$ac_objext conftstm.$ac_objext lt_globsym_save_LIBS=$LIBS lt_globsym_save_CFLAGS=$CFLAGS LIBS="conftstm.$ac_objext" CFLAGS="$CFLAGS$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)" if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext}; then pipe_works=yes fi LIBS=$lt_globsym_save_LIBS CFLAGS=$lt_globsym_save_CFLAGS else echo "cannot find nm_test_func in $nlist" >&AS_MESSAGE_LOG_FD fi else echo "cannot find nm_test_var in $nlist" >&AS_MESSAGE_LOG_FD fi else echo "cannot run $lt_cv_sys_global_symbol_pipe" >&AS_MESSAGE_LOG_FD fi else echo "$progname: failed program was:" >&AS_MESSAGE_LOG_FD cat conftest.$ac_ext >&5 fi rm -rf conftest* conftst* # Do not use the global_symbol_pipe unless it works. if test "$pipe_works" = yes; then break else lt_cv_sys_global_symbol_pipe= fi done ]) if test -z "$lt_cv_sys_global_symbol_pipe"; then lt_cv_sys_global_symbol_to_cdecl= fi if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then AC_MSG_RESULT(failed) else AC_MSG_RESULT(ok) fi # Response file support. if test "$lt_cv_nm_interface" = "MS dumpbin"; then nm_file_list_spec='@' elif $NM --help 2>/dev/null | grep '[[@]]FILE' >/dev/null; then nm_file_list_spec='@' fi _LT_DECL([global_symbol_pipe], [lt_cv_sys_global_symbol_pipe], [1], [Take the output of nm and produce a listing of raw symbols and C names]) _LT_DECL([global_symbol_to_cdecl], [lt_cv_sys_global_symbol_to_cdecl], [1], [Transform the output of nm in a proper C declaration]) _LT_DECL([global_symbol_to_c_name_address], [lt_cv_sys_global_symbol_to_c_name_address], [1], [Transform the output of nm in a C name address pair]) _LT_DECL([global_symbol_to_c_name_address_lib_prefix], [lt_cv_sys_global_symbol_to_c_name_address_lib_prefix], [1], [Transform the output of nm in a C name address pair when lib prefix is needed]) _LT_DECL([], [nm_file_list_spec], [1], [Specify filename containing input files for $NM]) ]) # _LT_CMD_GLOBAL_SYMBOLS # _LT_COMPILER_PIC([TAGNAME]) # --------------------------- m4_defun([_LT_COMPILER_PIC], [m4_require([_LT_TAG_COMPILER])dnl _LT_TAGVAR(lt_prog_compiler_wl, $1)= _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)= m4_if([$1], [CXX], [ # C++ specific cases for pic, static, wl, etc. if test "$GXX" = yes; then _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | os2* | pw32* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' ;; *djgpp*) # DJGPP does not support shared libraries at all _LT_TAGVAR(lt_prog_compiler_pic, $1)= ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. _LT_TAGVAR(lt_prog_compiler_static, $1)= ;; interix[[3-9]]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic fi ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac else case $host_os in aix[[4-9]]*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' else _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' fi ;; chorus*) case $cc_basename in cxch68*) # Green Hills C++ Compiler # _LT_TAGVAR(lt_prog_compiler_static, $1)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a" ;; esac ;; mingw* | cygwin* | os2* | pw32* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; dgux*) case $cc_basename in ec++*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' ;; ghcx*) # Green Hills C++ Compiler _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; *) ;; esac ;; freebsd* | dragonfly*) # FreeBSD uses GNU C++ ;; hpux9* | hpux10* | hpux11*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' if test "$host_cpu" != ia64; then _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' fi ;; aCC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' ;; esac ;; *) ;; esac ;; interix*) # This is c89, which is MS Visual C++ (no shared libs) # Anyone wants to do a port? ;; irix5* | irix6* | nonstopux*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' # CC pic flag -KPIC is the default. ;; *) ;; esac ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in KCC*) # KAI C++ Compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; ecpc* ) # old Intel C++ for x86_64 which still supported -KPIC. _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; icpc* ) # Intel C++, used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; pgCC* | pgcpp*) # Portland Group C++ compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; cxx*) # Compaq C++ # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; xlc* | xlC* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL 8.0, 9.0 on PPC and BlueGene _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; esac ;; esac ;; lynxos*) ;; m88k*) ;; mvs*) case $cc_basename in cxx*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-W c,exportall' ;; *) ;; esac ;; netbsd* | netbsdelf*-gnu) ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' ;; RCC*) # Rational C++ 2.4.1 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; cxx*) # Digital/Compaq C++ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; *) ;; esac ;; psos*) ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; gcx*) # Green Hills C++ Compiler _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' ;; *) ;; esac ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; lcc*) # Lucid _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; *) ;; esac ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' ;; *) ;; esac ;; vxworks*) ;; *) _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; esac fi ], [ if test "$GCC" = yes; then _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. _LT_TAGVAR(lt_prog_compiler_static, $1)= ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac ;; interix[[3-9]]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no enable_shared=no ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic fi ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac case $cc_basename in nvcc*) # Cuda Compiler Driver 2.2 _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Xlinker ' if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then _LT_TAGVAR(lt_prog_compiler_pic, $1)="-Xcompiler $_LT_TAGVAR(lt_prog_compiler_pic, $1)" fi ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' else _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' fi ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; hpux9* | hpux10* | hpux11*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? _LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # PIC (with -KPIC) is the default. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in # old Intel for x86_64 which still supported -KPIC. ecc*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; # icc used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. icc* | ifort*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; # Lahey Fortran 8.1. lf95*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='--shared' _LT_TAGVAR(lt_prog_compiler_static, $1)='--static' ;; nagfor*) # NAG Fortran compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,-Wl,,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; ccc*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # All Alpha code is PIC. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; xl* | bgxl* | bgf* | mpixl*) # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [[1-7]].* | *Sun*Fortran*\ 8.[[0-3]]*) # Sun Fortran 8.3 passes all unrecognized flags to the linker _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='' ;; *Sun\ F* | *Sun*Fortran*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; *Sun\ C*) # Sun C 5.9 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' ;; *Intel*\ [[CF]]*Compiler*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; *Portland\ Group*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; esac ;; esac ;; newsos6) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; osf3* | osf4* | osf5*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # All OSF/1 code is PIC. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; rdos*) _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; solaris*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' case $cc_basename in f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ';; *) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,';; esac ;; sunos4*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec ;then _LT_TAGVAR(lt_prog_compiler_pic, $1)='-Kconform_pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; unicos*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; uts4*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; *) _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; esac fi ]) case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) _LT_TAGVAR(lt_prog_compiler_pic, $1)= ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)="$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])" ;; esac AC_CACHE_CHECK([for $compiler option to produce PIC], [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)], [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_prog_compiler_pic, $1)]) _LT_TAGVAR(lt_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_cv_prog_compiler_pic, $1) # # Check to make sure the PIC flag actually works. # if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then _LT_COMPILER_OPTION([if $compiler PIC flag $_LT_TAGVAR(lt_prog_compiler_pic, $1) works], [_LT_TAGVAR(lt_cv_prog_compiler_pic_works, $1)], [$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])], [], [case $_LT_TAGVAR(lt_prog_compiler_pic, $1) in "" | " "*) ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)=" $_LT_TAGVAR(lt_prog_compiler_pic, $1)" ;; esac], [_LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no]) fi _LT_TAGDECL([pic_flag], [lt_prog_compiler_pic], [1], [Additional compiler flags for building library objects]) _LT_TAGDECL([wl], [lt_prog_compiler_wl], [1], [How to pass a linker flag through the compiler]) # # Check to make sure the static flag actually works. # wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) eval lt_tmp_static_flag=\"$_LT_TAGVAR(lt_prog_compiler_static, $1)\" _LT_LINKER_OPTION([if $compiler static flag $lt_tmp_static_flag works], _LT_TAGVAR(lt_cv_prog_compiler_static_works, $1), $lt_tmp_static_flag, [], [_LT_TAGVAR(lt_prog_compiler_static, $1)=]) _LT_TAGDECL([link_static_flag], [lt_prog_compiler_static], [1], [Compiler flag to prevent dynamic linking]) ])# _LT_COMPILER_PIC # _LT_LINKER_SHLIBS([TAGNAME]) # ---------------------------- # See if the linker supports building shared libraries. m4_defun([_LT_LINKER_SHLIBS], [AC_REQUIRE([LT_PATH_LD])dnl AC_REQUIRE([LT_PATH_NM])dnl m4_require([_LT_PATH_MANIFEST_TOOL])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl m4_require([_LT_TAG_COMPILER])dnl AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) m4_if([$1], [CXX], [ _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'] case $host_os in aix[[4-9]]*) # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global defined # symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi ;; pw32*) _LT_TAGVAR(export_symbols_cmds, $1)="$ltdll_cmds" ;; cygwin* | mingw* | cegcc*) case $cc_basename in cl*) _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' ;; *) _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'] ;; esac ;; linux* | k*bsd*-gnu | gnu*) _LT_TAGVAR(link_all_deplibs, $1)=no ;; *) _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' ;; esac ], [ runpath_var= _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_cmds, $1)= _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(compiler_needs_object, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(old_archive_from_new_cmds, $1)= _LT_TAGVAR(old_archive_from_expsyms_cmds, $1)= _LT_TAGVAR(thread_safe_flag_spec, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list _LT_TAGVAR(include_expsyms, $1)= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ` (' and `)$', so one must not match beginning or # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', # as well as any symbol that contains `d'. _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'] # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. dnl Note also adjust exclude_expsyms for C++ above. extract_expsyms_cmds= case $host_os in cygwin* | mingw* | pw32* | cegcc*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) with_gnu_ld=no ;; linux* | k*bsd*-gnu | gnu*) _LT_TAGVAR(link_all_deplibs, $1)=no ;; esac _LT_TAGVAR(ld_shlibs, $1)=yes # On some targets, GNU ld is compatible enough with the native linker # that we're better off using the native interface for both. lt_use_gnu_ld_interface=no if test "$with_gnu_ld" = yes; then case $host_os in aix*) # The AIX port of GNU ld has always aspired to compatibility # with the native linker. However, as the warning in the GNU ld # block says, versions before 2.19.5* couldn't really create working # shared libraries, regardless of the interface used. case `$LD -v 2>&1` in *\ \(GNU\ Binutils\)\ 2.19.5*) ;; *\ \(GNU\ Binutils\)\ 2.[[2-9]]*) ;; *\ \(GNU\ Binutils\)\ [[3-9]]*) ;; *) lt_use_gnu_ld_interface=yes ;; esac ;; *) lt_use_gnu_ld_interface=yes ;; esac fi if test "$lt_use_gnu_ld_interface" = yes; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='${wl}' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then _LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else _LT_TAGVAR(whole_archive_flag_spec, $1)= fi supports_anon_versioning=no case `$LD -v 2>&1` in *GNU\ gold*) supports_anon_versioning=yes ;; *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[[3-9]]*) # On AIX/PPC, the GNU linker is very broken if test "$host_cpu" != ia64; then _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: the GNU linker, at least up to release 2.19, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to install binutils *** 2.20 or above, or modify your PATH so that a non-GNU linker is found. *** You will then need to restart the configuration process. _LT_EOF fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='' ;; m68k) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; cygwin* | mingw* | pw32* | cegcc*) # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, # as there is no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-all-symbols' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'] if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; haiku*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(link_all_deplibs, $1)=yes ;; interix[[3-9]]*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) tmp_diet=no if test "$host_os" = linux-dietlibc; then case $cc_basename in diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) esac fi if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ && test "$tmp_diet" = no then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group f77 and f90 compilers _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; lf95*) # Lahey Fortran 8.1 _LT_TAGVAR(whole_archive_flag_spec, $1)= tmp_sharedflag='--shared' ;; xl[[cC]]* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL C 8.0 on PPC (deal with xlf below) tmp_sharedflag='-qmkshrobj' tmp_addflag= ;; nvcc*) # Cuda Compiler Driver 2.2 _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; esac _LT_TAGVAR(archive_cmds, $1)='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi case $cc_basename in xlf* | bgf* | bgxlf* | mpixlf*) # IBM XL Fortran 10.1 on PPC cannot create shared libs itself _LT_TAGVAR(whole_archive_flag_spec, $1)='--whole-archive$convenience --no-whole-archive' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(archive_cmds, $1)='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' if test "x$supports_anon_versioning" = xyes; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' fi ;; esac else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.1[[0-5]].*) _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) # For security reasons, it is highly recommended that you always # use absolute paths for naming shared libraries, and exclude the # DT_RUNPATH tag from executables and libraries. But doing so # requires that you compile everything twice, which is a pain. if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; sunos4*) _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac if test "$_LT_TAGVAR(ld_shlibs, $1)" = no; then runpath_var= _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(archive_expsym_cmds, $1)='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. _LT_TAGVAR(hardcode_minus_L, $1)=yes if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. _LT_TAGVAR(hardcode_direct, $1)=unsupported fi ;; aix[[4-9]]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global # defined symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. _LT_TAGVAR(archive_cmds, $1)='' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(file_list_spec, $1)='${wl}-f,' if test "$GCC" = yes; then case $host_os in aix4.[[012]]|aix4.[[012]].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 _LT_TAGVAR(hardcode_direct, $1)=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)= fi ;; esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi _LT_TAGVAR(link_all_deplibs, $1)=no else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. _LT_TAGVAR(always_export_symbols, $1)=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. _LT_TAGVAR(allow_undefined_flag, $1)='-berok' # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib' _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs" _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. _LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok' _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience' fi _LT_TAGVAR(archive_cmds_need_lc, $1)=yes # This is similar to how AIX traditionally builds its shared libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='' ;; m68k) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac ;; bsdi[[45]]*) _LT_TAGVAR(export_dynamic_flag_spec, $1)=-rdynamic ;; cygwin* | mingw* | pw32* | cegcc*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. case $cc_basename in cl*) # Native MSVC _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(file_list_spec, $1)='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1,DATA/'\'' | $SED -e '\''/^[[AITW]][[ ]]/s/.*[[ ]]//'\'' | sort | uniq > $export_symbols' # Don't use ranlib _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib' _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # Assume MSVC wrapper _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' # FIXME: Should let the user specify the lib program. _LT_TAGVAR(old_archive_cmds, $1)='lib -OUT:$oldlib$oldobjs$old_deplibs' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes ;; esac ;; darwin* | rhapsody*) _LT_DARWIN_LINKER_FEATURES($1) ;; dgux*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2.*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; hpux9*) if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_direct, $1)=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' ;; hpux10*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test "$with_gnu_ld" = no; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes fi ;; hpux11*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) m4_if($1, [], [ # Older versions of the 11.00 compiler do not understand -b yet # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) _LT_LINKER_OPTION([if $CC understands -b], _LT_TAGVAR(lt_cv_prog_compiler__b, $1), [-b], [_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'], [_LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'])], [_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags']) ;; esac fi if test "$with_gnu_ld" = no; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: case $host_cpu in hppa*64*|ia64*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' # Try to use the -exported_symbol ld option, if it does not # work, assume that -exports_file does not work either and # implicitly export all symbols. # This should be the same for all languages, so no per-tag cache variable. AC_CACHE_CHECK([whether the $host_os linker accepts -exported_symbol], [lt_cv_irix_exported_symbol], [save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null" AC_LINK_IFELSE( [AC_LANG_SOURCE( [AC_LANG_CASE([C], [[int foo (void) { return 0; }]], [C++], [[int foo (void) { return 0; }]], [Fortran 77], [[ subroutine foo end]], [Fortran], [[ subroutine foo end]])])], [lt_cv_irix_exported_symbol=yes], [lt_cv_irix_exported_symbol=no]) LDFLAGS="$save_LDFLAGS"]) if test "$lt_cv_irix_exported_symbol" = yes; then _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib' fi else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(inherit_rpath, $1)=yes _LT_TAGVAR(link_all_deplibs, $1)=yes ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else _LT_TAGVAR(archive_cmds, $1)='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; newsos6) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *nto* | *qnx*) ;; openbsd*) if test -f /usr/libexec/ld.so; then _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=yes if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' else case $host_os in openbsd[[01]].* | openbsd2.[[0-7]] | openbsd2.[[0-7]].*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' ;; esac fi else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; os2*) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' _LT_TAGVAR(old_archive_from_new_cmds, $1)='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; then _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test "$GCC" = yes; then _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $pic_flag $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' else _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ $CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp' # Both c and cxx compiler support -rpath directly _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_separator, $1)=: ;; solaris*) _LT_TAGVAR(no_undefined_flag, $1)=' -z defs' if test "$GCC" = yes; then wlarc='${wl}' _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' else case `$CC -V 2>&1` in *"Compilers 5.0"*) wlarc='' _LT_TAGVAR(archive_cmds, $1)='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' ;; *) wlarc='${wl}' _LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' ;; esac fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. GCC discards it without `$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test "$GCC" = yes; then _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' else _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' fi ;; esac _LT_TAGVAR(link_all_deplibs, $1)=yes ;; sunos4*) if test "x$host_vendor" = xsequent; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; sysv4) case $host_vendor in sni) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. _LT_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(reload_cmds, $1)='$CC -r -o $output$reload_objs' _LT_TAGVAR(hardcode_direct, $1)=no ;; motorola) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; sysv4.3*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes _LT_TAGVAR(ld_shlibs, $1)=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(allow_undefined_flag, $1)='${wl}-z,nodefs' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport' runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(ld_shlibs, $1)=no ;; esac if test x$host_vendor = xsni; then case $host in sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Blargedynsym' ;; esac fi fi ]) AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)]) test "$_LT_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no _LT_TAGVAR(with_gnu_ld, $1)=$with_gnu_ld _LT_DECL([], [libext], [0], [Old archive suffix (normally "a")])dnl _LT_DECL([], [shrext_cmds], [1], [Shared library suffix (normally ".so")])dnl _LT_DECL([], [extract_expsyms_cmds], [2], [The commands to extract the exported symbol list from a shared archive]) # # Do we need to explicitly link libc? # case "x$_LT_TAGVAR(archive_cmds_need_lc, $1)" in x|xyes) # Assume -lc should be added _LT_TAGVAR(archive_cmds_need_lc, $1)=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $_LT_TAGVAR(archive_cmds, $1) in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. AC_CACHE_CHECK([whether -lc should be explicitly linked in], [lt_cv_]_LT_TAGVAR(archive_cmds_need_lc, $1), [$RM conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if AC_TRY_EVAL(ac_compile) 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) pic_flag=$_LT_TAGVAR(lt_prog_compiler_pic, $1) compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$_LT_TAGVAR(allow_undefined_flag, $1) _LT_TAGVAR(allow_undefined_flag, $1)= if AC_TRY_EVAL(_LT_TAGVAR(archive_cmds, $1) 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) then lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=no else lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=yes fi _LT_TAGVAR(allow_undefined_flag, $1)=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* ]) _LT_TAGVAR(archive_cmds_need_lc, $1)=$lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1) ;; esac fi ;; esac _LT_TAGDECL([build_libtool_need_lc], [archive_cmds_need_lc], [0], [Whether or not to add -lc for building shared libraries]) _LT_TAGDECL([allow_libtool_libs_with_static_runtimes], [enable_shared_with_static_runtimes], [0], [Whether or not to disallow shared libs when runtime libs are static]) _LT_TAGDECL([], [export_dynamic_flag_spec], [1], [Compiler flag to allow reflexive dlopens]) _LT_TAGDECL([], [whole_archive_flag_spec], [1], [Compiler flag to generate shared objects directly from archives]) _LT_TAGDECL([], [compiler_needs_object], [1], [Whether the compiler copes with passing no objects directly]) _LT_TAGDECL([], [old_archive_from_new_cmds], [2], [Create an old-style archive from a shared archive]) _LT_TAGDECL([], [old_archive_from_expsyms_cmds], [2], [Create a temporary old-style archive to link instead of a shared archive]) _LT_TAGDECL([], [archive_cmds], [2], [Commands used to build a shared archive]) _LT_TAGDECL([], [archive_expsym_cmds], [2]) _LT_TAGDECL([], [module_cmds], [2], [Commands used to build a loadable module if different from building a shared archive.]) _LT_TAGDECL([], [module_expsym_cmds], [2]) _LT_TAGDECL([], [with_gnu_ld], [1], [Whether we are building with GNU ld or not]) _LT_TAGDECL([], [allow_undefined_flag], [1], [Flag that allows shared libraries with undefined symbols to be built]) _LT_TAGDECL([], [no_undefined_flag], [1], [Flag that enforces no undefined symbols]) _LT_TAGDECL([], [hardcode_libdir_flag_spec], [1], [Flag to hardcode $libdir into a binary during linking. This must work even if $libdir does not exist]) _LT_TAGDECL([], [hardcode_libdir_separator], [1], [Whether we need a single "-rpath" flag with a separated argument]) _LT_TAGDECL([], [hardcode_direct], [0], [Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_direct_absolute], [0], [Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the resulting binary and the resulting library dependency is "absolute", i.e impossible to change by setting ${shlibpath_var} if the library is relocated]) _LT_TAGDECL([], [hardcode_minus_L], [0], [Set to "yes" if using the -LDIR flag during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_shlibpath_var], [0], [Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_automatic], [0], [Set to "yes" if building a shared library automatically hardcodes DIR into the library and all subsequent libraries and executables linked against it]) _LT_TAGDECL([], [inherit_rpath], [0], [Set to yes if linker adds runtime paths of dependent libraries to runtime path list]) _LT_TAGDECL([], [link_all_deplibs], [0], [Whether libtool must link a program against all its dependency libraries]) _LT_TAGDECL([], [always_export_symbols], [0], [Set to "yes" if exported symbols are required]) _LT_TAGDECL([], [export_symbols_cmds], [2], [The commands to list exported symbols]) _LT_TAGDECL([], [exclude_expsyms], [1], [Symbols that should not be listed in the preloaded symbols]) _LT_TAGDECL([], [include_expsyms], [1], [Symbols that must always be exported]) _LT_TAGDECL([], [prelink_cmds], [2], [Commands necessary for linking programs (against libraries) with templates]) _LT_TAGDECL([], [postlink_cmds], [2], [Commands necessary for finishing linking programs]) _LT_TAGDECL([], [file_list_spec], [1], [Specify filename containing input files]) dnl FIXME: Not yet implemented dnl _LT_TAGDECL([], [thread_safe_flag_spec], [1], dnl [Compiler flag to generate thread safe objects]) ])# _LT_LINKER_SHLIBS # _LT_LANG_C_CONFIG([TAG]) # ------------------------ # Ensure that the configuration variables for a C compiler are suitably # defined. These variables are subsequently used by _LT_CONFIG to write # the compiler configuration to `libtool'. m4_defun([_LT_LANG_C_CONFIG], [m4_require([_LT_DECL_EGREP])dnl lt_save_CC="$CC" AC_LANG_PUSH(C) # Source file extension for C test sources. ac_ext=c # Object file extension for compiled C test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(){return(0);}' _LT_TAG_COMPILER # Save the default compiler, since it gets overwritten when the other # tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. compiler_DEFAULT=$CC # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) LT_SYS_DLOPEN_SELF _LT_CMD_STRIPLIB # Report which library types will actually be built AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_CONFIG($1) fi AC_LANG_POP CC="$lt_save_CC" ])# _LT_LANG_C_CONFIG # _LT_LANG_CXX_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for a C++ compiler are suitably # defined. These variables are subsequently used by _LT_CONFIG to write # the compiler configuration to `libtool'. m4_defun([_LT_LANG_CXX_CONFIG], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_PATH_MANIFEST_TOOL])dnl if test -n "$CXX" && ( test "X$CXX" != "Xno" && ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || (test "X$CXX" != "Xg++"))) ; then AC_PROG_CXXCPP else _lt_caught_CXX_error=yes fi AC_LANG_PUSH(C++) _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(compiler_needs_object, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for C++ test sources. ac_ext=cpp # Object file extension for compiled C++ test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the CXX compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_caught_CXX_error" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(int, char *[[]]) { return(0); }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_LD=$LD lt_save_GCC=$GCC GCC=$GXX lt_save_with_gnu_ld=$with_gnu_ld lt_save_path_LD=$lt_cv_path_LD if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx else $as_unset lt_cv_prog_gnu_ld fi if test -n "${lt_cv_path_LDCXX+set}"; then lt_cv_path_LD=$lt_cv_path_LDCXX else $as_unset lt_cv_path_LD fi test -z "${LDCXX+set}" || LD=$LDCXX CC=${CXX-"c++"} CFLAGS=$CXXFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) if test -n "$compiler"; then # We don't want -fno-exception when compiling C++ code, so set the # no_builtin_flag separately if test "$GXX" = yes; then _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' else _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= fi if test "$GXX" = yes; then # Set up default GNU C++ configuration LT_PATH_LD # Check if GNU C++ uses GNU ld as the underlying linker, since the # archiving commands below assume that GNU ld is being used. if test "$with_gnu_ld" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' # If archive_cmds runs LD, not CC, wlarc should be empty # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to # investigate it a little bit more. (MM) wlarc='${wl}' # ancient GNU ld didn't support --whole-archive et. al. if eval "`$CC -print-prog-name=ld` --help 2>&1" | $GREP 'no-whole-archive' > /dev/null; then _LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else _LT_TAGVAR(whole_archive_flag_spec, $1)= fi else with_gnu_ld=no wlarc= # A generic and very simple default shared library creation # command for GNU C++ for the case where it uses the native # linker, instead of GNU ld. If possible, this setting should # overridden to take advantage of the native linker features on # the platform it is being used on. _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' fi # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else GXX=no with_gnu_ld=no wlarc= fi # PORTME: fill in a description of your system's C++ link characteristics AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) _LT_TAGVAR(ld_shlibs, $1)=yes case $host_os in aix3*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aix[[4-9]]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) for ld_flag in $LDFLAGS; do case $ld_flag in *-brtl*) aix_use_runtimelinking=yes break ;; esac done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. _LT_TAGVAR(archive_cmds, $1)='' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(file_list_spec, $1)='${wl}-f,' if test "$GXX" = yes; then case $host_os in aix4.[[012]]|aix4.[[012]].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 _LT_TAGVAR(hardcode_direct, $1)=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)= fi esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to # export. _LT_TAGVAR(always_export_symbols, $1)=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. _LT_TAGVAR(allow_undefined_flag, $1)='-berok' # Determine the default libpath from the value encoded in an empty # executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib' _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs" _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. _LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok' _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience' fi _LT_TAGVAR(archive_cmds_need_lc, $1)=yes # This is similar to how AIX traditionally builds its shared # libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; chorus*) case $cc_basename in *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; cygwin* | mingw* | pw32* | cegcc*) case $GXX,$cc_basename in ,cl* | no,cl*) # Native MSVC # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(file_list_spec, $1)='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then $SED -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else $SED -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes # Don't use ranlib _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib' _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ func_to_tool_file "$lt_outputfile"~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # g++ # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, # as there is no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-all-symbols' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; darwin* | rhapsody*) _LT_DARWIN_LINKER_FEATURES($1) ;; dgux*) case $cc_basename in ec++*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; ghcx*) # Green Hills C++ Compiler # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; freebsd2.*) # C++ shared libraries reported to be fairly broken before # switch to ELF _LT_TAGVAR(ld_shlibs, $1)=no ;; freebsd-elf*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;; freebsd* | dragonfly*) # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF # conventions _LT_TAGVAR(ld_shlibs, $1)=yes ;; gnu*) ;; haiku*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(link_all_deplibs, $1)=yes ;; hpux9*) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, # but as the default # location of the library. case $cc_basename in CC*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aCC*) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -b ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $EGREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes; then _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared -nostdlib $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; hpux10*|hpux11*) if test $with_gnu_ld = no; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: case $host_cpu in hppa*64*|ia64*) ;; *) _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' ;; esac fi case $host_cpu in hppa*64*|ia64*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, # but as the default # location of the library. ;; esac case $cc_basename in CC*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aCC*) case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $GREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes; then if test $with_gnu_ld = no; then case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac fi else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; interix[[3-9]]*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; irix5* | irix6*) case $cc_basename in CC*) # SGI C++ _LT_TAGVAR(archive_cmds, $1)='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' # Archives containing C++ object files must be created using # "CC -ar", where "CC" is the IRIX C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -ar -WR,-u -o $oldlib $oldobjs' ;; *) if test "$GXX" = yes; then if test "$with_gnu_ld" = no; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` -o $lib' fi fi _LT_TAGVAR(link_all_deplibs, $1)=yes ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(inherit_rpath, $1)=yes ;; linux* | k*bsd*-gnu | kopensolaris*-gnu) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib ${wl}-retain-symbols-file,$export_symbols; mv \$templib $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | $GREP "ld"`; rm -f libconftest$shared_ext; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' # Archives containing C++ object files must be created using # "CC -Bstatic", where "CC" is the KAI C++ compiler. _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;; icpc* | ecpc* ) # Intel C++ with_gnu_ld=yes # version 8.0 and above of icpc choke on multiply defined symbols # if we add $predep_objects and $postdep_objects, however 7.1 and # earlier do not add the objects themselves. case `$CC -V 2>&1` in *"Version 7."*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' ;; *) # Version 8.0 or newer tmp_idyn= case $host_cpu in ia64*) tmp_idyn=' -i_dynamic';; esac _LT_TAGVAR(archive_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' ;; esac _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' ;; pgCC* | pgcpp*) # Portland Group C++ compiler case `$CC -V` in *pgCC\ [[1-5]].* | *pgcpp\ [[1-5]].*) _LT_TAGVAR(prelink_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $objs $libobjs $compile_deplibs~ compile_command="$compile_command `find $tpldir -name \*.o | sort | $NL2SP`"' _LT_TAGVAR(old_archive_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $oldobjs$old_deplibs~ $AR $AR_FLAGS $oldlib$oldobjs$old_deplibs `find $tpldir -name \*.o | sort | $NL2SP`~ $RANLIB $oldlib' _LT_TAGVAR(archive_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' ;; *) # Version 6 and above use weak symbols _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' ;; cxx*) # Compaq C++ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib ${wl}-retain-symbols-file $wl$export_symbols' runpath_var=LD_RUN_PATH _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "X$list" | $Xsed' ;; xl* | mpixl* | bgxl*) # IBM XL 8.0 on PPC, with GNU ld _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' _LT_TAGVAR(archive_cmds, $1)='$CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs' _LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file ${wl}$export_symbols' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes # Not sure whether something based on # $CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 # would be better. output_verbose_link_cmd='func_echo_all' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' ;; esac ;; esac ;; lynxos*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; m88k*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; mvs*) case $cc_basename in cxx*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' wlarc= _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no fi # Workaround some broken pre-1.5 toolchains output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"' ;; *nto* | *qnx*) _LT_TAGVAR(ld_shlibs, $1)=yes ;; openbsd2*) # C++ shared libraries are fairly broken _LT_TAGVAR(ld_shlibs, $1)=no ;; openbsd*) if test -f /usr/libexec/ld.so; then _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file,$export_symbols -o $lib' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' _LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' fi output_verbose_link_cmd=func_echo_all else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo "$lib" | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Archives containing C++ object files must be created using # the KAI C++ compiler. case $host in osf3*) _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;; *) _LT_TAGVAR(old_archive_cmds, $1)='$CC -o $oldlib $oldobjs' ;; esac ;; RCC*) # Rational C++ 2.4.1 # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; cxx*) case $host in osf3*) _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && func_echo_all "${wl}-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' ;; *) _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~ echo "-hidden">> $lib.exp~ $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname ${wl}-input ${wl}$lib.exp `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~ $RM $lib.exp' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' ;; esac _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld" | $GREP -v "ld:"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes && test "$with_gnu_ld" = no; then _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' case $host in osf3*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; psos*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; lcc*) # Lucid # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ _LT_TAGVAR(archive_cmds_need_lc,$1)=yes _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs' _LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} ${wl}-M ${wl}$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. # Supported since Solaris 2.6 (maybe 2.5.1?) _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' ;; esac _LT_TAGVAR(link_all_deplibs, $1)=yes output_verbose_link_cmd='func_echo_all' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' ;; gcx*) # Green Hills C++ Compiler _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' # The C++ compiler must be used to create the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC $LDFLAGS -archive -o $oldlib $oldobjs' ;; *) # GNU C++ compiler with Solaris linker if test "$GXX" = yes && test "$with_gnu_ld" = no; then _LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-z ${wl}defs' if $CC --version | $GREP -v '^2\.7' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else # g++ 2.7 appears to require `-G' NOT `-shared' on this # platform. _LT_TAGVAR(archive_cmds, $1)='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -G $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $wl$libdir' case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' ;; esac fi ;; esac ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var='LD_RUN_PATH' case $cc_basename in CC*) _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(allow_undefined_flag, $1)='${wl}-z,nodefs' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport' runpath_var='LD_RUN_PATH' case $cc_basename in CC*) _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(old_archive_cmds, $1)='$CC -Tprelink_objects $oldobjs~ '"$_LT_TAGVAR(old_archive_cmds, $1)" _LT_TAGVAR(reload_cmds, $1)='$CC -Tprelink_objects $reload_objs~ '"$_LT_TAGVAR(reload_cmds, $1)" ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; vxworks*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)]) test "$_LT_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no _LT_TAGVAR(GCC, $1)="$GXX" _LT_TAGVAR(LD, $1)="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_SYS_HIDDEN_LIBDEPS($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS LDCXX=$LD LD=$lt_save_LD GCC=$lt_save_GCC with_gnu_ld=$lt_save_with_gnu_ld lt_cv_path_LDCXX=$lt_cv_path_LD lt_cv_path_LD=$lt_save_path_LD lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld fi # test "$_lt_caught_CXX_error" != yes AC_LANG_POP ])# _LT_LANG_CXX_CONFIG # _LT_FUNC_STRIPNAME_CNF # ---------------------- # func_stripname_cnf prefix suffix name # strip PREFIX and SUFFIX off of NAME. # PREFIX and SUFFIX must not contain globbing or regex special # characters, hashes, percent signs, but SUFFIX may contain a leading # dot (in which case that matches only a dot). # # This function is identical to the (non-XSI) version of func_stripname, # except this one can be used by m4 code that may be executed by configure, # rather than the libtool script. m4_defun([_LT_FUNC_STRIPNAME_CNF],[dnl AC_REQUIRE([_LT_DECL_SED]) AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH]) func_stripname_cnf () { case ${2} in .*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;; *) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;; esac } # func_stripname_cnf ])# _LT_FUNC_STRIPNAME_CNF # _LT_SYS_HIDDEN_LIBDEPS([TAGNAME]) # --------------------------------- # Figure out "hidden" library dependencies from verbose # compiler output when linking a shared library. # Parse the compiler output and extract the necessary # objects, libraries and library flags. m4_defun([_LT_SYS_HIDDEN_LIBDEPS], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl AC_REQUIRE([_LT_FUNC_STRIPNAME_CNF])dnl # Dependencies to place before and after the object being linked: _LT_TAGVAR(predep_objects, $1)= _LT_TAGVAR(postdep_objects, $1)= _LT_TAGVAR(predeps, $1)= _LT_TAGVAR(postdeps, $1)= _LT_TAGVAR(compiler_lib_search_path, $1)= dnl we can't use the lt_simple_compile_test_code here, dnl because it contains code intended for an executable, dnl not a library. It's possible we should let each dnl tag define a new lt_????_link_test_code variable, dnl but it's only used here... m4_if([$1], [], [cat > conftest.$ac_ext <<_LT_EOF int a; void foo (void) { a = 0; } _LT_EOF ], [$1], [CXX], [cat > conftest.$ac_ext <<_LT_EOF class Foo { public: Foo (void) { a = 0; } private: int a; }; _LT_EOF ], [$1], [F77], [cat > conftest.$ac_ext <<_LT_EOF subroutine foo implicit none integer*4 a a=0 return end _LT_EOF ], [$1], [FC], [cat > conftest.$ac_ext <<_LT_EOF subroutine foo implicit none integer a a=0 return end _LT_EOF ], [$1], [GCJ], [cat > conftest.$ac_ext <<_LT_EOF public class foo { private int a; public void bar (void) { a = 0; } }; _LT_EOF ], [$1], [GO], [cat > conftest.$ac_ext <<_LT_EOF package foo func foo() { } _LT_EOF ]) _lt_libdeps_save_CFLAGS=$CFLAGS case "$CC $CFLAGS " in #( *\ -flto*\ *) CFLAGS="$CFLAGS -fno-lto" ;; *\ -fwhopr*\ *) CFLAGS="$CFLAGS -fno-whopr" ;; *\ -fuse-linker-plugin*\ *) CFLAGS="$CFLAGS -fno-use-linker-plugin" ;; esac dnl Parse the compiler output and extract the necessary dnl objects, libraries and library flags. if AC_TRY_EVAL(ac_compile); then # Parse the compiler output and extract the necessary # objects, libraries and library flags. # Sentinel used to keep track of whether or not we are before # the conftest object file. pre_test_object_deps_done=no for p in `eval "$output_verbose_link_cmd"`; do case ${prev}${p} in -L* | -R* | -l*) # Some compilers place space between "-{L,R}" and the path. # Remove the space. if test $p = "-L" || test $p = "-R"; then prev=$p continue fi # Expand the sysroot to ease extracting the directories later. if test -z "$prev"; then case $p in -L*) func_stripname_cnf '-L' '' "$p"; prev=-L; p=$func_stripname_result ;; -R*) func_stripname_cnf '-R' '' "$p"; prev=-R; p=$func_stripname_result ;; -l*) func_stripname_cnf '-l' '' "$p"; prev=-l; p=$func_stripname_result ;; esac fi case $p in =*) func_stripname_cnf '=' '' "$p"; p=$lt_sysroot$func_stripname_result ;; esac if test "$pre_test_object_deps_done" = no; then case ${prev} in -L | -R) # Internal compiler library paths should come after those # provided the user. The postdeps already come after the # user supplied libs so there is no need to process them. if test -z "$_LT_TAGVAR(compiler_lib_search_path, $1)"; then _LT_TAGVAR(compiler_lib_search_path, $1)="${prev}${p}" else _LT_TAGVAR(compiler_lib_search_path, $1)="${_LT_TAGVAR(compiler_lib_search_path, $1)} ${prev}${p}" fi ;; # The "-l" case would never come before the object being # linked, so don't bother handling this case. esac else if test -z "$_LT_TAGVAR(postdeps, $1)"; then _LT_TAGVAR(postdeps, $1)="${prev}${p}" else _LT_TAGVAR(postdeps, $1)="${_LT_TAGVAR(postdeps, $1)} ${prev}${p}" fi fi prev= ;; *.lto.$objext) ;; # Ignore GCC LTO objects *.$objext) # This assumes that the test object file only shows up # once in the compiler output. if test "$p" = "conftest.$objext"; then pre_test_object_deps_done=yes continue fi if test "$pre_test_object_deps_done" = no; then if test -z "$_LT_TAGVAR(predep_objects, $1)"; then _LT_TAGVAR(predep_objects, $1)="$p" else _LT_TAGVAR(predep_objects, $1)="$_LT_TAGVAR(predep_objects, $1) $p" fi else if test -z "$_LT_TAGVAR(postdep_objects, $1)"; then _LT_TAGVAR(postdep_objects, $1)="$p" else _LT_TAGVAR(postdep_objects, $1)="$_LT_TAGVAR(postdep_objects, $1) $p" fi fi ;; *) ;; # Ignore the rest. esac done # Clean up. rm -f a.out a.exe else echo "libtool.m4: error: problem compiling $1 test program" fi $RM -f confest.$objext CFLAGS=$_lt_libdeps_save_CFLAGS # PORTME: override above test on systems where it is broken m4_if([$1], [CXX], [case $host_os in interix[[3-9]]*) # Interix 3.5 installs completely hosed .la files for C++, so rather than # hack all around it, let's just trust "g++" to DTRT. _LT_TAGVAR(predep_objects,$1)= _LT_TAGVAR(postdep_objects,$1)= _LT_TAGVAR(postdeps,$1)= ;; linux*) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac if test "$solaris_use_stlport4" != yes; then _LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun' fi ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac # Adding this requires a known-good setup of shared libraries for # Sun compiler versions before 5.6, else PIC objects from an old # archive will be linked into the output, leading to subtle bugs. if test "$solaris_use_stlport4" != yes; then _LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun' fi ;; esac ;; esac ]) case " $_LT_TAGVAR(postdeps, $1) " in *" -lc "*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;; esac _LT_TAGVAR(compiler_lib_search_dirs, $1)= if test -n "${_LT_TAGVAR(compiler_lib_search_path, $1)}"; then _LT_TAGVAR(compiler_lib_search_dirs, $1)=`echo " ${_LT_TAGVAR(compiler_lib_search_path, $1)}" | ${SED} -e 's! -L! !g' -e 's!^ !!'` fi _LT_TAGDECL([], [compiler_lib_search_dirs], [1], [The directories searched by this compiler when creating a shared library]) _LT_TAGDECL([], [predep_objects], [1], [Dependencies to place before and after the objects being linked to create a shared library]) _LT_TAGDECL([], [postdep_objects], [1]) _LT_TAGDECL([], [predeps], [1]) _LT_TAGDECL([], [postdeps], [1]) _LT_TAGDECL([], [compiler_lib_search_path], [1], [The library search path used internally by the compiler when linking a shared library]) ])# _LT_SYS_HIDDEN_LIBDEPS # _LT_LANG_F77_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for a Fortran 77 compiler are # suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_F77_CONFIG], [AC_LANG_PUSH(Fortran 77) if test -z "$F77" || test "X$F77" = "Xno"; then _lt_disable_F77=yes fi _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for f77 test sources. ac_ext=f # Object file extension for compiled f77 test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the F77 compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_disable_F77" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="\ subroutine t return end " # Code to be used in simple link tests lt_simple_link_test_code="\ program t end " # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC="$CC" lt_save_GCC=$GCC lt_save_CFLAGS=$CFLAGS CC=${F77-"f77"} CFLAGS=$FFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) GCC=$G77 if test -n "$compiler"; then AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_TAGVAR(GCC, $1)="$G77" _LT_TAGVAR(LD, $1)="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" GCC=$lt_save_GCC CC="$lt_save_CC" CFLAGS="$lt_save_CFLAGS" fi # test "$_lt_disable_F77" != yes AC_LANG_POP ])# _LT_LANG_F77_CONFIG # _LT_LANG_FC_CONFIG([TAG]) # ------------------------- # Ensure that the configuration variables for a Fortran compiler are # suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_FC_CONFIG], [AC_LANG_PUSH(Fortran) if test -z "$FC" || test "X$FC" = "Xno"; then _lt_disable_FC=yes fi _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for fc test sources. ac_ext=${ac_fc_srcext-f} # Object file extension for compiled fc test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the FC compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_disable_FC" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="\ subroutine t return end " # Code to be used in simple link tests lt_simple_link_test_code="\ program t end " # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC="$CC" lt_save_GCC=$GCC lt_save_CFLAGS=$CFLAGS CC=${FC-"f95"} CFLAGS=$FCFLAGS compiler=$CC GCC=$ac_cv_fc_compiler_gnu _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) if test -n "$compiler"; then AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_TAGVAR(GCC, $1)="$ac_cv_fc_compiler_gnu" _LT_TAGVAR(LD, $1)="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_SYS_HIDDEN_LIBDEPS($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS fi # test "$_lt_disable_FC" != yes AC_LANG_POP ])# _LT_LANG_FC_CONFIG # _LT_LANG_GCJ_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for the GNU Java Compiler compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_GCJ_CONFIG], [AC_REQUIRE([LT_PROG_GCJ])dnl AC_LANG_SAVE # Source file extension for Java test sources. ac_ext=java # Object file extension for compiled Java test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="class foo {}" # Code to be used in simple link tests lt_simple_link_test_code='public class conftest { public static void main(String[[]] argv) {}; }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC=yes CC=${GCJ-"gcj"} CFLAGS=$GCJFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_TAGVAR(LD, $1)="$LD" _LT_CC_BASENAME([$compiler]) # GCJ did not exist at the time GCC didn't implicitly link libc in. _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi AC_LANG_RESTORE GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_GCJ_CONFIG # _LT_LANG_GO_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for the GNU Go compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_GO_CONFIG], [AC_REQUIRE([LT_PROG_GO])dnl AC_LANG_SAVE # Source file extension for Go test sources. ac_ext=go # Object file extension for compiled Go test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="package main; func main() { }" # Code to be used in simple link tests lt_simple_link_test_code='package main; func main() { }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC=yes CC=${GOC-"gccgo"} CFLAGS=$GOFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_TAGVAR(LD, $1)="$LD" _LT_CC_BASENAME([$compiler]) # Go did not exist at the time GCC didn't implicitly link libc in. _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi AC_LANG_RESTORE GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_GO_CONFIG # _LT_LANG_RC_CONFIG([TAG]) # ------------------------- # Ensure that the configuration variables for the Windows resource compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_RC_CONFIG], [AC_REQUIRE([LT_PROG_RC])dnl AC_LANG_SAVE # Source file extension for RC test sources. ac_ext=rc # Object file extension for compiled RC test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }' # Code to be used in simple link tests lt_simple_link_test_code="$lt_simple_compile_test_code" # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC="$CC" lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC= CC=${RC-"windres"} CFLAGS= compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) _LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes if test -n "$compiler"; then : _LT_CONFIG($1) fi GCC=$lt_save_GCC AC_LANG_RESTORE CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_RC_CONFIG # LT_PROG_GCJ # ----------- AC_DEFUN([LT_PROG_GCJ], [m4_ifdef([AC_PROG_GCJ], [AC_PROG_GCJ], [m4_ifdef([A][M_PROG_GCJ], [A][M_PROG_GCJ], [AC_CHECK_TOOL(GCJ, gcj,) test "x${GCJFLAGS+set}" = xset || GCJFLAGS="-g -O2" AC_SUBST(GCJFLAGS)])])[]dnl ]) # Old name: AU_ALIAS([LT_AC_PROG_GCJ], [LT_PROG_GCJ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_GCJ], []) # LT_PROG_GO # ---------- AC_DEFUN([LT_PROG_GO], [AC_CHECK_TOOL(GOC, gccgo,) ]) # LT_PROG_RC # ---------- AC_DEFUN([LT_PROG_RC], [AC_CHECK_TOOL(RC, windres,) ]) # Old name: AU_ALIAS([LT_AC_PROG_RC], [LT_PROG_RC]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_RC], []) # _LT_DECL_EGREP # -------------- # If we don't have a new enough Autoconf to choose the best grep # available, choose the one first in the user's PATH. m4_defun([_LT_DECL_EGREP], [AC_REQUIRE([AC_PROG_EGREP])dnl AC_REQUIRE([AC_PROG_FGREP])dnl test -z "$GREP" && GREP=grep _LT_DECL([], [GREP], [1], [A grep program that handles long lines]) _LT_DECL([], [EGREP], [1], [An ERE matcher]) _LT_DECL([], [FGREP], [1], [A literal string matcher]) dnl Non-bleeding-edge autoconf doesn't subst GREP, so do it here too AC_SUBST([GREP]) ]) # _LT_DECL_OBJDUMP # -------------- # If we don't have a new enough Autoconf to choose the best objdump # available, choose the one first in the user's PATH. m4_defun([_LT_DECL_OBJDUMP], [AC_CHECK_TOOL(OBJDUMP, objdump, false) test -z "$OBJDUMP" && OBJDUMP=objdump _LT_DECL([], [OBJDUMP], [1], [An object symbol dumper]) AC_SUBST([OBJDUMP]) ]) # _LT_DECL_DLLTOOL # ---------------- # Ensure DLLTOOL variable is set. m4_defun([_LT_DECL_DLLTOOL], [AC_CHECK_TOOL(DLLTOOL, dlltool, false) test -z "$DLLTOOL" && DLLTOOL=dlltool _LT_DECL([], [DLLTOOL], [1], [DLL creation program]) AC_SUBST([DLLTOOL]) ]) # _LT_DECL_SED # ------------ # Check for a fully-functional sed program, that truncates # as few characters as possible. Prefer GNU sed if found. m4_defun([_LT_DECL_SED], [AC_PROG_SED test -z "$SED" && SED=sed Xsed="$SED -e 1s/^X//" _LT_DECL([], [SED], [1], [A sed program that does not truncate output]) _LT_DECL([], [Xsed], ["\$SED -e 1s/^X//"], [Sed that helps us avoid accidentally triggering echo(1) options like -n]) ])# _LT_DECL_SED m4_ifndef([AC_PROG_SED], [ ############################################################ # NOTE: This macro has been submitted for inclusion into # # GNU Autoconf as AC_PROG_SED. When it is available in # # a released version of Autoconf we should remove this # # macro and use it instead. # ############################################################ m4_defun([AC_PROG_SED], [AC_MSG_CHECKING([for a sed that does not truncate output]) AC_CACHE_VAL(lt_cv_path_SED, [# Loop through the user's path and test for sed and gsed. # Then use that list of sed's as ones to test for truncation. as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for lt_ac_prog in sed gsed; do for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$lt_ac_prog$ac_exec_ext"; then lt_ac_sed_list="$lt_ac_sed_list $as_dir/$lt_ac_prog$ac_exec_ext" fi done done done IFS=$as_save_IFS lt_ac_max=0 lt_ac_count=0 # Add /usr/xpg4/bin/sed as it is typically found on Solaris # along with /bin/sed that truncates output. for lt_ac_sed in $lt_ac_sed_list /usr/xpg4/bin/sed; do test ! -f $lt_ac_sed && continue cat /dev/null > conftest.in lt_ac_count=0 echo $ECHO_N "0123456789$ECHO_C" >conftest.in # Check for GNU sed and select it if it is found. if "$lt_ac_sed" --version 2>&1 < /dev/null | grep 'GNU' > /dev/null; then lt_cv_path_SED=$lt_ac_sed break fi while true; do cat conftest.in conftest.in >conftest.tmp mv conftest.tmp conftest.in cp conftest.in conftest.nl echo >>conftest.nl $lt_ac_sed -e 's/a$//' < conftest.nl >conftest.out || break cmp -s conftest.out conftest.nl || break # 10000 chars as input seems more than enough test $lt_ac_count -gt 10 && break lt_ac_count=`expr $lt_ac_count + 1` if test $lt_ac_count -gt $lt_ac_max; then lt_ac_max=$lt_ac_count lt_cv_path_SED=$lt_ac_sed fi done done ]) SED=$lt_cv_path_SED AC_SUBST([SED]) AC_MSG_RESULT([$SED]) ])#AC_PROG_SED ])#m4_ifndef # Old name: AU_ALIAS([LT_AC_PROG_SED], [AC_PROG_SED]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_SED], []) # _LT_CHECK_SHELL_FEATURES # ------------------------ # Find out whether the shell is Bourne or XSI compatible, # or has some other useful features. m4_defun([_LT_CHECK_SHELL_FEATURES], [AC_MSG_CHECKING([whether the shell understands some XSI constructs]) # Try some XSI features xsi_shell=no ( _lt_dummy="a/b/c" test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \ = c,a/b,b/c, \ && eval 'test $(( 1 + 1 )) -eq 2 \ && test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \ && xsi_shell=yes AC_MSG_RESULT([$xsi_shell]) _LT_CONFIG_LIBTOOL_INIT([xsi_shell='$xsi_shell']) AC_MSG_CHECKING([whether the shell understands "+="]) lt_shell_append=no ( foo=bar; set foo baz; eval "$[1]+=\$[2]" && test "$foo" = barbaz ) \ >/dev/null 2>&1 \ && lt_shell_append=yes AC_MSG_RESULT([$lt_shell_append]) _LT_CONFIG_LIBTOOL_INIT([lt_shell_append='$lt_shell_append']) if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then lt_unset=unset else lt_unset=false fi _LT_DECL([], [lt_unset], [0], [whether the shell understands "unset"])dnl # test EBCDIC or ASCII case `echo X|tr X '\101'` in A) # ASCII based system # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr lt_SP2NL='tr \040 \012' lt_NL2SP='tr \015\012 \040\040' ;; *) # EBCDIC based system lt_SP2NL='tr \100 \n' lt_NL2SP='tr \r\n \100\100' ;; esac _LT_DECL([SP2NL], [lt_SP2NL], [1], [turn spaces into newlines])dnl _LT_DECL([NL2SP], [lt_NL2SP], [1], [turn newlines into spaces])dnl ])# _LT_CHECK_SHELL_FEATURES # _LT_PROG_FUNCTION_REPLACE (FUNCNAME, REPLACEMENT-BODY) # ------------------------------------------------------ # In `$cfgfile', look for function FUNCNAME delimited by `^FUNCNAME ()$' and # '^} FUNCNAME ', and replace its body with REPLACEMENT-BODY. m4_defun([_LT_PROG_FUNCTION_REPLACE], [dnl { sed -e '/^$1 ()$/,/^} # $1 /c\ $1 ()\ {\ m4_bpatsubsts([$2], [$], [\\], [^\([ ]\)], [\\\1]) } # Extended-shell $1 implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: ]) # _LT_PROG_REPLACE_SHELLFNS # ------------------------- # Replace existing portable implementations of several shell functions with # equivalent extended shell implementations where those features are available.. m4_defun([_LT_PROG_REPLACE_SHELLFNS], [if test x"$xsi_shell" = xyes; then _LT_PROG_FUNCTION_REPLACE([func_dirname], [dnl case ${1} in */*) func_dirname_result="${1%/*}${2}" ;; * ) func_dirname_result="${3}" ;; esac]) _LT_PROG_FUNCTION_REPLACE([func_basename], [dnl func_basename_result="${1##*/}"]) _LT_PROG_FUNCTION_REPLACE([func_dirname_and_basename], [dnl case ${1} in */*) func_dirname_result="${1%/*}${2}" ;; * ) func_dirname_result="${3}" ;; esac func_basename_result="${1##*/}"]) _LT_PROG_FUNCTION_REPLACE([func_stripname], [dnl # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are # positional parameters, so assign one to ordinary parameter first. func_stripname_result=${3} func_stripname_result=${func_stripname_result#"${1}"} func_stripname_result=${func_stripname_result%"${2}"}]) _LT_PROG_FUNCTION_REPLACE([func_split_long_opt], [dnl func_split_long_opt_name=${1%%=*} func_split_long_opt_arg=${1#*=}]) _LT_PROG_FUNCTION_REPLACE([func_split_short_opt], [dnl func_split_short_opt_arg=${1#??} func_split_short_opt_name=${1%"$func_split_short_opt_arg"}]) _LT_PROG_FUNCTION_REPLACE([func_lo2o], [dnl case ${1} in *.lo) func_lo2o_result=${1%.lo}.${objext} ;; *) func_lo2o_result=${1} ;; esac]) _LT_PROG_FUNCTION_REPLACE([func_xform], [ func_xform_result=${1%.*}.lo]) _LT_PROG_FUNCTION_REPLACE([func_arith], [ func_arith_result=$(( $[*] ))]) _LT_PROG_FUNCTION_REPLACE([func_len], [ func_len_result=${#1}]) fi if test x"$lt_shell_append" = xyes; then _LT_PROG_FUNCTION_REPLACE([func_append], [ eval "${1}+=\\${2}"]) _LT_PROG_FUNCTION_REPLACE([func_append_quoted], [dnl func_quote_for_eval "${2}" dnl m4 expansion turns \\\\ into \\, and then the shell eval turns that into \ eval "${1}+=\\\\ \\$func_quote_for_eval_result"]) # Save a `func_append' function call where possible by direct use of '+=' sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: else # Save a `func_append' function call even when '+=' is not available sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$_lt_function_replace_fail" = x":"; then AC_MSG_WARN([Unable to substitute extended shell functions in $ofile]) fi ]) # _LT_PATH_CONVERSION_FUNCTIONS # ----------------------------- # Determine which file name conversion functions should be used by # func_to_host_file (and, implicitly, by func_to_host_path). These are needed # for certain cross-compile configurations and native mingw. m4_defun([_LT_PATH_CONVERSION_FUNCTIONS], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl AC_MSG_CHECKING([how to convert $build file names to $host format]) AC_CACHE_VAL(lt_cv_to_host_file_cmd, [case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 ;; esac ;; *-*-cygwin* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_noop ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin ;; esac ;; * ) # unhandled hosts (and "normal" native builds) lt_cv_to_host_file_cmd=func_convert_file_noop ;; esac ]) to_host_file_cmd=$lt_cv_to_host_file_cmd AC_MSG_RESULT([$lt_cv_to_host_file_cmd]) _LT_DECL([to_host_file_cmd], [lt_cv_to_host_file_cmd], [0], [convert $build file names to $host format])dnl AC_MSG_CHECKING([how to convert $build file names to toolchain format]) AC_CACHE_VAL(lt_cv_to_tool_file_cmd, [#assume ordinary cross tools, or native build. lt_cv_to_tool_file_cmd=func_convert_file_noop case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 ;; esac ;; esac ]) to_tool_file_cmd=$lt_cv_to_tool_file_cmd AC_MSG_RESULT([$lt_cv_to_tool_file_cmd]) _LT_DECL([to_tool_file_cmd], [lt_cv_to_tool_file_cmd], [0], [convert $build files to toolchain format])dnl ])# _LT_PATH_CONVERSION_FUNCTIONS midgard2-core-10.05.7.1/m4/ltsugar.m40000644000175000017500000001042411772046276013643 00000000000000# ltsugar.m4 -- libtool m4 base layer. -*-Autoconf-*- # # Copyright (C) 2004, 2005, 2007, 2008 Free Software Foundation, Inc. # Written by Gary V. Vaughan, 2004 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # serial 6 ltsugar.m4 # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTSUGAR_VERSION], [m4_if([0.1])]) # lt_join(SEP, ARG1, [ARG2...]) # ----------------------------- # Produce ARG1SEPARG2...SEPARGn, omitting [] arguments and their # associated separator. # Needed until we can rely on m4_join from Autoconf 2.62, since all earlier # versions in m4sugar had bugs. m4_define([lt_join], [m4_if([$#], [1], [], [$#], [2], [[$2]], [m4_if([$2], [], [], [[$2]_])$0([$1], m4_shift(m4_shift($@)))])]) m4_define([_lt_join], [m4_if([$#$2], [2], [], [m4_if([$2], [], [], [[$1$2]])$0([$1], m4_shift(m4_shift($@)))])]) # lt_car(LIST) # lt_cdr(LIST) # ------------ # Manipulate m4 lists. # These macros are necessary as long as will still need to support # Autoconf-2.59 which quotes differently. m4_define([lt_car], [[$1]]) m4_define([lt_cdr], [m4_if([$#], 0, [m4_fatal([$0: cannot be called without arguments])], [$#], 1, [], [m4_dquote(m4_shift($@))])]) m4_define([lt_unquote], $1) # lt_append(MACRO-NAME, STRING, [SEPARATOR]) # ------------------------------------------ # Redefine MACRO-NAME to hold its former content plus `SEPARATOR'`STRING'. # Note that neither SEPARATOR nor STRING are expanded; they are appended # to MACRO-NAME as is (leaving the expansion for when MACRO-NAME is invoked). # No SEPARATOR is output if MACRO-NAME was previously undefined (different # than defined and empty). # # This macro is needed until we can rely on Autoconf 2.62, since earlier # versions of m4sugar mistakenly expanded SEPARATOR but not STRING. m4_define([lt_append], [m4_define([$1], m4_ifdef([$1], [m4_defn([$1])[$3]])[$2])]) # lt_combine(SEP, PREFIX-LIST, INFIX, SUFFIX1, [SUFFIX2...]) # ---------------------------------------------------------- # Produce a SEP delimited list of all paired combinations of elements of # PREFIX-LIST with SUFFIX1 through SUFFIXn. Each element of the list # has the form PREFIXmINFIXSUFFIXn. # Needed until we can rely on m4_combine added in Autoconf 2.62. m4_define([lt_combine], [m4_if(m4_eval([$# > 3]), [1], [m4_pushdef([_Lt_sep], [m4_define([_Lt_sep], m4_defn([lt_car]))])]]dnl [[m4_foreach([_Lt_prefix], [$2], [m4_foreach([_Lt_suffix], ]m4_dquote(m4_dquote(m4_shift(m4_shift(m4_shift($@)))))[, [_Lt_sep([$1])[]m4_defn([_Lt_prefix])[$3]m4_defn([_Lt_suffix])])])])]) # lt_if_append_uniq(MACRO-NAME, VARNAME, [SEPARATOR], [UNIQ], [NOT-UNIQ]) # ----------------------------------------------------------------------- # Iff MACRO-NAME does not yet contain VARNAME, then append it (delimited # by SEPARATOR if supplied) and expand UNIQ, else NOT-UNIQ. m4_define([lt_if_append_uniq], [m4_ifdef([$1], [m4_if(m4_index([$3]m4_defn([$1])[$3], [$3$2$3]), [-1], [lt_append([$1], [$2], [$3])$4], [$5])], [lt_append([$1], [$2], [$3])$4])]) # lt_dict_add(DICT, KEY, VALUE) # ----------------------------- m4_define([lt_dict_add], [m4_define([$1($2)], [$3])]) # lt_dict_add_subkey(DICT, KEY, SUBKEY, VALUE) # -------------------------------------------- m4_define([lt_dict_add_subkey], [m4_define([$1($2:$3)], [$4])]) # lt_dict_fetch(DICT, KEY, [SUBKEY]) # ---------------------------------- m4_define([lt_dict_fetch], [m4_ifval([$3], m4_ifdef([$1($2:$3)], [m4_defn([$1($2:$3)])]), m4_ifdef([$1($2)], [m4_defn([$1($2)])]))]) # lt_if_dict_fetch(DICT, KEY, [SUBKEY], VALUE, IF-TRUE, [IF-FALSE]) # ----------------------------------------------------------------- m4_define([lt_if_dict_fetch], [m4_if(lt_dict_fetch([$1], [$2], [$3]), [$4], [$5], [$6])]) # lt_dict_filter(DICT, [SUBKEY], VALUE, [SEPARATOR], KEY, [...]) # -------------------------------------------------------------- m4_define([lt_dict_filter], [m4_if([$5], [], [], [lt_join(m4_quote(m4_default([$4], [[, ]])), lt_unquote(m4_split(m4_normalize(m4_foreach(_Lt_key, lt_car([m4_shiftn(4, $@)]), [lt_if_dict_fetch([$1], _Lt_key, [$2], [$3], [_Lt_key ])])))))])[]dnl ]) midgard2-core-10.05.7.1/m4/ltoptions.m40000644000175000017500000003007311772046276014217 00000000000000# Helper functions for option handling. -*- Autoconf -*- # # Copyright (C) 2004, 2005, 2007, 2008, 2009 Free Software Foundation, # Inc. # Written by Gary V. Vaughan, 2004 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # serial 7 ltoptions.m4 # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTOPTIONS_VERSION], [m4_if([1])]) # _LT_MANGLE_OPTION(MACRO-NAME, OPTION-NAME) # ------------------------------------------ m4_define([_LT_MANGLE_OPTION], [[_LT_OPTION_]m4_bpatsubst($1__$2, [[^a-zA-Z0-9_]], [_])]) # _LT_SET_OPTION(MACRO-NAME, OPTION-NAME) # --------------------------------------- # Set option OPTION-NAME for macro MACRO-NAME, and if there is a # matching handler defined, dispatch to it. Other OPTION-NAMEs are # saved as a flag. m4_define([_LT_SET_OPTION], [m4_define(_LT_MANGLE_OPTION([$1], [$2]))dnl m4_ifdef(_LT_MANGLE_DEFUN([$1], [$2]), _LT_MANGLE_DEFUN([$1], [$2]), [m4_warning([Unknown $1 option `$2'])])[]dnl ]) # _LT_IF_OPTION(MACRO-NAME, OPTION-NAME, IF-SET, [IF-NOT-SET]) # ------------------------------------------------------------ # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. m4_define([_LT_IF_OPTION], [m4_ifdef(_LT_MANGLE_OPTION([$1], [$2]), [$3], [$4])]) # _LT_UNLESS_OPTIONS(MACRO-NAME, OPTION-LIST, IF-NOT-SET) # ------------------------------------------------------- # Execute IF-NOT-SET unless all options in OPTION-LIST for MACRO-NAME # are set. m4_define([_LT_UNLESS_OPTIONS], [m4_foreach([_LT_Option], m4_split(m4_normalize([$2])), [m4_ifdef(_LT_MANGLE_OPTION([$1], _LT_Option), [m4_define([$0_found])])])[]dnl m4_ifdef([$0_found], [m4_undefine([$0_found])], [$3 ])[]dnl ]) # _LT_SET_OPTIONS(MACRO-NAME, OPTION-LIST) # ---------------------------------------- # OPTION-LIST is a space-separated list of Libtool options associated # with MACRO-NAME. If any OPTION has a matching handler declared with # LT_OPTION_DEFINE, dispatch to that macro; otherwise complain about # the unknown option and exit. m4_defun([_LT_SET_OPTIONS], [# Set options m4_foreach([_LT_Option], m4_split(m4_normalize([$2])), [_LT_SET_OPTION([$1], _LT_Option)]) m4_if([$1],[LT_INIT],[ dnl dnl Simply set some default values (i.e off) if boolean options were not dnl specified: _LT_UNLESS_OPTIONS([LT_INIT], [dlopen], [enable_dlopen=no ]) _LT_UNLESS_OPTIONS([LT_INIT], [win32-dll], [enable_win32_dll=no ]) dnl dnl If no reference was made to various pairs of opposing options, then dnl we run the default mode handler for the pair. For example, if neither dnl `shared' nor `disable-shared' was passed, we enable building of shared dnl archives by default: _LT_UNLESS_OPTIONS([LT_INIT], [shared disable-shared], [_LT_ENABLE_SHARED]) _LT_UNLESS_OPTIONS([LT_INIT], [static disable-static], [_LT_ENABLE_STATIC]) _LT_UNLESS_OPTIONS([LT_INIT], [pic-only no-pic], [_LT_WITH_PIC]) _LT_UNLESS_OPTIONS([LT_INIT], [fast-install disable-fast-install], [_LT_ENABLE_FAST_INSTALL]) ]) ])# _LT_SET_OPTIONS ## --------------------------------- ## ## Macros to handle LT_INIT options. ## ## --------------------------------- ## # _LT_MANGLE_DEFUN(MACRO-NAME, OPTION-NAME) # ----------------------------------------- m4_define([_LT_MANGLE_DEFUN], [[_LT_OPTION_DEFUN_]m4_bpatsubst(m4_toupper([$1__$2]), [[^A-Z0-9_]], [_])]) # LT_OPTION_DEFINE(MACRO-NAME, OPTION-NAME, CODE) # ----------------------------------------------- m4_define([LT_OPTION_DEFINE], [m4_define(_LT_MANGLE_DEFUN([$1], [$2]), [$3])[]dnl ])# LT_OPTION_DEFINE # dlopen # ------ LT_OPTION_DEFINE([LT_INIT], [dlopen], [enable_dlopen=yes ]) AU_DEFUN([AC_LIBTOOL_DLOPEN], [_LT_SET_OPTION([LT_INIT], [dlopen]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `dlopen' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_DLOPEN], []) # win32-dll # --------- # Declare package support for building win32 dll's. LT_OPTION_DEFINE([LT_INIT], [win32-dll], [enable_win32_dll=yes case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-cegcc*) AC_CHECK_TOOL(AS, as, false) AC_CHECK_TOOL(DLLTOOL, dlltool, false) AC_CHECK_TOOL(OBJDUMP, objdump, false) ;; esac test -z "$AS" && AS=as _LT_DECL([], [AS], [1], [Assembler program])dnl test -z "$DLLTOOL" && DLLTOOL=dlltool _LT_DECL([], [DLLTOOL], [1], [DLL creation program])dnl test -z "$OBJDUMP" && OBJDUMP=objdump _LT_DECL([], [OBJDUMP], [1], [Object dumper program])dnl ])# win32-dll AU_DEFUN([AC_LIBTOOL_WIN32_DLL], [AC_REQUIRE([AC_CANONICAL_HOST])dnl _LT_SET_OPTION([LT_INIT], [win32-dll]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `win32-dll' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_WIN32_DLL], []) # _LT_ENABLE_SHARED([DEFAULT]) # ---------------------------- # implement the --enable-shared flag, and supports the `shared' and # `disable-shared' LT_INIT options. # DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. m4_define([_LT_ENABLE_SHARED], [m4_define([_LT_ENABLE_SHARED_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([shared], [AS_HELP_STRING([--enable-shared@<:@=PKGS@:>@], [build shared libraries @<:@default=]_LT_ENABLE_SHARED_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS="$lt_save_ifs" ;; esac], [enable_shared=]_LT_ENABLE_SHARED_DEFAULT) _LT_DECL([build_libtool_libs], [enable_shared], [0], [Whether or not to build shared libraries]) ])# _LT_ENABLE_SHARED LT_OPTION_DEFINE([LT_INIT], [shared], [_LT_ENABLE_SHARED([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-shared], [_LT_ENABLE_SHARED([no])]) # Old names: AC_DEFUN([AC_ENABLE_SHARED], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[shared]) ]) AC_DEFUN([AC_DISABLE_SHARED], [_LT_SET_OPTION([LT_INIT], [disable-shared]) ]) AU_DEFUN([AM_ENABLE_SHARED], [AC_ENABLE_SHARED($@)]) AU_DEFUN([AM_DISABLE_SHARED], [AC_DISABLE_SHARED($@)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_ENABLE_SHARED], []) dnl AC_DEFUN([AM_DISABLE_SHARED], []) # _LT_ENABLE_STATIC([DEFAULT]) # ---------------------------- # implement the --enable-static flag, and support the `static' and # `disable-static' LT_INIT options. # DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. m4_define([_LT_ENABLE_STATIC], [m4_define([_LT_ENABLE_STATIC_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([static], [AS_HELP_STRING([--enable-static@<:@=PKGS@:>@], [build static libraries @<:@default=]_LT_ENABLE_STATIC_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS="$lt_save_ifs" ;; esac], [enable_static=]_LT_ENABLE_STATIC_DEFAULT) _LT_DECL([build_old_libs], [enable_static], [0], [Whether or not to build static libraries]) ])# _LT_ENABLE_STATIC LT_OPTION_DEFINE([LT_INIT], [static], [_LT_ENABLE_STATIC([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-static], [_LT_ENABLE_STATIC([no])]) # Old names: AC_DEFUN([AC_ENABLE_STATIC], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[static]) ]) AC_DEFUN([AC_DISABLE_STATIC], [_LT_SET_OPTION([LT_INIT], [disable-static]) ]) AU_DEFUN([AM_ENABLE_STATIC], [AC_ENABLE_STATIC($@)]) AU_DEFUN([AM_DISABLE_STATIC], [AC_DISABLE_STATIC($@)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_ENABLE_STATIC], []) dnl AC_DEFUN([AM_DISABLE_STATIC], []) # _LT_ENABLE_FAST_INSTALL([DEFAULT]) # ---------------------------------- # implement the --enable-fast-install flag, and support the `fast-install' # and `disable-fast-install' LT_INIT options. # DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. m4_define([_LT_ENABLE_FAST_INSTALL], [m4_define([_LT_ENABLE_FAST_INSTALL_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([fast-install], [AS_HELP_STRING([--enable-fast-install@<:@=PKGS@:>@], [optimize for fast installation @<:@default=]_LT_ENABLE_FAST_INSTALL_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS="$lt_save_ifs" ;; esac], [enable_fast_install=]_LT_ENABLE_FAST_INSTALL_DEFAULT) _LT_DECL([fast_install], [enable_fast_install], [0], [Whether or not to optimize for fast installation])dnl ])# _LT_ENABLE_FAST_INSTALL LT_OPTION_DEFINE([LT_INIT], [fast-install], [_LT_ENABLE_FAST_INSTALL([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-fast-install], [_LT_ENABLE_FAST_INSTALL([no])]) # Old names: AU_DEFUN([AC_ENABLE_FAST_INSTALL], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[fast-install]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `fast-install' option into LT_INIT's first parameter.]) ]) AU_DEFUN([AC_DISABLE_FAST_INSTALL], [_LT_SET_OPTION([LT_INIT], [disable-fast-install]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `disable-fast-install' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_ENABLE_FAST_INSTALL], []) dnl AC_DEFUN([AM_DISABLE_FAST_INSTALL], []) # _LT_WITH_PIC([MODE]) # -------------------- # implement the --with-pic flag, and support the `pic-only' and `no-pic' # LT_INIT options. # MODE is either `yes' or `no'. If omitted, it defaults to `both'. m4_define([_LT_WITH_PIC], [AC_ARG_WITH([pic], [AS_HELP_STRING([--with-pic@<:@=PKGS@:>@], [try to use only PIC/non-PIC objects @<:@default=use both@:>@])], [lt_p=${PACKAGE-default} case $withval in yes|no) pic_mode=$withval ;; *) pic_mode=default # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for lt_pkg in $withval; do IFS="$lt_save_ifs" if test "X$lt_pkg" = "X$lt_p"; then pic_mode=yes fi done IFS="$lt_save_ifs" ;; esac], [pic_mode=default]) test -z "$pic_mode" && pic_mode=m4_default([$1], [default]) _LT_DECL([], [pic_mode], [0], [What type of objects to build])dnl ])# _LT_WITH_PIC LT_OPTION_DEFINE([LT_INIT], [pic-only], [_LT_WITH_PIC([yes])]) LT_OPTION_DEFINE([LT_INIT], [no-pic], [_LT_WITH_PIC([no])]) # Old name: AU_DEFUN([AC_LIBTOOL_PICMODE], [_LT_SET_OPTION([LT_INIT], [pic-only]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `pic-only' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_PICMODE], []) ## ----------------- ## ## LTDL_INIT Options ## ## ----------------- ## m4_define([_LTDL_MODE], []) LT_OPTION_DEFINE([LTDL_INIT], [nonrecursive], [m4_define([_LTDL_MODE], [nonrecursive])]) LT_OPTION_DEFINE([LTDL_INIT], [recursive], [m4_define([_LTDL_MODE], [recursive])]) LT_OPTION_DEFINE([LTDL_INIT], [subproject], [m4_define([_LTDL_MODE], [subproject])]) m4_define([_LTDL_TYPE], []) LT_OPTION_DEFINE([LTDL_INIT], [installable], [m4_define([_LTDL_TYPE], [installable])]) LT_OPTION_DEFINE([LTDL_INIT], [convenience], [m4_define([_LTDL_TYPE], [convenience])]) midgard2-core-10.05.7.1/m4/lt~obsolete.m40000644000175000017500000001375611772046276014547 00000000000000# lt~obsolete.m4 -- aclocal satisfying obsolete definitions. -*-Autoconf-*- # # Copyright (C) 2004, 2005, 2007, 2009 Free Software Foundation, Inc. # Written by Scott James Remnant, 2004. # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # serial 5 lt~obsolete.m4 # These exist entirely to fool aclocal when bootstrapping libtool. # # In the past libtool.m4 has provided macros via AC_DEFUN (or AU_DEFUN) # which have later been changed to m4_define as they aren't part of the # exported API, or moved to Autoconf or Automake where they belong. # # The trouble is, aclocal is a bit thick. It'll see the old AC_DEFUN # in /usr/share/aclocal/libtool.m4 and remember it, then when it sees us # using a macro with the same name in our local m4/libtool.m4 it'll # pull the old libtool.m4 in (it doesn't see our shiny new m4_define # and doesn't know about Autoconf macros at all.) # # So we provide this file, which has a silly filename so it's always # included after everything else. This provides aclocal with the # AC_DEFUNs it wants, but when m4 processes it, it doesn't do anything # because those macros already exist, or will be overwritten later. # We use AC_DEFUN over AU_DEFUN for compatibility with aclocal-1.6. # # Anytime we withdraw an AC_DEFUN or AU_DEFUN, remember to add it here. # Yes, that means every name once taken will need to remain here until # we give up compatibility with versions before 1.7, at which point # we need to keep only those names which we still refer to. # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTOBSOLETE_VERSION], [m4_if([1])]) m4_ifndef([AC_LIBTOOL_LINKER_OPTION], [AC_DEFUN([AC_LIBTOOL_LINKER_OPTION])]) m4_ifndef([AC_PROG_EGREP], [AC_DEFUN([AC_PROG_EGREP])]) m4_ifndef([_LT_AC_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_AC_PROG_ECHO_BACKSLASH])]) m4_ifndef([_LT_AC_SHELL_INIT], [AC_DEFUN([_LT_AC_SHELL_INIT])]) m4_ifndef([_LT_AC_SYS_LIBPATH_AIX], [AC_DEFUN([_LT_AC_SYS_LIBPATH_AIX])]) m4_ifndef([_LT_PROG_LTMAIN], [AC_DEFUN([_LT_PROG_LTMAIN])]) m4_ifndef([_LT_AC_TAGVAR], [AC_DEFUN([_LT_AC_TAGVAR])]) m4_ifndef([AC_LTDL_ENABLE_INSTALL], [AC_DEFUN([AC_LTDL_ENABLE_INSTALL])]) m4_ifndef([AC_LTDL_PREOPEN], [AC_DEFUN([AC_LTDL_PREOPEN])]) m4_ifndef([_LT_AC_SYS_COMPILER], [AC_DEFUN([_LT_AC_SYS_COMPILER])]) m4_ifndef([_LT_AC_LOCK], [AC_DEFUN([_LT_AC_LOCK])]) m4_ifndef([AC_LIBTOOL_SYS_OLD_ARCHIVE], [AC_DEFUN([AC_LIBTOOL_SYS_OLD_ARCHIVE])]) m4_ifndef([_LT_AC_TRY_DLOPEN_SELF], [AC_DEFUN([_LT_AC_TRY_DLOPEN_SELF])]) m4_ifndef([AC_LIBTOOL_PROG_CC_C_O], [AC_DEFUN([AC_LIBTOOL_PROG_CC_C_O])]) m4_ifndef([AC_LIBTOOL_SYS_HARD_LINK_LOCKS], [AC_DEFUN([AC_LIBTOOL_SYS_HARD_LINK_LOCKS])]) m4_ifndef([AC_LIBTOOL_OBJDIR], [AC_DEFUN([AC_LIBTOOL_OBJDIR])]) m4_ifndef([AC_LTDL_OBJDIR], [AC_DEFUN([AC_LTDL_OBJDIR])]) m4_ifndef([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH], [AC_DEFUN([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH])]) m4_ifndef([AC_LIBTOOL_SYS_LIB_STRIP], [AC_DEFUN([AC_LIBTOOL_SYS_LIB_STRIP])]) m4_ifndef([AC_PATH_MAGIC], [AC_DEFUN([AC_PATH_MAGIC])]) m4_ifndef([AC_PROG_LD_GNU], [AC_DEFUN([AC_PROG_LD_GNU])]) m4_ifndef([AC_PROG_LD_RELOAD_FLAG], [AC_DEFUN([AC_PROG_LD_RELOAD_FLAG])]) m4_ifndef([AC_DEPLIBS_CHECK_METHOD], [AC_DEFUN([AC_DEPLIBS_CHECK_METHOD])]) m4_ifndef([AC_LIBTOOL_PROG_COMPILER_NO_RTTI], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_NO_RTTI])]) m4_ifndef([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE], [AC_DEFUN([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE])]) m4_ifndef([AC_LIBTOOL_PROG_COMPILER_PIC], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_PIC])]) m4_ifndef([AC_LIBTOOL_PROG_LD_SHLIBS], [AC_DEFUN([AC_LIBTOOL_PROG_LD_SHLIBS])]) m4_ifndef([AC_LIBTOOL_POSTDEP_PREDEP], [AC_DEFUN([AC_LIBTOOL_POSTDEP_PREDEP])]) m4_ifndef([LT_AC_PROG_EGREP], [AC_DEFUN([LT_AC_PROG_EGREP])]) m4_ifndef([LT_AC_PROG_SED], [AC_DEFUN([LT_AC_PROG_SED])]) m4_ifndef([_LT_CC_BASENAME], [AC_DEFUN([_LT_CC_BASENAME])]) m4_ifndef([_LT_COMPILER_BOILERPLATE], [AC_DEFUN([_LT_COMPILER_BOILERPLATE])]) m4_ifndef([_LT_LINKER_BOILERPLATE], [AC_DEFUN([_LT_LINKER_BOILERPLATE])]) m4_ifndef([_AC_PROG_LIBTOOL], [AC_DEFUN([_AC_PROG_LIBTOOL])]) m4_ifndef([AC_LIBTOOL_SETUP], [AC_DEFUN([AC_LIBTOOL_SETUP])]) m4_ifndef([_LT_AC_CHECK_DLFCN], [AC_DEFUN([_LT_AC_CHECK_DLFCN])]) m4_ifndef([AC_LIBTOOL_SYS_DYNAMIC_LINKER], [AC_DEFUN([AC_LIBTOOL_SYS_DYNAMIC_LINKER])]) m4_ifndef([_LT_AC_TAGCONFIG], [AC_DEFUN([_LT_AC_TAGCONFIG])]) m4_ifndef([AC_DISABLE_FAST_INSTALL], [AC_DEFUN([AC_DISABLE_FAST_INSTALL])]) m4_ifndef([_LT_AC_LANG_CXX], [AC_DEFUN([_LT_AC_LANG_CXX])]) m4_ifndef([_LT_AC_LANG_F77], [AC_DEFUN([_LT_AC_LANG_F77])]) m4_ifndef([_LT_AC_LANG_GCJ], [AC_DEFUN([_LT_AC_LANG_GCJ])]) m4_ifndef([AC_LIBTOOL_LANG_C_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_C_CONFIG])]) m4_ifndef([_LT_AC_LANG_C_CONFIG], [AC_DEFUN([_LT_AC_LANG_C_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_CXX_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_CXX_CONFIG])]) m4_ifndef([_LT_AC_LANG_CXX_CONFIG], [AC_DEFUN([_LT_AC_LANG_CXX_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_F77_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_F77_CONFIG])]) m4_ifndef([_LT_AC_LANG_F77_CONFIG], [AC_DEFUN([_LT_AC_LANG_F77_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_GCJ_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_GCJ_CONFIG])]) m4_ifndef([_LT_AC_LANG_GCJ_CONFIG], [AC_DEFUN([_LT_AC_LANG_GCJ_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_RC_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_RC_CONFIG])]) m4_ifndef([_LT_AC_LANG_RC_CONFIG], [AC_DEFUN([_LT_AC_LANG_RC_CONFIG])]) m4_ifndef([AC_LIBTOOL_CONFIG], [AC_DEFUN([AC_LIBTOOL_CONFIG])]) m4_ifndef([_LT_AC_FILE_LTDLL_C], [AC_DEFUN([_LT_AC_FILE_LTDLL_C])]) m4_ifndef([_LT_REQUIRED_DARWIN_CHECKS], [AC_DEFUN([_LT_REQUIRED_DARWIN_CHECKS])]) m4_ifndef([_LT_AC_PROG_CXXCPP], [AC_DEFUN([_LT_AC_PROG_CXXCPP])]) m4_ifndef([_LT_PREPARE_SED_QUOTE_VARS], [AC_DEFUN([_LT_PREPARE_SED_QUOTE_VARS])]) m4_ifndef([_LT_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_PROG_ECHO_BACKSLASH])]) m4_ifndef([_LT_PROG_F77], [AC_DEFUN([_LT_PROG_F77])]) m4_ifndef([_LT_PROG_FC], [AC_DEFUN([_LT_PROG_FC])]) m4_ifndef([_LT_PROG_CXX], [AC_DEFUN([_LT_PROG_CXX])]) midgard2-core-10.05.7.1/m4/introspection.m40000664000175000017500000000661311772045620015061 00000000000000dnl -*- mode: autoconf -*- dnl Copyright 2009 Johan Dahlin dnl dnl This file is free software; the author(s) gives unlimited dnl permission to copy and/or distribute it, with or without dnl modifications, as long as this notice is preserved. dnl # serial 1 m4_define([_GOBJECT_INTROSPECTION_CHECK_INTERNAL], [ AC_BEFORE([AC_PROG_LIBTOOL],[$0])dnl setup libtool first AC_BEFORE([AM_PROG_LIBTOOL],[$0])dnl setup libtool first AC_BEFORE([LT_INIT],[$0])dnl setup libtool first dnl enable/disable introspection m4_if([$2], [require], [dnl enable_introspection=yes ],[dnl AC_ARG_ENABLE(introspection, AS_HELP_STRING([--enable-introspection[=@<:@no/auto/yes@:>@]], [Enable introspection for this build]),, [enable_introspection=auto]) ])dnl AC_MSG_CHECKING([for gobject-introspection]) dnl presence/version checking AS_CASE([$enable_introspection], [no], [dnl found_introspection="no (disabled, use --enable-introspection to enable)" ],dnl [yes],[dnl PKG_CHECK_EXISTS([gobject-introspection-1.0],, AC_MSG_ERROR([gobject-introspection-1.0 is not installed])) PKG_CHECK_EXISTS([gobject-introspection-1.0 >= $1], found_introspection=yes, AC_MSG_ERROR([You need to have gobject-introspection >= $1 installed to build AC_PACKAGE_NAME])) ],dnl [auto],[dnl PKG_CHECK_EXISTS([gobject-introspection-1.0 >= $1], found_introspection=yes, found_introspection=no) ],dnl [dnl AC_MSG_ERROR([invalid argument passed to --enable-introspection, should be one of @<:@no/auto/yes@:>@]) ])dnl AC_MSG_RESULT([$found_introspection]) INTROSPECTION_SCANNER= INTROSPECTION_COMPILER= INTROSPECTION_GENERATE= INTROSPECTION_GIRDIR= INTROSPECTION_TYPELIBDIR= if test "x$found_introspection" = "xyes"; then INTROSPECTION_SCANNER=`$PKG_CONFIG --variable=g_ir_scanner gobject-introspection-1.0` INTROSPECTION_COMPILER=`$PKG_CONFIG --variable=g_ir_compiler gobject-introspection-1.0` INTROSPECTION_GENERATE=`$PKG_CONFIG --variable=g_ir_generate gobject-introspection-1.0` INTROSPECTION_GIRDIR=`$PKG_CONFIG --variable=girdir gobject-introspection-1.0` INTROSPECTION_TYPELIBDIR="$($PKG_CONFIG --variable=typelibdir gobject-introspection-1.0)" INTROSPECTION_CFLAGS=`$PKG_CONFIG --cflags gobject-introspection-1.0` INTROSPECTION_LIBS=`$PKG_CONFIG --libs gobject-introspection-1.0` INTROSPECTION_MAKEFILE=`$PKG_CONFIG --variable=datadir gobject-introspection-1.0`/gobject-introspection-1.0/Makefile.introspection fi AC_SUBST(INTROSPECTION_SCANNER) AC_SUBST(INTROSPECTION_COMPILER) AC_SUBST(INTROSPECTION_GENERATE) AC_SUBST(INTROSPECTION_GIRDIR) AC_SUBST(INTROSPECTION_TYPELIBDIR) AC_SUBST(INTROSPECTION_CFLAGS) AC_SUBST(INTROSPECTION_LIBS) AC_SUBST(INTROSPECTION_MAKEFILE) AM_CONDITIONAL(HAVE_INTROSPECTION, test "x$found_introspection" = "xyes") ]) dnl Usage: dnl GOBJECT_INTROSPECTION_CHECK([minimum-g-i-version]) AC_DEFUN([GOBJECT_INTROSPECTION_CHECK], [ _GOBJECT_INTROSPECTION_CHECK_INTERNAL([$1]) ]) dnl Usage: dnl GOBJECT_INTROSPECTION_REQUIRE([minimum-g-i-version]) AC_DEFUN([GOBJECT_INTROSPECTION_REQUIRE], [ _GOBJECT_INTROSPECTION_CHECK_INTERNAL([$1], [require]) ])midgard2-core-10.05.7.1/m4/ltversion.m40000644000175000017500000000126211772046276014207 00000000000000# ltversion.m4 -- version numbers -*- Autoconf -*- # # Copyright (C) 2004 Free Software Foundation, Inc. # Written by Scott James Remnant, 2004 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # @configure_input@ # serial 3337 ltversion.m4 # This file is part of GNU Libtool m4_define([LT_PACKAGE_VERSION], [2.4.2]) m4_define([LT_PACKAGE_REVISION], [1.3337]) AC_DEFUN([LTVERSION_VERSION], [macro_version='2.4.2' macro_revision='1.3337' _LT_DECL(, macro_version, 0, [Which release of libtool.m4 was used?]) _LT_DECL(, macro_revision, 0) ]) midgard2-core-10.05.7.1/midgard_dbus.conf0000664000175000017500000000110611772046240014661 00000000000000 midgard2-core-10.05.7.1/Makefile.am0000664000175000017500000001757611772046240013444 00000000000000## Process this file with automake to produce Makefile.in NULL = ACLOCAL_AMFLAGS = -I m4 DISTCHECK_CONFIGURE_FLAGS = --enable-introspection lib_LTLIBRARIES = \ src/libmidgard2.la bin_PROGRAMS = \ test/midgard2-schema \ test/midgard2-query if MIDGARD_DBUS_SUPPORT dbus_pkgdatadir = $(DBUS_CONF_DIR)/dbus-1/system.d dbus_pkgdata_DATA = midgard_dbus.conf endif test_midgard2_schema_SOURCES = test/midgard-schema.c test_midgard2_query_SOURCES = test/midgard-query.c noinst_PROGRAMS = $(TESTS) nobase_dist_sysconf_DATA = \ conf.d/midgard.conf.example dist_pkgdata_DATA = MidgardObjects.xml \ midgard_auth_types.xml \ midgard_dbus.conf \ conf.d/midgard.conf.example schemadir = $(datadir)/midgard2/schema schema_DATA = schema/README.txt viewsdir = $(datadir)/midgard2/views views_DATA = views/README-views.txt midgard_public_h = \ src/midgard_base_abstract.h \ src/midgard_base_interface.h \ src/midgard_base_mixin.h \ src/midgard_config.h \ src/midgard_config_auto.h \ src/midgard_dbobject.h \ src/midgard_defs.h \ src/midgard_dbus.h \ src/midgard_executable.h \ src/midgard_key_config_common.h \ src/midgard_object.h \ src/query_builder.h \ src/midgard_metadata.h \ src/midgard_timestamp.h \ src/uuid.h \ src/guid.h \ src/midgard_datatypes.h \ src/midgard_type.h \ src/midgard_quota.h \ src/midgard_reflection_property.h \ src/midgard_schema.h \ src/midgard_connection.h \ src/midgard_error.h \ src/midgard_collector.h \ src/midgard_object_parameter.h \ src/midgard_object_attachment.h \ src/midgard_query_constraint.h \ src/midgard_query_executor.h \ src/midgard_query_constraint_group.h \ src/midgard_query_holder.h \ src/midgard_query_value.h \ src/midgard_query_property.h \ src/midgard_query_select.h \ src/midgard_query_storage.h \ src/midgard_query_constraint_simple.h \ src/midgard_reflector_object.h \ src/midgard_reflector_property.h \ src/midgard_replicator.h \ src/midgard_repligard.h \ src/midgard_schema_object_factory.h \ src/midgard_schema_object_tree.h \ src/midgard_blob.h \ src/midgard_storage.h \ src/midgard_transaction.h \ src/midgard_user.h \ src/midgard_utils.h \ src/midgard_validable.h \ src/midgard_view.h \ src/midgard_workspace.h \ src/midgard_workspace_context.h \ src/midgard_workspace_manager.h \ src/midgard_workspace_storage.h \ src/midgard_query_row.h \ src/midgard_query_column.h \ src/midgard_query_selector.h \ src/midgard_query_result.h \ $(NULL) midgard_sql_public_h = \ src/sql/midgard_sql_query_column.h \ src/sql/midgard_sql_query_row.h \ src/sql/midgard_sql_query_result.h \ src/sql/midgard_sql_query_select_data.h \ src/sql/midgard_sql_query_constraint.h \ $(NULL) man_MANS = man/midgard2-schema.1 \ man/midgard2-query.1 EXTRA_DIST = \ $(man_MANS) \ midgard2.pc.in \ $(schema_DATA) \ $(views_DATA) \ m4/introspection.m4 LDADD = src/libmidgard2.la if PLATFORM_WIN32 no_undefined = -no-undefined endif $(PROGRAMS): $(LDADD) src_libmidgard2_la_CPPFLAGS = \ -I$(top_srcdir)/src -DG_LOG_DOMAIN=\"midgard-core\" AM_CFLAGS = -I$(top_srcdir)/src @MIDGARD_CFLAGS@ AM_LDFLAGS = @MIDGARD_LIBS@ src_libmidgard2_la_LDFLAGS = -version-info 2015:0:5 $(no_undefined) test_midgard_schema_CPPFLAGS = \ -DG_LOG_DOMAIN=\"midgard-core\" src_libmidgard2_la_core_SOURCES = \ src/midgard_core_connection.h \ src/midgard_core_connection.c \ src/midgard_core_query.h \ src/midgard_core_query.c \ src/mgdschema.c \ src/midgard_quota.c \ src/query_constraint.c \ src/query_constraint.h \ src/group_constraint.c \ src/group_constraint.h \ src/query_group_constraint.h \ src/query_group_constraint.c \ src/query_order.c \ src/query_order.h \ src/schema.h \ src/midgard_core_metadata.c \ src/midgard_core_metadata.h \ src/midgard_core_object_class.c \ src/midgard_core_object_class.h \ src/midgard_core_query_builder.h \ src/midgard_core_query_builder.c \ src/midgard_core_object.c \ src/midgard_core_object.h \ src/midgard_core_config.c \ src/midgard_core_config.h \ src/midgard_core_object_parameter.h \ src/midgard_core_schema.c \ src/midgard_core_views.c \ src/midgard_core_views.h \ src/midgard_core_xml.h \ src/midgard_core_xml.c \ src/midgard_core_workspace.h \ src/midgard_core_workspace.c \ $(NULL) src_libmidgard2_la_public_SOURCES = \ src/midgard.c \ src/midgard_base_abstract.c \ src/midgard_base_interface.c \ src/midgard_base_mixin.c \ src/midgard_key_config.c \ src/midgard_key_config_context.c \ src/midgard_key_config_file.c \ src/midgard_key_config_file_context.c \ src/midgard_key_config_common.h \ src/midgard_object.c \ src/uuid.c \ src/guid.c \ src/midgard_type.c \ src/midgard_config.c \ src/query_builder.c \ src/midgard_metadata.c \ src/midgard_timestamp.c \ src/midgard_reflection_property.c \ src/midgard_connection.c \ src/midgard_error.c \ src/midgard_collector.c \ src/midgard_dbus.h \ src/midgard_dbus.c \ src/midgard_executable.c \ src/midgard_object_parameter.c \ src/midgard_object_attachment.c \ src/midgard_query_constraint.c \ src/midgard_query_executor.c \ src/midgard_query_constraint_group.c \ src/midgard_query_holder.c \ src/midgard_query_property.c \ src/midgard_query_select.c \ src/midgard_query_constraint_simple.c \ src/midgard_query_storage.c \ src/midgard_query_value.c \ src/midgard_query_row.c \ src/midgard_query_column.c \ src/midgard_query_selector.c \ src/midgard_query_result.c \ src/midgard_reflector_object.c \ src/midgard_reflector_property.c \ src/midgard_replicator.c \ src/midgard_repligard.c \ src/midgard_user.c \ src/midgard_schema_object_factory.c \ src/midgard_schema_object_factory.h \ src/midgard_schema_object_tree.c \ src/midgard_schema_object_tree.h \ src/midgard_storage.c \ src/midgard_storage.h \ src/midgard_dbobject.c \ src/midgard_blob.c \ src/midgard_transaction.c \ src/midgard_md5.c \ src/midgard_md5.h \ src/midgard_validable.c \ src/midgard_view.c \ src/midgard_workspace.c \ src/midgard_workspace_context.c \ src/midgard_workspace_manager.c \ src/midgard_workspace_storage.c \ src/sql/midgard_sql_query_column.c \ src/sql/midgard_sql_query_row.c \ src/sql/midgard_sql_query_result.c \ src/sql/midgard_sql_query_select_data.c \ src/sql/midgard_sql_query_constraint.c \ $(NULL) if MIDGARD_DBUS_SUPPORT src_libmidgard2_la_dbus_SOURCES = src/midgard_dbus_interface.h else src_libmidgard2_la_dbus_SOURCES = endif pkgdatadir = $(datadir)/midgard2 pkglibdir = $(libdir)/midgard2 libmidgardincludedir = $(includedir)/midgard2 libmidgardinclude_HEADERS = src/midgard2.h libsubmidgardincludedir = $(includedir)/midgard2/midgard libsubmidgardinclude_HEADERS = $(midgard_public_h) src/midgard.h libmidgardsqlincludedir = $(includedir)/midgard2/midgard/sql libmidgardsqlinclude_HEADERS = $(midgard_sql_public_h) src_libmidgard2_la_SOURCES = $(src_libmidgard2_la_public_SOURCES) $(src_libmidgard2_la_core_SOURCES) $(src_libmidgard2_la_dbus_SOURCES) mgdschemasdir = $(datadir)/midgard2/schema pkgconfigdir = $(libdir)/pkgconfig pkgconfig_DATA = midgard2.pc -include $(INTROSPECTION_MAKEFILE) INTROSPECTION_SCANNER_ARGS = --add-include-path=$(srcdir) INTROSPECTION_COMPILER_ARGS = --includedir=$(srcdir) if HAVE_INTROSPECTION INTROSPECTION_CFLAGS += $(AM_CFLAGS) introspection_sources = $(src_libmidgard2_la_public_SOURCES) $(midgard_public_h) $(midgard_sql_public_h) Midgard-10.05.gir: $(lib_LTLIBRARIES) Midgard_10_05_gir_INCLUDES = GObject-2.0 libxml2-2.0 $(GDA_GIR_INCLUDE) Midgard_10_05_gir_CFLAGS = $(AM_CFLAGS) `pkg-config --cflags libxml-2.0` Midgard_10_05_gir_LIBS = $(lib_LTLIBRARIES) Midgard_10_05_gir_FILES = $(addprefix $(srcdir)/,$(introspection_sources)) Midgard_10_05_gir_PACKAGES = gobject-2.0 libxml-2.0 $(GDA_GIR_PACKAGE) INTROSPECTION_GIRS = Midgard-10.05.gir INTROSPECTION_LIBS += -lxml2 girdir = $(datadir)/gir-1.0 gir_DATA = $(INTROSPECTION_GIRS) typelibsdir = $(libdir)/girepository-1.0 typelibs_DATA = $(INTROSPECTION_GIRS:.gir=.typelib) CLEANFILES = $(dist_gir_DATA) $(typelib_DATA) endif doc: doxygen .PHONY: doc midgard2-core-10.05.7.1/NEWS0000664000175000017500000001330611772046240012072 00000000000000NEWS of Midgard library History of user-visible changes. March 12 2001 Copyright (C) 1999 Jukka Zitting Copyright (C) 2000 The Midgard Project ry Copyright (C) 2001 Emiliano Heyns, Aurora SA See the end for copying conditions. Please contact user@midgard-project.org for more information. Version 1.4.2 * Repligard Preliminary support for export hooks (non-configurable from the user side yet) Fixes in sitegroup management * Midgard library Preliminary support for request parser and mod_midgard2 (experimental) Configuration options are distributed across Midgard components using midgard-config tool * PHP3 module PHP3 support rendered obsolete * PHP4 module Major fixes in article's handling including sorting and event management Reworked preparser code Better handling of attachments * Apache module New Apache module (mod_midgard2) which supports caching of PHP pages (experimental) Version 1.4.1-dev (Release candidate) * Repligard Better sitegroup support * PHP4 module Midgard now works with PHP4 and PHP3 * Object management in portable way Midgard's PHP binding now has support to fetch objects indexed by Globally Unique IDentifiers insted of local database IDs. It opens era of truly portable applications in Midgard * mod_midgard Cleanly closes database connections at exit. Version 1.4 * Asgard Asgard is new Administrative interface for Midgard databases Version 1.4-beta7 * Repligard Repligard supports BLOBs, attachments, and removal of deleted resources. Version 1.4-beta6 * Repligard Repligard is replication utility for Midgard. It uses XML-based file format to transfer changes between master and slave databases easing server maintainance and development. Repligard isn't completed yet, so far it can export/import almost all Midgard resource types except for BLOBs. It also support transparent charset translation via UNICODE. Version 1.4-beta5 * Filetemplates Filetemplates enables the development of file-based Midgard applications. Page & style info is put in XML files. All midgard stuff works but you'll be missing some information like $midgard->page. Filetemplates can work in connected or disconnected mode. Connected is if a non-prefixed host record is found for the host you're accessing. A connection to the database will be available and all midgard functions will work. If not all midgard functions can be called but will fail. The template & inline variable expansion syntax does work in disconnected mode. Version 1.4-beta4 * Sitegroups logon 'su' support. You can now log in as priviligeduser=otheruser[+!]sitegroupname. This logs you in as otheruser whith priviligedusers' password. root users can change to anyone, SG admins are of course restricted to users withing sitegroups they're admin of * Repligard Version 1.4-beta3 * Moved copyrights to The Midgard Project Ry * Sitegroups support beta * Calendering/events in the core libraries. * Database generalization should make porting to other databases easier Version 1.2.6 * Maintainer of 1.2 branch is changed to Alexander Bokovoy * Support for selecting records by names instead of IDs added. * API for text formating engine changed, --with-midgard-lang compilation option removed in favor of MidgardParser runtime Mod_Midgard's directive. * SiteGroups support added (alpha) Version 1.2.5 * Support for Russian Midgard integrated. Version 1.2.4 * Bug fixes in access control. Group membership is now handled better. Version 1.2.3 * Better search for MySQL development environment in the configure script. The configure options --with-mysql-lib and --with-mysql-include are no longer available as they should not be needed. * The problem with the mysql_fetch_field_direct function is now fixed. Version 1.2.2 * More verbose error messages of connection failure now available * New configure options --with-mysql-lib and --with-mysql-include added * Removed unused code in web.c Version 1.2.1 * Support for plain text passwords was added. * Library now uses mysql_real_connect to connect faster to the database. Version 1.2 * Runtime configuration of the connection parameters now possible. * The configure script now requires the MySQL client library to be available. Version 1.1 * Broke up the installation system. The Midgard library now installs as an independent package. * Upgraded to libtool 1.3. No more problems with inter-library dependencies. Version 1.0.2 * Midgard library now installs as a part of a more complete Midgard system. The system also contains the Midgard-PHP module. Version 1.0 * First stable release. The base API should be quite stable at least to version 2.0. Version 0.5 * Migrated the installation system to use Libtool, Autoconf and Automake. You should now be able to do ./configure; make; make install to install the Midgard library. * Added files NEWS, AUTHORS and ChangeLog to comply with the GNU coding standards. ---------------------------------------------------------------------- Copyright information: Copyright (C) 1999 Jukka Zitting Copyright (C) 2000 The Midgard Project ry Permission is granted to anyone to make or distribute verbatim copies of this document as received, in any medium, provided that the copyright notice and this permission notice are preserved, thus giving the recipient permission to redistribute in turn. Permission is granted to distribute modified versions of this document, or of portions of it, under the above conditions, provided also that they carry prominent notices stating who last changed them. Local variables: version-control: never mode: indented-text end: midgard2-core-10.05.7.1/test/0000775000175000017500000000000011772046331012430 500000000000000midgard2-core-10.05.7.1/test/midgard-query.c0000664000175000017500000000532111772045620015267 00000000000000/* * Copyright (C) 2005, 2007 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include #include "src/midgard_core_query.c" #include "src/midgard_utils.h" static gchar *config_name; static gchar *query; static gchar *config_type = NULL; static GOptionEntry entries[] = { { "config-file", 'c', 0, G_OPTION_ARG_STRING, &config_name, "Name of the configuration", NULL }, { "query", 'q', 0, G_OPTION_ARG_STRING, &query, "Query to be executed", "Q" }, { "config type", 't', 0, G_OPTION_ARG_STRING, &config_type, "Type of the configuration. (user or system)", NULL }, { NULL } }; int main (int argc, char **argv) { GError *error = NULL; GOptionContext *context = g_option_context_new ("- execute SQL query"); g_option_context_add_main_entries (context, entries, "midgard2-query"); g_option_context_parse (context, &argc, &argv, &error); if(!config_name) { g_print("Configuration name missed. Try --help \n"); return(1); } if(!query) { g_print("Query is missed. Try --help \n"); return(1); } gda_init(); g_log_set_always_fatal(G_LOG_LEVEL_ERROR); MidgardConnection *mgd = midgard_connection_new(); if(!mgd) g_error("Can not initialize midgard connection"); MidgardConfig *config = g_object_new(MIDGARD_TYPE_CONFIG, NULL); gboolean cts = FALSE; if(config_type) { if(g_str_equal(config_type, "user")) cts = TRUE; } if(!midgard_config_read_file(config, (const gchar *)config_name, cts, &error)) { if(error) { g_warning("%s", error->message); g_error_free(error); } return 1; } if(!midgard_connection_open_config(mgd, config)) return 1; //midgard_connection_set_loglevel(mgd, "warning"); g_log_set_handler(G_LOG_DOMAIN, G_LOG_LEVEL_MASK, midgard_error_default_log, (gpointer)mgd); gchar **queries = g_strsplit(query, ";", 0); guint i = 0; do { midgard_core_query_execute(mgd, (const gchar *)queries[i], FALSE); i++; } while (queries[i]); g_strfreev(queries); g_option_context_free(context); return(0); } midgard2-core-10.05.7.1/test/midgard-schema.c0000664000175000017500000001456011772045620015367 00000000000000/* * Copyright (C) 2004, 2005, 2009 Piotr Pokora * * This program is free software; you can redistribute it and/or modify it * under the terms of the GNU Lesser General Public License as published * by the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "src/midgard_error.h" #include "src/midgard_user.h" #include "src/midgard_object_parameter.h" #include "src/midgard_utils.h" #include "src/midgard_storage.h" #ifdef G_LOG_DOMAIN #undef G_LOG_DOMAIN #define G_LOG_DOMAIN "Schema" #endif static void _test_me(MidgardConnection *mgd, MidgardObject *object) { /* This is anonymous mode now. * It should be supported by SG account in config file later. * If you want to add anything here, please add *every* object method * or function. This is real the best place to use with valgrind */ const gchar *typename = G_OBJECT_TYPE_NAME(object); /* Return when object is midgard_attachment type. * This is an exception. Quota feature calls g_error when location of blob is NULL. * We need g_error in runtime environment, but not now and here */ if (g_str_equal(typename, "midgard_attachment")) { g_message("midgard_attachment ignored"); return; } /* Test create */ if (midgard_object_create(object)){ g_message("Object '%s' create : OK", typename); /* Test parameters */ GValue *pval = g_new0(GValue, 1); g_value_init(pval, G_TYPE_STRING); g_value_set_string(pval, "__midgard_test_value"); gboolean param_test = FALSE; param_test = midgard_object_set_parameter(object, "__midgard_test_domain", "__midgard_test_name", pval); if (!param_test) g_warning("Failed to create test parameter for %s", typename); const GValue *rval = midgard_object_get_parameter(object, "__midgard_test_domain", "__midgard_test_name"); if (rval == NULL) g_warning("Failed to get test parameter for %s", typename); GValue *dval = g_new0(GValue, 1); g_value_init(dval, G_TYPE_STRING); g_value_set_string(pval, ""); param_test = midgard_object_set_parameter(object, "__midgard_test_domain", "__midgard_test_name", pval); if (!param_test) g_warning("Failed to delete test parameter for %s", typename); /* Test update */ if (!midgard_object_update(object)) { g_warning("Failed to update object %s", typename); } else { g_message("Object '%s' update : OK", typename); } /* Test getting object and basic QB functionality * Get by id or by guid is a wrapper to QB with particular constraint */ GValue gval = {0, }; g_value_init(&gval, G_TYPE_STRING); gchar *guid; g_object_get(G_OBJECT(object), "guid", &guid, NULL); g_value_set_string(&gval, guid); MidgardObject *new = midgard_object_new(mgd, typename, &gval); g_value_unset(&gval); if (new == NULL) { g_warning("Failed to get %s by %s", typename, guid); } else { g_object_unref(new); g_message("Object '%s' get : OK", typename); } g_free(guid); if (midgard_object_delete(object, TRUE)) { g_message("Object '%s' delete : OK", typename); } else { g_warning("Failed to delete '%s'", typename); } } else { g_warning("Failed to create object %s", typename); } } int main (int argc, char **argv) { if (argc != 2){ g_error("You must pass configuration filename as argument!"); return(1); } gchar *config_file = argv[1]; midgard_init(); MidgardConnection *mgd = midgard_connection_new(); if (!mgd) g_error("Can not initialize midgard connection"); /* Just keep it here for testing purpose. * Error is always fatal , but sometimes I need to change it to CRITICAL */ g_log_set_always_fatal(G_LOG_LEVEL_ERROR); midgard_connection_set_loglevel(mgd, "warning", NULL); g_log_set_handler(G_LOG_DOMAIN, G_LOG_LEVEL_MASK, midgard_error_default_log, (gpointer)mgd); g_log_set_handler("midgard-core", G_LOG_LEVEL_MASK, midgard_error_default_log, (gpointer)mgd); g_log_set_handler("midgard-core-type", G_LOG_LEVEL_MASK, midgard_error_default_log, (gpointer)mgd); g_message("Using '%s' configuration file", config_file); MidgardConfig *config = g_object_new(MIDGARD_TYPE_CONFIG, NULL); GError *error = NULL; if (!midgard_config_read_file(config, (const gchar *)config_file, TRUE, &error)) { if (error) { g_warning("Can not read configuration from given name. %s", error->message); g_error_free(error); } return 1; } /* open config using class member method or function if (!MIDGARD_CONNECTION_GET_CLASS(midgard)->open_config( midgard, config)) */ if (!midgard_connection_open_config(mgd, config)) return 1; guint n_types, i; GType *all_types = g_type_children(MIDGARD_TYPE_OBJECT, &n_types); const gchar *typename; gchar *mgdusername = NULL, *mgdpassword = NULL; gboolean tablecreate, tableupdate, testunit; g_object_get(G_OBJECT(config), "tablecreate", &tablecreate, "tableupdate", &tableupdate, "testunit", &testunit, "midgardusername", &mgdusername, "midgardpassword", &mgdpassword, NULL); /* Create basic tables first */ if (tablecreate) midgard_storage_create_base_storage (mgd); for (i = 0; i < n_types; i++) { typename = g_type_name(all_types[i]); if (g_str_equal(typename, "midgard_parameter")) { MidgardObject *param = midgard_object_new(mgd, typename, NULL); g_object_unref(param); g_message("midgard_parameter ignored"); continue; } g_message("Type %s", typename); MidgardObject *object = midgard_object_new(mgd, typename, NULL); /* Create tables */ if (tablecreate) midgard_storage_create (mgd, typename); /* Update tables */ if (tableupdate) midgard_storage_update (mgd, typename); /* Test objects */ if (testunit) _test_me(mgd, object); g_object_unref(object); } g_free(all_types); g_object_unref(config); g_free(mgdusername); g_free(mgdpassword); g_object_unref(mgd); midgard_close(); return 0; } midgard2-core-10.05.7.1/midgard2.pc.in0000664000175000017500000000041311772046240014010 00000000000000prefix=@prefix@ exec_prefix=@exec_prefix@ libdir=@libdir@ includedir=@includedir@ Name: Midgard Description: Midgard Framework Library Requires: glib-2.0 gobject-2.0 Version: @VERSION@ Libs: -L${libdir} -lmidgard2 Cflags: -I${includedir}/midgard2 @MIDGARD_CFLAGS@ midgard2-core-10.05.7.1/schema/0000775000175000017500000000000011772046331012711 500000000000000midgard2-core-10.05.7.1/schema/README.txt0000664000175000017500000000036711772046240014334 00000000000000This is directory for all reusable and shared schemas. Please copy Your schema here, if you want it to be loaded in applications or virtual hosts. By default ( Apache's virtual hosts ) all schemas are loaded when midgard module is initialized. midgard2-core-10.05.7.1/man/0000775000175000017500000000000011772046331012224 500000000000000midgard2-core-10.05.7.1/man/midgard2-query.10000664000175000017500000000114611772046240015063 00000000000000.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.33. .TH MIDGARD-QUERY "1" "May 2006" "midgard-query (Midgard) .SH NAME midgard-query \- executes SQL query .SH SYNOPSIS .B midgard-schema \fIconfiguration-file\fR \fIquery\fR .br .SH DESCRIPTION .\" Add any additional description here .PP Executes SQL query using midgard unified configuration file. .br .SH AUTHOR Written by Piotr Pokora. .SH "REPORTING BUGS" http://www.midgard-project.org/development/ .SH COPYRIGHT .PP Midgard Framework is licensed under GNU LGPL license. .br .SH "SEE ALSO" .PP http://www.midgard-project.org/documentation/ .br midgard2-core-10.05.7.1/man/midgard2-schema.10000664000175000017500000000201111772046240015146 00000000000000.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.33. .TH MIDGARD-SCHEMA "1" "May 2006" "midgard-schema (Midgard) .SH NAME midgard-schema \- perform tasks defined in configuration file .SH SYNOPSIS .B midgard-schema \fIconfiguration-file\fR .br .SH DESCRIPTION .\" Add any additional description here .PP Midgard-schema accepts filename as argument. .br Location of the file and its full path is defined by midgard library. .PP Tasks performed by midgard-schema: .TP Establish database connection .TP Create database tables .TP Update database tables .TP Perform test operations for available types .TP Login to Midgard database using Midgard Person credentials .PP Full description is available at .br http://www.midgard-project.org/documentation/unified-configuration/ .SH AUTHOR Written by Piotr Pokora. .SH "REPORTING BUGS" http://www.midgard-project.org/development/ .SH COPYRIGHT .PP Midgard Framework is licensed under GNU LGPL license. .br .SH "SEE ALSO" .PP http://www.midgard-project.org/documentation/ .br midgard2-core-10.05.7.1/midgard_auth_types.xml0000664000175000017500000000221511772046240015766 00000000000000 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 midgard2-core-10.05.7.1/conf.d/0000775000175000017500000000000011772046330012617 500000000000000midgard2-core-10.05.7.1/conf.d/midgard.conf.example0000664000175000017500000000405311772045620016452 00000000000000# This is example configuration file # Do not create config files with conf extension [MidgardDir] # Shared files, architecture independent # Default is $prefix/share/midgard #ShareDir= # Application specific files # Default is /var(/local)/lib/midgard #VarDir= # Directory to store binary data # Default is /var(/local)/lib/midgard/blobs/DBNAME #BlobDir= # Directory for cached data # Default is /var/cache/midgard #CacheDir= [MidgardDatabase] #Database type, by default MySQL #Values: MySQL, PostgreSQL, FreeTDS, ODBC, SQLite Type=MySQL #Database host ( 'localhost' by default ) Host= #Database port (0 by default) #Port=3306 #Name of the database Name=midgard #Username for user who is able to connect to database Username=midgard #Password for username Password=midgard #Directory for SQLite database file ('~/.midgard2/data' by default) #DatabaseDir= #Default language used by application. Unknown by default. #DefaultLanguage=pl #Full path to logfile. In none is defined output will be printed to stdout. #There's no default value for log file. #Logfile=/var/log/midgard/midgard.log #Log level. #Possible values: error, critical, warning (warn), message, info, debug #Default level is 'warn'. #Loglevel=message #Create tables and columns. Boolean value. Default is false #TableCreate=true #Update tables and columns. Set to true if you want to modify already #existing tables and columns. Boolean value. Default is false. #TableUpdate=true #You shouldn't use configuration below in real life #Testunit for all types defined in schema. Boolean value. Default is false. #TestUnit=true #Midgard person's username. Login delimeters with sitegroups may be used as well. #No default value. #MidgardUsername=root #Midgard person's password #No default value #MidgardPassword=password #Midgard authentication Type #Values: Normal, PAM, Trusted #Default value is Normal auth type #AuthType=PAM #Name of the file used by PAM authentication type #Default value is 'midgard'. #PamFile=mypamfile #Disable or Enable GdaThreads #Default value is false #GdaThreads=true midgard2-core-10.05.7.1/COPYING0000664000175000017500000006137211772045620012435 00000000000000 GNU LIBRARY GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1991 Free Software Foundation, Inc. 59 Temple Place - Suite 330 Boston, MA 02111-1307, USA. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. [This is the first released version of the library GPL. It is numbered 2 because it goes with version 2 of the ordinary GPL.] Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public Licenses are intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This license, the Library General Public License, applies to some specially designated Free Software Foundation software, and to any other libraries whose authors decide to use it. You can use it for your libraries, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the library, or if you modify it. For example, if you distribute copies of the library, whether gratis or for a fee, you must give the recipients all the rights that we gave you. You must make sure that they, too, receive or can get the source code. If you link a program with the library, you must provide complete object files to the recipients so that they can relink them with the library, after making changes to the library and recompiling it. And you must show them these terms so they know their rights. Our method of protecting your rights has two steps: (1) copyright the library, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the library. Also, for each distributor's protection, we want to make certain that everyone understands that there is no warranty for this free library. If the library is modified by someone else and passed on, we want its recipients to know that what they have is not the original version, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that companies distributing free software will individually obtain patent licenses, thus in effect transforming the program into proprietary software. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. Most GNU software, including some libraries, is covered by the ordinary GNU General Public License, which was designed for utility programs. This license, the GNU Library General Public License, applies to certain designated libraries. This license is quite different from the ordinary one; be sure to read it in full, and don't assume that anything in it is the same as in the ordinary license. The reason we have a separate public license for some libraries is that they blur the distinction we usually make between modifying or adding to a program and simply using it. Linking a program with a library, without changing the library, is in some sense simply using the library, and is analogous to running a utility program or application program. However, in a textual and legal sense, the linked executable is a combined work, a derivative of the original library, and the ordinary General Public License treats it as such. Because of this blurred distinction, using the ordinary General Public License for libraries did not effectively promote software sharing, because most developers did not use the libraries. We concluded that weaker conditions might promote sharing better. However, unrestricted linking of non-free programs would deprive the users of those programs of all benefit from the free status of the libraries themselves. This Library General Public License is intended to permit developers of non-free programs to use free libraries, while preserving your freedom as a user of such programs to change the free libraries that are incorporated in them. (We have not seen how to achieve this as regards changes in header files, but we have achieved it as regards changes in the actual functions of the Library.) The hope is that this will lead to faster development of free libraries. The precise terms and conditions for copying, distribution and modification follow. Pay close attention to the difference between a "work based on the library" and a "work that uses the library". The former contains code derived from the library, while the latter only works together with the library. Note that it is possible for a library to be covered by the ordinary General Public License rather than by this special one. GNU LIBRARY GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License Agreement applies to any software library which contains a notice placed by the copyright holder or other authorized party saying it may be distributed under the terms of this Library General Public License (also called "this License"). Each licensee is addressed as "you". A "library" means a collection of software functions and/or data prepared so as to be conveniently linked with application programs (which use some of those functions and data) to form executables. The "Library", below, refers to any such software library or work which has been distributed under these terms. A "work based on the Library" means either the Library or any derivative work under copyright law: that is to say, a work containing the Library or a portion of it, either verbatim or with modifications and/or translated straightforwardly into another language. (Hereinafter, translation is included without limitation in the term "modification".) "Source code" for a work means the preferred form of the work for making modifications to it. For a library, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the library. Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running a program using the Library is not restricted, and output from such a program is covered only if its contents constitute a work based on the Library (independent of the use of the Library in a tool for writing it). Whether that is true depends on what the Library does and what the program that uses the Library does. 1. You may copy and distribute verbatim copies of the Library's complete source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and distribute a copy of this License along with the Library. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Library or any portion of it, thus forming a work based on the Library, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) The modified work must itself be a software library. b) You must cause the files modified to carry prominent notices stating that you changed the files and the date of any change. c) You must cause the whole of the work to be licensed at no charge to all third parties under the terms of this License. d) If a facility in the modified Library refers to a function or a table of data to be supplied by an application program that uses the facility, other than as an argument passed when the facility is invoked, then you must make a good faith effort to ensure that, in the event an application does not supply such function or table, the facility still operates, and performs whatever part of its purpose remains meaningful. (For example, a function in a library to compute square roots has a purpose that is entirely well-defined independent of the application. Therefore, Subsection 2d requires that any application-supplied function or table used by this function must be optional: if the application does not supply it, the square root function must still compute square roots.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Library, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Library, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Library. In addition, mere aggregation of another work not based on the Library with the Library (or with a work based on the Library) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may opt to apply the terms of the ordinary GNU General Public License instead of this License to a given copy of the Library. To do this, you must alter all the notices that refer to this License, so that they refer to the ordinary GNU General Public License, version 2, instead of to this License. (If a newer version than version 2 of the ordinary GNU General Public License has appeared, then you can specify that version instead if you wish.) Do not make any other change in these notices. Once this change is made in a given copy, it is irreversible for that copy, so the ordinary GNU General Public License applies to all subsequent copies and derivative works made from that copy. This option is useful when you wish to copy part of the code of the Library into a program that is not a library. 4. You may copy and distribute the Library (or a portion or derivative of it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange. If distribution of object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place satisfies the requirement to distribute the source code, even though third parties are not compelled to copy the source along with the object code. 5. A program that contains no derivative of any portion of the Library, but is designed to work with the Library by being compiled or linked with it, is called a "work that uses the Library". Such a work, in isolation, is not a derivative work of the Library, and therefore falls outside the scope of this License. However, linking a "work that uses the Library" with the Library creates an executable that is a derivative of the Library (because it contains portions of the Library), rather than a "work that uses the library". The executable is therefore covered by this License. Section 6 states terms for distribution of such executables. When a "work that uses the Library" uses material from a header file that is part of the Library, the object code for the work may be a derivative work of the Library even though the source code is not. Whether this is true is especially significant if the work can be linked without the Library, or if the work is itself a library. The threshold for this to be true is not precisely defined by law. If such an object file uses only numerical parameters, data structure layouts and accessors, and small macros and small inline functions (ten lines or less in length), then the use of the object file is unrestricted, regardless of whether it is legally a derivative work. (Executables containing this object code plus portions of the Library will still fall under Section 6.) Otherwise, if the work is a derivative of the Library, you may distribute the object code for the work under the terms of Section 6. Any executables containing that work also fall under Section 6, whether or not they are linked directly with the Library itself. 6. As an exception to the Sections above, you may also compile or link a "work that uses the Library" with the Library to produce a work containing portions of the Library, and distribute that work under terms of your choice, provided that the terms permit modification of the work for the customer's own use and reverse engineering for debugging such modifications. You must give prominent notice with each copy of the work that the Library is used in it and that the Library and its use are covered by this License. You must supply a copy of this License. If the work during execution displays copyright notices, you must include the copyright notice for the Library among them, as well as a reference directing the user to the copy of this License. Also, you must do one of these things: a) Accompany the work with the complete corresponding machine-readable source code for the Library including whatever changes were used in the work (which must be distributed under Sections 1 and 2 above); and, if the work is an executable linked with the Library, with the complete machine-readable "work that uses the Library", as object code and/or source code, so that the user can modify the Library and then relink to produce a modified executable containing the modified Library. (It is understood that the user who changes the contents of definitions files in the Library will not necessarily be able to recompile the application to use the modified definitions.) b) Accompany the work with a written offer, valid for at least three years, to give the same user the materials specified in Subsection 6a, above, for a charge no more than the cost of performing this distribution. c) If distribution of the work is made by offering access to copy from a designated place, offer equivalent access to copy the above specified materials from the same place. d) Verify that the user has already received a copy of these materials or that you have already sent this user a copy. For an executable, the required form of the "work that uses the Library" must include any data and utility programs needed for reproducing the executable from it. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. It may happen that this requirement contradicts the license restrictions of other proprietary libraries that do not normally accompany the operating system. Such a contradiction means you cannot use both them and the Library together in an executable that you distribute. 7. You may place library facilities that are a work based on the Library side-by-side in a single library together with other library facilities not covered by this License, and distribute such a combined library, provided that the separate distribution of the work based on the Library and of the other library facilities is otherwise permitted, and provided that you do these two things: a) Accompany the combined library with a copy of the same work based on the Library, uncombined with any other library facilities. This must be distributed under the terms of the Sections above. b) Give prominent notice with the combined library of the fact that part of it is a work based on the Library, and explaining where to find the accompanying uncombined form of the same work. 8. You may not copy, modify, sublicense, link with, or distribute the Library except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense, link with, or distribute the Library is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 9. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Library or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Library (or any work based on the Library), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Library or works based on it. 10. Each time you redistribute the Library (or any work based on the Library), the recipient automatically receives a license from the original licensor to copy, distribute, link with or modify the Library subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 11. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Library at all. For example, if a patent license would not permit royalty-free redistribution of the Library by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Library. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply, and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 12. If the distribution and/or use of the Library is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Library under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 13. The Free Software Foundation may publish revised and/or new versions of the Library General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Library specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Library does not specify a license version number, you may choose any version ever published by the Free Software Foundation. 14. If you wish to incorporate parts of the Library into other free programs whose distribution conditions are incompatible with these, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS Appendix: How to Apply These Terms to Your New Libraries If you develop a new library, and you want it to be of the greatest possible use to the public, we recommend making it free software that everyone can redistribute and change. You can do so by permitting redistribution under these terms (or, alternatively, under the terms of the ordinary General Public License). To apply these terms, attach the following notices to the library. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU General Public License along with this library; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. Also add information on how to contact you by electronic and paper mail. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the library, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the library `Frob' (a library for tweaking knobs) written by James Random Hacker. , 1 April 1990 Ty Coon, President of Vice That's all there is to it! midgard2-core-10.05.7.1/aclocal.m40000664000175000017500000012301711772046301013232 00000000000000# generated automatically by aclocal 1.11.3 -*- Autoconf -*- # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, # 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. m4_ifndef([AC_AUTOCONF_VERSION], [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.68],, [m4_warning([this file was generated for autoconf 2.68. You have another version of autoconf. It may work, but is not guaranteed to. If you have problems, you may need to regenerate the build system entirely. To do so, use the procedure documented by the package, typically `autoreconf'.])]) # pkg.m4 - Macros to locate and utilise pkg-config. -*- Autoconf -*- # serial 1 (pkg-config-0.24) # # Copyright © 2004 Scott James Remnant . # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # PKG_PROG_PKG_CONFIG([MIN-VERSION]) # ---------------------------------- AC_DEFUN([PKG_PROG_PKG_CONFIG], [m4_pattern_forbid([^_?PKG_[A-Z_]+$]) m4_pattern_allow([^PKG_CONFIG(_(PATH|LIBDIR|SYSROOT_DIR|ALLOW_SYSTEM_(CFLAGS|LIBS)))?$]) m4_pattern_allow([^PKG_CONFIG_(DISABLE_UNINSTALLED|TOP_BUILD_DIR|DEBUG_SPEW)$]) AC_ARG_VAR([PKG_CONFIG], [path to pkg-config utility]) AC_ARG_VAR([PKG_CONFIG_PATH], [directories to add to pkg-config's search path]) AC_ARG_VAR([PKG_CONFIG_LIBDIR], [path overriding pkg-config's built-in search path]) if test "x$ac_cv_env_PKG_CONFIG_set" != "xset"; then AC_PATH_TOOL([PKG_CONFIG], [pkg-config]) fi if test -n "$PKG_CONFIG"; then _pkg_min_version=m4_default([$1], [0.9.0]) AC_MSG_CHECKING([pkg-config is at least version $_pkg_min_version]) if $PKG_CONFIG --atleast-pkgconfig-version $_pkg_min_version; then AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) PKG_CONFIG="" fi fi[]dnl ])# PKG_PROG_PKG_CONFIG # PKG_CHECK_EXISTS(MODULES, [ACTION-IF-FOUND], [ACTION-IF-NOT-FOUND]) # # Check to see whether a particular set of modules exists. Similar # to PKG_CHECK_MODULES(), but does not set variables or print errors. # # Please remember that m4 expands AC_REQUIRE([PKG_PROG_PKG_CONFIG]) # only at the first occurence in configure.ac, so if the first place # it's called might be skipped (such as if it is within an "if", you # have to call PKG_CHECK_EXISTS manually # -------------------------------------------------------------- AC_DEFUN([PKG_CHECK_EXISTS], [AC_REQUIRE([PKG_PROG_PKG_CONFIG])dnl if test -n "$PKG_CONFIG" && \ AC_RUN_LOG([$PKG_CONFIG --exists --print-errors "$1"]); then m4_default([$2], [:]) m4_ifvaln([$3], [else $3])dnl fi]) # _PKG_CONFIG([VARIABLE], [COMMAND], [MODULES]) # --------------------------------------------- m4_define([_PKG_CONFIG], [if test -n "$$1"; then pkg_cv_[]$1="$$1" elif test -n "$PKG_CONFIG"; then PKG_CHECK_EXISTS([$3], [pkg_cv_[]$1=`$PKG_CONFIG --[]$2 "$3" 2>/dev/null` test "x$?" != "x0" && pkg_failed=yes ], [pkg_failed=yes]) else pkg_failed=untried fi[]dnl ])# _PKG_CONFIG # _PKG_SHORT_ERRORS_SUPPORTED # ----------------------------- AC_DEFUN([_PKG_SHORT_ERRORS_SUPPORTED], [AC_REQUIRE([PKG_PROG_PKG_CONFIG]) if $PKG_CONFIG --atleast-pkgconfig-version 0.20; then _pkg_short_errors_supported=yes else _pkg_short_errors_supported=no fi[]dnl ])# _PKG_SHORT_ERRORS_SUPPORTED # PKG_CHECK_MODULES(VARIABLE-PREFIX, MODULES, [ACTION-IF-FOUND], # [ACTION-IF-NOT-FOUND]) # # # Note that if there is a possibility the first call to # PKG_CHECK_MODULES might not happen, you should be sure to include an # explicit call to PKG_PROG_PKG_CONFIG in your configure.ac # # # -------------------------------------------------------------- AC_DEFUN([PKG_CHECK_MODULES], [AC_REQUIRE([PKG_PROG_PKG_CONFIG])dnl AC_ARG_VAR([$1][_CFLAGS], [C compiler flags for $1, overriding pkg-config])dnl AC_ARG_VAR([$1][_LIBS], [linker flags for $1, overriding pkg-config])dnl pkg_failed=no AC_MSG_CHECKING([for $1]) _PKG_CONFIG([$1][_CFLAGS], [cflags], [$2]) _PKG_CONFIG([$1][_LIBS], [libs], [$2]) m4_define([_PKG_TEXT], [Alternatively, you may set the environment variables $1[]_CFLAGS and $1[]_LIBS to avoid the need to call pkg-config. See the pkg-config man page for more details.]) if test $pkg_failed = yes; then AC_MSG_RESULT([no]) _PKG_SHORT_ERRORS_SUPPORTED if test $_pkg_short_errors_supported = yes; then $1[]_PKG_ERRORS=`$PKG_CONFIG --short-errors --print-errors --cflags --libs "$2" 2>&1` else $1[]_PKG_ERRORS=`$PKG_CONFIG --print-errors --cflags --libs "$2" 2>&1` fi # Put the nasty error message in config.log where it belongs echo "$$1[]_PKG_ERRORS" >&AS_MESSAGE_LOG_FD m4_default([$4], [AC_MSG_ERROR( [Package requirements ($2) were not met: $$1_PKG_ERRORS Consider adjusting the PKG_CONFIG_PATH environment variable if you installed software in a non-standard prefix. _PKG_TEXT])[]dnl ]) elif test $pkg_failed = untried; then AC_MSG_RESULT([no]) m4_default([$4], [AC_MSG_FAILURE( [The pkg-config script could not be found or is too old. Make sure it is in your PATH or set the PKG_CONFIG environment variable to the full path to pkg-config. _PKG_TEXT To get pkg-config, see .])[]dnl ]) else $1[]_CFLAGS=$pkg_cv_[]$1[]_CFLAGS $1[]_LIBS=$pkg_cv_[]$1[]_LIBS AC_MSG_RESULT([yes]) $3 fi[]dnl ])# PKG_CHECK_MODULES # Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008, 2011 Free Software # Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # AM_AUTOMAKE_VERSION(VERSION) # ---------------------------- # Automake X.Y traces this macro to ensure aclocal.m4 has been # generated from the m4 files accompanying Automake X.Y. # (This private macro should not be called outside this file.) AC_DEFUN([AM_AUTOMAKE_VERSION], [am__api_version='1.11' dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to dnl require some minimum version. Point them to the right macro. m4_if([$1], [1.11.3], [], [AC_FATAL([Do not call $0, use AM_INIT_AUTOMAKE([$1]).])])dnl ]) # _AM_AUTOCONF_VERSION(VERSION) # ----------------------------- # aclocal traces this macro to find the Autoconf version. # This is a private macro too. Using m4_define simplifies # the logic in aclocal, which can simply ignore this definition. m4_define([_AM_AUTOCONF_VERSION], []) # AM_SET_CURRENT_AUTOMAKE_VERSION # ------------------------------- # Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced. # This function is AC_REQUIREd by AM_INIT_AUTOMAKE. AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION], [AM_AUTOMAKE_VERSION([1.11.3])dnl m4_ifndef([AC_AUTOCONF_VERSION], [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl _AM_AUTOCONF_VERSION(m4_defn([AC_AUTOCONF_VERSION]))]) # AM_AUX_DIR_EXPAND -*- Autoconf -*- # Copyright (C) 2001, 2003, 2005, 2011 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets # $ac_aux_dir to `$srcdir/foo'. In other projects, it is set to # `$srcdir', `$srcdir/..', or `$srcdir/../..'. # # Of course, Automake must honor this variable whenever it calls a # tool from the auxiliary directory. The problem is that $srcdir (and # therefore $ac_aux_dir as well) can be either absolute or relative, # depending on how configure is run. This is pretty annoying, since # it makes $ac_aux_dir quite unusable in subdirectories: in the top # source directory, any form will work fine, but in subdirectories a # relative path needs to be adjusted first. # # $ac_aux_dir/missing # fails when called from a subdirectory if $ac_aux_dir is relative # $top_srcdir/$ac_aux_dir/missing # fails if $ac_aux_dir is absolute, # fails when called from a subdirectory in a VPATH build with # a relative $ac_aux_dir # # The reason of the latter failure is that $top_srcdir and $ac_aux_dir # are both prefixed by $srcdir. In an in-source build this is usually # harmless because $srcdir is `.', but things will broke when you # start a VPATH build or use an absolute $srcdir. # # So we could use something similar to $top_srcdir/$ac_aux_dir/missing, # iff we strip the leading $srcdir from $ac_aux_dir. That would be: # am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"` # and then we would define $MISSING as # MISSING="\${SHELL} $am_aux_dir/missing" # This will work as long as MISSING is not called from configure, because # unfortunately $(top_srcdir) has no meaning in configure. # However there are other variables, like CC, which are often used in # configure, and could therefore not use this "fixed" $ac_aux_dir. # # Another solution, used here, is to always expand $ac_aux_dir to an # absolute PATH. The drawback is that using absolute paths prevent a # configured tree to be moved without reconfiguration. AC_DEFUN([AM_AUX_DIR_EXPAND], [dnl Rely on autoconf to set up CDPATH properly. AC_PREREQ([2.50])dnl # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` ]) # AM_CONDITIONAL -*- Autoconf -*- # Copyright (C) 1997, 2000, 2001, 2003, 2004, 2005, 2006, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 9 # AM_CONDITIONAL(NAME, SHELL-CONDITION) # ------------------------------------- # Define a conditional. AC_DEFUN([AM_CONDITIONAL], [AC_PREREQ(2.52)dnl ifelse([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])], [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl AC_SUBST([$1_TRUE])dnl AC_SUBST([$1_FALSE])dnl _AM_SUBST_NOTMAKE([$1_TRUE])dnl _AM_SUBST_NOTMAKE([$1_FALSE])dnl m4_define([_AM_COND_VALUE_$1], [$2])dnl if $2; then $1_TRUE= $1_FALSE='#' else $1_TRUE='#' $1_FALSE= fi AC_CONFIG_COMMANDS_PRE( [if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then AC_MSG_ERROR([[conditional "$1" was never defined. Usually this means the macro was only invoked conditionally.]]) fi])]) # Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2009, # 2010, 2011 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 12 # There are a few dirty hacks below to avoid letting `AC_PROG_CC' be # written in clear, in which case automake, when reading aclocal.m4, # will think it sees a *use*, and therefore will trigger all it's # C support machinery. Also note that it means that autoscan, seeing # CC etc. in the Makefile, will ask for an AC_PROG_CC use... # _AM_DEPENDENCIES(NAME) # ---------------------- # See how the compiler implements dependency checking. # NAME is "CC", "CXX", "GCJ", or "OBJC". # We try a few techniques and use that to set a single cache variable. # # We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was # modified to invoke _AM_DEPENDENCIES(CC); we would have a circular # dependency, and given that the user is not expected to run this macro, # just rely on AC_PROG_CC. AC_DEFUN([_AM_DEPENDENCIES], [AC_REQUIRE([AM_SET_DEPDIR])dnl AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl AC_REQUIRE([AM_MAKE_INCLUDE])dnl AC_REQUIRE([AM_DEP_TRACK])dnl ifelse([$1], CC, [depcc="$CC" am_compiler_list=], [$1], CXX, [depcc="$CXX" am_compiler_list=], [$1], OBJC, [depcc="$OBJC" am_compiler_list='gcc3 gcc'], [$1], UPC, [depcc="$UPC" am_compiler_list=], [$1], GCJ, [depcc="$GCJ" am_compiler_list='gcc3 gcc'], [depcc="$$1" am_compiler_list=]) AC_CACHE_CHECK([dependency style of $depcc], [am_cv_$1_dependencies_compiler_type], [if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named `D' -- because `-MD' means `put the output # in D'. rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_$1_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp` fi am__universal=false m4_case([$1], [CC], [case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac], [CXX], [case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac]) for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with # Solaris 8's {/usr,}/bin/sh. touch sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with `-c' and `-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle `-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # after this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok `-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_$1_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_$1_dependencies_compiler_type=none fi ]) AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type]) AM_CONDITIONAL([am__fastdep$1], [ test "x$enable_dependency_tracking" != xno \ && test "$am_cv_$1_dependencies_compiler_type" = gcc3]) ]) # AM_SET_DEPDIR # ------------- # Choose a directory name for dependency files. # This macro is AC_REQUIREd in _AM_DEPENDENCIES AC_DEFUN([AM_SET_DEPDIR], [AC_REQUIRE([AM_SET_LEADING_DOT])dnl AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl ]) # AM_DEP_TRACK # ------------ AC_DEFUN([AM_DEP_TRACK], [AC_ARG_ENABLE(dependency-tracking, [ --disable-dependency-tracking speeds up one-time build --enable-dependency-tracking do not reject slow dependency extractors]) if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' am__nodep='_no' fi AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno]) AC_SUBST([AMDEPBACKSLASH])dnl _AM_SUBST_NOTMAKE([AMDEPBACKSLASH])dnl AC_SUBST([am__nodep])dnl _AM_SUBST_NOTMAKE([am__nodep])dnl ]) # Generate code to set up dependency tracking. -*- Autoconf -*- # Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. #serial 5 # _AM_OUTPUT_DEPENDENCY_COMMANDS # ------------------------------ AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS], [{ # Autoconf 2.62 quotes --file arguments for eval, but not when files # are listed without --file. Let's play safe and only enable the eval # if we detect the quoting. case $CONFIG_FILES in *\'*) eval set x "$CONFIG_FILES" ;; *) set x $CONFIG_FILES ;; esac shift for mf do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named `Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # Grep'ing the whole file is not good either: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then dirpart=`AS_DIRNAME("$mf")` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running `make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # When using ansi2knr, U may be empty or an underscore; expand it U=`sed -n 's/^U = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`AS_DIRNAME(["$file"])` AS_MKDIR_P([$dirpart/$fdir]) # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done } ])# _AM_OUTPUT_DEPENDENCY_COMMANDS # AM_OUTPUT_DEPENDENCY_COMMANDS # ----------------------------- # This macro should only be invoked once -- use via AC_REQUIRE. # # This code is only required when automatic dependency tracking # is enabled. FIXME. This creates each `.P' file that we will # need in order to bootstrap the dependency handling code. AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS], [AC_CONFIG_COMMANDS([depfiles], [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS], [AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"]) ]) # Do all the work for Automake. -*- Autoconf -*- # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, # 2005, 2006, 2008, 2009 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 16 # This macro actually does too much. Some checks are only needed if # your package does certain things. But this isn't really a big deal. # AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE]) # AM_INIT_AUTOMAKE([OPTIONS]) # ----------------------------------------------- # The call with PACKAGE and VERSION arguments is the old style # call (pre autoconf-2.50), which is being phased out. PACKAGE # and VERSION should now be passed to AC_INIT and removed from # the call to AM_INIT_AUTOMAKE. # We support both call styles for the transition. After # the next Automake release, Autoconf can make the AC_INIT # arguments mandatory, and then we can depend on a new Autoconf # release and drop the old call support. AC_DEFUN([AM_INIT_AUTOMAKE], [AC_PREREQ([2.62])dnl dnl Autoconf wants to disallow AM_ names. We explicitly allow dnl the ones we care about. m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl AC_REQUIRE([AC_PROG_INSTALL])dnl if test "`cd $srcdir && pwd`" != "`pwd`"; then # Use -I$(srcdir) only when $(srcdir) != ., so that make's output # is not polluted with repeated "-I." AC_SUBST([am__isrc], [' -I$(srcdir)'])_AM_SUBST_NOTMAKE([am__isrc])dnl # test to see if srcdir already configured if test -f $srcdir/config.status; then AC_MSG_ERROR([source directory already configured; run "make distclean" there first]) fi fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi AC_SUBST([CYGPATH_W]) # Define the identity of the package. dnl Distinguish between old-style and new-style calls. m4_ifval([$2], [m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl AC_SUBST([PACKAGE], [$1])dnl AC_SUBST([VERSION], [$2])], [_AM_SET_OPTIONS([$1])dnl dnl Diagnose old-style AC_INIT with new-style AM_AUTOMAKE_INIT. m4_if(m4_ifdef([AC_PACKAGE_NAME], 1)m4_ifdef([AC_PACKAGE_VERSION], 1), 11,, [m4_fatal([AC_INIT should be called with package and version arguments])])dnl AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl _AM_IF_OPTION([no-define],, [AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE", [Name of package]) AC_DEFINE_UNQUOTED(VERSION, "$VERSION", [Version number of package])])dnl # Some tools Automake needs. AC_REQUIRE([AM_SANITY_CHECK])dnl AC_REQUIRE([AC_ARG_PROGRAM])dnl AM_MISSING_PROG(ACLOCAL, aclocal-${am__api_version}) AM_MISSING_PROG(AUTOCONF, autoconf) AM_MISSING_PROG(AUTOMAKE, automake-${am__api_version}) AM_MISSING_PROG(AUTOHEADER, autoheader) AM_MISSING_PROG(MAKEINFO, makeinfo) AC_REQUIRE([AM_PROG_INSTALL_SH])dnl AC_REQUIRE([AM_PROG_INSTALL_STRIP])dnl AC_REQUIRE([AM_PROG_MKDIR_P])dnl # We need awk for the "check" target. The system "awk" is bad on # some platforms. AC_REQUIRE([AC_PROG_AWK])dnl AC_REQUIRE([AC_PROG_MAKE_SET])dnl AC_REQUIRE([AM_SET_LEADING_DOT])dnl _AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])], [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])], [_AM_PROG_TAR([v7])])]) _AM_IF_OPTION([no-dependencies],, [AC_PROVIDE_IFELSE([AC_PROG_CC], [_AM_DEPENDENCIES(CC)], [define([AC_PROG_CC], defn([AC_PROG_CC])[_AM_DEPENDENCIES(CC)])])dnl AC_PROVIDE_IFELSE([AC_PROG_CXX], [_AM_DEPENDENCIES(CXX)], [define([AC_PROG_CXX], defn([AC_PROG_CXX])[_AM_DEPENDENCIES(CXX)])])dnl AC_PROVIDE_IFELSE([AC_PROG_OBJC], [_AM_DEPENDENCIES(OBJC)], [define([AC_PROG_OBJC], defn([AC_PROG_OBJC])[_AM_DEPENDENCIES(OBJC)])])dnl ]) _AM_IF_OPTION([silent-rules], [AC_REQUIRE([AM_SILENT_RULES])])dnl dnl The `parallel-tests' driver may need to know about EXEEXT, so add the dnl `am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This macro dnl is hooked onto _AC_COMPILER_EXEEXT early, see below. AC_CONFIG_COMMANDS_PRE(dnl [m4_provide_if([_AM_COMPILER_EXEEXT], [AM_CONDITIONAL([am__EXEEXT], [test -n "$EXEEXT"])])])dnl ]) dnl Hook into `_AC_COMPILER_EXEEXT' early to learn its expansion. Do not dnl add the conditional right here, as _AC_COMPILER_EXEEXT may be further dnl mangled by Autoconf and run in a shell conditional statement. m4_define([_AC_COMPILER_EXEEXT], m4_defn([_AC_COMPILER_EXEEXT])[m4_provide([_AM_COMPILER_EXEEXT])]) # When config.status generates a header, we must update the stamp-h file. # This file resides in the same directory as the config header # that is generated. The stamp files are numbered to have different names. # Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the # loop where config.status creates the headers, so we can generate # our stamp files there. AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK], [# Compute $1's index in $config_headers. _am_arg=$1 _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $_am_arg | $_am_arg:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count]) # Copyright (C) 2001, 2003, 2005, 2008, 2011 Free Software Foundation, # Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # AM_PROG_INSTALL_SH # ------------------ # Define $install_sh. AC_DEFUN([AM_PROG_INSTALL_SH], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl if test x"${install_sh}" != xset; then case $am_aux_dir in *\ * | *\ *) install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; *) install_sh="\${SHELL} $am_aux_dir/install-sh" esac fi AC_SUBST(install_sh)]) # Copyright (C) 2003, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 2 # Check whether the underlying file-system supports filenames # with a leading dot. For instance MS-DOS doesn't. AC_DEFUN([AM_SET_LEADING_DOT], [rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null AC_SUBST([am__leading_dot])]) # Add --enable-maintainer-mode option to configure. -*- Autoconf -*- # From Jim Meyering # Copyright (C) 1996, 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2008, # 2011 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 5 # AM_MAINTAINER_MODE([DEFAULT-MODE]) # ---------------------------------- # Control maintainer-specific portions of Makefiles. # Default is to disable them, unless `enable' is passed literally. # For symmetry, `disable' may be passed as well. Anyway, the user # can override the default with the --enable/--disable switch. AC_DEFUN([AM_MAINTAINER_MODE], [m4_case(m4_default([$1], [disable]), [enable], [m4_define([am_maintainer_other], [disable])], [disable], [m4_define([am_maintainer_other], [enable])], [m4_define([am_maintainer_other], [enable]) m4_warn([syntax], [unexpected argument to AM@&t@_MAINTAINER_MODE: $1])]) AC_MSG_CHECKING([whether to enable maintainer-specific portions of Makefiles]) dnl maintainer-mode's default is 'disable' unless 'enable' is passed AC_ARG_ENABLE([maintainer-mode], [ --][am_maintainer_other][-maintainer-mode am_maintainer_other make rules and dependencies not useful (and sometimes confusing) to the casual installer], [USE_MAINTAINER_MODE=$enableval], [USE_MAINTAINER_MODE=]m4_if(am_maintainer_other, [enable], [no], [yes])) AC_MSG_RESULT([$USE_MAINTAINER_MODE]) AM_CONDITIONAL([MAINTAINER_MODE], [test $USE_MAINTAINER_MODE = yes]) MAINT=$MAINTAINER_MODE_TRUE AC_SUBST([MAINT])dnl ] ) AU_DEFUN([jm_MAINTAINER_MODE], [AM_MAINTAINER_MODE]) # Check to see how 'make' treats includes. -*- Autoconf -*- # Copyright (C) 2001, 2002, 2003, 2005, 2009 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 4 # AM_MAKE_INCLUDE() # ----------------- # Check to see how make treats includes. AC_DEFUN([AM_MAKE_INCLUDE], [am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo this is the am__doit target .PHONY: am__doit END # If we don't find an include directive, just comment out the code. AC_MSG_CHECKING([for style of include used by $am_make]) am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # Ignore all kinds of additional output from `make'. case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=include am__quote= _am_result=GNU ;; esac # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=.include am__quote="\"" _am_result=BSD ;; esac fi AC_SUBST([am__include]) AC_SUBST([am__quote]) AC_MSG_RESULT([$_am_result]) rm -f confinc confmf ]) # Fake the existence of programs that GNU maintainers use. -*- Autoconf -*- # Copyright (C) 1997, 1999, 2000, 2001, 2003, 2004, 2005, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 6 # AM_MISSING_PROG(NAME, PROGRAM) # ------------------------------ AC_DEFUN([AM_MISSING_PROG], [AC_REQUIRE([AM_MISSING_HAS_RUN]) $1=${$1-"${am_missing_run}$2"} AC_SUBST($1)]) # AM_MISSING_HAS_RUN # ------------------ # Define MISSING if not defined so far and test if it supports --run. # If it does, set am_missing_run to use it, otherwise, to nothing. AC_DEFUN([AM_MISSING_HAS_RUN], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl AC_REQUIRE_AUX_FILE([missing])dnl if test x"${MISSING+set}" != xset; then case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= AC_MSG_WARN([`missing' script is too old or missing]) fi ]) # Copyright (C) 2003, 2004, 2005, 2006, 2011 Free Software Foundation, # Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # AM_PROG_MKDIR_P # --------------- # Check for `mkdir -p'. AC_DEFUN([AM_PROG_MKDIR_P], [AC_PREREQ([2.60])dnl AC_REQUIRE([AC_PROG_MKDIR_P])dnl dnl Automake 1.8 to 1.9.6 used to define mkdir_p. We now use MKDIR_P, dnl while keeping a definition of mkdir_p for backward compatibility. dnl @MKDIR_P@ is magic: AC_OUTPUT adjusts its value for each Makefile. dnl However we cannot define mkdir_p as $(MKDIR_P) for the sake of dnl Makefile.ins that do not define MKDIR_P, so we do our own dnl adjustment using top_builddir (which is defined more often than dnl MKDIR_P). AC_SUBST([mkdir_p], ["$MKDIR_P"])dnl case $mkdir_p in [[\\/$]]* | ?:[[\\/]]*) ;; */*) mkdir_p="\$(top_builddir)/$mkdir_p" ;; esac ]) # Helper functions for option handling. -*- Autoconf -*- # Copyright (C) 2001, 2002, 2003, 2005, 2008, 2010 Free Software # Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 5 # _AM_MANGLE_OPTION(NAME) # ----------------------- AC_DEFUN([_AM_MANGLE_OPTION], [[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])]) # _AM_SET_OPTION(NAME) # -------------------- # Set option NAME. Presently that only means defining a flag for this option. AC_DEFUN([_AM_SET_OPTION], [m4_define(_AM_MANGLE_OPTION([$1]), 1)]) # _AM_SET_OPTIONS(OPTIONS) # ------------------------ # OPTIONS is a space-separated list of Automake options. AC_DEFUN([_AM_SET_OPTIONS], [m4_foreach_w([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])]) # _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET]) # ------------------------------------------- # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. AC_DEFUN([_AM_IF_OPTION], [m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])]) # Check to make sure that the build environment is sane. -*- Autoconf -*- # Copyright (C) 1996, 1997, 2000, 2001, 2003, 2005, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 5 # AM_SANITY_CHECK # --------------- AC_DEFUN([AM_SANITY_CHECK], [AC_MSG_CHECKING([whether build environment is sane]) # Just in case sleep 1 echo timestamp > conftest.file # Reject unsafe characters in $srcdir or the absolute working directory # name. Accept space and tab only in the latter. am_lf=' ' case `pwd` in *[[\\\"\#\$\&\'\`$am_lf]]*) AC_MSG_ERROR([unsafe absolute working directory name]);; esac case $srcdir in *[[\\\"\#\$\&\'\`$am_lf\ \ ]]*) AC_MSG_ERROR([unsafe srcdir value: `$srcdir']);; esac # Do `set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` if test "$[*]" = "X"; then # -L didn't work. set X `ls -t "$srcdir/configure" conftest.file` fi rm -f conftest.file if test "$[*]" != "X $srcdir/configure conftest.file" \ && test "$[*]" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken alias in your environment]) fi test "$[2]" = conftest.file ) then # Ok. : else AC_MSG_ERROR([newly created file is older than distributed files! Check your system clock]) fi AC_MSG_RESULT(yes)]) # Copyright (C) 2001, 2003, 2005, 2011 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # AM_PROG_INSTALL_STRIP # --------------------- # One issue with vendor `install' (even GNU) is that you can't # specify the program used to strip binaries. This is especially # annoying in cross-compiling environments, where the build's strip # is unlikely to handle the host's binaries. # Fortunately install-sh will honor a STRIPPROG variable, so we # always use install-sh in `make install-strip', and initialize # STRIPPROG with the value of the STRIP variable (set by the user). AC_DEFUN([AM_PROG_INSTALL_STRIP], [AC_REQUIRE([AM_PROG_INSTALL_SH])dnl # Installed binaries are usually stripped using `strip' when the user # run `make install-strip'. However `strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the `STRIP' environment variable to overrule this program. dnl Don't test for $cross_compiling = yes, because it might be `maybe'. if test "$cross_compiling" != no; then AC_CHECK_TOOL([STRIP], [strip], :) fi INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" AC_SUBST([INSTALL_STRIP_PROGRAM])]) # Copyright (C) 2006, 2008, 2010 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 3 # _AM_SUBST_NOTMAKE(VARIABLE) # --------------------------- # Prevent Automake from outputting VARIABLE = @VARIABLE@ in Makefile.in. # This macro is traced by Automake. AC_DEFUN([_AM_SUBST_NOTMAKE]) # AM_SUBST_NOTMAKE(VARIABLE) # -------------------------- # Public sister of _AM_SUBST_NOTMAKE. AC_DEFUN([AM_SUBST_NOTMAKE], [_AM_SUBST_NOTMAKE($@)]) # Check how to create a tarball. -*- Autoconf -*- # Copyright (C) 2004, 2005, 2012 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 2 # _AM_PROG_TAR(FORMAT) # -------------------- # Check how to create a tarball in format FORMAT. # FORMAT should be one of `v7', `ustar', or `pax'. # # Substitute a variable $(am__tar) that is a command # writing to stdout a FORMAT-tarball containing the directory # $tardir. # tardir=directory && $(am__tar) > result.tar # # Substitute a variable $(am__untar) that extract such # a tarball read from stdin. # $(am__untar) < result.tar AC_DEFUN([_AM_PROG_TAR], [# Always define AMTAR for backward compatibility. Yes, it's still used # in the wild :-( We should find a proper way to deprecate it ... AC_SUBST([AMTAR], ['$${TAR-tar}']) m4_if([$1], [v7], [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'], [m4_case([$1], [ustar],, [pax],, [m4_fatal([Unknown tar format])]) AC_MSG_CHECKING([how to create a $1 tar archive]) # Loop over all known methods to create a tar archive until one works. _am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none' _am_tools=${am_cv_prog_tar_$1-$_am_tools} # Do not fold the above two line into one, because Tru64 sh and # Solaris sh will not grok spaces in the rhs of `-'. for _am_tool in $_am_tools do case $_am_tool in gnutar) for _am_tar in tar gnutar gtar; do AM_RUN_LOG([$_am_tar --version]) && break done am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"' am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"' am__untar="$_am_tar -xf -" ;; plaintar) # Must skip GNU tar: if it does not support --format= it doesn't create # ustar tarball either. (tar --version) >/dev/null 2>&1 && continue am__tar='tar chf - "$$tardir"' am__tar_='tar chf - "$tardir"' am__untar='tar xf -' ;; pax) am__tar='pax -L -x $1 -w "$$tardir"' am__tar_='pax -L -x $1 -w "$tardir"' am__untar='pax -r' ;; cpio) am__tar='find "$$tardir" -print | cpio -o -H $1 -L' am__tar_='find "$tardir" -print | cpio -o -H $1 -L' am__untar='cpio -i -H $1 -d' ;; none) am__tar=false am__tar_=false am__untar=false ;; esac # If the value was cached, stop now. We just wanted to have am__tar # and am__untar set. test -n "${am_cv_prog_tar_$1}" && break # tar/untar a dummy directory, and stop if the command works rm -rf conftest.dir mkdir conftest.dir echo GrepMe > conftest.dir/file AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar]) rm -rf conftest.dir if test -s conftest.tar; then AM_RUN_LOG([$am__untar /dev/null 2>&1 && break fi done rm -rf conftest.dir AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool]) AC_MSG_RESULT([$am_cv_prog_tar_$1])]) AC_SUBST([am__tar]) AC_SUBST([am__untar]) ]) # _AM_PROG_TAR m4_include([m4/introspection.m4]) m4_include([m4/libtool.m4]) m4_include([m4/ltoptions.m4]) m4_include([m4/ltsugar.m4]) m4_include([m4/ltversion.m4]) m4_include([m4/lt~obsolete.m4])